1 2 SUBROUTINE EXPATH(INPFLD,PATHWY,IPN,NOPATH) 3 !*********************************************************************** 4 ! EXPATH Module of the AMS/EPA Regulatory Model - AERMOD 5 ! 6 ! PURPOSE: Extracts and Verifies Pathway ID from 7 ! Runstream Input Card Image 8 ! 9 ! PROGRAMMER: Jeff Wang, Roger Brode 10 ! 11 ! DATE: March 2, 1992 12 ! 13 ! INPUTS: Input Runstream Card Image 14 ! 15 ! OUTPUTS: The Extracted Pathway ID 16 ! 17 ! CALLED FROM: SETUP 18 !*********************************************************************** 19 ! 20 ! Variable Declarations 21 USE MAIN1 22 IMPLICIT NONE 23 CHARACTER MODNAM*12 24 25 SAVE 26 INTEGER :: I 27 CHARACTER(LEN=2) , INTENT(IN) :: INPFLD 28 CHARACTER(LEN=2) , INTENT(IN) , DIMENSION(:) :: PATHWY 29 INTEGER , INTENT(IN) :: IPN 30 LOGICAL , INTENT(OUT) :: NOPATH 31 32 ! Variable Initializations 33 NOPATH = .TRUE. ! 750 34 MODNAM = 'EXPATH' 35 36 ! Begin The Processing 37 IF ( INPFLD.NE.' ' ) THEN 38 ! Check the Read-in Pathway 39 PATH = INPFLD ! 534 40 DO I = 1 , IPN 41 ! In Case of Match Set NOPATH to FALSE and Set Path Number, IPNUM 42 IF ( INPFLD.EQ.PATHWY(I) ) THEN ! 1212 43 NOPATH = .FALSE. ! 534 44 IPNUM = I 45 ! Exit to END 46 GOTO 999 47 ENDIF 48 ENDDO 49 ELSE 50 ! In Case of Blank Field Set Pathway to Previous Pathway 51 NOPATH = .FALSE. ! 216 52 PATH = PPATH 53 IPNUM = IPPNUM 54 ENDIF 55 56 999 CONTINUE ! 750 57 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