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