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