一个简单的FORTRAN程序,IF(IDBG.GE.1)THENWRITE(MAXWRT_MAXBUF(1),9010) FT,DKA,DKRCALL DMS_WRTTRM(1)ENDIF

来源:学生作业帮助网 编辑:作业帮 时间:2024/11/13 14:33:10
一个简单的FORTRAN程序,IF(IDBG.GE.1)THENWRITE(MAXWRT_MAXBUF(1),9010) FT,DKA,DKRCALL DMS_WRTTRM(1)ENDIF
xŐON@Ҥ6iZ;0D/P@j#B aWph1FW.f&|o4 LopoM(VYVY ]H FS$aU!cYN$u͐qa#)J 1 Q6 (#dKB,k)fq"'$Mv"?9_%e*I?FnʁcalQ:Mono^ edi2\T.a wl2SV 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)函数
结束如果