下面是FORTRAN语言的一段子程序,请大家帮我改正一下错误.谢谢!
下面是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:360dataMSDEV98My Projectskl.for
E:360dataMSDEV98My Projectskl.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)