CHKREC.f90#87 9003 FORMAT (31X,A8,5X,F13.1,1X,F13.1,7X,F10.2) #130 9004 FORMAT (31X,A8,5X,F13.1,1X,F13.1,7X,' OPENPIT') ERRHDL.f90#72 1111 FORMAT (A2,1X,A1,A3,I6,1X,A6,':',A50,1X,A8) EVALFL.f90#190 9000 FORMAT (1X,A8,1X,I8.8,1X,A8,4(1X,G12.6),/,9X,6(1X,G12.4),/,9X, & HEADER.f90#61 & ' ***',8X,A8) #63 9029 FORMAT (36X,'*** ',A68,' ***',8X,A8) MEOPEN.f90#91 1901 FORMAT (2A10,T31,A6,T38,A8,T48,A6,T55,A8,T65,A6,T72,A8,T94,I5) MEREAD.f90#77 1900 FORMAT (2A10,T31,A6,T38,A8,T48,A6,T55,A8,T65,A6,T72,A8,T94,I5) METEXT.f90#129 1900 FORMAT (2A10,T31,A6,T38,A8,T48,A6,T55,A8,T65,A6,T72,A8,T94,I5) MSGWRT.f90#61 1116 FORMAT (A2,1X,A1,A3,I6,1X,A6,1X,A50,1X,A8) #64 1117 FORMAT (A2,1X,A1,A3,I6,1X,A6,':',A50,1X,A8) MXEVNT.f90#74 1901 FORMAT (3X,'EVENTPER',1X,A8,1X,I3,2X,A8,3X,I8.8,& #78 1911 FORMAT (3X,'EVENTLOC',1X,A8,1X,'XR= ',F14.5, & #83 1902 FORMAT (4X,'EVENTPER',1X,A8,1X,I3,2X,A8,3X,I8.8,& #87 1912 FORMAT (4X,'EVENTLOC',1X,A8,1X,'XR= ',F14.5, & #92 1903 FORMAT (5X,'EVENTPER',1X,A8,1X,I3,2X,A8,3X,I8.8,& #96 1913 FORMAT (5X,'EVENTLOC',1X,A8,1X,'XR= ',F14.5, & #101 1904 FORMAT (6X,'EVENTPER',1X,A8,1X,I3,2X,A8,3X,I8.8,& #105 1914 FORMAT (6X,'EVENTLOC',1X,A8,1X,'XR= ',F14.5, & OUMXFL.f90#228 & 'FOR SOURCE GROUP: ',A8,/'*',9X,'FORMAT: ',A60) OUPOST.f90#306 & ' FOR SOURCE GROUP: ',A8,/'*',9X,'FOR A TOTAL OF ',I5, & PLOTFL.f90#68 & A8,/'*',9X,'FOR A TOTAL OF ',I5, & #74 & A5,' VALUES FOR SOURCE GROUP: ',A8,/'*',9X,& PLTANN.f90#65 & 'SOURCE GROUP: ',A8,/'*',9X,'FOR A TOTAL OF ',I5, & PRTANN.f90#83 9037 FORMAT (/35X,'*** NETWORK ID: ',A8, & #84 & ' ; NETWORK TYPE: ',A8,' ***') #280 & A8,/,5X,' OF SOURCE TYPE: ',A8, & #298 9011 FORMAT (/40X,'** ',A4,' OF ',A8,' IN ',A40,' **'/) #305 & 'VALUES FOR SOURCE GROUP:',1X,A8,' ***',/34X, & #306 & 'INCLUDING SOURCE(S): ',7(A8,', ',:),/10X, & #307 & 12(A8,', ',:)/10X,12(A8,', ',:)) #309 & 'VALUES FOR SOURCE GROUP:',1X,A8,' ***',/34X, & #310 & 'INCLUDING SOURCE(S): ',7(A8,', ',:),/10X, & #311 & 12(A8,', ',:)/10X,12(A8,', ',:)) #313 9047 FORMAT (4X,A8,': ',2(F12.2,2X),F13.5) PRTDAY.f90#72 9037 FORMAT (/35X,'*** NETWORK ID: ',A8, & #73 & ' ; NETWORK TYPE: ',A8,' ***') #253 & A8,/,5X,' OF SOURCE TYPE: ',A8, & #271 9011 FORMAT (/40X,'** ',A4,' OF ',A8,' IN ',A40,' **'/) #279 & ' ***'/24X,'FOR SOURCE GROUP:',1X,A8,/24X, & #280 & 'INCLUDING SOURCE(S): ',7(A8,', ',:),/10X, & #281 & 12(A8,', ',:)/10X,12(A8,', ',:)) #283 9047 FORMAT (4X,A8,': ',2(F12.2,2X),F13.5) PRTDET.f90#56 9058 FORMAT (43X,'*** SOURCE CONTRIBUTIONS FOR EVENT: ',A8, & #114 9068 FORMAT (1X,'HOUR GROUP:',A8,' OF',3X,A8,7(6X,A8:)) PRTMAX.f90#177 9011 FORMAT (/40X,'** ',A4,' OF ',A8,' IN ',A40,' **'/) #179 & 'VALUES FOR SOURCE GROUP:',2X,A8,' ***'/36X, & #180 & 'INCLUDING SOURCE(S): ',7(A8,', ',:),/10x,12(A8,', ',:)& #181 & /10x,12(A8,', ',:)) PRTNHI.f90#116 9001 FORMAT (3X,'EVENTPER',1X,A8,1X,I3,2X,A8,3X,I8.8,3X, & #120 9002 FORMAT (3X,'EVENTLOC',1X,A8,1X,'XR= ',F14.5,' YR= ', & PRTOPT.f90#227 9048 FORMAT (1X,'**The Model Assumes A Pollutant Type of: ',A8) PRTPM10.f90#76 9037 FORMAT (/35X,'*** NETWORK ID: ',A8, & #77 & ' ; NETWORK TYPE: ',A8,' ***') #255 & A8,/,5X,' OF SOURCE TYPE: ',A8, & #278 9011 FORMAT (/40X,'** ',A4,' OF ',A8,' IN ',A40,' **'/) #285 & 'OVER',1X,I2,' YEARS FOR SOURCE GROUP:',1X,A8,' ***',/34X,& #286 & 'INCLUDING SOURCE(S): ',7(A8,', ',:),/10X, & #287 & 12(A8,', ',:)/10X,12(A8,', ',:)) #289 9047 FORMAT (4X,A8,': ',2(F12.2,2X),F13.5) PRTPM10SUM.f90#155 1002 FORMAT (1X,A8,' HIGH ',A4,' HIGH VALUE IS',F14.5,A1,' ON ',I8.8, & #157 & A8) #160 & A8) #161 1004 FORMAT (1X,A8,' HIGH ',A4,' HIGH VALUE IS',F14.5,A1,' ON ',I8.8, & #167 1012 FORMAT (/1X,A8,A4,' HIGHEST VALUE IS',F14.5,' AT ','(', & #168 & 2(F11.2,', '),2(F9.2,', '),F9.2,')',2X,A2,3X,A8) #170 & 2(F9.2,', '),F9.2,')',2X,A2,3X,A8) #171 1014 FORMAT (/1X,A8,A4,' HIGHEST VALUE IS',F14.5,' AT ','(', & #175 9011 FORMAT (/40X,'** ',A4,' OF ',A8,' IN ',A40,' **'/) PRTREC.f90#383 9037 FORMAT (/34X,'*** NETWORK ID: ',A8,' ; NETWORK TYPE: ',A8,' ***') #392 9047 FORMAT (3X,A8,': (',F9.1,', ',3(F7.1,', '),F7.1,'); ') PRTSOC.f90#70 9058 FORMAT (43X,'*** SOURCE CONTRIBUTIONS FOR EVENT: ',A8, & #76 9068 FORMAT (1X,'GROUP ID: ',A8,1X,'OF SOURCES: ',10(A8,', ')/12x, & #77 & 12(A8,', ')/12x,12(A8,', ')) #94 9066 FORMAT (3(2X,A8,4X,F13.5,9X:)) PRTSRC.f90#113 9047 FORMAT (3X,A8,3X,A5,2X,E11.5,2F10.1,F8.1,4F9.2,6X,A3,6X,A3, & #143 9075 FORMAT (3X,A8,2X,I5,3X,E11.5,2F10.1,F8.1,F9.2,1X,F8.2,1X, & #176 9077 FORMAT (3X,A8,2X,I5,3X,E11.5,2F10.1,F8.1,F9.2,3(1X,F9.2),1X,& #207 9079 FORMAT (3X,A8,2X,I5,3X,E11.5,2F10.1,F8.1,F9.2,2X,F9.2,4X,I4,& #238 9081 FORMAT (3X,A8,2X,I5,3X,E11.5,2F10.1,F8.1,F9.2,4X,I4,5X,F8.2,& #272 9083 FORMAT (3X,A8,2X,I5,3X,E11.5,2F10.1,F8.1,F9.2,3(1X,F9.2),3X,& #462 9062 FORMAT (/' SOURCE ID: ',A8,/, & #485 9005 FORMAT (/10X,' SOURCE ID = ',A8,' ; SOURCE TYPE = ',A8, & #629 9009 FORMAT (/' SOURCE ID = ',A8,' ; SOURCE TYPE = ',A8,' :') #630 99009 FORMAT (' SOURCE ID = ',A8,' ; SOURCE TYPE = ',A8,' :') #637 99019 FORMAT (46X,'SEASON = ',A6,'; DAY OF WEEK = ',A8) #639 9050 FORMAT (//10X,'*** SOURCE ID = ',A8,'; SOURCE TYPE = ',A8,' ***') #644 9061 FORMAT (1X,4(A8,3X,F7.3,10X)) #645 9068 FORMAT (//2X,A8,1X,12(1X,A8,',')) #646 9067 FORMAT (/11X,12(1X,A8,',')) PRTSUM.f90#81 1012 FORMAT (/1X,A8,A4,' HIGHEST VALUE IS',F14.5,' AT ', & #83 & 3X,A8) #93 1014 FORMAT (/1X,A8,A4,' HIGHEST VALUE IS',F14.5,' AT ', & #115 & A8) #169 1004 FORMAT (1X,A8,' HIGH ',A4,' HIGH VALUE IS',F14.5, & #183 1002 FORMAT (1X,A8,' HIGH ',A4,' HIGH VALUE IS',F14.5, & #185 & 2(F9.2,', '),F9.2,')',2X,A2,3X,A8) #214 & 2(F9.2,', '),F9.2,')',2X,A2,3X,A8) #229 9011 FORMAT (/40X,'** ',A4,' OF ',A8,' IN ',A40,' **'/) PSTANN.f90#80 & 'SOURCE GROUP: ',A8,/'*',9X,'FOR A TOTAL OF ',I5,& PVMRM_CALC.f90#303 9987 FORMAT (1x,'DOM: ',i8,i5,1x,a8,2F11.4,1x,i4,1x,f10.3, & #310 9988 FORMAT (1x,'SUM: ',i8,i5,1x,a8,2F11.4,1x,i4,1x,f10.3, & SHOUT.f90#56 & 'SOURCE GROUP: ',A8,/'*',9X,'FOR A TOTAL OF ',I5, & SPRTHT.f90#75 9037 FORMAT (/35X,'*** NETWORK ID: ',A8, & #76 & ' ; NETWORK TYPE: ',A8,' ***') #277 & A8,/,5X,' OF SOURCE TYPE: ',A8, & #294 9011 FORMAT (/40X,'** ',A4,' OF ',A8,' IN ',A40,' **'/) #301 & 'VALUES FOR SOURCE GROUP:',2X,A8,' ***',/34X, & #302 & 'INCLUDING SOURCE(S): ',7(A8,', ',:),/10X, & #303 & 12(A8,', ':)/10X,12(A8,', ':)) #305 9047 FORMAT (4X,A8,': ',2(F11.2,2X),F13.5,A1,1X,'(',I8.8,')') SUMTBL.f90#139 1116 FORMAT (A2,1X,A1,A3,I6,1X,A6,1X,A50,1X,A8) #140 1117 FORMAT (1X,A2,1X,A1,A3,I6,1X,A6,':',A50,1X,A8) TERRST.f90#45 1116 FORMAT (A2,1X,A1,A3,I6,1X,A6,1X,A50,1X,A8)
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