1 2 SUBROUTINE PREXYPNTS 3 !*********************************************************************** 4 ! PREXYPNTS Module of the AMS/EPA Regulatory Model - AERMOD 5 ! 6 ! PURPOSE: Processes Cartesian Grid x,y Input Value 7 ! 8 ! PROGRAMMER: Roger Brode 9 ! 10 ! DATE: September 24, 1996 11 ! 12 ! INPUTS: Input Runstream Image Parameters 13 ! 14 ! OUTPUTS: Cartesian Grid x,y Input Value 15 ! 16 ! CALLED FROM: PRECART 17 !*********************************************************************** 18 19 ! Variable Declarations 20 USE MAIN1 21 IMPLICIT NONE 22 CHARACTER MODNAM*12 23 24 SAVE 25 INTEGER :: I , JSET 26 27 ! Variable Initializations 28 MODNAM = 'PREXYPNTS' ! 0 29 30 IF ( KTYPE.EQ.'XPNTS' ) THEN 31 ! Check for Location of Secondary Keyword, XPNTS 32 DO I = 1 , IFC ! 0 33 IF ( FIELD(I).EQ.'XPNTS' ) ISC = I + 1 ! 0 34 ENDDO 35 36 ! Determine Whether There Are Enough Parameter Fields 37 IF ( IFC.EQ.ISC-1 ) THEN ! 0 38 ! Missing Parameter 39 RECERR = .TRUE. ! 0 40 GOTO 999 41 ENDIF 42 43 ISET = ICOUNT ! 0 44 DO I = ISC , IFC 45 CALL STONUM(FIELD(I),ILEN_FLD,FNUM,IMIT) ! 0 46 ! Check The Numerical Field 47 IF ( IMIT.EQ.-1 ) RECERR = .TRUE. 48 ISET = ISET + 1 49 IF ( ISET.GT.IXM ) IXM = ISET 50 ENDDO 51 ICOUNT = ISET ! 0 52 53 ELSEIF ( KTYPE.EQ.'YPNTS' ) THEN 54 ! Check for Location of Secondary Keyword, YPNTS 55 DO I = 1 , IFC ! 0 56 IF ( FIELD(I).EQ.'YPNTS' ) ISC = I + 1 ! 0 57 ENDDO 58 59 ! Determine Whether There Are Enough Parameter Fields 60 IF ( IFC.EQ.ISC-1 ) THEN ! 0 61 ! Missing Parameter 62 RECERR = .TRUE. ! 0 63 GOTO 999 64 ENDIF 65 66 JSET = JCOUNT ! 0 67 DO I = ISC , IFC 68 CALL STONUM(FIELD(I),ILEN_FLD,FNUM,IMIT) ! 0 69 ! Check The Numerical Field 70 IF ( IMIT.EQ.-1 ) RECERR = .TRUE. 71 JSET = JSET + 1 72 IF ( JSET.GT.IYM ) IYM = JSET 73 ENDDO 74 JCOUNT = JSET ! 0 75 76 ENDIF 77 78 999 CONTINUE ! 0 79 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