提示程序第10行,即real那一行提示错误,请问是什么原因?
错误1 error #5082: Syntax error, found END-OF-STATEMENT when expecting one of: %FILL <IDENTIFIER>C:\Users\admin\Desktop\Console1\Console1\Source1.for10
PROGRAM VALUE
IMPLICIT NONE
DIMENSION PROPS(36),PARAM(18),TABLE(2,18),TABLE0(18),TABLE1(18)
DATA PROPS/-10.0,6.48E+09,0.25,5.00E-05,0.1376,0.8624,0.,0.,0.,0.,
& 1.8616,0.041,0.,0.,0.,0.,0.000537,4.5,-5.,6.48E+09,0.25,5.00E-05,
& 0.1376,0.8624,0.,0.,0.,0.,1.8616,0.041,0.,0.,0.,0.,0.000537,4.5/
INTEGER NPROPS=36
INTEGER K1,K2,K3
REAL G0,ENU,EXPAN,G1,G2,G3,G4,G5,G6,TAO1,TAO2,TAO3,TAO4,TAO5,TAO6,BA,BP,TEMP1,TEMP0
NVALUE=NPROPS/18
TEMP=5.1
IF(NVALUE.EQ.1)THEN
DO K1=1,18
PARAM(K1)=PROPS(K1)
END DO
END IF
IF(NVALUE.GT.1)THEN
DO K1=1,NVALUE
DO K2=1,18
TABLE(K1,K2)=PROPS(18*(K1-1)+K2)
END DO
END DO
LOOP2:DO K1=1,NVALUE-1
TEMP1=TABLE(K1+1,1)
IF(TEMP.LT.TEMP1)THEN
TEMP0=TABLE(K1,1)
DO K2=1,18
TABLE1(K2)=TABLE(K1+1,K2)
TABLE0(K2)=TABLE(K1,K2)
END DO
DO K3=1,18
C 对不同温度时的参数进行插值
PARAM(K3)=TABLE0(K3)+(TEMP-TEMP0)
1 *(TABLE1(K3)-TABLE0(K3))/(TEMP1-TEMP0)
END DO
EXIT LOOP2
END IF
END DO LOOP2
IF(TEMP.LT.TABLE(1,1).OR.TEMP.GT.TABLE(NVALUE,1))THEN
DO K1=1,18
TABLE1(K1)=TABLE(NVALUE,K1)
TABLE0(K1)=TABLE(1,K1)
END DO
C 对不同温度时的参数进行插值
DO K2=1,18
PARAM(K2)=TABLE0(K2)+(TEMP-TABLE(1,1))*(TABLE1(K2)
1 -TABLE0(K2))/(TABLE(NVALUE,1)-TABLE(1,1))
END DO
END IF
END IF
C
C 级数形式
C
G0=PARAM(2)
ENU=PARAM(3)
EXPAN=PARAM(4)
G1=PARAM(5)
G2=PARAM(6)
G3=PARAM(7)
G4=PARAM(8)
G5=PARAM(9)
G6=PARAM(10)
TAO1=PARAM(11)
TAO2=PARAM(12)
TAO3=PARAM(13)
TAO4=PARAM(14)
TAO5=PARAM(15)
TAO6=PARAM(16)
BA=PARAM(17)
BP=PARAM(18)
WRITE(*,*),GO,G1,G2,G3
END PROGRAM VALUE
错误1 error #5082: Syntax error, found END-OF-STATEMENT when expecting one of: %FILL <IDENTIFIER>C:\Users\admin\Desktop\Console1\Console1\Source1.for10
PROGRAM VALUE
IMPLICIT NONE
DIMENSION PROPS(36),PARAM(18),TABLE(2,18),TABLE0(18),TABLE1(18)
DATA PROPS/-10.0,6.48E+09,0.25,5.00E-05,0.1376,0.8624,0.,0.,0.,0.,
& 1.8616,0.041,0.,0.,0.,0.,0.000537,4.5,-5.,6.48E+09,0.25,5.00E-05,
& 0.1376,0.8624,0.,0.,0.,0.,1.8616,0.041,0.,0.,0.,0.,0.000537,4.5/
INTEGER NPROPS=36
INTEGER K1,K2,K3
REAL G0,ENU,EXPAN,G1,G2,G3,G4,G5,G6,TAO1,TAO2,TAO3,TAO4,TAO5,TAO6,BA,BP,TEMP1,TEMP0
NVALUE=NPROPS/18
TEMP=5.1
IF(NVALUE.EQ.1)THEN
DO K1=1,18
PARAM(K1)=PROPS(K1)
END DO
END IF
IF(NVALUE.GT.1)THEN
DO K1=1,NVALUE
DO K2=1,18
TABLE(K1,K2)=PROPS(18*(K1-1)+K2)
END DO
END DO
LOOP2:DO K1=1,NVALUE-1
TEMP1=TABLE(K1+1,1)
IF(TEMP.LT.TEMP1)THEN
TEMP0=TABLE(K1,1)
DO K2=1,18
TABLE1(K2)=TABLE(K1+1,K2)
TABLE0(K2)=TABLE(K1,K2)
END DO
DO K3=1,18
C 对不同温度时的参数进行插值
PARAM(K3)=TABLE0(K3)+(TEMP-TEMP0)
1 *(TABLE1(K3)-TABLE0(K3))/(TEMP1-TEMP0)
END DO
EXIT LOOP2
END IF
END DO LOOP2
IF(TEMP.LT.TABLE(1,1).OR.TEMP.GT.TABLE(NVALUE,1))THEN
DO K1=1,18
TABLE1(K1)=TABLE(NVALUE,K1)
TABLE0(K1)=TABLE(1,K1)
END DO
C 对不同温度时的参数进行插值
DO K2=1,18
PARAM(K2)=TABLE0(K2)+(TEMP-TABLE(1,1))*(TABLE1(K2)
1 -TABLE0(K2))/(TABLE(NVALUE,1)-TABLE(1,1))
END DO
END IF
END IF
C
C 级数形式
C
G0=PARAM(2)
ENU=PARAM(3)
EXPAN=PARAM(4)
G1=PARAM(5)
G2=PARAM(6)
G3=PARAM(7)
G4=PARAM(8)
G5=PARAM(9)
G6=PARAM(10)
TAO1=PARAM(11)
TAO2=PARAM(12)
TAO3=PARAM(13)
TAO4=PARAM(14)
TAO5=PARAM(15)
TAO6=PARAM(16)
BA=PARAM(17)
BP=PARAM(18)
WRITE(*,*),GO,G1,G2,G3
END PROGRAM VALUE