fortran程序出现问题 求大神解决 在线等

programmainimplicitnoneINTEGERIinteger::A(5)=(/1,2,2,2,1/)integeR::B(5)=(/0,-1,-1,-1,... program main
implicit none
INTEGER I
integer::A(5)=(/1,2,2,2,1/)
integeR::B(5)=(/0,-1,-1,-1,0/)
INTEGER::C(5)=(/0,-1,-1,-1,0/)
INTEGER::D(5)=(/1,0,0,0,100/)
integer,parameter::NI=5
integer,parameter::ISTART=2
INTEGER ISTEM1
INTEGER NIMI
INTEGER II
REAL TERM
REAL TERM1
REAL P(I)
REAL Q(I)
REAL T(I)
T(1)=1.0
T(NI)=100.0
Q(NI)=T(NI)
P(1)=0.0
Q(1)=D(1)
NIMI=NI-1
DO I=ISTART,NIMI
TERM1=A(I)-C(I)*P(I-1)
IF (TERM1.EQ.0.0) TERM1=1.0E-30
TERM=1/TERM1
P(I)=B(I)*TERM
Q(I)=(D(I)+C(I)*D(I-1))*TERM
END DO
DO II=ISTART,NIMI
I=NI+1-II
T(I)=P(I)*T(I+1)+Q(I)
WRITE(*,*)"T(I)=",T(I)
END DO
END
出现的问题是这样的:
C:\Program Files\Microsoft Visual Studio\MyProjects\CF\1.f90(3) : Error: A specification expression object must be a dummy argument, a COMMON block object, or an object accessible through host or use association [I]
INTEGER I
--------^
C:\Program Files\Microsoft Visual Studio\MyProjects\CF\1.f90(15) : Error: An automatic object is invalid in a main program. [P]
REAL P(I)
-----^
C:\Program Files\Microsoft Visual Studio\MyProjects\CF\1.f90(16) : Error: An automatic object is invalid in a main program. [Q]
REAL Q(I)
-----^
C:\Program Files\Microsoft Visual Studio\MyProjects\CF\1.f90(17) : Error: An automatic object is invalid in a main program. [T]
REAL T(I)
-----^
Error executing df.exe.

1.exe - 4 error(s), 0 warning(s)
展开
 我来答
天河流纹石
2014-04-18 · TA获得超过1.3万个赞
知道大有可为答主
回答量:7624
采纳率:76%
帮助的人:4053万
展开全部
数组 P Q T 大小不能是变量,你必须定义时给定大小。不能是 I 变量
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式