1 2 SUBROUTINE ASNGRP(INID,LOWID,HIGID,INGRP) 3 !*********************************************************************** 4 ! ASNGRP Module of the AMS/EPA Regulatory Model - AERMOD 5 ! 6 ! PURPOSE: Find Whether A Source ID is In The Specific Group 7 ! 8 ! PROGRAMMER: Roger Brode, Jeff Wang, Kevin Stroupe 9 ! 10 ! DATE: March 2, 1992 11 ! 12 ! INPUTS: Input Field Parameters 13 ! 14 ! OUTPUTS: Indicator for Source ID in The Group 15 ! 16 ! CALLED FROM: (This is An Utility Program) 17 !*********************************************************************** 18 ! 19 ! Variable Declarations 20 CHARACTER LOWID*8 , HIGID*8 , INID*8 , IID1*8 , LID1*8 , HID1*8 , & 21 & PATH*2 , MODNAM*6 , IID2*8 , LID2*8 , HID2*8 22 INTEGER IN , IL , IH 23 LOGICAL INGRP 24 25 ! Variable Initializations 26 MODNAM = 'ASNGRP' ! 0 27 PATH = 'SO' 28 INGRP = .FALSE. 29 30 ! Extract The Character Field And Numerical Field 31 CALL SETIDG(INID,IID1,IN,IID2) 32 CALL SETIDG(LOWID,LID1,IL,LID2) 33 CALL SETIDG(HIGID,HID1,IH,HID2) 34 35 ! Do Comparisons of Character and Numeric Fields, All Must Satisfy Ranges 36 IF ( (IID1.GE.LID1 .AND. IID1.LE.HID1) .AND. & 37 & (IN.GE.IL .AND. IN.LE.IH) .AND. & 38 & (IID2.GE.LID2 .AND. IID2.LE.HID2) ) INGRP = .TRUE. 39 40 CONTINUE 41 END
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