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 , & #77 WRITE (IOUNIT,1117) PATH , ERRTP , ERRCD , IERRLN , & #98 READ (IERUNT,1116,END=999,ERR=9999) PATH , ERRTP , ERRCD , & #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 , & #48 INPFLD = ERRCD ! 1280
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