ASNGRP.f90#2 SUBROUTINE ASNGRP(INID,LOWID,HIGID,INGRP) #23 LOGICAL INGRP #28 INGRP = .FALSE. #38 & (IID2.GE.LID2 .AND. IID2.LE.HID2) ) INGRP = .TRUE. DSBLDG.f90#29 LOGICAL FIND , INGRP , RMARK #33 INGRP = .FALSE. #78 CALL ASNGRP(SRCID(I),LID,HID,INGRP) ! 0 #79 IF ( INGRP .AND. SRCTYP(I).EQ.'POINT' ) THEN EMVARY.f90#35 LOGICAL FIND , INGRP , RMARK #39 INGRP = .FALSE. #107 CALL ASNGRP(SRCID(I),LID,HID,INGRP) ! 0 #108 IF ( INGRP ) THEN GASDEP.f90#31 LOGICAL FIND , INGRP , RMARK #35 INGRP = .FALSE. #128 CALL ASNGRP(SRCID(I),LID,HID,INGRP) ! 0 #129 IF ( INGRP ) THEN HREMIS.f90#27 LOGICAL FOPEN , INGRP #86 CALL ASNGRP(SRCID(K),LOWID,HIGID,INGRP) ! 0 #87 IF ( INGRP ) QFLAG(K) = 'HOURLY' INPPDM.f90#31 LOGICAL FIND , INGRP , RMARK #35 INGRP = .FALSE. #83 CALL ASNGRP(SRCID(I),LID,HID,INGRP) ! 0 #84 IF ( INGRP ) THEN INPPDN.f90#31 LOGICAL FIND , INGRP , RMARK #35 INGRP = .FALSE. #86 CALL ASNGRP(SRCID(I),LID,HID,INGRP) ! 0 #87 IF ( INGRP ) THEN INPPHI.f90#29 LOGICAL FIND , INGRP , RMARK #33 INGRP = .FALSE. #84 CALL ASNGRP(SRCID(I),LID,HID,INGRP) ! 0 #85 IF ( INGRP ) THEN METH_2.f90#28 LOGICAL FIND , INGRP , RMARK #32 INGRP = .FALSE. #103 CALL ASNGRP(SRCID(I),LID,HID,INGRP) ! 0 #104 IF ( INGRP ) THEN NO2RAT.f90#29 LOGICAL FIND , INGRP , RMARK #33 INGRP = .FALSE. #86 CALL ASNGRP(SRCID(I),LID,HID,INGRP) ! 0 #87 IF ( INGRP ) THEN OLMGRP.f90#28 LOGICAL CONT , INGRP , RMARK #86 CALL ASNGRP(SRCID(K),LOWID,HIGID,INGRP) ! 0 #87 IF ( INGRP ) THEN PRTDET.f90#27 INTEGER :: I , J , N , NSPP , NPAGE , IHR , INGRP #34 INGRP = 0 #37 INGRP = INGRP + 1 ! 0 #38 WORKID(INGRP) = SRCID(ISRC) #39 WAVEV(INGRP) = EV_AVEVAL(ISRC) #41 WHRVAL(IHR,INGRP) = HRVALS(IHR,ISRC) ! 0 #49 NPAGE = 1 + INT((INGRP-1)/NSPP) #64 & (WORKID(I),I=1+NSPP*(N-1),INGRP) #70 & (WHRVAL(I,J),J=1+NSPP*(N-1),INGRP) #72 WRITE (IOUNIT,9064) GRPAVE , (WAVEV(I),I=1+NSPP*(N-1),INGRP)! 0 PRTSOC.f90#31 INTEGER :: I , N , NROW , NPAGE , INGRP , IOGRP #39 INGRP = 0 #42 INGRP = INGRP + 1 ! 0 #43 WORKID(INGRP) = SRCID(ISRC) #44 HEADID(INGRP) = SRCID(ISRC) #45 WAVEV(INGRP) = EV_AVEVAL(ISRC) #49 IF ( INGRP.GT.34 ) THEN ! 0 #53 IOGRP = INGRP ! 0 #57 NROW = 1 + INT((INGRP-1)/3) ! 0 #86 WRITE (IOUNIT,9066) (WORKID(I),WAVEV(I),I=1+120*(N-1),INGRP)! 0 PRTSRC.f90#50 & INDC , INGRP #280 INGRP = 0 ! 3 #283 INGRP = INGRP + 1 ! 27 #284 WORKID(INGRP) = SRCID(K) #288 NL = 1 + INT((INGRP-1)/12) ! 3 #298 WRITE (IOUNIT,9068) GRPID(J) , (WORKID(I),I=1,INGRP) ! 3 #302 WRITE (IOUNIT,9067) (WORKID(I),I=1+12*(K-1),INGRP) ! 0 #312 INGRP = 0 ! 0 #315 INGRP = INGRP + 1 ! 0 #316 WORKID(INGRP) = SRCID(K) #320 NL = 1 + INT((INGRP-1)/12) ! 0 #333 WRITE (IOUNIT,9068) OLMID(J) , (WORKID(I),I=1,INGRP) ! 0 #337 WRITE (IOUNIT,9067) (WORKID(I),I=1+12*(K-1),INGRP) ! 0 SOGRP.f90#28 LOGICAL CONT , INGRP , RMARK #85 CALL ASNGRP(SRCID(K),LOWID,HIGID,INGRP) ! 0 #86 IF ( INGRP ) IGROUP(K,IGRP) = 1 URBANS.f90#29 LOGICAL INGRP , RMARK #54 CALL ASNGRP(SRCID(K),LOWID,HIGID,INGRP) ! 0 #55 IF ( INGRP ) URBSRC(K) = 'Y'
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