24小时热门版块排行榜    

Znn3bq.jpeg
查看: 563  |  回复: 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 的主题更新
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 求计算机方向调剂 +3 Toffee2 2026-04-16 6/300 2026-04-19 22:37 by ll叶
[考研] 26药学专硕105500求调剂 +7 喽哈加油 2026-04-13 8/400 2026-04-19 20:21 by Equinoxhua
[考博] 申博自荐 +4 Linxia林夏 2026-04-13 4/200 2026-04-19 19:55 by Equinoxhua
[考研] 291求调剂 +11 关忆北. 2026-04-14 11/550 2026-04-19 17:16 by 中豫男
[考研] 求调剂 +10 小聂爱学习 2026-04-16 12/600 2026-04-19 16:51 by 中豫男
[考研] 085404 22408 309分求调剂 +10 lzmk 2026-04-14 11/550 2026-04-19 16:42 by 中豫男
[考研] 求调剂 +6 苦命人。。。 2026-04-18 7/350 2026-04-19 16:27 by 中豫男
[论文投稿] 有没有接收比较快的sci期刊呀,最好在一个月之内的,研三孩子求毕业 20+4 之护着 2026-04-16 6/300 2026-04-19 13:00 by Aaron_zyn
[考研] 307中医考研调剂 +9 于以采蘩 2026-04-14 9/450 2026-04-19 08:41 by 烟雨流涯
[考研] 294求调剂 +15 淡然654321 2026-04-15 15/750 2026-04-19 08:20 by cuisz
[考研] 300求调剂 +12 橙a777 2026-04-15 12/600 2026-04-18 23:51 by 路病情
[考研] 一志愿沪9,326求生物学调剂 +12 刘墨墨 2026-04-13 12/600 2026-04-18 23:31 by 路病情
[考研] 生物学调剂 +10 纸扇zhishan 2026-04-13 10/500 2026-04-18 21:19 by zqndavala
[考研] 260求调剂 +4 Zyt1314520.. 2026-04-17 5/250 2026-04-18 08:28 by babysonlkd
[考博] 申博/考博 +3 啃面包的小书虫 2026-04-17 4/200 2026-04-17 23:54 by 阳阳阳^_^
[有机交流] 二苯甲酮酸类衍生物 50+3 小白爱主人 2026-04-17 6/300 2026-04-17 18:47 by kf2781974
[考研] 297工科调剂? +14 河南农业大学-能 2026-04-13 15/750 2026-04-15 13:25 by 黑科技矿业
[考研] 各位老师好,求调剂,本科211,一志愿天津大学生物与医药学硕,差两名录取。 +11 路六六jjj 2026-04-13 11/550 2026-04-14 16:01 by zs92450
[考研] 考研调剂 +13 长弓傲 2026-04-13 14/700 2026-04-14 14:44 by zs92450
[考研] 245求调剂 +6 冰糖橘?汽水 2026-04-13 10/500 2026-04-14 10:49 by jyl0317
信息提示
请填处理意见