| 查看: 634 | 回复: 2 | |||
| 本帖产生 1 个 程序强帖 ，点击这里进行查看 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
[交流]
【求助】紧急求助FORTRAN运行问题
|
|||
|
附件中是一个简单的fortran90程序，在fortran powerstation 4.0 中编译运行正常，但在compaq visural fortran 6.0中，编译提示没有错误，但在运行时总会出错，无法进行，请高手帮忙！急！！！ 程序见附件 |
回复此楼» 猜你喜欢
我就是申请一个面上项目而已，这评审意见是按照杰青的条件评的吧？
已经有4人回复
-
售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急
已经有4人回复
-
售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急
已经有4人回复
-
售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急
已经有4人回复
-
售SCI文章，我:8O.5.5.1O.54,科目全,可十急
已经有3人回复
-
有多少人是今天查系统知道结果的？
已经有18人回复
-
国自然评审意见
已经有15人回复
-
为什么资助数各大高校都创新高，自己申请怎么就这么难
已经有13人回复
-
国自然面上复盘~欢迎讨论
已经有14人回复
-
系统查不到
已经有11人回复
3楼2011-03-03 19:10:22
★ ★ ★
panjunxing(金币+10): 非常感谢！ 2011-03-03 19:46:28
余泽成(金币+3, 程序强帖+1): 谢谢参与应助！欢迎常来程序语言版！ 2011-03-06 22:06:34
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
30