1 2 SUBROUTINE EFFILL(ISDX,IQMAX) 3 !*********************************************************************** 4 ! EFFILL Module of the AMS/EPA Regulatory Model - AERMOD 5 ! 6 ! PURPOSE: Fill Variable Emission Rate Array 7 ! 8 ! PROGRAMMER: Roger Brode, Jeff Wang 9 ! 10 ! DATE: March 2, 1992 11 ! 12 ! INPUTS: Input Runstream Image Parameters 13 ! 14 ! OUTPUTS: Direction Specific Building Directions 15 ! 16 ! CALLED FROM: EMVARY 17 !*********************************************************************** 18 19 ! Variable Declarations 20 USE MAIN1 21 IMPLICIT NONE 22 CHARACTER MODNAM*12 23 24 SAVE 25 INTEGER :: J , K , ISDX , IQMAX 26 27 ! Variable Initializations 28 MODNAM = 'EFFILL' ! 0 29 30 ISET = IWRK2(ISDX,4) 31 32 DO K = 5 , IFC 33 ! Change Fields To Numbers 34 CALL STONUM(FIELD(K),ILEN_FLD,FNUM,IMIT) ! 0 35 ! Check The Numerical Field 36 IF ( IMIT.EQ.-1 ) THEN 37 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 38 GOTO 100 39 ENDIF 40 DO J = 1 , IMIT ! 0 41 ISET = ISET + 1 ! 0 42 ! Assign The Field 43 IF ( ISET.LE.IQMAX ) THEN 44 QFACT(ISET,ISDX) = FNUM ! 0 45 ! WRITE Error Message: Negative Value for QFACT 46 IF ( FNUM.LT.0.0 ) & 47 & CALL ERRHDL(PATH,MODNAM,'E','209',KEYWRD) 48 ELSE 49 ! WRITE Error Message ! Too Many QFACT Values Input 50 CALL ERRHDL(PATH,MODNAM,'E','231','QFACT') ! 0 51 ENDIF 52 ENDDO 53 100 ENDDO 54 55 IWRK2(ISDX,4) = ISET ! 0 56 57 CONTINUE 58 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