| 查看: 2058 | 回复: 15 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
[求助]
求助高手帮忙编一个Fortran的小程序，重金悬赏......
|
|||
| 需要一个Fortran的小程序，急求帮忙。 |
回复此楼» 猜你喜欢
拟解决的关键科学问题还要不要写
已经有11人回复
-
救命帖
已经有5人回复
-
限项规定
已经有5人回复
-
为什么nbs上溴 没有产物点出现呢
已经有9人回复
-
招博士
已经有3人回复
-
存款400万可以在学校里躺平吗
已经有35人回复
-
最失望的一年
已经有18人回复
-
求推荐博导
已经有4人回复
-
求推荐英文EI期刊
已经有5人回复
-
疑惑？
已经有5人回复
1055439338
新虫 (初入文坛)
- 应助: 0 (幼儿园)
- 金币: 291.8
- 帖子: 42
- 在线: 33.5小时
- 虫号: 2106104
- 注册: 2012-11-04
- 性别: GG
- 专业: 大地测量学
【答案】应助回帖
|
module bank implicit none private money public LoadMoney, SaveMoney, Report integer :: money = 1000000 contains subroutine LoadMoney(num) implicit none integer :: num money=money-num return end subroutine subroutine SaveMoney(num) implicit none integer :: num money=money+num return end subroutine subroutine Report() implicit none write(*,"('银行目前库存',I,'元')"  moneyend subroutine end module program ex1101 use bank implicit none call LoadMoney(100) call SaveMoney(1000) call Report() stop end |
15楼2012-11-30 21:14:05
snoopyzhao
至尊木虫 (职业作家)
- 程序强帖: 16
- 应助: 157 (高中生)
- 贵宾: 0.02
- 金币: 18844.7
- 红花: 29
- 帖子: 3803
- 在线: 1422.4小时
- 虫号: 183750
- 注册: 2006-02-13
- 专业: 污染生态化学
2楼2011-09-20 10:54:29
shenxianshifu
至尊木虫 (知名作家)
宗师
- 应助: 1 (幼儿园)
- 金币: 12973.6
- 散金: 2161
- 红花: 4
- 帖子: 5279
- 在线: 211.6小时
- 虫号: 320677
- 注册: 2007-03-10
- 性别: GG
- 专业: 半导体材料
4楼2011-09-30 10:54:51
xiangqian327
银虫 (小有名气)
- 应助: 0 (幼儿园)
- 金币: 489.7
- 散金: 10
- 红花: 1
- 帖子: 175
- 在线: 14.8小时
- 虫号: 1228409
- 注册: 2011-03-10
- 性别: GG
- 专业: 工程热物理相关交叉领域
5楼2011-10-01 19:50:20