一个简单的FORTRAN程序,IF(IDBG.GE.1)THENWRITE(MAXWRT_MAXBUF(1),9010) FT,DKA,DKRCALL DMS_WRTTRM(1)ENDIF
来源:学生作业帮助网 编辑:作业帮 时间:2024/11/13 14:33:10
xŐON@Ҥ6iZ;0D/P@j #B aWph1FW.f&|o4
LopoM(VYVY
]HFS$aU!cYN$u͐qa#)J
1Q6
(#dKB,k)fq"'$Mv"?9_%e*I?FnʁcalQ:Mono^edi2\T.a wl2S V
WkMpZ`a|yp.j.:{LޠC> Wq
T{23߉k*2D/TðBmiuTbOS<*z?) >
一个简单的FORTRAN程序,IF(IDBG.GE.1)THENWRITE(MAXWRT_MAXBUF(1),9010) FT,DKA,DKRCALL DMS_WRTTRM(1)ENDIF
一个简单的FORTRAN程序,
IF(IDBG.GE.1)THEN
WRITE(MAXWRT_MAXBUF(1),9010) FT,DKA,DKR
CALL DMS_WRTTRM(1)
ENDIF
一个简单的FORTRAN程序,IF(IDBG.GE.1)THENWRITE(MAXWRT_MAXBUF(1),9010) FT,DKA,DKRCALL DMS_WRTTRM(1)ENDIF
我知道 这个很简单
程序的意思是如果IDGB大于等于1,则按9010(语句前得标号)格式写FT,DKA,DKR于文件MAXWRT_MAXBUF(1)中,然后再调用函数DMS_WRTTRM(1)。
如果IDBG>=1,则写FT,DKA,DKR于文件MAXWRT_MAXBUF(1)中,对应格式9010,
调用DMS_WRTTRM(1)函数
结束如果