![](https://iknow-base.cdn.bcebos.com/lxb/notice.png)
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) 展开
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) 展开
1个回答
展开全部
数组 P Q T 大小不能是变量,你必须定义时给定大小。不能是 I 变量
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询