1 2 SUBROUTINE EXKEY(INPFLD,NOKEY) 3 !*********************************************************************** 4 ! EXKEY Module of the AMS/EPA Regulatory Model - AERMOD 5 ! 6 ! PURPOSE: Extracts and Verifies Keyword 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 Keyword 16 ! 17 ! CALLED FROM: SETUP 18 !*********************************************************************** 19 ! 20 21 ! Variable Declarations 22 USE MAIN1 23 IMPLICIT NONE 24 CHARACTER MODNAM*12 25 26 SAVE 27 INTEGER :: I 28 CHARACTER INPFLD*8 29 LOGICAL NOKEY 30 31 ! Variable Initializations 32 NOKEY = .TRUE. ! 738 33 MODNAM = 'EXKEY' 34 35 ! Begin The Processing 36 IF ( INPFLD.NE.' ' ) THEN 37 ! Check the Read-in Keyword 38 KEYWRD = INPFLD ! 720 39 DO I = 1 , IKN 40 ! In Case of Match Set NOKEY to FALSE 41 IF ( INPFLD.EQ.KEYWD(I) ) THEN ! 20598 42 NOKEY = .FALSE. ! 720 43 ! Exit to END 44 GOTO 999 45 ENDIF 46 ENDDO 47 ELSE 48 ! In Case of Blank Field, Keyword Is Set to Previous Keyword 49 NOKEY = .FALSE. ! 18 50 KEYWRD = PKEYWD 51 ENDIF 52 53 999 CONTINUE ! 738 54 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