您所在位置：主题：fortran程序中声明语句 AUTOMATIC (***,**,**）什么意思
ylchenghuang
[专家分：0] 发布于 2012-05-08 16:47:00
fortran子程序如下： INTEGER IL1,IL2,ILG,ILEV,fn_trchem,MSG
INTEGER chem_loc(fn_trchem)
REAL XROW(ni,nk,fn_trchem),PBLTROW(ni)
#include "chem_conv_point.cdk"
C -------------------------------------------------------L
INTEGER JLATPR,NUPS,ITRAC,IRAD,ik1
AUTOMATIC (TFROW, real, (NI,NK))
AUTOMATIC (TCVROW, real, (NI))
AUTOMATIC (WRK, real, (IDSZ))
AUTOMATIC (VA, real, (IVA))
AUTOMATIC (ZCLFROW, real, (NI,(nk-1),2))
AUTOMATIC (ZLWCROW, real, (NI,(nk-1),2))
AUTOMATIC (DQLDT, real, (NI,(nk-1)))
AUTOMATIC (DQLDTG, real, (NI,(nk-1)))
编译时出错，信息如下：
AUTOMATIC行 (S) Syntax is incorrect.
AUTOMATIC行 Incorrect character found in source at line 33 in column 7. Hexadecimal value of character is 7E.
请教各位大侠，是什么错误
INTEGER chem_loc(fn_trchem)
REAL XROW(ni,nk,fn_trchem),PBLTROW(ni)
#include "chem_conv_point.cdk"
C -------------------------------------------------------L
INTEGER JLATPR,NUPS,ITRAC,IRAD,ik1
AUTOMATIC (TFROW, real, (NI,NK))
AUTOMATIC (TCVROW, real, (NI))
AUTOMATIC (WRK, real, (IDSZ))
AUTOMATIC (VA, real, (IVA))
AUTOMATIC (ZCLFROW, real, (NI,(nk-1),2))
AUTOMATIC (ZLWCROW, real, (NI,(nk-1),2))
AUTOMATIC (DQLDT, real, (NI,(nk-1)))
AUTOMATIC (DQLDTG, real, (NI,(nk-1)))
编译时出错，信息如下：
AUTOMATIC行 (S) Syntax is incorrect.
AUTOMATIC行 Incorrect character found in source at line 33 in column 7. Hexadecimal value of character is 7E.
请教各位大侠，是什么错误
