24小时热门版块排行榜

返回列表

当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

lvbida

银虫 (小有名气)

应助: 0 (幼儿园)
金币: 110.3
散金: 144
帖子: 61
在线: 258小时
虫号: 864899
注册: 2009-10-07

[求助] 求助高手帮忙编一个Fortran的小程序，重金悬赏......

需要一个Fortran的小程序，急求帮忙。

回复此楼

» 猜你喜欢

Bioresource Technology期刊，第一次返修的时候被退回好几次了已经有6人回复
2025冷门绝学什么时候出结果已经有4人回复
真诚求助：手里的省社科项目结项要求主持人一篇中文核心，有什么渠道能发核心吗已经有8人回复
寻求一种能扛住强氧化性腐蚀性的容器密封件已经有5人回复
论文投稿，期刊推荐已经有6人回复
请问哪里可以有青B申请的本子可以借鉴一下。已经有4人回复
孩子确诊有中度注意力缺陷已经有14人回复
请问下大家为什么这个铃木偶联几乎不反应呢已经有5人回复
请问有评职称，把科研教学业绩算分排序的高校吗已经有5人回复
天津工业大学郑柳春团队欢迎化学化工、高分子化学或有机合成方向的博士生和硕士生加入已经有4人回复

1楼2011-09-20 10:52:42

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

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,'元')"