您所在位置：主题：跪求大虾~一个子程序调试出错！
cooling_lee
[专家分：0] 发布于 2010-05-19 14:38:00
子程序如下：
SUBROUTINE F(T,Y,M,D)
DIMENSION Y(M),D(M)
DOUBLE PRECISION Y,D,T
3394*D(1)=2.17*(Y(3)-Y(1))**1.31+33.3*(Y(2)-Y(1))+(4.6-Y(1))
1316881*D(2)=4.25*(4.6-Y(2))+33.3*(Y(1)-Y(2))+(4.21*10**(-8))*((Y(3)+273)**4-(Y(2)+273)**4)
21250*D(3)=(4.21*10**(-8))((Y(2)+273)**4-(Y(3)+273)**4)+2.17*(Y(1)-Y(3))**1.31+10*(Y(4)-Y(3))
37800*D(4)=10*(Y(3)-Y(4))+46.5*(Y(5)-Y(4))
126960*D(5)=46.5*(Y(4)-Y(5))+25.17*(34.5-Y(5))
RETURN
END
错误如下：
--------------------Configuration: BISHE - Win32 Debug--------------------
Compiling Fortran...
D:\BIYESHEJI\BISHE\ZICHENGXU02.F90
D:\BIYESHEJI\BISHE\ZICHENGXU02.F90(5) : Warning: Illegal statement label field
1316881*D(2)=4.25*(4.6-Y(2))+33.3*(Y(1)-Y(2))+(4.21*10**(-8))*((Y(3)+273)**4-(Y(2)+273)**4)
-------^
D:\BIYESHEJI\BISHE\ZICHENGXU02.F90(4) : Error: Syntax error, found '*' when expecting one of: BLOCK BLOCKDATA PROGRAM TYPE COMPLEX BYTE CHARACTER DOUBLE DOUBLECOMPLEX ...
3394*D(1)=2.17*(Y(3)-Y(1))**1.31+33.3*(Y(2)-Y(1))+(4.6-Y(1))
----^
D:\BIYESHEJI\BISHE\ZICHENGXU02.F90(5) : Error: Syntax error, found '*' when expecting one of: BLOCK BLOCKDATA PROGRAM TYPE COMPLEX BYTE CHARACTER DOUBLE DOUBLECOMPLEX ...
1316881*D(2)=4.25*(4.6-Y(2))+33.3*(Y(1)-Y(2))+(4.21*10**(-8))*((Y(3)+273)**4-(Y(2)+273)**4)
-------^
D:\BIYESHEJI\BISHE\ZICHENGXU02.F90(6) : Error: Syntax error, found '*' when expecting one of: BLOCK BLOCKDATA PROGRAM TYPE COMPLEX BYTE CHARACTER DOUBLE DOUBLECOMPLEX ...
21250*D(3)=(4.21*10**(-8))((Y(2)+273)**4-(Y(3)+273)**4)+2.17*(Y(1)-Y(3))**1.31+10*(Y(4)-Y(3))
-----^
D:\BIYESHEJI\BISHE\ZICHENGXU02.F90(6) : Error: Syntax error, found '(' when expecting one of: * :: , <END-OF-STATEMENT> ; : ) + . - (/ [ ] /) ** / > // .LT. < ...
21250*D(3)=(4.21*10**(-8))((Y(2)+273)**4-(Y(3)+273)**4)+2.17*(Y(1)-Y(3))**1.31+10*(Y(4)-Y(3))
--------------------------^
D:\BIYESHEJI\BISHE\ZICHENGXU02.F90(8) : Warning: Illegal statement label field
126960*D(5)=46.5*(Y(4)-Y(5))+25.17*(34.5-Y(5))
------^
D:\BIYESHEJI\BISHE\ZICHENGXU02.F90(7) : Error: Syntax error, found '*' when expecting one of: BLOCK BLOCKDATA PROGRAM TYPE COMPLEX BYTE CHARACTER DOUBLE DOUBLECOMPLEX ...
37800*D(4)=10*(Y(3)-Y(4))+46.5*(Y(5)-Y(4))
-----^
D:\BIYESHEJI\BISHE\ZICHENGXU02.F90(8) : Error: Syntax error, found '*' when expecting one of: BLOCK BLOCKDATA PROGRAM TYPE COMPLEX BYTE CHARACTER DOUBLE DOUBLECOMPLEX ...
126960*D(5)=46.5*(Y(4)-Y(5))+25.17*(34.5-Y(5))
------^
D:\BIYESHEJI\BISHE\ZICHENGXU02.F90(5) : Error: This label has too many digits; a label has a maximum of a 4 digit integer. [1316881]
1316881*D(2)=4.25*(4.6-Y(2))+33.3*(Y(1)-Y(2))+(4.21*10**(-8))*((Y(3)+273)**4-(Y(2)+273)**4)
^
D:\BIYESHEJI\BISHE\ZICHENGXU02.F90(8) : Error: This label has too many digits; a label has a maximum of a 4 digit integer. [126960]
126960*D(5)=46.5*(Y(4)-Y(5))+25.17*(34.5-Y(5))
^
Error executing df.exe.
ZICHENGXU02.OBJ - 8 error(s), 2 warning(s)
跪求大虾 帮忙解决~~因本人是新手，另这是毕业论文，很急的 谢谢各位大虾啦~~
SUBROUTINE F(T,Y,M,D)
DIMENSION Y(M),D(M)
DOUBLE PRECISION Y,D,T
3394*D(1)=2.17*(Y(3)-Y(1))**1.31+33.3*(Y(2)-Y(1))+(4.6-Y(1))
1316881*D(2)=4.25*(4.6-Y(2))+33.3*(Y(1)-Y(2))+(4.21*10**(-8))*((Y(3)+273)**4-(Y(2)+273)**4)
21250*D(3)=(4.21*10**(-8))((Y(2)+273)**4-(Y(3)+273)**4)+2.17*(Y(1)-Y(3))**1.31+10*(Y(4)-Y(3))
37800*D(4)=10*(Y(3)-Y(4))+46.5*(Y(5)-Y(4))
126960*D(5)=46.5*(Y(4)-Y(5))+25.17*(34.5-Y(5))
RETURN
END
错误如下：
--------------------Configuration: BISHE - Win32 Debug--------------------
Compiling Fortran...
D:\BIYESHEJI\BISHE\ZICHENGXU02.F90
D:\BIYESHEJI\BISHE\ZICHENGXU02.F90(5) : Warning: Illegal statement label field
1316881*D(2)=4.25*(4.6-Y(2))+33.3*(Y(1)-Y(2))+(4.21*10**(-8))*((Y(3)+273)**4-(Y(2)+273)**4)
-------^
D:\BIYESHEJI\BISHE\ZICHENGXU02.F90(4) : Error: Syntax error, found '*' when expecting one of: BLOCK BLOCKDATA PROGRAM TYPE COMPLEX BYTE CHARACTER DOUBLE DOUBLECOMPLEX ...
3394*D(1)=2.17*(Y(3)-Y(1))**1.31+33.3*(Y(2)-Y(1))+(4.6-Y(1))
----^
D:\BIYESHEJI\BISHE\ZICHENGXU02.F90(5) : Error: Syntax error, found '*' when expecting one of: BLOCK BLOCKDATA PROGRAM TYPE COMPLEX BYTE CHARACTER DOUBLE DOUBLECOMPLEX ...
1316881*D(2)=4.25*(4.6-Y(2))+33.3*(Y(1)-Y(2))+(4.21*10**(-8))*((Y(3)+273)**4-(Y(2)+273)**4)
-------^
D:\BIYESHEJI\BISHE\ZICHENGXU02.F90(6) : Error: Syntax error, found '*' when expecting one of: BLOCK BLOCKDATA PROGRAM TYPE COMPLEX BYTE CHARACTER DOUBLE DOUBLECOMPLEX ...
21250*D(3)=(4.21*10**(-8))((Y(2)+273)**4-(Y(3)+273)**4)+2.17*(Y(1)-Y(3))**1.31+10*(Y(4)-Y(3))
-----^
D:\BIYESHEJI\BISHE\ZICHENGXU02.F90(6) : Error: Syntax error, found '(' when expecting one of: * :: , <END-OF-STATEMENT> ; : ) + . - (/ [ ] /) ** / > // .LT. < ...
21250*D(3)=(4.21*10**(-8))((Y(2)+273)**4-(Y(3)+273)**4)+2.17*(Y(1)-Y(3))**1.31+10*(Y(4)-Y(3))
--------------------------^
D:\BIYESHEJI\BISHE\ZICHENGXU02.F90(8) : Warning: Illegal statement label field
126960*D(5)=46.5*(Y(4)-Y(5))+25.17*(34.5-Y(5))
------^
D:\BIYESHEJI\BISHE\ZICHENGXU02.F90(7) : Error: Syntax error, found '*' when expecting one of: BLOCK BLOCKDATA PROGRAM TYPE COMPLEX BYTE CHARACTER DOUBLE DOUBLECOMPLEX ...
37800*D(4)=10*(Y(3)-Y(4))+46.5*(Y(5)-Y(4))
-----^
D:\BIYESHEJI\BISHE\ZICHENGXU02.F90(8) : Error: Syntax error, found '*' when expecting one of: BLOCK BLOCKDATA PROGRAM TYPE COMPLEX BYTE CHARACTER DOUBLE DOUBLECOMPLEX ...
126960*D(5)=46.5*(Y(4)-Y(5))+25.17*(34.5-Y(5))
------^
D:\BIYESHEJI\BISHE\ZICHENGXU02.F90(5) : Error: This label has too many digits; a label has a maximum of a 4 digit integer. [1316881]
1316881*D(2)=4.25*(4.6-Y(2))+33.3*(Y(1)-Y(2))+(4.21*10**(-8))*((Y(3)+273)**4-(Y(2)+273)**4)
^
D:\BIYESHEJI\BISHE\ZICHENGXU02.F90(8) : Error: This label has too many digits; a label has a maximum of a 4 digit integer. [126960]
126960*D(5)=46.5*(Y(4)-Y(5))+25.17*(34.5-Y(5))
^
Error executing df.exe.
ZICHENGXU02.OBJ - 8 error(s), 2 warning(s)
跪求大虾 帮忙解决~~因本人是新手，另这是毕业论文，很急的 谢谢各位大虾啦~~
