【求助】紧急求助FORTRAN运行问题 - 程序语言 - Fortran

版块导航: 正在加载中...

客户端APP下载

论文辅导

申博辅导

登录注册

应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜

返回列表

本帖产生 1 个程序强帖，点击这里进行查看

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

leedobb

金虫 (正式写手)

程序强帖: 1
应助: 77 (初中生)
金币: 152.4
帖子: 856
在线: 270.4小时
虫号: 1199535

★ ★ ★
panjunxing(金币+10): 非常感谢！ 2011-03-03 19:46:28
余泽成(金币+3, 程序强帖+1): 谢谢参与应助！欢迎常来程序语言版！ 2011-03-06 22:06:34

请按照下面把其中一个函数改一下
subroutine init1()
use base
integer::i,j,idum
real::ra,ran2
idum=123
   do  i=0,n
   do  j=0,n
ra=ran2(idum)
fei_old(i,j)=0.01*(2.0*ra-1.0)-0.0
   END DO
   END DO
end subroutine

=========
fortran编程最好在主程序开始前及每个子程序开始时定义变量之前加入
implicit none

这样如果程序变量定义不恰当，编译器会指出来。

赞一下(1人)

回复此楼

2楼2011-03-03 19:08:32

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

相关版块跳转我要订阅楼主 panjunxing 的主题更新

返回列表