这样一段代码:
DO K = KBEG,KEND
DO I = NPRBEG,NPREND
DO J= NPCBEG,NPCEND
cswm IF(I .EQ. NPRBEG .OR. I .EQ. NPREND .OR.
cswm & J .EQ. NPCBEG .OR. J .EQ. NPCEND)THEN
cswm IBOUND(J,I,K) = IBPFLG(LG)
cswm ELSEIF(K .EQ. KEND .AND. IBOTFLG .EQ. 1)THEN
cswm IBOUND(J,I,K) = IBPFLG(LG)
cswm ELSE
IF(INRES .NE. 0) CALL SGWF2LGR2RES(J,I)
ENDDO
ENDDO
ENDDO
请问,对于cswm开头的行,也是注释行吗? |