Question

FORTRAN中数组的声明和调用

定义了一个5维数组real :: U(152,52,52,5) 这个数组的数据随着计算不断在变，是不是可以定义成全局变量common U(152,52,52,5)，程序中需要调用子程序来改变该数组的值，或者用自定义函数来改变err1=error(U_old(152,52,52,5),U(152,52,52,5))，不知道是否可以这样写，调试时候提示err1=error(U_old(152,52,52,5),U(152,52,52,5))，中的U_old,U提示This name does not have a type, and must have an explicit type. 求高手指点

Answer 1

楼主的这种做法是可以的，你的错误只是 u_old,u你没有定义类型，如果都是整数的的话，在开始的时候将他们定义了应该就可以了。integer u , integer u_old楼主试一试。楼主应该是在编程的时候implicit none了

追问

U 和U_OLD都是 浮点数的数组 开始时候都定义了
又试了下 再单独 real U,U_old 还是提示This name does not have a type, and must have an explicit type.

追答

你可以吧你这部分的程序贴出来么

追问

program 123a
implicit none
real :: U(152,52,52,5),U_old(152,52,52,5),F(152,52,52,5),G(152,52,52,5),H(152,52,52,5)
call Init()
call bound()
do while(T1e-8)
n=n+1
write(*,*) "n=",n
call CFL()
T=T+dt
err1=error(U_old(152,52,52,5),U(152,52,52,5))
end if end do call output()

追答

楼主的错误应该不少首先program 123a最好改成a123，还有你比如说出现如下错误F:\fortran exercise\text\text.f90(8) : Error: This name does not have a type, and must have an explicit type. [N]
n=n+1
^
F:\fortran exercise\text\text.f90(11) : Error: This name does not have a type, and must have an explicit type. [DT]
T=T+dt
--------^
F:\fortran exercise\text\text.f90(12) : Error: This name does not have a type, and must have an explicit type. [ERROR]
你看到每一个错误的后面都有一个中括号
分别是 [N]
，[DT]
[ERROR]
那么括号中的就是你未定义的字符串。 希望对你有帮助