MSGWRT.f90#26
      CHARACTER ERRTP*1 , ERRCD*3 , ERRMG1*50 , ERRMG2*8
#58
         READ (IERUNT,1116,END=99,ERR=999) PATH , ERRTP , ERRCD ,       &
#62
         WRITE (IERWRT,1117) PATH , ERRTP , ERRCD , IERRLN , MODNAM(1:6)&
SUMTBL.f90#27
      CHARACTER ERRTP*1 , ERRCD*3 , ERRMG1*50 , ERRMG2*8
#73
         READ (IERUNT,1116,END=99,ERR=9999) PATH , ERRTP , ERRCD ,      &
#75
         IF ( ERRTP.EQ.'E' ) THEN                                       !   1280
#77
            WRITE (IOUNIT,1117) PATH , ERRTP , ERRCD , IERRLN ,         &
#98
         READ (IERUNT,1116,END=999,ERR=9999) PATH , ERRTP , ERRCD ,     &
#100
         IF ( ERRTP.EQ.'W' ) THEN                                       !   1280
#104
                  WRITE (IOUNIT,1117) PATH , ERRTP , ERRCD , IERRLN ,   &
TERRST.f90#26
      CHARACTER ERRTP*1 , ERRCD*3 , ERRMG1*50 , ERRMG2*8 , INPFLD*3
#42
         READ (IERUNT,1116,END=99,ERR=9999) PATH , ERRTP , ERRCD ,      &
#51
         IF ( ERRTP.EQ.'E' ) THEN
#53
         ELSEIF ( ERRTP.EQ.'W' ) THEN
#55
         ELSEIF ( ERRTP.EQ.'I' ) THEN

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