AERMOD.f90#624      OPEN (UNIT=IERUNT,FILE='ERRMSG.TMP',STATUS='REPLACE')
#852      CLOSE (IERUNT,STATUS='DELETE')                                    !      3
ERRHDL.f90#44            WRITE (IERUNT,1111) PATHWY , INERTP , ICODE , ILINE ,       &
#68      WRITE (IERUNT,1111) PATHWY , INERTP , INERCD , ILINE , MODNAM(1:6)&
MAIN1.f90#158      INTEGER :: INUNIT , IOUNIT , MFUNIT , MPUNIT , IERUNT , IERWRT ,  &
#889     &     IERUNT/10/ , IERWRT/11/ , IDPUNT/12/ , IZUNIT/13/ ,          &
MSGWRT.f90#54      REWIND IERUNT
#58         READ (IERUNT,1116,END=99,ERR=999) PATH , ERRTP , ERRCD ,       &
SUMTBL.f90#69      REWIND IERUNT
#73         READ (IERUNT,1116,END=99,ERR=9999) PATH , ERRTP , ERRCD ,      &
#94      REWIND IERUNT
#98         READ (IERUNT,1116,END=999,ERR=9999) PATH , ERRTP , ERRCD ,     &
#130      BACKSPACE IERUNT                                                  !      4
TERRST.f90#39      REWIND IERUNT
#42         READ (IERUNT,1116,END=99,ERR=9999) PATH , ERRTP , ERRCD ,      &
#72      BACKSPACE IERUNT                                                  !      6


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