24小时热门版块排行榜    

查看: 491  |  回复: 2
本帖产生 1 个 程序强帖 ,点击这里进行查看

panjunxing

木虫 (著名写手)


[交流] 【求助】紧急求助FORTRAN运行问题

附件中是一个简单的fortran90程序,在fortran powerstation 4.0 中编译运行正常,但在compaq visural fortran 6.0中,编译提示没有错误,但在运行时总会出错,无法进行,请高手帮忙!急!!!


程序见附件
回复此楼

» 猜你喜欢

» 抢金币啦!回帖就可以得到:

查看全部散金贴

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

leedobb

金虫 (正式写手)


★ ★ ★
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

这样如果程序变量定义不恰当,编译器会指出来。
2楼2011-03-03 19:08:32
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

leedobb

金虫 (正式写手)


panjunxing(金币+10): 非常感谢! 2011-03-03 19:46:51
引用回帖:
Originally posted by panjunxing at 2011-03-03 18:47:29:
附件中是一个简单的fortran90程序,在fortran powerstation 4.0 中编译运行正常,但在compaq visural fortran 6.0中,编译提示没有错误,但在运行时总会出错,无法进行,请高手帮忙!急!!!


程序见附件

另外就算你的在以前的编译器能通过,那么结果可能也是错的,

因为可能出来的ran2随机数可能是一样。

因为ran2(123)说明每次种子都是一样。
3楼2011-03-03 19:10:22
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 panjunxing 的主题更新
普通表情 高级回复 (可上传附件)
信息提示
请填处理意见