1 2 SUBROUTINE MSGWRT 3 !*********************************************************************** 4 ! MSGWRT Module of the AMS/EPA Regulatory Model - AERMOD 5 ! 6 ! PURPOSE: To Print Out The Error Summary Table 7 ! 8 ! PROGRAMMER: Jeff Wang 9 ! 10 ! DATE: March 2, 1992 11 ! 12 ! INPUTS: Input Error Message File 13 ! 14 ! OUTPUTS: The Error Message File 15 ! 16 ! CALLED FROM: This is A Utility Program 17 !*********************************************************************** 18 19 ! Variable Declarations 20 USE MAIN1 21 IMPLICIT NONE 22 CHARACTER MODNAM*12 23 24 SAVE 25 INTEGER :: IERRLN 26 CHARACTER ERRTP*1 , ERRCD*3 , ERRMG1*50 , ERRMG2*8 27 28 ! Variable Initialization 29 MODNAM = 'MSGWRT' ! 0 30 31 ! Write Out The Header Of The Message File 32 WRITE (IERWRT,*) ' ' 33 WRITE (IERWRT,*) & 34 & ' ************ Error Message List *************' 35 WRITE (IERWRT,*) ' ' 36 WRITE (IERWRT,*) & 37 & ' PW --- Pathway ' 38 WRITE (IERWRT,*) & 39 & ' Code --- Error Type + Error Code ' 40 WRITE (IERWRT,*) & 41 & ' L# --- The Line Number Where Error Occurs' 42 WRITE (IERWRT,*) & 43 & ' ModNam --- Module Name In Which Error Occurs ' 44 WRITE (IERWRT,*) & 45 & ' Hints --- Hints For The Possible Solution ' 46 WRITE (IERWRT,*) & 47 & ' *********************************************' 48 WRITE (IERWRT,*) ' ' 49 WRITE (IERWRT,1114) 50 1114 FORMAT ('PW CODE L# MODNAM ',18X,'ERROR MESSAGES',20X,'HINTS') 51 WRITE (IERWRT,1115) 52 1115 FORMAT ('-- ---- ----- ------ ',50('-'),' --------') 53 WRITE (IERWRT,*) ' ' 54 REWIND IERUNT 55 EOF = .FALSE. 56 57 DO WHILE ( .NOT.EOF ) 58 READ (IERUNT,1116,END=99,ERR=999) PATH , ERRTP , ERRCD , & 59 & IERRLN , MODNAM , ERRMG1 , ERRMG2 60 61 1116 FORMAT (A2,1X,A1,A3,I6,1X,A6,1X,A50,1X,A8) 62 WRITE (IERWRT,1117) PATH , ERRTP , ERRCD , IERRLN , MODNAM(1:6)& 63 & , ERRMG1 , ERRMG2 64 1117 FORMAT (A2,1X,A1,A3,I6,1X,A6,':',A50,1X,A8) 65 GOTO 11 66 99 EOF = .TRUE. ! 0 67 11 CONTINUE ! 0 68 ENDDO 69 70 GOTO 1000 ! 0 71 72 ! WRITE Error Message: Error Reading Temp Error Message File 73 999 CALL ERRHDL(PATH,MODNAM,'E','510','ERRORMSG') ! 0 74 75 1000 CONTINUE ! 0 76 END
HyperKWIC - Version 1.00DD executed at 20:00 on 1 Mar 2018 | Personal or Academic or Evaluation User | Free for Non-Commercial, Non-Government Use