| 查看: 2492 | 回复: 15 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
[求助]
求助高手帮忙编一个Fortran的小程序，重金悬赏......
|
|||
| 需要一个Fortran的小程序，急求帮忙。 |
回复此楼» 猜你喜欢
FileCode能看出啥？
已经有23人回复
-
应该是93bebmhtak前后十一个字符比较关键
已经有36人回复
-
关于Filecode分析方法
已经有9人回复
-
2019年青年基金涵评意见，大家看看几个A，几个B?
已经有10人回复
-
不应该看fileCode
已经有6人回复
-
好奇怪的filecode
已经有6人回复
-
长年满屏的广告，版主太不责任了。基金也等的急
已经有4人回复
-
filecode
已经有15人回复
-
职称评审，求友友推荐见刊最快的期刊
已经有4人回复
-
奇怪，两个人的filecode固定段从头到尾一模一样
已经有10人回复
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 (幼儿园)
- 金币: 11682.3
- 散金: 2161
- 红花: 4
- 帖子: 5360
- 在线: 216.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
