47 |
INTEGER k |
INTEGER k |
48 |
|
|
49 |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
50 |
IF ( debugLevel.GT.debLevB ) THEN |
IF ( debugMode ) THEN |
51 |
WRITE(msgBuf,'(A,I9,2x,I9)') |
WRITE(msgBuf,'(A,I9,2x,I9)') |
52 |
& ' MDS_WR_REC_RS: iRec,Dim = ', iRec, nArr |
& ' MDS_WR_REC_RS: iRec,Dim = ', iRec, nArr |
53 |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |