Question

下面是FORTRAN语言的一段子程序，请大家帮我改正一下错误。谢谢！

SUBROUTINE FBWORD(Q,M,MX,AA,U,KZ)
REAL KZ
INTEGER AA,P
DIMENSION AA(0:Q),U(P),KZ(M)
DO 101 I=2,Q
I1=AA(I-1)-AA(I)+I-1
I2=I-1
DO 101 P=I1,I2
U(I)=U(I)-KZ(AA(I)-I+P)*U(P)/KZ(AA(P))
101 CONTINUE
DO 102 I=Q,1,-1
IF(I+MX.LT.Q) THEN
L=I+MX
ELSE
L=Q
END IF
DO 103 P=I+1,L
IF(AA(P)-P+I.GT.AA(P-1)) U(I)=U(I)-KZ(AA(P)-P+I)*U(P)
103 CONTINUE
U(I)=U(I)/KZ(AA(I))
102 CONTINUE
WRITE(6,104) (U(I),I=1,Q)
104 FORMAT()
RETURN
END
下面是错误提示：
Compiling Fortran...
E:\360data\MSDEV98\My Projects\kl.for
E:\360data\MSDEV98\My Projects\kl.for(3) : Error: A specification expression object must be a dummy argument, a COMMON block object, or an object accessible through host or use association [P]
INTEGER AA,P
-------------------^
Error executing df.exe.

kl.exe - 1 error(s), 0 warning(s)

Answer 1

INTEGER AA,P
DIMENSION AA(0:Q),U(P),KZ(M)

此处，声明 U 为数组，其大小为 P
而 P 尚未确定。没有固定值。所以 U 的大小也无法确定。
变量不能直接作为数组的大小。（常量，虚参，common中的变量除外）
如果你确认要使用动态数组，请使用 allocatable 可分配数组。

追问

那么KZ里面的M呢？这个就能用吗？

追答

M是虚参