United States
           Environmental Protection
           Agency
           Office of Air Quality
           Planning and Standards
           Research Triangle Park NC 27711
EPA-450/3-78-040
August 1978
           Air
&EPA
Carbon Monoxide
Hot Spot Guidelines
Volume VI: User's
Manual for the
Modified ISMAP
Model

-------
                                     EPA-450/3-78-040
Carbon Monoxide Hot Spot Guidelines
          Volume VI: User's  Manual
       for the  Modified ISMAP Model
                          by

                       Frank Benesh

                      GCA Corporation
                    GCA/Technology Division
                      Burlington Road
                  Bedford, Massachusetts 01730
                    Contract No. 68-02-2539
                EPA Project Officer: George J. Schewe
                        Prepared for

              U.S. ENVIRONMENTAL PROTECTION AGENCY
                  Office of Air, Noise, and Radiation
               Office of Air Quality Planning and Standards
              Research Triangle Park, North Carolina 27711

                        August 1978

-------
This report is issued by the Environmental Protection Agency to report
technical data of interest to a limited number of readers. Copies are
available free of charge to Federal employees, current contractors and
grantees,  and nonprofit organizations - in limited quantities  - from the
Library Services Office (MD-35), U.S. Environmental Protection Agency,
Research Triangle Park, North Carolina 27711; or, for a fee, from the
National Technical Information Service, 5285 Port Royal Road, Springfield,
Virginia 22161.
This report was furnished to the Environmental Protection Agency by
CCA Corporation,  CCA/Technology Division, Burlington Road, Bedford,
Massachusetts 01730, in fulfillment of Contract No. 68-02-2539. The contents
of this report are reproduced herein as received from CCA Corporation.
The opinions, findings, and  conclusions expressed are those of the author
and not necessarily those of the Environmental Protection Agency.  Mention
of company or product names is not to be considered as an endorsement
by the Environmental Protection Agency.
               Publication No. EPA-450/3-78-040
                              ii

-------
                                  ABSTRACT
     A modified version of the ISMAP model has been developed for the analysis
of carbon monoxide hot spot locations.  The original version of ISMAP (indirect
Source Model for Air Pollution) was developed by Stanford Research Institute
to be used in the evaluation of indirect source impact upon ambient carbon
monoxide concentrations.  Due to the size and complexity of the original ver-
sion of the model, the modifications were made without changing the basic
structure of the program.  Since the analysis of parking lot traffic and emis-
sions was an integral part of the original model structure, it was left in the
modified version, but the code was modified to negate their effect upon traf-
fic flow and air quality.  In the modified ISMAP, internal zones (indirect
sources) are used together with external zones to generate flow within a traf-
fic network.  This modified version of the model sets parking lot emissions
equal to zero and provides a near infinite parking lot capacity so that vehicle
routing between internal zones will not occur because of parking lot over-
crowding.  Other modifications made to ISMAP include the incorporation of a
street canyon submodel.  Version 2 of modified ISMAP utilized the most recent
(1978) motor vehicle emission correction factors and modal analysis model
coefficients and deterioration.  In other aspects, it is unchanged from
Version 1, written by Michael T. Mills.
                                      111

-------
                              PREFACE

This document is the sixth in a series comprising the Carbon Monoxide Hot
Spot Guidelines.  The purpose of this series is to provide state and local
agencies with a relatively simple yet accurate procedure for assessing
carbon monoxide hot spot potential on urban street networks.  Included
in the Hot Spot Guideline series are:

    Volume I:    Techniques
    Volume II:   Rationale
    Volume III:  Summary Workbook
    Volume IV:   Documentation of Computer Programs to Generate Volume I
                 Curves and Tables
    Volume V:    Intersection-Midblock Model User's Manual
    Volume VI:   Modified ISMAP User's Manual
    Volume VII:  Example Applications at Waltham/Providence/Washington, D.C.
                                 IV

-------
                                  CONTENTS
Abstract	ill
Figures	vi
Tables	vii

    1.  Introduction 	    1
    2.  Model Description  	    3
    3.  Program Documentation	19
    4.  Input Data Specification	36
    5.  Sample Application	54
    _6.  Use of the Modified ISMAP Model in Conjunction with APRAC	70
    Appendix A. Program Listing.....	74
        References	   221
                                      v

-------
                                   FIGURES


Number                                                                   Page

  1   ISMA.P flow diagram	   4

  2   Flow chart of vehicle flow model	   5

  3   Simple model of intersection delay 	   7

  4   Flow diagram of link emission calculations 	  10

  5   Flow diagram of link dispersion calculations 	  13

  6   Schematic of cross-street circulation between buildings  	  16

  7   Specification for leeward and windward cases on the basis of
      receptor location, street orientation, and wind direction  ....  17

  8   Route vehicles model flow diagram  	  21

  9   Signalized intersection model flow diagram 	  24

 10   Parking model flow diagram	27

 11   Subroutine DISPERS flow diagram	30

 12   Diagram for test case of modified ISMkP	55
                                      vi

-------
                                   TABLES
Number                                                                   Page

  1   Estimates of Pasquill-Turner Stability Categories for Urban
      Areas Computed From Airport Weather Observations  	 12

  2   Modified ISMAP Basic Input Information Cards 0 Through 10
      (Data Read in by Subroutine INPT)	37
                                       VII

-------
                        ACKNOWLEDGMENTS

We wish to acknowledge the significant contributions made early
in the development of the Modified-ISMAP Model by previous GCA/
Technology Division staff members, including Dr. Michael Mills
and Mr. Victor Corbin. We are also indebted to the EPA Project
Officer, Mr. George Schewe and to Ms. Nancy Mayer of the Source
Receptor Analysis Branch, Who performed technical and editorial
Review of the final reports and computer programs. We also thank
SRI International for the use of ISMAP and Mr. Erik Sieurin of the
Source Receptor Analysis Branch for his computer assistance in
updating and finalizing the model.
                              Vlll

-------
                                  SECTION 1

                                INTRODUCTION
     This manual describes a version of the Stanford Research Institute ISMAP
Model, which has been modified by GCA/Technology Division for the evaluation
of carbon monoxide hot spot locations.  The purpose of the original version of
ISMAP (Indirect Source Model for Air Pollution)! was the analysis of the effect
of indirect sources such as shopping centers and sports stadiums upon ambient
carbon monoxide concentrations in the surrounding area.  In modifying the
model for application to hot spot analysis, GCA has de-emphasized the role of
parking lots while leaving the zone attractions still in the model.  Also,
street canyon simulation and an emission factor correction routines have been
added.  The basic structure of the model was,  however, not altered.  It still
provides a convenient mechanism for evaluation of the effects of changes in
traffic patterns, zone attractions, signal parameters and roadway character-
istics upon carbon monoxide concentrations at  selected points.

     The basic driving force in the ISMAP model are the trip attractions and
productions and their specified distribution among exterior and interior
traffic zones.  Interior zones are considered to be parking areas surrounded
by links of the network.  An exterior zone is  defined to be an exterior street
by which vehicles enter or leave the network.   Travel from the network to any
interior zone is required to take place through a gate, defined by two links
in the network.  Based upon link capacities, link to link connections, inter-
section control type and intersection approach capacities, minimum travel
times are calculated for each gate-link combination.  This information is in
turn used to determine the number of vehicles  traveling between an external
and internal zone over a number of alternative routes.  The program has the
capability of handling traffic volumes not generated by zone attractions.

     Once the link traffic volumes have been generated by the program, average
queue lengths and delay times for each intersection approach are determined  o
based upon signalization parameters.  By use of the EPA Modal Analysis Model,
emission rates for cruising, idling and acceleration-deceleration are assigned
to the appropriate sections of the traffic links.  These emissions together
with hourly meteorological data are input to a line source diffusion model
for calculation of hourly carbon monoxide concentrations at selected receptor
locations.

     Three primary revisions or additions were made by GCA to change the  focus
of ISMAP from indirect source review to hot spot analyses.  These  included:
(1) removal of parking lots in terms of their effects on emissions and traffic

-------
flow while still retaining the concept of interior zones, (2) the use of new
emission factors, and (3) the incorporation of a street canyon submodel.

     In the version of ISMAP developed by GCA, the distinction between internal
zones and external zones has been removed, so that internal zones no longer
serve as parking lots but simply serve to attract and produce vehicle trips,
as do the external zones.  The only distinction that remains between internal
and external zones is the numbering system that is used to designate each.

     Emission factor correction capabilities have been added to permit the
user to account for local conditions such as vehicle-age distribution, vehicle-
type mix, ambient temperature, region, inspection-maintenance, and percentages
of vehicles operating in the cold or hot start mode.  These correction factors
are computed within the program utilizing the user's specific input parameters,
and are applied automatically.  The subroutine from which the correction factors
are derived was developed from MOBILEl.l^

     The user also has the option of utilizing a street canyon diffusion model
for analyzing receptors located in street canyons.  The particular subroutine
available is from the APRAC diffusion model.

     One additional modification to the original ISMAP model that was made by
GCA was to convert the program code from CDC (Control Data Corporation) FORTRAN
to a FORTRAN code compatible with all other computer systems (IBM, UNIVAC,
etc.), thereby enhancing the program and increasing its availability.

     In the next section of this manual we shall describe in more detail the
modified version of ISMAP.  This will be followed in Section 3 by a documen-
tation of the individual subroutines in ISMAP.  Much of the material for these
two sections has been extracted from the original SRI ISMAP User's Manual.
The remaining sections contain input data specifications, sample model appli-
cation, discussion of the use of the program in conjunction with APRAC-LA, a
source listing of the program and finally a list of references.

-------
                                  SECTION 2

                              MODEL DESCRIPTION
     The model incorporates three logical submodels for the simulation of
(1) traffic flow, (2) vehicle emissions, and (3) pollutant dispersion that,
when operated sequentially, produce estimates of air pollution on a fine
scale.  The functions of the three submodels of ISMA.P, and their component
subroutines, are described in this section and are illustrated diagrammatically
in Figure 1.

TRAFFIC FLOW ANALYSIS

     The traffic flow submodel is rerun for each time period that is specified
(see flow chart, Figure 2).  A time period is specified as an input parameter
and a situation is modeled during this time.  Accumulations of vehicles in
interior zones and queues on streets are retained and during subsequent time
periods these act as initialization data for the subsequent iteration.  When
running a second time period, a new time of day, day of week, number of trip
attractions, and number of trip generations must be specified.

     Vehicles will select routes between interior and exterior zones that  tend
to minimize travel time.  ISMAP does fine-scale routing of traffic in two  steps
In the first step alternative routes from each origin zone to each destination
zone are selected.  This is done by finding the minimum travel time and route
from each zone to each entrance/exit gate and the minimum travel time from
each gate to each destination zone.  In this process a route is generated be-
tween each origin and destination zone and. through each gate.  Additional
routes are generated to a second alternate access link to each interior zone.
The four alternative routes that show the minimum travel time are selected
from this set.

     The second step in the fine-scale routing of traffic is to reassign
vehicles to alternate routes between each origin and destination zone.  The
number of vehicles (v) routed through gate  (g) is directly proportional to
gate capacity (Cg) and indirectly proportional to the total number of vehicles
using the gate (V_) and the total vehicle trip travel time (TTe), i.e.:
                 o                                            o
                            v , K  .   --     . x                         (1)

-------
r
            (    Start   J
           Input Link, Zone,
              I ntersection.
          Emission, Receptor,
          Diffusion, and Trip
              Generation
              Parameters
                  I
Assign Trips
   to the
 Network
/ s s s s s
           Model Intersection///
               Delay and    ///
             Queue Lengths
                                      Model Parking Lot
                                        Running Time,
                                          Queueing,
                                         and Speeds
     Emissions on
   Links and in
  Parking Zones
 Determine Air
   Quality  at
Receptor Locations
Due  to  Parking
   Other Zone
    Emissions

    Traffic Submodel
          fftfl Emissions Submodel
                                                   Dispersion Submodel
                                           Determine Air
                                             Quality at
                                        J Receptor Locations
                                            Due to Link
                                             Emissions
                                                                                               Print Predicted
                                                                                                CO Levels at
                                                                                             Receptor Locations
                                           End or Repeat
                                           Procedure for
                                          Subsequent Time
                                              Period
                                                                                                            SA-3628-2
                                           Figure  1.   ISM&.P flow  diagram.

-------
           READ INPUT PARAMETERS.
           ON ITERATIONS 2 THRU N.
           ONLY THOSE PARAMETERS
          THAT CHANGE MUST BE READ
         CALL ZAREA TO COMPUTE THE
         AREA OF EACH PARKING ZONE
        FOR WHICH A PARKING CAPACITY
              WAS NOT ASSIGNED
INITIALIZE TRAVEL TIME FOR
EACH LINK OF THE NETWORK.
AND VOLUME TO CAPACITY RATIOS
AT EACH ENTRANCE AND EXIT
TO THE INDIRECT SOURCE

^
!
   COMPUTE THE NUMBER OF VEHICLES DESIRING
TO TRAVEL BETWEEN EACH EXTERIOR AND INTERIOR
    ZONE OF THE INDIRECT SOURCE. WHEN THE
   PARKING CAPACITY OF  AN INTERIOR ZONE IS
    EXCEEDED ASSIGN EXCESS VEHICLES TO THE
   INTERIOR ZONE WITH THE HIGHEST POTENTIAL
    FOR ATTRACTING TRIPS AND WHICH IS WOT
             FILLED TO CAPACITY.
                  0
     CALL ROUTEV TO ROUTE VEHICLES
  ONTO FOUR ALTERNATE ROUTES BETWEEN
    EACH EXTERIOR AND INTERIOR ZONE.
    THE FOUR ROUTES ARE THE MINIMUM
      TIME ROUTES WHICH USE UNIQUE
ENTRANCE AND EXIT GATES OR TERMINATION
      LINKS THE NUMBER  OF VEHICLES
  ASSIGNED TO EACH ROUTE IS INDIRECTLY
  PROPORTIONAL TO TRAVEL TIME AND THE
    VOLUME TO CAPACITY RATIO OF THE
             INCLUDED GATE.
   CALL INSEC TO COMPUTE INTERSECTION
  DELAYS, QUEUE LENGTHS AND NUMBER OF
 STOPS DURING THE ITERATION TIME PERIOD
                                                                           CALL PAHKZ TO COMPUTE THE RUNNING TIME
                                                                             OF  VEHICLES USING EACH PARKING ZONE
SAVE AVERAGE LINK SPEEDS. DELAYS. QUEUE
 LENGTHS. VOLUMES AND NUMBER OF STOPS.
AND SAVE PARKING ZONE RUNNING TIMES AND
    VOLUMES FOR USE BY EMISSION AND
           DIFFUSION MODELS
                                 SA-33£4-6b
                    Figure  2.    Flow  chart  of vehicle  flow  model.

-------
where  T is the total trips being made between the origin and
            destination zone; and

       K is a constant insuring that the sum of the v's is equal
              to T.

     Traffic is assigned to the alternate routes on the basis of time and
capacity; the resulting travel times and other measures of effectiveness, such
as stops, delay, queue length, and flow, are then calculated.  The delays at
each intersection are calculated by a subroutine that models an intersection
on the basis of traffic flow and physical characteristics.  The outputs of
the subroutine are average vehicle delay and average queue length for each
approach and turning movement at the intersection.

     The method of computing delay at a signalized intersection is based on an
approximate method of computing delays and queues3 in which the discrete nature
of the cars is disregarded in favor of considering traffic as a continuous
fluid, which arrives at a uniform rate (q) , is dammed for a time (R), and is
then released at a rate (s) until the dam is empty.  Traffic therefore moves
out of the intersection at the arrival rate (q) provided the green time (G)
is long enough.

     In Figure 3, the variable v(t) is the vehicle arrivals over time t.  The
total delays for all vehicles during any time interval are represented by the
area bounded by the arrival and departure flow rates.  The average delay (d)
per vehicle is :

                           __ s . R2
                         d ~ 2 • (R + G) • (s - q)    '                  (2)

     Actually, vehicles rarely arrive at a uniform rate but tend to arrive in
random small groups.  In the model, a Poisson distribution has been assigned
to this characteristic, and, when such arrivals occur, queues of vehicles form
waiting to be serviced by the intersection.  A second element of delay (i.e.,
queueing delay) must be added to the basic delay (d) caused by the gating of
vehicles.  This delay is based on the average queue length (Q), which is given
by the equation:
                                             -')
                                                                         (3)
Then the average delay per vehicle is the delay due to the gating effect of the
signal plus the time spent waiting in the queue of length Q,  which is  being
serviced at a rate (s •  G)/(R + G).   Combining the delay per  queued vehicle
(which is the reciprocal of the service rate) with Equation 3 and combining
this result with Equation 2, the average delay per vehicle including delay
due to queueing (D)  is:

-------
                                             «*• t
                                         SA-3364-8
Figure 3.   Simple model of Intersection delay.

-------
        D  __ s  ' R - + _ q • (R + G*)2 _
             2  .  (R +  G) •  (s - q)   2 • s • G • (s • G - q .  [R + G]) '   ^  '

     The intersection submodel will also predict delay and queue length  at
unsignalized intersections.  As with a signalized intersection, a queue  may
be  formed  because of  random arrivals at the intersection.  If q is the arrival
rate of vehicles at the intersection and C is capacity flow rate of vehicles
departing  the  intersection, the average queue length is:
The average delay experienced by vehicles at an unsignalized intersection is:
     The  computing delay at an  intersection requires predetermination of inter-
section approach  capacity, signal  phase  lengths, and cycle times.  The ISM&P
intersection  subroutine recomputes these variables  for each simulated time
period (usually 1 hour) as follows:

     •   Adjustments  to intersection  approach  capacities
          are  automatically made based on the number of
          left-turning vehicles  at  an  intersection.

     •    Red  and  green phase  lengths  as  well as cycle
          times are automatically computed  at actuated
          signals. 4

     •    Left-turn phases may be specified at  a signalized
          intersection, and capacity for  such phases may
          be input or  automatically calculated  based on
          the  intersection approach capacity for the
          through  and  right-turning traffic.

MULTIMODA.L AUTOMOTIVE EMISSIONS ANALYSIS

     The  emissions submodel of  ISM&P  is  based  on a  method of calculating the
amount of carbon  monoxide (CO)  produced  by specified distributions of light-
duty vehicles under four operating conditions:  combinations of constant
speed, acceleration,  deceleration,  and idling.   The formulation centers
around an instantaneous emission rate e(t) that is a function of vehicle speed
(v) and acceleration  (a).  Since speed and acceleration are functions  of time,
the emission  rate function can  be  expressed as

                            e(t) = e[v(t), a(t)J  •                       (7)

By assuming that  the acceleration from/to a given  speed  is a perturbation to
the steady state  emission rate,  two equations  describe the emission rate:

-------
                                                299
           e(v,a) =  b. + b0v + b0a + b.av -I- b v  4- b,a" + b^v a +
                      l     •£      J     '4      .>      b      7

                       2       22
                     bga  v +  bga v                                           (8)


                          e(v,0) = b1Q + briv + b12v2                        (9)


where Equation  8 describes the nonzero acceleration emission rate, and Equa-
tion 9 determines the steady-state emission rate.

     Modified ISMAP  first computes the emission rates for three of the four
operating  conditions (deceleration, acceleration,  and cruise) for a 1977 LDV
hot stabilized  vehicle mix.   A correction factor is then applied to adjust
the emission estimates to the user specified scenario.  The correction factor
is basically the ratio of the MOBILE! emission factor for the specified sce-
nario and  the MOBILEl emission factor for a 1977 LDV hot stabilized vehicle
mix.  In the case of idle emissions, the MOBILE! idle emission factor,
adjusted for the specified scenario, is u.ted directly.

     The emissions model requires l,he foil owing outputs of the traffic flow
analysis for each link:

     •   Total  number of vehicles travel Lug on l;hR link

     •   The speed achieved  during steady-speed operation

     •   Total  number of vehicles stopped on link

     •   Total  travel time of all vehicles on the link

     •   Total  length of the link

     •   Acceleration rates,

     These inputs are used to describe t'hp. DP evmisnlous as a variable  (time
and distance) along  each traffic link,  'f.!i«.s is none by 4<-H-f-,riuinivig the number
of vehicles on  each  link that are «Jfilay«d nn'-'i Ht^ u:rnl,er of. vehicles that are
not delayed.  The emissions  are then calculated for each group, delayed and
not delayed.  The emissions  for delayed wl^eles a..,e determined by calculating
the amount of time spent on  each link in on • of the four opf.r.'ting conditions
(constant  speed, deceleration idling5 and accejeratiou) and multiplying  this
time, along with the number  of vfa.bieJ.";". involve^., by  ?:be R 'wagR ^mission rate
for that specific operating  condition,,  The ew.'\ usi.ons for ':.hoc.o vehicles  not
delayed are simply the product of f'.h-- ;•••?•,-.!'.!. yr!,i<"l <••. -i?^c<>,iAr; of steady-speed
operation  and the average emission -.-atv For fiia;-. i-p,--v-"i0  A variable emission
rate of CO is determined for each link on flm dasis of this information.  This
rate varies with distance along the link and der^adf; on fche duration and  type
of each vehicle operating mode.  A flow dla^ofm of  khf-.w calculations  is  given
in Figure  4.

-------
                                       START
                             COMPUTE 1977 HOT STABILIZED
                             EMISSION RATE FOR SPEED 5
                             (CALL SUPS)
                              COMPUTE EMISSION RATE
                              FOR DESIRED SCENARIO AT
                              SPEED 5  (CALL SUPS)
                       CORRECTION FACTOR
SCENARIO EMISSIONS
  1977  EMISSIONS
                         REPEAT FOR
                         EACH SPEED
                         BETWEEN 5 AND 65 MPH,
                         IN 3 MPH INCREMENTS
                         REPEAT FOR
                         EACH SPEED
                         BETWEEN  5 and 65 MPH,
                         IN 3 MPH INCREMENTS
                                  CALCULATE IDLE
                                  EMISSION FACTOR
                          DETERMINE TIME OF TRAVEL
                          FOR EACH SUBLINK, SPEED FOR
                          CONSTANT CRUISE SUBLINK, LENGTH
                          OF EACH SUBLINK,  AND  NUMBER
                          OF VEHICLES INVOLVED  (STOPPING
                          VERSUS NOT STOPPING)	
                      CALCULATE EMISSIONS FOR THOSE VEHICLES
                      NOT DELAYED ON THE LINK 	   	
                      COMPUTE EMISSIONS FOR CONSTANT CRUISE
                      PORTION OF THOSE VEHICLES DELAYED
                         CALCULATE EMISSIONS  FOR VEHICLES
                         THAT STOP ON THE LINK
                       CALCULATE EMISSIONS  FOR VEHICLES THAT
                       ACCELERATE AND DECELERATE ON THE LINK
                     DETERMINE AND STORE  LENGTH OF EACH SUBLINK
                     PLUS EMISSIONS PRODUCED FOR EACH SUBLINK
                                      ARE THE
                                EMISSIONS FOR EACH
                                   LINK  COMPUTED
COMPUTE AN EMISSION
RATE FOR EACH ZONE
PER VEHICLE
l
/
Figure 4.   Flow  diagram of  link  emission  calculations
                                        10

-------
ATMOSPHERIC DISPERSION ANALYSIS

     The detailed description of the transport and diffusion of pollutant from
individual traffic links necessary for microscale analysis of pollutant dis-
tribution is performed by the dispersion submodel portion of ISMAP developed
by SRI for this program.  Concentrations resulting from line source emissions
are calculated separately and summed.  Any wind direction may be used, includ-
ing winds parallel to roadways.

     Atmospheric stability may be specified as a model input, or the user may
input wind and cloud cover data and allow ISMAP to determine the stability.
ISMAP accomplishes this using a table based on modified Pasquill-Turner stabil-
ity categories.^  Atmospheric conditions are classified according to prevail-
ing insolation strength and wind speed for daytime hours, and according to
cloud cover and wind speed for nighttime hours, as shown in Table 1.

     Figure 5 is a flow chart of the line source calculation procedure in the
dispersion model.  For each receptor, the location of each link is first
tested to determine whether the link contributes to the concentration at the
receptor for the input wind direction.  This test is made by taking only those
links that pass through, or whose end points lie within, a 90° segment extend-
ing upwind of the receptor and bisected by the wind vector.  If the link does
not fall into this pie-shaped slice, concentration calculations for it are by-
passed and the next link is checked.  If a link does extend into the segment,
the model proceeds with calculation of pollutant concentration from the link.

     Each traffic link is represented by a series of point sources whose total
emissions equal the link's total emissions.  A distance between points that
will accurately represent the line source must be chosen.  The maximum toler-
able error resulting from the finite distance between point sources was taken
to be 5 percent.  Thus,

                                  \   ^y
                                  -pL- = 0.05                          (11)
                                   \ef

where Xref is the concentration at a receptor resulting from some reference
point on the link, and X is the concentration of a point on the link a dis-
tance AL away.  The case in which the wind is perpendicular to the  link is the
most sensitive to the spacing between point sources  (AL).  Assuming the ref-
erence point to be on the centerline of the plume with the wind perpendicular
to the link, Equation 11 can be solved for AL:
                           AL = %/-2.«n(0.95)  a                            (12)
                                       11

-------
         TABLE 1.   ESTIMATES OF PASQUILL-TURNER STABILITY CATEGORIES FOR
                   URBAN AREAS COMPUTED FROM AIRPORT WEATHER OBSERVATIONS

Surface
winds
(knots)
< 3
3-6
6-10
10-12
>13
Daytime
(SR + 4 hours to SS? •

Strong
insolation
1
1
2
3
3

Moderate
insolation
2
2
3
3
4
• 3 hours)

Slight
insolation
2
3
3
4
4
Nighttime
(SS to SR)
Early a.m. and late p.m.
(SR + 1 to SR + 3
and SS - 2 to SS - 1)
4
4
4
4
4
>
5/10
clouds
5
4
4
4
4
<
4/10
clouds
5
5
4
4
4

SR = sunrise
SS = sunset

-------
     Does Any
   Portion of Link
   Lie Within 90°
 Pie-Shaped Segment
 Originating at and
 Extending Upwind
    of Receptor?
No
          Yes
 Determine Spacing
  of Point Sources
      on Link
Determine Crosswind
    Distance and
  Distance Along
 Direction of Wind
 from Point on Link
    to Receptor
     Compute
     O and <7Z
                                        Determine Mode in
                                        Which Vehicles are
                                         Operating at this
                                          Point on Link
                 Compute
              Concentration at
              Receptor Due to
            Point Source on Link
             Using Appropriate
               Emission Rate
            Add this Contribution
            to the Concentration
             to Those Previously
             Calculated for the
                 Receptor
                Are There
                More Points
                 on Link?
                                  Yes
                                                                          Take First
                                                                            Link
                                                              Yes S  Are There
                                                                       More Links?
Yes ,/^re There
           More
        Receptors?
      Figure  5.   Flow  diagram  of  link dispersion calculations.

-------
The distance along the wind direction used for calculation of ay in Equation  12
is the distance from the receptor to the nearest point on each  link.   To be
conservative, ISM\P uses one-half of the value of ££ as the spacing.

     Having found the spacing between point sources for the link,  the model
proceeds to calculate the CO concentration at the receptor for  each point
source.  The equation for the CO concentration from a point source is
          X =
-1/2
                         w
                                      exp
(13)
and
where
                             CT (d ) - aid I   + c
                              yv w'    '  w1
                  o- (d ) = fid Is + h
                   zv w'    '  w1
                                _3
X  is the CO concentration, gm m
 P
 u is the wind speed, m sec

Q  is the point-source emission rate, gm sec
 P
                                                                         (14)
                                                       -1
       u (d ) is the lateral standard deviation of plume concentration, m
        y  w

       cr (d ) is the vertical standard deviation of plume concentration, m

            H is the emission height, m

           d  is the crosswind distance from point source to receptor, m

           d  is the distance along wind direction from point source to
                 receptor, m

      a,b,f,g are the diffusion coefficients and exponents

          c,h are the constants representing initial diffusion, m

     For each link, a coordinate transformation of the link end points and
 the receptor is required to allow the same point source equation formulation
 to apply to all receptor-link configurations.  The crosswind and upwind dis-
 tances in Equation 13 are then found.  The diffusion coefficients and exponents
 are determined by the stability class:  initial horizontal diffusion for links
 is determined by the point source spacing on the link but is not allowed to
 exceed the half-width of the link.
           uses variable emission rates along the link that correspond to dif-
ferent modes of vehicle operation; e.g., steady speed, idling, acceleration,
deceleration.  When the contribution to the concentration at a receptor from
                                      14

-------
each point source on the link is calculated, the emission rate used in the
calcualtion is determined by the driving mode being practiced at the location
of the point source.

     The concentrations resulting from point sources on a link are summed for
each receptor and multiplied by the distance between point sources.  Then the
individual link concentrations are summed to give the total line source con-
centration at the receptor.

STREET CANYON CALCUIATION

     The modified ISMA.P program provides the option of a special dispersion
calculation for those receptors situated near urban roadways with buildings
on both sides.  The Street Canyon Model^ is used only for those link-receptor
combinations for which both the link and receptor are associated with a street
specified by the user as a street canyon and for which the following relation-
ship holds on an hourly basis:


                                  H>7^f                             (15)


where  H = building height (m)

       W = street canyon width  (m)

       u = wind speed  (m/sec)
                                   2
       K = turbulent diffusivity  (m /sec)
                                                         2
     Values for K are  25,5, 5.5,  1.75, 1.0, 0.5 and 0.5 m /sec for atmospheric
stabilities 1 through  6, respectively.  Once both of the conditions for a
street canyon configuration are met, the concentration assigned to a street
canyon receptor will depend upon which side of the street the receptor is
located and the direction of the wind with respect to the street orientation.
The assignment of a receptor to either the windward or leeward side of the
street canyon is illustrated by Figures 6 and 7.  For a receptor located at
the leeward side of the street canyon the concentration, C   (g/rrr), is given
by                                                        L
                          (u + 0.5)
(H:
U
 2\l/2
z I     + L
                                                    o
where  f  = empirical nondimensional constant  (~ 7)

       Q  = line  source emission rate  (g/m/sec)

     L  = approximate vehicle size (~ 2m)
                                        3
     The windward concentration, C^  (g/m ),  is calculated by the following
expression:
                                      15

-------
                                          MEAN
                                          WIND
                                            (u)
                                                 BACKGROUND
                                              CO CONCENTRATION
                                                    
-------
0 + 330° *
\
\
\
\
x\
I
WINDWARD
V
\/

/
i
i
i
i
|
\
i
»
1
i


/

A
® i
V

\
                               |3+30°
                              LEEWARD
                               \
                                \

             |3 + 210°    SINGLE   (3 + 150°
                      STREET
Figure 7,  Specification for leeward and windward
           cases  on the basis of receptor loca-
           tion,  street orientation, and wind
           direction.
                        17

-------
                             r  =    KQ (H-z)
                             Htf   W (u + 0.5) H

     If the wind direction for a given hour does not place the receptor either
on the windward or leeward side of the street canyon then the concentration
is given by


                              CI = 2 (CL + V                           <18>

     The emission rate, Q, which is used in the Street Canyon Submodel is
chosen to be the emission rate due to one of the four modes:  cruising, decel-
eration, idling and acceleration.   Each one of these modes is assigned to a
different portion of the link.  The emission rate which is selected corresponds
to that travel mode whose segment  centroid lies closest to the receptor
location.
                                     18

-------
                                  SECTION 3

                            PROGRAM DOCUMENTATION
     This section will describe the operation of the ISMAP main program and
subroutines.  Although a number of the subroutines deal with vehicle routing
through parking lots and parking lot area emissions, we present a discussion
of these functions for the sake of completeness even though the effects of
parking lots upon link volumes and interior zone emissions have been negated
within the modified ISMAP.

ISMAP (MAIN PROGRAM)

     The ISMAP program acts as a calling program for the various subroutines.
The flow chart shown in Figure 1 indicates the calling sequence of subroutines
in the traffic flow portion of the model.  This is essentially the flow chart
of ISMAP except that the link emissions model, EMIT, and the emissions disper-
sion model, DISPER, are called at the end of the program.

SUBROUTINE INPT

     This subroutine is responsible for reading all the data described in
Section 4 Inputs Description.  The simulation is normally terminated in this
routine when an end of file card is read instead of a header card for the next
iteration.  The INPT routine prints out card images of the data read into the
computer and the default values assigned by the program.  One exception was
made to this rule for card type 9 data.  These data are printed out in meters
with six coordinate pairs per card image, although it is read in feet as one
coordinate pair per card image.

SUBROUTINE 2AREA (EFFECTIVELY BYPASSED IN THE MODIFIED VERSION OF ISMAP)

     This subroutine is called to compute the area of a connected figure of
up to six sides.  The method used is to construct triangles from pairs of
connected sides using each side only once.  This is done by constructing a
third side between the unconnected end points of each pair of connected sides.
Two such triangles define the area of any four-sided figure.  A five-sided
figure is defined by three triangles, two triangles being constructed from
the first two pairs of adjacent sides, and the third triangle being constructed
by the fifth side of the figure and the two previously constructed sides.  A
six-sided figure is defined by four triangles; three of these are constructed
from pairs of adjacent sides.  The fourth triangle is constructed from the
constructed sides of the other three triangles.  The triangle areas so deter-
mined are added to or subtracted from the areas of the other triangles to
determine the area of the figure.

                                     19

-------
     Another function of this subroutine is to determine an estimate of the
length (PLL) of a trip into the parking zone.  The trip length is determined
as the length of the longest side plus the computed area divided by the longest
side.

SUBROUTINE ROUTEV

     This routine calls the MINPTH subroutine to determine the minimum path
between all gates and all other links in the network (see Figure 8 for flow
chart).  Minimum paths are saved in array RG, and minimum costs are saved in
array CG for each gate.  The minimum paths are based on travel times for each
link by turning movement, which are stored in the TT array.  The TT array is
initialized with the travel lines that would be experienced if all vehicles
traveled at the input velocity VEL on each link.  Subsequent iterations of
ROUTEV use a TT array based on intersection delays and link velocities as
modeled by ISMAP.

     For each zone, a minimum path and cost are determined to every link in
the network and stored in arrays R and C, respectively.  Four alternative
routes are selected using the RG, CG, R, and C arrays.  This is done by find-
ing the minimum route to each gate using the R and C arrays and combining this
with the minimum and second most minimum route from each gate to each destina-
tion zone.  The minimum and second most minimum routes from each gate to each
zone are determined from the minimum route and cost to each link that accesses
each zone, which is stored in the RG and CG arrays.  If four alternative
routes are discovered, they may lead through as many as four gates, or as few
as two gates, and may terminate on any link that accesses the destination zone.
Of course, when less than four alternative routes are possible, only the num-
ber of possible alternative routes is generated.  When there is no alternative
route between external and internal zones, the program fails to apply traffic
demand between these zones to the network.  If an alternative route does not
pass through a gate, the program will fail with an arithmetic error when it
tries to compute the number of vehicles using that route (i.e., the sum of
the gate volume to capacity ratios, GCRT, will equal zero).

     Vehicles are applied to the links of each alternative route in inverse
proportion to gate volume to capacity ratio  (GCR), route travel time (C + CG),
and the number of iterations specified for the route selection process (ITM).
The procedure outlined above is followed until 1/ITM of all vehicles have
been routed between all internal and external zones.  If ITM is greater than
1, new travel times are determined on all links, a new set of alternative
routes is generated, and vehicles are applied to these routes.

     This subroutine is responsible for  generating the minimum path between
each origin and destination zone in the network.  The method generates the
minimum path from one origin AA to all links of the network.  (Recall that a
link is one direction of flow on a street and has a load point halfway between
each end.)  Two arrays are initialized before calling MINPTH.  The TT^j array
represents the travel time from link i, to a  connected link j.  The C_g array
represents the cost of travel from the origin zone to any link l of the net-
work.  The C  array is initialized to zero for any link connected to the
origin zone and to infinity for any unconnected link.

                                      20

-------
                       (    ROUT I. V     J

IT = IT + 1
IT - 1


                        For Each Gate IG
                           MINPATH
                       FIND THE MINIMUM
                    PATH FROM GATE IG TO
                     EVERY OTHER LINK IN
                        THE NETWORK
             SAVE THE COST AND ROUTE ARRAYS IN CG
             AND RG FROM GATE IG TO EACH LINK
             IN THE NETWORK
             GENERATE THE LCRZ AND LCRZF ARRAYS
             STORING THE LAgT LINK AND F_LR_ST__U&LK_
             RESPECTIVELY TN THE ROUTE FROM K^ TO
             EACH ZONE Z
                              r
                        For Each Zone Z

-------
                    For Each Possible Alternative Route K
             DETERMINE THE  NUMBER OF VEHICLES TO BE
             ROUTED ON ROUTE K DURING  THIS ITERATION.
               VEHS = GCR(K)/ZGCR • ZZVEH/ITM
                                I
      APPLY VEHS TO ALL LINKS IN THE ROUTE FROM Z TO IZ STARTING
      WITH LINK LG =  LISTL(K), AND CONTINUING WITH LG = R(LG> OR
      RG(IG,LG) ETC. WHERE IG   LISTG(K). COUNT(J,LG) -  VEHS (WHERE
      J   1.2 OR 3 DEPENDING ON TURNING MOVEMENT.)
                                  No
                                  I

                         For Each Intersection
                                 i
                 GENERATE NEW INTERSECTION DELAYS
                 BY CALLING INSEC AND INSECU.
                                I
              GENERATE NEW TRAVEL TIMES ON EACH LINK
                                                       SA-3628-5b

Figure 8  (continued).   Route vehicles model flow diagram.
                                 22

-------
SUBROUTINE MINPTH

     The algorithm described below is carried out using these two arrays.   On
completion, the C^ array represents the minimum travel time (or cost) from the
origin zone to each link i, of the network.  During this process, the R^ array
is generated, which contains the link number that immediately precedes link S,
in the route from the origin to i.  The following is a step by step descrip-
tion of the algorithm for route generation.

     Step 1 — Initialize TT^j with the constant cost in traveling
              from link Ji to three possible adjacent links,
                ~  1'  2'  3"

     Step 2 — For an origin zone initialize with a large number
              the cost, Cfi, to travel from the origin to each
              link in the network (C  =   for all &).
                                    Jv
     Step 3 — For the links adjacent to the origin zone store
              a travel time cost in C  (Ji = ^, ^2, . . . ^12)«

     Step 4 — Set the travel time costs of Step 3 negative, to
              flag that all links connected to these may have
              an improved travel time cost.

     Step 5 — Find a negative C^ and the connected links j]_,
              J2» J3 to link &•  If no negative C^ exists then
              do Step 9.  If no connected links exist then do
              Step 8.

     Step 6 - For each j = jlf j2, Js test |c^| + TT^,j < |Cj|.
              If the relationship does not hold true then do
              Step 7.  Otherwise replace Cj by JG^j + TT^,j
              and set Cj negative.  The route is saved by stor-
              ing the previous link to j  (i.e., R. = $,).

     Step 7 — Repeat from Step 6 until all j's have been tested.

     Step 8 — Set C. to JC | and repeat from Step 5.
                   Ju      Xf

     Step 9 — The Cy array is the cost of travel from the origin
              to each link &.  Repetition from Step 2 will gene-
              rate new costs of travel from other origins.

SUBROUTINE INSEC

     This subroutine cmmputes delays and queue lengths at signalized  inter-
sections within the simulated network (see Figure 9 for flow  chart).  Three
types of signal controllers can be specified.  The first type is a fixed-time
controller in which the north-south, east-west, and left-turning phases are
all of fixed time length.  The other types of controllers are vehicle-actuated,
for which types the INSEC routine must determine the length of  each  signal


                                      23

-------
                       (     INSEC     J
                     I  IS INTERSECTION INDEX
                               1
                           Each Approach J
                               i
           VOL(J,1)-= £ COUNT ON LINK APPROACH J
           CAP(J.1)» GCAP (I, J2). WHERE J2 IS PHASE INDEX
               MODIFY CAPIJ.1) BASED ON PERCENT LEFT
               AND RIGHT TURNERS
                VOLUD- COUNT  (2,L) +  COUNT (1.L)
                VOL(J,3) - COUNT  (3,L)
                  CAP(J,3) - GCAP (I,J2). WHERE J2 IS
                  APPROPRIATE PHASE INDEX
                      Y(J,3| - VOL(J,3)/CAP(J,3)
                      Y(J,1)   VOUJ.D/CAPU.D
1
YTU2) - MAX(Y(J,K) FOR PHASE J2,
*

J2 - 1,2.3.4)

CALCULATE A CYCLE TIME BASED ON WEBSTERS
'TRAFFIC SIGNAL SETTINGS"
i.e. COT (1.5 • CKI) ' NP + 5.0)/(1 EYT)
WHERE NP IS THE NUMBER OF PHASES AND
Cl IS THE YELLOW INTERVAL
1
I I

L— PTU2) - YTU2) • COT/EYT
                                                     h-0
                                                         SA-3628-6*
Figure  9.   Signalized  intersection model flow diagram.

                                 24

-------
                ^  For Each Approach J

                          I
                > For Each Turning Movement K
     J2 = INDEX OF PHASE GREEN  FOR THIS APPROACH
         AND TURNING MOVEMENT
         CAP(J.K) = CAP(J.K)  • IPTU2) - CKD/2I/COT
                VOL(J.K)  t I/COT + PTU2)
                      .  CAP  (J.KI
      NEWELL MODEL OF DELAY AND QUEUE LENGTH

      Wl    (COT - PT(J2))2/(2 • COT •  (1  yU.KOI
      QO    VOL(J.K)/(2 ' (CAP(J.K) - VOL(J.KD)
      W3 *  DELAY DUE TO QUEUE FROM PREVIOUS
            TIME PERIOD
                W2 - QO • 3600/CAP(J,K)
     DELA(L.K) - Wl  + W2 + W3    WHERE L IS THE
                                LINK ENTERING
     QQ(J,K)  •= QO                FROM APPROACH J
MODIFIED NEWELL MODEL
OF DELAY AND QUEUE LENGTH
Wl - (COT - PTIJ2D/2
QO - f(VOL,CAP,PT)
Ql = VOLU.KI  - CAP(J.K)  + QUEII.J)
W3 = TP
               QUEII.JI   QQ(J,1) + QQ(J,3)
                    PRINT RESULTS
                                           RETURN
                                                                          SA-3628-66
Figure 9  (continued).   Signalized  intersection  model
                              flow  diagram.
                                 25

-------
phase.  Phase lengths are determined based on volume to green capacities of
each approach to an intersection.

     Delays and queue lengths are  determined at an intersection on the basis
of phase time, approach volume,  and capacity.   The referenced method of de-
termining delay assumes a period of time during which traffic demand remains
constant, and does not include a means of estimating queueing when volume ex-
ceeds capacity.  For ISMAP a method was devised to provide continuous func-
tions for delay and queue length when volumes approach or exceed the inter-
section approach capacity.  This method establishes a constant rate of increase
in queue length beyond the point where average delay at the intersection equals
one cycle length.  The queue is assumed to increase at a constant rate beyond
this point until volume exceeds capacity, at which point the queue increases
at the rate that volume exceeds capacity.  A queue is dissipated at the rate
that capacity exceeds volume until the average queue length, based on the
volume to capacity ratio of the intersection approach, is reached.

     The results of the model, stored in the DEIA and QUE arrays, are delay
and queue length for each approach to an intersection.

SUBROUTINE INSECT

     This subroutine predicts the  delay and queue length at unsignalized in-
tersections in the network.  Three types of intersections can be handled:
uncontrolled, two-way stop, and four-way stop.  If not specified as an input
parameter, the INSECT routine determines an intersection capacity based on
the Highway Capacity Manual.9 For  two-way stops and uncontrolled inter-
sections, the HCM recommends that  capacity be computed as if a signal were
present and as if the signal split ratio equaled

                            Volume..   Width0
                            	 x	  •                           (19)
                            Volume2   Widt^                              v   '


At four-way stops, capacity is a function of the number of lanes and the demand
split among approaches, as shown in Tables 6.7 and 6.8 of the Highway Capacity
Manual.   Queue length at an intersection is computed from classical queueing
theory; i.e., QO = 1/(CAP/VOL) - 1.  Average delay is a function of queue
length times the time to process each vehicle.

SUBROUTINE PARKNG (EFFECTIVELY BYPASSED IN THE MODIFIED VERSION OF ISMAP)

     This routine models parking zone flow and determines vehicle running time
for a zone (see Figure 10 for flow chart).  The running time of an average
vehicle is considered to consist of three elements:   (1) the time to travel
from the edge of the zone to a stall or the time to travel from a stall to the
edge of a zone (symbolized by TTA  and TTD, respectively); (2) the delay ex-
perienced by arriving vehicles while waiting for vehicles to back out of stalls
(DQ); (3) the average wait in a queue until a parked vehicle leaves the zone
(AWQ).
                                      26

-------
                 f     PARKING    J
                        I
         PZ IS THE INDEX OF A PARKING ZONE
                        I
             PC  =  PLAIPZ1/PD
             PL  =  PLL(PZ)
            PVZ  =  VZ(PZ) - ZV(PZ) + PV(PZ)
             PU  =  PVZ/PC
                        I
       COMPUTE MOVING SPEED IN PARKING ZONE
       PLS = f(PU>
                        I
COMPUTE TRAVEL TIME FOR ARRIVALS AND DEPARTURES
TTA = f(PU,PL/PLS)
TTD   TTA + PLBO
COMPUTE DELAY WAITING FOR VEHICLES TO BACK OUT
DQ - MAX(PLBO2/2 (TP/VZ(PZ) - 2), PLBO/2 • (PU - 0.85)/0.15
                        I
COMPUTE AVERAGE WAIT IN QUEUE WHILE VEHICLES LEAVE THE ZONE
AWQ -


AlA/O =

(vz - zv \
PV + 	 	 	 PCJ •
 PC and PV + 	 	 > PC
(VZ - ZV 1

1 PV > PC and PV + VZ - ZV < PC 1

             AWQ = MAX (AWQ, 0.67 * TTA)
                 (    RETURN    J
                                                 SA-3628-7
 Figure  10.  Parking model flow diagram.

                        27

-------
     TTA is computed on the basis of the length and speed of an average trip
into the parking zone.   It would appear that the length and speed of an aver-
age trip vary in direct and indirect proportion, respectively, to the utiliza"
tion of a zone, and preliminary analysis of available data tends to support
this supposition.  TTD is the same as TTA,  but with a time added to back out
of a parking stall (PLBO).

     DQ is the queued delay, due to interrupted flow lasting PLBO seconds,
experienced by vehicles arriving in the parking zone.  AWQ is a minimum value
or is the time required to service each vehicle times an average queue length
estimated from the utilization of the parking zone.

SUBROUTINE COORXY

     To determine the location of steady speed, decelerating, queued, and
accelerating vehicles on a link, it is necessary to know the direction of flow
on the link (i.e., which end point traffic  moves toward).  This subroutine
reorganizes the x,y coordinates of any link, L, so that XI(L), Yl(L) represent
the upstream end of the link and X2(L), Y2(L) represent the downstream end
of the link.

     A second function of this routine is to convert the coordinates from feet
to meters, since meters are the required units of distance in the dispersion
submodel.

SUBROUTINE EMIT

     Subroutine EMIT calculates the amount  of CO produced on each traffic
link (see Figure 4 for flow chart).  The necessary input data come from the
traffic analysis subroutine.  These are:  CAPL, COUNT, DIST, DQ, NLANE,
NSTOPS, TT, and VEL.  From this information, the model calculates the time and
distance each vehicle devotes to constant velocity travel, deceleration,
idling, and acceleration.  The model then determines the amount of CO produced
by one vehicle for 1 second for each cruise condition.  Next, each of these
emissions is assigned to that portion of the link where fhe emission occurred.
The result is CO emissions as a function of position on each traffic link.
The following are outputs of the EMIT subroutine for each traffic link:
EMISS (I), I = 1,4 where I = 1 is the constant speed emissions, I = 2 is the
decelerations emission, I = 3 is idling emissions, and I = 4 is the accelera-
tion emissions, and DLINK (I), I = 1,4 is the distance over which each emis-
sion rate applies.

     The emissions model also calculates parking zone emission rates based on
total vehicle running time within the zone.  Vehicles are assumed to emit CO
within a zone at the idle emission rate, and the vehicle emissions are dis-
tributed evenly over an entire zone.

SUBROUTINE ACDC

     The purpose of this subroutine is to calculate the total emission of CO
by a vehicle accelerating from stop to a terminal velocity at a constant rate.
Alternatively,  the emissions generated by decelerating from a specific speed


                                     28

-------
to stop at a fixed rate can be determined.  The integrated Model Emission
equations were utilized to calculate the total CO emissions for the accelera-
tion or deceleration mode.

SUBROUTINE CRUZ

     This subroutine utilizes the Modal Emission Coefficients to calculate the
CO emissions for vehicles traveling at a fixed rate of speed.

SUBROUTINE INITMM

     This subroutine utilizes the composite vehicle age and mileage distribu-
tion calculated in SUPS to calculate the vehicle distribution in the 20 modal
model vehicle groupings.  It also sets up the array of modal model coefficients.

SUBROUTINE SUPS

     This subroutine calculates the average driving cycle emission factors
and idle emission factors based on the parameters supplied to it.   It,  in
turn, calls subroutines OUTPUT, EFCALX, BIGCFX, INITEX, TFCALX, SPFCLX,
BEFGEN, GETCUM, EFALTX, CCEVAX, LDVIMX, ALUH, TRKOPC.

SUBROUTINE DISPER

     This subroutine controls all dispersion calculations.  It calls WIND,
LSLOPE, STABLE, BASIC, GENGSC, and ZBORDR at the appropriate times (see
Figure 11 for flow chart) and rounds off the coordinates of the link end
points so that the center of a grid square cannot coincide with a link end
point.  As the final step before printing, DISPER divides the normalized CO
concentrations by pi and the wind speed, converts the concentration to ppm,
adds the background concentration, and multiplies by a factor that corrects
the emission rate for  the vehicle mix of 1971 to that of the input year and
corrects for the ambient temperature and the fraction of hot and cold started
vehicles.

SUBROUTINE WIND

     Meteorological wind direction, measured clockwise from north, is converted
to algebraic wind direction, measured counterclockwise from east.  In addition,
the angle from the y axis to the wind vector is found by WIND.

SUBROUTINE LSLOPE

     The slope and y intercept of each link are found by this subroutine.  If
the slope of a link is infinite, both the slope and the y  intercept are set
equal to zero as a cue to indicate that the link is vertical.

SUBROUTINE STABLE

     STABLE determines the stability class and therefore the dispersion param-
eters for each hour of the day, unless stability is input  directly.  The
                                      29

-------
         ROUND OFF LINK END POINT COORDINATES
         SO THAT THEY CANNOT COINCIDE WITH
         A GRID SQUARE CENTER
                  TAKE 1st RECEPTOR
          SET CONCENTRATION AT RECEPTOR = 0
          AND CALL BASIC
                        ARE
                     THERE MORE
                     RECEPTORS
                        ARE
                   THERE ANY AREA
                      SOURCES
                    CALL ZBORDER
                  TAKE 1st RECEPTOR
           FINISH CALCULATING CONCENTRATION
                    AT RECEPTOR
                        ARE
                     THERE MORE
                     RECEPTORS
                                              SA-3628-8
Figure  11.   Subroutine DISPERS flow diagram.
                         30

-------
amount of cloud cover is used in determining an insolation class,  which,  when
coupled with a wind speed class, allows an appropriate stability to be chosen
from a table.  If the user chooses to predetermine and read in stability as
input, this initial part of the subroutine is bypassed, and the time period
need not be 1 hour.  Wind speed is converted from knots to meters per second
for use in the point-source equation, and the diffusion parameters appropriate
to the stability class are located from tables and stored.

SUBROUTINE BASIC

     This routine determines whether all or any part of a link is upwind of a
receptor.  If a link lies within a 90°, pie-shaped segment that originates at
the receptor and is bisected by the wind vector, the link is considered to be
upwind of the receptor.  The subroutine checks this by first transforming the
coordinates of the link end points into a system with the origin at the recep-
tor and the positive y axis in the direction from which the wind is blowing.
If the new y coordinates of both end points of the link are negative, the link
is downwind of the receptor.  If the y coordinate of one or both end points
of a link is positive and the angle between the new x axis and a line connect-
ing a positive y coordinate of a link point with the origin is greater than or
equal to 45°, at least part of the link is upwind of the receptor.  It is also
possible that the link passes through the segment even though neither of its
end points lies in the pie-shaped segment.  For this to occur the transformed
x-coordinate of one end point must be positive and the other negative.  In
this case, the point at which the link intersects the y axis is found.  If the
y coordinate of that point is positive, the link passes through the segment
and part of it is upwind of the receptor.  If all or part of a link lies up-
wind of a receptor, BASIC calls ORIGIN, CORTRN, and CONCA1 or CONCA2.

      In  this routine the calculation was also  performed to determine whether
a  street canyon vortex will  form at each street canyon receptor location based
upon hourly wind speed and stability conditions.

SUBROUTINE ORIGIN

     Here the  coordinates of the point to be the origin in a new  coordinate
system are found.  For each  link the origin  is  taken as the point  of  inter-
section  of the link  (or its  extension) and the wind vector.  ORIGIN also finds
the angle from the wind vector  to the  link.

SUBROUTINE CORTRN

     This subroutine transforms the  coordinates of the receptor and  the  link
end points into a new system with the  y axis along the direction  of  the  link
and the  origin as found by ORIGIN.  This transformation is  done  so that  the
same  Gaussian  point source equation  can apply  to all receptor-link configura-
tions.
                                      31

-------
SUBROUTINE CONCA1

     CONCA1 is  used when the wind  is  not  parallel  to  the  link.   It calls MISC
and XSIGN and computes  the  normalized CO  concentration at a  receptor  resulting
from each point on the  link.   Subroutine  BASIC determined that at least part
of the link is  upwind of the  receptor.  Now each point  on the link is checked
to see that it  is upwind of the receptor  by comparing the sign of its dis-
tance along the wind  direction to  the receptor with the  sign found by XSIGN.
If the signs are the  same,  ISMAP determines what driving mode the traffic  is
in at the point on the  link,  chooses  the  corresponding  emission rate, computes
the lateral and vertical standard  deviations of plume concentration,  and
applies the point source equation.  Then  for each receptor  all point  source
concentrations  are summed to  give  the CO  concentration at the receptor from a
link, and this  concentration  is added to  the concentrations  from other links
for that receptor.

SUBROUTINE XSIGN

     Some wind  vector-link-receptor configurations are  such  that only part of
a link is upwind of a receptor. In this  case, there is  a point on the link
that has zero distance  to the  receptor  along the wind direction.  On  one side
of this point,  the distance from link to  receptor along  the  direction of the
wind is positive; on  the other side it  is negative.  Due to  the coordinate
transformation  performed in CORTRN, it  is not known whether  the points that
are actually upwind will show  positive  or negative distances.  Therefore,  the
sign of the distance  along the wind direction from the  receptor to a  point
known to be upwind of the receptor is found for use in  determining which
points on the link will contribute to the concentration.

     The point  used in  the above determination depends  on the orientation  of
the link and of the wind vector.  When  the wind vector  and  the link are not
parallel, the coordinate system origin  found by subroutine  ORIGIN is  used,
unless it coincides with the  receptor location.  If it  does  coincide, the  known
point becomes the point of intersection of the wind vector passing through the
receptor and the perpendicular to  the wind that passes  through a link end
point.  When the wind vector  and the  link are parallel  and the receptor is
located on an extension to the link,  one of the link end points becomes the
known point. Or, if  the receptor  is  not  located on an extension to the link,
the known point used  is the point  of  intersection of the wind vector passing
through the receptor  and the  perpendicular to the link (or wind vector) that
passes through  a link end point.

     When the quadrant  from which  the wind vector originates and the  signs of
the differences between the x coordinates and between the y coordinates in
the original coordinate system of  the receptor and the point chosen for the
sign check are  known, the sign of  the distances from the receptor to  those
points that are upwind  of the receptor  can be determined.  This sign  is used
in CONCA1 or CONGA2.
                                     32

-------
SUBROUTINE SPCING

     This subroutine computes the distance to be taken between the point
sources that represent the link, using the method presented in Section 2.
Equation 12 is applied to determine the spacing.  To compute the cry that ap-
pears in the equation, a downwind distance from point source to receptor is
needed.  If the wind vector that passes through the receptor (which is assumed
to be perpendicular to the link) intersects the link, the downwind distance
used in 
-------
and the grid size that was input.  Then, to conserve space in core memory, the
coordinates of the centers of the grid squares are generated separately, to
be paired later in ISMAP.  The final step in the subroutine is to set the
initial diffusion for area sources equal to the grid size.

SUBROUTINE ZBORDR

     A zone (i.e., area source) may have up to six border  links that form its
sides.  A zone may also have one nonlink side, but the border  link information
must be input such that the first and last border links are the links that do
not connect.  For each zone subroutine ZBORDR checks to see that  one of the
end points of a border link connects with an end point of  the  next link.   If
the specified border links do not connect, an error message is printed  and com-
putations for the zone are bypassed.  If the links do connect, subroutine
INTERS is called.  This checking procedure and calling of  INTERS  continues
until all the border links have been exhausted.  If the open end  points of
the first and last links  connect, the program calls subroutine ZNGSC; if
the open ends do not connect, the last side of the zone, along with its slope
and y  intercept, are generated and ZNGSC is called.  The entire procedure
outlined above  is repeated for each zone.

      Other subroutines,  called  by ZNGSC, compute the contribution to the CO
 concentration at a  receptor  from each  zone.  After the routines have been
 called,  ZBORDR multiplies the concentration contribution  of  each  zone  for
 each receptor by the zone emission  rate and divides by the number of grid
 squares in the zone.   These  concentrations  then are summed for each receptor.
 However, the results are still  normalized  by pi and the wind  speed.  In the
 modified version of ISMAP,  the  interior  zones will be bordered by only  two
 1 inks.

 SUBROUTINE INTERS

      Since the overlay grid  is  made up of  regularly spaced squares,  the cen-
 ters of the squares can be said to  lie in  vertical  lines.  There  are as many
 of these lines as there are  grid squares  in the x  direction.   This  subroutine
 finds points of intersection of each vertical  line with  the  sides of a  zone.
 Since the manner in which the grid square centers  were  generated  and  the
 manner by which the link end points were rounded  off  preclude the possibility
 of a vertical  line passing through a zone border link end point,  there will
 be an even number of points if intersection on each vertical line.  The points
 of intersection are found for one zone at a time,  and the number of points of
 intersection on each vertical line, as well as the y coordinate of each point
 of intersection, are stored.  The x coordinates can be found from the  index
 of the vertical line since the values are the same as those of the x coordi-
 nates of  the grid square centers with the same index.

 SUBROUTINE  ZNGSC

       The  y  coordinates of the points of intersection of a vertical line with
 the  zone  sides, found by INTERS, will not be necessarily  in ascending  or
                                      34

-------
descending numerical order.  Subroutine ZNGSC places the intersection points
on each vertical line in descending numerical order so that they may be paired.
If an uneven number of points of intersection are found, an error message is
printed and further computations for the zone are bypassed.  Otherwise, each
grid square center that lies on a vertical line is checked to see if it lies
between any of the pairs of intersection points.  If it does, the grid square
center, and therefore the grid square, lies within the zone.  When a grid
square center is found to be located in a zone, it is counted, subroutine
ZCHECK is called, and the x and y coordinates of the grid square center are
passed to ZCHECK.

SUBROUTINE ZCHECK

     This subroutine transforms the coordinates of a zone grid square center
into a system with the origin at a receptor and the y axis along the direction
of the wind.  If the transformed y coordinate of the grid square center is
negative, the grid center is downwind of the receptor.  For a positive y
coordinate, if the angle that a line passing through the origin and the grid
center makes with the x axis is less than 45°, the grid center is assumed to
be positioned such that its contribution to the concentration at the receptor
is negligible.  If the angle is greater than or equal to 45°, subroutine
CONGAS is called.  The above procedure is repeated for all receptors.

SUBROUTINE CONCA3

     The transformed y coordinate of the grid square center that was passed
along from ZCHECK is the distance along the direction of the wind from the
point source to the receptor.  This distance and the diffusion parameters
found in STABLE are used to calculate the lateral and vertical standard de-
viations of plume concentration.  The x coordinate of the grid square center
gives the crosswind distance from source to receptor.  Using these values,
CONGAS calculates a normalized concentration at a receptor resulting from a
grid square of a zone.  This concentration is added to the contributions to
the concentration at the receptor from other grid squares in the zone.  The
results of CONCA3 are passed back to ZBORDR.

SUBROUTINE STREET

     If the calculation in subroutine BASIC indicates, based upon hourly wind
speeds and atmospheric stabilities,  that a street canyon vortex will form at
a particular street canyon receptor location, then subroutine STREET will be
called to calculate the hourly concentration contribution from the street
canyon links,  which will then be added to the remaining link contributions
calculated by the line source dispersion model.  The calculated street canyon
concentration will depend upon whether the receptor is located on the windward
or leeward side of the street.
                                     35

-------
                                  SECTION 4

                          INPUT DATA SPECIFICATION
     The first step in the preparation of input data for the modified version
of ISMAP is to draw a map of the traffic network under study.  The link end-
points and receptor locations must be specified by coordinates in a west to
east (x) and south to north (y)  coordinate system.  Each link must be charac-
terized by the number of lanes and the identification numbers for those links
branching from (turning left, turning right and going straight) the link in
question.  For each intersection the signal type (if signalized) and phase
times must be specified.  Receptor locations that are potential street canyons
must be so identified.  For such receptors, the user must also specify the
direction of the street with respect to north,  the identification numbers of
the links comprising the street, the width of the street (building to building)
and the height of the buildings on the street.


     The most critical inputs to the modified ISft&P are the assignment of the
internal and external zones in terms of the links entering and leaving the
zone and the number of vehicles attracted to or generated by the internal zones
during a given hour.  Vehicle trips from an external zone are directed toward
internal zones based upon the trip attraction of the internal zones.  In the
same manner, vehicle trips generated by internal zones are apportioned to ex-
ternal zones, but trips cannot be generated between individual internal or
external zones.  Since parking lots are not considered in the modified version
of  ISMP, the internal and external zones are physically indistinguishable,
with each consisting of an entrance and exit link pair.  As illustrated
by  our sample model application presented in Section 5, the names "internal"
or  "external" zones do not indicate the geographic location of these zones but
only signify that vehicles are routed between these two types of zones.

     The final input requirement for the model is the hourly meteorological
data for use in the dispersion calculation.  Hourly temperature is also input
for calculation of cold and hot start vehicle emission correction factors.

     In Table 2 the program input requirements are listed on a card by card
basis along with column numbers, format specification, units, value limits
and general description.  The remainder of this section will be devoted to a
detailed description of each input card.
                                     36

-------
U)
-J
                          TABLE 2.   MODIFIED ISMAP BASIC INPUT  INFORMATION CARDS 0  THROUGH  10
                                             (Data Read in by Subroutine INPT)
Card Column
0 Head-iv: 1-6
7-76
80
1 1-2
3-5
6-10
11-15
16-20
21-25
26-30
31-35
36-40
41-45
46-50
51-55
56-60
61-65
66-70
71-75
76-80
format
16
18A4
11
12
13
15
15
15
15
15
15
15
15
F5.0
F5.0
F5.0
F5.0
F5.0
F5.0
15
Symbol
NXEAR
LHEAD
NOPARK
1C
L
I
Z
ION-
IC
m
KT
NR
NMET
TOD
DOW
TP
TOTATT
TOT GEN
PD
ITM
Units Value limits
710101-to
991231
-
1
-
- 0* to 200
0* to 70
- 0* to 50
0 or 1
0* to 10
- 0* to 3
- 0 to 200
- 0* to 200
- 0* to 24
hours 0 to 23
1 to 7
sec 900 to 7200
vehicles > 0
vehicles > 0
ft2/veh 360
1 to 10
Typical value
(default value
in parentheses)
741004
EXAMPLE CASE
i
-
154 (previously
stored value)
48 (previously
stored value)
23 (previously
stored value)
1 (previously
stored value)
7 (previously
stored value)
3 (previously
stored value)
15 (previously
stored value)
26 (previously
stored value)
1 (previously
stored value)
8
3
3600
124
74
360
1 (1)
Description
Date in year, month, day sequence
Heading to precede output summary

Must be set equal to 1
Card type number
Number of cards of type 2
Number of cards of type 3
Number of cards of type 4
Number of cards of type 5
Number of cards of type 6
Number of cards of type 7
Number of cards of type 8
Number of cards of type 9
Number of cards of type 10
Hour of day
Day of week (Sun. = 1, Mon. = 2 . .
Sat. = 7)
Time period duration

















Total trips attracted to and generated by
the indirect sources during time period
specified
2
Parking density constant (number of ft
required to park each vehicle)
Number of iterations of the route selection
process
                May not be 0 on first iteration of program.
(continued)

-------
                                                    TABLE 2  (continued),
U)
00
Card Column
2 1-2
3-5
6-10
11-15
16-20
21-25
26-30
31-35
36-40
41-45

46-50
51-55
56-60
Format
12
13
15
F5.0
F5.0
F5.0
F5.0
15
F5.0
15

15
15
F5.0
Symbol
10
L
NLANE(L)
XI (L)
Y1(L)
X2(L)
Y2(L)
LCAP(L)
VEL(L)
LCON(L.l)

LCON(L,2)
LCON(L,3)
HEIGHT (L)
Units
-
-
-
ft
ft
ft
ft
veh/hr
ft/sec
-

-
-
m
Value limits
2
0 to 200
_> 1
> 0
> 0
> 0
> 0
> 1
1 to 147
0 to 200

0 to 200
0 to 200
i 0
Typical value
(default value
in parentheses)
2
1
2
3751
2363
2247
2673
-0 (1800)
58
3

26
27
0
Description
Card type number
Link number
Number of lanes
x-coordinate of northernmost end point
(•••ternmoct coordinate if link run* E-W)
y-coordinate of northernmost end point
x-coordinate of southernmost end point
y-coordinate of southernmost end point
(links should terminate at the in-
tersection center)
Capacity of link, veh/hr
Speed, ft/sec
Link to link connections. The link that L
connects to going straight
The link L connects to going right
The link that L connects to going left
Emission height
                                                      (continued)

-------
TABLE  2 (continued).

Card Column
3 1-2
2-5
6-10
11-15
16-20
21-25
26-30






31-35
36-39
40-43
44-47
48-51
52-55
56-59

60-63

64-67

68-71

Format
12
13
15
15
15
15
15






15
F4.0
F4.0
F4.0
F4.0
F4.0
F4.0

F4.0

F4.0

F4.0

Symbol
1C
I
LIN(I,J)
LIN(I,J)
LIN(I,J)
LIN(I.J)
ITYPC(I)






CYCL(I)
PH(I,J)
PH(I,J)
PH(I,J)
PH(I,J)
CI(I)
GCAP(I,1)

GCAP(I,2)

GCAP(I,3)

GCAP(I,4)

Units Value limits
- 3
0 to 70
- 0 to 200
0 to 200
- 0 to 200
- 0 to 200
-2 to 5






sec > r PH(I,J)
sec > 0
sec > 0
sec > 0
sec > 0
sec > 0
veh/hr > 0

veh/hr > 0

veh/hr > 0

veh/hr > I/

Typical value
(default value
in parentheses)
3
1
142
4
143
1
2






200
10
10
0
0
3
3600 (1200 veh/
hr/lane)
4000 (1200 veh/
hr/lane)
0 (1200 veh/hr/
lane)
0 (1200 veh/hr/
lane)
Description
Card type number
Intersection number
North link number
East link number
South link number
West link number







Type control; -1=2 way stop; -2=4 way
stop; 0 = no control; 2,3
1 = fixed time control; 4
type 3 E-W; 5 = type 3 N-S
Type I Type II
ft actuated
phases phases
Cycle Max cycle
N-S Min N-S
E-W Min E-W
N-S LT Min N-S LT
E-W LT Min E-W LT
Yellow time interval
= V/A control;
= type 2 N-S,
, type 2 E-W
Type III
actuated
phases
Max cycle
Min N
Min E
Min S
Min W

Capacity of one approach N (or S) for
phase 1 per hr green
Capacity of E (or W) phase 2

Capacity of S or S-N phase 3

Capacity of W or W-E phase 4


per hr green

per hr green

per hr green

         (continued)

-------
                                                                       TABLE  2  (continued).

Card

4


Column

1-2
3-4

Forat Symbol

12 1C
A2 IEXT
Typical value
Units Value limits (default value
in parentheses)
4 4
01-99 5

Description

Card type number
Zone identification (interior zones: 01-50;
-p-
o
                               5-7
                                      F3.0   ZATTR(Z)
  8-10    F3.0   ZGENR(Z)



11-13    F3.1   Z7T(1,Z)

14-16    F3.1   ZVT(2,Z)

17-19    F3.1   Z7T(3,Z)

20-24    F5.0   PVEH

25-29    F5.0   FLC




30-31    12     NZL


32-35    14     ZLINKS(1,Z)


36-39    14     ZLINKS(2,Z)
veh/hr or 7.     > 0



veh/hr or %     > 0



                > 0.

                > 0.

                > 0.
                                                               veh
                                                           veh  or gm/
                                                               sec
               >  0
               >  0
                                                                        1 to 6
                                                                        0 to 200
                                                                        0 to 200
              exterior  zones:  51-99)
  2         Zone attractions in either  (1) average
              volume (veh/hr) or  (2) %  of total trips
              attracted to all interior or all exterior
              zones

  2         Zone generations in either  (1) average
              volume (veh/hr) or  (2) %  of total trips
              generated to all the Interior or to the
              exterior  zones

0. (1.)      Fraction of zone attractions and genera-
              tions  that are automobiles

  0.         Fraction of zone attractions and genera-
              tions  that are buses
  0.         Fraction of zone attractions and genera-
              tions  that are other vehicle types
  0         Initial  number of parked vehicles in zone

  0         Parking  lot capacity  in vehicles (if left
              blank  lot capacity  is generated by the
              computer) or zone emissions for exterior
              zones  in  gm/s during time period

  1         Number of sides  (links) which define park-
              ing area  (the first NZL bordering links
              define the parking  lot area)

 112         Bordering link number 1 (a  negative link
              number indicates no access to the zone
              from this link)

 111         Bordering link number 2
                             76-79    14
                                             ZLIMCS(12,Z)
                                           0 to 200
                                                                                                        Bordering link  number  12
                                                                              (continued)

-------
TABLE  2 (continued).
Card Column
5 1-2
3-6
7-10
11-14

15-18
19-22
23-24
25-28
29-33
34-38
39-43
44-48
49-53
54-58
59-63

64-68

69-73

TW-75
76 '
Tf
Format
12
F4.0
F4.0
F4.0

F4.0
F4.0
12
F4.0
F5.3
F5.3
F5.3
F5.3
F5.3
F5.3
F5.3

F5.3

F5.3

12
11
11
Symbol Units
1C
GRDS IZE m
BACKGRD ppm
SLAT deg of lat .

TUNFAC
ZCONST m
IREG
TEMP °F
COLD
HOT
CCOLD
VMTMIX(l)
VMTMEC(2)
VMTMEC(3)
VMTMIX(4)

VMTMIX(5)

VMTMIX(6)

ALHFLG
TRKFLG
IMFLG
Value limits



0.
,
0.
3.
1,
0
0
0
0
0.
0.
0.
0.

0.

0.

0
0
0
5
50.
>0.
to 90.

1 to 3.
to 10.
2,3
- 110
- 1
- 1
- 1
to 1.
to 1.
to 1.
to 1.

to 1.

to 1.

or 1
or 1
or 1
Typical value
(default value Description
in parentheses)
5
10. (10.)
0.
0.

1.-
10. (3.)
1
75.
0.20
0.20
0.20
0.75
0.05
0.05
0.09

0.06

0.005

0
0
0
Card type number
Grid size
Background concentration at site
Latitude of site (needed only if stability
is to be computed by ISMAP)
Tuning factor
Initial vertical diffusion
Region: 1 = low 2 = calif., 3 = high
Temperature
Proportion of cold starts
Proportion of hot starts
Proportion of catalyst cold starts
Fraction of light-duty vehicles













Fraction of light -duty trucks, less than 600 GVW
Fraction of light-duty trucks, 6000 - 8500 GVW
Fraction of heavy-duty gasoline-fueled
vehicles
Fraction of heavy-duty diesel-fueled
vehicles
Fraction of motorcycles
Flag for optional air conditioning, loading
correction
Flag for optional truck correction
Flag for optional I/M correction





humidity



           (continued)

-------
                                                   TABLE  2  (continued).
ho
Card
Column
Format
Symbol
Typical value
Units Value limits (default value
In parentheses)
Description
Omit if ALHFLG equals zero
5A






1-10
11-20
21-30
31-40
41-50
51-60
61-70
_
FIO.O
FIO.O
FIO.O
FIO.O
FIO.O
FIO.O
_
AC
XLOAD(l)
XLOAD(2)
XLOAD(3)
TRAILR
ABSHUM
.
.30
.10
.10
.10
.05
gr/lb - 75
Blank
Fraction of LDV and LOT VMT with air-conditioning
Fraction of LDV VMT with additional 500 Ib load
Fraction of LDTl VMT with additional 500 Ib load
Fraction of LDT2 VMT with additional 500 Ib load
Fraction of LDV VMT with a trailer (1,000 pounds)
Humidity (not currently applicable)
Omit if TRKFLG equals zero
SB


1-10
11-20
21-30
31-40
41-50
-
FIO.O
FIO.O
FIO.O
FIO.O
-
HGWGT
HDWGT
HGCID
HDCID
-
Ibs 18,000
Ibs 19,000-55,000 45,000
in3 330-390 350
in3 540-600 580
Blank
Average gas vehicle weight
Average diesel vehicle weight
Average gas displacement
Average diesel displacement
Omit if IMFLG equals zero
5C




6


1-10
11-15
16-20
21-25
26-30
31-35
1-2
6-10
11-15
-
15
15
15
15
15
12
15
15
-
ICYIM
ISTRIK
IMTFLG
MODYR1
MODYR2
1C
LGATE(1,IG)
LGATE(2,IG)
-
82
30
0-1 0
81 J
6 6
1 to 200 15
1 to 200 16
Blank
Last two digits of implementation year of I/M
Stringency
Mechanic's training (1 = yes)
Beglning and ending model
years subject to Inspection
Card type number
Link number of exit gate to parking lot
Link number of approach to parking lot
                                                                (continued)

-------
TABLE  2 (continued).
Card
7



Column
1-2-
3-5
6-10
11-15
Format
12
13
F5.3
F5.3
Symbol
1C
VT
VTP(VT)
VTE(VT)
Typical value
Units Value limits (default value
in parentheses )
-7 7
1, 2, or 3 1
> 1. 1.4
—

Description
Card type number
Vehicle type,
and load) =
Number of pass

auto (park) = 1; bus (stop
2; truck (stop and wait) = 3
lengers in average vehicle

        (continued)

-------
TABLE  2 (continued).
Card Column
8 1-2
3-5
6-10
11-15
16-20
21-25
26-30
31-35
36-40
41-45
46-50
51-55
56-60
61-65
66-70
71-75
76-80
Format
12
13
F5.0
F5.0
F5.0
15
F5.0
F5.0
F5.0
15
F5.0
F5.0
F5.0
15
F5.0
F5.0
F5.0
Symbol
1C
L
COUNT (1,L)
COUNT(2,L)
COUNT(3,L)
L2
COUNT(1,L2)
COUNT(2,L2)
COUNT(3,L2)
L3
COUNT(1,L3)
COUNT(2,L3)
COUNT(3,L3)
L4
COUNT (1,L4)
COUNT (2, L4)
COUNT(3,L4)
Units
-
—
veh
veh
veh
-
veh
veh
veh
-
-veh
veh
veh
-
veh
veh
veh
Value limits
8
1 to 200
> 0.
> 0.
> 0.
1 to 200
> 0.
> 0.
> 0.
1 to 200
> °-
> 0.
> 0.
1 to 200
> 0.
> 0.
> 0.
Typical value
(default value
in parentheses)
8
151
755.
88.
107.
152
1064.
0-.
0.
153
457.
147.
170.
154
429.
0.
0.
Description
Card type number
Link number on which count occurs (1 < L <
NLINK)
Count going straight from link L through
the intersection during time period
Count going right from link L
Count going left from link L
Link number on which count occurs
Count going straight from link L2
Count going right from link L2
Count going left from link L2
Link number on which count occurs
Count going straight from link L3
Count going right from link L3
Count going left from link L3
Link number on which count occurs
Count going straight from link L4
Count going right from link L4
Count going left from link L4
        (continued)

-------
TABLE  2 (continued).
Card Column
9 1-2
3-12
13-22
23-25

26-30

31-35

36-45
46-55
56-60
61-66

67-70



Format
12
F10.5
F10.5
13

F5.0

15

F10.0
F10.0
F5.0
LI3

14



Symbol Units Value limits
1C - 9
XO(I) ft > 0.
YO(I) ft > 0.
ISTR(l) - 0, 1

AST(I) deg from N 0. to 180.

NLKST(I) - 0 to 2

WST(I) ft > 0
BUILDH(I) ft > 0
RECHGT(I) ft > 0
ISTLIN(I,J), > 0
J = 1, 2
IRSIDE(I) 1 or 2



Typical value
(default value
in parentheses)
9
2983.75
3774.25
0

17.0

2

60.
70.
5.
1, 2

1



Description
Card type number
X-coordinate of receptor location
Y-coordinate of receptor location
0 = exclude street canyon model
1 • potential street canyon receptor
Direction of the street in degrees from
north
Number of links influencing the street
canyon receptor
Receptor street width
Building height
Receptor height
Identification numbers for those links
affecting receptor I
Side of the street on which receptor I is
located with respect to the street
heading specified by AST(I) (1 = right,
2 = left)
       (continued)

-------
TABLE 2 (continued).
Card
10





Column
1-2
3-10
11-18
19-23
or
19-23
Format
12
F8.2
F8.2
15

15
Symbol
1C
THETA(I)
WS(I)
ISTAB(I)
or
ICLD(I)
Units
-
deg from N
knots
-

tenths
Value limits
10
0. to 360.
>1.94
1 to 5

0 to 10
Typical value
(default value
in parentheses)
10
101.
3.89
4

-
Description
Card type number
Wind direction
Wind speed
Stability class
or
Cloud cover

-------
HEADER CARD (CARD TYPE 0)

     The first data card for each time period is a header card containing the
date and a descriptor that identifies the run.  The descriptor may consist of
any 70 alphanumeric characters.  Column 80 must contain a 1 for the modified
version of ISMAP to be run correctly.

RUN DESCRIPTION (CARD TYPE 1)

For each time period the header card is followed by card type 1.  This card
denotes how many of each of the other card types (2 through 10) should be
read for that time period.  If the data on a card type does not change from
one time period to the next, the card type 1 for the second time period should
have a zero or spaces in the proper columns to indicate that the data have not
changed and no new cards of a particular type should be read.

     Card type 1 also contains the time of day, TOD, and the day of week, DOW.
The input value for time of day should be the beginning of the period being
simulated; e.g., when computing hourly concentrations, TOD is 8 for the period
0800 to 0900 LST.  For day of week, 1 is Sunday, 2 is Monday, and so forth.
The length of time being simulated with each iteration of ISMAP is specified
as TP.  This value can be meaningfully varied from 900 sec (15 minutes) to
7200 sec (2 hours).  In general, traffic counts and demands and meteorological
data are available as 1-hour summaries; for this reason the usual value for
TP is 3600.  The trips attracted to and generated by the interior zones during
a time period of duration TP are read as TOTATT and TOTGEN.  The input value
for the parking density constant is ignored by the modified version of ISMAP.
This variable is set equal to an extremely low value to avoid routing of
vehicles between interior zones.

     The number of iterations of the route selection process may be input using
the ITM parameter.  The default value for ITM is 13 which means that one itera-
tion of the route selection process will be made in which four alternative
routes will be selected between each external-internal and internal-external
zone pair.  Vehicles are routed onto these alternative routes based on travel
time and gate capacity.  When ITM is 2, the route selection process is carried
out twice and half of the vehicles to be routed are applied to the four ini-
tially selected alternative routes, and half the vehicles are applied to the
second four alternative routes.  When ITM is greater than 1, vehicles can be
routed around intersections that are predicted to be congested by earlier
route selection iterations.  A computer run time increase of about 60 percent
can be expected when specifying ITM = 2 rather than ITM = 1, when only one
receptor location (card type 9) has been specified.

LINK DESCRIPTION (CARD TYPE 2)

     Each direction of flow on a street within the network is assigned a link
number.  A card type 2 is read for each link and includes the link number.
The average number of lanes of traffic that make up the link are specified,
and link capacity is determined when such capacity is not input  (at 1200 veh/
lane for speeds less than 70 ft/sec and 1800 veh/lane for speeds greater than
70 ft/sec).

                                      47

-------
     Coordinates must be read that specify each link's end points in the hori-
zontal plane.  There are dire consequences if zones are defined by links
that do not connect at their end points (see card type 4 description).   Co-
ordinates are input in feet from some arbitrary origin and must be positive.

     Link capacity may be input or left to be computed by ISMAP.  Usually a
network is very insensitive to link capacity, intersection capacity being the
controlling variable.  The exception is a freeway or other limited access road,
which might be included in the simulated network.

     Speed, in ft/sec, on a link indicates the average speed that vehicles
travel during low-use periods.  This can usually be estimated as the speed
limit on the link.

     Link-to-link connections are specified for each link going straight,
right, and left.  When a link does not lead to another link, the connection
should be input as zero or spaces.

     An emission height must be input for elevated links.  When modeling a
facility located on relatively flat terrain, an emission height of zero is
normally input for all traffic links.  While a more realistic value of the
emission height would be 0.5 m, this change would cause little effect upon
the calculated concentration if an initial vertical diffusion of 3 m were
specified.  At present, depressed roadways are treated as surface emission
sources, while roadways upwind of aerodynamic barriers may be assigned effec-
tive emission heights, as necessary.

INTERSECTION DESCRIPTION (CARD TYPE 3)

     An intersection description is required for each intersection in the
network.  An intersection can be defined at each connection between two or
more links.  The link numbers of streets entering the intersection from the
north, east, south, and west are input parameters.  If there is no link ap-
proaching from some cardinal direction, spaces or zeros should be entered.

     A type of control for each intersection (I) must be specified as follows:

     ITYPC(I) =  -2    indicates a 4-way arterial stop.
      ITYPC(I) = -1
     ITYPC(I) = 0

     ITYPC(I) = 1
indicates a 2-way arterial stop.  The approach
with the largest volume is considered to be
uncontrolled, while the cross traffic links are
assumed to have stop signs.

indicates no control on any approach.

indicates a fixed time signal controller.
                                      48

-------
ITYPC(I) = 2
ITYPC(I) = 3
ITYPC(I) = 4
ITYPC(I) = 5
                     indicates a vehicle-actuated (VA)  controller
                     with possible separate left turning phases  for
                     north-south and east-west traffic.

                     indicates a vehicle-actuated controller with
                     each intersection approach controlled  by  a
                     separate signal phase.  During a  green phase,
                     left-turning vehicles  do not have  to cross  an
                     opposing traffic flow  since the opposing  traffic
                     experiences a red signal.

                     indicates type 2 control on the north-south
                     approaches and type 3  control on  the east-west
                     approaches.  The north-south approaches are
                     controlled by a vehicle-actuated  controller
                     during phase 1 of the  signal cycle. If phase 3
                     is specified as having other than zero phase
                     length, left turns from the north-south directions
                     are made during phase  3.  If phase 3 is specified
                     as having a zero phase length, then left-turning
                     vehicles are assumed to move during phase 1 and
                     experience opposing vehicular flow. Phases 2 and
                     4 are exclusive green  phases for  the east and
                     west approaches, respectively.

                     indicates type 3 control on the north-south
                     approaches and type 2  control on  the east-west
                     approaches.  Phases 1  and 3 are exclusive green
                     phases controlling the north and  south approaches,
                     respectively.  The east-west approaches are con-
                     trolled by a vehicle-actuated controller  during
                     phase 2 of the signal  cycle.  If  phase 4  is
                     specified as having other than zero phase length,
                     left turns from the east-west directions  are made
                     during this phase.  If phase 4 is specified as having
                     a zero phase length, left-turning vehicles are assumed
                     to move during phase 2 and to experience  opposing
                     vehicular flow.

     The five controller types are intended to allow any fixed time  or VA type
control to be simulated.  The controllers are simplified, however, and cannot
be used to exactly replicate leading or lagging left-turn phases,  or  8-phase-
full-quad-left signal controllers.  It is often possible to adjust  the capa-
city of an intersection to compensate for the lack of  a more sophisticated
simulated signal controller, and produce meaningful results.   An 8-phase-quad-
left control is best simulated by a type 2 controller.

     Each signal controller must have a maximum cycle length specified, as
well as nonzero phase times for each operating signal  phase.   For example, a
simple fixed-time signal might have a 60-sec cycle time and 30-sec  north-
south and 30-sec east-west phase lengths.  If phase 3  and phase 4 times are
set to zero, the ISMkP simulation assumes left turns are made through opposing

                                      49

-------
 traffic during phases 1 and 2.  When specifying VA control,  each phase time
 represents a minimum phase length.  Green time is apportioned among the phases
 in"proportion to the largest demand capacity ratio on the controlled approaches.
 For example, a type 2 controlled intersection might have a maximum cycle
 length of 240 sec, minimum north-south phase 1 and east-west phase 2 green
 times of 30 sec, and minimum north-south left-turn phase 3 and east-west left-
 turn phase 4 green times of 10 sec.  This signal could operate at an 80-sec
 cycle time under low demand conditions (3CH-30+1CH-10) and at a 240-sec cycle
 time under high demand conditions.  (Actually, if there is no demand for the
 east-west left-turn phase 4, phase skippability will be assumed and a 70-sec
 minimum cycle time would be possible.)

      A yellow clearance interval, CI(I), is specified for each controller.
 This interval is applied to each phase of each controller and decreases the
 effective green time of each signal phase by CI(I)/2.

      Four approach capacities may be specified, one for each approach (or
 phase if the intersection is signalized).  If an input capacity parameter is
 left blank, ISMAP will determine a capacity based on the number of lanes on
 the approach link and the type of intersection control.  Capacity of a signa-
 lized intersection approach can be determined by selecting the capacity per
 hour of green based on the road width from Figures 6.6 through 6.13 in the
 Highway Capacity Manual.9  The capacity so selected assumes 10 percent left-
 turning and 10 percent right-turning vehicles.  ISMAP adjusts the input capa-
 city based on the percentage of vehicles actually routed left and right in
 the modeled network.  When a 3 or 4 phase and type 1 or 2 signal is specified,
 the 3rd phase is assumed to be the north-south left-turn phase and the 4th
 phase is assumed to be the east-west left-turn phase.  The capacities input
 should be the maximum of the left-turning approaches during the 3rd or 4th
 phase.  A type 3 intersection assumes the 3rd and 4th phases control the south
 and east approaches and the 3rd and 4th capacities are the capacities of these
 approaches.

      Besides an adjustment for number of turning vehicles, ISMAP assumes there
 is a left-turn lane where left-turn phases are specified.  This has the effect
 of increasing capacity to the through vehicles, as well as to the left-turning
 vehicles.

 ZONE DESCRIPTION (CARD TYPE 4)

      Vehicle routing takes place from exterior zones to interior zones with
 the facility and vice versa.  In the original ISMAP interior zones were parking
 zones surrounded by links of the network.  Exterior zones are usually assigned
 to each exterior street from which vehicles enter or leave the network.  In-
 terior zones are identified by numbers 01 to 50 while exterior zones are
 numbered 51 to 99.

     Each zone identified will have an attraction factor (ZATTR)  and a genera-
tion factor (ZGENR) assigned to it by the user.  These factors may vary from
hour to hour (as would be the case for an office building parking lot located
within a shopping center) or may remain constant throughout the day.   The


                                     50

-------
factors may be in units of percent of TOTATT and TOTGEN (input on card type 1)
or in units of vehicles attracted and generated by the zone during a time
period, but the units must be consistent on all zone cards.  The factors are
summarized within ISMAP for all exterior and all interior zones, and a percent-
age of the total is determined for each zone and is multiplied by TOTATT and
TOTGEN to determine the vehicles attracted or generated.  TOTATT is the number
of trips attracted to a facility from exterior zones.  Therefore, each ZATTR
specified for an interior zone will represent a part of TOTATT, while each
ZATTR specified for an exterior zone will represent a part of TOTGEN.

     Vehicle trips to a zone may be in terms of autos, buses, and trucks.
Autos are the only vehicles that will use parking capacity.  The percent of
each type of trip to each zone is an input parameter.

     When a run is initialized on the computer, zero cars are assumed to be
parked in each zone unless a parked vehicle value is input.  Since the number
of parked vehicles is saved from iteration to iteration, it is unnecessary to
input parked vehicle values except on the first iteration of ISMAP.

     A parking zone capacity (PLC) is input in a number of vehicles.  This
parameter, if left blank, will be calculated by ISMAP based on the parking
zone area.  It is important to input PLC when a building or other facility is
present within the parking zone.

     The number of sides that define each parking zone (NZL) must be input
for each interior zone.  A parking zone is defined as a polygon of no more
than six sides.  The links that surround the zone should be input (as ZLINKS)
in an order such that each link immediately follows the link to which it is
connected.  When defining a zone, if the last link does not connect with the
first link, the program will construct a side to close the zone.  The con-
structed side should not be included in NZL.  For the modified ISMAP, NZL
must be input as 2 of less, and the links surrounding the zone, ZLINKS, must
be identified as the two links entering and leaving the internal zone.

LOCAL AREA DESCRIPTION (CARD TYPE 5)

     Local area descriptors appear on card type 5.  The user must input the
percentage of heavy duty vehicles in the total traffic, the altitude and lati-
tude of the site, and the background CO concentrations at the site.  The size
of the grid into which area source emissions will be parceled also must be
specified.  This input parameter depends somewhat on the size of the area to
be modeled.  Grid sizes of 5 to 10 m are deemed appropriate for applications
such as shopping centers.  An input value that is too small will result in the
generation of arrays requiring more computer storage than has been set aside.
To determine the minimum grid size allowed, divide the maximum value of the
link end point coordinates by 298.001.  It should be noted that computer run-
ning costs will increase nonlinearly as the grid size decreases.  A default
value of 10 m will be used for the grid size if 0 is input.  A tuning factor
is input on this card, which can be used to adjust modeled emissions, based
on measured emissions, or to adjust emissions based on different emission
factors found in other countries.
                                      51

-------
     Card type 5 also requires specification of a distance representing ini-
tial vertical diffusion.   Suggested values for this parameter are in the range
of 3 to 10 m.  If a value less than 3 m is input, ISMAP will set the constant
equal to 3 m.

     Also input on this card are the region, temperature, cold and hot starts,
and the fractions of the vehicle population of light-duty vehicles, light-duty
trucks, heavy-duty gasoline fueled vehicles, heavy-duty diesel-fueled vehicles
and motorcycles.  The final input variables on this card are indicators of
whether the supplemental correction factors are to be used.  (These factors
are identical to MOBILE1.)  If used cards 5A, 5B and/or 5C must be supplied.)

GATE DESCRIPTION (CARD TYPE 6)
     Each entrance and exit gate to an internal zone must be specified by a
gate description card.  Two links define a gate:  one is the link by which
vehicles leave the center, and the second is the link by which vehicles enter
the center.  The capacity for each gate is determined by the program based on
input or assumed link capacities.  Recall that vehicles are allocated to four
alternate routes in inverse proportion to travel time and volume to capacity
ration of the gate used.  Thus, all trips between external and internal zones
must be routed through a gate.  If a route exists between an external and in-
ternal zone that does not go through a gate, the program will fail without
any explanation.

VEHICLE CHARACTERISTICS (CARD TYPE 7)

     This card is read for each type of vehicle entering the facility.  The
three possible types of vehicles are autos, buses, and trucks.  Each vehicle
should have a load factor associated with it, indicating the number of person
trips to the facility that are associated with each vehicle.

VEHICLE COUNTS (CARD TYPE 8)

     The purpose of this card is to specify the nonfacility vehicles that use
the street network.  The links and intersections outside the facility will
handle vehicle trips to the facility as well as other trips.  The Vehicle
Count cards are used to apply the nonfacility-oriented trips to the street
network.  The counts for as many as four links can be included on each card.
The count on a link is broken down into vehicles traveling straight, turning
right, or turning left at the downstream intersection of the link with other
links.  It is convenient to include the counts of four approaches to an inter-
section on a card.  The input parameters are:

     •   North approach link number (L) followed by the counts
         on this approach traveling straight, right, and left.

     •   East approach link number (L2) followed by the counts
         on this approach traveling straight, right, and left.

     •   South approach link number (L3) followed by the counts
         on this approach traveling straight, right, and left.

                                      52

-------
     •   West approach link number (L4) followed by the counts
         on this approach traveling straight, right, and left.

The facility-oriented vehicles are added to the Vehicle Counts during an ISMAP
run to determine the total vehicles on each link of the network.

RECEPTOR DESCRIPTION (CARD TYPE 9)

     The x- and y-coordinates of each receptor location are input on card type
9.  The values for these coordinates are in feet and must be positive and based
on the same origin used for link coordinates.  If the receptor is located in
a potential street canyon the user must also specify the relevant street canyon
characteristics discussed earlier in this section.

METEOROLOGICAL VARIABLES (CARD TYPE 10)

     Card type 10 contains the meteorological information necessary for dis-
persion calculations.  The user has the option of specifying the stability
class as input or allowing ISMAP to calculate stability class from cloud cover
and wind speed data.  However, the stability determination capability of ISMAP
can only be used when the time period being simulated is 1 hour.   If stability
is to be input, one card type 10, with values for wind direction, wind speed,
and stability class, is input with traffic and site descriptors for each time
period (durations of from 900 to 7200 sec are possible).  If ISMAP is to cal-
culate stability class, 24 card type 10s containing observations of wind direc-
tion, wind speed, and cloud cover for 24 hours of the day are input with the
traffic and site data for the first hour for which CO concentrations are to be
computed.  If stability is to be found by ISMAP, the meteorological data for
all 24 hours of a day is input together, even if CO computations are to be
made for only a few hours of the day.  This is necessary for program effi-
ciency.  Since the stability class for each hour of the day will be found
during dispersion calculations for the first hour, no card type 10 is input
with traffic and site data for subsequent hours until a new day is to be run.
If the wind is calm, wind speed should be input on card type 10 as 1.94 knots
(1 m/sec) and the wind direction from the previous time period should be
used.
                                      53

-------
                                  SECTION 5

                             SAMPLE APPLICATION
     For a sample application of the modified ISMAP model we have chosen the
configuration of links, intersections, zones and receptors shown in Figure 12.
For this particular example the traffic flow within the network is generated
by means of vehicle attractions and generations for six interior zones and
six exterior zones.  When setting up a network such as this one, it must be
remembered that vehicles cannot be routed between two interior zones or two
exterior zones.  For each of the interior zones a gate has been designated
with associated incoming and outgoing links.  A total of nine receptor loca-
tions are used in this simulation with the central receptor considered to be
a street canyon receptor.

     A listing of the model input cards for this sample case follows Figure 12.
The format for each card is given by Table 2.  The first card in the list is
the leader card which gives the date for which the simulation is being carried
out (not the date of the computer run), the run identities and a flag in
column 80 which must be set equal to 1 for the modified version of ISMAP to
be run properly.  The following card (card 1) indicates that for the simula-
tion there will be 48 links, 9 intersections, 12 zones, 1 type 5 card, 6 gates,
3 vehicle types, no VMT which is not due to zone attractions, 9 receptor loca-
tions and 1 hour's worth of meteorological data.  Also input to the program
on this card is the hour of the day (8), time period duration (3600 sec),
total trips attracted to the interior zones (1800), total trips generated by
the interior zones (300), parking density constant (360 ft^ - not used) and
the number of iterations to be used in the route selection process (3).  For
each link a type 2 card is required giving number of lanes, endpoint coordi-
nates in feet, cruise speed on the link (ft/sec), link connections (going
straight, turning right and turning left), and emission height (meters).
For example,  if we follow link 21 along the direction from the first pair of
endpoint coordinates to the second, we meet links 23, 46 and 47.  For each
of the links used in this example the cruise speed was assumed to be 58 ft/sec
(40 mi/hr) and the emission height set equal to zero.  For each of the nine
intersections a type 3 card is provided giving the identification numbers of
links approaching the intersection; signalization type (fixed time for the
example case); cycle time (200 sec); duration of North-South, East-West,
North-South left turn and East-West left turn phases ( 75, 75, 25, 25 sec);
and yellow time interval (3 sec).  The default value of 1200 veh/hr/lane
was used as the capacity of each phase.  The card type 4 entries identify the
interior zones (01-06) and the exterior zones and give the number of trips
attracted to or generated by the zone as a fraction of total trips attracted
to and generated by all interior and exterior zones.  The percentage values


                                     54

-------
                                                                   LEGEND-:

                                                                     0'UNK NUMBERS ( I -48)



H                                                                       "INTERIOR ZONES. ( 1-6)
                                                                       •EXTERIOR ZONES )«. _ gg.


                                                                     ^•INTERSECTION NUMBERS(|..Q)



                                                                     Q'SKl NUMBERS ( |-12)



                                                                     • -RECEPTOR  LOCATIONS
                           •\oocf-
Figure  12.    Diagram  for test  case  of modified
                                    55

-------
INDIRECT SOURCE  MODEL  FOR AIR POLLUTION  (ISRAP),   INPUT  DATA
                                                                    E F  A
                                                                                                     BATE   072079
                                                                                                                     PAGE
kiFLT.L ISMAPDATA
ELT007 SL73R1 07/20/79 18:44:56 <2,)
0^0001 OCO 7703C1 EXAM CLE HOT SPOT CALCULATION WITH
unopo2
0^000*
000004
000005
OOOOOfr
0^0007
oooooe
000009
000010
000011
000012
0:0013
000014
000015
0^0016
000017
0^0013
000019
0^0020
000021
0000??
000021
000024
000025
000026
030027
000023
000029
000030
000031
000032
000033
000034
000035
000036
000037
030033
000039
000040
000041
00004?
00004!
000044
000045
000046
000047
00004?
000049
000050
000051
000052
000053
000054
000055
000
000
OOG
000
COU
000
OOU
000
OCO
000
000
000
coo
000
coo
000
coo
000
ceo
000
coo
coo
000
coo
coo
000
COu
000
ceo
ceo
coo
000
000
000
000
000
coo
000
000
cou
coo
coo
000
000
000
000
coo
000
OCO
000
coo
000
coo
000
1
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
3
3
3
3
t
48
01
02
03
04
05
06
07
Oft
09
10
11
12
13
14
15
16
17
16
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
36
39
40
41
42
43
44
45
46
47
48
01
02
03
04
05
9 12
2 1100.
2 1100.
22100.
2 2100.
23100.
23100.
24100.
24100.
2 1100.
21100.
22100.
22100.
23100.
23100.
24100.
24100.
2110C.
2 1100.
22100.
2210C.
23100.
2310C.
24100.
24100.
2 1130.
21110.
21130.
21110.
21130.
21110.
21130.
21110.
22130.
21110.
22130.
22110.
22130.
22110.
22130.
22110.
23120.
23110.
23130.
23110.
23130.
23110.
23130.
23110.
28 04
36 06
44 08
30 12
38 14
1 6
111 t. 0100.
113C.0100.
1110.1100.
1130.1100.
1110.2100.
1130.2100.
1110.3100.
1130.3100.
211C.0100.
2 1 3 C . 0 1 00 .
2110.1100.
23 1C. 11 00.
2110.2100.
2130.2100.
21 1C. 3100.
2130.3100.
311C.0100.
313C.3100.
3110.1100.
3130.1100.
3110.2100.
313C.2100.
311 C.3100.
313C.3100.
1100.1130.
1100.1110.
2100.1130.
2100.1110.
310C.1130.
310L.1110.
4100.1130.
4100.1110.
110C.2130.
1100.2110.
2100.2130.
2100.2110.
310C.2130.
3100.2110.
410C.2130.
410C.21 10.
1100.3110.
1100.3110.
2100.3130.
2100.3110.
310C.3130.
3100.3110.
4100.3130.
410C.3110.
25 01
33 03
41 05
27 09
35 11
3
1110.
113o.
1110.
1130.
1110-
1130-
1110.
1130-
211Q.
213Q.
2110.
213o«
211o.
2130.
2110.
213o.
311o.
3130.
3110.
313Q.
311Q.
3130.
3110.
313o.
0100.
0100.
1100.
1100.
2100.
2100.
3100.
3100.
0100.
01QO.
1100.
1100.
2100.
2100.
3100.
31QO.
0100.
0100.
1100.
1100.
2100-
2100-
3100.
3 IOC.
1
1
1
1
1
0 9
58.
56.
56.
58.
58.
58.
56.
58.
58.
56.
58.
58.
56.
58.
58.
58.
56.
58.
58.
56.
58.
58.
58.
58.
56.
58.
58.
58.
58.
58.
58.
56.
58.
58.
58.
58.
58.
58.
58.
58.
58.
58.
58.
58.
58.
58.
5£.
58.
200 75.
200 75.
200 75.
200 75.
200 75.
MODIFIED ISI»AP
1
03
DC
05
02
07
04
00
06'
11
00
13
10
15
12
00
14
19
00
21
16
23
20
00
22
27
00
29
26
31
26
00
30
35
00
37
34
39
36
00
38
43
00
45
42
47
44
00.
46
75. 25.
75. 25.
75. 25.
75. 25.
75. 25.
6.
26
00
34
27
42
35
00
43
28
00
36
29
44
37
00
45
30
00
38
31
46
39
00
47
03
00
11
02
19
10
00
18
05
00
13
04
21
12
00
20
07
00
51
06
23
41
00
22
25.
25.
25.
25.
25.
3.3600.'
57
00
35
26
43
34
00
42
29
00
37
28
46
36
00
44
31
00
39
30
47
38
00
46
02
00
10
03
18
11
00
19
04
00
12
05
20
13
00
21
06
00
14
07
22
15
00
23
3.
3.
3.
3.
3.
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0






-------
    INDIRECT SOURCE  MODEL FOR AIR POLLUTION  (ISHAP).    INPUT DATA
                                                                       EPA
                                                                                                       DATE   072079
                                                                                                                        PA6E
                                                                                                                                  57
000054
000057
00005?
000059
000060
000061
000062
000063
000064
000065
000064
000067
000068
000069
000070
000071
000072
000073
000074
000075
000076
000077
00 00 7!
000079
000060
000081
000082
000083
OOOOJ4
000065
000086
000067
OOOOEB
OOOOE9
000090
000091
000
oco
coo
oco
000
coo
oco
coo
000
000
coo
cou
000
000
coo
coo
ceo
000
coo
000
000
GOO
000
000
000
COD
OOQ
000
000
000
000
000
000
coo
000
000
3 06 46
? 07 32
3 oe 40
3 C9 4t
45612.12.
45512.12.
45412.12.
45312.12.
45212.12.
45112.12.
40612.12.
40512.12.
16
20
22
24
40412.12.
4
&
4
c
6
6
6
6
6
6
7
7
7
9
0
9
9
9
9
9
9
9
10
312.12.
212.12.
112.12.
0.0 0.0 0.
01
09
17
41
33
25
1 01.4
2 15.0
3 02.0
1000.
2000.
300C.
1000.
2000.
3000.
10GC.
2QOG.
3000.
120.



0 1
02
10
1E
42
?4
26












5.
43 13 1 200 75. 75. 25. 25. 3.
29 17 1 200 75. 75. 25. 25. 3.
37 19 1 200 75. 75. 25. 25. 3.
45 21 1 200 75. 75. 25. 25. 3.
07 08
15 16
23 24
47 48
39 40
1 31 32
1 41 42
1 33 34
1 25 26
1 17 18
1 9 10
112
.0 0.0 1 50. 0.20 0.20 0.20 0.75 0.05 0.05 0.09 0.06









1090.
1090.
1 090 .
2090.
2090. 1 90. 2 60. 70. 5. 11 12
2090.
3090.
3090.
3090.
00 4
                                                                                          0.00 000
END ELT.
t^RKPT PRINTS

-------
INDIRECT  SOURCE TODEL  FOR AIR POLLUTION ,   -  OUTPUT
EPA
                        770301
                                    EXAMPLE HOT  SPOT  CALCULATION  WITH MODIFIED
DATE  072079



            1
                                                                                                                          PAGE
BARKING LOT EMISSIONS NOT CONSIDERED
1
?
-i
i
-i
7
?
r
7
7
?
2
7
2
i.
i
7
7
7
?
2
7
?
2
2
c
2
-)
2
2
^
2
2
-\
•>
2
2
2
-)
2
-*
c
2
2
•>
7
2
?
2
2
j
T
7
T
7
T
4t
1
2
1
i,
5
6
7
£
9
10
11
M
13
14
15
16
1 7
16
19
20
21
22
21
24
25
26
27
26
29
30
31
32
33
34
35
36
37
36
39
40
41
42
43
44
45
46
47
46
1
2
3
4
5
9 1
211 CO
2 11 00
22100
221 00
23100
23100
24100
24100
211CO
211 CO
22100
221 CO
231CO
23100
24100
24100
21100
21100
2 21 00
22100
231CO
23100
24100
24100
2113C
211 10
21130
211 1C
211 30
211 1C
211 30
211 10
221 30
22110
22130
2211C
22130
22110
2213G
221 10
23130
23110
23130
23110
23130
23110
2313C
231 10
25
36
44
30 1
3? 1
i 1
.1110.
.1130.
.1110.
.1110.
.1110.
.1130.
.1 110.
.1130.
.2110.
.2130.
.2110.
.2310.
.2110.
.2130.
.2110.
.2130.
.3110.
.3130.
.3110.
.3130.
.3110.
.3130.
.3110.
.3130.
.1130.
.1130.
.2130.
.2100.
.3100 .
.3130.
.4130.
.4100.
.1130.
.1 130.
.2130.
.2130.
.3130.
.3130.
.4130.
.4100.
.1100.
.1130.
.2130.
.2130.
.3130.
.3130.
.4130.
.4130.
4 25
6 33
e. 41
2 27
4 35

100
100
1100
1100
2100
2100
3100
3100
100
100
11CO
1100
2100
2100
3100
3100
100
100
1100
1100
2100
2100
3100
31CO
1130
1110
1130
1110
1130
1110
1130
1110
2130
2110
2130
2110
2130
2110
2130
2110
3110
3110
3130
3110
3130
3110
3130
3110




1
6 3
.1110.
.1 13U.
.1110-
.1130.
.1110.
.1130.
.1110.
.1130.
.2110.
.2130.
.2110.
.2 130.
.2110.
.2130.
.2110.
.2130.
.3110.
.3130.
.311 L.
.3130.
.3110.
.313C.
.3110.
.3130.
. 1CO.
. 100.
.1100.
.1100.
.2100.
.2100.
.3100.
.3100.
. 100.
. 100.
.1 100.
.1100.
.2100.
.2100.
.3100.
.3100.
. 100.
. 100.
.1 100.
.1 100.
.2100.
.2 100.
.3100.
.3100.
1 1
3 1
5 1
9 1
1 1
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
200
200
200
200
200
9
5E.
5E.
'56.
5E .
51.
58.
5E.
58.
56.
5E.
5E.
5E.
58.
56.
58.
58.
58.
5fc.
56.
5E.
56.
56.
56.
5E.
56.
58.
58.
58.
56.
EE.
58.
56.
5E.
5E.
5E .
5E.
5E.
56.
56.
5E.
58.
58.
58.
58.
56.
5E.
5B.
58.
75. 75
75. 75
75. 75
75. 75
75. 75
1
3
0
5
2
7
4
0
6
11
0
13
10
15
12
0
U
19
0
21
18
23
20
0
22
27
0
29
26
31
28
0
30
35
0
37
34
39
36
0
38
43
0
45
42
47
44
0
46
. 25.
. 25.
. 25.
. 25.
. 25.
8.
26
0
34
27
42
35
0
43
28
0
36
29
44
37
0
45
30
0
38
31
46
39
0
47
3
0
11
2
19
10
0
18
5
0
13
4
21
12
0
20
7
0
51
6
23
41
0
22
25.
25.
25 .
25 .
25 .
3.3
57
0
35
26
43
34
0
42
29
0
37
28
46
36
0
44
31
0
39
30
47
38
0
46
2
0
10
3
18
11
0
19
4
0
12
5
20
13
0
21
6
0
14
7
22
15
0
23
3.
3.
3.
3.
3 .
600.1800. 300. 360
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0. 0. 0. 0.
0. 0. 0. 0.
0. 0. 0 . 0.
0. 0. 0. 0.
0. 0* 0. 0.

-------
  INDIRECT  SOURCE  ITOOEL  FOR AIP POLLUTION  (ISMAP),   -   OUTPUT
EPA
                                DATE  072079
                                                                                                                      PAGE
                                                                                                                                 59
y e
! 7
» 6
3 V
*Sei2.
45512.
<541c.
45312.
45212,
45112.
112.
212.
212.
412.
512.
612.
5 0.
A
6
A
£
•>
6
9 3Q4
9 609
9 914
9 3D*
9 609
9 914
9 304
9 609
9 914
45
32
43
48
12.1.0
12.1.0
12.1.0
12.1.0
12.1.0
12.1.0
12.1.0
12.1.0
12.1.C
12.1.0
12.1.0
12.1.0
0. C
1
9
17
41
3!
25
.83000
.60000
.35999
.80000
.60000
.39999
.soooc
.60000
.39999
10 120.00
16
20
22
24
.0 .
•0 •
• 0 •
• 0 •
• 0 •
•C •
• o .
• 0 >
>o •
.0 .
.0 .
.0 .
. 1.
2
10
ia
42
34
26
332.
332.
332.
637.
637.
637.
941.
941.
941.
*! 13
29 17
37 19
45 21
0 0.
0 0.
0 0.
0 0.
0 0.
0 0.
0 0.
0 0.
0 0.
0 0.
0 0.
0 0.
0. 1






2320C
23200
23200
03200
03200
03200
83199
83199
83199
















50






0
0
0
0
1
0
C
0
0




C
0
0
0
0
0
0
0
C
0
0
0
1
1
1
1
. 1
. 1
. 1
. 1
. 1
. 1
. 1
. 1
. 1
. 1
. 1
. 1
<00 75.
200 75.
200 75.
200 75.
7 8
15 16
23 24
47 48
39 40
31 32
1 2
9 10
17 1B
25 26
33 34
41 42
. .200 .?00





















0.
0.
0.
0.
90.
0.
0.
0.
0.






C
0
0
0
2
0
0
0
0
75. 25. 25
75. 25. 25
75. 25. 25
75. 25. 25












.200 .750 .






0-
0.
0.
0.
18.
0.
0.
0.
0.
. 3. 0.
. 3. o*
. 3. 0«
. 3. 0*












050 .050






0.
0.
0.
0.
21.
0.
o.
o.
0.
0. 0.
o. o.
0. 0.
0. 0.












.090 .060






0. 0 0
0. 0 0
0. 0 0
0. 0 0
2. 11 12
0. 0 0
0. 0 0
0. 0 0
0. 0 0
0.
o.
0.
0.












.OOQ QOO






0
0
0
0
1
0
0
0
0
5.00 4
PARKING 70NE  CAPACITIES AND LENGTHS NOT  USED  IN  THE  CALCULATION

PAFFIC SUBMODEL
INTER SECTION

TII»E
V/GC

DEL A
QUEUE
VOLUME
CAPACITY
V/GUP
INTERSECT

TIWE
V/6C



NORTH-AP
46.
0.
400.
1065.
.13503
ION 2



PHASE 1
75.
.13803
SOUTH-AP
40.
C.
5C.
1065.
.01725

PHASE 1
75.
.10352



EAST-AP
42.
0.
174.
1065.
.06007



PHASE 2
75.
.06007
HEST-AP
40.
0.
50.
1217.
.01510
PHASE 1
75.
.06890
                                                                         N-AP-LFT
                                                                               87.
                                                                                0.
                                                                               50.
                                                                              141.
                                                                            .04167
              PHASE  3
                25.
                .04167
              S-AP-LFT
                  77.
                   0.
                   0.
                  141.
                .00000
                                                                                     PHASE  3
                                                                                      25.
                                                                                      .00476
E-AP-LFT
    115.
      1.
    100.
    141.
  .08333
PHASE 4
 25.
 .08333
U-AP-LFT
    77.
     0.
     0.
   141.
 .00000
                                             PHASE  4
                                              25.
                                              .05566

-------
INDIRECT  SOURCE  fODEL  FOR  AJR POLLUTION USMAP),   -  OUTPUT
E F A
                                  DATE   072079
                                                                                                                          PAGE
                                                                                                                                     60

D tl A
cur uc.
VOLU1 I
CAPACITY
V / 6 C « F
I NTER SECT

T I"E
V /GC

DELA
3UEUE
VOLl""E
C APAC 1TY
V/GCAP
I NTER SECT

T J'E
v/ec

P ELA
OUFUE
VOLUME
C APAC ITY
V / $ C A P
1 NTER SECT

T i»E
V/GC

DELA
SUE UE
VOLUME
C APAC ITY
V/6C« P
NORT H- AP
44 .
0.
300.
1065.
.10752
ION T



NORTH-AP
43.
0.
250.
1 21 7.
.07548
ION 4



NORTH-AP
53.
1 .
fr50.
1065.
.22429
ION 5



NORTH-AP
41 .
Q.
150.
1217.
.04529
S OUTH -AP
40.
G.
4 4.
1150.
.014 15

PHASE 1
75 .
• 07s tg
SOUTH -AP
4C.
0.
71.
106 5.
.02467

PHASE 1
75.
.224 2?
SOUTH-AP
4 C.
C.
46.
1217.
.013 99

PHASE 1
75.
.05051
SOUTH-AP
41.
0.
14t.
1065.
.05051
INTERSECTION 6

TI"E
V/SC

DELA
9UEUE
VOLU1E
CAPACITY
V/FCAP
!NTERSEcT

TI^E
V/GC

DELA



NOKTH-AP
43.
0.
255.
1065.
.06115
ION 7



NORTH-AP
43 .
PHASE 1
75 .
.081 15
SOUTH-AP
*c.
0.
97.
1 21 7.
.02931

PHASE 1
75.
.08235
SOUTH-AP
40.
EAST-AP
42.
0.
210.
1116.
.06890



EAST-AP
43.
0.
250.
1116.
.08235



EAST-AP
40.
0.
50.
1217.
.01510



EAST-AP
40.
0.
50.
1217.
.01510



EAST-AP
43.
0.
250.
1116.
.08235



EAST-AP
43.
UEST-AP
40.
0.
61.
1065.
.02104
PHASE 2
75.
.08235
WEST-AP
39.
0.
21.
1217.
.006^7
PHASE 2
75.
.01510
WEST-AP
39.
0.
27.
1217.
.00809
PHASE 2
75.
.01510
WEST-AP
39.
0.
27.
1130.
.00871
PHASE 2
75.
.08235
WEST-AP
41.
Q.
94.
1065.
.03261
PHASE 2
75.
.07785
WEST-AP
40.
N-AP-LFT
77.
0.
5.
141.
.00384



N-AP-LFT
77.
0.
4.
141.
.00347



N-AP-LFT
77.
0.
o.
141.
.00000



N-AP-LFT
87.
0.
50.
141.
.04167



N-AP-LFT
77.
0.
6.
141.
.00459



N-AP-LFT
67.
S-AP-LFT
77.
0.
6.
141.
.00476
PHASE 3
25.
.04960
S-AP-LFT
90.
0.
60.
141.
.04960
PHASE 3
25.
.04167
S-AP-LFT
87.
0.
50.
141.
.04167
PHASE 3
25.
.04167
S-AP-LFT
77.
0.
0.
141.
.00000
PHASE 3
25.
.00459
S-AP-LFT
77.
0.
0.
141.
.00000
PHASE 3
25.
.04167
S-AP-LFT
77.
E-AP-LFT
87.
0.
50.
141.
.04167



E-AP-LFT
87.
0.
50.
141.
.04167



E-AP-LFT
77.
0.
0.
141.
.00000



E-AP-LFT
422.
12.
150.
141.
.12500



E-AP-LFT
87.
0.
50.
141.
.04167



E-AP-LFT
4252.
W-AP-LFT
93-
0.
67.
141 .
.05566
PHASE 4
25.
.04167
W-AP-LFT
77.
0.
0.
141 .
.00000
PHASE ,4
25.
.01934
W-AP-LFT
81.
0.
23.
141.
.01934
PHASE 4
25.
.12500
W-AP-LFT
77.
0.
0.
141.
.00000
PHASE 4
25.
.05509
W-AP-LFT
92.
0.
66.
141.
.05509
PHASE 4
25.
.37500
W-AP-LFT
78.

-------
INDIRECT SOURCE  l»ODEL  FOR »1R POLLUTION  (1SHAP>,   -  OUTPUT
EPA
                                DATE  072079
PAGE
                                                           61
OUEUE 0.
VOLUME 25Q.
CAPACITY 1116.
V/fCAP .08235
INTERSECTION 5

TI«E
v/ec
NORTW-AP
DELA 14.
3UEUE 0.
WOLU1E 300.
CAPACITY 1065.
V/GCAP .10352
INTERSECTION 9

TI"E
v/ec
NORTH-AP
[>£LA 44.
QUEUE 0.
VOLUME 300.
CAPAClTf 1055.
V/6CAP .10352
INTERSECTION 1

TIKE
V/6C
WORTH-A"
DELA 45.
3UEUE 0.
VOLU1E 350.
CAPACITY 1065.
V/GCAP .12377
INTERSECTION 2

TI»E
v/ec
NORTH-AP
DELA 43 .
OUEUE 0.
VOLU»E 2?0.
CAPACITY 1065.
V/6C4P .03627
INTERSECTION 5

T1»E
V/6C
NORTH-AP
DELA '5 .
OUFUE 0.
VOLUME 350.
0.
70.
1065.
.02399

PHASE 1
75.
.10352
SOUTH-AP
4t.
G.
52.
106J.
.01810

P HA S E 1
75.
.10352
SOUTH-AP
4 C.
0.
47.
1065.
.0162*

PHASE 1
75.
.12077
SOUTH-AP
4C.
0.
50.
1065.
.01725

PHASE 1
75.
.08627
SOUTH-AP
4 I.
0.
47.
1115.
.01553

PHASE 1
75.
.12077
SOUTH-AP
41.
0.
109.
0.
256.
1206.
.07785



EAST-AP
47.
0.
500.
1217.
.15097



EAST-AP
43.
0.
250.
1217.
.07548



EAST-AP
43.
0.
212.
1069.
.07291



EAST-AP
43.
0.
268.
1154.
.08531



EAST-AP
43.
0.
250.
0.
43.
1217.
.01288
PHASE 2
75.
.15097
WEST-AP
41.
0.
107.
1217.
.03225
PHASE 2
75.
.07548
UEST-AP
41.
0.
101.
1065.
.03486
PHASE 2
75.
.07291
WEST-AP
40.
0.
50.
1217.
.01510
PHASE 2
75.
.08531
WEST-AP
40.
0.
35.
1065.
.01204
PHASE 2
75.
.08235
WEST-AP
40.
0.
43.
0.
50.
141.
.04167



N-AP-LFT
77.
0.
0.
141.
.00000



N-AP-LFT
77.
0.
o.
141.
.00000



N-AP-LFT
81.
0.
25.
141.
.02083



N-AP-LFT
82.
0.
29.
141.
.02395 .



N-AP-LFT
77.
0.
2.
0.
0.
141.
.00000
PHASE 3
25.
.00459
S-AP-LFT
77.
0.
6.
141.
.00459
PHASE 3
25.
.08333
S-AP-LFT
115.
1.
100.
141.
.08333
PHASE 3
25.
.02083
S-AP-LFT
77.
0.
0.
141.
.00000
PHASE 3
25.
.02395
S-AP-LFT
77.
0.
3.
141.
.00238
PHASE 3
25.
.03565
S-AP-LFT
85.
0.
43.
112.
45Q.
141.
.37500



E-AP-LFT
115.
1.
100.
141.
.08333



E-AP-LFT
87.
0.
50.
141.
.04167



E-AP-LFT
115.
1.
100.
141.
.08333



E-AP-LFT
115.
1.
100.
141.
.08333



E-AP-LFT
87.
0.
50.
0.
7.
141.
.00613
PHASE 4
25.
.08333
H-AP-LFT
80.
0.
18.
141.
.01521
PHASE 4
25.
.04167
W-AP-LFT
81.
0.
26.
141.
.02205
PHASE 4
25.
.08333
U-AP-LFT
77.
0.
0.
141.
.00000
PHASE 4
25.
.08333
W-AP-uFT
89.
0.
56.
141.
.04643
PHASE 4
25.
.04167
W-AP-LFT
77.
0.
5.

-------
INDIRECT SOURCE  PODtL FOR AIP POLLUTION  (ISMAP),  -  OUTPUT
                                                                     EPA
D*TE  072079
                                                                                                                       PAGE
                                                                                                                                 62
C APAC ITY
V / fi C » P
INTERSECT

T 1«E
V/GC

DELA
3UFUE
VOLUl E
C APAC ITY
V /f CA P
10'. 5 .
.1 2377
ION t



NORTH-AP
46.
0.
430-
10t5.
.13*03
1077.
.33730

PHASE 1
75.
.13803
SOUTH-AP
4C.
0.
71.
106S.
.02459
INTERSECTION 5

T1«IE
W/EC

0 EL A
1UEUE
VOlUlE
C APAC ITY
V/6CAP



NORTH-AP
1.1, .
0.
3?0«
1045.
.10152
PH«SE 1
75 .
.10352
SOUTH-AP
4 1.
C.
123.
1065.
.04239
INTERSECTION 6

T Ifl
v/ec

OELA
3UEUE
VOLim
C APAC ITY
V/GCAP



NORTH-AP
45.
0.
339.
1065.
.1 1*5P
PHASE 1
75.
.11358
S OUTH -AP
40.
0.
£3.
121 7.
.025 16
INTERSECTION 7

TI»E
V/C-C

OELA
1UFUE
VOLUME
C APAC ITY
V/GC4P
I NTEP SECT

T1«E
v/ec

DELA
3UEUE
VOLUl E
C APAC ITY
V/6CAP



NORTH-AP
43.
0.
i75.
1125.
.08984
ION e



NORTH-AP
44.
0.
330-
10<5.
.10352
PHASE 1
75.
.oeoa4
SOUTH-AP
40.
0.
56.
1065.
.01949

PHASE 1
75.
.10352
SOUTH-AP
40.
0.
54.
1065.
.01852
1116.
.0?235



EAST-AP
42.
0.
192.
1106.
.06376



EAST-AP
42.
0.
176.
1179.
.05492



EAST-AP
42.
0.
225.
1161.
.07123



EAST-AP
42.
0.
203.
1210.
.06157



EAST-AP
43.
0.
300.
1217.
.09058
1065.
.01473
PHASE 2
75.
.06376
WEST-AP
40.
0.
36.
1217.
.01082
PHASE 2
75.
.05492
WEST-AP
41.
0.
104.
1078.
.03562
PHASE 2
75.
.07123
WEST-AP
41.
0.
97.
1065.
.03356
PHASE 2
75.
.06157
WEST-AP
40.
0.
42.
117Q.
.01327
PHASE 2
75.
.09058
WEST-AP
40.
0.
67.
1217.
.02027
1*1.
.00174



N-AP-LFT
8S.
0.
54.
141.
.04496



N-AP-LFT
R1.
0.
25.
141.
.02083



N-AP-LFT
77.
0.
3.
141.
.00229



N-AP-LFT
81.
0.
25.
1*1.
.02083



N-AP-LFT
77.
0.
0.
141.
.oooco
141.
.03565
PHASE 3
25.
.04496
S-AP-LFT
81.
0.
25.
141.
.02083
PHASE 3
25.
.02083
S-AP-LFT
77.
0.
4.
141.
.003*5
PHASE 3
25.
.04262
S-AP-LFT
87.
0.
51.
141.
.0*262
PHASE 3
25.
.04167
S-AP-LFT
87.
0.
50.
1*1.
.04167
PHASE 3
25.
.00230
S-AP-LFT
77.
0.
3.
141.
.00230
1*1.
.04167



E-AP-LfT
115.
1.
100.
1«1.
.08333



E-AP-LfT
96.
1.
75.
1*1.
.06250



E-AP-LFT
96.
1.
75..
1*1.
.06250



E-AP-LFT
2452.
65.
225.
1*1.
.18750



E-AP-LFT
537.
15.
150.
1*1.
.12500
141.
.00*50
PHASE *
25.
.08333
W-AP-LFT
79.
0.
14.
141.
.01180
PHASE *
25.
.06250
W-AP-LFT
78,
0.
6.
141.
.0053*
PHASE *
25.
.07470
W-AP-LFT
105.
1.
90.
1*1.
.07*70
PHASE *
25.
.18750
W-AP-LFT
78.
0.
8.
141.
.00647
PHASE 4
25.
.12500
W-AP-LFT
79.
0.
13.
141.
.01097

-------
  INDIRECT SOURCE  PODEl FOP AIR  POLLUTION  (1SKAP),   -  OUTPUT
EPA
                                 DATE  072079
PAGE
                                                             63
INTERSECTION
V/EC
DELA
QUEUE
VOLUlE
CAPAC ITY
V/GC»P
COUNTS
NONTH-AP
44.
0.
300.
1045.
.10352

LINK THRU RT LT
1 50.
6 263.
11 6Q.
16 i17.
21 23.
26 0.
31 0.
36 167.
41 69.
46 335.
0. 0.
104. 117.
19. 11.
17. 57.
75. 17.
Q. 0.
0. 0.
1CO. 19.
31. 51.
101. 4.
PHASE 1
75.
.10352
SOUTH-AP
40.
0.
106s!
.02012

TERM LINK
0. 2
0. 7
0. 12
0. 17
0. 22
300. 17
50. 32
0. 37
0. 42
0. 47
EAST-AP
42.
o.
225.
1217.
.06793

THRU RT LT TERM
0. 0. 0. 300.
0* 0. 0. 50.
183. 31. 83. 0.
39. 3. 6. 0.
233. 0. 100. 0.
54. 16. 17. 0.
2-|7. 50. 33. 0.
39. 30. 35. 0.
0. 0. 0. 300.
0. 0. 0. 50 .
PHASE 2
75.
.06793
WEST-AP
40.
0.
65.
1065.
.02250

LINK THRU RT
3 27. 17.
8 217. 33.
13 46. 35.
18 0. 0.
23 0. 0.
28 167. 117.
33 37. 11.
38 183. 100.
43 77. 0.
48 167. 133.
N-AP-L FT
77.
0.
0.
141.
.00000

LT TERM LINK
51. 0. 4
50. 0. 9
65. 0. 14
0. .300. 19
0. 50. 24
33. 0. 29
2. 0. 34
17. 0. 39
34. 0. 44
Q. 0.
PHASE 3
25.
.04167
S-AP-LFT
87.
0.
50.
141.
.04167

THRU RT LT
183. 4E. 133.
38. 0. 12.
142. 26. 83.
68. 17. 11.
167. 0. 133.
40. 23. 33.
0. 0. 0.
0. 0. 0.
217. 217. 3.

E-AP-LFT
96.
1.
75.
1*1.
.06250

TERM LINK
0. 5
0. 10
0. 15
0. 20
0. 25
0. 30
300. 35
SO. 40
0. 45

PHASE <
25.
.06250
W-AP-LFT
80.
0.
19.
141.
.01563

THRU RT LT
16. 33. 8.
0. 0. Q.
0. 0. 0.
217. 2. 150.
36. 12. 0.
233. 100. 36.
66. 68. 56.
183. 100. 17.
33. 27. 33.





TERM
0.
300.
50.
0.
0.
0.
0.
0.
0.

INTERSECTION 1

Tlf!E
V/6C

DELA
OUFUE
VOLUME
CAPACITY
V/GCAP
INTERSECT

TI«E
V/GC

DELA
QUEUE
VOLUME
CAPAC ITY
V/GC»P



NCRTH-AP
44.
0.
2S3.
1065.
.09777
ION 2



NORTH-AP
44.
0.
267.
1065 .
.09202
PHASE 1
75.
.09777
SOUTH-AP
40.
G.
50.
1096.
.01677

PHASE 1
75.
.D92C2
SOUTH-AP
4C.
0.
4f .
1097.
.01611



EAST-AP
43.
0.
232.
1111.
.07667




EAST-AP
46.
0.
367.
1074.
.12570
PHASE 2
75.
.07667
WEST-AP
40.
0.
50.
1217.
.01510

PHASE 2
75.
.12570
WEST-AP
40.
o.
44.
1065.
.01516



N-AP-LFT
83.
0.
33.
141.
.02778




N-AP-LFT
80.
0.
19.
141.
.01596
PHASE 3
25.
.02778
S-AP-LFT
77.
0.
0.
141.
.00000

PHASE 3
25.
.01596
S-AP-LFT
77.
0.
2.
141.
.00159



E-AP-LFT
250.
6.
133.
141.
.11111




E-AP-LFT
146.
2.
117.
141.
.09722
PHASE 4
25.
.11111
W-AP-LFT
77.
0.
0.
141.
.00000

PHASE 4
25.
.09722
W-AP-LFT
87.
0.
51.
141.
.04282



















INTERSECTION ?

TIME
V/GC

DEtA
9UEUE
VOLUME
CAPAC ITY
V/6CAP



NORTH-AP
47.
0.
433.
1065.
.1 4'53
PHASE 1
75 .
.1 4953
SOUTH-AP
4 1.
0.
10C.
1065.
.03455



EAST-AP
43.
0.
250.
1150.
.07992
PHASE 2
75.
.07992
WEST-AP
40.
o.
50.
1065.
.01712



N-AP-LFT
77.
0.
3.
141.
.00249
PHASE 3
25.
.04211
S-AP-LFT
87.
0.
51.
141.
.04211



E-AP-LFT
87.
0.
50.
141.
.04167
PHASE 4
25.
.04167
W-AP-LFT
78.
0.
8.
141.
.00687









INTER SECTION

-------
INDIRECT  SOURCE fODEL  FOR AIR  POLLUTION

T ]"(
v/r, c

D EL A
<1 UE U[
VOL U« t
CAPACITY
V /&C» P
INTERSECT

T I»E
v/c. c

BEL A
TUFUE
VO|_U« i.
C APAC ITT
V / f. C A P
INTERSECT

T 1«E
V/6C

D EL A
3UEUE
VOLU1 E
C APAC IT Y
V/GC* P



NOKTH-AP
'5 .
0-
333.
1GC5.
.115Q?
ION 5



NORT H-AP
44 .
0.
2?3 .
10^5.
.09777
ION 6



NORTH-AP
47 .
0.
435 .
1 100 .
.14547
PHASE 1
75 .
.1 1502
SOUTH -AP
40.
C.
7C.
1102.
.02? 30

PHASE 1
75 .
.09777
SOUTH -AP
4 1.
0.
136.
1065.
.T4690

PHASE 1
75 .
.14547
SOUTH -AP
40.
(J.
77.
121 7.
.02320
INTERSECTION 7

T IWE
v/r-c

DELA
3 UEUE
VOLU1 E
C APAC 1TY
V/GCA P
I NTEB SECT

r 1I»E
v/r-c

DELA
5UFUE
VOLU» E
C A°AC ITY
v /( CA P
T NTER SE CT

TIPE



NORTH-AP
<3.
0.
267.
1122.
,0£734
ION ?



NORTH-AP
44 .
0.
2*3.
1C55.
.09777
ION 9


PHASE 1
75 .
.08734
SOUTH-AP
4 0.
0.
64.
1065.
.021 93

PHASE 1
75.
.09777
SOUTH-AP
40.
t.
69.
1065.
.023o8

PHASE 1
75 .
(ISMAP) ,



EAST-AP
42.
0.
215.
1143.
.06900



EAST-AP
42.
0.
167.
114Q.
.05399



FAST-AP
42.
0.
233.
1181.
.07261



EAST-AP
42.
0.
219.
1213.
.06621



EAST-AP
42.
0.
233.
1217.
.07045


- OUTPUT
PHASE 2
75.
.06900
WEST-AP
40.
0.
38 .
1217.
.01157
PHASE 2
75.
.05399
UEST-Ap
40.
0.
80.
1095.
.02669
PHASE 2
75.
.07261
WEST-AP
40.
0.
80.
1065.
.02777
PHASE 2
75.
.06621
WEST-AP
40.
0.
42.
1185.
.01305
PHASE 2
75.
.07045
UEST-AP
40.
0.
85.
1117.
.02764
PHASE 2
75.
                                                                        EPA
DATE  072079
                  PAGE



N-AP-LFT
83.
0.
36.
141.
.02997



N-AP-LFT
79.
0.
17.
141.
.01789



N-AP-LFT
77.
0.
4.
141.
.00372



N-AP-LFT
83.
0.
33.
141.
.02778



N-AP-LFT
79.
0.
17.
141.
.01389


PHASE 3
25.
.02997
S-AP-LFT
79.
0.
17.
141.
.01389
PHASE 3
25.
.04676
S-AP-LFT
89.
0.
56.
141.
.04676
PHASE 3
25.
.02841
S-AP-LFT
83.
0.
34.
141.
.02841
PHASE 3
25.
.02778
S-AP-LFT
83.
0.
33.
141.
.02778
PHASE 3
25.
.02931
S-AP-LFT
83.
0.
35.
141.
.02931
PHASE 3
25.



E-AP-LfT
101.
1.
83.
141.
.Q6944



E-AP-LFT
101.
1.
83.
141.
.06944



E-AP-LFT
93.
0.
67.
141.
.05556



E-AP-LFT
652.
16.
150.
1*1.
.12500



E-AP-LFT
115.
1.
100.
141.
.08333


PHASE 4
25.
.06944
W-AP-LFT
78.
0.
12.
141.
.00973
PHASE 4
25.
.06944
W-AP-LFT
78.
0.
11.
141.
.00890
PHASE 4
25.
.05556
W-AP-LFT
92.
0.
65.
141.
.05412
PHASE 4
25.
.12500
W-AP-LFT
73.
0.
8.
141.
.00659
PHASE 4
25.
.08333
W-AP-LFT
78.
0.
11.
141.
.00955
PHASE 4
25.

-------
  INDIRECT SOURCE PODEL FOR AIR POLLUTION (ISRAP),  -  OUTPUT
                                         EPA
                                                                                                   DATE  072079
                                                                                                                   PAGE
                                                                                                                             65
v/ec

DELA
auEUE
VOLUME
CAPACITY
V/GC»P

NORTH-AP
(4.
0.
300.
1C65.
.10152
.10353
SOUTH-AP
AC.
0.
60.
1065.
.02Q77
                                          EAST-AP
                                              41.
                                               0.
                                             167.
                                            1217.
                                           .05032
                          .05032
                          KEST-AP
                             41.
                              0.
                             98.
                           1065.
                          .03378-
LINK  TRAVEL TIMES  LINK
  1    57.  :?.  94.  2
  7    17.  17.  17.  8
 13    5?.  56. 11C. 14
 19    5?.  58.  96. 20
 25    57.  57.  94. 26
 31    17.  17.  17. 32
 37    58.  5£. 101. 38
 4!    5".  5E. 101. 44
TOTAL TRAVEL TIKE ON NETWOR
TOTAL RUNNING T1»E IN PARKI
TOTAL VEHICLE MILES TRAVELE
RAVEL TIKES
17.  17.  17
61.  61. 1j)5
     60. 119
     61. 671
     17.  17
     62. 101
     62.  98
     66.  96
60.
61.
17.
62.
62.
66.
NG ZONES
D ON NETWORK
 LINK  TRAVEL TIMES   LINK
.  3    57.   57.  105.  4
.  9    57.   57.   96. 10
. 15    17.   17.   17. 16
. 21    58.   58.   97. 22
. 27    58.   58.   97. 28
. 33    57.   57.   94. 34
. 39    17.   17.   17. 40
. 45    58.   58.  100. .46
      189.(VEH-HRS)
        O.(VEH-HRS)
     1465.(VEH-MI)
TOTAL INTERSECTION DELAY ON NETWORK
TOTAL STOPS AT INTERSECTIONS
TOTAL OF INTERSECTION AVERAGE 8UEUE
                  150.fVEH-HRS)
                 5642.
-------
   INDIRECT  SOURCE PODEL  FOR  AIR POLLUTION (1SMAP),  -   OUTPUT

c HI SS IONS S UPMODf L
EPA
                                   DATE   072079
                                                                                                                                 PAGE
                                                                                                                                             66
FblOM  =
FAR =  77
EHP.C
« THIX
f f I SS
1 .2
1 .4
1 .4
1 .5
rMI SS
LINK
1
L
t
4
f.
ts
7
t
<,
10
1 1
12
13
U
15
16
17
U
19
20
21
22
23
24
25
26
27
28
29
3C
71
72
T 1
34
75
36
37
36
OLD. HO
ION CO
62603
217?4
29426
47107
IOSS
NSTOPS
31
0
77
267
3?
375
D
214
34
0
60
222
111
188
0
219
32
0
64
295
77
251
0
24D
31
3
55
225
69
267
0
211
31
D
140
200
74
210
T. CCOLD=
.750
FRECTION
1 .365603
1 .409963
1 .447363
1 .60575fc

uLEYGTH
.8564+01
.0000
. 116?+C2
.1362+03
.9045*01
.1062+03
.0000
.5045+02
.7232+01
.0003
. 1450 + 02
.5013+02
. 204P+02
.4094+02
. 00 03
.4952+02
.7663 + M
.000?
.1545+02
.303J+03
.1826+02
.6097+02
.0003
.1251+03
.S635+C1
.0000
.1315+02
.5615+02
.1337+02
.6729+C2
.0000
.5222+02
.6403+01
.0003
.2926+02
.5149+02
.1445+02
.54&4+02
50.000
.050
1 .422399 1
1.404052 1
1.47264Q 1
1.715C49 1

COUNT
.5000+02
.7000 + 0?
.9532 + 02
.3651+03
.57f4 + 02
.4 83 9+03
.5000+02
.3000+03
.5000+02
.3000+03
.'022+02
.29SO + 03
.1454+03
.2506 + 03
.500C+02
.3000+03
.5000+02
.3000+03
.9605+02
.36E5 + 03
.1147+03
.3333 + 03
.5000+02
.3000+03
.5000+02
.3000+03
.E64S+02
.3167+03
.9689+02
.3693+03
.5000+02
.3000+03
.5000+02
.3000 + 03
.1920 + 03
.2856+03
.1036+03
.3000+03
.230
.050
1.440174 1
1. 4Q6090 1
1. 467615 1
1.931629 2

SPEED
.5740+02
.5438+02
.5665+02
.5359+02
.5730+02
. 5215+02
.5740+02
.54}f+02
.5740+02
.5438+02
.5691+02
.5440+02
.5624+02
.5497+02
.5740+02
.5438+02
.5740+02
.5438+02
.5664+02
.5355+02
.5661+02
.5397+02
.5740+02
.5438+02
.5740+02
.543E+02
.5695+02
.5417+02
.56S3+02
.5354+02
.5740+02
.5458+02
.5740+02
.5438+02
.5568+02
.5455+02
.5675+02
.5438+02
.200 .200
090 .060 .000
.435166
.443988
.512240
.043941

E AT SPEED
.2203-03
.1363-02
.4220-03
.1674-02
.2551-03
.2231-02
.2203-03
.1363-03
.2203-03
.1363-02
.3992-03
.1351-02
.6475-03
.1131-02
.2203-03
.1363-02
.2203-03
.1363-02
.4255-03
.1690-02
.5090-03
.1521-02
.2203-03
.1363-02
.2203-03
.1363-02
.3826-03
.1442-02
.4291-03
.1694-02
.2203-03
.1363-02
.2203-03
.1363-02
.8599-03
.1296-02
.4600-03
.1363-02

DISTANCE
.1014+03
.3048+03
.1042+03
.8763+02
.1019+03
.1060+03
.3048+03
.1092+03
.1018+03
.3048+03
.1029+03
.1140+03
.1057+03
.1081+03
.3048+03
.1095+03
.1016+03
.3048*03
.1032+03
.3740+02
.1038+03
.1087+03
.3048+03
.8644+02
.1013+03
.3046+03
.1030+03
.1088+03
.1038+03
.1096+03
.3048+03
.1066+03
.1014+03
.3048+03
.1069+03
.1077+03
.1041+03
.1078+03

E DECEL
.6212-03
.0000
.1364-02
.5361-02
..7463-03
.7028-02
.0000
.4090-02
.6600-03
.0000
.1174-02
.4182-02
.2076-02
.3535-02
.0000
.4141-02
.6342-03
.0000
.1251-02
.5479-02
.1501-02
.4753-02
.0000
.4421-02
.6212-03
.0000
.1131-02
.4342-02
.1319-02
.5123-02
.0000
.4051-02
.6212-03
.0000
.2656-02
.3847-02
.1414-02
.4039-02

DISTANCE
.1004+03
.0000
.9850+02
.8753+02
.1001+03
.8290+02
.0000
.9012+02
.1004+03
.0000
.9572+02
.9020+02
.9642+02
.9210+02
.0000
.9012+02
.1004+03
.0000
.9S47+02
.8740+02
.9769+02
.8879+02
.0000
.9012+02
.1004+03
.0000
.9887+02
.6945+02
.9.544+02
.8736+02
.0000
.9012+02
.1004+03
.0000
.9450+02
.9069+02
.9815+02
.9012+02

E IDLE
.7550-01
.0000
.9915-01
.3839-01
.8212-01
.6968-01
.0000
.8471-01
.8726-01
.0000
.8108-01
.8255-01
.9011-01
.8246-01
• 0000
.8494-01
.6372-01
.0000
.8124-01
.1865-01
.8277-01
.7640-01
.0000
.3305-01
.7525-01
.0000
.8509-01
.8292-01
.9226-01
.8322-01
.0000
.8305-01
.7725-01
.0000
.8726-01
.8087-01
.9177-01
.8056-01

DISTANCE
.2616+01
.0000
.3622+01
.4211+02
.2757+01
.3298+02
.0000
.1537+02
.2204+01
.0000
.4420+01
.1527+02
.6245+01
.1248+02
.0000 •
.1509+02
.2336+01
.0000
.4708+01
.9261+02
.5567+01
.1857+02
.0000
.3812+02
.2632+01
.0000
.4008+01
.1712+02
.4077+01
.2051+02
.0000
.1592+02
.2561+01
.0000
.8919+01
.1569+02
.4404+01
.1671+02

E ACCEL
.1708-P2
.0000
.3926-02
.1559-01
.2079-02
.2044-01
.0000
.1163-01
.1852-02
.0000
.3279-02
.1200-01
.5974-02
.1015-01
.0000
.1182-01
.1756-02
.0000
.3497-02
.1599-01
.4204-02
.1369-01
.0000
.1288-01
.1708-02
.0000
.3166-02
.1235-01
.3741-02
.1464-01
.0000
.1149-01
.1708-02
.0000
.7577-02
.1089-01
.4011-02
.1144-01

DISTANCE
.1004+03
.0000
.9850+02
.8753+02
.1001+03
.8290+02
.0000
.9012+02
.1004+03
.0000
.9872+02
.9020+02
.9642+02
.9210+02
.0000
.9012+02
.1004+03
.0000
.9847+02
.6740+02
.9769+02
.8879+02
.0000
.9012+02
.1004+03
.0000
.9887+02
.8945+02
.9844+02
.8736+02
.0000
.9012+02
.1004+03
.0000
.9450+02
.9069+02
.9815+02
.9012+02

-------
INDIRECT SOURCE PODEL FOP AIR POLLUTION (ISMAP), - OUTPUT EPA
3* 3 .0003 .5000+02 .5740+02 .2203-03 .3048+03 .0000 .0000
4C 21D .5464+C2 .3000+03 .5438+02 .1363-02 .1078+03 .4039-02 .9012+02
41 110 .£lof+P2 .1507+0? .5618+02 .6713-03 .1058+03 .2086-02 .9620+02
42 0 .OOOD .30CC+0? .5436+02 .1363-02 .3048+03 .0000 .0000
43 7? .1570+02 .110V+03 .5£66+02 .4921-03 .1043+03 .1511-02 .9785+02
44 720 .3824+02 .4363+03 .5273+02 .1997-02 .1084+03 .6105-02 .8474+02
45 67 .127?+02 .9352+02 .5687+02 .4140-03 .1037*03 .1279-02 .9858+02
46 321 .£805+02 .4396+03 .5269+02 .2014-02 .1087+03 .6134-02 .8460+02
47 0 .0000 .5000+02 .5740+02 .2203-03 .3048+03 .0000 .0000
1.1 209 .5741+02 .3000 + 0? .5438+02 .1363-02 .1071 + 03 .4026-02 .9012+02
SUBROUTINE STREET CALLED FOR RECEPTOR 5 AND LINK 11
*= 5 = 11 W= U.29 BHT= 21.34 RHT= 1.52 XLO= 2.00
1 =
» r
• =
» =
" =
JJ =
YY( JJ
OTS =
JJ =
YYUJ
DTS =
JJ =
YY(JJ
DTS =
JJ =
YYf JJ
DTS =
T =
M =
w -
5
5
5
5
5
1
) =

2
) =

3
) =
= 11 DXT= ?
=
=
=
1 =
fl =
•
.223
M =
•
.122
M =
»
11 11 =
11 11 =
11 11 =
11 11 =
1
2
T
4
04
DX
DX
DX
DX
.80
(II
DYT =
)= 102
UI>= 98
(11)= 4
(II)= 98
5 XX(JJ)=
643+03
+ 03
5 XX
643+03
+ 03
5 XX
643*03
XO(M)

(JJ) =
XOf M)

(JJ) =
X0(«)
r


=


=


.


.

387+03
.610+03

488+03
.610+03

53<5 + 03
.610+03
•
.95
.72
.42
.72

YOCfl


00 SL=
DY(1I)=
OY(I1>=
DT(1I>=
DY(II)=

>= .


YO(H>= .




YO(H)=
304.





637+03


637+03


637+03
80
.00
.00
.00
.00








.707+02
4
) =
H =
.
5 XX(JJ)=
o43«OI
XO(M)
=

591+03
.610+03


YO(M)=

637+03


.19S+G2
11
5
5
JKEEP
1 =
1 =
= l>
0 (I ,J
11 JKEEP=
KE
i
11 EPSIL=
SUBROUTINE STREET CALLED
t =
«!r
V =
» =
« =
« s
J J =
YY( JJ
P TS =
JJ =
» Y ( JJ
|>TS =
J J =
YY( JJ
5
5
5
5
5
5
1
) =

2
) =

3
> =
1 =
1 =
1 =
1 =
1 =
1 =
M =
•
.625
H =
,
.132
ff-
•
12 w =
12 DXT
12 11 =
12 11 =
12 11 =
1211 =
5 XX
694+03
+ 02
5 XX
676+03
+ 03
5 XX
667+03
1E
FO
.2
= -304
1
2
3
4
(JJ) =
XO(M)

(JJ) =
XO(M)

(JJ) =
XO(M)
DX
DX
DX
DX

=


=


=
EP)
CW
30.
.328-02
.379-03
CO
R RECEPTOR
9 BHT= 2
.SO
(II
(II
DYT =
)= -112
)= -B8
(II)= -15
(II
.


.


«

)= -88
584+Q3
.610+03

483+03
.610+03

432+03
.610+03

5
1.34
-54.
.22
.77
.03
.77

YOtH


CL =

AND LINK
RHT =
90 SL =
DY(II)=
DY=

i= .


YO(H)=




YO(M)= .
.663-03

12


1.52 XLO= 2.00
309.
-20
-15
-2
-15

637+03


637+03


637+03
70
.21
.99
.71
.99








OTS= .UO+C3
J J =
YY( JJ
DTS =
1 =
» =
* =
4
) =
M =
*
5 XX
657+03
CJJ) =
XO(H)

=
.

380+03
.610+03


Y0(«)=

637+03


.231+03
12
5
5
JKEEP
1 =
1 =
= 1
(J (I ,j
12 JKEEP=
KE
1
12 EPSIL=
EP)
Ch
30.
= .135-02
.156-03
00

CL =

.273-05


.0000
.8056-01
.8951-01
.0000
.9028-01
,7999-01
.9289-01
.8025-01
.0000
.7779-01
DATE  072079

 .0000
 .1671+02
 .6659+01
 .0000
 .4786+01
 .2689+02
 .3894+01
 .2685*02
 .0000
 .1750+02
   PAGE

.0000
.1144-01
.5950-02
.0000
.4283-02
.1753-01
.3630-02
.1760-01
.0000
.1139-01
   67

.0000
.9012+02
.9620+02
.0000
.9765+02
.8474+02
.9858+02
.8460+02
.0000
.9012+02

-------
            SOURCE  fODIL  FOR  AIR POLLUTION  (ISMAP),  -  OUTPUT        E F A                            <>*TE   072079    PAGE




                                                  INDIRECT  SOURCE MODEL OF MR  POLLUTION
    EXAMPLE  HOT SPOT CALCULATION WITH MODIFIED ISMAP                                    DATE  =  770301




                      NO.  OF  LINKS =  48           NO. OF  ZONES  =    1?           NO. OF INTERSECTIONS *
          HOUR  =    8.         WIND DIRECTION  =     120.         WIND SPEED  =    2.6+00         STABILITY =       *









tECEPTOR                                                     CO CONCENTRATION  (PPM)







  1 -  9       1.63-01      1 .£4-01      3.22-01     5.5A-01      1.28 + 00      3.06-01      5.39-01      5.22-01      2.70-01

-------
   INDIRECT SOURCE  KODEL  FOR AIR POLLUTION (ISHAP),  -  OUTPUT        EPA                            &*TE   072079     PAGE







NORMAL  EXIT.   EXECUTION TIPE:         16*66 MILLISECONDS.







i?RttPT  PRINTS

-------
need not add to 100 since they are renormalized within the program.  In our
example the total trips attracted to and generated by all interior zones are
distributed equally among the interior zones.  The same procedure was followed
in the case of exterior zones.  According to this configuration each interior
zone will attract 300 trips and generate 50 while each exterior zone will
generate 300 trips and attract 50.  Again, it should be noted that the terms
interior and exterior no longer necessarily refer to the relative locations
of zones but simply to define two groups of zones between which travel can
occur.  Card type 5 contains site description information and vehicle popula-
tion characteristics while the card 6 entries specify the links comprising
the gates entering the six interior zones.  Card 7 gives the average number
of passengers per vehicle for three vehicle types:  automobiles, buses and
trucks.  No card type 8 is shown in the input listing since all trips are
assumed to be generated.  The location of each of the nine receptors is given
on a separate card 9.  The fifth receptor is designated as a street canyon
receptor with the appropriate street and building characteristics.  On card 10
a single hour's meteorological data is specified.

     The first portion of the program output is simply a listing of the model
input data with the receptor coordinates converted from feet to meters.  The
next part of the output is the parking zone capacities and parking zone trip
lengths which are not used in the modified ISMAP calculations.  Results of the
traffic calculations are presented for each of the three iterations on an
intersection by intersection and phase by phase basis.  For each phase the
volume to green time capacity ratio, average delay (sec),  average queue length
(vehicles), volume (vehicles/hour), capacity (vehicles/hour) and controlling
volume to hour of green capacity ratio.  Before the listing of intersection
and phase parameters for the final iteration, a listing of vehicle counts on
each link are printed out for vehicles going straight (thru), turning right
(rt), turning left (It) or terminating at a zone (term).  Following a listing
of parking lot parameters which are not used by the modified version of the
program, the link travel times for going straight, turning right and turning
left are printed out followed by listing of overall network travel times,
delays and average queue lengths.  Emission rates (g/m/sec) for each link are
then printed out for different travel modes as follows:

           LINK - Link number.

         NSTOPS - Number of vehicles that stop on this link
                  during the simulated time period.

        QLENGTH - Average queue length experienced by all stopping
                  vehicles, starting at the downstream intersection, ft.

          COUNT - Number of vehicles using the link.

          SPEED - Average speed of vehicles when unaffected by
                  starting or stopping movements at the intersection,
                  ft/sec.
                                      68

-------
     E AT SPEED - Emission rate of vehicles traveling at SPEED,  in
                  gm sec"1 m"1.
       DISTANCE - Distance over which the E AT SPEED emission rate applies, m.

        E DECEL - Emission rate of vehicles while decelerating from SPEED to
                  a stopped position, gm sec"1 m"1.
       DISTANCE - Distance over which the E DECEL rate applies,  m.

         E IDLE - Emission rate of idling vehicles,  gm sec"1  m"1 .

       DISTANCE - Distance over which the E IDLE rate applies, m.
        E ACCEL - Emission rate of accelerating vehicles, gm sec"1 m"1.

       DISTANCE - Distance over which the E ACCEL rate applies,  m.

Finally the hour of the day and meteorological data are entered.

     The output from the program consists of (1) a display of the input
parameters; (2) a listing of the parking zone capacities and the average trip
lengths within each zone; (3) traffic computations for each intersection in
the network; (4) a summary of the travel times on each link;  (5) a summary
tabulation for the entire network showing total network travel time, total
travel time in parking zones (always 0), network vehicle-miles of travel,
total intersection delay, number of vehicle stops occurring,  and the total
of the average queue length; (6) link emission data summary;  and (7) a summary
showing the number of links, zones and intersections considered, the meteoro-
logical parameters used, and the resulting CO concentrations for each receptor.

     Various codes used in the output are defined below:

     TIME is the computed signal phase time (sec).

     V/GV is the ratio of the highest approach volume to the approach capacity
          per hour of green signal time, at an intersection.
     NORTH-AP, SOUTH-AP, EAST-AP, WEST-AP are the designations of the inter-
          section's north, south, east and west approaches, respectively.
     N-AP-LFT, S-AP-LFT, E-AP-LFT, W-AP-LFT are the designations of the  left-
          turn phases from the intersection's north, south, east, and west
          approaches, respectively.

     DELA is the computed delay time.
     QUEUE is the average number of vehicles queued per cycle.

     VOLUME is the traffic volume in vehicles per hour.

     CAPACITY is the number of vehicles  that could pass over  a  link taking
          into account interruptions to  flow from traffic signals, pedestrians,
          slow moving vehicles, etc.
     V/GCAP is the ratio of the approach volume to the approach capacity per
          hour of green signal time, for a specific intersection  approach.
                                      69

-------
                                   SECTION 6

                        USE OF THE MODIFIED ISMAP MODEL
                           IN CONJUNCTION WITH APRAC
     Since the modified ISMAP is not designed to handle a large number of
traffic links, the concentrations calculated for the model receptor locations
will certainly not reflect the carbon monoxide contributions from the remainder
of the urban area.  If application of the model shows that concentrations
close to the standard might be expected, then some means must be found to
include the remaining links of the traffic network in the analysis.  For those
receptors located quite close to roadways or intersections the contribution of
other link emissions to the carbon monoxide concentration is often small in
comparison to the contribution of the roadway or intersection in question.  On
the other hand, for those receptors not immediately adjacent to the roadway
or intersection, this contribution can become a much greater fraction of the
total concentration especially in a large urban area and when a low mixing
prevails for an extended period of time.

     One method to obtain quantitative estimates of the contributions  of links
not included in the modified ISMAP is by use of the APRAC-1A8'10>l!>12 or
APRAC-215 computer models,  which are designed for the prediction  of hourly CO
concentrations at specific receptor locations based upon traffic  link  emissions
and meteorological data.   The concentration contribution at  a particular re-
ceptor location from links  other than the receptor street is calculated by
means of a receptor oriented Gaussian plume model.   For a given hour the model
sets up a series of area sources upwind of the receptor point.  Each of these
area sources is assigned an emission strength based upon the link elements
contained within each.   The vertical dispersion of the CO plume which  occurs
between the area source and receptor will depend upon a vertical  dispersion
parameter which is in turn a function of windspeed, cloud cover,  and time of
day.   The dilution factor of CO along the axis of the plume  is  proportional to
the windspeed.

     For the most part,  the differences between APRAC-1A and APRAC-2 are
insignificant when the  models are used to estimate the intra-urban background
or mesoscale component.   Most users will find APRAC-1A preferable,  in  that it
costs one-quarter to one-half as much as APRAC-2 to execute.   The principal
differences between the models and their importance in the application con-
sidered here are reviewed below:
                                      70

-------
Emissions Calculation - In the APRAC-1A program emissions, E,
are parameterized simply in the form of an emission factor
power law as:


                         E = aS~3

where    E - emission factor (gm/veh/mi)

       a,8 = constants for a particular year, model year
             distribution, and weighted annual travel
             distribution

         S = average traffic speed (mi/hr)

The speed S is available for the emission factor calculation
since each link in the data set is characterized by one of
eight speed classes.

This formulation, compared to APRAC-2 is very inexpensive in terms
of computer time.  One minor complication is that the a and $ con-
stants must be calculated for the emission characteristics of the
vehicle populations.  This implies that only one value of cold
starts and the other emission parameters are applied universally.
A different year or time period would require new constants.

APRAC-2, on the other hand, explicitly calculates the emission fac-
tors according to Supplement 5 of AP-42.  Different cold starts
proportions can be applied to seperate locations in a region and
different time periods.  A unique speed on each link can be input
or speed can be calculated using a capacity restraint model.  Con-
sequently, APRAC-2 can calculate emissions with much greater sensi-
tivity.  The effect of such an enhancement on the calculation of the
mesoscale component is unknown.  (ISMAP, of course, is sensitive
to these parameters and they are considered in the calculations
of the microscale component.)  APRAC-2 can be updated to reflect
the new motor vehicle emission factors.16

Multiple Wind Field - APRAC-2 can accommodate wind measurements
from multiple locations in the region; unique values of  speed
and directions are  then interpolated  for  each reciptor.  Where
such data are available and show significant variation,  the use
of APRAC-2 should be considered.

Local Source Models - APRAC-1A and APRAC-2 provide for  the use
of a street canyon sub-model; APRAC-2 also provides  for  the use
of a intersection sub-model.  Since ISMAP already  treats  these
situations, these options should not  be used again when  APRAC
is used to calculate the mesoscale component.
                             71

-------
Dispersion Model Options - The following options are available
to the user of the APRAC-1A model:

—    Synoptic Calculation - Source receptor relationships are
     recalculated for each new hour of meteorological data.
     This option should be used  if the program  is being run
     to simulate only a limited  number of hours (e.g., 24 hours).

—    Climatological Calculation  - Source receptor relationships
     are calculated at the beginning of the program for a wide
     range of meteorological configurations and written on a
     direct access device.  The  appropriate normalized concen-
     trations for each source-receptor pair are then reread
     for the meteorological configuration which prevails at a
     given hour.  The climatological option should be used for
     the simulation of a large number of hours.  The final
     decision as to whether the  synoptic or climatological op-
     tions should be used must also depend upon the relative
     cost of CPU time and direct access I/O at the facility
     where the model is being run.

—    Grid Point Calculation - Carbon monoxide concentrations are
     calculated at up to 625 receptor locations for a specified
     hour of the day.  This option would not be especially use-
     ful in conjunction with the application of the IMM since
     the user would be more interested in the concentration at
     a small number of receptors for more than a single hour.

The APRAC-2 model has retained these options; however, the choice
is implicit depending on the input data supplied to APRAC-2.
APRAC-2 limits a user to 10 receptors for a 24-hour execution
and one receptor for a multiday  execution.

Traffic Volume Data - The basic  traffic input for the APRAC-1A
model is the number of vehicles  per day for an array of links
whose endpoint coordinates are specified on a rectangular system
in units of 0.01 miles.  To account for the curvature of a
particular link, the actual length of the roadway between the
endpoint is input.  Each link is also assigned an appropriate
speed classification.  Nonlink traffic volumes may be assigned to
rid squares superimposed upon the traffic network.  The daily
traffic flow volume is apportioned for each hour of the day
according to hourly traffic flow distributions specific to
weekdays, Saturdays, and Sundays.  There is also the option in
the program of selecting a given hour of the day as a peak hour.
                            72

-------
APRAC-2 treats link based traffic data in a similar manner.
In addition, APRAC-2 has an option for accepting FHWA type
binary link file via a preprocessor.  Nonlink traffic volume
can be assigned the same way as APRAC-1A or can automatically
be computed by the mode.  Daily traffic flow is apportioned
for each hour according to diurnal distributions as in
APRAC-1A.  However, instead of diurnal factors for five
facility types as in APRAC-1A, APRAC 2 requires diurnal dis-
tributions for two facility types, for two directions, for
5 locals (i.e., CBD, commercial, residential, industrial and
rural) - a total of 20.  There is no peak hour factor.
                           73

-------
   Appendix A




PROGRAM LISTING
       74

-------
APPENDIX A.
                     ISMAP MODEL
                               COMPUTER  PROGRAM SOURCE CODE,
ENVIRONMENTAL PROTECTION A6EHt\
     C
     C
     C
     C
     C
     C
     C
     C
     C
     C
     C
     C
     C
     C
     C
     C
     C
     C
     C
     C
     C
     C
     c******************************************************************
     C
           COMMON /  COM!*/ I.Z.L,J,  K,  TOD,  DOW, TP , TOTATT,  TTPZ,TOTGEN . ITM
          1tNYEAR,LHEAD(13), TUNFAC
           INTEGER  Z
           COMMON /  LINK/ NLINK, NLANf(200>,  XK200), Y1(200),  X2(200),Y2(2
          1> ,LCAP(2QQ),DISTC200),  VFLC20Q), LCON(200,3)
          3,NSTOPS(200>
           COMMON /  1NTRST/ NINS,  LIN(70 , A ) , ITYPC (70),  CYCL(?0),  PH(70,4>,
          1  Cl(70)f  GCAP(70,4),  QUE(70,4)
           COMMON /ZONES/ N70NES,  N7LINSC50),  2 LINKS(12 , 50) ,  ZATTR(50),
          1ZGENR  (50),  NEXT, 7AT(2),  ZGTC2),  7VTO.50),  ZNAWEC50)
           INTEGER  ZLINKS»ZNA!«E
           COMMON /  GATE/ NGATE, LGATE(2,10),  VCRdO, 2,4)
           COMMON/VOLUME/ COUNTC4,2OU)
           COMMON /PARKZ/ PZ,    PV(50),PLA(50), VZ(50),  ZV(50),P0,PLS,PLBO
          1,   PNOS(50)  ,  PLLC50)
           INTEGER  PNOS
     DATA  SET  PTISWAP7   AT LEVEL 016  AS  OF  07/17/78
***** PTISHAP   INDIRECT SOURCE MODEL  FOR  AIR POLLUTION *****

MODIFIED ISMAP VERSION 2

PREPARED BY  GCA/TECHNOLOGY DIVISION
BURLINGTON ROAD,  BEDFORD MASSACHUSETTS
(617) 275-9000
VERSION 2 PREPARED  BY FRANK BENESH  INCORPORATING THE
NEW MOTOR VEHICLE  EMISSION FACTORS  AND  MODAL MODEL
COEFFICIENTS  AND  DETERIORATION  RATES

VERSION 1 PREPARED  BY MICHAEL T. MILLS  INCORPORATING THE
STREET CANYON MODEL AND DISABLING THE PARKING SUBROUTINE

PREPARED  UNDER  CONTRACT WITH THE U.S. E.P.A.
SOURCE RECEPTOR  ANALYSIS BRANCH
RESEARCH  TRIANGLE  PARK, NORTH CAROLINA
GEORGE SCHEVE,  PROJECT OFFICER
   MAI
   MAI
   MAI
   MAI
   MAI
   MAI
   MAI
   MAI
   MAI
   MAI
   MAI
   MAI
   MAI
   MAI
   MAI
   MAI
   MAI
   MAI
   MAI
   MAI
   MAI
   MAI
   MAI
   MAI
   MAI
   MAI
   MAI
 OOMAI
   MAI
   MAI
   MAI
   MAI
   MAI
   MAI
   MAI
   MAI
   MAI
   MAI
   MAI
   MAI
00010
00020
00030
00040
00050
00060
00070
00080
00090
00100
00110
00120
00130
00 UO
00150
00160
00170
00180
00190
00200
00210
00220
00230
00240
00250
00260
00270
00280
00290
00300
00310
00320
00330
00340
00350
00360
00370
00380
00390
00400
                                                                  SOURCE CODE PAGE
                                                                           075

-------
AF PF NDI X  A,
ISMAP MODEL
COMPUTER  PROGRAM SOURCE CODE
ENVIRONMENTAL PROTECTION  AG6N














c
1


c
c



2
C
c




2
C
C




2
C
C
INTEGER PZ.PZ1
COMMON /VEHTYP/ VT,VTP(3), VTE(3), VTMULT(Z), SZVTPC3
COPMON/EXCLUD/^OPARK
COMMON TT<200,3),DFLA<200,3),PRT(50),QUEUE(200)
1 , EMI SS (200.4)
DATA IST/0/
DC 12 113=1 ,200
DO 12 114=1 ,3
LCON(II3,II4)=0
12 TT(I I3,II4>=0.0
1 DO 11 J1=1 ,4
DO 11 J2=1,200
11 C OUNT (J1 ,J2)=0.
CALL IMPT
TEST FOP FIRST T I *l E THRU AND INITIALIZE IF TRUE
4 I F (I ST .GE . 1) GO TO 3
I ST = 1
CALL ZAREA

INITIALIZE VOLUME TO CAPACITY RATIO INVERSES
DC 2 IG=1,NGATE
DC 2 K=1 ,2
D C 2 J = 1 , it
VCRUG.K , J) = 2.0

INITIALIZE LINK TO LINK TRAVEL TIMES
0022 L =1 »NLINK
DIST(L) = SQRTCCX1 (L)-X2(L) ) * * 2+ ( Y1 (L ) -Y 2 (L )) ** 2)
TTIME = OIST(L) /VEL (L )/NLAN£ ( L)
DO 22 J = 1 ,3
2 TT (L ,J> = TTIME
INITIALIZE PARKING LOT LENGTH (THE LENGTH OF THE LONGES
STORED IN PLL(Z)
IZ = NEXT * 1
DO 24 Z= IZ,NZONFS
IFCPLL(-Z) .LT. 0.0) PLL(Z) = -(PLL(Z) 4 PL A (Z )/ PL L ( Z )
PLL(Z ) = AMAX1 (PLL(Z) ,1 .0)
4 CONTINUE

ROUTE VEHICLES SPECIFIED AS TOTALT (TOTAL TRIPS ATTRACTE
K A I 00 4 1 0
,2) MAI0042Q
MAI00430
MAI 00440
M A I 00 4 5 0
MAI00460
MAI00470
MAI00480
MAI00490
MAI005QO
MAI 00510
M A 1 00 5 2 0
MAI00530
MAI 00 5 40
MAI00550
MAI00560
MAI00570
MAI00580
MAI00590
MAI00600
MAI00610
MAI00620
MAI00630
MAIQ0640
MAI00650
MAI00660
MAI 00 6 70
MAI 00680
MAI00690
MAI00700
MAI00710
T STDE IS MAI00720
MAI00730
MA100740
MAI 00 750
) MAI00760
MAI00770
MAI00780
MAI00790
D AND GENERATMAI00800
                                                                     SOURCE CODE PAGE
                                                                     O76

-------
APPENDIX  ft
                      ISMAP MODEL
                                      COMPUTER PROGRAM SOUFCE  CODE
ENVIRONMENTAL PROTECTION  AGENCt
     C
     C
     C
   ED)  ONTO THE LINKS  OF  THE NFT«ORK
   POD I
       W
   2P  F
       N
       D
       I
       V
       Z
       G
   >    V
 325   V
       V
       V
C STCRF.
       Q
       Q
C      P
       V
       Z
C      P
 3T    C
       D
       I
       D
C  TEST
       I
   FIND
   OVER
       I
       Z
       D
       I
    IDE
       I
       I
       I
   SEAR
     C
     C
FY ZONE  ATTRACTIONS  TO  ACCOUNT  FOR  OVER CAPACITY  DEMAND
fclTF (6,28)
ORMAT( 'TRAFFIC SUB MODE L'/'O	'// )
1 = NEXT 41
0 33  Z  = 1,  NZONES
F (Z .GT. NEXT) GO TO  32
2(Z) =  ZATTRCZ)/ZATC1)*TOTGEN
V(Z) =  ZGENRCZ)/ZGTC 1)*TOTATT
C TO 325
Z(Z) =  ZATTRCZ)/ZATC2)  *TOTATT
VCZ) =  ZGENRCZ)/ZGTC2)*TOTGEN
TPULTC1) =CZVTC?,Z)  +Z V T C ~i, Z ) ) / CZ VT d , Z ) + Z VT C2 , Z ) + Z V TC 3 . Z ) )
TMULTC21 = VTMULTC1) *ZVCZ)
TPULTC1) = VT1ULT C 1 )*VZ CZ)
 THE ZONE ATTRACTIONS  AND  GENERATION  TEMPORARILY
LFUE CZ )  = VTMUL.T C1 )
UE.UE C?^50) =  VT*ULT< 2)
RINT 935, VZCZ),ZVCZ)
ZCZ) =  VZ CZ )  - VTVULTC1 )
VCZ) =  ZVCZ)  - VT^ULTC2)
RINT 935 , VZCZ ) ,ZV CZ)
ONTINUE
0 352 J=1,NZONES
Z F L G =  0
035  Z  =N1 ,  NZONES
 FOR OVER CAPACITY DEMAND
F C VZCZ) -  ZVCZ) .LE.  PLACZ)/PD   - PV  CZ))  GO  TO 35
           ZONE TO ROUTE  VFHCLS  WITH LARGEST  ATTRACTION AND NOT
 CAPACITY
ZMAX =  0.0
MAX =0.0
0 34  IZ =N1 ,  NZONE S
F C VZ CIZ)-ZVC17) .GE
NTIFY THii ZONE ATTKACTING  THE  MOST  TRIPS
FCIZMAX  .GF.  VZCIZ)) GO  TO 531
ZPAX =  VZ(IZ)
22 = IZ
CH FOR  A COMMON LINK DETUF.EN IZ AND Z.
                                      PLACIZ)/FD  -PVClZ)) GO TO  3A
   MAI 00810
   WAIOCS2Q
   MAIOOS30
   f.AIQOBAO
   MAI00850
   MAI00860
   MAI00870
   MAI 00880
   MAI00890
   MAI00900
   MAI 00 91 0
   MAI00920
   MAI00930
   MAI00940
   MAI 00950
   KAI 00960
   MAI 00970
   MAI00980
   MA100990
   MAI01000
   MAI 01010
   MAl01o2(j
   MAI01Q30
   MAI01040
   MAIQ1050
   MAI01060
   MAI01070
   MAI 01080
   MAI01090
   MAI01100
   MAI01110
   MAI01120
   MAI01130
   MAI01UO
   MAI01150
   MAI01160
   MAI01170
   MAI01180
   MAI01190
   MAI01200
                                                                    SOURCE CODE  PAGE
                                                                                    077

-------
AFPFf.DIX i\.          ISMAP  MODTL           COMPUTER PROGRAM SOURCE  CODEt      ENVIRONMENTAL  PROTECTION AGENC


       : 7 1   D (,  37 3 1 21. =  1 ,1 2                                                       MAI 01 21 C
            I FUL INKS (1Z3 ,1 Z ) . CO .  0 )  GO  TO  333                                   MAI 01220
            DC  -'32 I Z4 =  1 , 1 ?                                                       MAI 01230
            I F (ZL INKS (174 ,Z )  .EQ.  T)  GO TO  332                                     MAI01240
            I F (IAtS (ZLINKSCI 73,I 7 )) . F. Q . IAPS (ZLINKS ( IZ4 , Z )) )  GO TO 335          MAI01250
       12L   CONTINUE                                                                  MAI01260
       :33   CONTINUE                                                                  MAI 01270
            C--0  TO  74                                                                  MAI 01 280
       33C   IF(  ZMAX  .GT.  PL A (I Z )/P0-PV (IZ ) - (VZ ( IZ)-ZV(IZ ) ) )G0  TO 34            MAI01290
            ZhAX  = (  PLA(IZ)  / Pl>  -  FV(IZ)  -  (VZ(I7)  -  ZV(IZ)  ))                 MAI01300
            I 11  =  IZ                                                                  MAI01310
        34   C UNTINUE                                                                  MAI01320
            IFdZf^AX  .EQ.  O.r>) GO  T 0  353                                           MAI01330
            IF(Zf'.AX .EQ.  0.0) IZ1  =  IZ?                                            MAI01340
            V;C     =PLA(Z)/PD-PV(7)+ZV(Z)                                       MAI 01350
            VZ(IZ1)=V?(JZ1)-^VZ(Z)-VZC                                        MAI 01 360
            VZ(Z)  = VZC                                                              MAI01370
            IF(VZC.GT. 0.0)17FLG=1                                             MAI 01380
       l^   CONTINUE                                                                  MAI 01390
            IFC17FLG  .LF. .  0)  GO TO  353                                             MAI01400
       352   CONTINUE                                                                  MAI 01410
       3r3   CONTINUE                                                                  MAIQ1420
      C  RFSTOKE  PUS AND OTHER VEHICLES TO  TRIP  DEMANDS                            MAIQ1430
            DC3^  TZ  = 1.NZOrJE<:                                                     MA! 01 440
            VZ(1Z) =  OUEUE(IZ) +V2(I7)                                             MAIQ1450
       36   ZVCIZ) =  QUtUE( I7-fr 0)  *ZV(IZ)                                          MAI0146Q
      C      PRINT  935, (VZ(I7) tZVUZ ) »IZ  =  1.NZQNES)                              MAI01470
      CO 35   FOPHAT(*ISMAP35*10F10.5)                                             MAI 01480
      C                                                                                MAI01490
      C   ROUTE  THE VEHICLES  ONTO  LINKS AND  ADD  TO COUNT ARRAY                    MAI01500
       3?   CALL  ROUTEV                                                              MAI01510
            PRINT  938, (L,(COUNT(J,L ) ,J=1 ,4 ) ,L=1 ,NLINK)                          KAI01520
       97P   FORMAT (7H-COUMTS/ci (?6H  LINK   THRU   RT   LT   TERM   }/5 (I 4 ,1 X , 4 F 5 . 0 ,M AI 01 530
           11»)                                                                      MAI01540
      C   CONVERT  VZ AND ZV  BAC^ TO  AUTOMOBILE  ATTRACTIONS AND  GENERATIONS      MAI01550
            DC  39  IZ  = 1,  NZONFS                                                    MAI01560
             VTHULTC2) =  ZVTd.lZ)/ (7VT(1 ,IZ)+  Z VT ( 2 , 1 Z ) + ZV T ( 3 T I Z )       )        MAI01570
            VZ(IZ) =  VZ(IZ)  *VTMULT(?)                                             MAI01580
      3«   ZV(IZ) =  ZV(IZ)  * VTMULTCZ)                                            MAI01590
            DO  40  L = 1.  NLINK                                                      MAI01600

                                                                      SOURCE  CODE PAGE     O78

-------
APPENDIX  A.           ISMAP MOOFL          COMPUTER PROGRAM SOURCE  coot,      ENVI HONH tw t M.


            P0295K. = 1,3                                                          * A 10161 U
            TT(L,K)=0.0                                                           MAI01620
       395  DELA(L,K>=0.0                                                         MAI0163-C
      40    QUEUE(L)  = 0.0                                                       MAI0164Q
     C  FIND  DELAY AND  QUEUE LENGTHS  AT  INTERSEC ITONS                          MAI0165Q
            DO  45 I=1,NINS                                                       HAI01660
            IF (ITYPC(I)  .6T. 0) GO  TO  43                                        MAI01670
            CALL  INSECU                                                           MAI01680
            60 TO 45                                                              MAI01690
      43    CALL  INSEC                                                            MAIQ1700
      45CCMTINUE                                                              MAI 01710
            DC A65 L=1iNLIMK                                                     MAIQ1720
     C  DETERMINE AVERAGE QUEUE LENGTH  IN FEET ON LACH  LINK AT 30  FT/VCH.    MAIQ1730
            GLEUE(L)  = QUEUE(L)*~D./NLANE (L)                                    KAI01740
            QUEUE(L)=A?1INl(QUEUE(L)tDIST(L))                                    ,*!AI01750
            IF(VFL(L)  .LE. 0) GO TO  465                                          MAI0176G
     C    MODIFY  VFLDCITY  VAfEP ON  A  SIMPLE LINK MODEL                          MAI01770
            SC =  tCOUNTd ,L)+COUNT(Z ,L)*COUNT(^ ,D) *3tnO/TP                    MAI01780
            CAFL  = 1200.                                                          MAI01790
            IF(VELCL).GT. 70.0)CAPL=1oOO.                                   MAI 01800
            V  =VEL(L)*(1.0-.5*SC/(NLANE(L)*CAPL))                              MAIQ1C10
            0046^ = 1,3                                                           MAI 01820
      46    TT(L,K)=DIST(L)/V+DELA(L,K)                                     MAIQ1830
      465   CONTINUE                                                              MAI01840
      47    CONTINUE                                                              MAI01550
     C                                                                            MAI01860
     C  FIND  THE RUt-JNING  TI^ES IN  THE  PARKING ZONES                            MAI01870
            P21=NEXT+1                                                         MAI 01880
            DC 57 PZ=PZ1,NZONES                                                  MAI01890
            CALL  PARKNG                                                           MAI01900
            PRT(PZ)=TTP<:                                                          MAI01910
            IFCNOPARK.Et.1)  PRT(PZ)=1.DE-08                                     MAIQ1920
        57  CONTINUE                                                              MAI01930
     c                                                                            MAI01940
     C  WRITE OUT RESULTS                                                       MAI01950
            WfclTE (6,  961) (L , (TT(L ,K) ,K = 1,3),L =1,NLINK)                      MAI01960
      961   FORMAT (1HO,  6(2nHLINK   TRAVEL TIMES  ) / (1X .6(I 3.ZX,3F5 .0    )))   MAI01970
            SUMTT=0.0                                                             MAI01980
            SVMT=C.O                                                              MAI01990
            SDELA=0.0                                                             MAI02000


                                                                   SOURCE  CODE PAGE     079

-------
AfF'FUDJX  A.           ISMAP MOOTL           COMPUTER PROGRAM SOURCE  CODE.      ENVIRONMENTAL  PROTECTION AGEN


            SNSTOP=D.O                                                             I" A 10? 010
            3 (.1 = 0.0                                                                 MAI 02 020
            TKT^n.O                                                                 I'l A I 02 030
            D(63L=1,NLINK                                                        MAI 02 040
            PC <2  K-1 ,3                                                            WAI02050
            SLTTT  =  TT(L,K)*COUNT(K,L)/3600.  * SUMTT                             MA102Q60
            SVKT  = COUNT(K,L)*D1ST(L)/^^80.0  + SVMT                              MAJ02070
       t2    SDELA  =  DELACL,K)*COUNT(K,L)/3600.+SDELA                             MAI02080
            SNSTOP = NSTOPS(L)  +  5NSTOP                                           WAI02090
       t?    SftI =  QUEUE(L) +  SOI                                                   MAI02100
            DC t<4  PZ = PZ1 j  NZONES                                               HAI02110
       6 A    SFT-PRT(P7)/3600.  -*1RT                                             MAI 02120
            PRINT  -62, SUMTT,  CRT, SVMT                                           MAI0213U
       9AZ   FORMAT (29H-TOTAL  TRAVEL  TIME  ON  NETWORK.  F21 .0 , 9H(VEH-HPS)  /      MAI02140
           1  36H  TOTAL FUNNING  TI hT IN PARKING ZONES,  FU.O, 9H(VEH-HRS)/      MAIO?15U
           2  ^.DH  TOTAL VEHICLE  WILES  TFAVtLED ON NETWQFK, FlO.O,  PH(VEH-M))   MAI02160
            PFINT  967t SDELA,SNSTOP,SGI                                           MAI 02170
       C63   FORMAT (36HOTOTAL  INTERSECTION DELAY ON  NE T WORK , F 14 . 0 »9H < VE H -HR S ) /M A I 02 1 80
           1  Z9H  TOTAL STOPS  AT  INTERSECTIONS, F21.0,  5HCVEH)/                  MAI02190
           2  ^4H  TOTAL OF  INTERSECTION AVERAGE QUEUE  LENGTHS , F6.0 ,5H(FT)  )     MAI02200
            IF CIST.GT. 1) CO  TO 7                                               MAI02210
            CALL  COORXY                                                            MAI02220
      C                                                                              MAIQ2230
      C   EMISSIONS MODEL                                                           MAI022^0
      C                                                                              MAI0225Q
       7    CALL  EMIT                                                               MAI02260
      C    ADD EMISSIONS FROM  1  LINK ZONES  TO  THE PPPROPRIATE LINK               MAICJ2270
            1ST =  1ST  + 1                                                           MAI02280
            DO 75  IZ = 1,NZONES                                                    MAI02290
            IF(PNOS(IZ) .NE.  1)  GO TO 75                                          MAI02300
            L = ZLINKSd ,12 )                                                       MAI02310
            ADEMIS = PRT(IZ)/(DlST(L)*0.3C4g)                                    MAIQ2320
            DO 73  J = 1 ,4                                                            MAI02330
       73    EMISS(L,J) = EMISS(L.J) + ADEKIS                                      KAI023AO
       75    COMTINUE                                                               MAI02350
      C   APPLY TUNNINE FACTOR  TO  ALL  EMISSIONS                                   MAI02360
            DC 77  L=1,NLINK                                                        MAI0237G
            D077J = 1,4                                                            MAI 02 3RD
       77    FMISSCL.J) = EMISSCL.J) * TUNFAC                                      MAI02390
      C                                                                              MAI02400


                                                                     SOURCE CODE  PAGE     OBO

-------
APPENDIX  A.          ISKAP MODEL          COMPUTER  PROGRAM SOURCE  CODE,      E N VI RO NM EN~T AL  PROTECTION A GE


     C  DISPERSION r«ODEL                                                        MAI 024 TO


     c?    CALL  OISPEE                                                          Ss
     C     PMNT RESULTS                                                        M
           CALL  PRNTOU                                                          S
           DO  38 PZ = PZ1.NZONES                                                MAIO?470
      «?   PV(PZ)  = AMAX1(PV(PZ)+VZ(PZ) - ZV(PZ),  0.0)                         MAIOZ480
           G0  T0 1                                                              MAI02490
           END                                                                   KAI02500
                                                                  SOURCE CODE  PAGt     Oc1

-------
A F P L M> I X  A
    IS^Ap  MODrL
                                           COMPUTER  PROGRAM SOURCE  COOF
                                                                    ENVIRONMENTAL  PROTECTION A GE N(
 SUE- RO
 C 0"NO
1 , NYE A
 I NTtG
 C CKMO
1 ) , LC
2 t NSTO
 CO*JKO
1  CI (7
 COMMO
17GFNR
 I N T £ G
 INTEG
 COMMO
 COMMO
 COKKO
   FNO
 INTEG
 COMMO
 ( OMMO
1,YEXr
2? D,MI
 C OfMO
 C OrMO
&CUILD
                 UTI Nt  1NPT
1
R.LHEAD ( 1B
ER 7 ,VT
N /LINK /  N
AP<200> ,  D
PS (200)
M /INTRST/
0) t   GCAP(7
N /   ZONES/
 (50), NEX
F. P Z N A n E
ER ZLINKS
N /   GATE/
N /   VOLUME
M /   PARKZ/
S(SO), P L L
ER PNOS
N /VEHTYP/
N/DISP/XO(
C4),YCONS
X,ISTAM24
N/EXCLUD/N
                 I ,Z.L ,J,
                 ), TUNFA

                 LINK,  NL
                 1ST(200)

                   NINS,  L
                 0,4) ,  GiU
                   NZONE S,
                 T, ZAT (?
                                      Y ,  TOD, DOU,  TP ,  TOTATT,  TTPZ,TOTGEN , ITM
                                     ANE(200), X1(200),  YK200),  X2(200)
                                     ,  VEL(200), LCON(200,3)
                                     1N(70,A),ITYPC(70),I
                                     E (70,A )
                                      NZLINK(SO),  7LINKS(
                                     ),  ?GT(2), 7VT(3,5C)
                              CYCL (70) ,PH(7C ,4 )

                              12 ,50) ,  ZATTR(50)
                            NGATE,  L
                            / COUNT(
                             PZ, PV(
                            ( 5 0 )

                             VT , VT^
                            200) ,YO(
                            L,YCONSZ
                            ),SLAT,1
                            OPAPK
                          6/iTE (2,10),  VCR (10,
                          4 ,200)
                          5P),PLA(50),  VZ(50)»
                          (7),  VTE (Z).  VT*ULT
                          200),NUMREC,THETA (2
                          ,7COE F F(2A) ,ZEXP (24
       N/STCAN/ISTR(?OQ),AST(20(j),NLKST(200),
       H(200),RECHGT(200),ISTLIN(200,Z),IRSID
 COPMON/JUNK1/AC,XLOAD(3),TRAILR,ABSHUM
 COPKON/IMCOM/ICYJM,1STRIN,IMTFLG,MODYR1,MOD
                          T ,HGCID,HDCID
                          COLD,HOT.CCOLDfVMTMI
            COMMON/ELINK/IR
           8 ALHFLG tTRKFLG»
            INTEGER  ALHFLG,
            READ(5,910tEND =
        C10 FORMATdC. ,1f A4.
            P H I N T 911tNYEAR
      011    FORMAK1H1 ,20X,
            IF(MOPARK.EQ.1)
      915    FOPMAT(/,1X, 'PA
            PEAD(5,912,FND=
           1TOTATT»TOTGEN,P
            PRINT 91 2 ,IC ,L,
                 E G , T E r P ,
                 IMFLG
                 TPKFLG
 2,4)

  ZV(50).PD


 2) ,SZVTP(3
 ),WS(24) ,Y
 ,Z CONST,GR
IE ,HE IGHT(2

 WST(200),
 E(200)

 YR2

 X(6) ,
                                           PLS,PLBO
                                         ,2)
                                         COE F F(24)
                                         DSI7 ,6CKG
                                         00)
      I NP00010
      INP00020
      INPOG030
      INP00040
Y2(200INP00050
      1NP00060
      INP0007C
,      INP00080
      1NP00090
      INP00100
      INP00110
      INP00120
      I NP00130
      INP001AO
      INP00150
      INP00160
      INP00170
      INP00180
      INP0019Q
      INP00200
      INP00210
      INP00220
      INP00230
                          ,LHEAD ,l
                         I 0 P A R K
                            .,14)

                          T  EMISSIONS NOT  CONS
                          , I , Z ,1 CN ,lG,NVfKT ,NR
                                               IDERED ')
                                               ,NMET,TOD,DOW.TP,
T « 0 .1 1 )
,LHEAO ,N
110, 5X ,1
WRITE(6.
RKING  LO
99) 1C,L
D t I T M
I,Z,ICN,IGtNV.KT,NR.NWET.TOD,DOW,TP»TOTATT,TOTGEN.
                                                                 INP00250
                                                                 1NP00260
                                                                 1NP00270
                                                                 INP0028Q
                                                                 INP00290
                                                                 INP00300
                                                                 INP00310
                                                                 INP00320
                                                                 1NP00330
                                                                 INP00350
                                                                 INP0036U
                                                                 INP00370
                                                                 I NP 003 80
                                                                 INP00390
                                                                    SOURCE CODE  PAGE
                                                                                         O&2

-------
APPENDIX  A
                      ISMAP MODEL
COMPUTER PROGRAM SOURCE  CODE,
ENVIRONMENTAL PROTECTION  AG6NC
           1D,ITP                                                                  INP00410
      912   FORMATCI2,I3,8I5.6F5.0.IC)                                            INP00420
            I FCNOPARK ,EQ .1)  PO=1.CE-.^                                             INP00430
      2     IF(L  .EG.  0)  GO  TO 3                                                  INP00440
            NLIMC = L                                                              INP00450
            D025L1=1.M_IMK                                                      1NP00460
            READ(5,922)   1C, L, (NLAKE(L>, X1(L),Y1 (D,X2(L),Y2CL) ,  LCAP(L)    INP00470
           1,VEL(L),(LCONCL,J),J=1,3),HEIGHT(L))                                 INPOQ480
      25    PRINT 922,1C,  L, (NLANE(L),  X 1 ( L ) , Y 1 (L) , X2 ( L) ,Y 2 ( L) ,  LCAPCD.VEL   INP00490
           1(L),(LCON(L,J).J=1.3),HEIGHT(D)                                     I NP 00 500
      922   FGFWAT(I2,I3,I5,4F5.0,15 , F5.0 ,3 I 5 , F5.0)                              INP00510
      3     IF(I  .FQ.  0)  GO  TO 4                                                  INP00520
            WINS  =  I                                                               INP00530
            READ(5,933)  (ICtIf(LIN(I,J),J=1,4),ITYPC(I),ICYCL(I),(PH(I,K>      IMP 00540
           1,  K = 1,A),CI(I),(GCAP(I,M),I»1 = 1,4) ,T1=1,NINS)                        I NP 00 550
            PRINT 033,  (IC,I,( (LIN  ( I , J ) , J =1 , 4 ) ,  ITYPC(I),  I C Y CL (I ) , (PH ( I , K )  INP00560
           1,  K. = 1 ,4) ,CI (I) , (GCAFd, M) ,M=1 ,4 )), I  =1,N1NS)                        INP00570
       033 FOR.^ATCIZ ,13,615,9F4.o                                               INPOOSSO
      4     IF(2  .FQ.  0)  GO  TO 5                                                  INP00590
            NZONES  =  Z                                                             INPC06QO
            1=1                                                                    INP0061Q
            IZ=NZONES                                                              INP00620
            DO 475  KZ  =  1,NZONFS                                                  INP00630
            PEAD(5,944)  (1C,TEXT,  ZATTR (I Z) , ZGENR(IZ ) , (ZVTCJ, 17),J=1 .3) ,       INP00640
           1PVEH,PLC ,  NZL , (?LIHKS(K ,IZ ) , K=1,12))                                INP00650
            IFUC .NE.  4)  CALL EXIT                                               1NP00660
      944   FOPM.AT  (12, 12,2F3.P,  3F3.1,  2F5.0,  12,  1214)                        INP00670
      :   THIS  TEST  IS  PECULIAR TO  THF  CDC 64QO  COLLATING SEQUENCE.              1NP00680
            IF (IEXT  .GT.  49) GO  TO  44                                            INP00690
      :   STORE AN INTERNAL ZONFS  DATA                                             INP00700
            JZ =  IZ                                                                INP00710
            IZ -  IZ -  1                                                            INP00720
            GO TO 47                                                               INP00730
      :   STORCANEXTERNALZON^SDATA                                             INP00740
      44    NEXT  =  Z                                                               INP00750
            7ATTR(Z)=ZATTR(IZ)                                                 INP00760
            ZGENR(  Z)  =  ZGENP(IZ)                                                 INP00770
            ZVTSUM  =  0.0                                                           INP00780
            DO 45 K=  1,12                                                          IMP00790
      45    ZLINKS«,Z)  =  ZLIN^S(K.  TZ)                                           INP00800
                                                                    SOURCE CODE  PAGE
                                              083

-------
A f-1 P L N D i X
1SMAF MODEL
                                             COMPUTER PROGRAM SOURCE  CODE
ENVIRONMENTAL  PROTECTION AGEN

46


47



472

473




47f,











48

49

5


°5




95'
r> o 4 1 j . 1,3
Z VT ( J , Z ) = ZVT (J , IZ )
J 2 = Z
Z = Z +1
DO 472 K=1,12
IF (ZLINKS(K , JZ ) .NE. 0) GO TO 472
N2LJNK (JZ) = K-1
GO TO 473
C ON T I NUE
NZLINK(JZ) = 12
IF(PLC .NE. 0.0) PLA(JZ) = P L C * P D
IF(pVhH .NE. 0.0) PV(JZ) = PVtH
PNOS(JZ) = NZL
ZNAME (JZ ) = IEXT
I F(ZVT(1 f JZ)+ ZVT(2,JZ) + 7VT(3,JZ) .L^. 0.) ZVT(1,JZ) = 1.0
( OK T I NUE
Z A T ( 1 ) = 0 . 0
Z AT(2 ) = 0.0
ZGTd ) = 0.0
7 t. T ( 2 ) = 0 . 0
DC 4^ Z = 1 . f J ZONES
I Z = Z
KZ = NZLINK(IZ)
IF (Z .GT. NEXT) GO TO 4P
Z ATd ) = ZAT d) + 7ATTR (Z)
ZGTd) = ZGTd) * ZGENR(7)
GO TO 49
Z AT(2 ) = ZAT(2) + ZATT9 ( 7)
ZGT(2) = ZGT(2) * ZGENR(Z)
PRINT 944, 1C, ZNAME(IZ), ZATTR(IZ), ZGENR(IZ), ( Z VT ( J , I Z ) , J = 1 , 3 )
1. PV(IZ), PLA(IZ), PNOS(IZ) , (ZLI.MKS(K ,IZ ) , K= 1 , KZ )
I F ( ICN .Eft. 0) GO TO 6
READ (5, 955) IC,GRDSIZtBCKGRD,SLAT,TUMFAC,ZCONST,IREG,TEMP,
1 COLD,HOT,CCOLDf(VMTMIXfJl=1,6).ALHFLGfTPKFLG.I«FLG
^ FOTMAT(I2 5F4 r) 12 F4 0 ^ F ^ 3 1X 311)
J F(TUNFAC.EO.O) TUN'FAC^I
URITE(6,955)IC.GRDSIZ,L«CKGRO,SLAT,TUNFAC,ZCONST.IREG»TEMP,
1 COLD, HOT, CCOLO,fVMTMIXCJl)fJl=1,6JtALHFLG,TRKFLG,TKFLG
IFCALHFLG.Efi.D READ(5,956)AC,(XLOAD(J1).J1=1,3).TPAILR,ABSHUM
6 FOR*lAT(10Xf6FlO.O)
I NP 00810
INPOOfccO
INP00830
INP00840
INP00850
INP00860
INPOOB70
INP00880
INP00890
1NP00900
INP0091U
INPQ092Q
1NP00930
INPOQ94Q
1NP00950
I NP 00 9 60
INP00970
INP00980
INP00990
INP01000
INP01Q10
INP01 020
1NP0103Q
1NPQ1QAO
INP01050
INP01060
INP01070
INP01080
INP01090
INP01 100
INP01110
INP01120
INP01130
INP01 1 40
I NP01 1 5 H
*'** Wi l-^w
INP01160
IK/P01 17Q
INP01180
INP01 190
INP01200
                                                                      SOURCE  CODE PAGE
                                                                                            oat

-------
APPENDIX  A,
                        I S M A P M 0 D F L
COMPUTER PROGRAM SOURCE  CODt
ENVIKONWENTAL PROTECTION AGENt
IFCALHFLG.EG.1) WRTTF(6,r5MAC,(XLOAD(Jl),Jl=1,3),TRAILR,A5SHUf
IF(TRKFLG.E(?.1)RPAD(5,^56)HGWGT,HDWGT,HGCID,HDCID
IF(TRKFLG.EQ.1)WRITE(6,956)HG*G7,HDWGT.HGCID.HDCID
IFdMFLG.EQ.1) READ(5,0S7)TCYIM,ISTRIN,IMTFL6,f!ODYRl»MODVR2
IFdMFLG.EQ.1)WRITE(6,957)ICYIM,lSTRIN,lMTFLG.i»IODYR1,MODYR2
^57 FOP*AT(1CX.5I5)
6 I F(IG .EQ .0) GO TO 7
NGATE = 16
READ(5,966) (1C, (L G A TE ( J , I G ) , J =1 , 2 ) , I G = 1 , NG AT E )
PRINT °66, (1C, (LGATE (J ,IG) ,J = 1 ,2) , 16= 1 ,NG ATE )
966 FORMAT ( 12, 3X, 215)
7 I F ( N V .EQ. 0) GO TO 76
NVETP = N'V
PtAD(5.97) (1C. VT, VTP(VT), VT E (V T ) , K= 1 , NV )
97 FORMAT (12,13, 2F5.3)
76 CONTINUE
S IFUT.tQ. 0) GO TO 69
NIOUNT = KT
DGE5K=1,NCOUNT
HEAD(5.98a) I C , L , ( C OIJNT ( J 1 . D.J 1=1,3), L2,(COUNT(J2tL2).J2-1t3).
1 L3, (COUNT (J3,L3) , J3=1,3), LA , ( COUNT ( J 4 , L 4) , J 4 = 1,3)
£5 PRINT 988, 1C, L, (COUNT (J 1 ,L) ,J 1 = 1 ,3> » L2 , ( COUNT( J 2 , L 2) , J 2= 1 , 2 ) ,
1 L?, (COUNT( J3.L7) . J3-1.3), L4 , ( COUNT ( J A , L A ) , J4= 1,3)
9P8 FORMAT ( i2,l3, '(F5.0), 3(1 5, 3(F5.0)»
80 I F (NR .LE. 0) GO TO 891 P
r^UMREC = NR
DO 90 1=1 ,NP
DO !r010 J=1 ,2
ISTLIN(I,J)=0
5010 CONTINUE
READ(5.989)IC,XO(I) ,YO(I),ISTR(I),AST(I) ,NLDUM.WST(l) ,
8BUILDH(I),RECHGT(I),ISTLIN(I,1),ISTLIN(I,2),IRSIDt(I)

NLKST (I ) =NLt)IJM
xod )=xod)*o.:i04?
YC(I ) =YO (I)*0,30A3
WST( I )=WST( I )*0 .304.-,
PUILDH(I)=EUILDH(I)*f1.304L<
90 RLCHRTd )=RECHGT (I ) * 0 . '. 
-------
OIX A.          1SKAP  MODFL          COfFUTEP  PROGRAM SOURCE CODF,      ENVIRONMENTAL PROTECTION AGEMl


 f-rci  roFHATdy.'cAPDTYpF;0  CHECK ERROR')                               INP0161Q
       DO  ;p v^ 1 = 1 , NR                                                         ir.'POl62Q
       PK1NT  9£92  ,IC ,XC(I ) , YQ (I), ISTR (I) , AST( I),NLKST (I).                 IKP0163U
      SWST(I),OU1LDH(I),RFCH&T(I),ISTLIN(I,1),ISTLIN(I,?),IRSIOE(I)       INP016AO
 9892  FORMAT(1X,I2,2F10.5,I3,F5.r,I5,2F10.0,F5.0,2I3.IA)                  INP01650
 9f93  CONTINUE                                                               INP01660
 8^10  I F(NMET.EQ.O.AND.IM£T.EQ .2^)  GO TO  9P                                INPQ1670
       I F(NMET.EQ.(i.ANO.IMET.E« .1)  CALL EXIT                                INP01680
       IKET=NMET                                                              INP01690
       I FCNMET .EQ.1)  GO TO 9901                                              INPQ1700
       00  9989 1=1,26                                                         INP0171G
       RtAD(5,9899)IC,THETA(I),WS(I),ICLD(I)                                INP01720
98V 9   FOR1ATU2 ,2F8.2 , 15, F7 .2 , 2F10. Z)                                      INP01730
9969   WRITE (6,9897)IC , THETA (I ) ,US (1 ), ICLD(I)                               INP017AO
9^97   FORMATC1X,Ic ,2F3 .2, 15 ,F7.2,2F10.2)                                   INPQ1750
       GO  TO  93                                                               INP01760
 9

-------
APPENDIX  A.           1SMAP MODEL          COMPUTER  PROGRAM SOURCE  CODF,     ENVIRONMENTAL PROTECTION AGEKC


            SUBROUTINE  INSEC                                                      INS00010
     C  THIS FROGRAP!  COMPUTES DELAY  AMD QUEUE LENGTH AT AN INTERSECTION.      INSOC020
     C  IT  IS BASED  CN  GORDON NEU'LLS  INTERSECTION  MODEL.  THREE  TYPES OF      INS0003.0
     C  SIGNALS MAY  BE  SPECIFIED 1)T1'XED TIME 2)ACTUATED WITH  LEFT  THU&N      1NSOOOAQ
     C  PHASES 3)ACTUATED WITH SEPEPATE PHASES  FOR  EACH AFPPOACH.   THIS KODELINS0005U
     C  WILL HANDLE  OVER  CAPACITY  INTERSECTIONS,  AN EXTENSION  TO NEWELLS      INS00060
     C  MODEL. BY ASSUMING CAPACITY  FLOW WHEN THE  QUEUE LENGTH AT  THE END     INS00070
     C  OF  GREEN EQUALS HALF THE ARRIVALS ON RED  PLUS THE ARRIVALS  ON GPEEN   INS00080
     C  CYCLE AMD PHASE                                                          INS00090
     C  LENGTHS ARE  COMPUTED BASED  ON F.V.WEBSTER  "TRAFFIC SIGNAL  SETTINGS"   INS0010U
            COMMON /  COf!!*/ I,Z.L,J.  K, TOO, DOW, TP , TOTATT,  TTPZ,TOTGEN       INS00110
            COMMON /LINK/   NLINK, N L*NF. ( 2 GO ) . X1C200), Y1 (2 00 ) , X2 ( 200 ) , Y2 ( 2 CO) I NS 00 1 20
           1. LCAP(2CO>, DIST(?UO>,  VEL(ZOO), LCON  (200,3)                      INS00130
           2,NSTOPS(ZOO)                                                          INjSOOUG
            COMMON /INTKST/NI, L IN < 7 0 , £ ) , IT YP C ( 70) , I C Y C L < 70 ) ,  PHC70.O, C I ( 70) 1 NSOO 1 50
           1  , GCAP(?0,t ) ,CUF(70,4)                                               INS0016U
            COMMON /ZONES/    N ZONE S ,N?.L I NK ( 50 ) , ZL I NK S (1 2 , 5 0 > , ZATTPC5G),     INS00170
           1ZGENR (50),  NEXT, 7AT(2),  ZGT(2), ZVT(?,50), ZNAf'E(SO)              IN S 001 £ 0
            COWWON /  GATE/ NGATE. LGATE(2,1C), VCRC10, Z.A)                     1NS00190
            COHMON /VOLUME/ COUNT (A , POO)                                         INS00200
            COUPON /PARK:/ PZ,       pv(50), FLA(SO), vzcso),  zv(50)             INS00210
            PEAL MINP                                                              INS 00220
            COMMON TT(2C'0,3). 0 bl. A ( t TO , 3 ) , PRT(50).  OUEUF(200)                  INS00230
            COMMON               PT(4.3) ,VOL(A,?) ,Y(4,3) ,CAF(Af3).YT<«)         INS00240
           1 ,DELAI(70,8) ,QQ (i,7)                                                  INS00250
            REAL*8NPHASE(9)                                                      INSOO260
            DATA NPHASE/ ?HNORTH-AP,  8H  EAST-AP, &HSOUTH-AP,                    INS00270
           1  fcH WEST-AP. 8HN-AP-LFT,  tHS-AP-LFT, 8HE-AP-LFT,                    INS00280
           2  SHK-AP-LFT, RH          /                                            INS00290
     C  FOR  tACH SIGNAL PHACE DETEP'-'INE A PHASE L^NTH                          INS00300
      1     NP = C                                                                 INS00310
            MINR = 1.0                                                            1NS00320
            SY=0                                                                 INS 00330
     C    INITIALIZE  VOLUMES ON EACH  APPROACH                                    INS00340
            DC 15 J = 1 ,A                                                            INS00350
            VOL(J ,1)  =0.0                                                        INS00360
            L = LIN(I,J)                                                          1NS00370
            IF(L.GT.O)  VOL(J.1) = (COUNT(JtL)+COUNT(Z,L)*COUNT(1,L))*3600./TP    INS 00380
            VOL(J,?)=0.0                                                          1NS00390
            VOL(J,3)=0.0                                                          INSOOAOO


                                                                   SOURCE CODE  PAGE     087

-------
AI P f N 0 1 > A .
IS
MODFL
COMPUTER PROGRAM SOURCE CODE
ENVIRONMENTAL PROTECTION  A GE ^







1
C
r
c
C




c
c

c
c








c


c
2






c
c
D
D
0
Q
Q
5 C
FIRS
J
J I
J? I
D
C
L
I
SFT
SME--
J
FET
I
J
I
I
I
I
C
I
I
CONT
I
1
MODI
no p
B
D
B
I
I
I
AT( J
AT ( J
ELA I
LLAI
Q(J ,
Q(J ,
Q(J ,
ONTI
T DE
1 =
SIN
S IN
0 2C.
AF'( J
— t
F(L
J1 . A
PHA S
i_ *
IND
E OP
3 =
F(J
F (IT
F(IT
F(IT
AF (
F (C
F(VO
ROL
.?)
,: )
(J ,
(I,
1) =
2) =
3) =
NUE
TER
1
DF X
EEX
J
,1 )
IN(
.FQ
N I
E C
J1
EX
POS
J1
.LE
YPC
YPC
YPC
J.1
AP(
L(J
IS
F( PH(I
f (I/O
FY T
CNTR
ASE P
IF =
PVAL
F(NL
F(NL
F(PC
L(J
HE
N =
T =
0.
=
AS E
ANE
= 0.0
= 0.0
J) = 0
J-K )
0.0
0.0
0.0

MINE

OF
OF
— 1
= 0
I ,J )
. 0)
NDEX


.0
= 0.




TH

APP
PHA
/,
.5

GO
TO
ONTROLI


J3 TO I
ING

. 2)
(I)
CI)
(I)
) =
J,1)
,1)
BY A
,J2 +
7,1)
CAPA
AMI
0.1
5
0.0
(L)
(L)
NTRN
APP

J3
.EG
.EQ
.EQ
GCA
.E
.LF
TW
2)
.E
C IT
NK



.GT
.EG
LT.



0




E

R
S













vo

OAC
E C



TO
TES
NG T

D
R


•
•
•
P
Q
•
0
•
Q
I
C



•
•


FNT
OAC

= J
3)
A
5
(1 .
. 0
0.
PK
NE.
. f?
ES
OUN



2)
2)
0.2








LUME

H DI
0 N T R



24
T WH
HEN

I F Y
H

•f 2
GO
.A ND
.AND
J?)
.0)
) G
ASE
0.)
.0)
DUE
T (3.



GO
GO
) GO










R








A

E
OL




E
-

0



T
•
-•

C
0
S

G
T
L



T
T





T
S

p



0



A

T
r
0
n
)



n
o
f








ND CAPACITY OF EACH APPROACH.

C T I 0 N
LING THIS APPROACH




HER THERE IS MORE THAN ONE PHAS
OR E-W APPROACHES

POSING TRAFFIC



2 1
J1 . c.Q . 2) GO TO 21
J1 .EG. 1) GO TO 21

F'(J,1) = NLANF (L)*1 200.
TO 24
GNAL WITH 2 POSSIBLE MINOR MOVE''
0 TO 22
TO 225
LLFT TURNING VEHICLES (SEE TABL
/VOL(J .1 )*3
-------
APPENDIX  A,
                      1 S M A P MOOT. L
                                           COMPUTER  PROGRAM SOURCE  CODE
                                                                          ENVIRONMENTAL PROTECTION AGENC
            PATIPT = 0.2                                                           INSOO&1G
            BPVAL = 0.1?                                                           INS 00 8-20
            GO 10 20?                                                              INS 00630
      C01    1F(PCNTRN  .LT.  0.15) GO  TO  213                                      INS0084G
            BASEPT = 0.15                                                          INSOOE50
            BPVAL = 0.1                                                            INS 00860
            GO TO 207                                                              INS00870
      203   DIF = 2.0                                                              INS00880
            IFCPCNTRN  .LT.  0.1) DIF  =  J.0                                        INS0089Q
            GO TO 20P                                                              INS00900
      205    IFCPCNTRN  .LT.  0.?) GO  TO iQ7                                       INS00910
            PASEPT = 0.2                                                           INS 00920
            PPVAL = 0.1                                                            INS 00930
            GO TO 20?                                                              INS00940
      2P70IF = 1.0                                                              INS 00950
      208   FACL  = DIF*CBASEPT-PCNTRN)-bPVAL                                     INS00960
            GO TO 23                                                               INS00970
     C   CAPACITY IS IDENTICAL  FOR  ALL THREE TURNING  MOVEMENTS  OF  APPROACH     INS00980
      21    J2 =  J                                                                 INS0090C
            CAF(J,1) =  GCAPCI,J2)                                                 INS01000
            IF(CAPCJ,1)  .EG. 0.0) CAP(J,1) = NLAME(L ) *1 200.                     IMS01010
            IF(VOL(J,1)  .LE. 0.) GO  TO 24                                        INS01020
            GO TO 225                                                              INS01030
      2?    VCL (J.1)  = (COUNTC ,L) +  fOIINTd.L) )  *7tOO./TP                      INSOIO^O
            VOL(  J» 3)  =  COUfJT(3. L)  * 3600./TP                                  INS01050
     C                                                                             INS01060
     C   ASSUME A LEFT  TURM  CHANNEL  THAT  STORES  ALL  THF  LEFT  TURNING            INS01070
     C   VEHICLES UNTIL  THE  LEFT TURN  PHASE BEGINS.                              INSOIOfiO
            CAF(J.I) =  CAP(J,1) *(1.0  +U.3/ NLANE  (L))                          INS01090
            CAF(J,3) =  GCAP(I,Jl+2)                                               INS01100
                 P(J,3)  .LE. 0.) CAP(J,3) = 1200.                                INS01110
                 ) = VOL(J,3)/  CAPCJ.3)                                           INS01120
                 = 0 .3/MLANE (L)                                                   INS01130
                 HE CAPACITIES  DUE  TO  VARIATIONS  IN  RIGHT TURNING  VEHICLES     INS01140
      23    FACR  =2.0                                                             INS01150
            IFUOLCJfD  .LE. 0.0) GO  TO  24                                       INS0116U
            PCNTRN = AMI N1 ( COUM T (2, L )/VOL (J ,1 ) *  3C-00./TP, 0.3)                 INS0117Q
            IFCPCNTRN  .GT.  0.1) FACR  = 1.0                                       INS01UO
            TF(NLANECL)  .En. 2) FACR  = U.b                                       INS01190
            IF(NLANE(L)  .GT. 2 ) F AC H  = 0 . ,L'r                                      INS 01 200
      I FCC A
      Y c j,:
 225  FACL
C  MODIFY  T
                                                                    SOURCE CODE  PAGE
                                                                                    069

-------
Arrff.PI>  A.           IS^'AF  I'lODFL          COMPUTER  PROGRAM  SOURCE CODF.      ENVIRONMENTAL  PROTECTION AGENI


            F ACK  =  (0.1-PCNTPfJ) * F AC H                                               INS 01 210
            IF(NLANECL)  . EQ.  1  .AND.  PCNTRN .GT.  o.2> FACR = FACR-(PCNTKN      1NS0122U
           1-l..Z)/r.O                                                               IMS01230
            CAFU.1)  = CAP(J,1)  *(1.P+FACR+FACL>                                  INS01240
      (   COMPUTE  V-EBSTERS HIGHEST RATIO  OF FLOW  TO  SATURATION FLOW  FOR  EACH    INS01250
      (   PHASE                                                                       INS01260
       24    Y (Jf1 )  =  0.0                                                            INS01270
            IF  (  CAP(J,1).GT.0.0 ) Y(J.1)  = VOL(J,1)/ CAP(J,1)                  INSQ128Q
       2C    J1  =  3-J1                                                               INS01290
      (                                                                               INS01300
      C   CALCULATE  THE MAXIMUM  Y FOR  EACH  PHASF                                   INS01310
            YT(?) =  Y(Z,1)                                                          INS 01320
            YTC1 ) =  Yd , 1 )                                                          1NS01330
            IF(ITYPCd)  .EC-'.  3  .OR.  ITYPC(I) .EQ.  5) GO TO 26                   1NSQ1340
            YT(1)=  AP-1AX1 (Y (1,1) ,Y(i,1) )                                           INS01350
            YT(i) =  C.O                                                             IKS 01360
            IF  (  FH(I,3) .ME.  0.) YT (3) =Af,AX1  (  Y(^,3). Y(1r3»                 INS01370
       2C'YT(4) =  Y(*,1)                                                          INS 01 380
            YT(E) =  Y(2.1)                                                          INS0139Q
            IFClTYrc(I)  .EQ.  3  .OR.  JTYPC(I) .FQ.  ^) GO TO 27                   INS 01400
            YT(E)=  ArAX1 (Y (2, 1 ) tY(4.1))                                           INS01410
            YT(C) =  G.O                                                             INS01420
            IF  (  f'M(I,4) .ME.  H.O)   YT(4)= A^AX1(  Y(2,3),  Y(4,7))               INS01430
       27    DO  ?8 J=1,4                                                             INS014AO
       28    PT(J,1)  = PH(I,J)                                                       INS01450
            COT = ICYCL(I)                                                          INS0146Q
            IF(ITYPC(I).EQ.1)GOT040                                          INS0147Q
         CALCULATE  THE CONTROLINP  Y  RATIO TO  PHASF  TIME  RATIO                  INS01480
            DO  29 J  =1,4                                                            1NS01490
            IF  (PH(I,J).EQ.O)  GO TO  ?9                                             INS01500
            IF(YT(J)  .LE. 0.0)  GO TO  29                                            INS0151Q
            SY  =  YT(J) + SY                                                         INS01520
            M1NR  =AMIN1( MINP,  YT(J)/PH(1,J))                                     INS01530
            NP= NP  4  1                                                              INS01540
            CONTINUE                                                                 1NS01550
         CALCULATE  A  CYCLE  TIME  CO                                                 INS01560
            C 0  -  U.O                                                                 INS01570
            DO  11  J  = 1,4                                                           INS01580
            PT(J)=YT(J)/MINP                                                      INS 01590
            CO  =  CO  + YT(J)/MINR                                                   INS01600

                                                                     SOURCE  CODE PAGE     O9O

-------
APPENDIX  A
                     ISNAP MODEL
                   COMPUTER PROGRAM  SOURCE CODE
ENVIRONMENTAL  PROTECTION AGEN
      :  CALCULATE WEBS
           COT  =  ICYCL
           IFCSY  .LT.
           I F  (CO .GT.
           IF(CO  .GT.
           IF(COT .GT.
           GO  TO  343
      33   CO  =1 CYCLd
           GO  TO  35
      34   If  (  COT.GT
      343  CO  =  COT
      35   COT  =  CO
           SPT  =  0.0
           SPH  =  0.0
      :   FIND  THE PHAS
           DC  i?  J = 1 ,4
           i r ( F- H (i, j)
           PTU ,1)  = Y
           I FCPTCJ , 1 )
      ;  FHASfc  SKIPPABI
           I F(PT (J f 1 )
           SPH  =  SPH +
           PT  ( J .1 )  =
           CO  TO  37
      36   SPT  =  PT(JT
      37   CONTINUE
           IF(SPT +  SP
           COT  =  SPT +
           IFCCOT ,LE.
        REDISTRIBUTE: T
           R DIS  = COT
           COT  =  ICYCL
           DO  39  J=1 ,4
      :  PHASE  MIGHT  BE
           I F(PT(J,1)
           PTJ  =  PT(J,
           PT(J, 1)  = P
           IF(PT(J,1)
           SPT  =  SPT -
           RDIS=RDIS-P
TERS OPTIf'UM  CYCLE TIME
(I)
1.0) COT =(1 ,S*CI (1)*NP + 5.0>/  (1.0-SY)
 COT) GO T054
ICYCL(D)  GO  TO 33
 ICYCL(D) GO  TO 33
.ICYCLU))  GO  TO 33
E T1MFS  FOR  THIS  CYCLE LENGTH

.LE. O.C)  GO  TO 37
T(J) /f!Y*COT
.GT. P H C1 . J) )  GO  TO 36
LITY IS  ASSLIMrD FOR CONTROLLER.
.LE. 0.0)  GO  TO 37
 PHCI ,J )
F H (I , J )

1)  * SPT

H .LE .  (OT)  bO TO 40
 SPH
 ICYCLU))  GO  TO  40
I ME BFYOND  PHASE  TIME.
- 1CYCL  (I )
(I)

 0.0 ,  EQUAL  OR GREATER THAN PHCI.J)
.LE. PHC I »J) )  GO  TO 59
1)
T (J, 1 )  * (1 ,0-PDIS/SPT)
.LT. PH(1.J»  PT(J,1) = PH(J,J)
 PTJ
TJ+PT(J.1)
   INS01610
   INS01620
   INS01&30
   INS01640
   INS01650
   INS0166Q
   1NS01670
   INS01680
   INS01690
   INS01700
   INS01710
   INS01720
   INS01730
   INS0174Q
   INS017SO
   INS01760
   INS01770
   INS01780
   INS0179Q
   INS01800
   INS 01810
   INS01820
   1NS01830
   INS01840
   INS01&50
   INS01860
   INS01870
   INS01680
   INS01890
   INS0190C
   INS01910
   1NS01920
   INS0193C
   INS01940
   1NS01950
   INS01960
   INS01970
   INS01980
   INS01990
   INSOPOOO
                                                                  SOURCE  CODE  PAGE
                                                                091

-------
AF'PE ND I X
1 SM AP  MODEL
COMPUTER PROGRAM  SOURCE  COOF.
ENVIRONMENTAL  PROTECTION  AGEN
1 O
C
C
(
40










C






43
44
C


C



c



c



50
( CNT I NUE

COMPOS DELAY , QUEUE LEN3TH, NSTO
SET J1, A PHASE INSEX, J1 = 1,2,1
J 1 = 1
DO 63 J=1 ,4
NS = 0
wi = o.o
W2 = 0.0
W3 = 0.0
Q1 = 0.0
L = L I M ( I , J )
I F(L .LE .0) GO TO 63
DO M K = 1 , 3
I F(K .EG. 2 ) GO TO 60
DETERMINE THE PHASE I fJ D E X J? OF TH
IFCITYPC(I) .LT. 3) GO TO 43
IFdTYPC(I) .EQ. 4 .AND. J1 . EQ
IFCITYPC(I) .EU. 5 .AND. J1 .£0
I FU .EQ. 3) GO TO 60
JZ = J
GO TO 44
J 2 = J1 + K-1
IF(PT(J2,1) .E6. 0.0 .AND. K .E
MODIFY CAPACITY PER HOUR OF GREEN
CAF(J.K) = ( AP( J ,K) * (PT( J2,1 ) -C
CAP(J.K) = AMAX1(0.0, CAP(J,K))
TEST THAT THE VOLUME DOES NOT EQUA
GREENQ = O.C
I F ( P T ( J 2 , 1 ) . G T . 0.0) G R F L N U =
IF(VOL(J,K) + GRrENQ . G E .
COMPUTE QUE LENGTH AT LND OF GRECN
W1 - (COT-PT(J2,1))**2/(2.0*COT
QO = VOL(J,K ) /(2 .0* (CAP ( J ,K ) -
I F(K .GT. 1 ) GO TO 54
W7 IS THE DELAY DUE TO RESIDUAL C.U
IF(VOL(J*1) .LE. 0.0) GO TO 52
W3 = WUE (I, J ) *QUE (I , J )/ ( (CAP( J,
GO TO 52
I F(GR tENQ .GT . 1.0)
1NSO?010
INS02020
FS I NSO? 030
,2 WHEN J= 1.2.3.4 AND ITYRC = 1 ,2INSO?040
INSQ?050
INS02060
INSO?070
INSO?030
INSO?090
I NSO? 100
INSO?110
INS02120
INS02130
1NSO?1^0
INSO?150
IS APPROACH AND TURNING MOVEMENT. INSO?160
INSO?170
. 1 ) GO TO 4 3 INSO?180
. 2) GO TO 43 1NSO?190
INSO?200
INSO?210
INSO?220
INS02230
Q. T) GO TO 60 INSO??^0
TO CAPACITY PER HOUP INS02250
Id) / ? .0)/COT INS02260
INSO?270
L CAPACITY, CAPACITY IS DEVALUED INSO?230
INS0229Q
3600. /(COT + PT(J?,1)) INS 02 300
CAP(J.K)) GO TO 50 INS02310
INS02320
*(1.-Y(J ,K)>) INS02330
VOL ( J ,K) ) ) I NSO? 340
INSO?350
FUE FROM PREVIOUS TINE PERIOD 1NS02360
INS02370
1) -VOL(J ,1 ))*? .0*VOL ( J ,1 ) ) *360INSO?3SO
INSO?390
INS02400
                                                                          SOURCE  CODE PAGE

-------
APPENDIX  A.           ISMAP MODEL          COMPUTER PROGRAM  SOURCE CODE,      ENVIROMMENTftL  PROTECTION  *G£NC


           1  (.0 =  CAP( J f K)+ (GRt FN<3 *2.0  - 1.0 + AMIN1(VOLU ,K )-CAP(J.K) .0.0)) 1NS0241G
           2  /(t.0*GREENG*(GREENQ-1.0))- 0.5                                    1NS02420
            W1  = (COT -  PT(J?,1 ))/2 .0                                            INS02430
            IF(VOL(J,K).GT.CAP(J,K))                                             INSOP4AO
           1Q1  = A!*AX1 (0.0,  (VOL(JtK)-  CAP(J.K))*TP/3600.                     JNS02450
           1  +  AMAX1 (0.0,QUE (I , J) - QO)  )                                       INS02460
            IF(K ,GT. 1)  01  = AMAX1 (P.O,(VOLCJ ,K)-CAF(J ,K))*TF/3600.)          INS02470
            IF(Q1 .GT. 0.0)  W3  = TP                                              INS02480
            TF(CAP(J,K)  .GT.  0.0) W3 = Q1*1t00./CAP(J ,K)                        INS02490
       5?    QO  = QO * Q1                                                          INS02500
       5&W2= 80*1800.                                                         JNS02510
            IF(CAP(J.K)  .NE.  0.) W? = 00*36CO./CAPCj ,K)                         1NSO?520
            NS  = (1 .0-PKJZ , D/COT) / (1.0-Y( J ,K))*VOL (J.K)*TP/3f 00. +  NS        INS02530
     C  COMPUTE INVERTED  VOLUME TO CAPACITY RATIOS  AT  EACH  GATE               INS0254G
            0056IG =  1,H6ATF                                                  INS 02550
            K1  = 1                                                                INSO?560
            IF  ( L .EQ.  LGATE(1,Ib))GO TO 57                                    INSOP57Q
            K1  = 2                                                                INSOP580
            IF  ( LCON (L,  K)  ,FQ. LGATt(2,IG)) tO TC  57                         INS02590
      5t    CONTINUE                                                              INS02600
            GO  TO 60                                                              INS02610
      57    VCR (IG,K1,  K)  =  0.0                                                 If^S02620
            IF(VOL(J,1)  .NE.  0.CD VCP(IG,K1,K) = CAP ( J , 1 ) / VOL (J , 1 )             INS02630
            IF  (VOLCJ, K)  .NE.  0.0) VCR ( I G, i< 1 , K ) =  CAP(J,K>/ VOL(J,K)          INSO?6«U
      60    DELA(L,K) =  W1*W2-fW3                                             INS 02 650
            QCi< J ,K) = QO                                                          INS 02660
            IF  (K.GT. 1)  GO  TO  61                                                INS02670
     C    COMPUTE THE AVERAGE CURUT LENGTH FOR A SIGNAL  CYCLE.                 INS026fiO
     C  QUEUE  AT END OF  GREEN  + AVEFAGfc  (-UEUE DURING  RED  PHASE                INS02690
            GU[UE(L)  = 'nO  +  W1*VOL( J ,1)/I600.                                   INS02700
            QO  = 0.0                                                              INS02710
      d1    CONTINUE                                                              INS 02720
            QUEUE (L)  = QUEUE (L) + 
-------
APPFNIMX A.          ISMF MODl'L           COMPUTER  PKOGRAW SOURCE  CODE*     ENVIRONMENTAL PROTECTION AGE


            DtL*. I(I,J) = DELA(L,1)                                                INSO?£10
            DtLAI(I,J+O=DEL'(L,:>)                                             INS 0? 820
      c--    J1  r  3-J1                                                             INS02630
            C (,(9,1) = 0.0                                                           INS0284U
            VtL(9,1)=0.0                                                          INS02850
            CAP(9.1)=0.0                                                          INS02860
            Y(9,1)=0.0                                                            INS0287C
            PRINT  9631, I,(J.J=1,4)                                               INS02880
      9621  FORMAT (13H01NTERSECT10N I5X  4(23X,5HPHASE ,I 2))                     1NS0289G
            PRINT  
-------
    /«.          ISNAP MODFL          COMPUTER PROGRAM  SOURCE CODE,      ENVIRONMENTAL PROTECTION


      1^ = 7                                                                   INS03210
      110=4                                                                  INS03220
      GO TO  6335                                                            INSOT230
 6?33 CONTINUE                                                              INS 0*240
      IZ=*                                                                   INS03250
      16=9                                                                   INS03260
      14 = 4                                                                   INS03270
      15=3                                                                   INS03280
      17=7                                                                   INS03290
      I8=B                                                                   INS03300
      19=9                                                                   INS03310
      110=6                                                                  IMS03320
 6335 PUNT  96335. NPHASE (1 ) , NTHAS E (I 2 ) ,NPHAS E (2) ,NPH A S E (I 4 ) , NPHASE(I 5>INS03330
     1, NPHASECI6). NPHA^E(I7). NPHASEd*)                                INS03340
96335 FOENAT(5Xt4(7X. A%TXt AG ,4X>>                                         INS03350
      PRINT  P634,  (DELAI(I.J)fPELAl(I.J+2),J=1.2),DELAI(I,l5),DELAI(I,l9lNS03360
     1), DELAI (1.J10) .DELA1 (I,Ic>                                          INS03370
 963* FORMAT C5H DELA,  4 ( 5X ,2F10.0,5X))                                    INS03380
      PhINT  ^635,  (QQ(J,1 ) ,QQ(J + 2,1 ),J=1 ,2) ,CQ (15 ,1 )?OQ (19,1),           INS0339C
     lOG(Iia,1),00(Ifc,1)                                                    INS 03400
 9635 FOF1AT (6H QUEUE  4 ( 4X ,TF 1 C.0,CX))                                    IMS03410
      PKJNT   t J = 1 »2) f VOL (15, 1) fVOL(T9, 1) ,       INS03420
     1 VOLd 10,1 ) , VOLCI ? ,1 )                                                 INS0343U
 V636 FQPMAT(7HVOLUMc4(?x,2;rin.O,7x))                                   INS 03 440
      PF;INT  9637,  (CAP( j, 1) ,c Ar (j + 2 ,1 ), J = 1 ,2) f CAP (i 3,1) .CAP (i 9 .1) .       INS03450
     1CAF(Iin,1),CAP(I9,1)                                                 INS03460
 9637 FORMAT (9H CAPACITY  4 (1 X , i.F 1 0 .0 , 9X ) )                                INS03470
      PRINT  9638,  ( Y ( J , 1 ) , Y (J + ? , 1) , J=1 , 2) , Y (I 5 ,1 ) . Y (I 9 , 1) , Y (I 10 ,1)       IMS03480
     1 , Y (I ?• , 1 )                                                              I N S 03 4 9 0
 963S FOKMAT(7HV/C.CAr4(TX,2rin.5,7x))                                   INS O7 500
      RO TO  90                                                              INS0^510
 90   CONTINUE                                                              INS03520
      RLTURN                                                                INS03530
      END                                                                    INS03540
                                                              SOURCE  CODE PAGE     095

-------
APPENDIX  «.           ISKAp MODTL          COMPUTER  PROGRAM SOURCE  CODF,      ENVIRONMENTAL PROTECTION AGEI


            MAHOUT INE.  INSFCI'                                                     IKU00010
            CC^'VON  /  COi'-N/ I,Z,L,J,  K,  TOfc,  DOW,  TP .  TOTATT,  TTPZ,TOTGEN       INUC0020
            CCMMON  /LINK./   NLlf.K..  NL«N[(2CO),  X1(200), Y1 (2 OC ) , X2 (? 00 ) , Y ? ( 2 Q Q) I N'U 00 07 0
           1,  LC/>P(200),  DIST(?uO),  VLLC200),  ICON (200,3)                      INUOOOAO
           2,NSTOPS(200)                                                           INU00050
            COMMON  /INTRST/N1, L I N ( 7 D , /.) , ]T YP C ( 70 ) , I C Y C L< 70 ) ,  PH(7QfA),  C I ( 7 0) I NU00060
           1  ? &CAP(70,«),QUE(70,A)                                               INU00070
            COMMON  /ZONES/    NZONFS ,N7LINK ( 50)»  ZLINKS (12,50 ) ,  ZATTR(50),     INU00080
           1ZGENR  (50),  NEXT, ZAT(?), 7fcT(?),  ZVT(3,50),  ZNAMEC50)             INU00090
            COMMON  /  GATE/ NGATE,  LGATE(2,10),  vcRdO, 2,4)                     INUOOIOO
            COMMON  /VOLUME/ COUNT(4,?00)                                          INU00110
            COMMON  /PARK?/ P7,       ^V(50),  FLA(50),  VZ(50),  ZV(50)            INU00120
            COMMON  TT(200,3), DELA(2nO,3), PRT(50),  QUcUE(200)                  INU00130
            COMMON                PTU.2)tVOL(4,3),Y(4.3)fCAP(&,?)fYTU)         INU001AO
           1 ,DELAI(70,A)                                                           INU00150
            DIMENSION' W(2),V(2)                                                   INU00160
            INTEGER W                                                              INU00170
     C                                                                             INU0018Q
     C   UNS1GNALIZED INTERSECTIONS  ARE HANDLED  IN THIS SECTION                 INU00190
     C   NOTF  TH/=0.0                                                               INU00300
            W(2)=0.0                                                               INUC0310
            V<1)=0.0                                                               INU00320
            V(F)=0.0                                                               INU00330
            Ji: = 1                                                                 INU0034Q
            DO 72 J = 1,4                                                          INU00350
     C   SUM  THE VOLUME  AND VOLUME  DIFFERENCE  FOR  VEHICLES  ON  N-S ANO  E-W  APPRINU00360
            L  =  LIN (I,J)                                                          INU00370
            VOL(J,1)  =  0.0                                                        INUOP380
            IF (L .LE.  0)  GO  TO  ^3                                                INU00390
            PELA(L,1) =  0.0                                                       INU00400

                                                                    SOURCE  CODE  PAGE     O96

-------
AI'PENDIX  A
                     ISKAP  MODFL
                                           COMPUTER  PROGRAM SOURCE  CODE
  ENVI RON*ENTAL PROTECTION
      14=  14+1
      VtLU ,1 )  =(CO
      IF(VOL(J,1) .
      IF(ITYPC(I) .
      SVOL  =  SVOL +
      AbSV  =  VOL(J,
      IF  (  GCAP(I,J
      IF  (  NLANE(L)
 71   STOP  1
 715  V(J2 )=  APAX1 (
      W(J2) =  MAXO(
      T F(GCAF (I ,J )
      GO  TO 72°
 723  GCAP( IfJ)  =
      GO  TO 727
 725  G t A P( I , J )  = 4
C  SUM  THE  CAPACITI
 727  SCAP  =  SCAP *
 729  SLANE =  SLANE
 73   JL  =  3-J2
      J1  =  MOD(J1 ,
      I FUTYPC (1) .
      A L S V  =  A B S ( A P
C  COMPUTE  A  MODIFI
C  ,  f LOM  HCH  TAf. L
      IF(SVOL  .GT.
     1S NCAP =  SCAP
      IF  (14  .LT. 4
      GO  TO 738
 735  IF(tfd)  .LT.
      F =  V (1 ) / V ( 2 )
      S N C A P =  1 ti 0 0 .
      SVOL  =  V(1) *
C  COULD  INCLUDE  MO
 73f  CONTINUE
C  COMPUTE  NEW  CAFA
      I G  -  0
      Ifcl  = 0
      DO  77 J  -  1,4
      L =  LIN(I «J)
                         UVTC1.L)  * COUNT(2,L)  *  COUNT(3,|J  )  *3600./TP
                         GT .  VOL (J1 , D) J 1  =  J
                         GE.  -1 )  GO TO 71 5
                          VOL(J ,1 )
                         1)  - AtfSV
                         )  .GT.G)  GO  TO 727
                          -  1)  71,  7?3. 725

                         VOL (J.I ) ,V (.12) )
                         NLANE(L) ,W ( JI))
                         .LE.  n.Q)  GCAF(I,J)  =  1800 . *NLANE(L)

                         475 .

                         50 .*NLANE(L)
                         ES  FOP  ALL APPROACH  LEGS
                          GCAP(I,  J)
                          *  N L A N F < L )

                          2)
                         GE .  -1 )  GO TO 735
                         SV)
                         ED  INTERSECTION  CAPACITY  BASED ON VOLUME  SPLIT
                         E  6.3  )
                         0.0)
                         *  AP1AX 1(1.0  - APSV/SVOL/1 . 9 , .816)
                         )  SNCAP  =  SCAP

                         1.0  .OR.  V(?) .LT.  1.0)  GO TO 736
                         * W ( ? ) / W ( 1 )
                         *(W(1)*R+W C7)) / (R+ 1 .0)
                          V (?)
                         D1FICATION1 TO CCAP  AT  A  2  WAY STOP  PAS ED  ON  GAP

                         CITIES  FOR EACH  APPROACH
     INU00410
     INUOQ420
     INU004IC
     INU00440
     INU0045Q
     INU00460
     INU00470
     INU00480
     1NU00490
     INU00500
     1NU00510
     INU00520
     INU00530
     INU00540
     INU00550
     INU00560
     INU00570
     JNU005SU
     INU0059Q
     INU00600
     INU00610
     INU00620
     INU00630
     INU00640
     INU00650
     INUOC660
     INU00670
     INU00680
     INU00690
     INU00700
     INU00710
     1NU00720
     INU00730
ACCFPINU00740
     INU00750
     INU00760
     INU00770
     INU00780
     I NU00790
     INU0060C
                                                                   SOURCE CODE PAGE
            OV7

-------
APPENDIX  A.           1SKAP  MODTL          COMPUTER  PROGRAM  SOURCE CODF,      ENVIRONMENTAL  PROTECTION AGE


            DLLAI(I,J) = 0.0                                                        INUOH810
            Gu  =  o.o                                                                iNUoos:o
            IF(L  .LE. 0) GO  TO 767                                                 1NU00830
            NSTOFS(L) = 0                                                           INuOOB^O
            IF(SVOL  .LE. 0.)  GO TO 76                                              INU0085C
            CAPU.1) = VOLCJ ,1)*SNCAP/SVOL                                        INU00660
      C   TEST IF  OVER CAPACITY DEMAND                                              INU00870
            00  =  AMIN1 (VOL(J ,1 ) , (VOL(J,1) - C A P ( J , 1 ) ) * TP/3 600.+Q UE ( I , J ) + 5 . 0 >  INU008FO
            IF(VOL(J,1) .LT.  CAPCJ.1))  QO = AM IN1 (?.0 ,1 .0/(SNCAP/SVOL-1 .0))    INUQ0890
      (   COMPUTE  THE NEW CAPACITY TO VOLUKE RATIO  AT  EACH  GATE                  INU00900
            IF(1G  .GT. C) GO  TO 74^                                                !NUOn910
       7A1   It,  -  1C  + 1                                                             INU00920
       11*2    IF  (IG.GT. NGATF) GO TO 749                                           INUOQ930
            IFCL.NF. LGATE(1,IG>>GOT0746                                     INU00940
            IF(VOL(J,1).EQ.O.)C-OT074?                                         INU00950
            DG744K=1.?                                                            1NU00960
            Vcr(TG  , 1, K)  =  CAP(J,1)  /  VOLCJ.1)                                  INU00970
      C      JF(VOL(J,K) .NE .  0) VCR(IG.1,K) = C A P ( J , K ) / VO L( J , K)                .1NUOD960
       744   CONTINUE                                                                IMU00990
            GO  TO  74^                                                               INU01000
       746D0747K=1,_                                                            INU01010
            I F(LC ON (L ,K ) .NE.  L o A. Tr ( ?. . I G ) ) GO TO  747                              1NUC10PC
            IF(VCL(J.D -NE.  Q.O)VCR (IGt ? .K ) =  C A P ( J . 1 ) / V OL ( J , 1 )                INU01Q3Q
            GO  TO  749                                                               INU0104G
       747   C ONTINUE                                                                INU01050
       74£   I F(I61  .EG. 0)  GO  TO 74 1                                               INU0106Q
       749   Itl  =  IG                                                                INU0107Q
      C   DELAY  ON  EACH APPROACH                                                    INU01080
       75    C ONTINUE                                                                INU01090
            PNS=SVOL/SNCAP                                                        INU01100
            IFUCL(J,1).LE.O.O)5UT076                                        I NU 01 110
      c    COMPUTE  THE PERCENTAGE STOPS                                             INU01120
            IKlTYPC(l) .EQ.  -:> HNS =  1.U                                        INU01 130
            IF(ITYPC(I) .EG.  -1 .AND.  f*'OD(J.^)  .NE.  J1) PNS  = 1.0               I NU 01 140
      C   COMPUTE  DELAY E'ASED  Of! INVtRSF  OF CAPACITY.   ^AKE  THEORETICAL  M A XIM UM1 NU 01 1 5 0
      C   OF  CAPACITY 2*GCAP(I,J)                                                   INU01160
            DbLft  (L,1)  = NLANE(L) /(AMIN1 (d.0 , SNCAP/SVOL)  *GCAP(I rJ) )*3L00.*   INU01170
           1  (FNS  +  uO)                                                             INU01180
            NSTOPS(L) = PNS*VOL(J .1)*TP/3600.                                     INU01190
      C   IF  CAPACITY EXCEEDED ASSIGN  EQUAL VEH1CLF  PROCESSING TIME  TO  EACH  APINU01200

                                                                     SOURCE  CODE  PAGE     O98

-------
APPENDIX A.           ISC'AP MODEL           COMPUTER PROGRAM SOURCE  CODF.     ENVIRONMENTAL PROTECTION .* fiEN


            IFtSMCAP  .LT. £VOL)  DELACL.1)  =  SLANE/?HCA**3600.*                  1NU01210
           1  (1.0 +  (uO + GUE(I.J)  * 5.U)/?.0)                                   1NU01220
         76  DcLA(L.Z)=DtLA(L.1)                                                    IWU01230
            DtLA(L,3)=DFLA(L ,1)                                                    INU01240
            DELAKT.J)  = OELA(L,1)                                                 INU01250
     C   QUEUE LENGH  AT THE  END  OF  TP                                             INU01260
      767  QUEUE(L)  =  00                                                          INU01270
            OUECI,J)  =  QO                                                          INU01280
      77   CONTINUE                                                                IMU01290
            IFUSAVE  .NE. I) PPINT  97                                             INUQ1300
      97   FOP«A TdH-1gX 35H  M-APPR DFLAY  QUEUE     E-APPR DFLAY  QUEUE    S-APINU0131G
           1PR DELAY  QUFUE     V-APPR DELAY  QUEUE )                               INU01320
            ISAVE =  1+1                                                            INU01330
            PRINT ^8, I, (DELAI(I,J). QUE(I,J). J=1,4)                           INU01340
      90   CONTINUE                                                                1NU01350
      9?   FORMAT  (13H INTERSECTION 15,  4(F10.0 , F7.0r5X))                      INU01360
            RETURN                                                                  INU0137Q
            END                                                                     INU01380
                                                                    SOURCE  CODE PAGE     Ov9

-------
APPENDIX *.           IS^AP MODEL          COh'PUT(:R PROGRAM SOURCE CODEt       ENVIRONMENTAL PROTECTION  AGE


            S Lu ROUTINE  /AREA                                                         ZAR 00010
      C   EACH  ZONE IS  D £ F IN E C>  fY ADJACFflT LINKS  FROM  WHICH VEHICLES  ACCL.SS     ZAR00020
      C   THAT  ZONE.   IN  ADDITION PARKIf:b 70NE  LINKS  MUST ENCLOSE AN  AREA       ZARQ0030
      C   AND  THAT AREA  IS  ASSIGNED A  CERTAIN  NUMPEP  OF  VEHICLE  PARKING  S F AC E S . Z AR 00 IJA 0
      C   OF COURSE ALL  LINKS  SURPOUNDING THE  AREA MUST  PE CONNECTED,  OTriFRWISEZAR00050
      C   THE  AFEA WILL  NECESSARILY bE  INFINITE.   ONE  EVCPTION	THE  LAST LINK  ZAROOC6U
      C   NEED  NOT CONNECT  TO  THE FIRST  LINK wHFN LESS  THAN 6  LINKS DEFINE THE  ZAROCC70
      C   ZONE.                                                                         ZAROOOfcO
            COMMON /LINK/   NLINK, NL^NE(200),  X1(2TO),  Y1(200),X2(200),Y2(200)Z*R00090
           1,  LCAP(2QO).  DIST(PUO), VCLC2UO),  LCON  (200,3)                       ZAR00100
            COMMON   /ZONES/   NZONE5,  N7LINK(5Q), ZL I NK (1 2 ,5 0 ) ,Z AT TR ( r 0) ,       ZAR0011U
           17GENR (50),  NEXT.  ZAT(2),  7&T(2),  ZVT(7',50), ZNA^E(SO)              ZARQ0120
            CO^MON/EXCLUD/NOPAPK                                                    ZAR00130
            INTEGER  ZNAKE                                                             Z A R 00 1 <, (j
            INTEGER  ZLINK                                                             Z/>ROm?0
            DIMENSION   PX(7),PY(7),TRIARE(7)                                     ZAR00160
            COMMON /PARKZ/   "Z.     PV(qU),  PLA(50),  VZ(50),  7 V ( 50 ) , P D ,P L S , PL P OZ AR 00 1 7 0
           1,FNIOS(50),PLL(50)                                                       ZAR 00 180
            INTEGER  PNOS                                                              ZAR0019Q
            INTEGER  2                                                                 ZARC0200
            D052Z=1»NZONES                                                         ZAR00210
            SAVPLA =  PLA(Z)                                                          ZAR00220
       12   CONTINUE                                                                  ZAR00230
            1F(Z   .LE.  NEXT)  GO  TO 52                                                ZAR002AO
            NLT = PNOS(Z)                                                             ZARQ0250
            XYMAX =  0.0                                                               ZAR00260
            DOZ^NL=1,MLT                                                        ZAR00270
            L  = I APS  (ZLINK (fJL.Z) )                                                  ZAR00280
            XYMAX=/»MAX1((X1(L)-X?(L))**2+(Y1(L)-Y2(L))**2                        ZAR 00290
           J..XYNAX)                                                                   ZAR00300
      C   SPECIAL  HANDLING  IS  RcGUlPtD  FOR THE  FIRST  AND  SECOND  LINKS            ZAR00310
            I F  (  ML  -  2)  12 ,  I?, 2')                                                 ZAR 00 320
       17PX(1)=X1(L)                                                             ZAR00330
            PX(2) =  X2(L)                                                             ZAR003AO
            PY(1) =  YKL)                                                             ZAR00350
            PY(i) =  Y2(L)                                                             2AR00360
            LT  =  L                                                                    ZAP 00370
            GO  TO ?9                                                                  ZAR003SO
      17   I f  (PX(2)  .NE . X? (L) ) GO  TO 1C'                                        ZAR003<>(j
            IF(PY(2).EQ.Y?(L>)t>C:T024                                        ZAROPAOO


                                                                       SOURCE  CODE  PAGE     1UO

-------
APPENDIX A.          ISMAP  MODEL          COMPUTER PROGRAM SOURCE  CODE,      ENVIRONMENTAL PROTECTION


     C   THE END  POINTS  FAIL  TO f'ATCH,  TWO POSSIPL'H MATCHES REMAIN              ZAR0041C
       If    I F  (PX(2) .KE.  X1 (D) GO  TO 1V                                        ZAR00420
            IF(PY(2).ECl.  Y1(L))GOT026                                        Z A R QO 4 3 G
     C   THE END  POINTS  FAIL  TO * ATCH,  ONL POSSIBLE MATCH REMAINS               ZAR0044Q
       19   PX(2)  = PXd)                                                           ZAR00450
            PYC2)  = PY(1)                                                           ZAR00460
            PX(1)  = X2(LT)                                                          ZAR00470
            PY(1)  = Y2CLT)                                                          ZAR00480
      C  DETEF-M1N  WHICH  END  OF LINK  L CONECTS  TO THE  PREVIOUS LINK              ZAR00490
       20   IF(FX(NL).NE.Xl(L))f:CT022                                      ZAP OD 500
            IF  (  PY(NL)  .EG.  Y1CD)  GO  TO 2f                                      ZAR00510
       22   IF  (  PX(NL)  .NE .  X?(L)>  GO  TO 23                                      ZAR00520
            IF(  PY(NL)  .EQ.  Y2(D)  to TO 24                                       ZAR0053U
      C   THE MUMPER OF  CONNECTED  POINTS IS SAVED IN NPT                          ZAR00540
       2.7   NPT  =  NL                                                                ZAR 00550
     C   THE FIGURE IS  NOT  CONNECTED  AT THE  LINK EMD  POINTS                     ZAR00560
            PMNT  923,  7NAMECZ),  ZL I NK (NL-1 , Z ) , L                                 ZAR00570
       c?2   FORMAT (7H  ZONE   ,I2,32H   IS DISCONNECTED  BETWEEN LINKS  14.        ZAR00580
           1 4H  AND, 14)                                                            ZAR00590
            GO  TO  30                                                                ZAR00600
       24    PXCNL-t-1) =  X1CL)                                                        ZAR00610
            PY(NL+1) =  Y1CL)                                                        ZAR0062U
            C- 0  TO  ?7                                                                ZAROC630
       26    PXCNL+1) =  X2(L)                                                        ZAR0064C
            PY(NL+1) =  Y2(L)                                                        ZAR00650
       27    IFCNL.EQ.  3.0R. NL.tlC.  5)nOT029                               ZAR 00 660
            TRIARE(NL)  =  (P X (NL - 1 ) * P Y (N L ) -  PX (NL-1 ) *P Y (N L+ 1 ) * P X ( N L )* P Y (N L+ 1Z AR 00670
           1 )  -  PX(NL)*PY(NL-1 )  +  PX (NL+1)*PY(NL-1 )  -  PX (NL+1 )*PY(NL)) /  2.0   ZAR00680
            ThIARECNL)  =  ABS (Tf?I ARE (NL) )                                          ZAR00690
       29    NPT  =  NL +  1                                                            ZAR00700
            IFCfiPT .LE.  6)  GO  TO  30                                                ZAR00710
            NPT  =  6                                                                 ZAR00720
            GOT031                                                                ZAR00730
     C                                                                               ZAR00740
     C       EACH  AREA  COMPUTED IS  A  POSSIBLE  SUBTRACTION FROM  THE  TOTAL  AREA .ZAR00750
     C       WHEN   IT COVERS  THE  TRIANGLE CREATED BY  CONSTRUCTED  SIDES, SUB-   ZAR00760
     C       TRACT THE  AREA.                                                        ZAR0077U
     (   IF  A CLOSING LINK  WAS LEFT  OUT ASSUME  IT FXISTS                         ZARQ07BO
      30    IF  (  PX(NPT)  .NE.  PX(1))  GO TO 32                                     ZAR0079U
            IF  (  FY(NPT)  .ME.  PY(1»  GO TO 32                                     ZAROO&OO


                                                                     SOURCE CODE  PAGE     1 G1

-------
AFPE NO I X  A
                            M 0 D F L
COMPUTER PROGRAM SOURCE  CODE
                                                                           ENVIRONMENTAL  PROTECTION AGE
       NF'l  = NPT -1
 -1 1    PLL (7 ) = -SCRT( XYMA X)
       GO TO 40
C   ONE  LINK ZONES  ARE  LEGAL.  ASSUME 1 2412+14+14 FOOT WIDTH
 32    I F C N P T . C, T .  2 )  GO TO 3 5
       PLL(7 ) = SQRT(XYMAX )
       PL*(Z ) = PLL (Z)  * c 2.0
       GO TO 50
   35  PLL(Z)=AP1AX1<(PX(NPT)-FX<1))**2 + (PY(NPT)-PY(1))**2,XYMAX)
       PLL(Z) = -SGRT(PLL(Z))
       IF (NF'T .ED.  7  .OR. NPT.FQ.  5) GO TO  40
       TRIARE (NPT)  = ( P X ( N P T -1 ) *F Y ( N PT ) - P X (N P T-1 ) * PY ( 1 )  +  PX(NPT)*PY
     1  - PX (NPT)*P YCNPT-1 ) +  PX (1 ) *PY (NPT-1 )  -  P X ( 1 )* P Y ( N PT ) ) / 2.0
C  INITIALIZE THE  AREA  OF THE  ZONE
       Thi ARE(NPT)  =  ABS(TRJAPEfNPT))
 40    IF(NPT .LE.  4)  GO TO 413
       PLA(  Z) = (  PX(5)*PY(1)  -  PX(5)*PY(3)  +  PX(1)*PY(3) -  PxM)*PY(
     1  * PX(3)*PY(5)  -  PX (3)*PY(1)) / 2.0
       PLA(Z ) = ABS(PLA(Z) )
       GO TO 415
 413   PLfl(Z ) = TR1 ARE (  2 )
 415   IF (NPT .LE.  3)  CO  TO ^0
       DO 495 NL=  4,  NPT
C  COMPUTE  AREA OF  TRIANGLE WITH  1,2, OR 3  COMMON  SIDES
C   WHEPE  NL-3 IS  THE  NUMBER  OF  SIDES HELD  IN  COMMON
       IF(  NL - 5  )  417,47, 45
 417   1C =  1
f  IA  IS THE VERTEX  OF  THE TRIABLE 1-2-3  AND  COMMON  SIDF  IS 1-3
       I A =  2
       IF (  NPT.NE.4)  GO Tu 4?
 410   I l- -  4
       GO TO 425
C  If  IS THE VERTEX  OF  THE. TKIMJGLE  1-5-3  AND  COMMON SIDE  IS  1-3
 4?    It =  5
f  COMPUTE  THE SLOPF  OF THF LINFfOR SIDE)  HELD  COMMONLY  RY  TWO TRIANG
 4?5   IF (PXU) ,FO.  PXC7-) )  GO  TO  46
       C *  -  (P Y (1 )  -  P Y ( 71 ) / ( P X ( 1 ) -  P X ( 7 ) )
C  COMPUTE  THE INTERCEPT  OF THIS  LINE k, IT H  THE  Y AXIS
       Y>. =   PY(1)   -  CM* P X C1)
       GO TO 4?
                                                                                   ZAR
                                                                                   Z AR
                                                                                   Z AR
                                                                                   ZAR
                                                                                   ZAR
                                                                                   ZAR
                                                                                   ZAR
                                                                                   ZAR
                                                                                   ZAR
                                                                                   ZAR
                                                                                   ZAR
                                                                                ( 1)ZAR
                                                                                   ZAR
                                                                                   ZAR
                                                                                   Z AR
                                                                                   2 AR
                                                                                5 ) ZAR
                                                                                   ZAR
                                                                                   Z AR
                                                                                   ZAR
                                                                                   ZAR
                                                                                   ZAR
                                                                                   ZAR
                                                                                   ZAR
                                                                                   ZAR
                                                                                   ZAR
                                                                                   ZAR
                                                                                   ZAR
                                                                                   ZAR
                                                                                   ZAR
                                                                                   ZAR
                                                                                   ZAR
                                                                                   ZAR
                                                                                   ZAR
                                                                                LESZAR
                                                                                   ZAR
                                                                                   ZAR
                                                                                   ZAR
                                                                                   ZAR
                                                                                   ZAR
                                           00810
                                           0062U
                                           008 ?0
                                           00840
                                           00&50
                                           00860
                                           00570
                                           00*80
                                           OOS90
                                           00900
                                           00910
                                           0092Q
                                           00930
                                           00940
                                           00950
                                           00960
                                           00970
                                           00980
                                           00990
                                           01000
                                           01010
                                           01020
                                           01030
                                           01G40
                                           01050
                                           01060
                                           0107Q
                                           01020
                                           010^0
                                           011CC
                                           01110
                                           01 120
                                           01130
                                           01140
                                           01150
                                           01160
                                           01170
                                           01 1*0
                                           01190
                                           01200
                                                                    SOURCE  CODE  PAGE
                                                                                          102

-------
APPENDIX A
                    ISCAP MODEL
COMPUTER PROGRAM SOURCE CODE.
                                                                           ENVIRONMENTAL  PROTECTION AGE
c
4?


c




c
45


c




4ft


4ft

c
c
47

C
C


£
4?.

49
C
40
40
50

IA I < THE VERTIX OF THt TRIANGLE 3-4-c, IP IS VERTEX OF 5-1-3
I / , = 4
IL =1
I C = 3
COMPUTE THE SLOPE OF THE COMMON SIDE 3-5
IFCPXC!) .EG. PX(5>) GO TO 46
CK> = (PYC3) - PY(5)) /(PX (3)-PX(5))
YK = PY(3) - CM* PX(3)
GO TO 47
IA IS THE VERTEX OF THE TRIANGLE 5-6-1, IB IS VERTEX OF 1-3-5
IA = 6
IL = 3
I C = 1
COMPUTE SLOPE OF COMMON SIDE 5-1
IF(PX(5) .F.Q. PX(1)) GO TO 46
Cfc = (PY(5) - P Yd ) ) / (PX (5) - PXC1))
YK = PY(5) - CM*PX(5)
GO TO 47
IF CPX(IA) .LT. P X ( I C ) ) GO TO 463
IF (PXCIB) . GT. PXUC))60 TO 48
GO TO 493
3 IF (PX(IP) .GT. PX(IC))GO TO 4^3
r- o TO 48
USING YK AD THF- NEW Y ORIGIN COMPUTE THE SLOPE TO EACH N ON -COMMON
TRIANGLE VERTEX
AF =(PY( 1A) - YK) / PX(IA)
nfl = ( FY ( 16 ) - YK ) / PX(Jfi)
DETERMINE IF E30TH TPIANGLES FALL ON THE SAME SIDE OF THEIR COMMON
SIDE, AND SUBTRACT THE SMALLER IF THEY DO.
If ( Af .GT . C*1 ) GO TO 4°
I F ( DK .GT. CM) GO TO 493
TRIANoLE? OVEPLAP
PLA(Z) = PLACZ) - TRIARE(IA)
GO TO 495
IF < P PI .GT. CM) GO TO *• .!J
TRIANGLES DO NOT OVERLAP
3 PLA(Z) = PLACZ) + TRIAREUA)
5 CONTINUE
PLA (Z) = AfvS ( PLA(Z ) )
IMPLL(Z) .LT. 0.0) PLL(7) = -PLA ( 7 ) /PL L ( Z) - PLL(Z)
ZAR01210
ZAR01Z2C
ZAR01 ^3C
ZARQ124Q
ZAR 01250
ZAR01260
ZAR01270
ZAR01280
ZAR01290
ZAR 01300
ZAR01310
ZAR 01 320
ZAR01330
ZAR01340
ZAR01350
ZAR01 36G
ZAR01370
ZAR0138G
ZAR01390
ZAR01400
ZAR01410
ZAR01420
ZAR01430
1 AR01 44Q
ZAR01450
ZAR01460
ZAR01470
ZAR01480
ZAR01490
Z AR01 50C
ZAR01510
ZAR01520
Z AR01 530
ZAR 01 540
ZAR01 550
Z AR01 560
ZAR01 570
ZAR01 580
ZAR01 590
Z AR01600
                                                                SOURCE CODE PAGE
                                           103

-------
APPENDIX  A.           ISPAP MOD^L           COMPUTER  PROGRAM  SOURCE  CODF. ,      E M VI ft 0 N>" t N JAL  PROTECTION AGI


                        .NC. D.O)  PLA(7)  =  SAVPLA                                   ZAR01MO
            PLL(7) = AMAX1 (PLLCZ) ,1 ,P)                                             ZARQ162U
            1 f(NO PA RK.f 0.1)  PRINT  °6r'                                              ZAR01630
            F ORMA T(/ ,1 X, 'PARKING  ZONF CAPACITIES  AND LENGTHS NOT  USED IN  THE  ZARQ16AO
           SC ALCUIATION',/)                                                          ZAR01650
      C      PRINT «?53                                                                ZAR01660
       953  FORMAT (A2H-PARKING  ZONE CAPACITIES  AND TRjP  LENGTHS  /2AH ZONE   CAzARQl670
           1PACITY  LENGTH  )                                                        ZAR01680
            17  =  NEXT  +  1                                                            ZAR01690
        C57 FonyiAT(2X,lZ ,2E15 .' )                                                    ZARQ1700
            DO  57 7 =  IZTNZONES                                                     ZAR01710
            PCAP  = PLA(7)/PD                                                        ZAR0172U
      C      PRINT C57,  ZNAME (Z) ,PCAP ,PLL (Z)                                       ZAR0177Q
        57  CONTINUE                                                                 ZAR 017^0
            RETURN                                                                   ZAR01750
            E r*D                                                                       Z ARQ1 760
                                                                      SOURCE CODE  PAGE

-------
APPENDIX  A.           IS-'AF MODFL           COHPUTER PROGRAM  SOURCE CODE,      ENVIRONMENTAL PROTECTION A GE NCt


            ? US ROUTINE  fcOUTEV                                                      ROU0001U
            Cl*U;ON  /  COMM/ I.Z.L.J.  K', TOD,  DOW, TP , TOTATT, TTPZ,TOTGF.N . jltf   RQU00020
            CCMMON  /LINK/  NLINK,  V L M, F ( 2 CO ) ,  X1(2PO),  Y 1 (2 00 ) . X2 C 200 ) , Y 2 ( 2 00>R OU 00030
           1,  LLAP(200),  DISTCOO),  VILCUP),  LCON  (200,3)                       RGU0004G
           2,NSTOPS(?00)                                                            ROU0005C
            COMMON  /  INTRST/ NINS,  LIN(70 ,4 ) , ITYPC  (70),  CYCL(70),  PH(70,4),   ROU00060
           1  CH70),  GCAP(70,A),  QUEC70.4)                                        ROU00070
            COMMON  /ZONES/ NZONES,  NZLINK(5Q),  ZL IN K S (1 2 , 50 ) , ZATTRC50).       ROU00080
           1  ZGENR(50),  NEXT ,  ZAT(2)T ZGT(2),  ZVT(3 ,50) , ZNAfE(50)              ROU00090
            INTEGER  ZNAKF                                                          ROU0010G
            INTEGER  ZLINK.S                                                         ROU00110
            COMMON  /  GATE/ NGATE,  LGATE(2,10),  VC«MO,  2,A)                      ROU0012Q
            COMMON  /VOLUME/ COUNTU,rOO)                                          ROU00130
            COMMON  /PARKZ/  PZ.     PVCU).  FLAC5Q). VZ(50),  ZV(50),  P D . PL S , PL BR CU 00 1 A 0
           1,   PNOS(50)  , PLL(C0)                                                  ROU0015C
            COnhON  /VEHTYP/ VT, VTPC3), VTE(3),  VT^ULT(2),SZVTP(3,2)            ROU00160
            COMMON  TT(200,3),NC,NR,RO, R(200),  CO,  C(200)                        ROU0017Q
            DIMENSION  DELA(2nO,3)                                                  ROU00180
            EQUIVALENCE  (N'C, DEL Ad))                                              ROU00190
            INTEGER  R                                                               ROU00200
            COMMON    RG(200,10),  CG(20nf-|(j)  ,             L CR Z ( 10, 5 0, 2 > ,G C R ( A)  ROU0021C
           1.L1STLU),  CLIST(£).LISTC-(M                                        ROU 00220
           2,VFHSU),  LCRZF(10,50)                                                 ROU00230
            INTEGER  RG,  Z                                                          ROU00240
            DIMENSION  QTEMP(A)                                                     ROU0025Q
            DO 12 117=1,200                                                        ROU0026Q
        12  C  = 0.0                                                              ROU00270
            IF(ITM  .LE.  0) ITM  =  1                                                 ROU00280
            STP = TP                                                                ROU00290
            DO BO IT  =  1 , ITM                                                       ROU00300
            TP =  (STP*IT)/ITf                                                      ROU0031G
            D025IG=1,NGATF                                                    ROU00320
     C  GET  C AND  R  ARRAYS FROM  EACM GATE  LINK  PAIR                             ROU00330
      1f«    CALL MINPTH  (LGATE(1,IG) ,?)                                          ROU003AQ
            DO 19 L  =1,NLINK                                                       ROU00350
            PG (L t  IG)  =  R(L)                                                      ROU00360
      19    Ct, (L,  IG)  =  C(L)                                                      ROU0037C
     C                                                                              ROU00380
     C  GET  ARRAY  OF LINK NUMPERS  WHICH  IDfcNTIFY THE  COST  AND ROUTE  FROM EACHROU0039Q
     C  IG  TO EACH  ZONE                                                            ROUOOAOO


                                                                    SOURCE  CODE PAGE     105

-------
APPENtMX A.           ISMAP P10DFL           COTPUT6R PROGRAM SOURCE CODF,       ENVIRONMENTAL PROTECTION A6(










c
c
c

c









c


c






c


c
c
c
c
P> 0 24 7 -1,N ZONES
lOPt - 1
IF(Z .LE. NEXT) TORE = L
C 1 = 1.0E10
L1 - 0
L<: = 0
NZL= N7LINK (Z )
0021 J = 1 , NZL
L - Z LINKSC J , Z)
IF(L .LE. 0) GO T0 21
V-HERE A GATE LINK AMD ZONI LINK ARE EQUAL (I.E. EXTERNAL ZONF TO
OUTGOING GATE LINK, AND INTERNAL ZONE TO INCOMING GATE LINK)
PATH S ARE VOID .
IF (LGATEdORE, IG) .EG. L) GO TO 21
GET Z H I N COSTS TO F.ACH ZONF
If (C (L) ,Gf . 1 . OE1 0) GO TO 21
IF (L2 .LE. D) GO TO 20
IF (( (L2 ) . L . T . C (L) ) GO TO 21
L2 = L
20 IF( C 1 .LT. C(L) ) GO TO 21
Li = L1
C1 - C(L)
L1 = L
21 CONTINUE
IDENTIFY LINK WHICH SHOWS LrAST COST
LCRZ (IG. Z , 2) = 12
2; LCRZ (IG ,Z, 1 ) = L1
FIND THE FIRST LINK IN THE ROUTfc FROP THF GATE TO ZONfc
234 1F(L1 .LE. 0) GO TO 24
Lc = L1
L1 = R(L2)
GO TO 234
24 L C R 2 F ( I G , Z ) = L 2
2r C ONT INUE



FOR EACH ZONE GET A COST AUD ROUTE ARRAY TO ALL LINKS IN THF. NETWORK
DETEhMINE A COST AND POUTF. THRU CACH GATE TO EACH INT/EXTERNAL ZONE,
DETERMINE THt NUMREP OF VF H GOING THRU FAf H GATE, APPLY VE H TO THE
APPROPRIATE ROUTE
ROU0041 0
ROU004PO
ROU00430
ROUOP44U
ROU00450
ROU00460
ROU00470
ROU00460
ROUOH490
ROU005QO
ROU0051Q
ROU00520
ROU00530
ROU00540
ROU00550
ROU00560
ROU00570
ROU00560
RCU00590
RCU00600
ROU0061 0
ROU0062Q
ROU00630
ROU0064Q
ROU0065Q
ROU00660
ROU00670
ROU006&0
ROU00690
ROU00700
ROU0071 0
ROUOC720
ROU00730
ROU0074Q
ROU00750
RA 1 1 n n "7 x n
OUUU f 0 U
,ROU00770
ROUOG780
ROU00790
ROU00800
                                                                       SOURCE  CODE  PAGE     1O6

-------
APPf NO 1 X  A,
                      I 5 M A P  M O D r L
              COMPUTER PROGRAM  SOURCE CODF,
                                                  ENVIRONMENTAL PROTECTION  AGENCY
       VC 5Q  2=1 ,  N Z 0 N
       M =  N7LINKCZ)
       CALL  MINPTH  (  Z L
C  DETERMINE WHETHER  T
C  GATE  OR  FROM  INTERN
       I F (  Z .LE.  NEXT
       IORE  = 1
       IZ1=  1
       IZ2=  NEXT
       GO  TO 33
  31    I OPE  = 2
       I Z1  = NEXT+1
       112  = NZONES
C  ROUTE VEHICLES  FROM
  33    005°  I Z  =  I Z 1 ,
       GCRT  = 0.0
       ZZVtH = VZ(IZ)*
       00 333 K = 1 , 4
       LISTG (K) =0
       L1STL (K) = 0
 333   CLIST(K) = 1.0E1
       NK =  G
C      MAKE  UP A  LIST  I
C  FOR  EACH GATE DETER
       DO 38  IG  =  1 t^G-
C  INITIALIZE LG THE  L
       LG =  LGATE (IORE
       I FCLG .LC . 0)  GO
C  TFST  THAT THE LINK
       I F ( L G . N E . L C R I t
       0037 IK = 1,2
C  GENERATE THE  FACTOR
       LZ =  LCRZ (1C , IZ ,
       I F(LZ .LE . 0)  GO
       DO 36  K=1 .A
       IF(C(LG) + fGCLZ
       I FCK  .EG .  4)  GO
C  ADD  GATE, LINK AND  C
       JK =  3
INKS  (1 ,
O POUTf;
AL ZONE
 ) GO TO
        VEHI
        THRU
                                           NZ)
                                          CLES FR
                                           EXIT G
                    OM EXTERNAL
                    ATE.
 ORIGIN
IZ2
                                      70NE  Z TO EACH POSSIBLE  DESTINATION  ZONE
                             ZGENR(Z)/ZGT(3-I ORE)
n

DENTJ FYI
"IINE  THE
ATr
INK N UM fa
, I G )
 TO 3fc
AT THE G
( I G , I Z ) )
                                      NG  4  ROUTES WITH  MINIMUM TRAVEL  T1HES
                                       GATE CAPACITY,VOLUME ,TRAVEL TIME  RATIO

                                      ER  WHEN USING GATE  IG.
         ATE
          GO
                                          IS ALSO
                                          TO 38
                             S FOR ALLOCATION OF VEHICLES  TO ALTERNATE  ROUTES
                             IK)
                              TO 37
                             .IG) .GE
                             TO 335
                             OST TO L
         .  CLIST(K)) GO TO  36

         1ST
                    ROU00810
                    ROU00820
                    ROU0083Q
                    ROU008A Q
ZONE THRU  ENTRANCE ROUOOE50
                    ROU00860
                    ROU00870
                    ROU00880
                    ROU00890
                    ROUOD900
                    ROU00910
                    ROU00920
                    ROU00930
                    ROU009AQ
                   IROU00950
                    ROU00960
                    ROU00970
                    ROUOP980
                    ROU0099U
                    ROU01000
                    ROU01010
                    ROU01020
                    ROU01030
                    ROU010AO
                  GCROU01050
                    ROU01060
                    ROU01070
                    ROUOlOfcO
                    ROU01090
                    ROU01100
                    ROU01110
                    ROU01120
                    ROU01130
                    ROU011AO
                    ROU01150
                    ROU01160
                    ROU01170
                    ROU011EO
                    ROU01190
                    ROU01200
                          FIRST IN THE  ROUTE  TO IZ
                                                                   SOURCE  CODE  PAGE
                                                            107

-------
                 1SKAP  MODFL          COMPUTER PROCPAr SOURCE  CODE,      ENVIRONMENTAL  PROTECTION AGEf>
       L1S TGUk + 1) = LIST', (JK)                                                ROU01220
       L ISTL (JK + 1 )=LISTL(JK)                                                  ROU0123G
       CLI3T(JK41)=CIIST(JK>                                                 ROU0124u
       CCPUK-M)  = GCR(JK)                                                    ROU01250
 334JI-. -JK-1                                                                ROU 01260
 335   LIST C-. (K)=IG                                                           ROU01270
       LISTL (K)  =  LZ                                                           ROU01 2KO
       CLIST(K)  =  C(LG)  +  CG(LZ.IG)                                          ROU01Z90
       NK =  MING(NK41,4)                                                       ROU01300
       71 =  1                                                                   ROU01310
C  LOCATF THE  CORRECT  CAPACITY  FOK THIS  TURNING  POVtMENT                  ROU01320
       IF(IORE  .EQ.  1)  GO  TO  3 A "*                                             ROU01330
       LG1 =  F(  LG)                                                            ROU 01 3^0
       IFCLG1  .LE. 0) GO  TO 35                                                ROU0135C
       DO 3^  J = 1 ,3                                                             ROU01360
       I F(LCON(LG1 , J) .EQ. LG)  11  = J                                        ROU01370
 34    CONTINUE                                                                 ROU 01 3 80
       GO TO  ? 5                                                                 ROU0139Q
 3^3    00 3A5  J=  2,3                                                          ROUOl^OO
       LG1 =  LCON(LG,J )                                                        ROU 01 410
       IFCLG.EG.  R(LG1))I1=J                                             ROU01A20
 :A5   CONTINUE                                                                 ROU01430
 3?    CCR(K)  =  VCKClG,IO^E,11)/(C(Lb)-^CG(L7,IG))                           ROU0139f  7NAV-.F. (Z) ,ZNAMP (12 ) .(LISTG(K) .LI5TL (K ) ,CLIST(K) ,VEHS(K) ROU0155Q
C     1 , K = 1 ,NK )                                                                ROU01 560
C9^9   FOF-^AT  
-------
APPENDIX  A
                      IS ft AT M C D F L
                                           COMPUTER  PROGRAM SOURCE  CODE
                                                                          ENVIRONMENTAL  PROTECTION  A6ENC
      41
   APPL
      r
   RECO
      L
      1
      I
   STOR
      C
   BACK
      L
      I
C  FIND
      D
      I
      C
      G
 4?   C
      C
 43   L
      G
C  LZ"S
C  P0CK
 45   L
      I
C  FIND
      D
      I
      C
      G
 46   C
                         TO  THE LIN'KS  OF  THF NEW WORK  OF 4
Y VEHICLES
G AC K = 1 , 4
VER LAST  LINK IV THE  ROUTr
Z = L I S T L ( K )
F(L7 .LE.  C)  GO TO  49
G = LISTG(K)
E THE NUMBER
OUNT(4,LZ)  =
 UP ONE  LINK
G =  R G ( L Z , I G )
F (LG.LE .  0)  GO TO  45
 PUT IF  CONNECTION  IS ST , R
042  J  =  1 ,3
F (LCON  (LC,J)   .NF.  L?)  GO
OUNTC J,LG)  = COUNT(J.LH)
0 TO '3
GNTINUE
ALL EXIT
2 - LG
0 TO 41
 THE LAST  LINK   IN  ROUTE  TO
 UP ONE  LINK:
C = R(  LZ)
F( LG .LE.  0) GO TO  4°
 OUT IF  CONNECTION  IS ST,RT,LT
046  J=1.3
F (LCON  (LG,J).NE.  LZ)  fG  TO
          LG)  =   COUNT (J , LG)  +
                                                                POUT? S
                           THAT TERIINATfc ON THIS  LINK BEFORE  TURNING  STfPTfLT
                           COUNT(4,LZ)  * VEHS(K)
                                          tLT

                                          TO 4?
                                           VENS  (K  )
                                          THE GATE
       OUNT (J
       0 TO 47
       GNTINUE
47    LZ =  LG
      GC TO 45
4S    CONTINUE
5°    CONTINUE
      IF(IT ,EQ.  ITM)
      00 70 1=1,NINS
      DO 60 J = 1 ,4
60    QTEMP (J) =  UUE(I .J)
      IF (I TYPC (I )  .GT
      CALL  1NSECU
                                            46
                                            VEHS (K
                             ro TO  •'•' u
                               >})  GO  TO 61
ROU0161U
ROU01620
ROU01630
ROU016AO
ROU01650
ROU01660
ROU01670
ROUOf680
ROU01690
ROU01700
ROU01710
RCU01720
ROU01 730
ROU017AO
ROU01750
ROU01760
RCU01770
ROU01780
ROU017QO
ROU01800
ROU0181U
ROU01&20
ROU01830
ROU013AO
ROU01350
ROU01860
ROU0187Q
ROU01880
ROU01890
ROU0190U
ROU01910
ROU01920
ROU01930
ROU019AU
ROU01950
POU0196&
ROU01970
ROU01980
ROU01990
ROU0200Q
                                                                    SOURCE CODE  PAGE
                                                                                   109

-------
IV A.           1SNAP M 0 0 f L           COMPUTER PROGRAM SOU JVC F  CODF,      ENVIRONMENTAL  PROTECTION  AGE


      CO TO 6Z                                                                ROU0201G
dl    CALL  INSEC                                                              ROU0202G
62    PO t 5 J = 1 ,4                                                             ROU0203C
      QUE(I,J)  =  QTE^P(J)                                                    ROU02060
      L  =  LIN(I,J)                                                            ROU02Q5Q
      IF(L.LF.O)  GO TO 65                                                    ROUOZ060
      IF(VEL(L).LE.O.)GOT06S                                           ROU020^0
      DO 64 K = 1 ,3                                                             ROU020PO
64    TT(L.K) = D JST(L )/VEL (L )  + DELA(L,K)                                 ROU020                                                                      ROU02150
                                                               SOURCE CODE  PAGE     11O

-------
iw«j x « .          ISMAP MODFL          COMPUTER PROGRAM  SOURCE CODF,      ENVIRONMENTAL PROTECTION A 6E HI


       SlTF.OUTjr;t  MINPTM (LINKS,  NL)                                        MIN00010
 c   THIS ROUTINE coMPurrs THE MINIMUM TIMF PATH     FRO^ M. ORIGIN LINKS   MIN0002G
 C   L  TO P-LL ACCESSAULE LINKS I'.-  A  TRAFFIC NETWORK.  APRAY C STORES  THE    MIN00030
 C   COST OR TRAVEL  TI/E TO EACH  LINK  AND ARRAY R  STORES THE ROUTES  FROM   MINOOQAO
 C   EACH LINK TO L  ON COMPLETION.                                           MIN00050
       COMMON /  COMM/ I,Z,L.J,  K,  TOD,  DOW, TP, TOTATT, TTPZ ,TQTGEN , ITM   MINOPC60
      1,NYEAR.LHEAD(IS)                                                     MIN0007Q
       COMMON /  LINK  /  NLINK, NLANE(ZOO), XK200),  Y 1 ( 2 00) , X 2( 2 00) . Y2 ( 2 OOMINOOOS 0
      1), CAP(ZOO) ,DIST(200) , VEL(d!00), LCON ( 2 00, 3) ,N ST OPS ( 200 )          KIN00090
       INTEGER R                                                             MIN00100
       COMMON TTC200,3) ,NC ,NR,RO,  R(200), CQ»  C(200>                       MIN00110
       DIMENSION LINKSC12)                                                  MJN00120
       NC = NLINK                                                            MIN0013Q
       DO 15 L = 1 .  NC                                                       MIN 00 1*0
  1C    C (L) = 1.0F10                                                       MIN00150
       D017L=1,NC                                                       MIN00160
  17    R (L) = C                                                             MIN00170
       L=1                                                                    MIN0018Q
       DO 19 I -1,NL                                                         KIN00190
       IF(LINKS(I).LE.O)GOT019                                         MIN00200
       L -  LINKS(I)                                                          M1N00210
       C CD = -1.0                                                          KIN00 220
  19    CONTINUE                                                              MN00230
       GOT03                                                               KIN00240
  20    IF(L.GE.NLINK)L=n                                              MIN00250
       L =  L +1                                                              MIN00260
       IFCL.EG.  LS)GOTOO                                              MIN0027Q
  25    IF (C(L)  .GE.  0) GO TO 20                                            WINOOZ80
  2     L F = 0                                                                MIN 00 2 9 0
       DO  i* J =1,3                                                          MIN00300
       LC=LCON(L,J)                                                       KIN 00310
       IFCLC.EQ.  OGOTOA                                              MIN00320
       IF  (TT(L,J)  - C(L) .GF_.  A?S(C(LC))) GO TO  A                        MIN00330
       C(LC)=C(L)-TT(L,J)                                              MIN003AO
       R(LC)=L                                                            MIN00350
       LF =  J                                                               MINQ0360
 A     CONTINUE                                                              MIN00370
       C(D = -CCL)                                                         WIN00350
       LS=L                                                                MIN0039C
       IF ( LF .E«.  0)  GO TO .70                                             KINOO^OG


                                                              SOURCE CODE  PAGE     111

-------
APPENDIX A.           1SPAP MODFL          COMPUTER PROGRAM SOURCE CODE,       ENVIRONMENTAL PROTECTION


            L  =  LCON(L,  LF)                                                          M1N0041L
            Gl  TO 7                                                                   M1N00420
       9    CONTINUE                                                                  HINOn^IC'
      C      PRINT 98 , (R (L),C (L) ,L=1 ,N'C)                                             MINOO^AG
            RETURN                                                                    MNOfHSO
      C9P   FORMAT  (*  MFATH*/5(I^,  MO.O)}                                         MIN00460
            F ND                                                                        MINOOA7G
                                                                       SOURCE  CODE  PAGE     11?

-------
APPE r«D J X  A
                     IS MAP  MODEL
 COMPUTER PROGRAM SOURCE CODF
                                     ENVIRONMENTAL  PROTECTION
       rLt ROUTINE PAF-KNC
C  THIS  SUt'-^'ODtL PREDICTS AV
C  PARKING  AREA OR  ZON^.   AT
C  THROUGH  THE PARKING  ZONE.
C  TO  ThE  PARKED VEHICLE  TO Z
C  HEADWAYS  ARE LESS  THAN  THE
C  A PARKING STALL, OR  WHEN V
C  VEHICLES  EXCEEDS CAPACITY.
       COMMON / COMM/  I ,Z.L, J,
       COKKON /PARKZ/  PZ,
     10,  PNOS(50) . PLL(50)
       COMMON /ZONES/  NZONES,
     1ZGENR  (5C), NEXT,  ZAT<2
       COPMON/EXCLUD/NOPARK
C  VZ  ARE  ZONE ATTRACTIONS AN
       INTEGER  Z, PZ
       PEAL  NVL
C  COMPUTE  THE CAPACI
       Z  =  PZ
       PC  =  PLA(PZ)  /  Pr>
C  COMPUTE  MAXIMUM  PARK IMG LO
       PLDR  = AMAX1 (0. 5 ,PC /2O
C  COMPUTE  THE TOTAL  D^IVEAbL
(   STALLS  ASSUMED  3  MTTFRS I
c      PLL=  PC *3.o/ 1.4u
       PL  =  PLL(PZ)
C  COMPUTE  THE PARKED  VEHICLE
       PVZ  =AMAX1 (    VZ(  Z) -
C  COMPUTE  PARKING  UTILI7ATIO
       PU  =  PVZ / PC
C   COMPUTE  SPELD BAS
        PLSS  = PLS
       PLS  =  71 .0-11 .? *PU
       PLS  =  A.MAX1 (10.75,PLS)
(  ASSIGN  A  PARGING LOT  SFFLD
       PLS  =  c.3
C  THE  TRAVEL TIME  FOR  APRIVI
C      1 F < P U . L T . .99)  GO  TO 21
C      TTA  =  PU*PL/PLr.
C      GO  TO  25
                                    EF-'AGt  TRAVEL  TI*E TO VEH
                                    AN AVERAGE  ?PEED OF 7.0
                                    TRAVEL  TI,VE  (TT) IN THE
                                    ONL CAPACITY  RATIO.  QUF
                                     TIV-E  REQUIRED TO BACK 0
                                    EH1CLES  MOVING IN THE  ZO

                                     K, TOU,  DOW,  TP, TOTATT
                                     PV(50),  PLA(50) , V7 (50)

                                    NZL1NSC50),  ZL INKS (12, 50
                                    ) , ZGT (2) ,  ZVT(3 ,50) ,  ZN
                    ICLES ENTFRI
                    r'PS VEHICLES
                    ZONE IS  PROP
                    UeiNG OCCURS
                    UT OF AND  TO
                    NE PLUS  PARK

                    , TTPZ,TOTGE
                    , ZV(50),FD,

                    ), ZATTR(^O)
                    AME(50)
                                    D ZV ARE  ZONE GENERATIONS
                            TY  OF  THE PAKKING  ZONE
T DISCHARGE  RATT
0.)
E LENGTH  OF
N WIDTH  AND
       THE  PARKING
       AT 45DEGREE
                                                              ZONF
                                                              ANGLE
                                    S AT
                                     7V(
                                    N
END OF TIME
Z) +PV(PZ)
                  PERIOD
                 ,0.0)
                            ED  ON GCA VALIDATION STUDY OF  CO  VQDEL AUC, 7* P27
                                     "AS ED  ON  TACOMA STUDY

                                    N G V F. H i C L E S
                                              PAR 0001C
                                      NC A    PAR00020
                                       MOVE   PAR 00OIL
                                      ORTIONLPARODO^C
                                       WHEN   PAR0005Q
                                       CLEAR  PAR00060
                                      ED      PAR0007C
                                              PAR00080
                                      N       PAR00090
                                      PLS,PLBPAR00100
                                              PAR00110
                                              PAR00120
                                              PAR00130
                                              PAR 00140
                                              PAR 00150
                                              PAR00160
                                              PAR0017Q
                                              PAROOlfeQ
PAR00200
PAR00210
PAR00220
PAR00230
PAR0024Q
PAR00250
PAR00260
PAR00270
PAR002SC
PAR 00290
PAR0030U
PAR00310
PAR00320
PAR00330
PAR0034G
PAROP350
PAR 00360
PAR 00370
PAR00380
PAR0039U
PAROOAOO
                                                                   SOURCE CODE  PAGE     113

-------
U'PFC  A.          ^'AT  HODFL           COPPUTER  PROGRA1"! SOURCE CODF.      ENVIRONMENTAL PROTECTION  A GE N


     c;"i    TTA  =   (pv7+pv(p7))/.:.n/(-c*Pi/PLs                                PAR on ^.10
     C   D^PARTI/PL?  FXPtRIENCC DIFFERENT  TRAVEL TIVU                              PAR 00420
     C2C    TTA  =  AKAXl(TTA.PL/?.0/r>LS>                                           PAR 00 43.G
     C      TTA  -  AMAX1(TTA,  PLA(P7)  I PI  I  PLS)                                  PAR00440
            TTA  =  AMAX1CTTA,  FLA(PZ)  / PL  /  PLS)                                  PAR00450
            TTA  =  PL/PLS                                                             PAR00460
            TTD  =  TTA + PLBO                                                         PAROOA7U
     C                                                                                PAROOAfO
     C   QUEUEING                                                                     PAR 00490
     (                                                                                PAR00500
     C    NVL I  S  THE NUMBER  OF VEHICLES  DRIVING THRU THE LOT  AT AMY  TU'E      PAR00510
            D Q =  0.0                                                                 PAR 00520
            NVL  =(TTA* V7CZ)  + TTD*  7V*      PAR00620
           1 (PU-.85)70.15                                                           PAR00630
     C   COMPUTE  THE DELAY  CAUSED  ?Y  EXCFEDENCF OF  PARKING  ZONE CAPACITY       PAR0064Q
            AKQ  =  o.o                                                                PAR on 650
            IF (  PVZ + PV(PZ) -f NVL  .Li'.  PC*2.0) GO  TO 3?                        PAR00660
            Ak>f>  ^((PVZ +  PV(PZ))/2.0  + KVL  -  PC)*  TP/(ZV(Z)  +  1.0)              PAR00670
            HO TO  39                                                                 P-AR006tO
      3-    IF (  FVI ,GE.  PC)  GO  TO  3~                                            PAR0069G
            I F (  PV(PZ) .LT.  PC )  G0  TO 39                                         PAROP700
     C   EXISTING  OUEUE IS  DISSIPATING                                             PAR00710
            AUO  -  (PV(P7)  -  PC +NVL )**?/( 2.V (Z)-VZ (Z ))* .5*TP/7V(Z)               PAR007rO
            CO TO  39                                                                 PAR 00730
     C   ARRIVALS  ARE BUILDING A  QUEUE                                             PAR00740
      37    AfcP  =  ( PVZ-PC+N VD* *2  I  (VZ ( Z )-Z V ( 7 ) ) * . 5 *TP / ( ZV ( Z ) + 1.)            PAR00750
      3°    CONTINUE                                                                 PAR00760
     C      AID  A  VEHICLE  IDLEING  TI f-1 L IF  NO  QUEUE  EXISTS                        PAR0077Q
     C      THIS  INCLUDES  COSTJ TO Ef.'TER  THF.  ZONE  PASED  ON  T/>COMA STUDY        PAR007PO
            AKG  =  AMAX1(AWQ,0.67*TTA)                                               PAR00790
            PLS  =  PLSS                                                               PAROOSOO

                                                                      SOURCE CODE  PAGE     114

-------
APPENDIX A.          IS^AP  MODFL          COMPUTER PROGRAM  SOURCE  CODE,     ENVIRONMENTAL  PROTECTION A6EN


     C   TOTAL THE  RUNNING  TIME IN  PARKING ZOIMC                                   PARQOfclO
            TTFZ=CTTA + DB  +  AVvi) *  V2(Z)  +  (TTD + AWO )  * ZV(Z)                PAROOfcZO
     C      IF(P2  .EO. ttFXT+1)  PRINT  97                                           PAR008?U
      o?   FORMAT  (1H-15X,  AHZ ON 6.. b X , 1 OH TOT AL  TlMF 3X  ?HTT ARPV,3X  7HTT DE P T,P AR 008* 0
           12XEHBACKNG G,3X  7HQ DELAY,3X 7HD£PARTS,3X 7 HARRV ALS»4X6HLENGTH)    PAR00850
     C      IFCNOPARK.EQ.1)  PRINT 971                                              PAR00860
        971  FORMAT(//t1X,'THE FOLLOWING INFORMATION CONCERNING  PARKING ZONES   PAR00870
           &OOES  NOT APPLY  SINCE PARKING LOT  EMISSIONS  ARE NOT  CONSIDERED',/)  PAR00880
     C      PRINT 98, ZNAWEC7). TTPZ,  TTA, TTD,  DO, AWO ,  ZV(Z),VZ(Z),  PL       PAR00890
         9H  FORMATdH ,' PARKING ', 7X , I 5 , 16X , 6E 1 O.7 )                             PAR00900
            RETURN                                                                   PAR00910
            END           "                                                          PAR00920
                                                                     SOURCE CODE  PAGE     115

-------
AF'Ff- Np I X  A
                            MODEL
                                COMPUTER PROGRAM SOURCE  CODE
                                                  ENVIRONMENTAL PROTECTION AGENl
       U'O
       zno
       3CO
            SUBROUTINE  COORXY
            PUPPOS'7  IS  TO ORGANIZE THE X,Y  COORDINATES  OF EACH  LINK  SO THAT
            X1, Y1  ARE  UPSTRrA",  AND  XI,  Yd  ARE THE D'OUN ST fcE A P C 00 RD I N A.T E S .
            ALSO  CONVERT COORDINATES FRO."1  FCET TO '1F T E R S IN THIS  WRITING
            OF THE  SUbROUTINE.
            C OI^ON  /LINK/ NLINK,  NLANL(ZOC),  X1(200).  Y 1 ( 200 ) ,X 2 ( 200 ) , Y2 (2 00>
              , LC/JP(20O, DlST(200), VEL(ZOO), LCON(2PQ,3)
            DATA  FOTKET / O.TQA5  /
DO 900  L  = 1 TNLINK
   DO  100 J = 1 , ^
   IF(LCON(L,J)  . E 0
   LC  = L C 0 N(L,J)
   GO  TO  ZOO
   CONTINUE
GOTO   ) * *
X: (LC) )**
X1 (LO ) **
X? (LC) ) +*
                                           •>•  ( Y 1 ( L )
                                           +  C YHL)
                                           +  ( Y2(L>
                                           *  ( Y2(L)
Y 1 (L C ) ) * * 2
Y2(LC))**?
Y1(LC))**2
Y2(LC))**?
      SCO
LCI = n
I FCDI ST1 -
C ONT I NUE
I FCDI STZ -
CONTINUE
I FCDI ST 2 -
C ON' T I NUE
LC1 = 1
GO TO 700
f ONTI NUE
I FCDI ST? -
C ON T I NUE
I FCUI ST1 -
CONTINUE
IKDIST1 -
C ON T I NUE

DIST2)4nof25G,25(J

D 1ST 3) 2-- 0,300. iOO

D I ST 4 )Z° 0,300,300




DlST4HcO,8rU,75u

DIST5)4f- 0,450, 500

DIST4)7'1(J, 700,500

                                                                        C0000010
                                                                        C0000020
                                                                        C000003'0
                                                                        COOOOOAO
                                                                        C0000050
                                                                        COO 00060
                                                                        C0000070
                                                                        COOOOOPO
C000010G
C00001 10
C0000120
COO 001 30
C00001AO
C0000150
C0000160
COO 001 70
C0000180
C000019G
C0000200
C 0000210
C0000220
C 0000230
C0000240
C000025G
CC000260
C000027Q
CC000280
C000029Q
C0000300
C0000310
C0000320
COOC0330
CC00034Q
C0000350
C000036Q
C0000370
C00003EO
C000039Q
C0000400

-------
   A.          ISMAP  MOOFL          COMPUTER  PROGRAM SOURCE  CODE.     ENVIRONMENTAL PROTECTION


     IKDIST3 - riST4>£5J,850.7?U                                         COOOOAlO
7PQ  CONTINUE                                                              CCOOOA20
     XTEMP  = X1(L)                                                         C00OC43L
     XKL)  = X2(L)                                                         COO 00440
     X^(L)  = XTEPP                                                         C0000450
     Y1EMP  = YKL)                                                         C0000460
     YKL)  = Y2(L)                                                         COOOOA70
     Y2
-------
APPENDIX A.           ISiVAP  MODrt           COMPUTER PROGRA^ SOURCE  CODE,      ENVIRONMENTAL  PROTECTION  A 6E Nl
             SIPKPUTINC r:HI T                                                           EM 000 10
      C                                                                                  EM 00 020
      C  C> ETE Rf.lNF  EMISSIONS  OF  HC,CO,  C02, NOX                                     EMOC03C
      C                                                                                  EM0004G
             REAL  MI SS                                                                 EM 0005U
             DIMENSION DQ(200)                                                        EMOQ06C
             DIMENSION TIf"IE(O,  E I" I S S (200 t <, )                                        EMOP070
             DIMENSION PRT(50)                                                        EM0006U
              COMMON  / CO^vi  / 1 , Z , L. J «K» TO [) . DOW . TP » TOTAT T t TTPZ .TOTGEN t ITM       EMI0009Q
            1,NYEAR,LHEAO(1?, ),TUNFAC                                                 E HI 00 100
             COMMON  /  LINK/  NLINK,  N' L /> N F. ( ? uO ) ,  Xl(200),  Y1(200). X 2 ( 2 0 0) , Yt ( 2 POEM I 00 1 1 0
            1 ) ,LC AP(2PO) , D1ST (200) ,  VCL(200),  LC-ON(?00,?) ,NSTOPS(200)          E M 00 1 ? 0
                   N  /ZONES/  NZONES,  N 7 L I N S ( 5 C) ) ,  ZLIN K S (1 2 . 50 ) ,  7ATTR(5Q),       EMI00130
                    (50), NEXT,  ZAT.  7 G T ( 2 ) .  7VT(7.50), ZNAf'E(SO)              EMIOOUD
             COMMON  /  VOLUME/ CO UN T (4 , 2.00 )                                           EMI00150
             COMMON  /PARKZ/  PZ,        PV(50),  PLA(50),  VZ(CU),  Z V ( 5 0) , P D . P L S , P L ?E Ml 00 1 6 U
            10,PNOS(50),PLL(^U)                                                    EK I 00 170
             COMMON  TT<200,5),  D£LA(2CO,3)»   GZ(50),  QUITlJE(200)                   Ef^lOOIBO
            1       ,0(200.4) ,DL1NK( 200 . <• > »C COUNT (200) .MIS SC2PO,M ,CMISS (200,4)  E HI 00 190
              INTCGFRZ                                                                EWI0020G
             COMV'ON./ELINK/IKEC,FPAKAf1(1Q),IFLAG(I>                                 E K I 00 2 1 0
             nir'ENSION'ECPU(20).ECRUZ(<:;0)                                            EF100220
             D ATA  IP, I 1/0,1 /                                                           EMI 00 230
             DATA  R75/75.D/                                                            EKIOn2*0
             DATA  R?/5.0/                                                              EM 00 250
             DATA  R0f R1/0.0, 1 . 0 /                                                      EMI00260
             DATA  I77/77/                                                              EMlOp27(j
             E QUI VALENCE (QUEUE , DO ), (PKT ,0 / )                                        Ef-1jOo2?0
      C                                                                                   EMI0030U
      C       SIT UP  MATRIX  OF EMISSION  CORKPJCTION Fft(TOPS BY  TFFFD                £1*1100310
      C       FOR THf  SCENARIO S^cC IF IF D  IN EL IN"                                     EM 00 320
      C                                                                                   EC I 00 330
             IYEAR=IFIX(NYEAR/10000.)                                                 EM 00340
             WRITE  (6 , V5S ) IREG, I YEA^ , (LPAI-' AM (IJ1 ) , I J 1 =1 , 10)                        EM 003 50
        955  FORMATC1EM1 SSIONS  SUU'i 0 D LL ' / /'  ------------------ '//                EMI00360
           &/'PE(iJON=',I3.                                                            EM 00 370
           &/'VEAR=',l3t                                                               EF.I003fO
                               CCOLD=',4F10.3,                                         EM0039(j
                               3/)                                                       E«I00400


                                                                        SOURCE CODE  PAGE      118

-------
c
c
c
c
C
C
c
c
c
c
c
c
c
c
c
c
c
c
  CALL  SUPS TO  CALCULATE DASZ  YEAR LDV EMISSIONS
       (PFPLACtD <
  TO  COMPUTE EMISSION  CORRECTION  FACTORS AT  SPEED  IS

  CALL  SUPE(I1,IRE':,IYEA«tR5,EPARAffl(1),EPARAr(2),EPARAM(?),
 REF-ARAM(A)tEPARAPi(5),EFARAM(6)fEPARAM(7),EPARAM(8),EPARAM(9),
 REFARAM(1C),IFLAG(D,IFLAr(?),lFLAG(3),ECRU7. (1),EIDL)
  DO  6  15=2,20,1
  S=FLOAT(IS)*3.0+2.0
  CALL  SUP8(lO,IREGtIYPARtS,EPARAM(1),EPARAI*; (2) ,EPARAM(3),
 KFPARAfl(A),EPARAMC5) , E P A K A fi ( 6 ) ,EPARA^(7) ,EPARAM(£) ,EPARAM(9) .
 SEFARAK(10).IFLAG(1),IFLAC-(2),1FLAG(3),CCRUZ(IS),E10L)
6 ECRUZ (IS)=ECRUZ(IS)/ECRU(IS)
  FCPUZ(1)=ECRUZ(1)/FCPU(1)
  CALL  INITMM
  ITEST=0

  CHECK  IF SUPPLEMFNTAL  EMISSION  PARAMETERS  ARE  CALLED FOR
  IF  SO,  CORRECT  IDLE  EMISSIONS AND  PRINT MESSAGE

  DO  7  1=1,3
7 I TEST = I FLAGCD + ITfcST
  IF  (ITEST.NE.O)  FIDL=EIDL77*ECRUZ(1)
  IF  (ITEST.NE.O)  WRITE  (6,fc)
P FOFMATC CAUTION:  Irt,TRUCK,OR ALH  CORRFCTION  CALLED FOR'/
 8  '  IDLE  EMISSIONS  CALCULATED  bY  ALTERNATE  PETHOD')
E*I 0041 0
Ef^IOOA20
EKI00430
EWI00460
EKIOP470
FMIOOARO
EKI-00490
EMI00500
EMI00510
E^;I00520
EKI00530
EM 00 540
Ef^l00550
EKI00560
EMI 00 580
EMI00590
EMI00600
EMI 00610
ENI0062Q
EM100630
EMI 00 640
EMI00650
EMI00660
EKI00670
EHI00690
EWI00700
EMI 00710
EPI00720
EMI00730
EKI00740
EMI00750
EKI00760
EMI 00770
EMI00780
EKI 00790
Ef*IOC800
                                                              SOURCE  CODE PAGE
                                                                                119

-------
APPENDIX /> .           ISK'AP  MODEL           COMPUTER  fROGRA!"  SOURCE  CODE,      ENVIRONMENTAL  PROTECTION A GE NC


             r 1DL ^ I I DL/<•(.' .                                                            EM0081U
      C                                                                                 EKlOf-820
             UKI T f (<< . V87 ) EC RUZ                                                      Eh'I 00 £30
        '•'£7  F UFXATC1HO, 'CI«IS?ION C 0 R r L C T I ON ' / U (1 X , 5 F 1 0 . 6 / ) )                      EP-H00840
      (                                                                                 EM00850
      C   ACCRATE-3.A1KI/HP/SLC   OF?FT/SCC/SEC                                EM 00860
             ACC = T.A1                                                                  EMI 00£70
             ACCR=5.0                                                                  EKI00680
             PKINT  110                                                                 EMQOB'O
       110   F OFMAT(10H-EMISSIONS/17.1H  LINK  NSTOPS   QLENfaTH       COUNT       SPEEfIC0900
            1ED   E  AT  SPEED   DISTANCE     E  DECEL    DISTANCE       E  IDLF    01S T A«Efv 1 00 91 C
            2CL      E  ACCFL    DISTANCE   )                                            EMI0092'G
             00  100  KP=1,NLINK                                                        EMI0093C
             CCOUM7(KP) = COUMT( 1 ,KP)  +  COUNT(2,KD)+  COUNT(3,KP)                   EKI009«Q
             TF(CCOUNT(KP).LE.O.O)cCOUNT(KP)=COUNT(i,Kp)                          E W100950
             CAPL=12GO.O*NLANF(KP)                                                 E^l00960
             IF(VEL(KP)  .GT.7P) CAPL  =  CAPL  *  1.5                                  E!*I00970
             V  = VEL (KP)*(1 .0-0. 5*-CfOUNT(K P)/CAPL)                                 ECIQ098Q
             ?=V*3600.0/52£CJ .0                                                        EM00990
             TT1 = D IST(KP)/V                                                           EM01000
             I F(NSTOPS(KF) ,LE .00) GO  TO 19        .                                  EMIQ1010
             TTr=(TT(KP,1)*CCOUNTCKP)-
-------
     A.           isr'Ar MODTL          COMPUTER  PROGRAM SOURCE  CODF,     ENVIRONMENTAL PROTECTION AGENC


      TTT= TT1-TT(KP,1)                                                     EMI0121G
      IF(TTZ.LE.O.O) G3 T0 2C                                               EKI01220
      DIM = TT3/2.*V/2.                                                      EKI01230
      DJ£DC=DJST(KP)-2.*P1S1                                                EMI 01240
      IFCDISDC  .GE.  0.0) GO  TO  A                                            EMI01250
      DIS1 = AMAX1  (DIS1+DISDC/2,  0.0)                                     EMI01260
      DISDC = 0.0                                                            EMJ01270
 A    OISZ = DIS1                                                            EMI01280
      DC(KP)=0.0                                                             EMI01290
      TIWE (1) = DJSDC/V                                                       EM01300
      TIME(3)=0.0                                                            EM101310
      TIME(2) = (TT(KP,1) + TT7-TI!U1E(1))/?.                                    EMI 01 320
      TIIHEU)=TIME(2)                                                       E^-l01330
      60 TO ?2                                                               EMI0134C
    2* CONTINUE                                                               EMI01350
      D1SDC=DIST(KP)-DO(KP)                                                 EMI01360
      OI?DC=AMAX1(0.0,DISDC) -                                              EHI01370
      DI£1-DQ(KP)/2.                                                        EMI01380
      DISZ=DIS1                                                              EMI01390
      DQ(KP)=0.0                                                             EMIQ1400
      TIMEf1)=DISDC/V                                                       EMI0141Q
      TIME(2)=CTT(KP,1)-TI^t(1))/^.                                        EM101420
      T1KE(3)=0.0                                                            EMI01430
      TirE (O = TIME~ (2)                                                       EMI0144Q
      CO TO 22                                                               EHI01450
    24 CONTINUE                                                               EMI01460
      D1S1=0.0                                                               EKI01470
      D1S2-DIS1                                                              EMI0148-0
      DISDC =DIST(KP)                                                        EM 01 490
      TIKE(1)=DISDC/V                                                       EWI01500
      T1M£(2)=0.0                                                            EMI01510
      TIME(3)=TIME(2)                                                       EKIQ1520
      TIME(4)=T1ME(2)                                                       EMI01530
  ?2  CONTINUE                                                               EMI01540
C                                                                             E.KI01550
C    COMPUTE EMISSIONS FOR THOSli  NOT DELAYED                               EMIQ1560
C    PLUS  CONSTANT  CRUIST FOR THOSE DELAYED.                               EMl01570
C                                                                             EKI01580
      IS=IF1X((S-0.5)/7.H)   -                                               EMI01590
      IF(IS.LT.I)  IS=1                                                      EKI01600


                                                               SOURCE CODE  PA6E     121

-------
APPENDIX A.           IS^AP MODFL           COMPUTER PROGRAM SOURCE CODEf      ENVIRONMENTAL  PROTECTION AGEMl


             1 F (I S ,GT .?C) IS = 20                                                      EM 01 610
             ISr-IFIX((5/:.0-n.r)/3.0)                                               EIMQ1620
             If(ISS.LT.1)lSS=1                                                      EM 01 630
             TV=((COUNT(K.P)-NSTOPS(KP))*TT1/D1ST(KP>                               EM Q164U
             TV1=NSTOPS(KP )*TIMF ( 1 )                                                  E^I01650
             CALL  CPU7(S,ATOT)                                                        EM01660
             ATOT=ATOT*ECRUZ(IS)                                                      EM01670
             MISS(KP,1)=ATOT*TV*DISDC                                                EMI 01680
             PISS(KP,2)=ATOT*TV*DIS1                                                 EMI Q1 69Q
             r"ISS(KPt3)=ATOT*TV*DO(KP)                                               EMI 01 700
             MISS(KP,O=ATOT*TV*DIS:                                                 EMI 01 710
             CM1SS(KP,1)=ATOT*TV1                                                    EMI 01720
      C                                                                                 E 1*101730
      C    COMPUTE CI^ISSJONS  DUPING  STOPPED  TIMf  FOP  DELAYED  CARS                EMI0174Q
      C                                                                                 E^I01750
             TV = NSTOPS(KF)*TlflE(3)                                                   EMI 01 760
             CMISS (KP,3)=TV*EIOL                                                      EKI01770
      C                                                                                 EMI 01780
      C   COMPUTE  EMISSIONS DURING DtCtLERATjOM AND  ACCELERATION                 El*. 101790
      C                                                                                 EK101800
             TV = NSTOPS(KP)*TI'''E( 2)                               -                    E^I0181C
             CALL  ACDC (S ,ACC , ACTtrP)                                                 EP!l01£20
             CALL  ACDC (S,ACC* (-1 .O.DCTFMP)                                         EM01830
             CMSS(KP,A)=ACTE!g!P*TV*FCr-U7(ISS)                                       EM 01 640
             CMI£S(KP,2)=DCTE^P*TV*ECPb7(ISS)                                       EMI01850
      C                                                                                 EMI 01860
      C    DETERMINE  AND STORF  DISTANCE FOR  EACH  S U? - LIN K, FE E T )                  Er.IOlS7Q
      C                                                                                 EMI 01880
             DLINK(KP,A) = D1S2 *  0.304?                                            EMI0189Q
             DLINK(KP,3)=D(J(KP) + 0.30^-C                                               EMI 01 900
             DLINK (KP.2) = DI 51*0.30 4 c                                               EM 01 910
             DIIM<(KP,1) = DISOC*0.'uAfc                                             EM01920
      C                                                                                 EKI01930
      C    COP-'PUTF EMISSION RATE  FOP  FACH  PORTION OF  THE  LINK IN GPAKS/M/SEC   EM019AO
      C                                                                                 EM. 01 950
             D 0  h0 J=1 ,A                                                              EMI01960
             FMISS (K P,J)=0.0                                                          EM 01 970
             IF(DLINK(KP,J).NF.n.P)                                                  E M 019 P C
           1FMSS(KP,J)=(MIS^(KP.J)+CMSSll<:PtJ))/CDLINK(KPfJ)*TP)               EMIQ1990
         L'O  CONTINUE                                                                  EMI0200G

                                                                       SOURCE CODE PAGE

-------
       Pt'INT  111, KP.NSTOPS 
-------
APPENDIX  A.           1SMAP MOD^L          COMPUTER PROGRAM SOURCE  CODF,      ENVIRONMENTAL PROTECTION AGEM
         24
JLFROUTINE DISPEP
THIS KOUTINF CONTROLS THf DISPERSION COMPUTATIONS
CO**ON/DISP/XO(ZCO>,YO(0),NUMREC,THETA(24),WS(24),YCOEFF(24>
1,YFXF(Z4),YCONSL,YCOr.JS7,7COEFF(24),ZFxr(24),7CONST,GRDSIZ,PCKG
2Rl,MIX,ISTAfc<(24).SLAT,ICLD(Z4),NMETfNY.ITIMEfHElGHT(ZOO)
COMMON/LINK/NLINK.NLANC ( TOO) , X1 (200) ,Y1 (ZOO),X2(ZOO),Y2(200),LCAP
12t)D>.CIST(200).VFL(200),LCON(20C,3),NSTOPS<200)
COMMON / COMM/ 1,Z,L,J, K, TOD. DOW, TP , TOTATT, TTPZ ,TO T GE N , I TM
1 , KYE AR,LHEAD<18) , TUNFAC
COMMON /ZONES/ NZONES, NZ LI NS ( 5 0 ) , Z LI N K S ( 1 2 , 50 ) » ZATTR(50).
1ZC-.EMR C50), NEXT, ZAT(2). 7GT(2), 7VT(3t50)t ZNAfQCSO)
C C K K 0 N / M A I N N / H
COMMON/CONCTR/CON'C(200)
CALL WIND
CALL LSLOPE
I F(NMET.EQ.O) GO TO 4
CALL STAPLE
DO 3 1=1 ,NLINK
N=X1(I)*10.+0.5
X H 1 ) =N / 1 U .
N=XZ ( I)*10.*0.5
XZ(I ) =N/10.
N=Y1(I)*10.+0.5
Y1(l ) =N/10.
N=YZ ( 1)*10.*0.5
Y2(I)=N/10.
D 0 c ^=1 , NUV REC
coNC(r-i) =0.0
CALL BASIC
I F( NZONES. EG .0. ) GO TO 14
CALL GENGSC
CALL ZPORDR
MULTIPLY CONCENTRATION UY PPM CONVERSION
F AC TOR , DI VI DE 3Y PI AfJO WIND SPEED. AND ADD RACKf ROUND CONCTRN.
NN = N Y -70
DO £4 M=1fNUMFEC
CCNC (fi) = ((CONC(M)*v7^ -.) / (3. 1415 92 6* *WS( I T I « E ) ))
g+tCKGRD
RETURN
r i D
DIS00010
D IS 00020
D IS 000 30
D1SOC040
D1S00050
(DIS00060
DIS00070
oisoooeo
D1SOOOQ0
DIS00100
DIS00110
DIS00120
D IS 001 30
D IS 001 40
DIS00150
D IS 001 60
D I S 00 1 7 0
D IS 001 80
DIS0019Q
DISOOZOO
DIS00210
01S00220
DIS00230
DISOOZ40
D I SOD 250
DIS0026U
DIS00270
DIS00280
DIS-00290
DISOP300
D IS 00310
DIS00320
D I S 00 3 3 U
DISCO 340
DIS00350
D IS 00 360
DJS00370
D IS 00380
D1S00390
OIS00400
                                                                     SOURCE  CODE PAGE     124

-------
APPENDIX  A
                      ISriAP M O D r L
COMPUTER  PROGPAM SOURCE  CODC
ENVIRONMENTAL PROTECTION AGENCY
            SUBROUTINE  WIND                                                        WINOC010
     C      THIS ROUTINE  CONVERTS  M t TEOR 0 LO GI C/> L WIND  DIRECTION TO  TRIGONO-    WINOOOZO
     (      f''LTPIt DIRECTION, V1T H Z^RO DEGPtES  ON POSITIVE  X-AXIS  AND         WIN00030
     C      PROCEEDING  COUNTERCLOCKWISE.                                          WIN 00040
            COrKON/DISP/XO(2PO).YO(anO),NUHREC.THETA(24),wS<2«),yCOEFF(24)     WIN 00050
           1,YEXP(24)vYCONSL.YCONSZ*7COEFF(24)fZEXP(24),ZCONST.6RDSl7fBCir6     WIN 00 060
           2RD,MIX,ISTAR(2*).SLATfICLD(24),NMET,NY,ITI»lE,HEI6HT(200)            WIN00070
            COKKON/WND/THETAF,*A.AD                                                W1NQOOSO
            THETAP=450.-THETA(ITIME )                                              WIN 00090
            IF(THETAP.GT.360.)  THETAP=THETAP-360.                                W1N00100
            EF-SLON=(THETAP-9n.)*6.28Tl!*53/360.                                    WIN 00 110
            AA-SIN(EPSLON)                                                         WIN00120
            Ar=COS(EPSLON)                                                         WIN0013Q
            RETURN                                                                  WIN00140
            END                                                                     WIN00150
                                                                     SOURCE CODE  PAGE
                                               125

-------
APPENDIX  A.           IS!"AP M 0 D F L           COMPUTER PROGPAM SOURCE  CODF,      ENVIRONMENTAL  PROTECTION A GE


            Sl'RROUTINE  LSLOPF                                                      LSL00010
      (      THIS  ROUTINE COMPUTES  TH^ SLOPE  AND Y-INTERCEPT OF  EACH  L jN «       LStOOOZO
            CO*NON/DISF/XO(200),YO(2riO>,NUMREC.THETA(2i),i*S<2OtYCOEFF<24)     LSL0005C
           1 , YFXP (?4> , YCONSL, YCONSZ ,:COEFF(2A),ZEXPC2A) ,Z CONST, GR05IZ,BCKG     LSLOOCKO
           2Pt,MIX,ISTAt(2A ),SLAT,ICLO(ZA),NMET,NY,ITIf-1E,HEIGHT(200)           LSL00050
            COKNON/LINK/NLINK,NLANE(200),Xl(200),Yl(200)fX2(200),Y2(200),LtAP(LSL00060
           1?CD).OIST(200).VFL(200),tCON(200,3),NSTOPS(200)                     L SLOG 070
            DO 1  1=1 »NLINK                                                         LSLOOQ90
      C      CHECK  TO  SEE IF  SLOPE IS INFINITE.  IF  SO.  SET SLOPE  AND Y-INTER- LSL00100
      C      CfPT  EQUAL  TO ZERO.   THIS WILL  EE A CUE  FOR  VERTICAL  LINKS.        LSL00110
            I F(X1 (I ) .EQ .X2CI ))  GO TO 2                                            LSLOC120
            Ah (I) =( Y1 (I )-YZ (I ) ) / (X1 ( I )-X2 (I ) )                                    LSL00170
            B (1) = Y1 (I)-AM(I )*X1 (I )                                                 LSLOOUO
            GO TO  1                                                                 LSL00150
       2     A^(l)=0.                                                                LSL00160
            P(I)=0.                                                                 LSL00170
       1     CONTINUE                                                                LSL00180
            RETURN                                                                  LSL00190
            END                                                                     LSL0020G
                                                                     SOURCE COCE  PAGE

-------
APPENDIX  A.
                      I S P A P M 0 D e L
                                 COMPUTER PROGRAM  SOURCE CODE,
ENVIRONMENTAL PROTECTION AGENO
     C
     C
      t
      r
 SLPROUTINt STABLE                                                     STB00010
 THIS  ROUTINf DETFRf'INES THF.  STABILITY AND "HENCE  THE DISPFRSION    STE00020
 PARAMETERS FOR EACH  HOUR OF  THF.  DAY                                 STB00030
 DIMENSION SINELV(24 > ,1SC (6,5) ,YC (5) ,Y£(5 >,ZC(5) ,ZEC5>              STB00040
 COP.MON/DISP/XO(200) ,YO(ZOO> ,NUMREC.THETA(24),WS (24)tYCOEFF(24)    STB 00 050
1 ,YEXPC24),YCONSL,YCONSZ , 7 CO E F F( 2 A) , 2 EXP ( 24) ,Z CONS T. GR DS I 2 »B CKG    STB00060
2RD«niXfISTAe(24>,SLAT,ICLD(24),NKETvNY*ITIKE«HElGHT(200)           STB00070
 COMMON  /  COWM/ I,Z.L,J. K,  TOD,  DOWf  TP, TOTATT,  TTPZ,TOT6EN,1TM  STB00080
1,^YEAR.LHEA^(18),  TUNFAC                                             STBOOOPQ
  ,»• *  ».%   ».»^»*-«.*.«  »*.'-**•**••  «»*-*_«fc-**-^w«-*-«fc'*fc'»fc'»*'*»**"<*'*^%*li ^»*'*»
 1,4/                                                                    STB00110
  DATA YC/O.40,0.40.0.36.0.32.U.317.YE/0.91*0.01.C.86.0.78«0.71/«ZC/STBO0120
 ir.fi. r. re.r.r". r. IP. r.i :•'.: i /1. /~. ^. :^. •?. i.T .1.??. r. 55/             f-rcnn^j^.
  C-JLtlL^ri  iVL*^  fLrvAriC'.  A.', 3 L! . I ft 5uLA "I C.N . A V& HCuFS  OF SUAnlSt    STcCG14u
  r f.."  5 i'K c r •»•                                                             r ~y.*r 1 r "
  f 'T
    TO ?0

-------
APPENDIX  A.          1SMAP  MODTL          COMPUTER  PROGRAM,  SOURCE CODE,      ENVIRONMENTAL  PROTECTION A 6E NC


            AINSOL=(1.-O.S*ICLr>(lHP)/1G.)*SINELV(lHR)                            STB 00 410
            IF(AINSOL.Lf:.0.33)GOT021                                            STB 00420
            IF(AINSOL.LF.C.6?)GOT022                                            STB 00 430
            IS=1                                                                     STB00440
            GO  TO  ?0                                                                STB0045Q
         21 IS=3                                                                     STB 00460
            GO  TO  30                                                                STBOOA70
         22 IS=Z                                                                     STBOOA80
            GO  TO  30                          .                                      STB 00490
       23    IF(1CLD(IHR).GE.5)  GO TO  24                                            STB00500
            IS=fc                                                                     STB00510
            KC  TO  70                                                                STE00520
         24 i£ = b                                                                     STP00530
            GO  TO  70                                                                STB00540
       2r    IS=4                                                                     STB00550
      C      DETERMINE WIND  SPETD CLASS                                             STBOD560
       30    IF(WS(IHR).1F.1.)  CO TO  71                                             STB00570
            I F (WS (IHR).LE .6 . )  GO TO  72                                             STBCOSfcG
            I F(WS (IHR).LE.10.)  GO 10  37                                            STBQ0590
            I F(WS (IHR).LE.13.)  GO TO  34                                            STB00600
            IW=5                                                                     STB00610
            GOT040                                                                STB 00620
         31 I U = 1                                                                     STB 00630
            GO  TO  40                                                                STB00640
         32 IV.-c                                                                     STB00650
            GO  TO  40                                                                STB00660
         33 IV=:                                                                     STB00670
            GO  TO  40                                                                STB00680
       3^    Ik=4                                                                     STB00690
      C     DLTERMNE STABILITY                                                    STB00700
       40    I STAB (IHR)MSC(IS ,IW)                                                  STB00710
      (      CO\VERT  WIND  SPEED  IN KNOTS  TOF'ETFRS  PER SECOND                    STB 00 720
       41    WS(IHR) = WS(lHR)*n.'147^.1                                               STBOC730
            IF(WS(IHR).LT.1.)WS(IHF')=1.                                          STB 0074 0
      C      DbTEPMINE DIFFUSION PARAMETERS                                        STB00750
            KK=ISTAB(IHR)                                                           STBOP76Q
            YCOEFF(IHR)=YC(KK)                                                      STB00770
            YEXP( IHR)=YE (KK)                                                        STB007FO
            ICCEFF(IHR)=ZC(KK)                                                      STB00790
            ZEXP(1HR)=7F(KK)                                                        STB 00800


                                                                     SOURCE  CODE  PA6E    128

-------
                  M C D f L
                                   COMPUTER  PROGRAM  SOURCE CODE,
             ENVIRONMENTAL  PROTECTION  AGENC
CCMINUE
P t T U R N
F. r.D
                 S7B00810
                 STB 00820
                 STB 00630
SOURCE CODE
                                                                                      129

-------
Pt NDIX
I S N A P M 0 D F L
                                          COMPUTER PROGRAM  SOURCE CODE
                          ENVIRONMENTAL PROTECTION AGENC1
       SUP ROUTINE  L-AS1C
(      THIS  ROUTINE  WILL DETER
C      LINKS WILL  AFFECT THE C
C      LINKS,  CALL  THE  APPROPR
C      AT  A  RECEPTOR
       C UMMON/DISP/XO(200),YO(
     1,YEXP(24),YCONSL,YCONSZ
     2RD,MIX,ISTAE'(24),SLAT,I
       C OMWON/LINK/NL INK,NLA N£
     1200),DIST(2CO), VFL(UV
C      WRITE((t>,47)  I,II,M,ISTL
   47  F OPMATd X,'I=',I5 ,1 X,'I
       I FCI . EQ .ISTLINCH.II ))GO
30     CONTINUE
       GOTO  80
   55  I STM=ISTAfc(ITIviE)
       DELTA=7.0*SORT(RK(ISTM)
     iWS(ITir,E»
C      WRITE(6,4t)  M,DELTA.PU3
   48  F ORMATd X,'f =', I r ,1 X,'D
       I F (DELTA .GT .PUILDH(P) )G
       W RI T E (C , 5 6 ) ^ , I
56     F ORMA T( / ,1 X ,'SUD^OLITINE
               MINE ,
               ON CEN
               IATF

               200) ,
               ,7COE
               CLD(2
               (200)
               ,LCON
               , YY
               AST(2
               , ISTL
                                          AC CORDING
                                        T RAT ION AT
                                        ROUTINES TO

                                        NUPR EC ,THET
                                        F F(24) ,ZEXP
                                        4),IMET,NY,
                                        ,X1 (200) ,Y1
                                        (200,3) ,NST
TO HIND  DIRE CTION
THE RECEPTOR AND,
 COMPUTE  THE CONC

A(24),US(24),YCOE
(24) ,Z CONST.GR DS I
ITI'1E,HEIGHT(200)
(200),X2(200),Y2(
OFS(200)
                  FFC24)
                  7,BCKG
                                        0U) ,NLKST(?
                                        IN(2CO,2) ,1
00),WSTf200),
RSIDE(200)
                                   . 0 , 0 . 5 /
               TF RE
               S T K ( M
                                        SULTS  FROM
                                        ) , N L K S T ( K )
                                        ' ,1 5, U t'M
SUBROUTINE  PASIC

',15 ,1X, 'ISTR(M)
               I r ' ( "i ,
               I ='. I
               TO 55
                                         1 1 )
                                         5 ,1 X ,'?' =
5,1X,'ISTLIN(M,II)=',I5)
                                   *t.'ST ("I )/
               L D H ( M )
               ELTA = ',E12.7,1X,'CUILDH(P')=*,E12,J
               0T0 60
           BASOC01G
, WHICH    DAS 00 020
 FOP THOSEBAS00030
FNTRATION  BAS00040
           BAS00050
           BAS00060
           BAS00070
           BAS00080
200) ,LCAP(BAS00090
           BAS00100
           BAS0011 0
           BAS00120
           BAS00130
           BASOOUO
           BAS00150
           BASOOUO
           BAS00170
           BAS001SO
           BAS00190
           BAS00200
           DAS00210
           BAS00220
           BAS00230
           B AS 00240
           BAS00250
           BAS00260
           BAS0027Q
           BAS00280
           BAS00290
           PAS00300
           BAS00310
           BAS00320
           BAS00330
           BAS0034C
           BAS003S-0
           EAS003CO
           BAS00370
                   )
                                                  =',15.
                STPEET  CALLfcD FOR  PECEPT0R' , I 5,1X ,'AND
                                                                                  BAS0038Q
                                                                                  BAS00390
                                                                                  BASOCUOO
                                                                  SOURCE CODE  PAGE

-------
APPENDIX  A
                            MODEL
                                      COMPUTER PROGRAM SOURCE CODE.
ENVIRONMENTAL PROTECTION
fO
      1TC
      200
            'LINK ',15)
            CALL STREET
            GOTO 200
            CONTINUE
            EA = X1 (I )-XO(M)
            Et = X2 (I)-XO(M)
            PC = V1 (I)-YO(M)
            &D = Y2 (I)-YO(K)
            XlTR = bA*AB-»-£C*AA
            X 2TR = EP*Ae + F-D*AA
            Y1TR=BC*AB-PA*AA
                                      I E.O. ) GO TO
                                              200
                                      GE . 45.*6 .
                                      )  GO  TO 7
                                      )  GO  TO 7
IFCY1TP.LF.D.O.AMD.Y2TR
I F (Y1TP .LE.0.) GO TO  1
T F UPS(ATAN(APS(Y1TR/X1T»)))
1F(Y2TR.Lt.C.) GO TO  100
IFfADS(ATAN(AE'S(Y2TR/x2TR)>)
IF(X1TR.GT.C'.O.AND.X2TR.LT.O
1FCX1TR.LT.O.O.AMD.X2TR.GT.O
GO TO  200
YONXFQ=Y1TR-((Y1TR-Y2TR)/(X1TR-X2TP))*X1TR
I KYONVEQ.LT.Q. ) GO TO  1^0
CALL  ORIGIN
CALL  COPTRN
I FCALPHA .EQ
CALL  CONCA1
GO TO  200
CALL  CONCA2
CONTINUE
RETURN
END
                                           tE .45.*6.?831R53/36CT.) GO  TO  6
                                                    ?£31?53/36C.) GO  TO  6
                         0.)  GO TO  4UO
   RASOOA10
   B AS OP 420
   eASOOA30
   EASOOA4U
   BAS0045Q
   BAS0046Q
   BAS0047Q
   9AS0048Q
   BAS00490
   BAS00500
   BAS00510
   BAS 00520
   BAS00530
   EAS00540
   BAS00550
   BASOC56Q
   BAS00570
   BAS00580
   BAS00590
   BAS00600
   BAS0061Q
   BAS 00620
   BAS00620
   BAS00640
   BAS0065Q
   BAS00660
   BAS00670
   BAS 00660
   EAS00690
   BAS00700
   BAS00710
                                                                   SOURCE CODE PAGE
                                                                                   131

-------
vDIX  *.          iSr-'AP  MODFL           COPPUTfcP PROGRAM SOURCE CODE.      ENVIRONMENTAL  PROTECTION  AGENI


       SUBROUTINE OR 1C, I M                                                       0 M 000 1 G
 C      THIS  ROUTINE  COMPUTES  THF COORDINATES (XX,YY) OF  POINT TC PC  THE   ORI00020
 C      OUC-IN  IN NEW COORDINATE  SYSTEM  AND THE  ANGLE FROM  THE WIND  VECT0ROPI 0003G
 C      TO  THE  LINK                                                              0 R I 00040
       CGI*HON/DISP/XO(<:>00)fYO(ZnG),NUMREC,THETA(24>.V.S(?4),YCOEFF(2            DPI 00070
       C OPCON/LINK/NLINK ,NLANF (?00) .X1 (200) ,Y1 (200)»X2(2Gn),Y2(20T).LCAP(OPIOOOPO
      1?CD)»DIST(200),VrL(200)fLCON(200,3).NSTOFS(200)                      ORi0009G
       CurWON/MAINM/M                                                           OPI00100
       COPKON/WND/THETAP,AA,A3                                                 0 FIDO 110
       CCI"!"10N/LSLOP/AM<200),8(200>                                            ORI00120
       C OK'ION/BASC / I                                                            ORI00130
       COMMON/ORIGK/ALPHA.A,XX,YY                                             0^1001^0
 C      COMPUTE  THE  POINT OF  INTERSECTION (XX,YY)  OF LINK  (OR ITS EXTEN-   ORI00150
 (      SION)  WITH V'IND  VECTOR                                                  0 P1001 6 0
       I F(X1 (I) .EQ.X2CI )) 60  TO  1                                             ORI00170
       I F(THETAP.EQ.9Q.n.OR.THETAP.EG.270. } 60  TO  2                         ORI001^0
       A=TAN(THFTAF*3.141c9265/1fcO.)                                          ORI0019G
       I F(A . E(J .AK(I> )  GO TO  3                                                  ORlOOZQO
       XX=(XO(M)*A-YO(M)+P(I))/(A-A!vi(I))                                     QPIOC210
       YY = Af(I)*XX*r^(I)                                                         OR I 00 220
 C      COCPUTF  ANGLE FROf^ i^IND  VECTOR  TC LINK,  MEASURED  COUNTERCLOCKWISE  OPI00230
  6     ALPHA=ATAN2((Af'1(n-A),(AP1(T)*A-»-1.))                                   DPI 00 2^0
       C-OT05                                                                   ORI00250
 C      TAKb'  CARE OF  CASFS WHERfc  DL N OMI N AT OR =0                                OR100260
  1     I FdHETAP.EG.93.n.OR.THtTA0.E«.?70.) GO  TO  A                         ORI0027U
 C      IN  THIS  CASE  THE  LINK  IS  PARALLEL TO THE  OLD Y-AXIS BUT  THE  WIND   ORI00280
 C      IS  NOT                                                                    ORI00290
       XX=X1(I)                                                                 ORI00300
       A=TAN(THFTAP*3.1415926^/1tO.)                                          0 RI 00 310
       Y V = ( X X - X 0 (M ) ) * A + Y o (I'D                                                   0 RI 00 3 2 G
       ALFhA=ATAN2(1 .,A)                                                       ORI00330
       GO  TO  f                                                                   ORI00340
 C      IN  THIS  CASE  THE  UTND  IS  FRO?1  EITHER NORTH  OR SOUTH BUT  THE  LINK   ORI00350
 C      ISNOTPARALLELT01T                                                   ORIOP360
 2     xx=xo(H)                                                                 OPI00370
       YY=AM(I)*XO(M)+B(I)                                                     ORI00380
       ALPHA=ATAN2(1.,-Af1(I»                                                  ORI00390
       GOT05                                                                   ORI0040C

                                                                 SOURCE  COOP PAGr     tf^

-------
APPENDIX A.          1SMAP  MODEL          COMFUTtf?  PROGPAM  SOURCE CODE,      ENVIRONMENTAL  PROTECTION  *GENdH


     C      I »,  THIS  CASF THE  WIND  IS  PARALLEL  TO  THE LINK  CUT NOT TO  TH F: OLD   OPIOC41G
     C      Y-AXIS                                                                   ORI00420
      Z     I FUN (I ) ,£G .0.)  GO TO  11                                               ORI00430
            Ari,PRlM=-1./AM(I)                                                        ORI00440
            GC  TO  12                                                                 ORI0045Q
      11   XX = XO(fO                                                                 ORI00460
            YY=Y1(I)                                                                 ORIOOA70
            GC  TO  7                                                                  ORIOD480
      12   PPRIME=YO(M)-AMPRIV:*XO(M)                                              ORI00490
            XX=(PPRIME-t?(I))/(AM40
            IF(ZFTA.LT.C.)Z(rTA = T60.-«-ZrTA                                         ORI0065C
            I f (AP S(ZETA-THETAP) .LT. 1 .)  GO  TO' 50                                   ORI00660
            GO  TO  23                                                                 ORI00670
      50   IFfTHETAP.EQ.90 = n,OR . THETAP.EQ.270.)  GO TO  4                         ORIOD680
            GOTO?                                                                  ORI00690
      2?   RETURN                                                                   ORI00700
            END                                                                      ORI00710
                                                                     SOURCE CODE  PAGE    133

-------
AF Pt ND I *
           IS MAP  MODFL
                COrPUTER PROGRAM SOURCE  CODE
ENVIRONMENTAL PROTECTION  A 6E NC
 S U E R 0
 ThI S
 THE  L
 L INK
 ( OP  I

1 » YEXP
2RD.MI
 C OMMO
1?00) .
 C 0 M M 0
C OMHO
C 0!"WO
C OK MO
COMPU
C OUNT
I F (X1
OMEGA
GO TO
ONEGA
C CMP LI
C 0?1N
S INE =
X1NEW
X 1N E W
Y 1 N' b W
Y 
-------
X A
               ISMAP MODFL
                                     COMPUTER PROGRAM SOURCE  CODE,
ENVIRONMENTAL  PROTECTION A6ENC1

C
C
C
C
C

























99








SUBROUTINE CONCA1
THIS ROUTINE CALCULATES THF NOR
RLSULTING FROM EACH POINT (SEt*1
TO GIVE THE CONCENTRATION FROM
THEN THE COM C EN T PAT I DNS AT A KE
THIS ROUTINE IS USED WHEN THE W
COMMON /LINK/ NLINK, NLANEC200)
1 , LCAPC200), DIST(?00). VEL(2
2,NSTOPS(200)
COFlMON/DISP/XO(2nO),YO(200),NUP
1,YEXP(24),YCONSL,YCONSZ,ZCOEFF(
2RD,MIX,ISTAP(24),SLAT,ICLD(24),
COMMON TT(2COfI)»DfFLA(20rt"),aZ
14 ),C COUNT (200)
COtfMON/MAINN/r
COtfMON/BASC /I
COMMON/OR1GN/ALPHA.A,XX,YY
CO*MON/CRTRN/01EGA,X1NEW,X2NEW,
COWKON/CONA1/A1,A2,A3,CONNOR
COIwffiON/CONCTR/CONC(200)
C OI*tfON/XSGN / A4
C OfMON/SPCIN/DELTAY
CO"iMON/MSC/NP,Y,GAMMA(5)
I F ( X X . E Q . XO ( r) . A N D . Y Y . F U . YO ( f' ) .
CALL MISC
A1=SI N(ALPHA)
A2-COS(ALPHA)
A 5=XONEW/A1
CALL XSIGN
IFd.EQ.151) PRINT rr>9 , 1 , Y CO E F F (
1XP(I TIFE) ,HE IGHT(I)
F ORW A T ( 2 X , I c , 5 ( 5 X , c 1 2 . 3 ) )
DO 100 K = 1 , N P
Y=Y+DELTAY
A r>- A3 -Y * A 2
I F(A5 .GT.O.O.AND.A4 .LT.O. ) GO T
I F(A5 .LT.O.O.AND .A4 .GT. 0. ) GO T
A6=ABS(A5)
SlGY=YCOEFF(ITlMC)*A('**Yrxr(ITI
I F(ZCONST.LT.3. ) ZCONST=3.

f^ALI ZED
ENT) ALO
THE LINK
CEPTOR F
IND IS N
, X1 (20D
00), LCO

REC,THET
24) ,ZEXf
N M E T , N Y ,
(50) ,GUC




Y1NEW ,Y?





AND .ALPH





I T I H t ) , Y





0 100
0 100

r;E) + YroN

CN1C001U
CONCENTRATION AT A R L C EPT OR C N 1 00 0 2 0
NG THE LINK AND ADDS THESE CN1 00030
CN10004Q
ROM ALL LINKS ARE SUMMED CN100050
OT PARALLEL TO THE LINK CM00060
), Y1 (200) ,X2<200) ,Y2(200> CN100070
N(2DO,3) CN100080
CN1 00090
A(24),W$(24),YCOEFF(24) CN100100
(24),ZCONST,GRDSIZ,BCKG CM 001 10
ITI^E,HEIGHT(200) CN100120
UE(200),0(2nO,4),DLINK(200tCN100130
C N 1 00 1 4 0
CN100150
CN100160
CN100170
NFW,XONEW,-YONEW CN100180
CM 001 90
CN100200
CM00210
CN100220
CM 002 30
A .EO .1 .57C796) GO TO 15 CN100240
CN10n250
CM00260
CM0027Q
CN100280
CN100290
EXP(1TIME),ZCOEFF(ITI(1'E),ZECM00300
CN100310
CN100320
CN100330
CM 00 340
CN100350
CN100360
C N 1 00 3 7 C
CN100360
S L C M 00 3 9 0
CM00400
                                                               SOURCE  CODE PAGt
          135

-------
APPENDIX A.           ISMAP MODFL          COMPUTER PROGRAM SOURCE CODE,      ENVIKOMMtNTH PROTECTION  AGENC


            «-]GI = ZCOEFFCITIMF)*A t = HF 1GHTU ) /SIGZ                                                        CM0043'C
            A9 = 0. 5-* (A7*/s7-*-A£*A': )                                                    CNlOG^Au
            I F(A  GO  TO 3                      CN10048G
       10   CONTINUE                                                                  CM 00 A 90
       3     t ONNOR=CONNOR+Q (1 , I 1 )/( S I t,Y*S!GZ *EXP (A° ) )                             CM00500
       100  CONTINUE                                                                  CN100510
            CONC(M)=CONC(M)+CON'NOR*DrLTAY                                          CN100520
       1^   RLTUPN                                                                    CN100530
            FND                                                                        CN'100 540
                                                                       SOURCE CODE  PAGE

-------
hDIX A.           ISKAP  MODTL          COMPUTER PROGRAM SOURCE  CODE,      ENVIRONMENTAL  PROTECTION AGEN


       SUBROUTINE  ?POP OR                                                        ZflO 00010
 C      THIS ROUTINE  KEEPS  TRACK  OF  THE  END  POINTS  OF THF  LINKS THAT       ZcOOOOZO
 C      BORDER A  ZONE — WHICH POI'JTS  ARE  OPEN AVD  WHICH CONNECT.   THIS KUSTZ6000030
 C      Ft  DONE BECAUSE THE  LAST  SIDE OF  A  ZONE"  I" AY  NOT FE  A  LINK.   IF IT  ZeOOOO^O
 C      IS  NOT, THE  OPEN  END POINTS  OF THE  FIRST  AND LAST  LINKS ARE  CON-   ZE000050
 C      NLCTED TO  FORM  THE  LAST  SIDE.                                          ZL000060
 f      THIS ROUTINE  CALLS  TWO OTHER SUbROUTINF.S  fc H 1C H FIND THE GRID       ZB000070
 C      CENTTRS THAT  LIE  IN  FACH  ZONE.                                         ZBQOOOBO
       DIMENSION  XCOOR (?) . YCOOK (Z') ,LOE (12) ,XC( 1 2) , YC (1 2)                    ZE-000090
       CO^ON/DISP/XO(2CO)tYO(2nO),NUMREC,THETA(2A),KS(24),YCOEFF(Z4)     ZfcOOOlOO
      1,YEXP<24),YCONSL,YCONST,ZCOEFF(24).ZEXP(24),7CONST,GRDS1Z,BCKG     ZBO 00110
      2RD,NiIX,ISTAE(24),SLAT,ICLD(2A),NF',ET,NY,ITI^E»HEIGHT(2CO)            Z DO 00 120
       COflMON/LlNK/NLINK.NLANE (POO),XI (200) , Y1 (200).X2(?OC),Y2(?00).LCAP(ZE000130
      12Gn),DIST(200),VEL(200),LCON(Z00.3),NSTOPS(200)                      Zp000140
       C CM M ON/ZONE S/NZONE?fNZLIKS(50)tZLINKS(12»5n),ZATTP(50)fZr1 EN R(50),  ZBOOD150
      lNEX7,ZAT(i:),ZGT(?),ZVT(3,50),ZNAME(50)                                ZE'000 160
       COMMON/PARK!/PZ»PV(10).PLA(50),V7(50)t7V(5n)tPD,PLS»PLPO,PNOS(5G),ZDO00170
      1PLLC50)                                                                   ZI2000180
       C 0^r,ON/LSLOP/A-^ (?OH> ,b( ^00)                                             Zfc-000190
       CO*'MON/GNGSC/XGRID(3CO),YGPID(3CO)»NGRIDX,NIGR1DY                     ZB000200
       COI*IMON/ZPORR/SLOPE(12),YTNCPT(12),ylPtx2P,YlP,Y2PTt<:,J                ZBOQ0210
       C O^KON/INERS/NPGL (.700). YINT(3, 00 ,^)                                     ZB000220
       C OH M 0 N / C 0 N C 7 R / C 0 N C < 2 0 0)                                                 Z BO 00 2 3 0
       CO^WON/ZONGSC/NGSC7(C. Q)TXZGSC,YZGSC                                    ZF0002AO
       COI«MON/CONA7/CON(2no,5'))                                                Z8000250
       COMMON TT(ZuO,7),DrLA(20r,:'),07. (50),OUFUE(?DO),G)(200,A),DLIHIf(2CO,ZP000260
      U ),CCOUNT(200)                                                           ZE000270
       INTEGFP ZLH.KS,PNO?                                                      ZB0002SO
       DO  10  J=1,N20NES                                                         ZB00029C
       DO  11  M=1,NUMREC                                                         ZR000300
  11   CON(^,J)=0.                                                               ZB000310
       T F ( U 7 ( J ) . E 0 . P . ) G 0  T 0  1 0                                                Z t 0 00 3 2 0
       IF(PNOSU)  .GT. 1)  bO  TO  15                                             ZB000330
       NOSCZCJ)  =0                                                               Zf-000340
       GO  TO  10                                                                  ZL'000350
  15   DO  ZO  r'(^ = 1,KCRIDy                                                        Zf^000360
  20   N'f'SL (Hl*)=0                                                                Ze000370
       NOL=PNOS(J)                                                               ZK0003PO
       DO  16  K=1tNOL                                                            ZL000390
       I =IAPS(ZLINKS(K,J ) )                                                      ZD000400


                                                                  SOURCE  CODE PAGE      137

-------
APPENDIX  A.           1SMAP MODEL           COMPUTER PROGRAM SOURCE  CODE,      ENVIRONMENTAL  PROTECTION AGENC1

c
c
(
1




(
c
c
c


31

3:

32



35


34



36


30
C
C
3

43

I
S
R
(
X
X
Y
Y
G
F
0
C
D
I
I
I
I
I
G
I
L
L
G
L
L
G
I
L
L
G
L
L
G
C
F
R
I
I
I
I
f (K-
TOFE
OUT I
ENTE
COOR
COOP
COOR
COOP
0 TO
IND
THE R
?) 1
EN
NE
RS
(1 )
(2)
(1)
(2)
50
END
EN
A L C U L A T
0 30
F(XC
F(TC
F(XC
F(r c
F(LL
0 TO
F(LL
OE (1
OE (2
0 TO
Ot (1
OF (2
0 TO
F(LL
OE(1
OE(2
0 TO
OE(1
OE(2
0 TO
ONTI
iMD
OUTI
F(xr
F(YC
F(XC
F(YC
LL
OOR
OOR
OOR
OOR
.FQ
30
.EG
) = 2
)-2
40
) = 1
) = 2
40
.EQ
) = 2
) = 1
40
) = 1
) = 1
40
NUE
OPE
NF
(K-
(K-
(K-
(K-
,2,
D P
THA
WIT
= X1
= X2
= Y1
= Y2

OF
D I
ION
= 1 ?
(LL
(LL
(LL
(LL
.2)

.2)






.2)







N E
FOR
1).
1 ) .
1).
1).
7
0
T
H
(
(
(
(


S
c
2
)
)
)
)

I


I
I
I
I

S



•
•
•
•

NT
FI
FI
)
)
)
)

EC
OP
FO

NE
EQ
NE
EQ
GO



GO














U

M
r_
N
E






G







D
E
E
0
E
G






0







0
AC
.X
.Y
.X
.Y

S OF
NPS
RST





OND
EN c
R SF

,X1 (
. Y1(
.X2(
.Y2(
TO 1

TO 3






TO 3







F AL
H OF
1 (I)
1(1)
2(1)
2(1)


I
L





E»
N
C

I
I
I
I
0

5






6







L

)
)
)
)

FIFST LINK CN F-OPOFP OF 7 ON E , THEN C f LL
K'T~ R5 ECTI ONG OF TH^ VERTICAL LINES OF GRID
INK .





ORDEP LINK THAT CONNECTS TO FIRST LINK. THE
D. THFN CALL INTERSECTION ROUTINE TO PAKE
OND L^ K .

)) GO TO 31
)) GC TO 32
)) GO TO 33
)) GO TO 34
1
















OTH^R BORDER LIN'KS AND CALL INTERSECTION
THESF LINKS
GO TO 43
60 TO £4
GO TO 101
GO TO 46
zr-00041 o
ZP00042L
Z&000430
ZB000440
Z600045Q
ZE000460
ZBOOOA7Q
ZE-OOOA80
ZB000490
ZC000500
ZB000510
ZE-000520
ZB000530
ZE00054Q
ZE000550
ZB000560
ZB000570
ZB0005SO
ZP000590
Zp000600
ZE 0006 10
ZB000620
ZE-000630
Z&0006AO
ZB000650
ZB000660
ZE.-000670
ZE000680
ZE000690
ZE000700
Z6000710
ZB000720
ZE-000730
Z BO 00 740
ZP000750
Z0000760
ZE000770
ZE0007SO
ZB000790
ZEOOO&OU
                                                                     SOURCE CODE  PAGE    13H

-------
APPENDIX  fl .
                      ISMAP MODEL
                                           COMPUTER  PROGRAM SOURCE CODF
                                                                    ENVIRONMENTAL PROTECTION
      46
     c
     c
     c
      40
      41
      5C
      49
                        41
f 0 TO  101
LOE (K ) = 2
C- 0 TO  40
LOECK)=1
STORE  COORDINATES  OF
OF EACH  LINK SO  THAT
V* ITH  THE  FIRST LINK ,
I F(LOECK) .FQ.2)  GO TO
XC()C)=X1 (I)
YC(K)=Y1 (I)
GO TO  50
XC(K)=X2(I)
YC(K)=12 (I)
STORE  SLOPES, Y-INTERCEP
LINK  IN  NEW LOCATIONS SO
OF A  BORDER SEGMENT  THAT
IN THE  SAME ARRAY.
SLOPE(K)=AM(I)
YINCPT(K)=B(I)
X 1P=X 1(1)
                       0DtN (OPEN  WITH RESPECT  TO PREVIOUS  LINK)
                       THt END  OF  THE LAST  LINK,THAT  SHOULD CONNECT
                       CAN BF  FOUND.
                ZE000810
                ZBOOC620
                ZKOOO&3G
                ZB000840
             ENDZB000850
                                      'S, AKD  COORDINATES OF  THE
                                       THAT THE  SLOPF, INTERCEPT
                                       I? NOT  A  LINK  (IF IT EXISTS)  MAY BE  PUT
                ZBOOOS60
                ZEOOOE70
                ZEO00880
                ZEO00890
                ZEOOP900
                ZE000910
                ZB000920
                ZB000930
ENDS OF  EACH    ZF.000940
AND COOPDINATESZB000950
            Y1P = Y1 (I )
                         OF INTERSECTION OF VERTICAL  LINES OF  GRID CENTERS
FIND  PDI1TS
WITH  LI f« K
CALL  INTERS
CONTINUE
CHECK  WHETHER FIPST  AND LAST  LORDER LINKS
COMPUTE  SLOf-E AND  Y-INTERCEPT  OF SF&t'ENT
OF FIRST  AND LAST  [OPDFk LINKS AND STORE
LL1 = LOF (1 )
I F(XCOOR (LE1) .ME .XC (NOL) ) GO  TO  49
I FCYCOOR (LE1 ) .EQ . YC (NOL ) > 00  TO  10H
AAA=XCOOR(LM)-XC(NOL)
IF(AAA.EO.O.) GO  TO  r; 2
SLOPF(NOL+1)=(YCOOP(LE1)-YC(MOL))/AAA
Y1NCPT(NOL+1)=YC (NO |.)-SLOPE (NOL"»1)*XC(NOL)
GO TO  c-1
SLOPE(NOL+1)=0.
Y1NCPT(NOL + 1)=0 .
                                              CONNE CT .   IF  NOT,
                                             THAT CONNECTS  OPEN
                                             IN  ARRAYS
                                                                             ENDS
                ZfcO00960
                ZP00097U
                ZEO0098 0
                Z&000990
                zeooiooo
                Zb001010
                ZB001020
                ZE001030
                ZE001040
                ZP001050
                ZF:00106U
                ZB001070
                ZE00108C
                ZB001090
                ZB001100
                ZB001110
                ZP001120
                ZBO01130
                ZE.001 140
                ZU001150
                ZP001160
                ZB001170
                ZP001180
                ZE001190
                ZF001200
                                                                    SOURCE CODE  PAGE
                                                                              139

-------
APPENDIX  A.          ISNAp  MODFL          COMPUTER PROGRAM  SOURCE  CODF,      ENVIRONMENTAL PROTECTION AGENCY


      C      COUNT  NUMJfc'R OF  SIDES OF  ZONE INCLUDING NON-LINK SIDE  (IF ONE      Z£00121G
      C      FX1STS).AND STORE  COORDINATES OF  Ef.'D  POINT?  OF THIS LAST  SIDF.     ZF00122G
       51    » = \'CL4 1                                                                  76001220
            X 1F' = XCOOF (Lf 1 )                                                          2E00124G
            XCF=XC(NOL)                                                             2B00125Q
            Y 1F = YCOOR (LE1 )                                                          ZR001260
            Y2F=YC(NOL)                                                             ZB001270
      C      FIKD  INTERSECTION  POINTS  FOR SEGMENT                                  ZE001280
            CALL  INTERS                                                             ZB001290
      C      FIND  WHICH GRID  CENTERS  £RF  LOCATED  IN EACH  ZONE                    ZB001300
       1TO  CALL  ZNGSC                                                              ZP001310
            GOT010                                                                ZtO01320
       1C1  PRINT  102.ZNAPE (J)                                                     Zfc001330
        102 FOP«AT(/////,1nX,'70NE  ',l?t' HAS  ILLEGAL nOUNDAPY'/1OX,'CALCULATIZ&00134Q
           10NS  OF ARLA SOURfE CONCENTRATIONS  FROM THIS  70NE HAVE  NOT BEEN  MADZB001350
           2F')                                                                      ZF00136Q
       10    CONTINUE                                                                Zf001370
            DO  12  *' = 1,NUMR£C                                                        ZE0013EO
            DO  13  J=1,N20NES                                                        ZfcOQ1290
            IF(NGSCZ(J) .EQ.  0) GO  TO 13                                          ZP001AOO
            CONC(M)=CONC(W)*CON(MfJ)*QZ(J)/NGSCZ(j)                              Z BO 01 410
       1:    CONTINUE                                                                ZB001420
       1?    CONTINUE                                                                ZE001430
            RETURN                                                                  ZB001440
            FND                                                                      ZE001450

-------
NDJ X A .
                 J S I"! A F' M 0 D r L
                                       COf-'PUTER PROGRAM  SOURCE CODE
                                               ENVIRONMENTAL PPOTECTION AGENC\
       SUP ROUTINE CONCA?
 C      THIS  ROUTINE CALCUL
 C      RESULTING F P 0 M EACH
 C      TO GI VE  THE CONCFNT
 C      THEN  THE  CONCENTRAT
 C      THIS  ROUTINE IS  USf
  10
  3
  100
      1 , YEXP(24 ) ,YCONSL , YC
      2PD,MI X, ISTAF (24) ,SL
       C OKMON  TT(2CO,3) ,DE
      14 ),CCOUNT (ZOO)
       COM*'ON/MAlNN/n
       COtfMON/DASC /I
       C OWKON/CRTRN/OMECA,
       COKKON/CONA1 /A1 , A2,
       COKKON/CONCTR/CONC <
       C OKMON/XSGN/A4
       COITKiON/SPCIN/DELTAY
       C 0* N 0 N / P! S C / N P , Y , r, A *
       CALL  MISC
       CALL  XSIGN
       DO 100  K = 1 ,NP
       Y=Y + DELTAY
       IF
-------
A^PEI.DIX A.           ISNAP MOD' L           COKPUTF.R  PROGRAM SOURCF  CODF,      ENVIRONMENTAL  PROTECTION AGENCY


            PLTURr<                                                                    CN200*10
                                                                                       CN200A20

-------
APPENDIX A .           ISM/JP NODFL          COMPUTER P R OGR AM S OU RC E CODE,      ENVIRONMENTAL PROTECTION  AGENCY

C
C
C
C



















1?


5t-
20





30

51


5?
S
T
S
W
u
C
1 ,
2R
C
12
C
C
C
C
C
C
C
C
C
C
I
I
A
G
I
I
I
P
W
X
Y
C
C
I
A
G
I
/i
C
A
KB ROUTINE X
HIS
OURC
OULl>
EFE
OI*MO
YEXP
D.MI
OKKO
OD),
GWKO
OMMO
OWMO
OKMO
Or MO
OFKO
Of MO
OKMO
1 = XX
2 = Y Y
F(C1
F(AL
4 = XO
0 TO
F(Y1
F(TH
F(A.
UNT
INDN
PERP
PERP
1=XP
2 = YP
F(Y1
4 = Y 2
0 TO
F (fL
4=Y1
0 TO
4-XO
ROUTINE
E EOUAT
CONTRI
LOCATED
N/DISP/
(24) ,YC
X, I STAB
S1G
FI
I0\
PUT
AT
X0(
ONS
( 24
N/LINK/NLI
DIST(200),
N/MAINN
N/WND/T
N/BASC/
N/OR1GN
N/CRTRN
N/CONA1
N/CONCT
N/XSGN/
-XO(M)
-YO(M)
.EQ.0.0
F H A . E Q .
NFW/A1
10
NE W .LQ .
£ T A P . E G
EO.O.)
= Y1 (I) +
T=YO(M)
= A* (PWJ
=A*XPER
ERP-XO (
EPP-YO(
NFW.NE .
NJ: w
10
PHA .NE .
NT W
10
NEW/A1 -
/M
HET
I
/AL
/OX
/A1
R/C
A 4


.AN
0.)


YON'
.90
GO
X1 (
-A*
NT-
P + W
M )
M)
Y3N


D.)


Y1N
N
NPS
) OF
E TO
TH*
2CO)
L, YC
) ,SL
NK ,N
VEL(

AP,A

PHA,
EGA.
» A 2 »
ONC (



D .C2
GO


EW)
.n.o
TO 1
i ) /A
XD (f^
WIND
INDN


EM)


GO


EW*A

TH
A
T
T
, Y
ON
AT
LA

c
P
HE
PO
0(
SI
,1
NE
200)

A.

A,
X1
A?

AE

XX
Nc_
tC

SIGH OF
0 I N T ON
CONCENT
I N'T
2 P 0 ) , M UM
t 7COE FFC
CLD(24),
(200) ,X1
,LCON (20



«YY
W , X 2 N E W ,
0 N N 0 R
200)



.E
TO


GO
R .
3

)
NT
T


GO


TO


2



Q.
1


T
TH



)/



T


r
.}






0.) GO T
2


0 11
tTAP . E 0.



( A*A+ 1 . )



0 51


c



X
THE X-DISTANCE (USED IN THE POINT X
THE LINK OR ITS EXTENSION THAT X
RATION AT THE RECEPTOR IF A SOURCE X
X
REC,THETA(2^)»WS(24),YCOEFF(24) x
24),ZEXP(24),ZCONST,GRDSIZ,BCK-G X
NMET.NY, ITIME.HE IGHT(200) X
(200) ,Y1 (200).X2(2CO),Y2(200) ,LCAP(X
0,3) ,NSTOPS (200) X
X
X
X
X
Y1NFW ,Y?NEW .XONE W , YONEW X
X
X
X
X
X
09 X
X
X
X
X
270.) GO TO 26 X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
SI
SI
SI
SI
SI
SI
SI
00010
00020
00030
00040
00050
00060
00070
SI00080
SI
SI
SI
SI
SI
£1
SI
SI
SI
SI
SI
SI
SI
SI
SI
SI
SI
SI
SI
SI
SI
SI
SI
SI
SI
SI
SI
SI
SI
SI
SI
SI
00090
00100
00110
00 120
00130
00140
00150
00160
00 1 7 G
00150
00190
00200
0021 G
00220
0023C
00240
00250
0026C
00270
00280
00290
00300
00310
00320
00330
00340
00350
00360
00370
0038 0
00390
00400
                                                                       SOURCE CODE  PAGE     143

-------
APPENDIX  A.           IS" Ap  MoDFl           CONFUTES PROGRAM  SOURCE CODE",      £ N VI F 0 NW E N TAL  PROTECTION AGENC


            CO TO 10                                                              X SI CO410
       ^ (    C 1 = j .                                                                 X S 1 00 A 2 0
            Cc=Yl(I)-YO(M)                                                        X SI 00430
            r- o T o ? 1                                                              x s 100 4 4 0
       17    C 1=X1 (I)-XO(M)                                                        XSI00450
            c; = c.                                                                 XSI0046G
            GC TO 11                                                              X SI 00470
       11    I FUHETAP.EG .90.f~i.OR.THt TAP.E&. 270. > GO TO  27                       XSI00480
            IF(A.EO.O.)GOTOc6                                                  XSIODA9G
            PU'INT=Y2 (I) + X2( I)/A                                                  XSI00500
            60 TO 29                                                              XSI00510
       27C1=Q.                                                                 XSI00520
            CL=Y2(I)-YO(M)                                                        XS10053C
            GO TO T0                                                              XSI005AO
       IF    C1=X2 (I )-XO(wI)                                                        XSI00550
            (Zi = D.                                                                 XSIOC560
            RO TO 70                                                              XSI00570
       9     I F(ALPHA .NE .0.)  GO  TO :-6                                             X SI 00 58 C
            C 1=X1 (I)-XO(M)                                                        XS100590
            C t = Yl (I ) -Y0(«)                                                        XSI00600
            AA=Y1NEW                                                              XSI00610
      C      GO AHEAD  WITH  SIGN  CHECK                                             XSI00620
       10    I f (THETAP.EU .90. )  GO  TO ?.Q                                           XSI00630
            I FCTHETAP.E&.270 .)  GO TO 24                                          XSIQ06AO
            I F(A .GE .O.O.AND.A.LT.1.QF30)  GO  TO 101                              XSI00650
            I FCTHETAP.GT.90.O.AND.THFTAP.LE .135. ) GO TO  22                     XSI00660
            KK=1                                                                  XSI00670
            LL=-1                                                                 XSI006EO
            GO TO 42                                                              XSI00690
         22  Kr. = -1                                                                 XSI00700
            LL=1                                                                  XSI00710
            GCTO«i2                                                              XSI00720
       101   IFUHETAF.GT.O.O.AND.THETAP.Lfc.C5.)  GO TO 20                        XSI00730
         24  Kk=-1                                                                 XSI00740
            LL--1                                                                 XSI00750
            GCT042                                                              XSI00760
        ?0  Kk=1                                                                   XSI00770
            LL = 1                                                                   XSI00760
     C      IF POINT  IS  DOWNWIND  OF FECEPTOR,  CHANGE SIGN  OF  A4 SO THAT  A4  S   XSI00790
     c      OF THE  SAME  SIGN  WILL CONTRIBUTE  TO  COMC ENTRATI orj                   xsioosoo

-------
'APPENDIX  A.            ISMAP MODFL           COMPUTER  PROGRAM  SOURCE  CODE,      ENVIRONMENTAL PROTECTION AGENO


       42    I F
-------
• MX  *.          ISMAP  NPDFl           COMPUTER PROGRAM SOURCE CODF,      ENVIRONMENTAL PROTECTION  A GEN


       SUI- ROUT ] ME  SPCTNG                                                       S PC 000 10
C      If-IS  KOUTINF  COfinUTL1  THr DISTANCE TO c- t  T" K F N  pFTU'EEN  F'OiNT       SpCOH020
(      SOUf C tS                                                                  SFC0003U

      1?LD),D!ST(200),VEL(200),LCON(200,3),NSTOPS(tQO)                      SPC00050

      1,YEXP(24),YCONSL,YCONSZ,7COEFF(?4),ZEXP(24)TZCONST,GRDSIZ,BCK6     SPC00070
      2RD,MIX,ISTAb1(2«).SLAT,ICLD(24).NMET,NYtITIME,HEI6HT(200)            SPC00080
       COMMON/BASC/I                                                            SPC00090
       COi*!hON/CRTRN/OMEGA.XlNEW,X2NEW,YlNFWfY?NEW,XONEW.YONEW              SPC0010Q
       COPMON/SPCIN/DELTAY                                                     SFC00110
       I F(Y1NCW.LE .YONEW.AND .YONbw.LE.Y2NFW) GO  TO 1                        SFCQ0120
       IF(Y2NEW.LF.YONEW.AND.YOf!fcW.LE.Y1NFW) GO  TO 1                        SPC00130
       AfcC = A6S (YONC W-YUJEW )                                                    SPC00140
       AtD=AtS(YONEW-YZNEW)                                                    SPC00150
       IF(ABC.GT.ABD)GOT)2                                                 SPC 00160

       GO  TO  3                                                                  SPC0018G
  1     DSTNCE=ADS(XONEW)                                                       SPC00190
       r-0  TO  7                                                                  S PC 00 200
  2     DSTNCE- SORT(AED*ABD>XONtV*XONEW )                                       SPC00210
  1     S&YPR«=YCOEFF(ITlME)*DSTf''CE** YEXP(ITIME)                              SPC00220
       DtLTAY = 0.1906817*SGYPRM                                                 SPC00230
       1 F(DELTAY.GE .1 . 5) GO  TO  4                                              SFC002AO
       D£lLTAY=0.16Cl145*(SGYPRi*l + "'.)                                            SPC00250
       IF(DFLTAY.GF.1.5) GO  TO  4                                              SPC00260
       YCONSL=3.                                                                SPCQ0270
       GO  TO  5                                                                  SPC00280
  4     YCONSL=DELTAY*2 .                                                        SPC0029Q
       YCL = 6 .*NLAMF(I)                                                          SPC00300
       IF(YCONSL.GT.YCL) YCONSL=YCL                                           SPC00310
  5     RLTURN                                                                   SPC00320
       END                                                                       SPC0033Q

-------
APPENDIX
                      I S r A P MOOFL
                                      COMPUTER  CROGRAM SOURCE CODE.
                                                                           ENVIRONMENTAL PROTECTION A GE
       S OF ROUTINE  f-ISC
C       THIS  KCUTlNf  CALCULATES  THF  VALUES  OF  VARIOUS  PARAMETERS  FOR  USE
C       I K  CGNA1 OR  CON A?
       CC«IMON T T<200, 3 ) .DC LA (?OC,3) ,UZ ( 50 ) , QUF U F ( 2 00 ) , 0 (
     U),CCOUNT(200)

       COKMON/CRTRN/01EGA,X1NEW,xrNEWfYlNEW,Y?NEW,XONEW,YONEW
       CC'f>iON/CONAl/Al,A2.A3fCOr.lNOK
       COKMON/CONCTR/CONCC200)
       CCMMON/SPC1N/DELTAY
       COKMON/MSC/NP,YfGAMfflA(5)
       C CNNOR=0.
       CALL  SPCING
       ALENTH=ABS(Y1NEW-Y2NEW>
       NT = ALE NTH/DEL TAY-^0. 9991
       DLLTAY=ALENTH/NP
       GAMI"!A(1)=Y1NEW
       DO 11  11=2,5
       I FCY1 NEW ,GT. Y2NJEW) GO TO  1
       Y=Y1NEW-DELTAY/2.
       GAMMA CII)=GAMMA(II-1)-ft'LINK(I ,11-1)
       GO TO  11
 1      Y=YiiNEW-DELTAY/2 .
       GAM*", A (II )=GAMF!ft (11-1 )-DLINK (I ,1 1-1)
 11     CONTINUE
       RETURN
       Ef.D
                                                                                    KJS00010
                                                                                    MIS00020
                                                                                    MJS00030
                                                                 200,A),CLINK(200,*IS00040
                                                                                    MIS00050
                                                                                    MIS0006Q
                                                                                    MIS0007G
                                                                                    Misoooeo
                                                                                    MIS00090
                                                                                    MIS00100
                                                                                    MIS00110
                                                                                    W IS 00120
                                                                                    MIS 00130
                                                                                    MISOOUU
                                                                                    MIS 00150
                                                                                    MIS00160
                                                                                    HIS00170
                                                                                    K i s on 18 o
                                                                                    M1S00190
                                                                                    MIS00200
                                                                                    MIS00210
                                                                                    MIS00220
                                                                                    KIS00230
                                                                                    MIS002«0
                                                                                    niS00250
                                                                                    MIS 00260
                                                                                    KIS00270
                                                                    SOURCE  CODE PAGE
                                                                                     147

-------
DlX  A.           ISTAP  MOOr_L           COMPUTER  PROGRAM  SOURCE  CODE,      ENVIRONMENTAL  PROTECTION


       SUeKOUTjNE tENCSC                                                        CEN 00010
(       THIS  ROUTINE GENERATES  THE COORDINATES  OF THE  CENTERS  Op THE  G&ID GEN0002U
C       SQUARES  THAT OVERL«Y  T'-'t  INDIRECT SOURCE.  THE  GRID OVERLAY  IS     GEN00031,
f       USED  IN  CALCULATING CONCTNTRATIONS RESULTIN6  FROI" 7 ON E AREA        GEN0004G
c       SOURCES.                                                                  GENQCOSO
C       Thf USFR  HAS THE  OPTION  OF SPECIFYING  A  GRID  SIZE OR  USING  THE     GENOOC60
C       DEFAULT  VALUF. OF  10 METERS.                                            G EN 00 07 C
       COrKiON/DISP/XO(2PO),YO(2riO),NUMREC,THETA(24),WS<24),YCOEFF(2«>     GEN 00 08 U
      1,YEXP(24),YCONSL,YCOKSZ,7COEFF(2O,ZEXP(2O,ZCONST,GRDSIZ,BCKG     GEN 00 090
      t^D,MIX.ISTAe(24).SLAT,ICl. D(i4),NMETfNY,JTIME,HEICHT(200)           GEN 00 100
       CG^MON/LINK/NLINK,r-fL«NrCCO),Xl (200) ,Y1 (ZOO).X?
-------
                                      COMPUTER  PROGRAM SOURCE COOT,
                                                                           ENVIRON* ENTAU PROTECTION A G6
       SUl KOUTIfjE  JNTERT.                                                     INT00010
c      TMS  KOUTIME  FINPS THE  POINTS OF  INTERSECTION OF  THE VERTICAL     INTOOOZO
C      LINES  OF GRID  CENTERS L'lTH  THL LINK  AND  STORES  THE^ IN AN ARRAY   1NT00030
C      TO  LE  OPERATED  ON r'Y SUBROUTINE ZNGSC.                               INTOD040
       COK«CfJ/6NGSC/XGR!D(300),YCiPID(300).NGRIDX.N69IOY                    I NT 00 050
       CCHNON/ZE-ORR/SLOF'E(12>.YJNCPT(12>,XlPfX2P,YlP,Y2<-,K+1                                                   1NT0016G
       N5TAP,=NPGL(KM)                                                         INT0017Q
       YINT(MM ,NSTAR)=Y                                                      INT0018Q
 2     CONTINUE                                                               I.NT0019Q
 1     RETURN                                                                 INTOOZOO
       fUD                                                                     INTOD210
                                                               SOURCE  CODE PAGE

-------
(\rPENDIX 6.           ISrAP ,".ODCL           COMPUTER  PROGPAM  SOURCE  CODE,      E N VI F ON* t N T AL PROTECTION  A GE NC


            SL'FRPUTINE  7NGSC                                                          ZNGQ001C
      C      THIS fcftUTIME DE TF R >• I''E S  '-'HICH  GFID CENTERS  FALL  IN  EACH Z ON £        ZNG00020
      C      TKIS IS  DONE EY  FINDING  V'HICH  GFID SOUARF CENTERS ON  EACH V E R TI C A LZ NG 00 0 3 C
      C      LINE OF  THEK FALL  BETKEtV THE  POINTS WHERE  THE VERTICAL LINE        ZNGOC040
      (      INTERSECTS  THE ZONT POPbFR LINKS                                        ZNG00050
            DI^ENSION  ARY(6)                                                          ZNG00060
            C UMf ON/ZONE S/fJZONET, ,NZLIN'S ( 5 f ), 2L1NKS (1 2 ,50) , Z A TT R ( 50 )» Z G EN R < 50) f  ZNGOC070
           1NEXT,ZAT(2),ZGT(2),ZVT(3,50),ZNAME(50>                                 ZNGODQ£0
            COMMCN/GNGSC/XGRIDClDO),vGp1D(700),NGRIDX,KlGPlDY                     ZNG0009Q
            COr,hON/ZBORR/SLOr>E(1?),YINCPTH?)tX1P,X2P,Y1P,YdP?K,J                ZNG00100
            COMMON/INERS/NPGL(7Orf),YINT(3DO,A)                                     ZNG001 1 0
            CO^MON/ZONGCC/NGSCZ(50),VZGSC,YZGSC                                    ZNG00120
            NGSCZ =0                                                                 ZNG00130
            D 0  1 rv, = 1 ,NC-.R IDX                                                          ZNG00140
            NSTAR=NPGL(MM)                                                            ZNG00150
            IF(NSTflR.EQ.O)GOT01                                                   ZNG0016G
            (=0  TO (2 ,3,2 .3), NST/
-------
JSPIAP MODFL
                      COC5PUTER PROGRAM SOURCE  C C D F
                                                           E.NVI RON* EI*TAL  PROTECTION
                                                                                      A GE NC?3
C      THFSE STATE»ENTS CHLCK  kH11
C      INTERSECTION  POINTS.
       DO 21 NN = 1 . N G R: I 0 Y
       H=1
 27    I F(YG'<1D(NN> .GE.ARY (N))  GO
       IF  GO TO 21
G^ID CENTERS FALL BETWEEN P A I R S  OF
                                                              ZNGOC41C
                                                              ZNGOOA30
                                                              ZNGOOA40
                   TO
       GO TO 2?
 22    NGSCZ(J)=NGSCZ(J)+1
       X2G5C=XGRID(C'M)
       YZGSC =YGRIDCNU)
C      SUBROUTINE  ZCHECk' IS  CALLED T
C      IS SUCH THAT  THE POINT  WILL A
C      PECEPTOR
       CALL  ZCHFCK
 21    CONTINUE
 1      CONTINUE
       GO TO 25
 2      P-KINT 102,ZNAKE ( J )
  102  FORKAT(/////,10X,'ZONE  ',12,'
     TONS  OF  AREA  SOURCE  CONCENTRAT
     2E')
 25    PtTUPN
       FND
                      O  SEE
                      FFECT
TO 22                                   ZNGOOA60
                                        ZNG00470
                                        ZNG004EO
                                        ZNG00490
                                        ZNG00500
                                        ZNG00510
                                        ZNG00520
                                        ZNG00530
                                        ZNG00540
                                        ZNG00550
                                        ZNG0056C
                                        ZNG00570
                                        ZNG00580
                                        ZNG00590
                                        ZNG00600
                                        ZNG00610
 HAS ILLEGAL POUNDARY*/1OX,'CALCULATIZNG00620
IONS FROM  THIS 7 ONE  HAVE NOT BEFN  MADZNG00630
                                        ZNG00640
                                        ZNG00650
       IF  GRID SQUARE  CENTER  LOCATION
       THE  CONCENTRATION AT THE
                                               SOURCE CODE  PAGE
                                               151

-------
APPfMMX A.           IS*'AP  MODFL           COMPUTER PROGRAM SOURCE CODE,      ENVIRONMENTAL  PROTECTION  AGENt


             SUBROUTINE ICHECf                                                        ZCH00010
      C       THIS  PCUTINF  WILL DETETMINF,  ACCORDING TO  WIND  DIRECTION, WHICH   ZcHOOOZO
      C       GRID  SOUARE CENTERS  THAT LIE  WITHIN ZONES  ARE IN  A LOCATION  FROM  ZCH0003C
      (       WHICH  THEY CAN  CONTRIBUTE  TO  TH[  CONCENTRATION  AT THE  RECEPTOR  ANDZCHOOOAD
      C       FOR THOSE CENTERS,  CALL THF  ROUTINE THAT  COMPUTES THE  CONCENTRA-  ZCH00050
      C       T1CN  AT  THE RECEPTOR.                                                    ZCH00060
             ro*MON/CUSP/XO(200),YO(20G),NUMREC,THETA<2O,wS<24),YCOEFF(2<.)     ZCH00070
           1,YFXP(?4)tYcONSL.YCONS2,ZCO£FF(2A),ZEXP(2A),ZCONST,GRDSl7,BCtrG     ZCH 00 080
           2PD.K IX,ISTAP(2't),SLAT,ICLD(2A),NlMET,NY,ITIKE,HElGHT(200)            ZCH0009[)
             CCV,^ON/WND/THETAP,AA,AF                                                 ZCH 00 100
             COVKOrg/ZONGSC/NGSCZ<5-0),XZGSC,YrCSC                                   ZCH 001 10
             C()*i.MON/ZCHCK/XZTP,YZTR«M                                                ZCH 00 120
             PC Z  fl-1 ,NUfREC                                                           ZCH00130
             PA=X7GSC-XO(K)                                                            ZCHOOUO
             FC^YZGSC-YO(M)                                                            ZcH00150
             XZlR-r:A*Ab-*t'C*.^A                                                         ZCH 00 160
             YZTFv = E!C*A.U-E-A*AA                                                         ZCH 00 170
             I f (XZ TR . EQ.0.0. Af.'D. Y7T^' . CE.O. )  CO  TO U                                Z C H 00 1 ?, C
             IF(YZTP.LE.H.)GOT02                                                  ZCHQ0190
             I F (Ap SCATAN" (ABS ( YZTR/X7 TR )) ) .LT . 4 ? . * fi . 7 £ 31 3 53 /360.) GO TO 2        ZCH0020C
       A     CALL  CONCA3                                                               ZCH0021C
       2     C ONTINUE                                                                   ZCH00220
             RETURN                                                                     ZCH00230
             END                                                                        ZCH002AO

-------
PE NDI *
                    I SWAP MODEL
COMPUTER PROGRAM SOURCE  COOF»
                                                                           EIMVI RON" tNTAU PROTECTION * GE NCTT
      SL?ROUTIfJE CONCA7
C     THIS  ROUTINE  CALCULATES  THL  CONTRIBUTION FROM 70NLS (ARE*
C     TO  THE CONCENTRATION  AT  THE  RECEPTOR  AMD ADDS IT  TO THE L
C     CONTRIPUTIONS
      C OWMON/DISP/XO(2nO) , Y0(2i~»0) TNU!"REC ,THETA (24 > , WS +YC
      IF(ZCONST.LT.3.)  ZCONST=7.
      SIGZ = ZCOEFF(ITIMF)*Y?TR* + Z'rXP(ITIME)4ZC
      0=(D.5*XZTR*XZTR)/CSI&Y*S1GY)
      IFCD.GE.100.)  SO  TO 1
      I FCNOPARK .EG ,1)60TO 1
      CON(IM,J)=CON(M,J)-H./(SIPY*SIGZ*EXD(D))
 1    RETURN
      E ND
                                                                                 CN30001U
                                                                         SOUf?CES)CN'3000tO
                                                                        INK
                                                                        F(
                                        CN30C030
                                        CN300CAO
                                        CN30005G
                                        CN30006U
                                        CN300070
                                        CN300080
                                        CN300090
                                        CN300100
                                        CN300110
                                        CN300120
                                        CN300130
                                        CN300140
                                        CN300150
                                        CN30016Q
                                        CN300170
                                        CN30018Q
                                        CN300190
                                        CN30P200
                                                                  SOURCE CODE PAGE
                                               153

-------
AFPFNOIX A.           ISMAP TODTL          COMPUTER PROGRAM SOURCE  CODE,      ENVIRONMENTAL  PROTECTION  AGENC


             F. I ? ROUTINE  PRNT Oil                                                        PRN 00010
      C       THIS ROUTJNF  PRINTS  THr  fODEL ^ESULTS                                 PRN00020
             Cl.*KON/DISP/XO(200),YO<2r!0>,NUMREC.THETA(24),WS(24).YCOEFF(2A>     PRN0003C
           1,YEXP(;?4>tYCCNSL,YCONSZ,7COEFF(24),ZEXP(24)f2CONSTfGRDSI2,eCK:G     PRN00040
           2RU,MIX,ISTAL(24).SLAT,lCLD(<:OtNr>ET»N'Y.ITI>vE.HEIGHT(200)            PRN 00 050
             COMMON  /  COnM/ I.Z.L.J,  K,  TOD,  DOW,  TP, TOTATT,  TTPZ,T3TGFN,ITM   PRNQOQ60
           1,NYEAR,LHEAD(13),  TUNFAC                                                PRN0007U
             COPMON/LINK/rJLINK,NLANE(:ur>),Xl(200),Y1(20C)>tX2(200>fY2(200>,LCAP(PRN00080
           12l>D>,DIST<200>fVFL(200>,lCON(200,3),NSTOPS(200)                      PRN 00 090
             C OP PON/20NES/NZONE^ ,NZLlNS(50),ZLINKSC12,50>»ZATTRC50),2GENF<(50)t  PRN 00 100
           1NEXT,ZAT(2),ZGT<2).ZVT(3,50),ZNAME(5C>                                PRN00110
             CCPT.CN  /  INTRST/ NINS, L I N ( 70 .4 ) , I T YPC  (70), CYCL(7Q), PH(7U,*).   PRN00120
           1  CI(70),  bCAP(70,4), QUE(70fA)                                         PRN00130
             CCPMON/CONCTR/CONC(200)                                                 PRN001^0
             PRINT Z-1,LHEAD.NYEAR                                                    PRN00150
         ?1  F OPMAT(1H1,A7XT'INDIRLCT  SOURCE  MODEL OF ATR POLLUTI ON'///// , 5Xf 1£PRN00160
           1 A A,1QX,'DATE  = ',I6/)                                                   PRN00170
             PKINT22,NLINK,NZONES,MNS                                              PRN 00 180
         22  FOR.»1AT(22X,'NO.  OF  LINKS  =  ' , 13 .1 0 X , 'NO . OF  7 ON E S  =  ' ,1 5 . 10 X ,'NO .  PPN00190
           10F  I N'TERSECTIOMS =  ',I ">/////)                                          PRN 00200
             PRINT 43 ,TOD ,THETA( JTIf'' E) ,WS ( IT JME) , ISTAP(I TIMF )                     PRN 00210
         4J.  FORMA T(1CX,'HOUR =  ' , F c . 0 t y X , 'W 1 N D  DIRECTION = ' » F P . 0 , 8 X ,'W I N 0 SPEPRN00220
           1ED  =  ',1 FES.1 ,PX ,'STABIL ITY  = ',l6///>                                PPN0023G
             PI.INT 45                                                                  PRN00240
         45  FORMA T( 1 X,£HREC EPTOR ,AgX , 'CO CONCENTRATION  (PPP>)'//)                 PRN00250
             ^[•:-NUMPEC n C.+1 .01                                                       PRN00260
             DO  CC L=1,MM                                                              PRN0027Q
             L2-L*10                                                                   PRN00280
             I 1 = L2-o                                                                   PRN00290
             I F(L . ER.f'H)  L2 = NUMr?EC                                                   PRN00300
             PhlNT 46.L1 .L2, (CONC (M) ,f"=L 1 , L2)                                       PPN00310
       4C    FOFMATdH  Ii,2H  - , I 5 , 1 » , 1 0 ( 2 X , 1 P E 1 0 . 2 ) )                               PRN00320
       40    CONTINUE                                                                  PRN00330
             RETURN                                                                    PRN003AO
             FKD                                                                       PFN0035U

-------
l_ U rl f U I t: K-  l-'KOtoKAri  SOU RC fc  COD E «
                                                     ENVIRONMENTAL  PROTECTION















c***
c* **






5

C* * *
c***




6





12

10
SL'PKOUTINE STREET
C CI^NON/LINK/NLINK.NLANE (2GC-) .X1 C20C)»Y1 ( 200 ) , X2 < 2 00 ) »
&YZ(2PO),LCAP<200),t>IST<200),V£L(200),LCON(200,3)
COKMON/DISP/XO(2nO),YO(2CO),NUMPEC,THETA(24),WS(24),YCOEFF(24>»
&YEftR(24),YCONSLtYCONSZ,ZCDEFF(24),ZEXP(24),ZCONST,GRDSIZ,
&BCK6RD,MIXtISTA6(24),SLAT,lCLD(24),ItfET,NY.lTjtfE,
RHEI6HT(20D)
COMMON/STCAN/ISTR(200),AST(200) ,NLK ST (? 00) . WS T< 200) ,
gBUlLDH(200),RECHGT(200>,ISTLIN(200,2>«TRSIDE(200>
COMMON/MAINN/M
COMMON/BASC/I
COPMON/CONCTR/CONC(2CO>
COMMON TT(200t3),DELA(200,7),GZ (50),QUFUE(200),Q(200,4),
8DLINK(?00,4),CC3UNT(200)
DIMENSION DX(4),DY(4),XX(4),YY(4)
CONVERT STREET WIDTH, PUILD1MG HEIGHT AND PECEPTOR HEIGHT TO
METERS
W=k'ST (I*!)
BHT=EUILDH(W)
PHT=RECHGT(M)
C K = 7 . 0
XLD = 2 .
WRITE(6,5) M,I, W,BHT,RHT,XLO
FORMAT(lX,'M=',l5,1X,'l=',l5,lX,'W='»Fl0.2,1X,'eHT=*.Fl0.2,
-R1X,'RHT=',Fin.2»lX,'XLO=',F10.2)
DETERMINE WHICH SEGMENT OF THL LINK CONTRIBUTES POST
STRONGLY TO THE STREET CANYON FFCEPTOR
DXT=X2(I)-X1 (I)
D YT=Y2(I)-Y1 (I)
SL=SQRT(DXT**2+DYT**2)
WRjTE(6,6)M.l,OXTfDYT,5L
FOP«AT(1X,'f'l=',l5,lX,'T = ',I5,1X,'DXT=',Fl0.2,1X,'DYT=',Fl0.2,1X,
£'SL=',F10.2)
DO 10 11=1,4
DX(II)=(DLINK(I ,II)/SL)*DXT
DY(lI)=(DLIf,K(I,II)/SL)*DYT
WRITE(6,12)»pfIfII,DX(II),DY(II)
FOPMAT(1X,'M=', I^,1X,*I=',I5,1X,'II=',I5,1X,'DX(II)=',F10.2.
81 X.'D Y(II)=',F10.2)
CONTI NUE
STR 00 01 D
STR0002G
STR00030
STR 00040
STR00050
STR00060
STR00070
STR00080
STRQ0090
STR00100
STR 001 10
STR00120
STR 00 130
STR 00 140
STR00150
STR 00160
STR00170
STR00180
STR 001 90
STR00200
STR00210
STR00220
STR00230
STR0024Q
STR00250
STR00260
STR00270
STR00280
STR00290
STR00300
STR00310
STR00320
STR00330
STR 00340
STR00350
STR00360
STR00370
STR00380
STR00390
STR00400
                                    SOURCE  CODE  PAGE
155

-------
i\f'PEhDI*  A.           ISKAP KODFL           COMPUTER PROGRAM SOURCE  CODE.      ENVIRONMENTAL PROTECTION AGENCY


            XXC1 )-PX (1)/Z .+ X1 (T )                                                   STR00410
            YYU)=rY<1)/;?.*Y1(;)                                                   5 T R 00 4 2 O
            r>CcPJj = 2,4                                                           STROC^30
            XX(JJ)=XX(JJ-1)+DX(JJ-1)/2.*DX(JJ)/2.                                STR0044C
            YYY(JJ-1)/2. + DY(JJ>/2.                                STR0045 G
     20     CONTINUE                                                                STR00460
            DTEST=1.0E+£                                                           STR0047Q
            DO 30  JJ = 1 ,4                                                           STRU048U
            OTS = SQRT((XX(JJ)-XO(M))**2-KYY(JJ)-YO(*I))**2)                       SIR 00 490
            WRITE(fr,22)  JJ,M,XX(JJ)fYY(JJ),XO(r)tYO(M),DTS                      STR00500
         22  FOFMAT(lXf'JJ=',l5,1X,'M=',l5,1X,'XX(JJ)='.E12.3»/.lXT             STR00510
           &'YY(JJ)=',El2.3f1X,'XO(M)=',El2.3,1Xf'YO(M)=*,El2.3,/,             STR00520
           R1X,'DTS=',E12.3)                                                       STR00530
            IF(DTS.LT.DTEST)GOTO  25                                               STROQ540
            GOTO 20                                                                 STR00550
     25     DTEST=OTS                                                               STR00560
            JKEET=JJ                                                                STR00570
     30     CONTINUE                                                                STR00580
            WRITP(6,32)  I ,JKPEP ,0 (1 , JKEEP)                                        STR00590
         32  FOFKAT(1Xf'I='.l5,lX,'JK(7EP = ',I5,1X,'Q(I,JKEEP)='fF12.3)           STR00600
            Cl=CK*a(I»JKEEP)*(rHT-PHTJ/(W*(W5(ITIMF)+0.5)*BHT)                  STROD 61Q
            CL = CIC*0(IfJKEEP)/((wS
-------
STR00510
SOURCE CODE  PAGE
      157

-------
ATPE NDIX  A
          I S r A K MODFL
COMPUTER PROGRAM  SOURCE CODE
ENVIRONMENTAL  PROTECTION  AGENC
            ? t E F: 0 U T I N E  I IV I T I* "
            CCMPPN/AGEFir/DEC
            CCKKON/COCOEF/COEF
            C OMMON/COEFPM/B AD
            CO^MON/DET/DETER
     C
     C
     C
     C
     C
      C
      C
      C
      C
      C
            PEAL  MYM(120) ,M YP (1 20)
            REAL  Drc<20),TF(ZO,6),CO  1 = 8 ,15
          ?  D tc( i ) = o.o
            DEC(7)=TF (U ,1)
            DLC(6)=TF(1J,1)

            0 EC(A ) = TF(11,1)
            DEK? ) = 0.0
            OfC(2 ) = 0.0
            00 10  1=1,10
         10  D tC(2 ) = OEC(Z)+TF (1.1)
            DLC(1 ) = 0.0
DETtRIOPATE  MODAL VODEL  COFFF1C I ENTS  TO  1977
            DO 1 n 0 J = 1 , 2 0
            DO 100 K = 1 ,1 2
        1 00  C OF F ( J , K ) =B A D (K , J ) * (1 . 0 -«• P E T E R (J ) )
            VRITE(6,200)((BAD(It,I1),ir = 1,1?)
          &(DETER(11).11=1 ,20) ,
                                       INI 00010
                                       1NI00020
                                       INI00030
                                       INI00040
                                       INI00050
                                       INI0006C
                                       INI00070
                                       INI00080
                                       INI00090
                                       INI 00100
                                       1M00110
                                       I M00120
                                       1M00130
                                       INI00140
                                       INI 00150
                                       INI00160
                                       INIQ0170
                                       INI0018Q
                                       INIOO19Q
                                       INI00200
                                       INI00210
                                       IM00220
                                       INI0023Q
                                       INIOOZ^C
                                       IN1Q0250
                                       INI0026Q
                                       IN100270
                                       I HI 00280
                                       1NI00290
                                       INI00300
                                       INI00310
                                       INI00320
                                       1NJ00330
                                       1NI003AO
                                       1M00350
                                       1 M 00 3 f 0
                                       1M0037Q
                                       INI 00380
                                       I M00390
                                                                   SOURCE  CODE  PAGE
                                                                                         158

-------
     «.           IS««P MODFL           COHPUTER PROGRAM  SOURCE CODE,      ENVIRONMENTAL (PROTECTION


C    RfTF(J1.1),11=1.20). (DEC (I 1),I 1 = 1 ,20)                                  INlOCKIO
C 200  FORMAT (6Q( 1 X , 4E 15 . e I > . '1 ' . / 2 DC 1 * , F 1 5 . «• / ) ,                           IM0042U
C    B*1*/60(1X,4F15.8/),*1*/2C(1X,F15.5/))                                JNI00^30
       RETURN                                                                  INI004AO
       END                                                                      1NJOOA50
                                                                SOURCE CODE  PAGE     159

-------
X •".          IS^AP MOOTL          COMPUTER PROGRAM SOURCE CODE,      ENVIRONMENTAL  PROTECTION  AGENCY


    SUPROUTINE  CF'UZ (V,f ilCRUZ )                                            CRU0001U
    C 0^ ON/ AGEv.,M/DEC                                                     CRU00020
    CONMPN/COCOEF/COEF                                                   CRUOQOJ.O
    DIMENSION  COE F(20,1 Z ) ,[)£( CO) ,X (12 )                                 CRUOOOAO
    F MCRUZ = 0.                                                             CPU00050
    X(10)=1.                                                              CRU00060
    X(11)=V                                                               CRU00070
    X(1Z)=V**2                                                            CRU00080
    DO  100  11=1,20                                                       CRU00090
    I FCDECCI 1 ) .EO .0 . ) GO  TO  100                                         CRU00100
    DO  SO  12=10.12                                                       CRU00110
    f NCRl'7 = ErCRUZ+X (12 ) *COF. F (11 , I 2) *DEC (11)                             CRU00120
 5i) CONTINUE                                                              CRU00130
1CO CONTINUE                                                              CRU00140
    RETURN                                                                CRU00150
    END                                                                   CRU00160
                                                            SOURCE COOP PAGE     160

-------
                                                   SOUTiCE  CODE
                                                                     ENVIKONWENtAU  PROTECTION " * GE'l
SUE ROUTINE A C DC ( V , A , r f!A D )
C OPKO
COMKO
DIMEN
£ HAD =
I PRSW
AMf X=
AM1N =
A1 = -1
      N/COCOF. F/COFF
      SION COEF(20,1.?>,DtC(20>.X(12)
      0.
      =0
      1 .0
I FCA.
T=A8S
AA=A*
TT=T*
X (1)=
 (D=
 (J)=
 <5)=
X
X
X
X
X (O =
X (p) =
X (7) =r
X (9) =
X (10)
X (11 )
X ( 1 c )
I F(A .
I F CA .
I F ( A .
I F (A .
S Of = 1
DO  1 C
I F ( D E
DO  70
I FfA.
I F ( A .
I F (A .
.0/
,0/
EO.
(V/
A
T
T
A*T
A*T
AA*
AA*
         AM1N
         AMAX
         O.) GO  TO ?00
         A)
         T/2 .0

         TT/2 .0
         TT*T/3.0
      AA*A*TT*T/3 .0
      AA*A*TT 12. 0
      AA*AA*TT*T/7 .0
      = X(1)
      = X (2)
      = X ( 5 )

      LF. . AMIN )  H0/t=r .
      &E .0.0. AND . A.L T. A-1A* )  h 0 A= ( A 2 * A ) +1 .0
      L E . 0 . 0 . A N P . A . f, T . A''' 1 N )  H 0 A = ( A 1 * A ) + 1-. 0
      ,-HOA
      0 11=1,20
      C (I 1 ) . FQ .0 . ) GO  TO  100
       12 = 1 .V
      LT.0.0 . AND . 12. EQ .2 )  GO TO  f-0
      LT.0.0. Af.'D . 12. EG .6 )  GO TO  50
      LT .0.0.AND . I2.EO .7)  GO TO  SO
T 0 TO  65
ACDOOC1 U
A CD 00020
ACDC0030
ACDOPO^O
A CD 00050
A CD 00060
ACD00070
ACDOOO?Q
ACDQOOQ0
ACD00100
ACD00110
ACD00120
ACD00130
A CD0014Q
ACD00150
ACD0016U
A CD 00170
ACD001PC
A CD 00190
ACD00200
ACD00210
ACD00220
ACD002JO
ACD00240
ACD0025Q
ACD00260
ACD0027Q
ACD00250
A CD 00290
ACD00300
A CD 00310
ACD00320
ACD0033U
ACD003^tO
ACD00350
A CD00360
A CD00370
A CD00380
ACD00390
A CD 00400
                                                          SOURCE CODF  PAGE
                                                                          161

-------
1> *.           ISPAF  MODrL           COMPUTER PROGRAM SOURCE  CODT,      ENVIRONMENTAL  PROTECTION  A GE NC


  t r  IFUr^W.GE.1)  WP ITt. (6, 
-------
APff NO IX
                      IS refit*  MODEL
                                            COf-PUTER PROGRAM S O U R C E  C O D • ?
                                                                                 E NVi PON"I EN TAU
                                                                                                PROTECTIO'N AGE
     c
     c
     c
     c
     c
     c
     c
     c
     c
     £
     C
 FL'Ffv OUTINE SUPf.  (INIFLG,M,I2,A1,X1,X2,X3,X4,A21.A22,A23.
&AZ'4,/i25fA26,l5,16,l7,E.MCrr'IOLE)

 CC-«iMON/FLGCOM/ALTFLG,ALHFLG,TRKFLG,IRDrL6«SP?Fl.G,NP;HFL6,IDLFL6,
*                UNFFLG,MYMrFC,IMFLG,ICEVFG,PRTFLG,IFORM
 COWMON/REGCOM/IREJN
 CO!"MON/LNKCOM/SPD,TEKP,PCCOtPCHS,PCCC,VMTMIX
 COMMON/ALTCOM/NKYALT,ALTKOD
 C OKMON/MYMCCtf/1 Y* ,MYR ,T F
 C GMWON/JUNK1/AC ,XLOAD ,TMA1LR , ABSHUf
 CCKMON/JUhiK2/HGWGT,HDWGT,hGCID,HDCID
 CGtfMGN/PpOJCM/PROJID
 CCKMON/IMCOM/lCYIM,ISTRl'JtIMTFLG,MODYRl,KOOYR2
 CC^HON/SPUOM/SPl.SPAV

 INTEGER  ALHFLG,TRK(:LG,ALTFLG,ALTKODU,ZO),CY,VI^FLAG,SP3FLG,
*         NKHFLG,IDLFLG .UNFFLGtPRTFLG
 REAL  SPD(3) ,VMTMTX(6) ,^Yn (20, 6) ,MYR (20,6) ,TF(2Q,6)
 RL-AL  EFRETM(3,6),WTEDEF(7),LNKDTA(7),Pr'OJin(ZO)
 EUUIVALENCE  (SPO(1) ,LWKDTA(1 ) )
 DATA  V^TMIX/.^03..n5^,.05c,.0^:,.07lT.T05/
 DATA  IREAD,] WRI/5 »', /
 REAL  c OM c c c (6), i D L P T M (-,, t), i D LW T D (7 )
 DATA  IFJOLD/0/
            I REJN=I1
            f Y = IZ
            PCCO=X2
            PCCC=X4
            VHTMI X(1 )=A21
            VMTMIX(2)=A?2
            VMTMI X(3)=A23
            VMTMI XC4)=AZ'A
            VMTMI X(5)=A25
SUP00010
SUP00020
SUP00030
SUP00040
SUF00050
SUP00060
SUP 00070
SUP00080
SUP00090
SUP00100
SUP00110
SUP00120
SUP00130
SUP0014Q
SUP00150
SUP00160
SUP0017C
SUP00180
SUP0019G
SUPODZOO
SUPC0210
SUPOP22Q
SUP0023Q
SUPOCZ^O
SUP0025U
SUP00260
SUP00270
SUP00280
SUP00290
SUP00300
SUPOG310
SUP00320
SUP00330
SUP00340
SUP0035Q
SUP00360
SUP00370
SUP0038U
SUPOP390
SUP00400
                                                                     SOURCE  CODE PAGE
                                                                                163

-------
APPENDIX  A.           ISMAP  MODEL          COMPUTER PROGRAM  SOURCE CODF,      ENVIRONMENTAL  PROTECTION  AGEN(


            Vf.TM X(6 ) =*?(•                                                         SUP004 10
            ALHFLG-I^                                                             SUpOOAZO
            TF.KFLG=I6                                                             S UP 00 A3 0
            I*FLG=J7                                                              SUP00440
            SPD(1)=A1                                                             SUPOOA50
            SPD(Z)=A1                                                             SUP00460
            SPP(3)=A1                                                             SUP00470
     C                                                                            SUP004SO
     C                                                                            SUPOOA90
            I FdNIFLG .EO.O)  GO  TO 100                                            SUP00500
            MYKRFG^G                                                              supOQSlo
            MSFLG=1                                                               SUP00520
            ALTFLG=0                                                              SUP00530
            SP?FLG=1                                                              SUP005AO
            NKHFLG=0                                                              SUP00550
            IDLFLG=1                                                              SUP00560
            UNFFLG=0                                                              SUP00570
            ICF.VFG = 1                                                              SUP 00 580
            IFORM=1                                                               SUP00590
            PRTFLG=0                                                              SUP00600
            IPRTSW=0                                                              SUP00610
            INFLG=0                                                               SUP0062G
            I F(MYf«RFG.EQ .1)  R E A 0 ( 2 . 5 P ) MYI«,^YR                                  SUP00630
         50  FOFMAT(20F<, . 1 )                                                        SUP006AO
            CALL TFCALX                                                           SUP00650
     10C    CO^TINUE                                                              SUP00660
     C                                                                            SUP0067Q
     C**CHECK CALENDAR  YEAR                                                      SUP0066Q
            IF(CY.GE.?0)  GO  TO  505                                               SUP0069U
            WRITE (IWRI,785)                                                       SUP00700
     78^    FOPMATC  ***EPROP:  CALENDAR  YEAR  RANGE is  7o  THRU 99")             SUP00710
            STOP                                                                  SUP0072U
     50?    CONTINUE                                                              SUP00730
            ICYPR =  CY                                                            SUP007AO
            IFCCY.GT.95)  CY  =  95                                                 SUp0075o
     C                                                                            SUP00760
     C**CHECkAHPIENT  TEMPERATURE                                               SUP 00770
            IFCTFMP.GE.0.0.AND.TEMP.LE.110.)  GO TO 697                          SUP007PO
            WRITE(JWRI.787)                                                       SUP0079Q
     787    FORMATC  ***ERROF:  VALID TEMPERATURE RANGE  IS  0-110 DEG.fF)')      SUP00800


                                                                   SOURCE  CODE  PAGE     16<

-------
FPEHDJjr  n.           ISr*AP M o D F L           COMPUTER PROGRAM  SOURCE CODF,      E. N VI RO Ml» E NIT A l_ PR OT E CT T~OT*


           STOP                                                                   SUPOOfclU
    6L7    CONTINUE                                                               Sl)POOiS20
    c                                                                             SUP00830
    C**CHECK  INPUT  SFEEDCS)                                                     SUPOQ&4G
           If(SF3FLG.EQ.1)  GO TO  65T                                            SUP00150
           I f (SP1 .GT.D.)  GO TO 620                                               SUP 00860
          WFITE(IWRIt736)                                                        SUP00870
    7£6    FOPMATC  ***ERROR: SPEED  MUST BE  POSITIVE')                         SUP00880
           STOP  ,                                                                 SUP00890
    620    I F(SP1.GT.60.)  SP1 = 60.                                              SUP00900
           I F(SP1.LT.5.)  WRITE(IWRI ,7?8)                                        SUP00910
    7f.S    FOFKATC  **UARNIN6: AVG.  ROUTE  SPEED L.FSS THAN 5 pt.P.H.')          SUP00920
           GO  TO 695                                                              SUP00930
    C                                                                             SUP009AQ
    650    CONTINUE                                                               SU.POQ95Q
           I FCSPDd ) .GT.O.O.Ar.D.SP D (^') .GT.C'.C. AND. SPp(3) .6T.O. ) GO  TO  670    SUP00960
          WRITE(IWRIf786)                                                        SUP00970
           STOP                                                                   SUP00980
    670    CONTINUE                                                               SUPQ0990
           DO  671 1=1,?                                                           SUP01000
           I FU.                                       SUP0102Q
    C                                                                             SUP01030
    695    CONTINUE                                                               SUPOlO^O
    C                                                                             SUP0105Q
    C**END  SPEED CHECK                                                           SUP0106Q
    C                                                                             SUP01070
          I F(SP.3FLG.E& .1)  GO TO  52P                                            SUP010SO
    C**HERE  TO DECOMPOSE  SINGLE  ENTERED SPEED  INTO BAG  SPEEDS                SUP01090
    C     SFDd) =  SPl*1.3n                                                     SUP01100
    C     SFD(2) =  SPl*.c25                                                     SUP01110
    C     SPD<3 ) =  SP1*1.3H                                                     SUP 01120
          S PDd ) =  SP1                                                           SUP01 130
          SPD(2) =  SP1                                                           SUP0114Q
          SPD(3) =  SP1                                                           SUPQ115Q
    C      SPDC1) =  SP1* (1 .377738r"  - (PC CC * .30/79. 4 2) )                         SUFQ1160
    C      SPD(2) =  SP1*(.7^9T5 +  (PCH£*.175/72.7?))                           SUP0117C
    C      SfD(7) =  SPM1)                                                        SUP0118U
    C                                                                              SUP0119U
    C      PCHSNC =  PCCC  -  PCCO +  PfHS                                          SUP01200


                                                                   SOURCE  CODE PAGE     1 65

-------
APPENDIX A.           ISNAP MODfL          COMPUTER PROGRAM SOURCE CODE*      ENVIRONMENTAL  PROTECTION


      (       rCHST!  =  100. -  rcrc -  PCHT                                            SUp01210
      (       Sn:(1)  =  SP1 * (1 .411 UiCCC ,IDLRTK,1DLWTD,   SUP 01 310
           KINIFLG)                                                                   SUP01320
             I FdPRTSW.Ett .1)  CALL OU T P UT ( I C Y P R f F. FR ET ?, ,b T E D E F ,C OK C C t . I T LR TK f     SUP0133G
           riUkTD)                                                                   SUP01340
             EHCRUZ=WTEDEF(2)                                                         SUP01350
             EKIDLE=IDLWTD(2)                                                         SUP0136y
             Rf. TURN                                                                    SUP01 370
             Ff:t-                                                                        SUP0138G
                                                                       SOURCE CODE  PAGE     1 t,6

-------
                                COMPUTER  PROGRAM SOURCE  CODE
                                                                    ENVIRONMENTAL PROTECTION
 SUP ROUTINE OUTPUT(CY.ErRETrfWTEDEF.COHCCt,IDLRTM.JDLWTO)
                UNFFL6.MYMRFG,1KFLG,ICEVFG,PRTFLG,IFORM
 CCNMON/BEFCOM/FEF
 CGHMON/LNKCOM/SPD.TEMP, P C CO , P CH S .PC C C ,VMTKIX
 CGKMON/ALTCOM/NI*IYALT,ALTKOD
 CCrI1(3)»REGN2(3)
 REAL  COMPEF (20,3 ,6)
 PEAL  AIHRETC20.4.3)
 P£AL  A(20,3,3),U(2n,7,5)fL(3,3),H(3),XLOAO(3)
 REAL  EFRETM(3,6),W7EDEF(T),LNKOTA(?),PROJID(20)
 REAL  COMCCC (6), TT (20,6)
 REAL  BF F (20,26,3 ,6)
 REAL  YFSNCK?)
 r^UIVALENCE (SPD(1),LNKDTA(1))
 DATA  PROJ1D/'EMIS','SIGN',' FAC",
8'ULAT','ION ','     ','SUPR','OUTI
R'NE  S','UPS','(MOO','ILE1',' PRO'
&'GRft^','  MOD','IFIE','D)  ','
 DATA  PNAMH/'NON-','METH'/
 DATA  PNAM/'   T ' , ' E XHA ' .'E X H A'/
 DATA  PNAMi/'OTAL','UST ','UST '/
 DATA  PNAW3/' HC ','  CO ','NOX '/
'TOR
,  CA LC
OUT00010
OUT00020
OUT 00030
OUTOOOAC
OUT00050
OUT00060
OUT 00070
OUT00080
OUT0009Q
OUT 00100
OUT 00110
OUT00120
OUT 00130
OUTOOUO
OUT0015U
OUT00160
OUT 00170
OUT 00180
OUT00190
OUT00200
OUTOD210
OUT00220
OUT00230
OUT00240
OUT00250
OUT00260
OUT00270
OUT00280
OUT00290
OUT00300
OUT00310
OUT00320
OUT00330
OUT00340
OUT 00 3 50
OUT00360
OUT00370
OUT00380
OUT00390
OUTOOAOO
                                                         SOURCE CODE  PAGE
                                         167

-------
                ISrAP tfOD^L
                                  COMPUTER PROGRAM  SOURCE CODE
                                                                         ENVIRONMENTAL  PROTECTION  A 6E NC
C
c*
77
C
DMA
D ATA
0 ATA,
DATA
DATA
DATA

D ATA
DATA
D ATA
D ATA
DATA
DATA
DATA
IDLNM1
1DLMM2
1DLNM3
EVFNAM
IWRI ,1
EXHHDP
'RS (',
IDLHDR
IDLHDt
REGN1/
FEGN2/
DASH/'
INITFL
YESNO/
/'
/'DL
/' H
/'
URUN
i
E
C
*
F /
«
«
^
*
^
*
6.
^
^
^
^
9
/'COMP'. '
'GK/
/'ID
/'
'49-
'TAT
	
/1 /
'NO
M'
LE

S'
E'
'/

^
^
f
^
*
•
f
V


*
I
'
+•
C
F



D

E
/
0
L


A
•


YE

LE
CO
VA

SI
E)
EM
C
LI



S
1


P

T
^-
I
0
^
^


^*
^- ^
*
','DL
','NO
'f * H

, E
/
','SS
','RR
,'HI-
»'LT.



I
b
X
C

EM

10
EC
A'
f



' 1
' 1
' 1
' 1

','ISSI','ON F','ACTO',

','N FA' , 'CTOR ', 'S (G't
'.'TED '/
/
/



   I F(NMhFLG .EG.0)  GO TO 77
   P'NAKl (1)  =  PNAMH (1 )
   PNA«?(1)  =  PNAMH(2)
   CONTINUE

   IFdNITFL.NE.1)  HO TO 17^
HERE  FIPST  TIME
   I NIT F L-0
   I F(l FOPM.tO .0)  Wf?lTL (IWRI ,701 1)  PROJID
   I F(IFOFM.EQ .1)  WRITE (IWRI ,701 ) PROJID
   I F(I F 0PM.EO . 1 )
  *WRITE(IW P. 1,7017) PNAM(1),PNAM2(1),PNAM3(1)
          CO',ZX,'-*',2A4,A3 ,'  EMISSION' FACTOR?  INC
      EVAP.  HC  EMISSION  FACTORS')
7017
       I F(I FOPR.EQ.1 ) WRITE (IWRI ,71Q)
175    C CMTINUE
C
       I F ( J FORM .CGI .0) GO  TO  o°t
C********-********************************************
C
       WFITP(IWRI,7029)
       I f (SF5FLG .EU .1)
                    OUT00410
                    OUT00420
                    OUT00430
                    OUT00440
                    OUTOD450
                    OUT00460
                    OUT 00470
                    OUT00480
                    OUT00490
                    OUT00500
                    OUT00510
                    OUT00520
                    OUT00530
                    OUT00540
                    OUT00550
                    OUT00560
                    OUT0057Q
                    OUT005feO
                    OUT00590
                    OUT00600
                    OUT00610
                    OUT00620
                    OUT0063Q
                    OUT0064Q
                    OUT00650
                    OUT 00660
                    OUT00670
                    OUT00680
                    OUT00690
                    OUT00700
                    OUT00710
                    OUT00720
                    OUT 00730
                    OUT00740
                    OUT00750
                    OUT 00760
***+***************OUT00770
                    OUT00780
                    OUT00790
                    ouTonsoo
                                                        LUDE
                                                              SOURCE CODE PAGE
                                                                                   168

-------
APPENDIX  A.           ISfiAP  MODFL            COMPUTER  PROGRAM SOURCE  CODE,      ENVIRONMENTAL  PROTECTION  AGENCY









C


c










c




200
C

c

c
c
SE8



*l"'MTF (I WRI,703) CY.TEKP,
* rcc O,PCHS ,PCC c
I F (SP3FLG.EC.O)
*WRI TC (I WRI, 7035 ) CY,TE'1P
* SFAV,PCCO,PCHS ,PCCC
I F(ALHFLG.EQ .1) WRITE(IW
I F(TRKFLG .EQ .1) WRITEdW
I FdWFLG.tQ.1 ) WRITEdWR
I FdMFLG .EQ .1 ) WRITEdWR

WRITE (IWRI ,7059) EXHHDR
WRITE (IWRI, 706)

IFCPRTFLG.EC.O.OR.PRTFLG
* WRITE (I WRI, 707) PN AP1 1(1)
* WTEDEFd)
I FdCEVFG.EO .1) WRITEdW
IF (PP. TFLG.EC.O.OR.PRTfLG
*WRITE(IWR1,707) PNAKK2)
* .KTEDFFC2)
I FCPPTFLG .EQ.O.OP.PRTFLG
*WRITE (IWRI, 707) PN*M1(?)
* WTE DEF (3)

IF(IDLFLG.EG.O) GO TO 2U
WRITE (I WRI, 709) IDLHD2,!
WRITE (IWPI, 707) (IDLNM1(
* IW= 1 ,6) ,IDLWTD (10 ) ,18 =
CLNTI NUE

WRITE (IWRI, 710)

GO TO P 9 9


CONTINUE
I PP1 =PRTFLG
I PP?=PRTF LG
I F (PRTFLG .EQ .0) IPP1 =
VKTMIx,REGN1(IP-EJN),REGN?(lREjN),SPD.SpAV


,V'Tf1I)(,REGNl(IREJN),f;FGrc(IREJN),SP1,SPD

PI,70A) AC.XLOA D ,TP AI L^ »ABSHUW
PI, 705) HGVGT,HDWGT ,HGC ID ,HDC ID
I, 70 51) 1CYIW,ISTRIN,YESNO(IMTFLG+1)
1,7052) MODYR1 ,MODYR2




.EC .1 )
.PPJAr^d ) ,PNAM3 (1) , (E FPETM(1,IM) , IM = 1 ,6) ,

RI,708) EVPNAM, COMCCC ,D ASh
.EO . 2)
,PNAM2(2),PNAM?(2),(EFRETM(2,I«),IM=1,6),

.E0.3)
,PNAMi'(3),PNAM3 (?-), (EFRETtf(3,IM) , IM = 1 ,6) ,


n
DL.UDR
ICl),IDLNM2dfi ),IDLNM3(IG),(IDLRTC(IQ,IM),
1,3)










1
,OUTOO&10
OUTOOS20
OUTOOE30
,OUT 00840
OUT0065U
OUT00860
OUT00870
OUT00880
OUT00890
OUT00900
OUT0091C
OUT00920
OUT00930
OUT00940
OUT 00950
OUT00960
OUT00970
OUj 00 98 Q
OUT00990
OUT01000
OUT01010
OUT01 020
OUT01030
OUT01 0*0
OUT01050
OUT01060
OUT0107C
OUT01080
OUT01090
OUT01 100
OUT01 110
OUT01120
OUT01130
OUT01 UO
•* i^ 1 1 T r^ 1 1 *\ r*i
"UUIUI I-?U
OUT01160
OUT01 170
OUT01 180
OUT01 190
OUT0120U
                                                                           SOURCE  CODE  PAGE     1 t9

-------
     A.          ISMAP  MOD^L          COMPUTER  PROGRAM SOURCE  CODE,     ENVIRONMENTAL PROTECTION A GE N


A
1203
7V080
*
C
899
C
r
c

C

0
V
c
F
C



I

1
C 1
F
c
i i T r
(EF
ONT I
ORrtA
F3 .
OKT



I



F(UN


(PR T
07 I
R E T P
NUE
T(1 X
O.lx
NUE



FFLG

FL
PN
I »
(I
f F




.E
G
X
7
P
5




G
.E
= 1
n . n )
PP1 , 1
^050) I
N x , i n ) ,
.1




.1
,1 X,F




) WRI

IPPZ -i
PF2
REJ^,C.Y,SPD,TEMP,PCCO.PCHS»FCCC,IPNX,
If=1,6).VMTniX,WTEDf: F(IPNX)
5.1,1X,F5.1,1X,I1t6F6.1.6F6.3tF7.2)




TE(IWRUNF) EFRETMfWTEDEF

OUT01
OUT01
OUT01
DUTCH
OUT01
OUT01
OUT01
OUT01
OUT01
OUT01
OUT01
OUT01
OUT01
OUT01
t*********oiiTni
210
220
230
240
250
260
270
280
290
300
310
330
340
350
•*Afl
701    FORWAT('1~,20A4/)                                                     OUT01370
7011   F OR»lAT('1'f 20A4 )                                                      OUT01380
C                                                                            OUT01390
7029   FOR»1A T(32X, 'VEH . TYPE:   LDV   LDT1   LDTZ  HDG    HDD    MC')         OUT01AOO
C                                                                            OUT01A10
70T    FOFMATC  CAL.  YEAP:  1« ' , I ? , 5 X , 'TEf P :  ' , FA . 1.                       OUT01A20
     *   '(F )',SX,5 (F5 .3,'/'>, Fc.7,                                         OUT01A30
     *   /1X,'  REGION:  't?A4,4x,F4.1,'/',F4.1,'/',F4.1,                    OUT01AAQ
     *   '  MPH  ','(', F4 ,U')'.7X,' ' ,F5.1 ,'/', F5.1 ,'/' .F5.1  )             OUT01A50
f                                                                            OUT0146Q
70?5   FORHATC  CAL.  Y^AR:  11? ' , 1 2 , 5 X , 'TEM P :  ',FA.1,                       OUT01470
     *   '(F )',8X»5 (F5 .3,'/'), FT.7 ,                                         OUT01480
     *   /1X,'  REGION:  '.TA^ ,^ X ,F4 .1 ,' :', FA.1 , '/'. FA .1 »'/', F4.1 .          OUT0149Q
     *   '  MPH  ','('?F4.1 , ') ', 3X,' ' ,F5-.1 ,'/', F5.1 »'/' ,F5.1  )             OUT01500
704    FOFMATC"   AC :' , F6. 2,cX , 'XLOAD: ',3F7.2.2X, 'TRAI LR :',                OUT01510
     *   F7.2,2Xt'A6SHU^',F7.2)                                            OUT01520
C                                                                            OUT01530
7C5    FORKATC   HGWG T : ' , F 7 .0 , ?X , 'H DW GT : ' , F7. 0 ,2X , *H6 C I D : ',               OUT01540
     *   F7 .Z.2X,'HDCI D :'. F7.?)                                             OUT01550
C                                                                            OUT01560
7051   FORMATC   LDV  I /M  PROGRAM STARTING  IN  19', 12,                      OUT01570
     *   ',  STRINGENCY  LEVEL  ',12,'%,  I^ECH. TRAINING:  *,A4)                OUT015EO
C                                                                            OUT01590
7052   FORMATC'   I /H  PROG.  BENEFITS APPLY  ONLY TO MODEL YEARS  19'.       OUT01600


                                                              SOURCE CODE  PAGE     1 7O

-------
ft: NO IX A
                   1SF AP MODPL
                                                 PROGRAM SOURCE  CODE,
                                                                           ENVIRONMENTAL  PROTECTION A GEN*
     *   12-' THROUGH 19',I?)
70?c  FOFKA TC~0~,rZ>X.9A4 )
C
706   FORIATC  *,15X,*LDV       LPT1      LDT?      HDb
     *        KC     ALL  "ODES')
C
707   FOfcMAT«1X,2A4,A?,*:"t*(F7.2,2X),lXfF8.2>>
C
708   FOFWAT(1X,2A4,A3.':',6(F7.2,2X),5X,A«)
C
709   FOPMATC'0*,16X,4A4.£A4)
C
710   FOPMATC  	
     *-	')
C
(
C     DEBUG  SUBCHK
      RETURN
                                                                HDD
OUT01610
OUT01620
OUT01630
OUT01640
OUT01650
OUT0166Q
OUT01670
OUT01680
OUT01690
OUT01700
OUT01710
OUT01720
OUT01730
OUT01740
OUT01750
OUT0176Q
OUT01770
OUT0176Q
OUT01790
                                                                SOURCE CODE PAGE
      171

-------
AP P£
 I X
                    AP
                                           COMPUTER  PROGRAM  SOURCE CODE,
ENVIRONMENTAL PROTECTION AGENt
       SUPROUTINb EFCALX(CY,L'vK.nTA,MS,EFRFTri,WTFDEF,CCRET^,lDLRT«,IDLWTD
     f   IK]FLG)

       COMKON/FLGCOK/ALTFLG,ALHFLG,TKKFLG»1RDFLG,SP3FLG,NMHFLG,1DLFLG»
     *                UNFFLG.MYMPFG,IKFLG,ICF_VFG,PRTFLG,IFORM
       C O^KON/CEVCOM/CCEV
       C OCKiON/PEGCOM/I REJN
       C 0«MON/BEFCC>M/3E F
       COMHON/IDLCOM/IOLBEF
       COI»rNON/MYfiCOM/MYM,NYP,TF

       INTEGER MYP  ,  P  ,   (YP
       INTEGER ALHFLG,TRKFLG,ALTFLG,ALTKODU,20),CY,MSFLG,SP3FLG,
     *          NMHFLG,IOLFLG,UNFFLG,KYKRFG,PRTFLG

       REAL  IOLPEF(20,26,3.6).IDLFAC(20,3,6),IDLCMP(3.6),IDLWTO(3)
       REAL  IOLRTM(3,6)
       REAL  COMPCC(20,6).CCRETM(6)
       REAL  CFRET(ZO,3,6)
       REAL      BE F (20,26,3,6) ,      CCEVU5,6),
                CEFLDV(3),           CEFLT1(3),
                CEFLT2O),           CEFHDC-(3),
                CEFHDD(?),           CEFKCC(7),
                EFftET*! (?-,£ ) ,         COHPEF(20.3 ,6) ,
                COMPMY(3,6),         LNKDTA(7),
                MY^(20,6),           MYR(20,6),
                MS(6),                PCCO,
                PCCC,                 PCHS,
                SFD(3),               TEKP,
                TF(20,6),            TFNORM(6),
                WTEDEF O)
       D I MEN SI ON R1(20,3,6),R2(?0,3,6),XISPO(11)
C
C
C**
C
         ************************** * + ***********************************•**•**

            5PD(1 )  = LNKDTAd)
            SPD(2)  = LfJKDTA(2)
            S PD(3)  = LNKOTA(3)
            TEMP    = LNKDTA(
-------
     A.          ISVAP MODFL          COMPUTER PROGRAM  SOURCE CODE*      E N VI R O N!"I E N T A U PROTECTION


       PCCO     =  Lf,:KDlA(5>                                                    EFC00410
       PCHi     -  LNKDTA(6>                                                    EFC00420
       PCCC     =  LNKDTA(7)                                                    EFC00430
C                                                                              EFC00440
C                                                                              EFC00450
             CALL  BIGCFX(fY,TFMP,PCCO,PCHS,PCCC,SPD,CFRET,INIFLG)          EFC00460
C                                                                              EFCOCU7G
       XItPD(1)=5.0                                                            EFCOO^eU
       X1SPD(?)=5.0                                                            EFC00^90
       XIEPDO)=5.0                                                            EFC00500
       XITEMP=75.0                                                             EFC00510
       X1FCCO=D.O                                                              EFC00520
       XIPCHS=0.0                                                              EFCQ0530
       X1FCCC=0.0                                                              EFC005AU
       INIFLG=0                                                                EFCQ0550
       CALL EIGC FX(C Y.TCI^P ,PCCO ,PCHS .PCCC.XISPD «R1 ,]Nl FLG)                 EFCQ0560
       CALL BIGCFX(CY,XITFMP,yiPCCO,XIPCH<:,XIPCCC,XISPD,R2,INIFLG)         EFC00570
C                                                                              EFC00580
       CYP = CY -  69                                                           EFCOC590
C                                                                              EFC00600
C                                                                              EFC00610
       DO 5 OOP =  1,3                                                         EFCOD620
                WTTDEF(^) =  0.0                                              EFC00630
                JDLWTD(P)=C.O                                              EFC00640
          DC AOO  f.  =  1 f *                                                      EFC0065C
                COfPMY(P,r)  =  0.0                                            EFC0066Q
                IDLCMPCP,")  =  U.O                                            EFC0067Q
       IF(P.£G,1)  CCRETK(n)=G.                                                EFC00680
             00 500  I =1,20                                                  EFC00690
f                                                                              EFC00700
       MYr=CY-(?0-l)-5Q                                                  EFC00710
C                                                                              EFC00720
                IF  (P.E0.1)  GO TO 313                                       EFC00730
                GO  TO 444                                                     EFC007AO
f                                                                              EFCQ0750
33?    C OM F E F ( I , P , ^ ) = ( 0 E F ( 1 , C Y P , F1, M ) * C F f< E T d , f' , M ) * C C F V ( M Y F , M) ) * T F < I , M )   E F C 00 7 6 0
       C OKPC C < I ,tf>   --c crv(MYp, f ) *TF ( 1 ,f )                                     EFC0077G
       GO TO 555                                                               EFC00780
444    C OMPF F( I ,P,h, )^(br F ( I , CYP ,P,M ) *C FPFT (I ,T ,M)              )*TF(I,M)   EFC00790
C                                                                              EFC00600


                                                               SOURCE  CODF PAGE     173

-------
 > i y  A .
          I S n A P  r n D F L
                                       COMPUTER PROGRAM SOURCE  CODF,
ENVIRONMENTAL PROTECTION  AGEN>
ACT
C
500
f
60 r
C
C
C CM I fvl'E

IDLFAC(I,P,f')=JDLeEf(l,CYF,P,M)*Rl(I,P,M)*TF(I,K)/PZ
I ILCMPCP ,K) =  IDLCVPCP.M)  +  IDLFAC(ItP,M)
IFCP.E0.1) CCRET^C^1} = CCRFTFKM +'  COMPCC(IfM)

       CONTINUE
WTEDEF(P)  = WTEDEF(P) +  C OM PM Y ( P ,M ) *tfS ( M )
IDl>TD(P)  = IDLWTD(P) *  ICLCrp(P»M)-*MSCM)
   C OKTINUt

C ( NT I NUE

DO tCO  M  =• 1,6
DO 500  P  = 1,3
  FFRFTM (fj,r-i)  =  COKpfiY(P.M)
  I D L R T M ( P , M )  =  IDLCMP(F.M)
f OMI NUE
      R fc T U R N

      Ef.D
   E FC0061C
   E FCOOe?0
   EFC00830
   EFC0084Q
   EFC00850
   EFC00860
   EFC00870
   EFCOOgSO
   EFC00890
   EFC00900
   EFC00910
   EFC00920
   EFC00930
   EFC00940
   EFC00950
   EFC00960
   EFC00970
   EFC00980
   EFC00990
   EFC01000
   EFC01010
   EFC01020
   EFC01030
   EFC0104Q
   EFC01050
                                                                SOURCE CODE  PAGE
                                                                               174

-------
Af re NO i
                       1 SMA P  MOD F L
                                                       PROGRAM SOURCE CODE
ENVIRONMENTAL  PROTECT TON A6ENC

C










C




C
C
C
C












C

C
C
( *

S IF ROUTINE fJGCFX(CY,T,PCCO,

CCKMON/FLGCOM/ALTFLG,ALHFLC.
* UNFFLG,KYMPFG,
COMMON/ALTCOP!/NMYALT,ALTKOD
C OMHON/REGCOM/IREJN
eOWr,ON/JUNKl/AC,XLPAD,TRAlLR
CGMMON/JUNK2/HGWGT,HDWGT,HGC
COMMON/RFT1/ALHRET(20,4,7)
C OKFON/RET2/TRKRET(20, '• , 2)
COF"HON/SP1COM/SP1,SPAV
C OM M 0 N / M Y M C 0 1" / 1 YK , 11 Y R , T F

INTEGER ALHFLG.TPKFLG ,ALTFLG
* NKHFLG, IDLFLG .UNFFLG
INTEGER INITFL,IEQNAR(45.3,3
INTEGER CY,G(45,7,4)
IK G * 1ST INDEX IS KY, 2ND IS RE
IN IECNA.R, 2ND INDEX IS POLLUTAN
IN HDINDX, 2ND INDEX IS REGION (

REAL COMCCC (6), A (20 .3 ,3 ) ,U(2
* L(3 ,3) ,H(3)
REAL XLOADO)
REAL COMPEF (20,3 ,6)
REAL W,T,SPD (3) , SPr (7), C ^ R (: T
PEAL D1U, 3), 02(4,7)
REAL MIDDLE, LEFT
PEAL 5 F B A C K ( 1 5 , 3 , 3 ) . C PP 0 T ( 1 1
PEAL ATRU,3t2)fF1T'?U,3t?).C
PEAL C(A,8,3)
REAL CUMPUL (20,6) ,VYr (20 ,6) ,
INTEGER MAX AGE (4)

DATA KAXAbE /1 9, 1 °, 1 9 , 1°/


+ COE F F1C I ENTS IN SP E r. D / T CMP / COL D
DATA C/
PCHS,F'CCC,CFD,CFRET , INTTpL)

TRKFLG.IRDFLGrSP"' FLG.Nf-1HFLG .IDLFLG,
IHFLG,ICFVFG,PRTFLG,IFORM


, ABSHUM
I Dt HDCID





,ALTKOC)(4,20),CY,MSFLGtSP?FLG»
,MYMRFG ,PRT FLG
, 4) ,HDINDX(45,^)

GION, AND 3RD IS MODE
T, 3RD IS REGION, *>TH IS MODE
NOT FUNCTION OF POL. OP MODE)

0,3,3),



(20,3,6)


,3, 3)
T R ( 4 , 3 , 2 )

MYP(20,6),TF(20,6)





START FACTOR: tQN« IHDEXf POL •

BIGC001 0
BIG00020
EIG0003G
BIG0004Q
BIG00050
BIG00060
BIG00070
BIG00060
BIG00090
BIG00100
BIGOP110
BIG00120
EIG00130
BIGOOUO
BIG00150
B IG00160
B I G 00 1 7 0
BIG0018C
BIG00190
B IG00200
BIG00210
BIG00220
B1G00230
B I GOO 240
BIG00250
BIG0026Q
B IG00270
BIG 00280
E-1G00290
BIG00300
BIG00310
B I 600 3 20
BIG00330
BIG00340
BIG00350
EIG00360
BIG00380
B I GOO 390
BIGOOAOO
                                                                       SOURCE CODE  PAGE
           175

-------
NO] X A .
ISM AP MODfL
COMPUTER  PROGRAM  SOURCE CODE,
ENVIRONMENTAL  PROTECTION  AGENC

















C
c


c
c















c

4
*
*
4
*
4
*
*
4-
*
4-
4
4
•4
*
4
*

**COEF
D
D

*+SPEE
D
*
*
*
*
*
*
*
*
*
*
4
*
*
*

D
2 .
-3.
D.
(, .
5 .
c.
-b.
-14
4
c
c1
- 0 .
,1
3 .
1 .
D.
Ci.

FIC I
ATA
ATA

D CO
ATA















ATA.
V71000, 2.931000, 2.433900, 1.993*00,
01 47 79, -0. 014779, -0.023591 , -0.022269,
673.-2.41D, 0. 623. -f.032 , 0.569, P. 863
750. 2.430, 1.110, C.497, 0.303, 0.555
690, 2.610, 1.050, 0.?43. C.471, 0 . 597
654FGO. 5.654°00, 5.5460UO, 4.239100,
01 5965. -0.015965, -0.028945, -0.017522,
.74, -33. 89, 11.29, -0.20, 9.62, 9.77
.24, c.99, 42. P4, 25.26, 15.85, 4.12
.76. 4.71, 2.34. 2.20, 57.57, 35.90
.17, 3.96, 7.74, 6.70, 3.13, 2.12
10E+03,-0.1PE+03,-0.10E+03,-0.10E*03,

260, 3.050, 0.0 , r.O , 0.335, P.31E
250, 1.260, 2.99U, ?.3BO, 0.0 , 0.0
1RA, 0.180, O.S10, C..1GO, 1.890, ?.010
0 ,0.0 , 0. 116. n. 126 /

ENTS IN DENOMINATOR OF S PC E D/T £f ?f C OLD
D1/5.67,2.fa,1.3fi,.54,56.43,36.4,23.7,6
D2/.47,.64,.2?,.2:',7.r9,6.79.3.14,3.l4

RPECTION FACTOR INDEX: C AL . YR., REGIC
G/15*2, 2, 2, 4, 5, 6. 7,14,17,17,12,1
15*2, 3, 3, 4, 5, 6, 7,13,16,16,18,1
15+1, 1, 1, 3, 9,10.11,12,15,15.18,1

15*2. 2, 2. 4, 5, 6, 7,14,17,17,18,1
15*2, 2, 2, 4, 5, 6, 7,13,16,16,18,1
15*1, 1, 1, 8, 9,10,11,12,15,15.18,1

28*14,17+15,
27*13,18+18,
2^*12,17*18,

15*2 , 2, 2, 2, 2 , 2. 2 , 2, 2 , 2. 2,
15*2, 2, 2, 2, 2 , 2, 2, 2, 2, 2, 2,


1FQNAR/17*1, 7*2. 5*3. 16*4. 17*1. 7*2. 5*


.
,
,


,
,
,
,


,
,
,
,


S
.9
.0

N,
8,
a.
8,

8,
8,
8,





2,
2.
1

3.


0»
0.
0.













TA
8,
• 9

M
18
18
15

15
18
18





2
2


16


3
2
2













R
1
0

0
,
,
,

,
,
,





,
,


*


0
?
7













T
*
•

D
1
1
1

1
1
1





1
1
1

4


1,
4,
0,













F
,1
, .

E
8*
8*
8 +

8*
8 +
8*





8*
b*
8 +

» —


0.445,
0.357,
0.175 ,













ACTOR
.,2.47,2 .A6/
18 ,.1P/


18,
18,
18,

18,
18,
18,





17,
16,
15 /
l J f

B
B
B
B
B
B
B
B
B
B
B
B
P
L>
B
B
B
B
B
B
B
B
B
B
B
B
B
B
B
B
B
B
B
B
B
B
B
B

B
e
IG00410
IGOOA20
IGOOA30
IGOOAAO
IGOOA50
1600*60
IGOOA70
IGOOA80
IGOOA9Q
IG00500
IG00510
IG00520
I GOO 53 0
,1 W v W ^ -J W
IG005AO
IG00550
1G00560
I GOO 570
IG00580
IG0059Q
IG00600
IG00610
IGQ0620
IG00630
16006AQ
I G 006 50
IG00660
IG00670
IG00680
IG00690
IG00700
1G00710
1600720
1G00730
IG007AO
IG00750
1G00760
IG00770
TC nn 7 M fi
* o UU f " U
IG00790
I GOO 300
                                               SOURCE CODE  PAGE
                                                                      1 76

-------
     *             17*1,7*2,2*3.19*4,  15*1,9*2,     21*4,                BIG00810
     *             15*1,9*2,     21*4,  15*1,9*2,     21**,                BIGQ0820
     *             17*1 ,7*2,5*3 ,U*4 ,  17*1,7*2,5*3,16*4,                B1G0083.0
     *             17*1,7*2,2*3,19*4,                                     EIGOC&^u
     *             17*1,7*2,21*3,       17*1,7*2,21*3,                     EIG00850
     *             17*1,7*2,21*7,       17*1,7*2,     21*4,                BI600860
     *             17*1,7*2,     21*4,  17*1,7*2,     21*4,                BIG0087Q
     *             17*1,7*2,21*3,       17*1,7*2,21*3,                     81600880
     *             17*1,7*2,21*3,                                          BIG00890
     *             28*2,17*3,           23*2,17*3,                         BIG00900
     *             28*2,17*3,           27*2,1F>4,                         BIG00910
     *             27*2,1**4,           27*2,1^*4,                         BIG00920
     *             25*2,17*3,           25*2,17*3,                         BIGOQ930
     *             25*2,17*3,                                              BIG 00940
     *             27*1,18*2,27*1,18*2 ,27*1,1F*2,                         EIG00950
     *             27*1,1C*2,27*1,18*2 ,27*1,1?*2,                         BIG00960
     *             ?7*1,1"*2,27*1,18*2,27*1,1P*2   /                       BIG00970
C                                                                          BIG009PO
      DATA  HDIN OX/1 9*1,4*2,5*3.17*A,                                     BIG 00990
     *             19*1,4*2,1*3,21*4,                                     EIG01000
     *             19*1 ,4*2 ,5*5 ,17*4   /                                  BIG01010
C                                                                          B1G01020
C                                                                          B1G01030
(••**•********•*********** + •*** + •»************** + ************* ****************BIG01040
C                                                                          BIG01050
      I FCINITFL .NE .1)  GO  TO 177                                           fcIG01060
C  HERE  1ST  TirE                                                           8IG01070
      INITFL = 0                                                           BIGQlOSO
      S FE'd ) = Z6.0                                                       BIG01090
      SFP(2) = 16.0                                                       BIG01100
      SFT(^) = 26.0                                                       B1G01110
      CALL  SPFCLX(SPEt,SPBOT)                                              BIGQ1120
C                                                                          BIG01130
C                                                                          61601140
      CALL  GFTCUM(CUMMIL)                                                 BIGQ1150
C                                                                          BIG01160
C                                                                          BIG01170
C***********************************************************************B1G01 180
C                                                                          81601190
177   CONTINUE                                                            BIG01200


                                                             SOURCE CODE  PAGE     177

-------
NDIX A.          ISNAP MODFL          COMPUTER  PROGRAM SOURCE  CODE,      ENVIRONMENTAL  PROTECTION  A6ENC1


 C                                                                             BIG01210
       CALL  SPFCLX(SPD,SPRACK)                                               BIGQ122C
 C                                                                             PIG01230
 (                                                                             BIG012AQ
       I F (ALHFLG .E <- .1 ) CALL  AL U H ( C Y , AC , X L 0 A D t T R A I LR » PC C 0 , PCC C , A F SH III"1)     B1G0125Q
 (                                                                             BIG01260
 (*******
-------
Af f£ NO J X A
                     ISMAP MOD E U
                                          COMPUTER PROGRAM  SOURCE  CODE
ENVIRON* EN 1M-  PROTECTION * GE *
               JGX  =  G(I*YC, I FE JN , I'^ODE )
     C
           PC  500  IP =  1,3
     C
     C**DEFAULT
     C
           IE6N  =  1EQNARCMYC,IP.IKEJN,IMODE>
     C
     c****************************************
     C
           IF(ALTFLG.EG.O) GO TO 777
     r
           DO  450  ICH = 1, Nf«YALT
           I f (ALTKODd ,ICH) .EO ,I*V)  GO  TO 877
     450   CONTINUE
           GO  TO 550
     877   CONTINUE
     O*HERE  FOR ALTERATION
           I ALT  =  ALTKODCIP+1,ICH)
     C
           IF(IALT.EQ.O) GO TO  777
           IF(IALT.EQ.1) IEQN =  3
           I F(IALT.GT.1) I EON =  4
     777   CONTINUE
     C
C
550    CONTINUE
C
       FACL  = FCO
       FACM  = FHO
       I FdEQN.LT.2) GO  TO  88£
       FACL  = FCC
       FACM  = FMC
888    FACR  = (1.0 - FACL -  FACr)
C
C***********#********************************
C
       DENOM  =  D1(IEON,IP)  +  DI < I FON , IP ) *VMTAGI
C
   EIG01610
   BIG01620
   EIG01630
   BIG0164C
   BI601650
   BIG01660
   BIG01670
   BIG01680
   BIG01690
   BIG01700
   BIG01710
   BIG01720
   BIG01730
   BIG0174Q
   BIG01750
   BIG01760
   B1G01770
   BIG01780
   BI601790
   BIG01800
   BIG01810
   B1G01820
   BIGOtS30
   BIG01840
   BI601&50
   BIG01860
   BIG01870
   BIG01880
   BIGQ1890
   BIG01900
   BIG01910
   BIG01920
   BIG01930
   BIG019AQ
   BIG01950
   BIG01960
                                                                                BIG01980
                                                                                BIG01990
                                                                                BIG02000
                                                                  SOURCE CODE  PAGE
          179

-------
APPENDIX A.            ISN.AP MODEL            COf'PUTER  PROGRAM  SOURCE  CODE,       E N VI h 0 Nv E N T AL PROTECTION A GE N

c
c


c
c


c

c
c

c

c

c

c

c
500
C
C* * *
* * '
c
c
c
c
c






c

LEFT -- FALL * ( E * P C C ( I F 0 " , 1 , I f ) + T * C ( I E ° N , 2 , I P > > + C ( I F.C5 N , 2 , 1 P ) +
* C ( 1 EKN ,4, J D* vr-TiGI ) * SPE-ACK(Z,1,IP)/SPr!OT(2,1,IP)

^lDDLE-FACM*(C(JF3r\',5fIP)+r(IEQN,6,JP) + VMTAGE)
* *SPbACK(IGX,",Ip)/-:pPOT(lOX,3.IP)


RIGHT=FACR*(C(IEON,7,IP)-»C(ie&N,£,IP)*VMTAr;E)
* *SPBACK (IGX.2.IP)/SPl'OTUGX.2,IP)

TCP = LEFT + fUDDLr + P 1 G H T


FACTOR = TOP/DENOM

I FULHFLG.EC. .1 ) FACTOR = F A C T OP + AL H R F T ( I , 1 * 00 E , 1 P )

^OD2 = IhODE

IF(INODE.EQ.A) I^OD2 = 6

C f RETCI ,IP, irOD2) = FACTTR

CCMTI NUE

fc + *wTk£fc^ '^1*'*'**i*'1**'A'A'A'>TA--* •*•* •*•* A^A1*'* •* *A •i-^-A*'A' + -Ap-A -A *•*•* -ft -it •#•* -Aik- *iA'**-^ik'A-i*-'A'+-A-'^^-A-^^

FOR MOOES A AND 5


DATA ATR/ 2. Ac. 1.14. 1 . r: 6 , 1.54,
* 1 .74, 1 .54, 1 .24, O.A2f
* .L51, .S1Z, . £?D, .76 A,
* 0.94,0.^4, . «? Z 0 , 1 . 2 0 ,
* 1 . A A, 1 . A*. , 1.20,1.44,
* 0.62, H./ 2, 0.72, 1.00 /

DATA PTR/ -.153, -.065, -.0*6, -.071,
e i GO? 010
GIG 02 020
E 1602030
B1G020AO
B JG02050
BIG02060
61G0207Q
B1G02Q80
BIG0209Q
BIGOP100
BIG02110
B JG02120
P1G02130
P1G021 AO
EIG0215U
B 1 G 02 1 6 0
BIG02170
BIG02180
BIG02190
BIG02200
PIG02210
BIG02220
B1G02230
BIG02240
BIG0225Q
BIG02260
kn> T/*M^O7n
B IG DC c f U
BIG022SO
BIG0229G
BIG02300
BIG0231C
BIG02320
BIG02330
BIG0234Q
BIG02350
B1G02360
B1G02370
DIG023SO
BIG02390
61602*00
                                                                              SOURCE CODE PAGE 	1.8O

-------
      •fr           _  1 1 "7     '"iO'7     ,~\ ~7 -     O7P
                 — • I I f »  — m J t ,   - • U f C ,  — . n J) C ,
      *           •!." C 7 <• »  . r' ijc 4 ,   . C' 0 • j 1 •  • 01 i.' 0 ,
      *           -.055,  -.055,   -.051,  -.072,

      *           -.043,  -.043,   -.054,  -.074  /

      DATA  CTR/ .0016,  .0004.  .0009,  -.0003,
      *           .0015,  .0010,  .0003,  .0004,
      *           .0000,  .9000,  .onoo,  .0000,
      *           .0004,  .0004,   .0005,  .0^06,
      *           .roio,  .nuio,   .ouoe,  .000?,
      *           .T006,  .0006,   .0009,  .0012  /
       I F (TRKFLG .EO . 1 )  CALL  T« K OPC ( C Y , HC I, f,T , HH U GT , HG Cl D , HD C I D)
C      IF(SP3FLG.E6.0)  SPAV  = SPD (1 ) / ( 1 .37773^6 -  (PCCC* .7O/79•421)
       IF(SP3FLG.EQ.O)  SPAV  = 3P1
C      I F (SPZFLG ,EQ .1)  SPAV  = S P t) ( 1 ) / ( 1 . 4 1 11 44 0 6 -  ( PC C C* . 0041 1 1 44 06 ) )
       IMSP3FLG.E&.1)  SPAV  = SPD(^)
C      I F (SF3FLG.EG .1)  SPfV  = A v I N 1 ( SP D (1 ) , $ PD ( 2 ) )
O**ELIf"INA TE  TWO L1MEC  ACOVF
C
C
       DO  700 I M 00 F=  A,5
       ir  =  IVODE-?
          DO  700 IP =  1,3
c
       I f- Y 1  = C Y -1 9
               CO 700  ItfY  =  IMY1,CY
       IMYP  = IMY - 50
       IF(U'YP.LT.I) I M Y P = 1
C

C

C

C
         I A  =  20-rCY-IMY)

    1NDX  =  HDINDV (IMYP, I r E J N' )

I F(IP .FQ .3.AND. l^ODE . E'J .4 )  GO  TO 7?b

C FPET (I X ,IP, INODF ) =  EXP (ATR( INDX,IP,I»)  *
  PTR (INDXTIP,1M)*?PAV  -»•  CTR ( IN D X , I P , Iv ) * S P A V *S P A V)
B IG02410
E IG0242G
E IG02430
BIG02440
E• J602A50
BIG02460
BIG02470
BIG024SO
BIG02490
BIG02500
fcIG02510
BIG02520
BIG02530
BIG02540
BIG02550
BIG02560
BIG0257Q
BIG02580
B1G0259Q
BIG02600
BIG02610
BIG02620
BIG02630
BIG02640
B1G02650
B1G0266C
B1G02670
B IG02680
BIG02690
E1G02700
B1G0271C
BIG02720
BIG02730
B1G0274Q
BIG0275U
tIG0276Q
BIG02770
BIG0278Q
B 1G0279U
BIG02eOG
                                                              SOURCE CODE  PAGE
                                                                             181

-------
APPENDIX A .
                       I ? l A P  N 0 0 f L
COrPUTER  PROGRAM SOURCE CODE,       ENVIRONMENTAL  PROTECTION A&EN
      C
             C (  TO  ( 'c r
      770    CCMTIMIE
      C
             C F PL T (I X , IP , IPODr ) =  ATR CIML'X ,1 P , If )  * L T R f I W DX , I p , I *. ) * S F A V
      C
      6.-. P    CONTINUE
      C
             IFCTRKFLG.EC.1)  C F R E T ( I X , I P , I K'O D E )  =  CFRET(IX,IP,ir;OOE)*
      7CT    C CM! I NUE
             RETURN
      C
      f       DEBUG SUP.CHK
                                          fc IG02c 1 0
                                          B 160? 8 50
                                          BIG0266LI
                                          BlG02d70
                                          BIG02&PO
                                          BIG0289G
                                          bIGO?90U
                                          6IG02910
                                          BIG02920
                                          BIG0293U
                                          BIGO?95C
                                          B IGO?96Q
                                                                        SOURCE CODE  PAGE

-------
       rUJROUTINEINITEVChMYALT.ALTKOO)                                  I NX 00 010
(                                                                                I NX00020
       CC**ON/FLGCer/ALTFLG,ALHFLG,TRKFLG,IRDFLG,Sr:!FLG.NMHFLG,IDLFLG.    I NX 00030
     R  I'NF FLGttfYMPFG, ICEVFf, ,r>RT| LG , IFCFM                                    INXOOG4C
       INTEGER  ALHFLG,7PK. FLG,ALTFLG.ALTKOD(4,2C>,CY.MSFLG,SP3FLG,         INXQP050
     *          NtfHFLG.IDLFLG,UNFFLG.KYrRFG                                   INXODOtU
C                                                                                INX00070
       CALL  bEFGEN                                                              IhXOOOPO
c                                                                                i NXor090
       CALL  CCEVAX                                                              1NX001CO
C                                                                                I N X 00 1 1 0
       IF  (ALTFLG.CO .1 )  CALL EF.«LTX(  N^ YAL T , AL T KOO  )                        INX001PO
C                                                                                JNX00130
C                                                                                INXOOUO
       RLTURN                                                                   JNXOD150
C                                                                                1NX00160
       END                                                                      INX00170
                                                                 SOURCE CODE  PAGE     183

-------
AF PF KDI X  A .
                      1 S !•', A F M 0 D F L
                                COMPUTER  PROGRAM SOURCE CODEt
ENVIRONMENTAL PROTECTION A6E>
     P10
     c
     850
     C

     C
     f
     c
                        TFCALY
C C?*rON/MYMCCM/« YM ,f YF ,T F
fcEAL  TFNORM(6),MYM(20,f) ,NYK(.-0,6),TF(?0,6)

DO E50 M = 1 ,6
       TFNORM(M)  =  0.0
   DO  810 I = 1,20
       TFNORM(f')  -  TFNORM(M)  •»  f YM ( I ,M ) * M YR ( I , M)
   DO  820 1 = 1 t?0
       TF(21-I,M)  = (  KYM (I ,M)*f^YR (J ,M)  )/TFNORM(M)

C CNT I NUE

RCTUPN

DEBUG  SUPCHI-
            END
   TFC00010
   TFC00020
   TFC00030
   TFC00050
   TFC00060
   TFCOC070
   TFC00080
   TFC00090
   TFC00100
   TFC00110
   TFC00120
   TFC00130
   TFCOOUO
   TFC00150
   TFC00160
   TFC00170
   TFC00180
   TFC00190
                                                                     SOURCE CODF

-------
       SL/BRPUTirjESFFCLXCSP/'RA.'-ppACK)                                       SPF00010
       (OfNON/ACOf-'/A                                                           SPF00020
       REAL SPARACJ) ,SPrACK(1P , 7»?) ,A(6,1Tt3)                               SFF00030
C                                                                               SPFOOOAG
       DO 30  IP  = 1,3                                                          SFF00050
          D020lG=1,1g                                                      SPF00060
                JGG = IG                                                        SPF00070
            DO  10 IS =  1,3                                                    SFF00080
                  SUM =  A(6,IGG , IP)                                            SFFOOOCQ
                  S = Sp/^RA (IS)                                                SFF00100
                DO c  I =  1 , 5                                                   SPF00110
                 SUf-  = SUK*S +  A (6-J , 1GG,IF )                                 SPF0012Q
5               CONTINUE                                                        SPF0013Q
              SCF=EXP(SUf^)                                                      SFF00140
              IF(IP.EQ.3)!TCF=SUfi                                             SPF00150
              SPFJACK(IG,IS,1P)  =  SCF                                          SPFOP160
10          CONTlNUF                                                           SPF00170
20        CONTINUE                                                             SPFOOIbO
JO     CONTINUE                                                                 SF'FOQ19Q
       RtTUPN                                                                   SPF00200
C      DfcPUG  SUPCHK                                                            SPF0021Q
       END                                                                      SF-FDD 22Q
                                                                 SOURCE  CODE  PAGE

-------
rrr M^DTL           COMPUTER  PROC-RAf SOURCE  CODE.      ENVIRONMENTAL  PROTECTION  A&ENC
c








c





c




c








c
c

c
c
c
c
c
c
c
c
c
c
c

R
p
R
R
P

I
A
I
I

P
0
*
*
*
*
*
*


C


( [ K 0
C >' P, 0
c * iV o
OPKO
GK^O
0*MO
OPKO
OPMO
I' *S X 0
CM MO

tAL
EAL
EAL
EAL
EAL

NTEC

NTEG
NTE G

ATA
ATA








ALL


IIT J f. L
N/RFGC
M/BEFC
N/FJASE
N/DELC
N/IDLB
N/ I OLD
N/I DLC
N / I N D X
N / M Y M C

E-ASE3R
IDLFJ3R
MPNtfTH
BE F (20
CUMMIL

EP ALH
NIMH
EP IND
ER I^AX

M A X A G E
NONMTH








GF TCUM


0
C
C
0
c
c
0
c
0

(
(
(
«
(

F
F
X
A

/
/








(


M
M
M
M
M
r
ff*
h
M

1
1
4
*1
2

I
L
7
G

1









C


r
/
/
/
/
/
/
/
/
/

0
0
5
L
0

G
G
P
E

9

2
2
2

4
4


U


U
i
&
o
0
I
I
I
I
V

»
t
»
»
«

t
«
(
(

t

4
4
C
4
5
5


M


R
E
A
E
D
D
0
N
Y

3
7
_J
6
3
6

T
I
3
6

1

*
*
*
*
*
*


K


E
F
C
L
L
E
L
D
n

«
t
)
•
)

p
L'
n
)

o

•
.
.
.
t
•


I


Ft. G,ALHFLC,Tf'KFLG.IRDrLGt';F'TFLG.MfHFLG.IDLFLGi
F L b , N Y f i r F G , I ,' . F L G . I C E V r G , P P T F LG , I F 0 RW
JM

E7 R
3R
13? R
L7 R
Br F
X7 R
, '«• Y P , T F

6,3) ,OLL3P (10,3,6,3)
6 , 3 ) , I D E L 7; R ( 1 0 , 3 , 6 , 3 )

6) , IDLfcEF (iiO ,26 ,3,6)
,*UM?0,6),MYR(20,6),TF(2n,6)

KFLG,ALTFLG,C,SFLG,SP3FLG,
LFLG,UNEFLG.NYKRFG,PRTFLG
, ? , £ , 3 >


,19,1?, 19, 19/

95 , 2 1 * . ? 5 t
O r "> 1 -4 'V c
v-' f C I * • - J «
^r , 4*. 95 , 17*. 8 5 ,
9C , c*."5 . 13*. £5 ,
°' ,
95 /


L)


EM F DC 010
t>EFOCOZO
6EF00030
BE F 00 040
EbFOOOSO
BEFQ0060
PEF 00070
BEFOOOgO
BEF0009Q
E-EF00100
BEF001 1 0
BEF00120
BEF00130
t EF00140
GEF00150
BEF00160
BEF001 70
6EF001SO
PEF00190
BEF0020Q
BEF00210
BEF00220
BEF00230
BEF0024Q
BEF00250
6EF00260
BEF00270
BEF00280
BEF00290
BEF00300
PEF00310
BEF00320
BEF00330
BEF00340
6EF00360
PEF00370
0EF00320
Be c n o T o f\
E F 00 i V u
EEF00400
                                             SOURCE  CODE PAGE     1 fc6

-------
       r 0 100  I MOO £ = 1.6                                                        BEFOOL 1C
C                                                                               E E F 00 ^ 2 GF*n tiL3F (I fjOX,IP , IMODFj.I RE JN )                    BEF00690
c                                                                               bEF00700
       IULBEFCIA3,ICYT,IF,irODE)  =                                            BEF00710
      *              IDLb^RC IMDX , IP, If-'CDF .IPF JN)  •>                            BEFC0720
      *                  Vr'T^E*JDFL:K(lNDX,IP,I*ODE.IREJN)                   EEF00730
c                                                                               BEFOG740
100    CONTINUE                                                                 BEF00750
       DO 450  1=1,;0                                                            BEF00760
       DO 450  J-1,26                                                            BEF00770
       00 4 SO  IM = 1,6                                                            BEFOC780
       I F
-------
A.
ir.rr.p p;ODri_
                                     COMPUTER HROGRAP SOURCE  CODE
           ENVIRONMENTAL  PROTECTION  AGENC
I
C      WF:ITE(6.444)CUMniL
AA^.   FORMAT(1X,mF£.0)
C
C      DEeuGSUPCHIt
C
      RETURN
      FNT
              PEF0081CJ
              FEFOO&20
              BEF00830
              EEFOO&AO
              &EF00850
              BEF00860
              BEFOQ870
              BEF00880
              BEF008PG
              6EF009QO
              BEF00910
S OUR c f r nnc

-------
       SlitKOUTIML  C ETru," (C U.MKJ L )                                            GET0001G
C                                                                             GETOOOZO
       f ( M' ON/M YttCCr./'I Y".Dl.';i ,PiYf< ,TF                                          GET00030
C                                                                             CETOOCKO
       P'EAL  CUMMIL (rO,o ) ,»< Yf-' (?U ,6) ,M YMDUM (20 ,f ) ,rY R(20,M , TF (20,6)        GETQ005U
       REAL  FPACU,6>                                                         GET00060
       DATA  FRAC/                                                             GET0007Q
      *             .75,  .375,  .25, .['75,                                 GET 00 06 Q
      *             .75  ,  .375  ,  .25 , .875  ,                                 GET0009Q
      *             .75  ,  .^75  ,  .25 . . ?-75  ,                                 6ET00100
      *             .50,.?5..50,.75,                                 GET00110
      *             .50  ,  .25   .  .50 , .75   ,                                 GET00120
      *             .50  ,  .25   .  .5^ , .75      /                              GET00130
C                                                                             GET00140
       00 10 11=1,6                                                           GET00150
       PO 10 12=1,20                                                         GETOC160
10     MY»(J2,I1)  =  MYMDUM (J 2. I DMOUOOO.                                   GETOQ170
C                                                                             GET00180
       DO 100 If=1 .6                                                         GET00190
          CUM^lL(1tIM)="Y!'(1,IK)*FRAC(2,ir<)                                 GET 00 200
       D09Pl=r,2fJ                                                           GET 00 210
          SUl« = 0.                                                              GET00220
          SUM2=0.                                                             GET00230
          11=1-1                                                              GET002AO
       DOtOJ=1,II                                                           GET00250
80     SUM=SUM+^YM(J,IM)                                                     GETOD260
          111=11-1                                                            GET0027Q
          JF(III.EC.O)GOT074                                              GET00280
       0070 L = 1 ,111                                                         GET0029Q
70     SUM2 = SUM2-H1Yf!(L»TN)                                                   GET 00 300
C                                                                             GET00310
7A     CONTINUE                                                               GET00320
          T1 =SUM*MYM (I , 71-1) *FRAC (c. If )                                       GET 00 330
          T? =<:ur2 + r"YM( 11 ,ifO*FH tcc^, IM )                                     GET003Ao
          T1=T1*FRAC(1,TK)                                                   GET0035G
          T?=T2*FRAC(3,IM)                                                   GETQ0360
          TSUr=T1+T2                                                         GLT0037C
00     ClK^ILf I ,ir.)=T5UM                                                     GET003£0
100    CONTINUE                                                               GET0039Q
C


                                                               SOURCE  CODE  PAGE

-------
AT PF f,(> 1 X  A.
                  1 S !'< A P  Pi r> D
                                                             SOIIRCF  CODF,
                                                                                       ENVI RONI" EN'TAL  PROTECTION  A GE NC
      C       I-' I  I T f ( (  , £ <, 4 )  C LI P " I L
      4 ,,/.    F OF v A T(  1 > TU'F^ . 0)
      C
             P L 7 U P N
C
             DtfcUG  SUPCHK
tf TODA10
Gf. TOO A 20
G E T 00 4 3 0
GETOQ44U
&ETOCA50
GETOCU60
GET 00470
                                                                           SOURCE  CODE  FAGE
                                                                                            1 90

-------
DIX />„           ISrAP  fiOD-L          C O r F U T E R PROGRAM SOURCE  CODF,      ENVIRONMENTAL PROTECTION AGENCY


      S LffROUTI f.'£ t FAL T X(  \T'YAL T  ,  ALTKOD )                                EFA0001U
<                                                                             EFAOOC2G
      C O^ON/BFFCOK/rtF. r                                                     EFA0003Q
C                                                                             EFAOD04Q
      INTEGER ALTKODU ,20) ,Kvi YALT , c YI ,P, TSTol (3) ,r,Y I. 1C Y                 EFA00050
C                                                                             EFA00060
      RtAlbF. F(20,26,3,6),EFREP(20,4,:7>                                   EFA00070
C                                                                             EFA00080
      DATA  F:FREP/1.0,1.2,1.4,1.6,1.c,2.0,2.2,2.4.2.6,2.8,3.0,3.0,3.0.   E FA00090
     *   0.6,0.7,0.8.1 .0,1.1,1.2,1.3,1 .4, 1 .6,1 .7,  3*1.8,                  EFAQOtQO
     *   D.27,0.32,0.38,0.43,0.49.0.54,0.59,0.65,0.70,0.76,3*0.21,17*0-, EFA0011U
     *   21.7,26.8.30.0,3?.1,76.^.39.4, 42.5,45.7.4fc.8,4* 51.9,             EFA 00120
     *   6. 9 8. 1 0.1 Z, 13. 26. 16.40,1r;. 54.22.66,25. 82, 28.96.32.10,4* 35.24,   E FA 00130
     *   ;.2,4.l6,6.12,?.r:C,1':.04.12..13.(36,1c.92.17.88.4*19.P4,          EFA0014Q
     *   13*0.0,                                                             E FA00150
     *   ?.00, 2.06,2.12,2.1f,2.24,2.30,2.36,2.42,2.48.2.54,3*2.60,        EFA 00160
     *   1. 50,1.56, 1.62,1.6F ,1.74.1. ISO,1.^6,1.92,1.96,2. 04,3*2.10,        EFAQ0170
     *   1.00,1.04,1.33,1.12,1.16,1.20,1.24,1.2?,1.32.1.36,3*1.40,        EFAQ01SO
     *   0.24,0.29,0.34,0.40,') .C6,0.7?,0.90,1.1 ,1.3,1.5,3*1.7.84*0. /    EFAQOl^O
C                                                                             EFA002QU
      DC200I=1,N1YALT                                                   EFA00210
t                                                                             EFA0022G
         rYI1      =  ALTKOD(1,1)  -  69                                        EFA00230
         1STD1(1) =  ALTKOD(2,1)                                             EFA00240
         ISTD1<2) =  AL-TKOP (7,1 )                                             EFA00250
         ISTD1C?) -  ALTKOD(4,I)                                             EFA0026Q
(                                                                             EFA00270
          DO  110 P  =  1 ,7,                                                     E FA0028Q
                 ICODEl^I5TDl(r>)                                           EFA00290
                 JF (ICODE1 ,EQ .0)  GO  TO 110                                  EFA00300
             DO  100  K=  1.20                                                EFA00310
                 1R[V  =  21-K                                                 EFA00320
                 ivi  =  «-1                                                    EFA00330
                 ICY=MYI1+TMl                                            EFA0034Q
                 ir(ICY.GT.26)bOTOlOO                                    EFA 00350
                 tEF(IREV,TCY,P,1)  -  hF«EP(K,KOOE1,P)                     EFA00360
1(10          CONTir.'UF                                                        E FA 00 370
C                                                                             EFA003SO
110       CONTINUE                                                           EFA00390
C                                                                             EFA00400


                                                              SOURCE  CODE PAGE     1 S>1

-------
A r r F M> i x  A .
                         5 <•' A r  N o D i L
                                  I f) f-'. P U T E P  r R G G P A w  SOLIRCf  CODE,
ENVIRONMENTAL  PROTECTION  A GE NO
      . I'O
      c

      c
      c
      c
C CN T ] MJE

P L T U TV Iv

nipuc  SUPCHK

F ND
    E FAOOA10
    E FAOCA20
    E FAOfK3Q
    E FAOCA40
    E FAOCU50
    E FA00460
    E FAOC47G
                                                                          SOURCE CODE  PAGE
                                                                                     192

-------
tlDlX A.          ISfAP MPDFL          C O f, P LI T E P  P R O G K 1 >- SOURCE  CODF,      ENVIRONMENTAL  PROTECTION A GE Nl '

       SUFF'CUTINE  CCEVAX                                                   CCEOD010
 C                                                                           CCEOPO^G
       COY?-ON/CF VCOr/CCFVP F                                                CCE0003Q
       r C" M 0 U / R E 6 C 0I" /1 R F J K                                                 c C E 00 0 4 0
 C                                                                           CCEOCG50
       INTEGER CY  ,  KY                                                      CCE0006Q
       REAL CCEV(4?,6.3),CCEV^T(^':,6),LD6SWD(45),CCCAL(45^»3)            CCEOCQ70
 C      DATA LDGSWD/17* ,?0, .77, .77,3* .74,2* .72, 21*. 55/                     CcEOOOs^O
 C                                                                           CCE00090
       DATA CCEV/1?*6.6?t?*?.33,3*t.53,7*1.76,2*0.60.l6*0.l5»             CCE00100
      *          12*6.63,5*3.33,3*2.53,7*1.76,2*0.60,16*0.15,             CCE00110
      *          17*7.70,11*Z.5T ,1*0.60,16*0.15 ,                          CCE00120
      *          17*7.70,13*2.00.15*0.30,                                  CCE00130
      *          45*0.,                                                     CCEOC140
      *          27*1.6H,1o+O.,                                            CCE00150
      *                                                                     CCE00160
      *          10*6.6?,T*7.33 ,7*2.53,7*1.76,2*0.60,16*0.15,             CCE00170
      *          10*6.67,3*3.33,7*2 . 53 ,7*1.76,2*0.60 ,16*0.15,             ICE00180
      *          17*7.70,1Q*z.57,2*0.60,16*0.15,                          CCE0019Q
      *          17*7.7P,7*2. OU, 2+1 . 19 ,3*0.87,16*0.30,                    CCE00200
      *          4r*0.,                                                     CCE00210
      *          Z7*1.60,1i; + 0.,                                            CCE00220
      *                                                                     CCE00230
      *          1Z*^.00,c*4.5£,3*3.44.6*2.39.1*1.76,2*C.p1,4*.2,1?*.15. CCE00240
      *          12*9.00,?*«.52,3*3. 44,6*2.39,1*1.76,2*0.«1,**.2,12*.15, CCE00250
      *          17*10.46,9*2.72,?.00.2.72,O.M ,4*0.2,1?*0.15,            CCE00260
      *          1 7*10.46,16*?.72,12*0.30,                                 CCE00270
      *          4C*0.,                                                     CCE00280
      *          27*2.17,U*0.       /                                     CCE0029Q
 C                                                                           CCE00300
 C                                                                           CCE00310
       DO 100 JMODE  = 1,o                                                  CCE00320
       DO 90 MY  =  1,45                                                      CCE0033Q
 C                                                                           CCE0034Q
       CCEVRT(MY,IMODE)  = CCEV ( "Y,I * OpF,IPtJN)                             CCEOP 350
 (                                                                           CCE00360
 90     CONTINUE                                                             CCE00370
 10C    CONTINUE                                                             CCE00380
 C                                                                           CCEOD390
 C                                                                           CCE00400


                                                             SOURCE  CCDF  PAGE     193

-------
AF'Pf NO ] v  A .
                        IS MAP MODFL
COMPUTER PROGRAM  SOURCE  CODF,
ENVIRONMENTAL PROTECTION AGENC
             R L T L) P N
             D E P U G  S U R C H !•
             r f.D
                                           CCE00410
                                           CCE00420
                                           CCEOOA3Q
                                                                         S OURC E  CODE PAGE
                                                  194

-------
MODEL              C O W F> LI T£ R  P R O G~R « l"i  S O IJ R C E ~  C O O E •        E »>J VI RO NM E N T«t-  1PR OT EtTTl

C



C


C*
C
CJf
*
C

C



(




C


C


C




C

C



C
SUBROUTINE LDVIMX

COMMON/eEFCOM/BEr(20,26f7,6)
CCKMON/IMCOK/ICYIM,ISTRN,ir/iTFLGtMODYPl.MODYR2
COMMON/IMCRED/PCIM

INTEGER CYfCYP,CYIMP,CYIFl,DELY,DEL2.DEL
INTEGER PCIK(19,5,4»2t2>
*IN PCIM: DEL,ISTRIN , I TE C H , I PROGM ,1 POL


IPPOGM = 1 + I^ITFLG
I STRIN = .1MSTRN
IFdSTRN.LT.1D.OR.ISTRN.KT.50) STOP
IREM = ISTRN - (ISTRN/1U)*10
PEW=I REM* .1
I STRIN = ISTRN* .1
STRN = (ISTRN + n.rO*0.1
ISTRIN = STRN
CYIMP = ICYIM
C YIP1 = ICYIM + 1

00 100 IPOL=1 »2
DO 100 CY = C Y I P 1 , •? 5

CYP = CY-69
DELY = CY - CYIf-P

00901 = 1 ,20
MY = CY - (20-1)
MYP = MY - 50
DEL2 = MY - CYIMP

I F(WY .LT.MODYR1 .OR.MY.GT .MODYR2) GO TO 90

IF(MY.LE.CYIWP) DEL = DELY
I F(MY .GT.CYIMP) DEL = DELY - DEL?
TF(DEL.GT.I^) DEI- = 19

LDVOC01 0
LDVO<:020
LDV00030
LDVOD040
LDV0005D
LDV00060
LDV00070
LDV00080
LDV00090
LOVQ0100
LDV0012C
LDV00130
LDV00140
LDV00150
LDV00160
LDV00170
LOV00180
LDV00190
LDV00200
LDV00210
LDV0022Q
LDV00230
LDV002AO
LDV00250
LDV0026Q
LOV00270
LDV002SO
LDV00290
LOV00300
LDV00310
LDV00320
LDV00330
LDV00340
LDV00350
LDV00360
LDV00370
LDV00380
LDV0039Q
LOVOO^OO
                                                       SOURCE   CODE  PAGE       195

-------
APPENDIX  A.
            I S r A P MPDFL
COMPUTER PROGRAM SOURCE  CODE,
                                                                      ENVIRONMENTAL  PROTECTION  AGENCY
     C* T f
     C
     C*PE
     C
     90
     100
     C

     C
     C
     C
ST FOR  TECH .  1 , II,  III,  OT IV
  I F (KY .LT.75 >  ITECH  =  1
  IF(MY.GE.75.AND.fY.LF.79> ITFCH  =  7
  I F(MY .EO .80)  ITECH  =  3
  I F(MY .GE .11 )  ITECH  =  A

  I F(DE L.EQ.0)  PCRED  =  G. 0
  1F(DEL.GT.O.AND.ISTRIN.LT.5)
 * PCRED  =  PC IM (DEL,ISTRI N ,1TEC H.IPROGM ,IPOL)*.01
 *   +  R EM* (PC IMCDEL, I STRI NM ,ITECH,IPROG<* , IPOL)  -
 *          PCIM(DEL,I STRIN .ITECH, IPROGM,!POL)  )*.01

  IF(DEL.GT.O.AND.ISTRIN.EG.5)
 * PCRED  =  PC IM(DEL,I STRIN ,ITECH, 1PROGM,! POL) * . 01

RHAPS  SKIP  FOR  LDT''
  PCLE FT  -  1. - PCRED

  pEF(I,CYP,irOL.1)  = PEF(I,CYP,IPOL,1)+P(LEFT

  C ONTINUE
  CONTINUE

  RETURN

  DEBUG  SUDCHK

  END
                                        LDVOO*10
                                        LDVOOA20
                                        LDVOOA30
                                        LDV004AO
                                        LDV00450
                                        LDVOCU60
                                        LDVOOA70
                                        LDV00480
                                        LDVOOA90
                                        LDV00500
                                        LDV00510
                                        LDV005?0
                                        LDVOOS30
                                        LDV005AO
                                        LDV0055G
                                        LOV00560
                                        LDV00570
                                        LDV00580
                                        LDV00590
                                        LDV00600
                                        LOV00610
                                        LDV00620
                                        LDV00630
                                        LDVOC6AO
                                        LDV00650
                                        LDV00660
                                        LOV00670
                                        LDV00680
                                                                    SOURCE CODE  PAGE
                                                                                196

-------
                JCSfAR MOOTL
                                     COMPUTE F? RROGRAM  SOURCE  CODE!*
                                                                           V 1 K o-tn P
         -ROUTINE  />LUH(CY,AC,yLOAD,T^AILR,PCCn,PCCC,ABSHU^)
C
C
      INTEGER  CY
      REAL COMPEF(20,3,6)
      REAL XLOAD(3)
      REAL PCU(20),CFNIX(20,3,M,COKCCC(6>«CFLET(20,3,6),TFC20f6>
      REAL A(20,3,3),U(20,3,3),L(3,3).H(?)
      REAL TCFA(3 ) ,TC FB (3) ,TC FC(3>
      REAL CFLD(I)
      REAL ACCF(3),PCWAC(45)

      DATA ACCF/1 .13,1 .18 ,1 .11'/
      DATA CFLD/1.06,1.20,1.037
      DATA PCWAC715*.56,3*.06,4*.75,2*.£1,21*.617
      DATA TCFA/1.32,2.15,1.16/,TCFE!/.75,1.5^,1.2C/,TcFC/.43,.39,.927
   IN TCFA ABOVE,  2ND   VALUE  SHOULD  L'E 2.15..IT  IS  1.15  FOR ORE. CF.

      PCCOLD=PCCC*.C1

      DO  207  IP=1,3
      H (IP) =1 .
      DO  207  Il»> = 1 ,3

      DO  Z07  1T = 1 ,20
      ACIT,IP,IM>=1.
      U(IT,IP,IM)=1 .
      ALHRETCIT,4 ,IP)   =  1 .
      CONTINUE

      DO  500  IP  =  1.3
C
      DO  400  IMODf=1,3
C
      IFUMODE.EQ.3) GO  TO  1^
C*****A:   AIR  CONDITIONING  CORRECTION FACTOR
      DO  90 J = 1 ,20
    .  IMY  = CY -  (20-1)  -  50
      PCW(I ) = PCWAt(IKY)
207
C
ALUOP01 Q
A LU 00 020
ALU00030
ALUOOOAO
ALU00050
ALU00060
ALU00070
ALU00080
ALU00090
A LU 001 00
ALU0011C
ALU00120
ALU00130
ALUOOUO
ALU0015Q
ALU00170
ALU00180
ALU00190
ALU00200
ALU00210
ALU00220
ALU00230
ALU00240
ALU00250
ALU0026C
ALU0027C
ALU0028Q
ALU0029Q
ALU00300
ALU00310
ALU00320
ALU00330
ALU003AO
ALU0035Q
ALU00360
ALU00370
ALU003PQ
ALU00390
ALUOOAOO
                                                             SOURCE  CODE  PAGE
       197

-------
A t P I K D 1 X  A
                      ] s r>- f P  M o D F L
                                      COMPUTER PROGRAM  SOURCE CODE
                                                                   ENVIRONMENTAL PROTECTION
A U . I nr>DF TI
C 0 NT J N IJ E
                      =  AC*PCU4C(I'-n)*(ACCF(IP)-1.)
                                                             1.0
            I F(1M ODE . EO . 2 )  00  TO 15
     C*****U:   TRAILER TOV'IWG  CORRECTION  FACTOR
            DO  91 1=1,20
            IMY = C Y-(20-I)-50
            I F(IM Y.GT.24) GO  TO  77
            C FP-TCFA(IP)
            GO  TO 78
     77     CONTINUE
            C FA=(PCCOLD*TCFA (]P ) + ( 1 . - P C CO L D ) * T C F1? ( I P ) ) /
          *            (PCCOLO  +  (1 .-PCCOL D) *TCFC UP ) )
C

c
     c
     15
C ONT INUE

U(I,IMODE,IP)  = TRAILK*(CFA-1.)

C ONTINUE
                                                1.0
      C CNTI NUE
O****L:   ADDITIONAL LOADING CORRECTION  FACTOR
      L(IMODE,IP) = XLOAD ( I MODF ) *(C FLD (IP)-1. ) + 1.
C
400   CONTINUE
500   CONTINUE
(*****H:   HUMIDITY CORRECTION FACTOR
      DO  675  IMODE=1,3
      H(IMODE) = 1. -  .0047*( APSHU"! -  75.)
675   CONTINUE
C
C
      DO  BOO  IP=1,3
      DO  f00  IMODt =1,3
      DO  tOO  IY = 1 ,20
      ALHTMP  = A(IY,IHODr , I P)*U(IY, 1MODE ,IP)*L (IMODE, IP )
      IFCir.EQ.3) ALHTMP  =  AL HTMP * H (I MOD E )
      ALHRETdY, IMODE , IP)  =  ALHTMP
£00   CONTINUE
C
ALUOOA1 U
ALUOOA20
ALUOOA30
ALUOOAAO
ALU00450
ALU0046Q
ALUOOA7Q
ALUOOA8Q
ALU00490
ALU00500
ALU00510
ALU00520
ALUOD53Q
ALU005AQ
ALU00550
ALU00560
ALU00570
ALU00580
ALU00590
ALU00600
ALU00610
ALU00620
ALU00630
ALU006AQ
ALU00650
ALU0066Q
ALU0067Q
ALU00680
ALU00690
ALU00700
ALU00710
ALU00720
ALU00730
ALU00740
ALU0075U
ALU00760
ALU00770
ALU00780
ALU00790
ALU00800
                                                                   SOURCE CODE  PAGE
                                                                                   198

-------
APPENDIX A.
                     ISfiAP MOD T L
                                          COMPUTER  PROGRAM SOURCE CODE.      ENVIRONMENTAL PROTECTION 'A I
           RETURN
           DEBUG SUPCHK
           END
ALU00610
ALUQ0820
ALU00830
                                                                 SOURCE CODE PAGE     199

-------
APP[ NO i y  A .
                     I S r A P  M 0 D r L
                                  COMPUTER PROGRAM SOURCE  CODE,
ENVIRONMENTAL  PROTECTION  AGE
      C


      C * *

      C
     C

     C

     C


     C

     C
   S UF & OUTINE  T&KOPC (C Y , HC W f T , H D U G T , H G C I D , H D C I 0 >

   C C r* 0 N / K [ T ? / T l< K R f T < 2 0 , ' , r )
   I N T L f- E R  CY,INDXAR(45>
IN PU.M.AND B2,  1ST INDEX  IS YEAR  GROUPt 2ND IS VEHTYPE.3RD IS POL
   REAL BO (3,2, 3), 81(7.2,3), 62(3, 2, 3)

   DATA BO/1. 30 2, -.^84,. 76 2, 2. 058, 2. Q58, .893,
  *          .814, .354, .320, -.533, -.533, -.2<>9t
  *          . fc69 , .S8T, . 943. .Ofc5, ,G?5,. 138      /
     C
     100
     C
            DATA  bl / .177, .1 24 ..131. -.00 5, -.00 5, .015,
                    -.03 6,. 106.. 14°, -.03, -.03,. 03,
                    .17: , .016, .GOoi, .02, .02, .023        /
   DATA  £2/-.065,-.01,-.047,-.014.-.014.-.006,
  *         .01 (-,-.024, -.04 5, . 043 , .043, .003,
  *         -.054 ,- .003,-.012,.OOt, .002 , .001  /

   DATA  INDXAR/19*1,4*2,2?*T/

   DO 100 I F Y = 1 , Z 0

      y.\ = CY -  (20-I^Y)  - SO
      1X-INDXAR(MY)

   DO 100 I POL  =1,3

   TRKRET(IMY,IPOL,1)  =  BO ( I X , 1 , I POL)  +  B1 ( IX , 1 , IPOL )*HGWGT* .001
  *                       bl (IX, 1 , IPOD + HGWGT/HGCI D

   TRKRFT(IMY,IPOL ,2)  =  BO (I X , 2 , I POL )  +  B1 ( I X , 2 , IPOL ) *HDWGT* .001
  *                       62 (IX,2 , IPOL)*HDWGT/HDCID

   CONTINUE

   R ETURN
   DEBUG SUBCHK
   FND
   TRKOOQ10
   TPK00020
   TRK00030
   TRK00040
   TRK00050
   TRK00060
   TRK00070
   TRK00080
   TRK00090
   TRK00100
   TRK00110
   TRK00120
   TRK0013Q
   TRK00140
   TRKOD150
   TRK00160
   TRK0017C
   TRK00180
   TRK00190
   TRK00200
   TRK00210
   TRK00220
   TRKQ023Q
   TRKOD240
   TPK00250
   TRK00260
   TRK00270
   TRK00280
   TRK00290
   TRK00300
   TRK00310
   TRK00320
   TRK00330
   TRK00340
   TRK00350
   TRK00360
   TRK00370
   TRK00380
   TRKOH390
                                                                  SOURCE  CODE PAGE
                                                                               200

-------
»MD IX A .
                 I SF. AF> MODEL
                                       COMPUTER PROGRAM SOURCE CODE
                                                                           ENVIRONMENTAL  PROTECTION"
       PLOCK  DATA
       COMMON /LINK/ MLINK .NLANF(?00),X1 (2UO),Y1(200>.*2<200).
      1Y2C200), LCAP(200> tf>IST(2rO>, VtL (ZOO) ,LCOK(200 ,3 ) ,
      2NSTOPSC200)
       INTEGER  NSTOPS/200*0/
       CO*BOfJ /INTRST/ WIN S , LI N ( 70 , 4 ) , I TYP C C 70 ) , I C Y C L( 70 ) ,
      1PH(70,A),CI(70),GCAP(70,4),QUE(70,A)
       REAL  QUE/280*0.0/
       COMMON /PARKz/ PZ « P V ( 50 ) , PL A ( 50 ) , VZ (50 ) , Z V ( 50 ) , PO ,PLS ,
      1PLBO,PNOS(50),PLL(^0)
       REAL  PV/50*0.0/,PLA/rO*0.0/,PLS/15.0/fPLBO/12.0/
       COKMON /VEHTYP/ VT . VTPC3 ) ,VTE C3 ) .VTKULT (2) . S7VTP(3,2)
       REAL  VTP/1.A,14.0,1.C/
       FND
EL100010
BL100020
BL100030
BL1000AO
BL100050
6L10006U
BL100070
PL100080
BL100090
BL100100
BL100110
BL100120
BL100130
BLI 00140
                                                               SOURCE  CODE  PAGE
       201

-------
PR IMD 1 X A
                   1 S r A P M 0 D c L
             COMPUTER  PROGRAM SOURCE  CODE
                                             ENVIRONMENTAL PROTECTION AGE
          F LCt K DATA

          COPKiON/DFT/DETER

          DATA  U A D 1 /
         &   0.1021G419E+01
         R   D.10487151F-02
         8  -C.27256622E-03
         8   0.6357612GE+00
         &   P. 4 4 c
C * -J
61 U
51 7
306
451
797
033
75d
153
292
462
802
,2629
.1
.1
,3
,1
,4
,2
.1
,2
,2
,6
.1
758
236
053
321
325
461
41 2
293
251
750
735
,3-051
,4
,9
, 1
,7
,1
,3
896
259
997
165
82 d
173
r AD3
) ,?A
6476
4127
6291
0358
7134
Pfc.36
7 Sr'Q
165o
17f 3
7926
7652
1054
65^ 5
*988
1263
3£«Q
1887
7422
1491
3292
7568
9890
4453
5999
7101
3908
5567
7 7^3
3314
74?9
*
D
E
E
E
E
E
E
E
E
E
E
E
E
c
c
E
E
E
E
E
E
E
E
E
E
E
E
E
E
E
E
cA D
2(1
-01
+ 00
+ 00
-01
-01
+ 00
-02
-02
+ 00
-01
-02
+ 00
-01
-01
+00
-01
-02
+ 00
-01
-02
+ 00
-01
+ 00
+ 00
-01
-01
+ 00
-01
+ 00
+ 00
4
2,5
, 0
, 0
,-o
. 0
, 0
,-n
, 0
, 0
,-0
, 0
, o
,-o
, o
, 0
,-n
, o
, n
,-o
, 0
, 0
,-n
, o
, 0
,-0
, 0
, 0
,-0
, 0
, o
,-o

),B«
.127
.193
.241
.43P
.615
.27!
.435
.930
.402
.615
.976
.181
.593
.114
.702
.585
.217
.665
.6E2
.195
.461
.620
.21?
.65*
.907
.133
.776
.562
.227
.970

D3(1
5041
9806
3289
1 285
381P
5578
2454
9030
1 443
0432
4737
8993
3933
9247
4496
5237
5831
5044
2657
262«
3399
508
-------
    1 S I*! A r* MODIEL
                         COMPUTER PROGRAM EOl'RCE  CODE
                                                                          PROTECTION"
R
R.
£
£
f>
£
£
QV
p
£
R
8,

8
8
£
£
£
8
Pv
£
£
&
£
R
R
&
K

8

0.1
0.2
-0.3
D.1
D.1
-0.2
P. 2
0.1
0.5
D.2
D.1
0.1
DATA
0.5
0.6
-0.9
0.?
D.7
-C.P
0.2
D.1
0.4
D.2
0.1
0.4
0.2
0.1
0.48
DATA
.351
END
4
-------
APPENDIX  A
                        ISMAP  MODC L
COMPUTER PROGRAM  SOURCE  CODE
ENVIRONMENTAL  PROTECTION  AGEN!
c
c
c
C**HC
*
•*
*
•*
*
*
*
•*
*
*
*
*
*
*
*
*
*
C
c**co

*
*
*
*
*
*
*
«•
*
*
*
n
c
p
c
•^
D
-}
c
2
2
2
2
2
2
2
-i
c
?
2
?
->
£
2
2
2
2

$
D











LOCK DATA
Of'MON/ACOM/AlNl , AT N!; ,AI f'3
LAL AIN1 (6 ,U ) , 4IN2 (6. U ) ,A1N7 (d , 16)
PEED CORRECTION FACTOR COEFFICIENTS
ATA AIN1/
. 2461. -.29097, 0.01 5889, -.47249F-03, 0.694 08
. 3103. -. 26957. 0.0152 99, -.446 69 F-0 3, 0.6481 8
. 1656, -.26999, 0.0144 20, -.433 64 E-0:,0. £5074
. 3 973, -.29998,0. 016135, -.467 49 E -07, 0.729 09
.<• 0 P7, -.30M9.0.016P17,-. 506 84 E-07, 0.75335
. 2322, -. 2P499.0.0153 83 ,-.456 74 E-0 3,0. 67349
. 2522, -.28778. 0.0156 82, -.47318E -03, 0.70795
. D 278, -. 27305, 0.01 5360, -.460 30 E-07, 0.6 7853
. 1506, -.28 3 62, 0.01 53 80, -.442 14E -03, 0.62P73
.2302, -.29365,0. 016240, -,4h415E -03, 0.71159
. 1223.-. 29107, 0. 016910, -.52615E-0 3, O.F02 71
. 1 536. -. 28345, 0. 01 57 00, -.469 76 F -03, 0.6938 3
.D735,-.ze°35,0.017300,-.55471E-03,O.F6420
.3495, -.30496, 0.016 8 42 , -.509 62 E -03 ,0.75952
.1134,-.28568.0.016720,-.?007T-07,0.75507
.1 1 94, -. 29 « 63, 0.01 5450, -.61 654 E-0 3,0.992 06
.6838, -.34463, 0.0195 42, -.625 72? -03, 0.°7844
. 3954, -. 33578, 0.0211 61, -.731 55 E -03, 0.1 2072

PEED CORRECTION FACTOR COEFFICIENTS
ATA AIN2/
1.P198,-.25466,.0152?5,-.4?740E-G3,.75821
2.3399,-.29698,.ni6007,-.47740E-03,.70675
Z. 4415, -. 29147,. 0142 « 6, -.38 78 5E-0 3, .52 97 8
2. 4655, -.30502. .0 1 C 050 . -. 4 739 7E-03 , .6 99Q8
2. 7 78 0, -. 3191 3,. 01531 o, -.4 2 23 3 E-03,. 584 95
2. 7890,-. 3271 1,. 016294, -.46 75 7 E-0 3,. 67191
2.7074,-.33131,.ni76lti.-.53855E-03,.£1740
1.8692,-.27668..P172T3.-.55t2£E-03,.P716?
1. P 213, -. 27205,. 017 030, -.55 20 2E -03,. 86254
?. 0142, -. 29519, .018 63 5,-. 62161 E-03,. 99 36 6
2.0453.-. 31062,. 0204? 5. -.70&53E-03, .11 621
E-
E-
E-
E-
E-
E-
E-
E-
E-
E-
E-
E-
E-
E-
E-
E-
E-
E-



E-
E-
E-
E-
E-
E-
E-
E-
E-
E-
E-
05
05
05
05
05
05
05
05
05
05
05
05
05
05
05
05
05
04



05
05
05
05
05
05
05
05
05
05
04
,-.3
92
,-.363
_ T
, •
,- .4
,-•4
, — • 3
,-.4
,-.3
,-.3
,-.^
,-.4
,- .3
,-.5
,-.4
,-.4
,-.6
,-.5
78
19
31
fc3
08
84
46
02
70
94
13
34
37
04
£3
,-.748



.-.4
,-.4



49
03
,-.282
,-.3
,- .3
,-.3
.- .4
,-.5
,-.5
,-.5
,- .7
99
14
74
77
16
11
80E
46E
10E
77E
60E
80E
46E
88E
31E
86E
12E
71 E
11E
96E
19E
02 E
37E
57E



51 E
98E
44E
76E
97E
40E
£OE
98 E
44E
9978E
15
69E
-07,
-07,
-07,
-07.
-07 ,
-07,
-07,
-07,
-07.
-07 ,
-07,
-07.
-07,
-07,
-07.
-07,
-07,
-07/



-07,
-07,
-07,
-07,
-07,
-07,
-07,
-07,
-07,
-07,
-07,
B
&
B
B
B
B
B
B
B
B
B
B
e
B
B
B
B
B
B
e
B
b
B
B
B
B
B
B
B
B
B
B
B
B
B
B
B
B
e
B
L300010
L300020
L3Q0030
L300040
L300050
L300060
L300070
L300080
L300090
L300
L300
L300
L300
L300
L300
L300
L300
L300
L300
L300
L300
L300
L3QO
100
110
120
130
140
150
160
170
180
19Q
200
210
220
230
L30024Q
L300
L300
L300
L300
L300
L300
L300
L300
L300
250
260
270
280
290
300
310
320
330
L30034Q
L300
L300
L300
L300
L300
L300
35C
36U
370
380
390
400
                                                                          S Oil RTF  r nr\c  o*<-r-

-------
HO
                ISMAP MODFC
                                     COMPUTER  PROGRAM SOURCE CODE,
'ENVIRONMENTAL  PROTECTION Al
* 2. 3167, -.3411
* 2.5752.-.Z28S
* 2. 6845, -.3325
* 2. 1549, -.3291
* 2. 5456, -.3628
* 2. 8393, -.3687
* 2. 4875, -.3915
C
C**NOX SFtED CORRECTl
5,
9,
2 *
2.
5,
6,
6*
ON
.r2C9<.5,-.66389E-03,.10223
. 018975 .-.62 &26E-0 3,. 1009?
.01762 &,-. 52 41 2E-03.. 77222
.021011 .-.68906E-03,.10839
.023277,-.S1504E-03,.13623
.021078,-.67644E-03,.10627
.02707 2. -.9 761 8 E-03,. 16527
FACTOR COEF F1CIENTS
E-04
E-04
E-05
E-04
E-Q4
E-04
E-04
,
,
,
,
,
-.5
-.6
- .4
-.6
-.8
-.6
-1.
9827E-07 .
1273E-07.
3702E-07,
4712E-07,
5591E-07,
3641E-07,
0432E-Q7/
DATA AIN5/
* 2
* 1
* 1
* 1
* 1
* .
* 1
* 1
* 1
* I
* 1
* 1
* .
* 1
* 1
* .
* •
* .
.4442
.6?63
.1265
.2268
.0174
9B760
.1 592
.P866
.5578
.0452
.6326
.44*2
24597
.2817
.5345
70481
7E384
94213
« ^ •
t ™ •
• "" •
* ** •
• "" •
• ** »
t "" •
% ™ •
9 ^ •
» ~ ' 9
» — •
f * •
• .0
• *" •
f ™" •
, .0
,.3
f * •
2501
1183
0393
0444
0118
0195
0444
1612
1130
1940
121S
1224
2419
0804
1255
3815
2855
0423
10
0"
40
9*
96
67
54
90
30
10
60
40
5 ,
87
7C
3.
,1 .3i;29F-02,-.28703F-03,.2
, .65497F-02,-.13714E-03,.1
».26864F-02,-.60g02E-04 ,.4
,.26248E-02,-. 56 71 5 E -04 ,.4
, .91437C-03.-.21574E-04 ,.1
,.U964F-02,-.404COE-04,.?
, ,29643F-02,-.663°9E-04,.5
,.90499F-02,-.18561E-03,.1
,.671S3F-02,-.14341F-03,.1
, .11074^-01 ,-.231 75E-0 3.. 1
,.70302F-P2,-.14629E-'>3,.1
,.70502F-02,-.17106E-03,.1
-.340?4F-02, .6298PE-04 .-.4
075F
0085
7729
342?
£230
2300
2236
3256
0608
6837
0614
257?
1397
,.53574E-P2,-.11gP9E-03,.°0106
,.7P592E-02,-.16943E-D3,.1
-.17391F-02, .32614E-J4 .-.2
E-07 ..19603E-02,-.31V35E-04,
24
,.38625F-02,-.939?»5F-04 ,.7
2549
03S5
.290
5368
E
E
E
E
E
E
E
E
E
E
E
E
E
E
E
E
3
E
-0?
-05
-Oc
-06
-06
-06
-06
-05
-05
-05
-0?
-05
-06
-06
-D5
-06
,0
,0
,0
,0
.0
,0
,0
.0
,0
,0
,0
,0
.0
,0
,0
,0
°E-06
-06
,0
•
•
*
•
•
•
•
•
•
•
»
•
•
*
•
•
t
•
0,
0,
0.
0,
0.
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0.0,
0 /
       END
    BL30041Q
    BL300420
    B L 3 00 4 3 0
    BL30044Q
    BL300450
    BL30046Q
    BL300470
    BL300480
    BL300490
    BL300500
    BL30051Q
    E-L300520
    BL300530
    BL300540
    &L300550
    BL300560
    9L3Q057Q
    BL300580
    BL300590
    BL30P600
    BL3006TO
    BL300620
    BL300630
    BL30064Q
    BL300650
    BL300660
    BL30067Q
    BL3006EO
    BL300690
    BL300700
                                                            SOURCE CODE PAGE
          205

-------
APPE r.DI X  A
                        1 S tf A P  MODFL
COMPUTER PROGRAM  SOURCF CODE
ENVIRONMENTAL  PROTECTION  AGE
PLCCK DATA
C
COM P. ON/MY M COM/MY r.PYR.TF
COMMON/LNKCOrA/SPD,TEKP.PrcO,PCHS,PCCC,ws
C
REAL SPD(3).l«S<6),^YM(?0.6)fMYR(20,6),TF(?0,6)
C
C **DE FAULT MODAL SPL IT
DATA MS/.803,.05?,.L)58,.0<.5,.031,.P05/
t
C**ANNUAL AVERAGE MILEAGE A CC Uf UL AT I ON (DIVIDED PY 100000)
DATA K Y M /
*<~l.i59,0.150.0.14nt0.i:51,C'.122,0.113,0.103,0.09<.TC.O£5,0.076.
*0. 06 7, 0.066,0. 062, 0.059,0. 055, 0. 051, 0.050, n. 047, 0 .044 ,0 . 044 ,
*0. 159, 0. 1 50, 0. 140,0. 131, 0. 122, 0. 113,0. 103, 0.0 94, 0.085, 0.0 76,
*0. 067, 0.066, 0.062, 0.059, 0.055, 0.051, 0.050, 0.04-7, 0.04 4, 0.044,
*0. 157, 0.1 57, 0.141 ,0.126,0.11 3, 0.102, 0.094, 0.0 £6, 0.080, 0.0 75,
*0. 071, 0. 0 66, 0. 063, 0. Oe>0, 0. 055, 0.052, 0.050, 0.0 47, P. 044, 0.0 41,
*0 . 190. 0. 1 90, 0.1 7°, 0. 165, 0.1 50, 0.135, 0.1 20, 0.1 06, 0.0 95, 0.0 86,
*0. 07 8 , 0. 070. 0.367, 0.059, 0.053, 0.049, 0.047,0.046, 0.044 ,0.042,
*0. 73 6, 0.736, 0.699, 0.6 33 ,0.566,0.500,0.456,0.412 ,0.382, 0.3 60,
*0. 346, 0.338, 0.331,0. 324, T. 3 U9, 0.287, 0.257, 0.213, 0.1 64 ,0.154,
*. U? 01, .0251,. 0207, .0185 ,.0172, .01 6?, .0155, .0149, .0143, .01 39,
*. U1 35, .0132.. 01 29,. 0127,. 0125, .01 2,3, .01 22, .01 21, .01 20,. 01 19/
C
C**VEHICLE REGISTRATION DISTRIBUTIONS
DATA MYR/
*0. 075 ,0.1 07. 0.10 7, 0.1 06, 0.1 00 ,0.092,0.035,0.077 ,0.066,0.052 ,
*0 . 03 9, 0. 027, 0. 01 p, 0. OH, 0. 00 *, 0. 00 6, 0.005, 0.0 05, 0. 005, 0.0 04,
*0. 061, 0. 095, 0.094, 0.1 03, 0.083, 0.076, 0.076,0.0 63, 0.054,0. 043,
*0. 03 6, 0.024, 0.030, 0.0 2?, 0.026, 0.02 4, 0.022, 0.0 20, 0.018, 0.016,
*C . 03 7, 0. 070, 0.07R, 0.0 86, 0.075, 0.075, 0.075,0.06?, 0.0 59, 0.053,
*0. 044, 0. 032, 0. 038, 0. 0 36, 0. 034, 0. 03 2,0.030,0.02?, 0.0 26, 0.0 24,
*0. 037, 0. 0 70. 0. 07 P, C.O 06, 0.075, 0.075, 0.075, 0.0 68, 0.0 59 ,0.0 53.
*0. 044, 0.032, 0.038, 0.0 36, 0.034, 0.032, 0.030, 0.0 28, 0.0 26 ,0.0 24,
*0. 077, 0. 135. 0. 13^., 0. 1 31, 0. 09 9, 0. 090,0. OB 2, 0.0 62, 0.045, 0.033,
*O.OL5, 0.015, 0.017, 0.011, 0.010,0. DOS, 0.007, 0.006, 0.0 05 ,0.0 04,
*0. 1D5, 0. 225.0. 206, 0.149,0. 097, 0. 062, 0.04 6, 0.0 33, 0.029, 0.0 23,
*r .008 ,0.005 ,0.01 3,0.0 ,0.0 ,0.0 ,0.0 ,0.0 ,0.0 ,0.0 /
C
BL^.00010
EL40002U
PL400030
6L40004G
BL400050
BL400060
BL400070
BL40008U
BL400090
BL4Q0100
BL40011U
BL400120
BL400130
EL400140
BL40015CJ
BL4Q016Q
BL4Q0170
BL400180
BL400190
BL4Q0200
BL4Q0210
BL400220
BL400230
BL4Q0240
BL400250
BL400260
BL400270
BL400280
BL400290
BL400300
BL40031Q
BL400320
BL4Q0330
BL40034Q
BL4Q0350
BL40036Q
EL400370
BL400380
BL400390
BL40P400
                                                                           SOURCE  CODE  PAGE
                                                   206

-------
P E ND I X  A.             ISMAP  PIODFU             COMPUTER  PROGPAM  SOURCE  COD r »       E N\?X R'O »»T^ t!1 **'- V







            END                                                                                      OL'iOPAlO
                                                                                    SOURCE  CODE  PAGE      207

-------
AF'PtNDIX  A.          ISMAP MODCL          COMPUTER  PROGRAM SOURCE  CODE,      ENVIRONMENTAL  PROTECTION  A GE N


            p LOCK DATA                                                           EL500010
     C                                                                           BL500020
            COMKON/IMDXCf                  BL500090
     C                                                                           BL500100
     C      6666777777777788fi?8B  83  8B 999999        BL500110
     C      6789012!A567^V0123656789012345        BL500120
            DATA 1NDXA9/                                                         BL500130
           *1.1,2f2,2,2,3f2,?f3,3t3,3,7,4.4,A,4,4?ftfA,4,Afftf4,«f4,4,4,Af       BL500UO
           *1,1,2,2,2,2,2,2,2,3,3,3,7,3,4.5.5,5,5,5,5,5,5,5,5,5,5.5,5,5,       BL5Q0150
           *1,1,2,2,2,2,2,3,3,4,4,5,5,5,5,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,       BL500160
           *1,1,2.2,2,2.2,2,2,3,3,3 ,7,4,4,4,4-, 5,5,5,5,5,5,5,5,5,5,5,5,5,       BL500170
           *1,1,2.2,2,2.2,2,2,?,7,3,?.,4,4,4,4,5,5,5,5f5,5,5,5,5,5t5,5,5,       BL50018Q
           *1,1,2.?,2,2.2,3,3,4.4,4,4,5,5.5.5,5,5,6,6,6,6,6,6,6,6,6,6,6,       BL50019Q
           *1,1,1,1,2,2.2,2,?,2,2,2,2,3,3,3,3f4,4,ft,4,4,4,«f4,4,4f4,4,4,       BL500200
           *1,1,1,1,2,2.2,2.?,2,2,2,2,3,3.3,3.4,4,4,4,4,4,4,4,4,4,4t4f4,       PL5Q0210
           *1,1,1,1,2,2,2,2,2,2.2,2,2,3,3,3,3,3f3,4,4,4,4,4.4f4,4f4f4f4,       BL5QOZ20
           *1,1,1,1,2,2.2,2,3,3,3,3,I,4,4,4,4,5,5,^,5,5,5,5,5,5,5,5,5,5,       B L5 00 2 2 0
           *1,1,1,1,Z,2,2,2,7,3,3,5,3,4,4,4,4,5,5,5,5,5,5,5,5,5,5,5,5,5,       8L5Q0240
           *1,1,1,1,2,2,2,2,7,7,3,?,3,At4,4,At4,/,,5,5,5,5,5,5,5,5,5,?,5,       8 L5 00 250
           *1,1,1,1,1,1,1,1,2,2,2,2,2.3,3.3,3,4,4,4,4,4,4,4,4,4,4,4,4,4,       BL500260
           *1 ,1,1,1,1,1,1,1,2,2,2,2,?, 3, 3.3, 3, 4, 4, 4, 4, 4, 4 ,4, 4, 4 ,4, 4, 4, 4,       8L500270
           *1,1,1,1,1,1,1,1,2,2.2,2,2,3,3,3,3.3,3,4,4,4,4 ,4,4,4,4,4,4,4,       BL500280
           *1 f1,1 ,1,1,1,1,1 ,1,1 ,1,1 ,?,2,3,3,3,4,4,4, 4,4,4,4, 4,4, 4 ,4,4,4,       BL500290
           M,1,1,1,1,1.1,1,1,1,1,1,2,2,3,3,3,4,4,4,4,4,4 ,4,4,4,4,4,4 ,4,       EL500300
           *1,1,1 ,1,1,1,1.1,1,1,1,1,?,?,3,3, 3,3,3,4,4,4,4,4,4,4,4,4,4,4  /     BL50031Q
     C                                                                           BL500320
     C      666677777777778888888388999999        BL500330
     C       678901234567?90123456789012345        BL50034Q
                                                                                 EL500350
                                                                                 E-L500360
                                                                                 BL500370
                                                                                 EL500380
                                                                                 BL5Q0390
                                                                                 BL500400


                                                                                        208
SOURCE CODE  PACE

-------
    A.          ISMAP  MODFL          COMPUTER PROGRAM SOURCE CODE,      ENVIRONMENTAL PR OT E CT IO N " A BE 14


     *1*1,2.2,2,2,2,3,3,4,4,4,4,5,5,6.6,7,7,7,7,7,7,7,7,7,7,7,7,7,       BL500410
     *1,1,1,2,2,2,2,2,2,2,2,2,3,3,3,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,       BL500*20
     *1,1,1,2,2,2,2,2,2,2,2,2,3,3,3,4,4,4,4,^,4,4,4,4,4,4,4,4,4,4,       EL500430
     *1,1,1,2,2,2,2,2,?.,?,2,2,3,3,3,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,       BL500440
     *1 ,1,1 ,2t2,2.2,3,3,4,4,5,5,5,6,6.6,7,7,7,7,7,7,7,7,7,7,7,7,7,       EL500450
     *1 ,1,1, 2, 2,2, 2, 3, 3,4, 4, 5, 5,5, 5, 5, 5. 6, 6,6, 6, 6, 6, 6,6, 6, 6, 6, 6, 6,       BI_500460
     *1 ,1.1 ,2,2,2,2,3,3,4 ,4,5,5,5,6 ,6.6,6,6,7,7,7,7,7,7,7,7,7,7,7,       BL50047Q
     *1 ,1,1,1,1,1,1,2,2,2,2,3,3,3,3,3, 3.4,4,4,4,4,4, 4,4,4,4,4,4,4,       BL500*80
     *1,1,1,1,1,1,1,2,2,7,2,3,7,3,3,3,3,4,4,4,4,4,4,4,4,4,4,4,4,4,       BL500490
     *1,1,1,1,1,1,1,2,2,2,2,3,3, 3,4,4,4,4,4,5,5,5,5,5,5,5,5,5,5,5,       BL5Q05QO
     *1,1,1,1,1,1,1,1,1,1,1,1,2,2,3,3,4,5,5,5,5,5,5,5,5,5,5,5,5,5,       BL500510
     *1,1,1,1,1,1,1,1,1,1,1,1,2,2,3,3,3,4,4,4,4,4,4,4,4,4,4,4,4,4,       6 1.5 00 520
     *1,1,1,1,1,1,1,1,1,1,1,1,2,2,3,3,3,3,3,6,4,4,4,4,4,4,4,4,4,4  /      BL5Q0530
C                                                                         &L50054Q
C     6 fc667777?7777728£f(8?8 g 30909999        BL500550
C     f78901234567P90123456789012345        EL500560
      DATA INDXHI/                                                        BL.50Q570
     *1.1,2,2,2,2,2,2,2,3,3,4,5,5,6,7,7,7,8,8,8.8 .8,8,8,8,8,6,8,8,       BL5005CQ
     *1,1,2,2,2,2,2,2,2,3,3,4,5,5,6,7,7,7,8,8,8,3,8,8,8,8,8,8,8,8,       BL5Q0590
     *1,1,2,2,2,2,2,3,3,4,4,5,6,6,7,3,8,8,9,9,9,9,9,9,9,9,9,9,°,
-------
APPENDIX  A.          1SMAP  M 0 D F |_           COMPUTER PROGRAM SOURCE  CODFt      ENVIRONMENTAL PROTECTION  A6EI
















c
c



















c
c

*
*
*
it
*
*
*
*
*2
*
*
*
*
*
*
*

*< *E XH
D
*
*
•*
*
A
*
*
A
A
*
*?
A
*
*
*
*
A
*

*+*EXH
D
3 . c g , 4.43, ? . ^ 8 ,
t .4 5, 2.43, 1.11,
6 F . 3 0 , 31.14, 1 6 . 1 U ,
TCJ 4 £ 7 ~> 0 9
5.^9, 2.90, 0.C4 ,
7F.70. 32.40, 14.50,
6.49, 5.04, 1.73,
23.00. 18.54. 22.P2,
72.90.212.70,218.80,
F.PO, 12. bO, 10.50,
4. 30. 4.50, 4.50,
3r.10, 27.00. 27.PQ.
21.40, 20.10, 1°.°0,
F.96. 4.70, 3.r^,
34.40, 20.27, U.P6,
0.14, 0.2?, H.56,

AUST EMI SS ION F ACTOR
ATA bASECA/
4.45, 2 . Cl 0 . 0.29,
6F.30, 30.42, 3.>0,
3.5?, 3.52, 3.12,
t.45, 2.43. 1.11,
6F.30, 31.14, 16.10,
3. 5 3, 4.43, 2.93,
5.99, 2.90, 0.29.
78.70. 32.40, 13.70,
6.49, 5.04, 1.73,
23.90, 18.54, 22.02,
72.90,212.70,218.80,
P. 80. 12.80, 10.50,
4.30, 4.50, 4.50,
35.10, 27.00, 27.00,
21.40, 20.10, 18.61,
6.96, 4.70, 3 . P 2 ,
34.40, 20.27, 14. F6,
C.14, 0.28, 0.56,

AUST EMISSION FACTOR
ATA BASEHI/
2 .4?,
O.'M ,
14.50,
/ i S .
C • " .-> ^
0.31 ,
3.87,
0.41 ,
5.22,
191 .90,
9.10,
2 . d 5 ,
27.00,
5.35,
0.2^,
2.71 ,
0.04 ,

I N T E R C E

0.15,
3.80,
1 .50,
0.20,
1 3.70,
1 .50,
0.16,
3.80,
0.44,
1 £ . 1 6 ,
209.00,1
7.50,
2.85,
27.00,
16.30,
0.82,
2.71,
0.04,

I NTERCE

1 .50,
0.31,
3 .£7.
1 .73.
1 • f ^ V
0.31 ,
3.87.
0.41 ,
1 .46.
15.38, 1
3 .99.
2 .£5,
27.00. 2
5 .35.
O.C .
0.0 .
0.0 .

FT: CALI

0.15 .
3 .CO,
1 .10,
0.15,
3.80,
1 .28,
0.16,
3.80,
0.44,
5 .22,
91.90, 1
8.04.
2.65,
27.00, 2
5 .35,
0.29.
2.71 ,
0.04.

PT : HIGH

0.29,
0.31 ,
3. 87,
0.41.
\J 9 " 1 <
0.31 ,
3.87,
0.41,
1.46,
5.38,
3.99,
2.85,
7.00,
5.35,
0.0 ,
0.0 ,
0.0 .

FORNIA

0.1 5,
3.00,
0.29,
0.15.
3.80,
0. 54,
0.16,
3.80,
0.44,
3.50,
5.38,1
6.20,
2.85,
7.00,2
5.35,
0.29,
2.71,
0.04,

ALTIT

o.o
0.0
0.0
n. o
\J • VJ
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0



0.0
0.0
0.21
0.15
3.80
0.21
0.16
3.80
0.44
1.46
5.38
3.99
2.85
7.00
5.35
0.29
2.71
0.04

UD E

,
,
,

,
,
,
,
,
,
,
,
,
,
,
,



,
,
,
,
,
,
,
t
,
,
,
,
,
,
,
,
,
,



o.o ,
O.C ,
0.0 ,
C. 0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,



0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 .
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.29,
2.71 ,
0.04 ,



0.0 ,
O.G ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
O.G ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 .
0.0 ,
0.0 ,
0.0 ,
0.0 ,



0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 .
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.29.
2.71 ,
0.04,



o.o
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
O.G



0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.29
2.71
0.04



,BL50081G
,BL50082C
, B L.5 00 8 3 G
.6 L 5 On84 n
v L* L. -^ ^Uv \J
,BL50085U
,BL50086G
,BL500870
»B I_50o88 o
,BL50089Q
,BL500900
,BL50Q91 U
,BL500920
,BL5Q093Q
,EL50094Q
,BL50095Q
/PL500960
BL500970
BL500980
BL500990
.BL501000
,BL501010
,61501020
,BL501030
,BL501040
,BL50105u
,BL501Q60
,BL501070
,BL50108G
»BL5Q1090
,BL501100
.BL501110
,BL501120
,61501130
,BL501 140
,BL501150
,BL501160
/BL50117U
PL501130
BL501 190
BL501200
                                                                      SOURCE CODE  PAGE     210

-------
ISKAP  MODEL            COMPUTER  f* ft O 6 R A M SOURCE  CODE.      E N V I R O N*I E N T A l_  I»R OT E C T r O l»~
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
C
O**EX

*
•*
*
*
*
*
*
*
*
*
*
•*
*
*
*
*
*
*
C
t. 03. 4.07, 1.T3, 0.70, 1.63. 0.21,
110.04. 76.73, 3P.31, 10.30, 3P.31, 6 . 1 f . .
1.06, 3.00, 1.04, 1.50, 1.90, 1.50,
6.03, 4 . C 7 , 1.79, 1.11, 1.79, 1.52,
110.04, 76.73, 33.15, 16.10, 33.15, 29.90,
1.96. 3.00, 1.94, 1.52, 2.45, 1.52,
P. 12, A.E6, 1.52, 0.47, 0.31, 0.0 ,
127.30. 79.90, 29.90, 8.00, 3. £7, 0.0 ,
3.55, 3.41, 1.07, 1.73, 0.41. 0.0 ,
32.40, 31.05, 36.7?, 6.74, 2.35, 1.46,
441. 50, 344. 20, 35T. 20, 310. 90, 31.70, 15.38,
4.82, 6.67, 6. '4, 5.92, 5.64, 3.99,
5.80, 6.10, 6.10, 3.85, 2.85, 0.0 ,
56.80, 43.70, 43.70. 43.70, 27.00, 0.0 ,
11.80, 13.10, 12.90, 5.35, 0.0 , 0.0 ,
12.10, 7.97, 6 . 7 £ , 0.4?, 0.29, 0.29,
47.10, 27. bO, 20.40, 5.58, 2.71, 2.71,
O.Ofc, 0.18, P. 36, 0.03, 0.04. 0.04,

HAUST EMISSION FACTOR SLOPE: 49 STATE
DATA DEL49/
0.5E, 0.53, 0.2?, 0.23, 0.23, 0.23, 0.0 ,
3. 06, 6.15, 2.80, 2.30, 2.00, 2. 00, 0.0 ,
0.0 , 0.0 , 0.0 , O.OT, 0.16, 0.22, 0.0 ,
0.58, 0.53, 0.41, 0.41, 0.23, 0.23, 0.0 ,
3.06, 6.15, 5.34, 5.3^, 2.00, 2.00, O.C ,
C.O , 0.0 . 0.0 , 0.0 , 0.11, 0.22, 0.0 ,
0.58, 0.53, 0.41, 0.23, 0.23, 0.23, 0.0 ,
3.06, 6.15, 5.34, 2.00, 2.00, 2.00, 0.0 ,
0.0 , 0.0 , 0.11, 0.22, 0.22, 0.22, 0.0 ,
0.58, 0.53, 0.53, 0.53, 1.06, 1.06, 0.0 ,
3.06. 6.15, 6.15, 6.15,10.54,10.54, 0.0 ,
0.0 , 0.0 , 0.0 , 0.0 . 0.34, 0.34, 0.0 ,
O.D , 0.0 , 0.0 , 0.0 , O.C) , 0.0 , 0.0 ,
O.D , 0.0 , 0.0 , 0.0 , 0.0 , 0.0 , 0.0 ,
O.D , 0.0 , 0.0 , 0.0 , 0.0 . 0.0 , 0.0 ,
1.17. 1.03, 1.07, 0.23, 0.0 , 0.0 , 0.0 ,
1.54, 4.00, 4.00, 2.00, 0.0 , 0.0 , 0.0 ,
O.D , 0.0 , 0.0 , 0.22, 0.0 , 0.0 , 0.0 ,

0.
2.
0.
0.
8.
1.
0.
0.
0.
0.
0.
0.
C.
C.
0.
0.
2.
0.



0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.

21
68
93
47
00
07
0
0
0
0
0
0
0
0
0
29
71
04



0
0
0
0
0
0
0
0
0
C
0
0
0
0
0
0
0
0

.
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,



,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,

0.13
1.40
0.18
0.31
3.67
1.73
0.0
0.0
0.0
0.0
0.0
0.0
0.0
C.O
0.0
0.29
2.71
0.04



0.0
0.0
0.0
0.0
0.0
C.O
0.0
0.0
0.0
0.0
0.0
O.C
0.0
O.C
0.0
0.0
0.0
0.0

,
,
,
,
,
»
,
,
,
,
,
,
,
,
,
,
,
,



,
,
,
,
,
,
,
,
,
,
,
*
,
,
,
,
,
,

0.13,
1 .40 ,
0.29,
0.0 ,
0.0 .
0.41 .
0.0 ,
0.0 ,
0.0 ,
0.0 .
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.29,
2.71 ,
0.04 ,



0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 .
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 .
0.0 ,
0.0 ,
0.0 ,
0.0

0.
1.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
2.
0




















/

1
4
2
0
0
0
0
0
0
0
0
0
0
0
0
2
7
•






















3,BL501
0,BL501
9,BL501
,BL501
,BL501
,BL501
,BL501
,BL501
,BL501
,BL501
,BL501
,BL501
,81501
.BL501
,BL501
9,BL5Q1
1 ,BL5Q1
0/EL501
BL5Q1
6L501
BL501
BL501
BL501
BL501
BL5Q1
BL5Q1
BL5Q1
BL501
BL5Q1
BL501
BL501
fcL501
BL5Q1
BL5Q1
BL5Q1
BL501
BL5Q1
BL5Q1
BL501
BL501
21 0
22Q
230
24Q
250
26Q
270
28Q
290
300
310
320
330
34o
350
360
370
3?0
390
400
410
420
430
440
450
460
470
4BO
490
500
510
520
530
540
550
560
570
580
590
600
                                                  SOURCE  CODE  PAGE     211

-------
APPENDIX ft.           ISrAP  MOD^L           COMPUTER PROGRAM SOURCE  CODF,      ENVIRONMENTAL PROTECTION A 6E N(
X H
D
*
*
*
*
*
*
*
*
*
A
*
*
+
*
*
*
*
*

XH
D
*
•»
*
*
*
•*
*
*
*
*
*
*-
*
*
it
*
*
A LI S T F.
ATA OF
U.5* ,
j.06,
O.D ,
0.5F ,
3.06,
0.0 ,
0.58 ,
3.06 ,
0.0 ,
0.58 ,
3. 06 ,
0.0 ,
0.0 ,
0.0 ,
C.O ,
0.5P ,
3.06,
C.O ,

AUST E
ATA DF
0.55,
2.B1 ,
0.0 ,
0.55 ,
I.E1 ,
C.O ,
0.55 ,
2.61 ,
0.0 ,
0.55 ,
2.81 ,
O.D ,
C'.D ,
0.0 ,
C.O .
0.55 ,
£.61 ,
MI SSI
LCA/
0.70,
6.40,
0.0 ,
0.53.
6.15 ,
0.0 ,
0.53,
6.15 ,
0.0 ,
0.53,
6.15,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.53,
6.15,
0.0 ,

MISSI
LHI/
0.55 ,
4.24,
0.0 ,
0.55 ,
4.24.
0.0 ,
0.55,
4 .24 ,
0.0 ,
0.55,
4.24,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.55 ,
4 .24 ,
ON F A C

0.23 ,
2.33,
0.0 ,
0.41,
5.34,
0.0 ,
0.23,
5.34,
0.11,
0.53,
6.15,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.53,
6.15,
0.0 ,

ON F AC

0.27,
2.80,
0.0 ,
0.41,
5.34,
0.0 ,
0.41,
5.34 ,
0.11 ,
0.55,
4.2^ ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.55,
4.24,
TOR ! L

0.23,
2.33,
0.16,
0.27 ,
5.34 ,
0. 11 ,
0.23,
2.00,
0.22 ,
0.53 ,
6.15,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.23 ,
2.00,
0.22 ,

TOP S L

0.27 ,
2. SO ,
0.0* ,
0.41 ,
5.34,
0.0 ,
0.23 ,
2.00,
0.11 ,
0.55 ,
4. 24 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.27,
2 . 00 ,
Of E : CA

0.23,
2.00,
0.16,
0.23,
2.33 ,
0.22 ,
0.23 ,
2.00,
0.22 ,
0.53,
6. 15,1
0.0 ,
0.0 ,
0.0 ,
O.U ,
0.23.
2.00,
0.22 ,

OPE: HI

0.23 ,
2.bO ,
0.16,
0.41 ,
5.34 ,
0.0 ,
0.23,
2.00,
O.Z2 ,
1.06,
10.54 ,1
0.0 ,
0.0 .
0.0 ,
0.0 ,
O.t3 ,
2.00,
L I F 0 F< N I A

0.23 ,
2.00,
0.22,
0.23,
2.00,
0.22,
0.23,
2.00,
0.22,
0.53,
0.54,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.23,
2.00,
0.22,

6H AL

0.23,
2.30,
0.16,
0.41 ,
5.34 ,
0.0 ,
0.0 ,
0.0 ,
n.o ,
1.06,
0.54 ,
0.34,
0.0 ,
0.0 ,
0.0 ,
0.23,
2. On,

0.0 .
0.0 ,
0.22,
0.23,
2.00,
0.22,
0.23,
2.00,
0.22,
1 .06,
10. 54,
0.34,
0.0 ,
0.0 ,
0.0 ,
0.23,
2.00,
0.22,

TiTUDE

0.23,
2.00,
0.16,
0.23,
2.00,
0.11,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.27,
2. 00,

0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
o.o ,
0.0 ,
0.0 ,
0.23 ,
2.00,
0.22 ,



0.23 ,
2.00 ,
0.22 ,
0.23 ,
2.00,
0. 11 ,
0.0 .
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.23 ,
2. 00 ,

0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.23 ,
2.00,
0.22 ,



0.23,
2.00,
0.22,
0.0 ,
0.0 ,
0.22 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 t
0.0 ,
0.0 ,
0.0 ,
0.23,
2.00,

0.0 .
0.0 ,
o.o ,
0.0 ,
0.0 .
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 .
0.0 ,
0.0 .
0.0 ,
0.0 ,
0.23,
2.00,
0.22 /



0.23,
2 .00,
0.22,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.23,
2 .00,
BL501610
BL501620
E-L501630
BL501640
BL501650
BL501660
BL501670
8L5Q1680
BL501690
BL5fj1700
BL501 71 0
PL5Q1720
BL5Q173Q
BL5Q1 74Q
EL501750
BL5Q1 760
BL5Q1770
BL501780
BL501790
BL50180U
BL501810
BL501820
BL501830
BL501840
BL501850
BL501860
BL501870
EL501880
BL501890
BL501900
BL501910
BL501920
BL501930
BL50194Q
BL501950
BL501960
BL501970
BL501980
BL501990
BL5 02000
                                                                         SOURCE  rOnr  pace

-------
                  r»ooei_           coropurtR PROGRAM SOURCE  CODE.      ENVIRONMENTAL PROTECTION


* G.O  ,  0.0  .  0.0 . 0.22,  0.22,  0.:?, 0.22.  0.22, 0.22,  0.22  /      liL50?OlO
                                                                          BL5Q2020
 EhD                                                                      BL50Z030
                                                           SOURCE  CODE PAGE     213

-------
AF Pt
X A
               ISMAP MODfL
                                              COMPUTER  PROGRAM  SOURCE  CODE
ENVIRONMENTAL  PROTECTION AGENC
<
c


c
c***



















c
c***










r
c
c

R
R

IDL
D
*
*
•*
it
+
*
*
+
*
*
*
*
*
*
•*
*
*
*

IDL
D
*
*
*
*
t
*
*
*
*
LOCK DATA
O^'PON/IDLBCf/I
OMtfON/lDLDCM/I

EAL 1DLL49(10,
EAL IDEL49UO,

E EMISSION FAC
ATA IDLB49/
2.01. 0.68,
16.42, 12.73,
0.16, 0. Z6 ,
2.01, 0.68,
16.42, 12.73,
D. 1 6, 0.26 ,
2.93, 1.86,
17.24, 18.62,
0.18, 0.27,
3.85, 0.71,
24.63, 15.70,
0.02, 0.04,
0. 50, 0.40,
1.32. 0.66,
1.11, 1.00,
4.05. 2.12,

0.01, 0.02,

E EMISSION FAC
ATA IDLBCA/
2.01, 0.93,
16.42, 15.0?,
0.16, 0.24,
2.01, 0.68,
16.42, 12.73,
0.16, 0.26,
2.93. 1.86,
17.24. 13.62,
D.1 tj, 0.27,
D L b 4 9 . I D
DFL6 i , ID

3.6) ,1 DL
3,6) , IDE

TOR INTE

0.27,
5.43,
0.16,
n.?3.
2.02,
0.16,
0.24,
1 .P 2 ,
0.18,
3.09.
21.^2, 1
0.02,
0.40,
0.66 .
0.°9,
1 .72,

0.04 .

TOR JNTST

0.04 ,
0.1 3,
0.07,
0 . ? c ,
2.02,
0.16,
O.n?,
1 .72,
0.?5,
LrCA . I
ELCA , I

0 C A ( 1 0
LCAC10

RCEPT :

0.03,
0.8^,
0 . 3 (• ,
0 . c & ,
1 .fc2.
0.25,
0.0* ,
0 .49,
0.04,
0.73,
9.23,
0.02,
0.25,
0.66,
0.27,
0.13,
0.65,
0.01,

R C L P T :

0.02.
0.18,
0.11 ,
G.07,
1 .72,
0.25,
0.04,
0.48,
U.09 ,
DL&HI
1>ELHI

,3,6) ,
,3,6),

49 ST

0.07,
0.41 .
0 .22.
0 .OS,
0.4-3,
0.18.
0.0 ,
0.0 .
0.0 .
0.20,
1 .54,
0.01 ,
0.0 .
0.0 .
0.0 ,
0.0 ,
0.0 ,
0.0 .



I OLP HI
1DELHI

ATE

0.07
0.0
0.04
0.0
0.0
0.04
0.0
0.0
0.0
0.0
0.0
0.01
0.0
0.0
0.0
0.0
0. 0
0.0



(1
(1



,
,
,
«
,
,
,
,
,
,
,
,
,
,
,
,

f
,



0,3,
0,3,



c.o
0.0
0.2
0.0
0.0
0.0
0.0
o.c
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0. 0
0.0



6)
6)



, 0.0
, 0.0
, o.c
, 0.0
, 0.0
, c.o
, 0.0
, 0.0
, 0.0
, 0.0
, 0.0
, 0.0
, 0.0
, 0.0
, 0.0
, 0.0
, 0.0
, 0.0








, 0
T 0
, 0
, 0
, 0
, 0
, o
, 0
, o
, 0
» 0
, o
, o
, 0
, 0
, 0
, o
, 0








.0 ,
.0 ,
.0 ,
.0 ,
.0 ,
.0 ,
.0 ,
.0 ,
.0 ,
• 0 ,
.0 ,
.0 ,
.0 ,
.0 ,
.0 ,
.0 ,
. 0 ,
.0 ,








, 0.0
, 0.0
, 0.0
, 0.0
, 0.0
, 0.0
, 0.0
, 0.0
, 0.0
, 0.0
, 0.0
, 0.0
, 0.0
, 0.0
, 0.0
, 0.0
, 0.0
, 0.0

C ALI FORMA

0.0 ,
0.14 ,
0.08 ,
0.04 ,
0.48,
0.21 ,
0.0 ,
0.0 ,
0.0 ,

0.0
0.0
0.02
0.0
0.48
0.09
0.0
0.0
0.0

,
,
,
,
,
,
,
,
,

0.0
0.0
0.02
0.0
0.0
0.04
0.0
0.0
0.0

, 0.0
, 0.0
, 0.0
, c.o
, 0.0
, 0.0
, 0.0
, 0.0
, 0.0

, 0
, 0
, 0
, 0
» 0
» 0
, o
, o
, 0

.0 ,
.0 ,
.0 ,
.0 ,
.0 ,
.0 ,
.0 ,
.0 ,
.0 ,

r 0.0
, 0.0
, 0.0
, 0.0
, 0.0
, 0.0
, 0.0
, 0.0
, 0.0
BL600010
BL600020
BL600030
BL600040
EL600050
BL600060
BL600070
BL600080
BL600090
BL600100
.BL600110
,BL60Q1 2Q
,BL60o13o
,E L600 1 * 0
.BL600150
.FL600160
,B L60Q1 7(3
.BL60018Q
»BL6QO 1 90
.BL6002QO
,BL60o21 o
,BL60o22Q
,BL600230
.BL60024Q
,BL600250
,BL60026(J
* D L 6~0 0270
/BL600280
BL600290
BL600300
BL600310
.BL600320
,&L600330
.BL600340
,BL600350
,BL60036Q
,BL600370
.BL600380
.BL600390
,BL6004CC
                                                               SOURCE CODE  PAGE

-------
ZSMAP  MODEL
                       COMPUTER PROGRAM SOURCE  CODE*
                                                              ENVIRONMENTAL PROTECTION  * 61









c
c*



















c
c*








*
•*•
*
*
*
*
*
*
*

**IDL
D
*
*
*
*
*
*
*
*
*
*
*
*
•A
*
*
*
*
it

**IDL
0
*
*
*
*
*
+
*
3 . ? 5 , 0.71, 3 . 0 s> ,
24.63. 15.70, 2 1 . c 2 ,
0.02, 0.04, 0.02,
0.50, 0.40, 0.40,
1.32, 0.66, 0.66,
1.11, 1.00, 0.93,
3.46, 1.81, 1 . 4 d ,
11.57, 6.82, 5.00,
0.01, 0.02, 0.04,

E EM 1SSION FAC TOR IN
ATA IDLBHI/
c . 2 9 , 1.04, 0.24,
20.70. 20.71 , 4 .45,
0.26, 0.19, O.Oc,
2.29. 1.04, 0.?2,
2C.70, 20.71, 5.60,
0.26, 0.19, 0 . 0 a ,
?.40, 3.50, 0.79.
3t.S4, 43.25, 3.75,
0.10. 0.17. n.1 1 ,
4.46, 1.34, 5.? 2,
55.59, 40.68, 56.80,
0.01. 0.03, 0.02,
0.58. 0.75, 0.75.
2.97, 1.71, 1.71,
D.64, 0.64. 0.64,
4.01, 3.59, 2 . ? 7 .
26.07, 6.68, 4.90,
0.01. 0.01, 0.03,

E EMISSION FACTOR SI
ATA IDEL49/
0.1P, 0.20, 0.07, 0.
2.15, 2.92, 0.3^, 0.
0.0 , 0.0 , 0.0 , 0.
0.18, 0.20, 0.1", 0.
2.55, 2.92, 1.56, 1.
0.0 , 0.0 , 0.0 , 0.
0 , 1 P , 0.20, 0.19, 0.
0
4
0
G
0
0
0
0
0

TER

0
3
0
0
2
0
0
1
0
1
T 1
0
0
1
0
0
1
0

OPE

07,
67 ,
03,
19,
56,
0? ,
06,
.1?-,
.40,
.05,
.25,
.66,
.81 ,
.32,
.91 ,
.01 ,

CEPT :

.17,
.01 ,
.06 ,
.28,
.02.
.04 ,
.1?,
.01 ,
.ir ,
.22,
.15,
.01 ,
.34,
.71,
.27,
.20,
.34,
.01,

: 49

0.0
0.59
0.06
0.06
0.25
0.01
0.0
0.05,
4 .04 .
0.05,
0.0 ,
0.0 ,
0 .27,
0.11 ,
0.0 ,
0.0 ,

HIGH

0.24,
4 .48 .
0.28.
0,22,
5 .60.
0.25,
0.03,
0.49,
0.04 ,
0.32,
3.17,
0.01 ,
0.25,
0 .66,
0.0 ,
0.13.
0.65,
0.04,

STATE

, 0.0
, c.c
f o.o?
. 0.0
, O.fj
, 0.0?
, 0.0
0.03,
0.32,
0.04,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
O.C ,
0.0 ,

ALTiTUD

0.05,
1.81,
0.06,
0.39,
3.75,
0.04,
0.0 ,
0.0 -r
0.0 »
0.20,
1.54,
0.01,
0.0 .
0.0 ,
0.0 ,
0. 0 ,
0.0 ,
0.0 ,



, 0.0 ,
, 0.0 .
, 0.0 ,
T 0.0 ,
, 0.0 ,
, 0.0 ,
, 0.0 ,
0.01 ,
0.0 ,
0.03 ,
O.C ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,

E

0.05 ,
C. 84 ,
0.14,
0.12 ,
1.01 .
0.11,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 .
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,



0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
O.C ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,



0.03,
0.41 ,
0.02 ,
o.oe ,
0.49,
0.16,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,



0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0,
0.0 ,
0.0 ,
0.0 .
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 .



0.0 ,
0.0 ,
0.04,
0.0 ,
0.0,
0.04 ,
0.0 .
0.0 ,
0.0 .
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 .
0.0 ,



0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0



0.0
o.o
0.0
0.0
0.0,
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0










,BL60P41 D
.E-L60042o
,BL600430
,61600440
,EL6Qo45 0
»E L60o^6o
,BL60047Q
,BL60(?48o
/BL600490
BL600500
BL600510
BL60P520
,BL600530
,BL600540
,BL600550
,BL6Q0560
BL60057Q
, B l_6 OP 58 0
»B L60Q 5 9 (j
,PL60o6QO
»PL6006 1 0
,BL6Q0620
,BL600630
,8 l_6 Of! 640
, 8 l_6 QO 6 5 Q
,6L600660
,BL6Q0670
,BL60C68Q
,&L60Q690
/BL600700
BL600710
BL600720
BL600730
EiL60074Q
BL600750
BL600760
BL6Q0770
BL600780
BL60079Q
BL600800
SOURCE CODE  PAGE
                                                                        215

-------
APPE NPI X A .
                       ISMAF' MODFL
COMPUTER  PROGRAM  SOURCE  CODE,
ENVIRONMENTAL  PROTECTION A GE N











c
c* +



















c
c**






*
*
*
A
A
*
*
*
*
A
A

*I OL
D
A
A-
*
A
*
*
A
A
A
A
A
A
A
A
A
*
A
*

*IDL
D
A
A
*
*
A
c .55 , 2 .92 , 1.56,
O.D , 0.0 . 0.01 ,
U . 1 P , 0.20, 0 . 2 n ,
2.55 , 2 .92 . 2.9?,
U.D , 0.0 , 0.0 ,
0.0 , 0.0 , 0.0 ,
U.D , 0.0 , 0.0 ,
0.0 . O.U , 0.0 ,
0.36 , 0 .62 , 0.6?,
1.2?. 1.12, 1.12,
U.D , 0.0 , 0.0 ,

E EMISSION FACTOR
ATA 1DELCA/
L.1? , 0.31 , 0.01 ,
1.55, 3.15 , O.OP,
U.D , 0.0 . 0.0 ,
0.1?, 0.20, 0.15,
2.55, 2.92 , 1.56,
U.D , O.D , 0.0 ,
O.U- , 0.20, 0.0 r> ,
2.55 , 2.92, 1.56,
U.D , 0.0 , 0.0?,
0.1 E , 0.20, 0.20,
2.55 , 2 .92, 2.92,
O.D , 0.0 , 0.0 ,
U.D , 0.0 , 0.0 ,
O.D , 0.0 , 0.0 ,
C.O , 0,0 , 0.0 ,
0.31 , 0.28. 0.2?,
1.EO , 3.61 , 3.61 ,
0.0 , 0.0 , 0.0 ,

E EMISSION FACTOR
ATA IDELHI/
0.21, 0.14, 0.0?,
0.53, 1.15. H.9P,
U.O , 0.0 , 0.0 ,
(J.21 , 0.14 , 0.0",
0.53, 1.15, 1.24 ,
0.25 ,
0.02 ,
0. 20.
2.92 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.10,
0.4S ,
0.01 ,

SLOPE
0.0 ,
U.O ,
0. 40 ,
5.00 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,

: CALIF
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
C.O ,
0.0 ,
0.0 ,
0.0 ,

0 R N I A
0.0 .
0.0 ,
0.0 ,
0.0 .
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,


0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,


0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,


0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 /


6
f!
B
B
B
B
B
B
B
B
e
B
B
L60061 0
L60D&2Q
L60DE30
L600&4 o
L6Q085Q
L6Q0860
L6QO&7G
L600880
L600890
L600900
L600910
L600920
L60C93Q
BL600940
0.01 ,
0.08 ,
O.U ,
0.05 ,
1 .56,
0.02,
O.U5 ,
0.29,
0.04 ,
0.20,
2.92,
0.0 ,
i).0 ,
0.0 ,
0.0 ,
0.12,
1.1? ,
0.0 ,

SLOPE

0.07 ,
Q.E7 ,
0. 04 ,
0.19 ,
1.56,
U.O ,
0.06 ,
0.0 ,
0.05 ,
0.29,
0.04,
0.0 ,
O.U ,
O.U ,
0.20,
2.92 ,
0.0 ,
O.U ,
O.U ,
0.0 ,
0.12,
0.0 ,
0.0 ,

: HIGH

0.07,
0.83 ,
U.06 ,
0.19,
1.56,
O.D ,
0.0 ,
0.0 ,
C.O ,
0.29,
0.04 ,
0.0 ,
0.0 ,
C .0 ,
0.20,
5.00,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
C.O ,
0.0 ,

0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.04,
0.0 ,
0.0 ,
0.0 ,
0.40,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,

0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,

0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,

0.0,
0.0 ,
0.0 ,
0.0 ,
0.0 .
0.0 .
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 /

ALT ITUOF

0.07,
0.67,
0.06,
0.19,
1 .56,

0.07,
0.59,
0.06,
0.06,
0.25,

0.07,
0. 59 ,
0.0? ,
0.06,
0.25 ,

0.0 ,
0.0 ,
0.08,
0.0 ,
0.0 ,

0.0 ,
0.0 .
0.0 .
0.0 ,
0.0 ,
P
B
B
B
B
B
B
B
e
B
e
B
B
B
B
B
B
B
B
B
B
L600950
L600960
L600970
L60Q9EO
L6QQ990
L6Q1000
L601010
L601020
L6Q1030
L6Q1040
L6Q105Q
L6Q1060
L60107Q
L601080
L6Q1090
L601100
L601110
L601120
L601130
L601UO
L601 150
BL601160
B
B
B
B
L601170
L601180
L60119Q
L6Q1200
                                                                       SOURCE  CODE  PAGE
                                                216

-------
A '           I S K A F M O D r L           COP-PU^Ef*  PP. OGPA~!  SOURCE  COOE»      ENVIRONMENTAL  PROTECTION


                                                                             BL6Q121C
                                                                             BL6Q1 220
                                                                             BL6Q1230
                                                                             6L60124C
                                                                             BL6Q1250
                                                                             BL6Q1260
                                                                             BL6Q1270
                                                                             BL6Q1 280
                                                                             BL6Q1290
                                                                             BL6Q1300
                                                                             6L601310
                                                                             EL60132C
                                                                      '       BL6Q133U
                                                                             BL601340
  END                                                                        BL601350
•*
•*•
*
*
*
*
*
*
*
it
*
+
*
C.
0.
c.
0.
c.
G.
(j.
C.
G.
0.
c.
G.
G.
0 .
1 1 ,
r 7
„! „' *
D ,
21 ,
53,
D ,
D ,
D ,
0 ,
36,
66 ,
0 ,
O.C .
O.U ,
1.15,
0.0 ,
O.U .
1 .15,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0 .62 ,
1.12,
0.0 ,
0.0 ,
0. 1-3,
1.5f .
0.01 ,
O.U,
1.15,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.62,
1.12,
0.0 ,
G.G7 ,
0.0? ,
o. 2: ,
0.01 ,
0.20,
2.92 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.10,
0.4' ,
0.0 ,
G . 0 Z ,
0.06,
0.25,
0.02 ,
C. 40 ,
5.00,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.10,
0 . 4 ? ,
O.G1 ,
0.0?,
O.Q .
D.O ,
0.0 ,
0.40,
5.00,
0.0 ,
0.0 ,
C.O ,
0.0 ,
0.0 ,
O.G ,
0.0 ,
0.01 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
O.G ,
0.01 .
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0. G ,
0.0 ,
0.02 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0
O.G
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
                                                             SOURCE  CODE PAGE     217

-------
APfJ[NOJX  A.           ISrAP  MODEL          COMPUTER PROGRAM  SOURCE CODE,      ENVIRONMENTAL  PROTECTION  AGE»
P L ( C K DATA
C C>CON/ Jf'iCRC D /PC IKHN ,PC I '-'HY , PCI K CN.PC1MCY
I NTLGEP PC1"-HN(1 ^ , r ,4). p C I ;•' H Y (1 9,5 ,4) ,PC IMCNC19
* FC I MCY (19.5,4 )

DATA
* 52,
*
*
*
-*
•a
*
*
•*
*
*
•*
*
*
*
*
n
*
*

DATA
* 5F,
*
*
*
*
*
*
*
*
*

PCIMHN/ 3, 6,11,15,19,24,27,31,35.39,41,42
4, 8,1?,1»,22,2.%74,36,40,42,45.46.49,50
7, 14, 20, 28,34,39, 43, 46, 4C, 52, 54. 55, 57, 5*
8, 15,22,30, 76, 41, £6, 4Q, 52. 54, 56, 5?, 59, 61
t, 16, 23, 31, 77, 42, 46, 5 0,5 3, 55, 57, 59, 60, 61
4. 6. 9, 11, 16, 1^, 20. 2 7, 25,25,29. 30.72,33
6, 11, 16, 20, Z3, 27, 71, 33, 36, 3% 40, 41, 43, 44
10, 18, 24, 2s, 33, 36, 40, 42, 45, 47, 4fe, 50, 51, 53
12, 20. 26, 3?, 37, 40,43. 46, 49, 51, 52, 54, 55, 56
13, 22. 2?, 34, 79, 4 7,^0.40, 51, 54, 55, 57, 58, 59
4, 11, 22, 32, 42, 4^ , ^4,5? ,62, 64, 66, 68,69,71
4. 13, 25, 3 7 , £ 6 , 53, r I. 62, 65, 67, 6 9, 71, 72, 73
4, 15, 2 f , 4 0 t 4 9, 55,60,64,67, 69, 71, 72, 74, 75
5, 17, 71. 47, 51, 5 >; , << 3 . c 6 , 6 r' , 71, 73, 74.75, 76
5, 18, 72, 44, 5 3, 5V, A 3, 67, 70, 7?, 73. 75, 76, 77
3, 7, 14, 2 7. , 71, 3 f , 4 <, . 4 Q . 53,56,53.60,62, 63
3, 7, 15, 24,^3, 40, 46. 51 ,54,57,60,62,63.65
3, 7, 16. 25, "J 4, 41, 47, 51 ,55,5°, ,60. 62,64, 65
3, e , 17,26,75, 42 , 4 a . 5 2 , 5 6 , 5 <•' , 61, 63, 65, 66
3, 8. 17, 27, 7 6, 47, 4 9, 54, 57, 60,62.64, 66, 67

PC I PHY/ 6, 17,1 7,20,25,32 ,35,40,45,47,49,50
9 , U, 19, 2 r , 3 1,36, 43, 45, 50, 51, 5 3 , 54, 55, 56
12, 19, 27, 3r, 41, 44, 51 , 53, 55, 57, 59, 61, 61, 63
1 3, 24, 33, 40, 46, 50, 54, 57, 55, 61, 63, 65, 65, 66
14. 25. 7 5, 42, 43, 57, 5 6. 59, 62. 64, 65. 66. 6 £,,69
9, 13, 15, 1',?2, 26, ?i.,31 , 3 1, 35, 37, 39, 40, 42
13, 16, 20, 2 << , ?. 1.34, 3 c', 41, 43, 44, 45, 47, 48, 50
14, 21, 2 fi , 3 7, 7i, 41, 45, 47, 50,52,53, 54, 56, 57
1 5 , 2 4 , 3 1 , 3 f , 4 1 , 4 4 , 4 {. . 5 0 , 5 ? , 5 4 , 5 6 , 5 g , 5 8 , 60
16,26,7,3,39,43,47, r-0, 5 3 ,5! ,57,59,60,61 ,63

r
, -•

,4
,5
,5
,t
, '
7
9 -
,4
,5
^
, -
,6
,7
,7
,7
,7
,7
,6
,6
.6
,6
,6

,5
,5
,6
,6
,7
,4
,5
,5
,6
,6

,

4
1
9
2
2
5
5
5
7
1
2
4
6
7
£
5
6
7
8
8

3
6
5
8
0
4
2
9
1
4

4

,
9
,
.
,
V
«
.
,
.
,
,
,
,
,
.
,
,
,
,

,
,
.
,
9
,
,
,
.
,

),

46
52
60
63
63
36
46
55
59
61
73
75
77
78
79
66
67
68
69
69

53
58
65
68
70
44
52
60
62
65



,47
,54
,61
,64
,64
,36
,47
,55
,59
,62
,74
,76
,77
»79
,79
,67
,68
,69
,70
,70

,54
,61
,66
,69
,71
,44
,53
,61
,63
,65



,48
.56
,62
,65
,65
.37
, 4?
,57
.60
.63
,74
,77
9 7?
. 79
9fcO
968
,69
.70
,71
.71

,56
,63
.66
,70
.72
,46
,54
,61
.63
,66



,49,
,57,
,63,
,65,
,66,
.78,
,49.
,56,
,61 ,
.64,
.75,
,77,
,79,
,PO,
9 r 1 9
9 t V «
,70,
.71,
,71.
,727

.57,
.63,
,67,
,71.
,72,
,48,
,55,
,62,
.65,
,67,
,P6,
e
B
B
E
B
B
B
B
51, B
B
B
B
B
b
B
B
B
B
B
B
B
B
e
B
P
e
B
B
B
57,8
B
B
B
B
B
B
E
B
B
B
L700
L700
L70C
L700
L700
L70C
1700
L700
L700
L70Q
L7QO
L7QO
L700
L7QO
L700
L70C
L7QO
L700
L70D
L70Q
L700
\_7 on
L700
L7QO
L700
L7QO
L700
L700
L700
L70D
L700
L700
L7QO
L700
L700
L700
L700
L70P
01G
020
030
040
050
060
070
080
090
10G
110
120
130
14Q
150
160
170
180
190
200
210
220
230
240
250
260
270
280
290
300
310
320
330
340
350
360
370
380
L700390
L7Q0400
                                                                   SOURCE  CODE  PAGE     21£

-------
                   I S f A P fl O D F |_            COr-'PUTtP  PROGRAM  SOURCE. CODE.       ENVIRONMENTAL  PROTECTION
      *
      •*
      *
      *
      *
      *
c
t
       DATA
      *  50,
      *
      *
      *
      •*-
      *
      *
      *
      *
      *
      *
      *
      *
      *
      *
       DATA
      *  62,
      *
13
15
7
11
12
14
15


PC 1
9
12
14
1 5
10
17
21
23
Z5
0
0
1
1
2
0
0
1
2
3

PC I
16
20
?2
23
1 7
?6
30
, 1 6 , 5 3 . 6 ? , ( V . 7 f , 7 6 . 7 ? , « 0 , c 1 , P 2 . e ? . ? 3 , L 4 , P 5 .
, 3£ , 5 4 , 6 4 , 7 0 , 74 , 7 7 , 7 9 , J> 1 , £ 2 , p 3 , fc 4 , 8 5 , 8? , 8 6 ,
59 54 64 70 74 77 SO M ^ 7 ** 4 85 F 6 £6 p 7
,24, 36, 52, 54, 65, 66. 6 9, 72, 75, 75, 75, 77, 70, 79,
,29, 45, 56, 63, 63, 70, 74, 76, 76, 78, 80, 8 0,81, 82,
,32, 46, 5P, 65, 69, 72, 75, 76, 77, 80, 81, 81, 82, S3,
,36, 52, 62, 68, 73, 76, 78,80,81,? 2, £3,84, 85, 85,
, 38, 54, 64, 70, 74, 77. 79, 81, 8 3, P. 4, 85, E 5, 86, P7,


M C N 7 7,17,17,22,26,30,32,35,37,40,41,42,44,
,17, 22, 27, 31, 35, 7 7, 40, 4 2, 44, 46, 48, 49. 51, 5 2.
,21, 27, 32, 36, 40, 44. 47, 49, 52, 53, 55, 56, 55?, ?9.
, 23, 2<>, 35, 39, 43, 47, 50, 52, 55, 56. 5£, 59, 60,61.
,25, 31,36,41, 45, 49, 52, 54, 56, 58, 59, 61, 62, 63,
, 15. 20, 2 ' , 2 6 , 2 .',31.32,34.35, 37. 37, 3 8,40, 41,
,25 ,29,32,36,3? , 41,42 ,44,46 ,47,48,49,50 ,51,
,31, 3 6, 40, 44, 47, 49, 5 1,53, 5 5,56,57,58, 59, 60,
, 34, 39, 47, 46, 49, s 2 , 5 4 , 5 6 ,57,59,60,61, 62, 63,
, 3 6 , 4 1 . 4 r. , 4 9 , 5 2 , r 4 , 5 6 , 5 -'. , 6 0 , 6 1 . 6 2 , 6 3 . 64 , 6 5 .
, 4, 8, 14, 2U, 26,30,3 3, 35, 39, 42, 44, 45, 48, 49,
, 5, 10, 1P, 23, 2", ,'.2, 37, 40, 43, 45. 47, 49, 51 ^ 2»
, 6, 13, 21, 27, 33, 7t. 42, 45, 4£, 50, 52, 54, 56, 57,
. 6, 14, 22,?^, 34, -<9. 43, 47. 40, 52, 54, 55, 57, 58,
, 7, 14, 22, ?V, 35, 40. 44, 47, 50, 52, 54, 56, 58, 59,
, 2, 7, 13, 19,24, TV. 33, 37, 40, 43, 45, 47, 49, 50,
, 4, 11, 1of?6, 32, 7 7. 42. 45, 4P, 51. 53, 55, 56, 58,
, 5, 13, 21, co, 34 ,40. 44, 4?, 51, 53, 55, 57, 58, 60,
, 8, 18, 2?,76, 42, 47. 52, 5 5, 58, 60, 62, 63, 65, 6 6,
, 12, 23, 33,42, 4 1<. ,53, 57, 60, 67, 65, 66, 68, 69, 70,

MCY711, 20, 26, 30, 34. 40, 43, 47, 50, 52, 53, 55, 56,
, 23, 29, 3:, 40, 43, 49, 51,? 4, 5r, 57, 5 8, 59, 60, 62,
, 29. 3 7, 42,4 7, 4r/ , 55, 5 7 ,59,61 ,62,64 ,64,66 ,67,
, 34 , 4 1 , 4 6 , r> 1 , 5 3 , 5 t . 6 1 , 6 3 , 64 , 65 , 6 7 , 6 8 , 6P , 7 0 ,
,35. 42.42,53,57, ',0,62, 65, 66, 68, 6 9, 70, 71, 72,
,2 5, 27, 7-1, 75,3'?, 4 0.43, 44, 45, 49, 50, 50, 53, 54,
,33,76,41,46,48,51,54,56,57,58,59,60,61,63,
.41, 47, 50, 54,57, 59.61,63,65, 65, 66,67,6?, 69,
fc5
fc6
°7
80
82
83
86
87


45
53
60
62
64
41
52
61
63
66
50
53
59
60
60
52
59
61
67
71

57
62
68
70
72
54
63
70
,*6
,E7
PP
,80
,83
,84
,86
,88


,46
.54
,61
,63
,65
,42
,52
,62
,64
,67
,50
,54
,60
,61
,61
,53
,60
,62
,66
,72

.56
,64
,68
,71
,73
,55
,64
,71
,

,
,
,
,
,


«
,
,
,
,
,
,
,
,
,
,
t
,
,
,
,
,
,
.
,

,
«
,
,
,
,
,
,
at
b7
pc
81
84
85
87
88


47
55
62
64
65
43
53
62
65
67
53
56
61
62
62
54
62
63
69'
73

59
66
68
72
74
56
65
71
,

.
,
,
,
,


,
,
,
,
»
.
,
,
,
,
,
,
,
,
,
,
,
,
,
,

,
,
,
,
,
»
,
,
P7
P7
pp
81
P4
P5
87
66


48
56
62
65
66
44
54
63
65
68
55
57
62
63
63
55
62
64
70
74

61
66
70
73
74
56
ft
71
9
V

f
f
*
9
7


,5
,
,
,
,
,
,
,
,
,
,
,
,
B
E
B
B
B
B
B
B
e
B
0,8
B
B
B
E
B
B
B
B
B
B
B
B
L7Q0420
L7Q0430
i 7 nn 44 o
1_ ' \J U v'
L70045Q
L7Q0460
L7Q0470
L7Q0480
L700
L700
L700
L700
L700
L7QO
L7QO
L7QO
L7QO
L7[)0
L7QO
L7QO
490
500
510
520
530
54Q
550
560
570
580
590
600
L7Q0610
L7QO
L7QO
L700
620
630
640
8L70065Q
,
,
,
,
,
/

,6
,
,
»
»
i
*
,
B
B
B
B
B
B
e
OtB
0
B
e
B
B
R
B
L7QO
L7QO
L7QO
L7QO
L7QO
L700
L700
L700
L700
L700
L700
L7QO
L700
L7QO
L700
66Q
670
680
690
700
710
720
730
74Q
750
760
77G
760
79(j
soo
                                                                        SOURCt  CCDE  PAGE      219

-------
APPENDIX A.           ISKAP MODEL           COMPUTER  PROGRAM SOURCE  CODE,      t N VI RO N* E N TA L  PROTECTION A Gi
4
*
*
*
+
*
*
*
*
*
#
*

F Nt
7
7


1
1
1

1
1
L.
2


2
3
5
I
1
7
4
9
5
3
1
7


t
9
9
ff
9
9
V
*
9
9
9
*


45 ,
47,
24 ,
27,
29,
30,
30,
30,
37,
59,
43 .
44 .


^0,5^,C7
52,56,60
40,48,56
42, 51 ,5o
43,52,59
43, 52,59
43,52,59
41,56,58
51 ,60,66
52, 62, 6c
57.66,^1
5^,6*, 72


,60
,6?
,60
,63
,64
,64
,64
,63
,70
,71
,75
,76


t (> i ,
,C 5,
,65,
,66,
,67,
,6b.
,68,
, 6L.
,72,
,74,
, 76 ,
, 79,


64 ,65,67,68,69,70,71 ,72,72 ,73,73 .74
o7,6^,69,^o, 71, 72, 73, 74, 74, 75, 75, 76
67, 6 9, 72, 72, 74, 75, 76, 77, 78, 78, 70, 79
t 9, 71, 73, 74, 76, 76. 77, 78, 79, 79. 60, f.O
70, 72, 74, 75, 76, 77, 7?, 79, 80, *0, 61, F1
71 ,73,75,76,77,78,79 ,£ 0,80,81 ,82, P2
71, 73, 75, 76, 77, 76, 79, PO, 8 1,81, 82, 82
71, 74. 77, 77. 7£, 79, S1,M, 81, 81, 82,83
76, 77, 78, 80, 62, 6 2, 82, *3, 84, 84, 85, 85
77, 7£, 79, 82,82,* 2,84,P4,84,35,86,F6
b 0 , S 1 , S 7 , 84 , 8 5 , ° 5 , b6 , F 6 , 87 , 8 7 . 65 , P8
fc1,P3,g4,85,&6,P6,67,58,88,S8.fc9,r9


,
,
,
,
,
,
,
,
,
,
,
/


B
e
p
E
b
P
B
e
B
L 7 00 8 1 u
L700C.2Q
L70083U
L70084Q
L70085U
L700K6Q
L700£?0
L7Q0880
L7QD8<>0
bL7Q0900
B
B
B
E
L70091 0
L700S20
L700930
L700940
                                                                         SOURCE CODE  PAGE

-------
                                 SECTION 8

                                REFERENCES


1.  Dabbert, W.F. and R.C. Sandys and P.A. Buder,  ISMAP - A Traffic/
    Emissions/Dispersion Model for Mobile Pollution Sources.   User's Manual.
    Prepared for California Business Properties Association by Stanford
    Research Institute,  Menlo Park, California 94025.

2.  Automobile Exhaust Emission Modal Analysis Model,  EPA-460/3-74-005,
    January 1974.

3.  Newell, G.F., Approximate Methods for Queues with  Application to the
    Fixed Cycle Traffic Light,   S.I.A.M. Review.   Vol. 7, No.  2.

4.  Webster, F.V., Traffic Signal Settings.  Road  Research Technical Paper
    No. 39, Road Research Laboratory, H.M. Stationary  Office,  London, England.

5.  Technical Guidelines for the Review of Indirect Sources  (Draft).  Stanford
    Research Institute, Menlo Park, California. Prepared for  the U.S. Environ-
    mental Protection Agency, Research Triangle Park,  N.C.  June  1976.

6.  Benesh, F.   User's Manual for the Intersection-Midblock Model.  GCA/Tech-
    nology Division,  Bedford, Massachusetts.   Prepared  for the  U.S. Environ-
    mental Protection Agency, Research Triangle Park,  N.C.  July  1978.

7.  Johnson, W.B., W.F. Dabberdt, F.L. Ludwig, and R.J. Allen.  Field Study
    for Initial Evaluation of an Urban Diffusion Model for  Carbon Monoxide.
    Coordinating Research Council and Environmental Protection Agency,
    Contract CAPA-3-68 (1-69), Stanford Research Institute, Menlo Park,
    California.  1971.

8.  Mancuso, R.L. and F.L. Ludwig.  User's Manual  for  the APRAC-1A Urban
    Diffusion Model Computer Program.  Contract CAPA-3-68 (1-69), Stanford
    Research Institute, Menlo Park, California.  119 pp, (NTIS-PB 213  091).
    1972.

9.  Highway Research Board, Highway Capacity Manual 1965,  Special Report 87,
    NAS-NRC, Washington, D.C.  1965.
                                   221

-------
10.   Ludwig,  F.  L.,  W.  B.  Johnson,  A.  E.  Moon,  and R.  L.  Mancuso.   A Practical
     Multipurpose Diffusion Model for  Carbon Monoxide.   Final Report, Contracts
     CAPA-3-68 and CPA 22-69-64,  Stanford Research Institute, Menlo Park,
     Califronia.   184 pp., (NTIS-PB 196 003).   1970.

11.   Johnson, W.  B., W.  F. Dabberdt, F. L.  Ludwig, and R. J.  Allen.  Field
     Study for Initial Evaluation of an Urban Diffusion Model for Carbon
     Monoxide.  Comprehensive Report,  Contract  CAPA-3-68 (1-69),  Stanford
     Research Institute, Menlo Park, California.   240  pp., (NTIS-PB 203 469).
     1971.

12.   Ludwig,  F.  L.  and W.  F. Dabberdt.   Evaluation of  the APRAC-1A Urban Diffu-
     sion Model for Carbon Monoxide.   Final Report,  Contract  CAPA-3-68 (1-69),
     Stanford Research Institute, Menlo Park,  California.  167 pp., (NTIS-PB
     210 819).  1972.

13.   Compilation of Air Pollutant Emission Factors,  Supplement 5  (AP-42).
     U.S.  Environmental Protection Agency,  Research  Triangle  Park,  N.C.  27711.
     April 1975.

14.   Guthman, L.   User's Guide to MOBILE1.   U.S.  EPA,  Washington,  D.  C.  1978.

15.   Ludwig,  F.,  et al.   User's Manual  for the  APRAC-2.   Emissions  and Diffu-
     sion Model.   Stanford Research Institute,  Menlo Park, California.   1977.

16.   Wiltsee, K and Benesh, F. Documentation of  Modifications to  APRAC-2 for
     Incorporating 1978 Emission  Factors.   GCA/Technology Division, Bedford,
     Massachusetts.   Prepared for Atlanta Regional Commission, Atlanta, Ga.
     (Model modifications have been completed and is currently being used;
     documentation will be published September  1978).
                                     222

-------
                                  TECHNICAL REPORT DATA
                           (Please read Instructions on the reverse before completing)
  REPORT NO
  EPA-450/3-78-040
                                                          3. RECIPIENT'S
4.TITLE ANOSUBTITLE
  Carbon Monoxide Hot Spot Guidelines
  Volume VI:  User's Manual for the Modified  ISMAP Model
            5. REPORT DATE
              August 1978
            6. PERFORMING ORGANIZATION CODE
  AUTHOR(S)

  Frank Benesh
            8. PERFORMING ORGANIZAT

              GCA-TR-78-32-G(6)
9. PERFORMING ORGANIZATION NAME AND ADDRESS
  GCA Corporation
  GCA/Technology Division
  Burlington Road
  Bedford,  Massachusetts 01730
             10. PROGRAM ELEMENT NO.

              2AF643
             11. CONTRACT/GRANT NO.

              68-02-2539
12. SPONSORING AGENCY NAME AND ADDRESS
                                                           13. TYPE OF REPORT AND PERIOD COVERED
  U.S.  Environmental Protection Agency
  Office of Air Quality Planning and Standards
  Research Triangle Park, North Carolina   27711
             14. SPONSORING AGENCY CODE
15. SUPPLEMENTARY NOTES
16. ABSTRACT
  A modified version of the ISMAP model has  been developed for the analysis  of carbon
  monoxide  hot spot locations.  The original version of ISMAP (Indirect  Source Model
  for Air Pollution) was developed by Stanford  Research Institute to be  used in the
  evaluation of indirect source impact upon  ambient carbon monoxide concentrations.
  Due to the size and complexity of the original version of the model, the modifications
  were made without changing the basic structure of the program.  Since  the  analysis
  of parking lot traffic and emissions was an integral part of the original  model struc-
  ture, it  was left in the modified version, but the code was modified to  negate their
  effect upon traffic flow and air quality.  In the modified ISMAP, internal zones
  (indirect sources) are used together with  external zones to generate flow  within a
  traffic network.  This modified version of the model sets parking lot  emissions equal
  to zero and provides a near infinite parking  lot capacity so that vehicle  routing
  between internal zones will not occur because of parking lot overcrowding.  Other
  modifications made to ISMAP include the incorporation of a street canyon submodel.
  Version 2 of modified ISMAP utilized the most recent (1978) motor vehicle  emission
  correction factors and modal analysis model  coefficients and deterioration.  In other
  aspects,  it is unchanged from Version 1, written by Michael T. Mills.
17.
                               KEY WORDS AND DOCUMENT ANALYSIS
                 DESCRIPTORS
                                             b.IDENTIFIERS/OPEN ENDEDTERMS
                          c.  COSATI Field/Group
                                               Carbon Monoxide Models
                                               Air Quality Models

                                               Traffic Models
13. DISTRIBUTION STATEMENT

  RELEASE UNLIMITED
19. SECURITY CLASS (This Report)
  UNCLASSIFIED
21 NO. OF PAGES
     230
                                              20. SECURITY CLASS (This page)
                                               UNCLASSIFIED
                                                                        22. PRICE
EPA Form 2220-1 (9-73)

-------