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

一个简单的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)函数
结束如果