EPA-450/3-78-010
March 1978
 COMPUTER ASSISTED AREA
 SOURCE EMISSIONS (CAASE)
      GRIDDING PROCEDURE
                    (REVISED)

        UNIVAC 1110/EXEC8
    VERSION USER'S MANUAL
  VS. ENVIRONMENTAL PROTECTION AGENCY
     Office of Air and Waste Management
   Office of Air Quality Planning and Standards
  Research Triangle Park, North Carolina 27711

-------
                                 EPA-450/3-78-010
        COMPUTER ASSISTED
AREA SOURCE EMISSIONS (CAASE)
      GRIDDING PROCEDURE
               (REVISED)

         UNIVAC 1110/EXEC 8
     VERSION USER'S MANUAL
                     by

              Richard C. Haws, J. W. Dunn, III,
                and Richard E. Paddock

                Research Triangle Institute
           Research Triangle Park, North Carolina 27709
                 Contract No. 68-02-2501

             EPA Project Officer: Jerome B. Mersch
                   Prepared for

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

                   March 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
the Research Triangle Institute,  Research Triangle Park, North
Carolina 27709, in fulfillment of Contract No. 68-02-2501.  The contents
of this report are reproduced herein as received from the Research
Triangle Institute. 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 io be
considered as an endorsement by the Environmental Protection Agency.
                     Publication No. EPA-450/3-78-010

-------
                               ACKNOWLEDGEMENT









     This revision to the manual was prepared by the Research Triangle




Institute, Research Triangle Park, North Carolina, for the Environmental




Protection Agency under Contract 68-02-2501.  The research is under the




direction of personnel in the Source Receptor Analysis Branch (SRAB).




     The work has been carried out under the direction of Mr. Jerome B.




Mersch, who is the EPA Project Officer for the contract.




     RTI staff members principally participating in developing the system and




applying it are as follows:




          E. L. Hill, Laboratory Supervisor




          R. C. Haws, Project Leader




          H. L. Hamilton, Jr., Consultant and Co-developer




               of the earlier CAASE methods




          D. H. Abbott, Programmer




          S. K. Burt, Programmer




          J. W. Dunn III, Mathematician




          R. E. Paddock, Systems Analyst
                                      111

-------
iv

-------
                              TABLE OF CONTENTS







                                                                  Page Number




ACKNOWLEDGEMENT 	      iii




FIGURES	       ix




TABLES	      xii




1.0  INTRODUCTION 	        1




     1.1  General Background  	        1




     1.2  Purpose	        6




     1.3  The CAASE Method	        8




2.0  CAASE1 PROGRAM	       19




     2.1  Program Description 	       19




     2.2  Input Information 	       22




     2.3  Output Information  	       26




     2.4  Executive Control Language (ECL) and Deck Setup ....       31




     2.5  Warnings and Limitations	       34




3.0  CAASE2 PROGRAM	       35




     3.1  Program Description 	       35




     3.2  Input Information 	       38




     3.3  Output Information  	       43




     3.4  Executive Control Language (ECL) and Deck Setup ....       49




     3.5  Warnings and Limitations	       52




4.0  CAASE3 PROGRAM	       57




     4.1  Program Description 	       57




     4.2  Input Information 	       59




     4.3  Output Information  	       59




     4.4  Executive Control Language (ECL) and Deck Setup ....       64




     4.5  Warnings and Limitations	       64
                                      v

-------
                        TABLE OF CONTENTS (CONTINUED)






                                                                  Page Number




5.0  CAASE4 PROGRAM	       69




     5.1  Program Description 	       69




     5.2  Input Information 	       71




     5.3  Output Information  	       75




     5.4  Executive Control Language (ECL) and Deck Setup ....       80




     5.5  Warnings and Limitations	       83




6.0  CAASE5 PROGRAM	       85




     6.1  Program Description 	       85




     6.2  Input Information 	       88




     6.3  Output Information  	       90




     6.4  Executive Control Language (ECL) and Deck Setup ....      117




     6.5  Warnings and Limitations	      117




7.0  SUBROUTINE DESCRIPTIONS  	      123




     7.1   CED009 Subroutine  	      123




     7.2   GTGR Subroutine	      124




     7.3   INBOUN Subroutine  	      125




     7.4   TRACKR Subroutine  	      126




     7.5   REORDR Subroutine  	      127




     7.6   SIDEIT Subroutine  	      127




     7.7   WRAPUP Subroutine  	      128




     7.8   NETBAL Subroutine  	      128




     7.9   DECIDE Subroutine  	      129




     7.10  NTRIOR and FINAL Subroutines 	      133
                                   VI

-------
                   TABLE OF CONTENTS (CONTINUED)






                                                             Page Number




7.11  PROXPR Subroutine  	      134




7.12  INPOP Subroutine 	      134




7.13  PROXML Subroutine  	      134




7.14  SEARCH and SETLGO Subroutines  	      135




7.15  TIEBRK Subroutine  	      135




7.16  GRIDIT Subroutine  	      135




7.17  ADJUST Subroutine  	      136




7.18  SQROFF Subroutine  	      136




7.19  OUTPUT Subroutine  	      137




7.20  PARTIT Subroutine  	      137




7.21  DELETE Subroutine  	      137




7.22  INTEGR Subroutine  	      137




7.23  ASTORE and NSTORE Subroutines  	      137




7.24  YOFX and XOFY Subroutines	      138




7.25  FAREA Subroutine 	      139




7.26  SORT Subroutine	      139




7.27  POPBOX Subroutine  	      139




7.28  EDPLOT Subroutine  	      140




7.29  COOUT Subroutine 	      140




7.30  READ1 Subroutine 	      140




7.31  OUTPT1 Subroutine  	      141




7.32  OUTPT2 Subroutine  	      141




7.33  OUTPT3 Subroutine  	      141

-------
                        TABLE OF CONTENTS (CONTINUED)
                                                                  Page Number
8.0  OBJECTIVE APPORTIONING FACTORS AND SUBJECTIVE
     OVERRIDING WEIGHTING FACTORS	     143

     APPENDIX A:  LOGICAL FLOWCHARTS AND FORTRAN SOURCE
                  CODE LISTINGS - CAASE1
                  (and Subroutines)	     A-l

     APPENDIX B:  LOGICAL FLOWCHARTS AND FORTRAN SOURCE
                  CODE LISTINGS - CAASE2
                  (and Subroutines)	     B-l

     APPENDIX C:  LOGICAL FLOWCHARTS AND FORTRAN SOURCE
                  CODE LISTINGS - CAASE3
                  (and Subroutines)	     C-l

     APPENDIX D:  LOGICAL FLOWCHARTS AND FORTRAN SOURCE
                  CODE LISTINGS - CAASE4
                  (and Subroutines)	     D-l

     APPENDIX E:  LOGICAL FLOWCHARTS AND FORTRAN SOURCE
                  CODE LISTINGS - CAASE5
                  (and Subroutines)	     E-l

     APPENDIX F:  GTGR TABLES AND FORTRAN SOURCE CODE
                  LISTINGS - DIRECT ACCESS FILE CREATION
                  PROGRAM	     F-l
                                   viii

-------
                                   FIGURES







Nunber                                                            Page Number




   1     Flowchart of the Overall CAASE System 	      9




   2     System Flowchart of CAASEl Program  	     23




   3     Input Deck Configuration for CAASEl Program 	     27




   4     Example of Printed Output from CAASEl 	     29




   5     ECL and Input Data Cards for CAASEl	     33




   6     System Flowchart of CAASE2 Program  	     39




   7     Input Deck Configuration for CAASE2 Program 	     41




   8     Example of Printed Output from CAASE2 	     44




   9     ECL and Input Data Cards for CAASE2	     51




  10     System Flowchart of CAASE3 Program  	     58




  11     Input Deck Configuration for CAASE3 Program 	     61




  12     Example of Plotter Output from CAASE3 	     63




  13     Example of Printed Output from CAASE3 	     65




  14     ECL and Input Data Cards for CAASE3	     66




  15     System Flowchart of CAASE4 Program  	     73




  16     Input Deck Configuration for CAASE4 Program 	     76




  17     Example of Printed Output from CAASE4 	     78




  18     Example of Optional Detailed Printout of




           Apportioning Factors, Etc., from CAASE4 	     79




  19     ECL and Input Data Cards for CAASE4	     82




  20     System Flowchart of CAASE5 Program  	     89




  21     NEDS Area Source Input Form for Washington




           County, Ohio (1972)	     91




  22     Scaled Area Source Emission Factors Used as




           Input to CAASE5 for the CAASE Examples	     92
                                       ix

-------
                                   FIGURES






Number                                                            Page Number




  23     Input Deck Configuration for CAASE5 Program 	      94




  24     Example Printout of Area Source Input Data, CAASE5  ...      98




  25     Example of CAASE5 Output Table 1, Allocated Fuels ....     100




  26     Example of CAASE5 Output Table 2, Allocated Fuels ....     101




  27     Example of CAASE5 Output Table 3, Allocated Fuels ....     102




  28     Example of CAASE5 Output Table 4, Allocated Fuels ....     103




  29     Example of CAASE5 Output Table 5, Allocated Fuels ....     104




  30     Example of CAASE5 Output Table 1, Allocated




           Emissions, Particulates 	     105




  31     Example of CAASE5 Output Table 2, Allocated




           Emissions, Particulates 	     106




  32     Example of CAASE5 Output Table 3, Allocated




           Emissions, Particulates 	     107




  33     Example of CAASE5 Output Table 4, Allocated




           Emissions, Particulates 	     108




  34     Example of CAASE5 Output Table 5, Allocated




           Emissions, Particulates 	     109




  35     Example Printout of County Total Emissions for All




           Source Category and Pollutant Combinations,  CAASE5  .  .     110




  36     Example Printout of Dispersion Model Input Card




           Images, CAASE5, IPP Model 	     Ill




  37     ECL and Input Card Example for CAASE5	     118




  38     Cell (i,j), Portions of the Adjoining Cells, and the Eight




           Combinations of Ax,Ay for Exiting Side Number 1 ....     129

-------
                                   FIGURES






Number                                                            Page Number




  39     Area Under a Line Segment	    139




  40     Examples of Overriding Weighting Factors Assignments




           for Railway Locomotive Operations




             -A  Example of Railway Locomotive Weighting Factor




                 of 1.0 (2 Km X 2 Km Grid Square)	    151




             -B  Example of Railway Locomotive Weighting Factor




                 of 2.0	    151




             -C  Example of Railway Locomotive Weighting Factor




                 of 1.0 (4 Km X 4 Km Grid Square)	    152




             -D  Example of Railway Locomotive Weighting Factor




                 of 0.5	    152




             -E  Example of Railway Locomotive Weighting Factor




                 of 3.21	    152
                                    XI

-------
                                   TABLES




Number                                                            Page Number




   1     Input Card Layout, CAASE1 	     24




   2     Record Layout for MED-X Census File 	     28




   3     Record Layout for Edited MED-X File 	     32




   4     Input Card Layout, CAASE2 	     40




   5     CAASE2 County Outline File Record Layout  	     42




   6     Format of Card Image Records Output from CAASE2 	     47




   7     Definitions for Variables Output from CAASE2




           as Card Images	     48




   8     Record Layout for CAASE2 Optional County Outlines




           Output File	     50




   9     Variables Defined in CAASE2 Main Calling Program  ....     53




  10     Input Card Layout, CAASE3	     60




  11     CAASE3 County Outline File Record Layout  	     62




  12     Area Source Emissions Category Numbers  	     72




  13     Input Card Layout, CAASE4	     74




  14     Output Record Layout for Apportioning Factor




           File, CAASE4	     81




  15     Input Card Layout, CAASE5	     95




  16     Output Tape Record Layout for CAASE5	    112




  17     Definitions of CAASE5 Output Tape Variables  	    114




  18     Increment Matrix




           -a  i-Increment, Exit Side 1	    130




           -b  j-Increment, Exit Side 1	    130




  19     Entry Side of Cell; Exit Side 1	    132
                                    xii

-------
                                   TABLES




Number                                                            Page Number




  20     Summary of Cell Index Increment Matrices and Entry




           Side Matrices to be Used Under Conditions of




           Single Side Exit or Corner Exit for Specified




           Sides or Corners	    133




  21     "New" Area Source Emissions Category Numbers and




           Their Objective Apportioning Factor 	    145
                                   xiii

-------
XIV

-------
1.0  INTRODUCTION




1.1  General Background




     The attainment and maintenance of acceptable air quality within an Air




Quality Control Region (AQCR) or an Air Quality Maintenance Area (AQMA)




requires the implementation of appropriate strategies to control the emission




of pollutants from individual sources or classes of sources.  The probable




success of candidate control strategies can be evaluated through the use of




computer simulation models.  These models manipulate source characteristics




and meteorological conditions to produce a distribution of ambient air




pollutant concentrations over the region being considered.




     Simulation models frequently used are based on Gaussian plume formations




and accept as input point and/or area sources.  Point sources are individually




identifiable stacks, process vents, etc., emitting more than some arbitrarily




specified mass of pollutant each year.  Area sources, however, include the




more ubiquitous, individually small sources which cannot be specifically




located.




     The objective of the Computer Assisted Area Source Emissions (CAASE)




gridding method is to improve the characterization of area sources.   Basic




data for the determination of area source emissions are rarely available for




geographic or political units or areas smaller than the county.  Such basic




data are in the form of annual fuel consumption by fuel type for residential,




commercial, institutional, and industrial heating; acreage burned by forest




wildfires; landing-takeoff cycles for military, commercial, and civil




aircraft; gasoline or diesel fuel consumed by light, heavy, and off-highway




vehicles, or vehicle miles traveled by road classification, etc.  These data




can be converted to pollutant emissions by the application of appropriate




emission factors.

-------
     The geographic size of a county, however, is too large for practical use




in simulation models for AQCR's or AQMA's.  Logical procedures are required to




distribute the county totals of basic data or derived emissions data to




smaller areas.  Further constraints imposed by simulation models require that




these small areas be squares, although they need not be of uniform size.




Various criteria have been proposed for the selection of sizes and the




distribution of emission area squares.  Urbanization, land use, housing




counts, and population have all been used subjectively to grid AQCR's and




AQMA's into emission area squares (hereafter called grid squares) and




subsequently to allocate county totals of pollutant emissions into each grid




square.  In general, the philosophy followed has required that urbanized or




industrialized portions of a county or study area be gridded into small




squares to provide for detailed representation of pollution sources.




Conversely, rural areas with few pollution sources are adequately represented




by larger grid squares.  Essentially, application of this philosophy results




in apportioning county total emissions to grid squares according to subjective




estimates of the distribution of population.  Since air pollution derives from




human activity, this procedure provides a reasonable approach to developing




area source emission distributions.




     The development of the CAASE programs began as an effort to reduce the




subjectivity inherent in distributing population into preselected grid




squares.  Success in this effort would reduce the time and effort required to




complete the area source emission distribution.




     The Bureau of the Census of the U.S. Department of Commerce has prepared




a modified Master Enumeration District List (MEDList) which includes, in




addition to the district identification,  population count, housing count,




etc., the geographic coordinates of the center of area of each of the




enumeration districts.

-------
     The procedures described in this manual have evolved from a feasibility

study  (Contract CPA 70-147) in which three AQCR's, 145 (Lancaster, Gage, and

Jefferson Counties, Nebraska), 99 (South Central, Kansas), and 130

(Metropolitan Fargo-Moorehead) were gridded.  In this study, the ambient air

quality indicated by the Air Quality Display Model (AQDM) simulation model,

based on a previously prepared (by another EPA contractor) source emissions

grid and a corresponding simulation based on the CAASE grid were compared.

Because smaller grid squares were used by the CAASE method for central urban

areas - where the plotted population data showed concentrations of people -

higher peak values of ambient pollutant concentrations were shown for the

cities, and sharper gradients of pollutant concentrations appeared in the

urban-to-rural transition zone.  In rural areas, ambient pollutant

concentrations did not differ with the change in the grid system.

     Subsequent to the demonstration of feasibility of the CAASE method, 15

AQCR's containing 193 counties were gridded, and area source fuels and

emissions were determined for each grid square (Contract 68-02-1014).  This

resulted in the writing of a User's Manual.*  The programs, together with the

User's Manual, were then made available by EPA to air pollution control

agencies and contractors engaged in dispersion modeling.

     In the earlier CAASE method, i.e., before this major revision, a computer

drawn plot of the population centers was used in conjunction with the U.S.

Geological Survey (USGS) maps to construct a study area grid square system.

For each population center, a circle, with its radius proportional to

population count, was drawn.  Each grid square was assigned to only one county

for subsequent emissions apportioning purposes; the user had to take this into
* Computer Assisted Area Source Emissions Gridding Procedure (CAASE) User's
  Manual, EPA-450/3-74-034, January 1974.

-------
consideration when constructing grid squares near county borders.  A




description of the resulting grid network was then used by CAASE in subsequent




steps.  Procedurally, the Universal Transverse Mercator (UTM) coordinates of




the lower left hand corner of each grid square, its side length, a sequential




identification number, state name, and county name were entered on keypunch




load sheets.  These data were then keypunched and verified.  In subsequent




steps, all population and housing counts for an enumeration district (ED) were




assigned to the grid square in which the geographic coordinates of the center




of the ED were located.  This was done because the contained area and




configuration of each ED was not available for computer use.  Therefore, some




grid squares did not have census count data assigned to them and, accordingly,




no fuels or emissions were apportioned to these "empty" grid squares.




Although the dispersion modeling results using these data were similar to




those using data processed by more tedious, subjective, and time-consuming




methods, some potential CAASE users were concerned about the "empty" grid




squares and were hesitant to use CAASE.




     As stated above, each grid square was assigned to only one county.  The




assignment of apportioning factors by CAASE4 and the allocation of fuels and




emissions by CAASE5 was done on a county-by-county basis.  The grid squares




assigned to a county were the only grid squares used when processing that




county.  This procedure resulted in some of the population and housing counts




not being used after the grid square network had been constructed.  The




apportioning factor program (CAASE4) read a census enumeration district record




and searched the array of grid squares assigned to the county to determine the




grid square containing the enumeration district's location coordinates.  When




the grid square was found, the population and housing counts were added to the




sums for that grid square.  In some cases, no grid square was found that

-------
contained the enumeration district's coordinates because the grid square




containing them had been subjectively assigned to another county.  (Population




and area were used along with the location of county boundaries when a grid




square was assigned to a county.)




     Although the apportioning factor program (CAASE4) permitted the user to




input subjectively derived weighting factors to modify the objective ones




calculated by the program, it still involved a large amount of data




preparation time.  An entry had to be prepared for each grid-square-source-




category combination that the user wanted overridden.




     The early CAASE method did not contain a technique for including




projected population changes directly.




     Since the earlier CAASE method was developed, a computerized data base*




has been made available that includes the geographic coordinates of straight




line segments approximating the county boundaries for all counties in the




contiguous United States.  This data base made it possible to objectively




determine the location of a grid square in relation to a county.  For




instance, is it entirely within one county or do county borders transect it,




and if it is located on a border or borders, what fraction of its area is




located in each county?




     The new CAASE methods and algorithms described in this manual incorporate




the optional projection of population and housing count data.  The new




algorithms also include the objective (automatic) computer gridding of the




study area including the assignment of population and housing counts to grid




squares from each county census in proportion to the area of the grid square
* U.S. Bureau of the Census, DIME County Outline File (DIMECO).

-------
within each county.  Since a proximal mapping technique is used (see Section




3), housing and population are assigned to all grid squares in the resulting




grid system; i.e., there are no "empty" squares.




     In the earlier CAASE method,  census data was plotted by CAASE2 to assist




in the manual development of the grid square network.  The new CAASE2 program




uses mathematical techniques to automatically develop the grid square network.




The earlier version of the CAASE3 program used a line drawing plotter to draw




the grid square network.  All line drawing plotter functions have been




incorporated within the revised CAASE3 program which is optional.   CAASE3




will now optionally plot the census data and the county boundaries in addition




to drawing the grid.




1.2 Purpose




     Emissions inventory data for all designated primary pollutants are




collected for the entire United States.  These data are archived by the




agencies compiling the inventory and are also sent to the Environmental




Protection Agency (EPA) for inclusion in the National Emissions Data System




(NEDS).  For dispersion modeling,  the emissions inventory data must be in a




suitable format for the model selected.  Atmospheric dispersion models




(computer programs) are used for displaying air quality, evaluating state




implementation plans (SIPs), and Air Quality Maintenance Area (AQMA) planning




and analysis.  Key atmospheric dispersion models include the Air Quality




Display Model (AQDM), the Implementation Planning Program (IPP), and the




Climatalogical Dispersion Model (COM).




     Point source emissions present few difficulties with regard to formatting




the data for use with AQDM, IPP, or CDM.  Area source emissions, however,




present problems.  The smallest geographic unit for which accurate primary




data (e.g., annual residential fuel consumption) are available is  usually the




county.  Such data must be disaggregated and appropriately allocated (as

-------
emissions) to smaller areas to provide an adequately detailed input to

dispersion models.

     The CAASE programs (CAASEl through CAASE5), with associated subroutines

and data bases, provide an objective method for the selection of a set of

non-uniform sized grid squares and the subsequent allocation of county-level

data.

     The automatic gridding features of the revised CAASE method use objective

factors of population density, housing density, and political (county)

geographic boundaries for selecting a grid-square network.

     The revised CAASE method described in this manual provides for the

optional manipulation of the Bureau of the Census data for projected changes

in population and housing since the last census count (and into the future).

The CAASE user can describe a population and/or housing change area by the

input of geographic location coordinates of a rectangle (of any size) and

growth coefficients, one for population counts and one for housing counts.

These coefficients are applied directly to any enumeration district centers

that are located within the rectangle.  A 0.8 coefficient would indicate a 20%

reduction whereas a 1.2 coefficient would indicate a 20% increase.  The user

can input up to 100 rectangle* with associated coordinates and growth

coefficients.

     The CAASE user can optionally define up to 100 pseudo-enumeration

districts* and associated population and housing counts where development is

planned or has taken place since the last general census.
 xhis term is used herein in the context that the user inputs housing and
population counts and associated location data (coordinates, state and county
identification) for a place that is not the center of a true Bureau of the
Census enumeration district.  CAASE deals with these pseudo EDs as if they
were true EDs.

-------
     These two census manipulation features, when combined with a projection of




fuels used within a county, provide a valuable tool to the user in applying




simulation modeling to prepare or evaluate Air Quality Maintenance Plans.  Such




plans can span from the present time to up to ten (or more) years in the future.




1.3  The CAASE Method




     CAASE is a computerized technique for processing county-level primary fuels




and emissions data from area source emission categories.  CAASE automatically




developes a set of non-uniform sized sub-county grid squares for a geographic




study area.  CAASE then allocates fuels data to the grid squares.  CAASE




calculates emission totals, by county, and allocates emissions to the grid




squares automatically, using either totally objective apportioning factors, or a




combination of objective and user-provided overriding weighting factors.  CAASE




produces tables of allocated fuels, allocated emissions for the five primary




pollutants (TSP, SC^, NO^, HC, and CO), and atmospheric dispersion model input




card images, in a user-selected format, for one of three dispersion models.  The




tabular output includes data for every grid square, pollutant, and source




category combination.  Dispersion model input card formats produced by CAASE are




formatted for input to the Air Quality Display Model (AQDM), the Implementation




Planning Program (IPP), or the Climatalogical Dispersion Model (CDM).




     CAASE consists of five major computer programs including various subroutines




called by these programs.  For convenience, the programs have been numbered




CAASEl through CAASE5.  The programs and their use are discussed in Sections 2




through 6; subroutines are discussed separately in Section 7.




     Figure 1 is a flowchart of the overall CAASE system.  Sections 2 through 6




contain system flowcharts for each of the major programs.  Detailed flowcharts




and source language listings for all CAASE programs and subroutines are included




in the Appendixes.

-------







,
(•





COMPUTER DRAWN
PLOT OF THE

DISTRICT CEHTROIDS


CONTROL
SPECIFICATIONS


S t
OVERRIDING
WEIGHTING
FACTORS












— »•
f






CAASE4 PROGRAM*






COMPUTER DRAHJ
PLOT OF COUNT!
OUTLINE



DETAIL LISTING 01
FOR EACH GRID
SQUARE ^fZZ- — ^~^
^___^VFILE OF N.

j FACTORS FOR
\ SQUARE El THE
\ STUDY AEEA
    "ALLOCATED^
  'FUELS, EMIS-
   SIONS, & IPP,
   COM, OR AQDM
    CARD IMAGES
      FILE
IPP OR COM OR
AQDM CARD DECK
                   TABLES OF ALLOC.
                   FUELS, EMISSIONS,
                   &  IPP, COM, OR
                   AQDM CARD
                   IMAGES
                                               CAASE5 PROGRAM*
                                                                               PROGRAM
                                                                               CONTROL
                                                                               SPECIFICATIONS
                                                                         EMISSION
                                                                         FACTOR DATA
                                                                                         NEDS FUELS/
                                                                                         THROUGHPUT DATA
                                                                                         (AREA SOURCE CARDS)
•Error oessages are  output when appropriate;  also see output examples  for each program.
	 • Optional
                    FIGURE  1.    FLOWCHART  OF  THE  OVERALL  CAASE SYSTEM

-------
     In addition to maps for the study area, the CAASE user needs the following

data*

     A.  U. S. Bureau of the Census MED-X (Master Enumeration District Listing

         extended to include latitude and longitude coordinates*) tape, as

         reformatted by EPA.

     B.  U. S. Bureau of the Census DIME County Outline File (DIMECO), as

         reformatted by EPA.

     C.  Conversion tables (used by the GTGR subroutine) to convert, when

         necessary, Universal Transverse Mercator (UTM) location coordinates

         from one UTM zone to another.  (A listing of these tables is included

         in Appendix F.)

     D.  Area Source Data for the counties being processed.  The required format

         is the same as for cards Al through A5 on NEDS Area Source Input Form

         [EPA (DUR) 219 3/72].

     E.  Current stationary source and mobile source emission factors for area

         source categories.

     F.  (Optional.) If population and housing data are to be projected (i.e.,

         modified), the user must provide growth factors and location coordi-

         nates for new housing development areas.  (The CAASE method for using

         these data is described in detail in Section 2, CAASE1 Program.)

     G.  (Optional.)  The user can optionally read in a set of sub-county grid

         squares developed independently of CAASE or developed during an earlier

         CAASE computer run.  (The procedures for formatting and inputting a

         user-supplied set of grid squares are described in Section 3, CAASE2

         Program.)
*These coordinates are for the centroid of the enumeration district, the area of
 the enumeration district is not available on this tape.
                                       10

-------
     H.  (Optional.)  The user can optionally override any of the sub-county




         apportioning factors calculated by CAASE.  These overriding weighting




         factors are input on cards.  (Section 8 discusses procedures to follow




         for the assignment of overriding weighting factors; Section 5 details




         their input formats and their position in the card input stream.)




     The following paragraphs present an overview of the functions performed by




each of the CAASE programs.




     The CAASE1 program processes the census data.  State and county selector




cards are used to select a subset of the census data for the geographic area




being processed.




     The user can optionally define areas of population and housing growth.




Each growth area is described by the lower left hand coordinates and the side




lengths of a rectangle.  A growth factor coefficient for housing contained in




the rectangle and also a growth factor coefficient for population are provided




by the user.  Any census enumeration district centroids located within a growth




rectangle will have the associated coefficients applied.  For example, a housing




count coefficient of 1.25 would represent a 25% increase in housing count since




the date of the housing count included on the MED-X tape.




     The program also permits the user to include pseudo-enumeration districts




for more localized growth areas.  For CAASE purposes, a pseudo-enumeration




district is defined herein as user-provided inputs of housing and population




counts and associated location data (coordinates, state and county identifi-




cation) for a place that is not the center of a true Bureau of the Census




enumeration district.  A new housing development, for example, could be treated




as a pseudo-enumeration district.




     CAASE1 flags each enumeration district record as being unmodified, growth




factor applied, or a pseudo-enumeration district.  These flags are later used by




CAASE3 for plotting symbol selection if the data are to be plotted.






                                      11

-------
     CAASEl also converts the latitude and longitude coordinates of each




selected enumeration district (from the MED-X tape) to UTM coordinates.  If the




study area includes data from more than one UTM zone,  CAASEl converts the UTM




coordinates to the primary zone selected by the user.




     CAASE2 is the automatic gridding program.  It computes a system of grid




squares over a collection of contiguous counties making up the study area.  The




grid squares are not necessarily of uniform size but are selected such that each




grid square contains approximately the same number of people.  Population and




housing contained in each grid square is given by the integral of the entire




population and housing density surfaces that are contained in the grid square.




     For those grid squares that contain area from more than one county, the




grid square is assigned to each county that contains a portion of the area of




the grid square.  Each of the grid squares containing area from more than one




county are processed so that a unique sequential identification number,




contained area, population, housing, and the state and county FIPS numbers are




assigned for each of the counties; for example, a grid square containing area




from three counties would be output by CAASE2 as three grid squares where the




coordinates of the lower left hand corner of the grid squares and their side




lengths would be common - all other attributes would have different numerical




values.




     The CAASE2 program permits the user the option to input a grid square




network.  These user-supplied grid squares are then assigned population and




housing counts from the CAASE2 population and housing density surfaces.  These




grid squares may have been developed independently of CAASE.  A more obvious




use of the user-supplied grid option is when several CAASE runs are being made
 Each UTM zone spans six degrees of longitude in the east-west direction.
                                      12

-------
for an Air Quality Maintenance Area plan spanning several years.  If a grid




square network had been developed by CAASE2 with "base-year" census data,  then




there are advantages in using the same grid square network for all years in




the study.  The CAASE user can project the census data to subsequent years




using CAASEl options, and CAASE2 will assign housing and population counts to




a user-provided grid square network.  Conversely, if census data is projected




using CAASEl options and a user-supplied grid is not input to CAASE2, the  grid




square network will probably be redefined based on the projected population




and housing density surfaces.




     CAASE2 optionally outputs a subset of the county outline file in the  same




format as the input county outline file for efficiency in future runs.  CAASE2




also optionally outputs a subset of the county outline file in a format




suitable for line drawing plotting using the CAASE3 program.




     The CAASE2 computed grid square network is used directly as input by  the




CAASE4 apportioning factor assignment program.  It is also used by the




optional CAASE3 program for plotting a scaled grid square network with a line




drawing plotter, e.g., a CALCOMP plotter.




     The CAASE3 program produces a scaled off-line plotter display of the  grid




square network output from CAASE2.  It will also optionally draw outlines  of




the county(ies) and/or plot a symbol at the geographic center of each census




enumeration district.




     The use of CAASE3 is optional but is highly recommended if the user has




plotter facilities available.  Plotting scale is user-controlled with




1:250,000 having been used in applications thus far.  This scale is




convenient for using the CAASE3 generated plot as a direct overlay on USGS




maps of the study area.




     The CAASE4 program calculates apportioning factors for each area source




emissions category for each grid square in the study area.  (The factors are






                                     13

-------
used by CAASE5 which does the apportioning.)  The calculated apportioning




factors are the same for both the fuels (throughput) and the emissions.  For




example, housing counts for each grid square are used to calculate the




apportioning factor for both distillate oil marketed for use as residential




fuel and the emissions produced by its combustion.




     CAASE4 uses census based data and grid square size to calculate appor-




tioning factors for each area source emissions category and grid square




combination.  This is a totally objective technique that the user may




optionally modify.  CAASE4 will use overriding factors at the user's option.




Most of the area source categories can be apportioned effectively by CAASE4




without user intervention.  For a few categories, the user will probably have




access to data that is not directly available to CAASE, for example, the




locations of airports, waterways, and railroads; for these categories, the




user can prepare and input overriding factors.




     A detailed description of the CAASE4 method for calculating apportioning




factors (with or without user assistance) is included in Sections 5 and 8 of




this manual.  It is important for the CAASE user to fully understand a basic




concept in the calculation of apportioning factors.  All of the apportioning




factors output from CAASE4 are "weighted apportioning factors."  Each one is




the product of an objective apportioning factor - for example, grid square




contained population - and a weighting factor.  The weighting factor is 1.0




unless overridden by the user.  The CAASE user does not replace the objective




apportioning factors when he uses the overriding option; he modifies the 1.0




(default) weighting factor coefficients of the objective apportioning




factors.




     The CAASE5 program performs the functions of calculating the emissions




and allocating fuels and emissions to each grid square and source category




combination.






                                      14

-------
     CAASE5 reads area source fuels (throughput) data for each county in the




study area in the same format as the first five cards (Al through A5) from the




NEDS Area Source Input Form  [EPA (DUR) 219, 3/72].




     Current area source emission factors are input by the user.  The factors




can be the national emissions factors published by EPA or those developed by




state or local agencies.  Emission factors for highway motor vehicles are




input directly; those for stationary sources and off-highway mobile sources




are scaled for input.  The scaling of the emission factor takes into account




the scaling of the fuels data and units conversion.  (A detailed discussion of




how to provide emission factors to CAASE5 and an example of a complete input




set are included in Section 6.)




     CAASE5 uses the fuels (throughput) totals and the emission factors to




calculate county-total emissions in the same way as the NEDS programs.




     The county totals for fuels and emissions are allocated to each grid




square and source category combination using the apportioning factors




calculated by CAASE4.  The apportioning factor file output from the CAASE4




program is used as direct input to CAASE5.




     CAASE5 completely processes one county in the study area before




proceeding to the next county.




     For each county, CAASE5 produces the following output:




     A.  Tables of allocated fuels for each grid square and source category




         combination.




     B.  Tables of emission totals for the county for each pollutant and




         source category combination.




     C.  Tables of allocated emissions for each grid square, pollutant, and




         source category combination.




     D.  The county total emissions for each pollutant, i.e., the sum of all




         area source categories.
                                      15

-------
     E.  An atmospheric dispersion model area source input card for each grid




         square.  The required units, scaling, and format for one of three




         models (IPP, AQDM, or CDM) is selected by the user with an input




         variable.




     F.  A formatted tape file containing the above output data elements.




         (This is not a "print tape"; it is provided as a computer readable




         data base for those users who may want to process CAASE output in




         ways other than dispersion modeling.  A "print tape" can also be




         produced easily by breakpointing PRINT$ to a tape file in the




         Executive Control Language (ECL) stream.)




     The potential CAASE user may decide that CAASE would be helpful for




allocating fuels and emissions for most of the source categories, but for one




or more of the source categories, CAASE will not provide appropriate




allocations.  If also, the use of overriding weighting factors will not yield




desired results, then there is another way to let CAASE do most of the work.




This can be done by manipulating input data to either CAASE4 or CAASE5.  In




running CAASE4, the user can select a source category to be overridden,




initialize all grid squares to zero, and then simply not assign a non-zero




value to any of the grid squares for the selected source category.  CAASE5




will, therefore, have zero apportioning factors for the source category and




will not allocate fuels or calculated emissions.  The user can also let CAASE4




routinely calculate apportioning factors for the selected source category.




The user can then set the fuels  (throughput) total for the selected source




category to zero on the NEDS area source input card when CAASE5 is run; the




result is that CAASE5 has zero fuels and emissions to allocate for the source




category.  Any source category fuels and emissions not allocated to grid




squares by CAASE could then be allocated manually.  For dispersion modeling,
                                      16

-------
any manually allocated emissions would have to be added to the totals output




by CAASE5 on the dispersion model input cards.
                                      17

-------
18

-------
2.0  CAASE1 PROGRAM




2.1  Program Description




     This program processes the census data.  It performs several functions:




the selection of a data subfile, the conversion of the geographic coordinates of




the center of area of each census enumeration district (ED) from latitude and




longitude to the Universal Transverse Mercator (UTM) northing and easting




system, the optional application of housing and population growth factors, and




the optional introduction of pseudo (new) enumeration districts with projected




housing and population counts.  In those cases where the study area includes




data from two UTM zones, one of the zones is designated "primary" on an input




card; the UTM coordinates are then converted when necessary to the primary zone.




Subsequent CAASE processing of the census data, therefore, uses coordinates




expressed relative to only the primary UTM zone.




     A description of input information is included in the next subsection.




However, the introduction of census growth factors and/or pseudo-enumeration




districts, and the selection of a primary UTM zone for those study areas




spanning two UTM zones is critical and requires a detailed discussion.




     The concept of applying growth coefficients (increase or decrease) over a




general area is quite different from the concept of adding a pseudo-enumeration




district.  In the case of growth coefficients, a rectangle is defined.  Any




enumeration district having its center of area located within the rectangle will




have the user-supplied coefficients of housing and population growth applied to




it.  A rectangle of growth is defined to CAASE1 by the UTM coordinates of its




lower left hand corner and its side lengths.  A growth rectangle can be of any




size, representing a subsection of the study area or even spanning the entire




study area.  It would most probably be used in a case where there was general




growth in an area.
                                       19

-------
     Conversely, the concept of a pseudo-enumeration district is associated with




a more localized growth area.  The input of a pseudo-enumeration district could




be used, for example, to include a new residential housing development either




constructed since the last general census count or planned to be developed prior




to the projected study year.




     In the optional introduction of census data modifications, all location




coordinates are expressed in kilometers in the UTM system.  (Latitude and




longitude coordinates will yield erroneous and unpredictable results.)  Because




the maps being used would have true UTM zone numbers and coordinates, CAASE1 is




programmed to receive true coordinates and zone numbers as user-furnished input.




The conversion of coordinates to the primary zone, when necessary, is performed




automatically by the program.  In those cases where a rectangle of growth




straddles a zone boundary, the user should input the coordinates and zone number




of the lower left hand corner of the rectangle and the X and Y side lengths in




kilometers.  One corner and the side lengths are used because a true rectangle




(four right angle corners) would not be developed if all four corners were not




expressed relative to the same UTM zone.  The UTM northing (Y) axis in one zone




is not parallel to one in a neighboring zone.




     The user is cautioned that when applying growth coefficients, a coefficient




for both population and housing is required.  The CAASEl program expects two




coefficients for each rectangle of growth.  If only the housing count or only




the population count is to be modified, the user must input a coefficient of 1.0




for the count that is not to be modified.  If the coefficient of growth for a




rectangle is left blank for either housing or population, the CAASEl program




will interpret the coefficient as being equal to zero and will eliminate the




count for enumeration districts located within the rectangle.  By using a growth




coefficient of zero, CAASEl does facilitate the removal of a housing area, for




example, through urban renewal projects.






                                       20

-------
     In the case of adding pseudo-enumeration districts to the MED-X census




data, all parameters that are used by the CAASE2 program must be included; an




output record similar to an original MED-X input record is written.  All




parameters needed by CAASE2 appear in the same positions in each record as




though they were actual enumeration districts.  The record written for each




pseudo-enumeration district has blanks for those data fields of no interest to




the CAASE method, for example, congressional district codes.  For each




pseudo-enumeration district, the required information includes: state and




county FTPS codes, UTM zone number, X and Y (easting and northing) UTM




coordinates of the center of area, housing count, and population count.




Because of the order of processing in CAASE1,  pseudo-enumeration districts do




not have coefficients of growth applied to them even if they are located




inside a growth rectangle.




     The MED-X census data is used directy as input to CAASEl.  The UNIVAC-




1110 version of CAASEl requires a special-format tape created to contain the




entire MED-X data on one reel in one file.  The internal subroutine READIT in




the UNIVAC version of the CAASEl main program reads the tape into an internal




buffer; the main proram unblocks it via the Fortran V DECODE instruction.




Within the MED-X file, each state is in ascending numerical FIPS code order;




within each state the counties are in ascending FIPS code order.  Subsequent




CAASE programs require that the census enumeration districts be in ascending




FIPS state and county code order and must, therefore, be specified in that




order in the CAASEl input stream.




     In designating a primary UTM zone for a study area that includes data




from two neighboring UTM zones, care must be taken-  In selecting the primary




UTM zone, the user would normally select the zone containing the highest




percentage of included area of the total study area.  There is some distortion
                                       21

-------
introduced in converting location coordinates from one UTM zone to another.




This can be minimized by selecting the primary zone causing the least amount




of zone-to-zone conversion.  These considerations notwithstanding, the user is




cautioned that decisions made in using CAASE1 can yield undesirable results in




other CAASE programs.  For example, in CAASE5, the input cards for the




dispersion models are produced.  In the case of the Implementation Planning




Program (IPP), the "X" location coordinates cannot exceed 999.9 km because of




the field width; also, no provision is made for a signed value.  The user,




therefore, should designate a primary zone that will not cause "pseudo"




negative UTM coordinates or easting (X) coordinates greater than 999.9 km in




the conversion process.




     The program uses the subroutine GTGR  (grid-to-grid) for zone-to-zone




conversion of coordinates.  GTGR uses an 8 by 8 by 61 set of tables for the




conversion algorithm.  These tables are stored on a Fortran-defined direct




access file.  These tables and a simple Fortran program for creating a direct




access disk file for input to the GTGR subroutine are included in Appendix F.




     CAASEl uses the CED009 subroutine for converting coordinates from




geographic latitude and longitude to the UTM easting and northing system.




     These subroutines are described in Section 7.  Logical flowcharts and




source language listings for CAASEl and its subroutines are included in Appendix




A.




     Figure 2 is a system flowchart of the CAASEl program.




2.2  Input Information




     A description of the punched card variables input in the runstream appears




in Table 1.  The card input includes:  the name of the study area, the number of




states in the study area, the name of each state, the number of selected




counties in each of the selected states, the Federal (FIPS) county and state




code numbers, and the name of each county.  Also included is the primary UTM






                                       22

-------
    GTGR
   TABLES
z_
 PROJECTED
 GROWTH
 FACTOR
 CARDS
 PSEUDO-
 ENUMERATION
 DISTRICT CARDS
                                 PROGRAM CONTROL
                                 SPECIFICATIONS
                                        I
   PROGRAM CAASE1

SELECTS APPROPRIATE
RECORDS FROM THE MED-X
CENSUS FILE AND CON-
VERTS COORDINATES FROM
LONG. & LAT. TO UTM
COORDINATES OF PRIMARY
ZONE, OPTIONALLY ALLOWS
THE USER TO PROJECT
POPULATION AND HOUSING
GROWTH AND ADD PSEUDO-
ENUMERATION DISTRICTS
(EDs)
                                                                        EDITED
                                                                     MED-X CENSUS
                                                                      FILE WITH
                                                                   I UTM COORDINATES/
                                                                       APPENDED
                                     DETAIL LISTING
                                     OF EDITED MED-X
                                     FILE
 	 = Optional
                   FIGURE 2.   SYSTEM FLOWCHART OF CAASE1 PROGRAM
                                        23

-------
                                    TABLE  1.   INPUT  CARD  LAYOUT,  CAASE1
Card Type

STUDY AREA CARD
GROWTH/PSEUDO ED OPTION
  CARD
PROJECTED GROWTH CARDS
  (MAXIMUM =100)
Card
1
5
25
1
6
1
11
21
31
41
46
Columns
- 4
- 24
- 28
- 5
- 10
- 10
- 20
- 30
- 40
- 45
- 55
Format
14
5A4
14
15
15
15
F10.0
F10.0
F10.0
15
F10.0
Variable Name
NSTAT
AQCR
KZONE
IGROTH
IEDS
X
Y
XL
YL
JZONE
HCOEF
GROWTH DELIMITER CARD
                            56 - 65
1  - 80
               F10.0
8 OX
               PCOEF
     Description

Number of states in selected
study area

Name of selected study area

Primary UTM zone of selected
study area (required even if
entire study area is located in
one zone)

Projected growth factor option
switch (non-zero for option)

Pseudo ED's option switch
(non-zero for option)

X-coordinate (UTM easting)*

Y-coordinate (UTM northing)*

Length of X axis in kilometers

Length of Y axis in kilometers

UTM zone*

Coefficient for calculating
housing count growth

Coefficient for calculating
population count growth

Blank - signals end of projected
growth factor cards
*0f lower left hand corner of rectangle,  true zone  number;  CAASE1  will convert  to primary zone if  necessary.

-------
                                     TABLE  1.   INPUT CARD LAYOUT, CAASEl  (CONTINUED)
hO
Ul
        Card Type

        PSEUDO  ED CARDS
          (MAXIMUM  =100)
                          Card Columns
Format
Variable Name
     Description
PSEUDO ED DELIMITER
  CARD

STATE CARD
        COUNTY CARDS
1
11
21
26
31
36
46
1
1
5
25
- 10
- 20
- 25
- 30
- 35
- 45
- 55
- 80
- 4
- 24
- 28
F10.0
F10.0
15
15
15
F10.0
F10.0
SOX
14
5A4
14
XX
YY
KZONE
ISTAT
KOUNTY
HCOUNT
PCOUNT
—
NCNTY
STATE
KSTATE
X coordinate (UTM easting)
Y coordinate (UTM northing)
UTM zone*
FIPS state code
FIPS county code
Housing count (unsealed)
Population count (unsealed)
Blank - signals end of pseudo ED
cards
Number of counties in selected
state (maximum = 30)
Name of selected state
FIPS state code number of
                            1 -  4
                                    5-24
14
                                            5A4
  ICNTY
               CNTY
selected state

FIPS county code number of
selected county

Name of selected county
         True  zone  number; CAASEl will  convert  to primary  zone  if necessary.

-------
zone number and program control variables indicating whether areas (rectangles)




of growth and/or pseudo-enumeration districts are to be input.




     Figure 3 shows the input order and the deck configuration for the various




card types.  An ECL example for the runstream appears in Section 2.4




     The MED-X census data tape is read directly by CAASE1.  The record layout




for the MED-X tapes appears in Table 2.




     Conversion tables are used for converting UTM coordinates to the primary




UTM zone when necessary.  These tables must be written to a Fortran-defined




direct access file before using the CAASE1 program (see Appendix F).   CAASEl




automatically reads the tables when a zone-to-zone conversion is necessary.




2.3  Output Information




     Printed output from the program includes the names of the study area,




state(s), and county(ies) being processed.  Also printed are the input variables




describing all rectangles of growth, pseudo-enumeration districts, and the total




number of each (optionally input) for the entire study area.  When all records




for a county of interest have been processed, the county name, its number, and




the number of records written on magnetic tape are printed.  Figure 4 is an




example of printed output from CAASEl.  For each county, the first 25 records of




the edited MED-X data are printed.  These records are not shown in Figure 4.




The number 25 was arbitrarily chosen when the CAASEl source code was written;




the user can easily change the number if desired.




     A magnetic tape is written where the first records for each county are the




optional pseudo-enumeration districts.  In addition to the data fields read from




the MED-X tape, each record on the output tape (i.e., the edited MED-X data)




includes the primary UTM zone number, UTM easting and northing coordinates, and




a code number.  The code number indicates whether the housing and population
                                      26

-------
                REPEATED FOR EACH
                  STATE IN THE
                   STUDY AREA
REPEATED FOR
EACH COUNTY
IN THE STATE
                                                                 COUNTY CARD(S)
                                                           STATE CARD
                                                     BLANK
                                          PSEUDO ED
                                            CARDS
                                        (MAXIMUM=100)
                                    BLANK
                         PROJECTED
                        GROWTH CARDS
                        (MAXIMUM=100)
                 GROWTH/
                PSEUDO ED
               OPTION CARD
        STUDY AREA
           CARD
RUN CARD
AND ECL
                              OPTIONAL,
                              REQUIRED
                              ONLY IF
                              IEDS $ 0
            OPTIONAL,
          1 REQUIRED
          / ONLY IF
            IGROTH ^ 0
         FIGURE 3.   INPUT DECK CONFIGURATION FOR CAASE1 PROGRAM
                                   27

-------
                TABLE 2.   RECORD  LAYOUT FOR MED-X CENSUS  FILE
  Position
Format
Variable Name
1 -
5 -
4
7
A4
13
XDATA
JCNTY
  8-93


 94 - 100

101 - 108

109 - 118



119 - 128
21A4.A2


F7.0

F8.0

F10.4



F10.4
  XDATA


  XHOUS

  XPOP

  XLONG



  XLAT
       Definition

1970 and 1960 state codes

Federal standard (FIPS) county
code

Not applicable to CAASE
programs

Housing count

Population count

Longitude, in degrees, of
centroid of enumeration
district (ED)*

Latitude, in degrees, of
centroid of enumeration
district (ED)*
 If longitude and latitude are both  zeroes,  the  record  is  a  summary  count  for
 several enumeration districts (CAASEl  therefore skips  the record).
                                      28

-------
CAASE1

STUDY AREA IS PARKERSBURG-MARIETTA
     NO. OF STATES INCLUDED IS 2
PRIMARY UTM ZONE IS 17
               9ATHENS

             105MEIGS

             115MORGAN

             16 WASHINGTON

     THE STATE OF OHIO              HAS


     THE STATE OF OHIO          CODE NO.
       COUNTY NAME

          ATHENS                    9

          MEIGS                   105

          MORGAN                  115

          WASHINGTON              167


             35JACKSON

             73PLEASANTS

             95TYLER

            103WETZEL

            107WOOD

     THE STATE OF WEST VIRGINIA     HAS
    4 COUNTY (IES)


       NO. OF RECORDS
       WRITTEN ON TAPE

              55

              28

              21

              64
    5 COUNTY (IES)
              FIGURE 4.  EXAMPLE OF PRINTED OUTPUT FROM CAASE1
                                       29

-------
THE STATE OF WEST VIRGINIA          CODE NO.          NO OF RECORDS
       COUNTY NAME                                    WRITTEN ON TAPE

         JACKSON                       35                    24

         PLEASANTS                     73                    12

         TYLER                         95                    15

         WETZEL                       103                    28

         WOOD                         107                   131


GOOD FINISH
          FIGURE 4.  EXAMPLE OF PRINTED OUTPUT FROM CAASEl  (CONT.)
                                       30

-------
counts have been modified for the enumeration district or if it identifies a




pseudo-enumeration district.  A record layout for the edited MED-X tape appears




in Table 3.




     No growth areas or pseudo-enumeration districts were introduced to CAASEl




in the Parkersburg-Marietta AQCR study area used as an example in this manual.




     Self-explanatory error messages are printed when appropriate, and, if the




error is fatal, the program operation is terminated.




2.4  Executive Control Language (ECL) and Deck Setup




     An example of a deck setup configuration is illustrated in Figure 3.  Using




the Parkersburg-Marietta AQCR (#179) as an example study area, the associated




ECL and input data cards are illustrated in Figure 5 and describe the following:




     A.  The program is in absolute form in cataloged file "A" on mass storage.




     B.  The edited MED-X census data file will be written on tape as Fortran




         unit number 4.  It will be labeled "AQCR179-MEDX".  The volume and




         serial name is "AAAAAA".




     C.  The grid-to-grid conversion tables file is cataloged on disk as Fortran




         unit number 8.  It is labeled "GRDTB66".




     D.  The MED-X census data are on tape as Fortran unit number 7.  It is




         labeled "SRAB*MEDX".  The volume and serial name is "BBBBBB".




     E.  The state and county select cards are on the installation dependent




         standard card input device.  The study area includes data from two




         states and the primary UTM zone is 17.  Four Ohio counties and five




         West Virginia counties are to be selected.  No growth area or pseudo-




         enumeration district cards are to be read.




     F.  The printer is the installation dependent standard device number.
                                       31

-------
                TABLE 3.   RECORD LAYOUT FOR EDITED MED-X FILE
  Position

  1 -   4

  5 -   8


  9-94

 95 - 101

102 - 109

110 - 134


135 - 159


160 - 164

165 - 179


180 - 194


195 - 198
Format

A4

14


21A4.A2

F7.0

F8. 0

D25.16


D25.16


15

F15.2


F15.2


14
Variable Name

   XDATA

   JCNTY


   XDATA

   XHOUS

   XPOP

   XLONG


   XLAT


   KZONE

   XOUT


   YOUT


   KDDE
       Definition

1970 and 1960 state code

Federal standard (FIPS) county
code

Not applicable to CAASE programs

Housing count

Population count

Longitude, in degrees of centroid
of enumeration district (ED)

Latitude, in degrees of centroid
of enumeration district (ED)

Primary UTM zone

UTM coordinate (easting) for this
enumeration district

UTM coordinate (northing) for
this enumeration district

Describes type of record, where:

1  Denotes housing and population
   counts unchanged

2  Denotes modification of
   housing and/or population
   count in record by a growth
   coefficient
                                             3  Denotes  record is  a pseudo-
                                                enumeration district
*A pseudo-enumeration district is one optionally provided by the CAASE user to
 represent housing and population growth since the census year represented by
 the MED-X input data.
                                      32

-------
@RUN 21RClP/18/2,acct-code/user-id, project, time
@PASSWD password
@ASG,A A.
@ASG,T/W AQCR179-MEDX. ,T,AAAAAA,0
@USE 4..AQCR179-MEDX.
@ASG,A GRDTB66..D
@USE 8..GRDTB66.
@ASG,T SRAB*MEDX. ,T,BBBBBB
@USE 7.,SRAB*MEDX.
@XQT A.CAASE1
   2PARKERSBURG-MARIETTA 17
    0    0
 00 9 ATHENS
 105MEIGS
 115MORGAN
 167WASHINGTON
   5WEST VIRGINIA
 035JACKSON
 073PLEASANTS
 095TYLER
 103WETZEL
 107WOOD
@EOF
@FIN
        FIGURE 5.  ECL AND INPUT DATA CARDS FOR CAASE1
                               33

-------
2.5  Warnings and Limitations




     For study areas including data from two UTM zones, the importance of




selecting the primary zone was discussed above.  If the user simply makes an




error on assigning the primary UTM zone number, e.g., a keypunch error (or




omission), the results will be unpredictable and erroneous.




     CAASE1 dimensions have been written to accept up to 100 rectangles of




growth and up to 100 pseudo-enumeration districts; this should prove adequate,




but the user can easily increase the dimensions if necessary.
                                        34

-------
3.0  CAASE2 PROGRAM




3.1  Program Description




     CAASE2 computes a system of grid squares over a user-defined collection




of counties (the study area) on the basis of the population contained within




the study area.  The objective is to produce a grid system such that each grid




square contains approximately the same number of people.  This means, in




application, that regions of high population density are partitioned into a




large number of small squares and regions of low population density are




partitioned into a small number of large squares.  The population contained in




any grid square is given by the integral of that portion of the entire




population density surface that is contained in the square.  The partition is




such that the population is approximately the same from square to square.




     In developing a grid system by hand, census tract maps showing the




populations and outlines of the various census tracts in the study area are




used with transparent overlays on which the grid squares are drawn.  (This




procedure is described in the EPA publication "Guide for Compiling a




Comprehensive Emission Inventory," APTD 1135, pp. 7-5 through 7-10.)  The




population within a given census tract is assumed to be uniformly distributed.




The population in the fractional area of a census tract that falls within a




grid square is assigned to that grid square; therefore, the final total




population of a grid square is the sum of all such fractional contributions




from one or more census tracts.




     Unfortunately, data for the census tract boundaries do not exist in




machine readable (computerized) form.  To have an automated gridding system,




it is necessary to approximate in some manner the outlines of the census




tracts.  CAASE2 employs the method of proximal map construction to estimate




the previously unknown census tract boundaries.  After the approximate
                                      35

-------
boundaries are established, the previous assumption of uniform population


distribution is made and grid squares are constructed on the resulting


population density distribution (surface).


     Several steps in CAASE2 leading to the construction of the grid square


system, deal with  (1) the definition of the study area in terms of numerical


county outline data, (2) the creation of a proximal map and a population


density surface, and (3) the gridding procedure.  Ignoring the details of step


(1), and, assuming a defined study area of 1 km by 1 km unit cells, the


construction of the proximal map and the population density surface takes

                                                               o
place as follows.  Each unit cell has an assigned value of 1 km  if it is


interior to the boundary, 0 knr if it is exterior to the boundary, and a value

                   f\
betweeen 0 and 1 km^ if it is on,  or transected by, the boundary.  Essen-


tially, this is the operative definition of the study area.  Also, associated


with each cell are the census enumeration districts (ED's) whose centroid


coordinates fall within that cell.  There may be none, one, or more such ED's


for a cell.  Unit cells with one or more ED's assigned to them are called


control cells analagous to the cartographer's phraseology of control points


(data) in topographic map construction.  The proximal map is constructed by


assigning to each non-control cell the value of the control cell nearest it. A


random number decides ties.  Thus, for each control cell there is a collection


of non-control cells, namely those closer to it than to other control cells.


Collectively, these cells approximate the original census tract (at least down


to the resolution afforded by 1 km by 1 km grid cells).  The cell areas are


summed to obtain the total ED area.  The ED population divided by this area is


the population density, i.e., the population per square kilometer, throughout

                                                           f\
the collection of cells.  Since all the cell sizes are 1 km ,  the value of


population density assigned to each cell is simply the population in that
                                      36

-------
cell.  While the discussion has been limited to population, the same applies




to housing and housing density.




     The above process is applied to every control cell.  Eventually, the




entire study area has values of population (and housing) assigned to all unit




cells.  This set of values is the population density surface.




     The gridding procedure attempts to overlay grid squares on the proximal




map so that each square contains approximately the same population.  (The




population of any grid square is simply the sum of the populations of the unit




cells in that square.) Somewhere there is at least one unit cell of maximum




population, and this unit cell will be the smallest grid square.  This maximum




value of population is approximately the population which all other squares




are to contain in the partitioning.  Thus, the grid system with the study area




centered within it is initially a set of squares of equal size that are




probably "too large." "Too large" a square means that the total population in




the square exceeds the maximum population previously mentioned.  The square is




then partitioned into 4 smaller squares (daughters) by dividing its side




length by 2.  The daughters are added to the list of squares in the system.




The daughters are then tested for being "too large." Any time the "too large"




condition occurs, the square is partitioned down to the next smallest size,




until the partitioning reaches the unit cell size, if necessary.  If the "too




large" condition does not occur, inspection passes to the next square in the




list.  If there are no more squares in the list, the procedure is completed.




     The program uses four types of input data: (1) the edited census data




file for each county created by CAASE1, (2) a tape file of county boundary




coordinates, (3) punched cards specifying the control variables for the




counties processed, and (4) the direct access file used also in CAASEl for




converting county boundary coordinates from one UTM zone to another when




necessary.  Outputs include a subset file of the particular county boundary
                                      37

-------
coordinates, various diagnostic and error messages as appropriate, and the




grid square file consisting of one record (punched card or card image) of




information for each grid square-




     CAASE2 uses several subroutines that are described in Section 7.  Logical




flowcharts and source language listings for CAASE2 and its subroutines are




included in Appendix B.




     Figure 6 is a system flowchart for the CAASE2 program.




3.2 Input Information




     A description and layout of the punched card input variables in the




runstream appears in Table 4.  Included are the name of the study area, the




number of states in the study area, the name of each state, the number of




counties in each state, the FIPS county and state code numbers, the name of




each county, and the primary UTM zone.  The input deck configuration is shown




in Figure 7.  The county outline input file is described in Table 5.  The




output tape of edited census data from CAASE1 is directly used as input to




CAASE2.  The same direct access file used by the GTGR subroutine in CAASE1 to




convert enumeration district coordinates from one UTM zone to another is




required in CAASE2 for GTGR conversion of county outline coordinates when




necessary.




     Punched card input to CAASE2 is identical to the Study Area, State, and




County card types for CAASE1 (see Table 4) except for the variables NOUT3 and




NPLOT on the Study Area card.  A non-zero value for NOUT3 signifies that the




user wishes to have the coordinates of the outlines of the counties in the




study area written to output device NOUT3.  This is appropriate when the user




anticipates repeated processing of these outlines and needs to avoid possibly




long, time-consuming tape I/O of the total county outline file.  A non-zero




value for NPLOT signifies that the user wants a county outline file written




for input to CAASE3.  (NOUT3 and NPLOT are formatted differently.)
                                       38

-------
     GTGR
    TABLES
   EDITED
 MED-X CENSUS
  FILE WITH
 UTM COORDS
  APPENDED
    COUNTY
    OUTLINE
     FILE
                            PROGRAM CONTROL
                            SPECIFICATIONS
   PROGRAM CAASE2

CONSTRUCTS GRID
SQUARE SYSTEM BASED
ON EDITED MED-X
CENSUS DATA & COUNTY
OUTLINES DATA AND
MAKES POPULATION &
HOUSING ASSIGNMENTS
TO EACH GRID SQUARE
USER PROVIDED
GRID SQUARES
    GRID
  FILE WITH
'DESCRIPTIVE
  DATA FOR
 vEACH GRID,
    ^SQUARE
                                                                  SUBSET*
                                                                 'OF COUNTY
                                                                  OUTLINE
                                                                   FILE
                                         CAASE3+
                                         COUNTY
                                         OUTLINE
                                          FILE
        Optional
*Can be used to optimize any additional CAASE2 runs for same study area or
 portions of it.

+Needed only if CAASE3 with county outlines will be run.
               FIGURE 6.  SYSTEM FLOWCHART OF CAASE2 PROGRAM

                                     39

-------
                                          TABLE 4.  INPUT CARD LAYOUT,  CAASE2
       Card Type

       STUDY AREA CARD
.{S
O
       STATE  CARD
       COUNTY CARD
Card Columns

   1 -  4


   5-24

  25 - 28



  29 - 32
                                   33 - 36
   1 -  4


   5-24

  25 - 28


   1 -  4


   5-24
Format

14


5A4

14



14
                 14
14


5A4

14


14


5A4
Variable Name

   NSTAT


   AQCR

   MTUZ



   NOUT3
                NPLOT
   NCNTY


   STATE

   ICODE


   IDCO


   CNTY
      Definition

Number of states in study area
(maximum = 10)

Name of study area

Primary UTM zone (required even if
entire study area is located in
one zone)

Tape device number to write county
outlines subset for future CAASE2
runs of same study area*  If zero,
no writing will occur; hence, no
tape is necessary.

Tape device number to write county
outlines for CAASE3 input.  If
zero, no writing will occur;
hence, no tape is necessary.

Number of counties in selected
state (maximum = 15)

Name of selected state

FIPS state code number of selected
county

FIPS county code number of
selected county

Name of selected county
       USER  GRID CARDS
   [SEE THE GRID SQUARE RECORD FORMAT (COLUMNS  1-45 ONLY),  TABLE  6]

-------
                           USER GRID CARDS
                    COUNTY CARD
             STATE CARD
    STUDY AREA
       CARD
y
RUN CARD
AND ECL
         OPTIONAL, NEEDED
         ONLY IF THERE IS A
         USER-SUPPLIED GRID
REPEAT FOR
EACH COUNTY
TO BE PROCESSED
                      REPEAT FOR
                      EACH STATE
                      TO BE PRO-
                      CESSED
FIGURE 7.  INPUT DECK CONFIGURATION FOR CAASE2 PROGRAM
                            41

-------
              TABLE 5.  CAASE2 COUNTY OUTLINE FILE RECORD LAYOUT
                       (FORTRAN UNITS "NIN1," "NOUT3"*)
Variable

  ID



  IFE


  IFN
  ITE
  ITN
  MZONE
Format

  15

  12X

  15


  15


  2X

  15


  15


  12
Columns

 1 -  5

 6-17

18 - 22


23 - 27


28 - 29

30 - 34


35 - 39


40 - 41
       Comments

State-county code (FIPS)

Not used by CAASE

Starting node easting (UTM
coordinates, km)

Starting node northing (UTM
coordinates, km)

Not used by CAASE

Ending node easting (UTM
coordinates, km)

Ending node northing (UTM
coordinates, km)

UTM zone
""NOUT3" contains a copy of "NIN1" for the study area counties only.  "NOUT3"
 is created only if the variable NOUT3 is greater than zero on the "Study Area"
 input card (see Table 4).
                                     42

-------
     If a user-provided grid is to be read in, the cards should be placed in

the card input stream immediately following the last of the county cards

described in Table 4 of this section.  The content and format of the user-

provided grid cards are identical  to the format of the punched card (or card

image) output records produced by CAASE2 and described in Table 6 of this

section.

3.3  Output Information

     Printed output from CAASE2 includes the names of the study area (the AQCR

name, for example), state(s) and county(ies); counts and/or totals of

population, housing, Census Enumeration Districts (ED's), and county outline

segments; computed county areas; a printer plotted map of each county showing

the boundary and interior region; identification of any ED's whose coordi-

nates place them outside their county of assignment; and a listing of the grid

square records that are produced as punched card output or as card image

records on other storage devices.  Figure 8 is an example of parts of a

printed output from CAASE2.

     The format of the card image output for the grid square file is given in

Table 6.  A description of the contained variables appears in Table 7.

     Two magnetic work tape output files are required.  Two other files are

optional.  The two required files are necessary as temporary data storage to

reduce computer core storage requirements.  The first optional file (NOUT3)

contains a subset of county outline coordinates that is pertinent to the study

area.  It is in the same format (see Table 5) as the input file.  This  option

is provided for the user who anticipates running CAASE2 more than once.  The

second optional file (NPLOT) is created for use by CAASE3, if plotting  the
 CAASE2 will assign housing and population counts; the user must provide the
remaining data for each grid square.
                                      43

-------
AIR QUALITY CONTROL REGION IS PARKERSBURG-MARIETTA





     NO. OF STATE(S) INCLUDED IS    2          PRIMARY UTM ZONE IS   17
     THE STATE OF OHIO
HAS   4 COUNTIES IN THE STUDY AREA   39
COUNTY ATHENS
COUNTY MEIGS
COUNTY MORGAN









COUNTY WASHINGTON
THE STATE
COUNTY JACKSON
OF WEST


HAS
HAS
HAS
HAS
VIRGINIA

COUNTY PLEASANTS
COUNTY TYLER
COUNTY WETZEL
COUNTY WOOD
39009















388.
399.
390.
389.
388.
391.
390.
435.
436.
437.
430.
430.
428.



5
6
7
6
5
4
3
3
8
4
5
0
5



4338.
4370.
4371.
4361.
4351.
4350.
4341.
4338.
4341.
4348.
4349.
4352.
4352.
HAS
HAS
HAS
HAS
HAS
0
8
6
4
3
6
0
0
8
8
5
7
7
STATE-CNTY
STATE-CNTY
STATE-CNTY
STATE-CNTY
HAS
STATE-CNTY
STATE-CNTY
STATE-CNTY
STATE-CNTY
STATE-CNTY
437.4
390.7
389.6
388.5
391.4
390.3
435.3
436.8
437.4
430.5
430.0
428.5
(ETC.
CODE(FIPS) 39009
CODE
(FIPS) 39105
CODE(FIPS) 39115
CODE(FIPS) 39167
5 COUNTIES IN THE STUDY AREA
CODE
CODE
CODE
CODE
CODE
4380.
4371.
4361.
4351.
4350.
4341.
4338.
4341.
4348.
4349.
4352.

)
(FIPS) 54035
(FIPS) 54073
(FIPS) 54095
(FIPS) 54103
(FIPS) 54107
3
6
4
3
6
0
0
8
8
5
7


                                                                            54
                             FIGURE 8.  EXAMPLE OF PRINTED OUTPUT FROM CAASE2

-------
                 COUNTY CODE / COUNTY NAME
   4        39       167  WASHINGTON

TRACKER  COMPUTES  TOTAL AREA OF WASHINGTON          COUNTY AS :  0.1680E 00
            111111111 I22222222223333333333
-------
       STATECODE / COUNTY CODE / COUNTY NAME
   4         39       167  WASHINGTON

         AQCR POPULATION DATA,PARKERSBURG-MARIETTA
TOTAL  # RECORDS       READ:       169
 NUMBER OF RECORDS FOR THIS COUNTY:        64
SUBROUTINE PROXIMAL,  CELL #    1, I,J COORDINATES
ITS POPULATION AND HOUSING COUNTS ARE:     1225.
SUBROUTINE PROXIMAL.  CELL //    5, I,J COORDINATES
ITS POPULATION AND HOUSING COUNTS ARE:      990.
93  79, IS OUTSIDE THE BOUNDARY OF THIS COUNTY.
 447.
94  79, IS OUTSIDE THE BOUNDARY OF THIS COUNTY.
 357.
                     (Example of grid square printout.)
3.4255. 565.4415.
1 58132
2 71958
3 72368
4 1469
5 7095
6 99076
7100000
8100000
9100000
10100000
11100000
12100000
13100000
14 42463
15100000
39
39
39
39
39
39
39
39
39
39
39
39
39
39
39
9
9
9
9
9
9
9
9
9
9
9
9
9
9
9
17
17
17
17
17
17
17
17
17
17
17
17
17
17
17
17
389.
405.
421.
437.
385.
389.
397.
401.
403.
404.
405.
409.
413.
421.
403.

000004335
000004335
000004335
000004343
000004351
000004351
000004351
000004351
000004351
000004351
000004351
000004351
000004351
000004351
000004352

.00000
.00000
.00000
.00000
. 00000
.00000
.00000
. 00000
. 00000
.00000
. 00000
.00000
.00000
.00000
.00000

16
16
16
8
4
8
4
2
1
1
4
4
8
16
1

0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.

15976E
10835E
94466E
11773E
17940E
65411E
75746E
20334E
10471E
18818E
12478E
98451E
24993E
31156E
49400E

04
04
03
02
02
03
03
03
02
02
04
02
03
03
03

0.42842E 04
0. 29485E 04
0.29529E 04
0. 37331E 02
0.49096E 02
0. 18590E 04
0.20306E 04
0.51805E 03
0.24824E 02
0.53500E 02
0.49495E 04
0.24861E 03
0.67291E 03
0.86567E 03
0.50680E 04
                                 (ETC.)


 SUBROUTINE GRIDDIT,   FMAX = 0.50680E 04

  FINISH CAASE2
                         FIGURE 8.  EXAMPLE OF PRINTED OUTPUT FROM CAASE2  (CONT.)

-------
          TABLE 6.  FORMAT OF CARD IMAGE RECORDS OUTPUT FROM CAASE2
Record Type

SUMMARY RECORD
Columns
GRID SQUARE RECORD
1 -
6 -
11 -
16 -
21 -
1 -
6 -
12 -
15 -
20 -
23 -
33 -
43 -
46 -
59 -
5
10
15
20
25
5
11
14
19
22
32
42
45
58
71
Format

F5.0
F5.0
F5.0
F5.0
15
                    15
                    16
                    13
                    15
                    13
                    F10.
                    F10.
                    13
                    E13.
                                           E13.5
Variable Name

   XORIG
   YORIG
   XEND
   YEND
   MTUZ

   MM
   IFRAC
   ISTATE
   ICOUNT
   MTUZ
   XX
   YY
   SL
   HOUSIN
   POPULA
NOTES:
     The Summary Record occurs once as the first card in the file and serves
     as input to plotting routines in CAASE3.

     The Grid Square Record occurs once for each of the grid squares that has
     been constructed.

     See definitions of variables in Table 7.
                                      47

-------
    TABLE 7.   DEFINITIONS FOR VARIABLES OUTPUT FROM CAASE2 AS CARD IMAGES
Variable Name

   XORIG


   YORIG


   XEND


   YEND


   MTUZ


   MM


   IFRAC


   ISTATE

   ICOUNT


   MTUZ

   XX


   YY


   SL

   HOUSIN


   POPULA
                 Definition

UTM Easting coordinate of the origin of the study
area

UTM Northing coordinate of the origin of the study
area

The UTM Easting coordinate of the terminus of the
study area

The UTM Northing coordinate of the terminus of the
study area

The primary UTM zone of the study area as specified
in CAASEl by the user

MM = 1,2,..., number of grid squares; the grid
square number

Fractional area xlO" of the grid square that is in
county ICOUNT

FIPS number of state containing this grid square

FIPS number of the county in state ISTATE
containing this grid square

The primary UTM zone assigned to the study area

UTM Easting coordinate of the southwest corner of
the grid square

UTM Northing coordinate of the southwest corner of
the grid square

Side length in kilometers of the grid square

The housing from county ICOUNT that has been
assigned to this grid square

The population from county ICOUNT that has been
assigned to this grid square
                                      48

-------
county boundaries by CAASE3 is desired.  The layout and format of the optional




subset county outline output file (NPLOT) for CAASE3 is given in Table 8.




3.4  Executive Control Language (ECL) and Deck Setup




     An example of a deck setup configuration is illustrated in Figure 7.




Using the Parkersburg-Marietta AQCR  (#179) as an example study area, the




associated ECL and input data cards are illustrated in Figure 9 and describe




the following:




     A.  The program is in absolute form in cataloged file "A" on mass




         storage.




     B.  The edited MED-X census data file (output from CAASEl) is on tape as




         Fortran unit number 7.  It is labeled "AQCR179-MEDX".  The volume and




         serial name is "AAAAAA".




     C.  The grid-to-grid conversion tables file is cataloged on disk as




         Fortran unit number 8.  It is labeled "GRDTB66".




     D.  The county outline data file is on tape as Fortran unit number 10.




         It is labeled "COOUT".  The volume and serial name is "CCCCCC".




     E.  A scratch (or work) tape is on Fortran unit number 9.  The volume and




         serial name is "DDDDDD".




     F.  A second scratch (or work) tape is on Fortran unit number 11.  The




         volume and serial name is "EEEEEE".




     G.  The grid squares file will be written on tape as Fortran unit number




         20.  It will be labeled "AQCR179-GRID".  The volume and serial name




         is "FFFFFF".




     H.  A subset of the county outline file for the study area (for any




         further CAASE2 runs) will be written on tape as Fortran unit number




         15.  It will be labeled "AQCR179-CNTY".  The volume and serial name




         is "GGGGGG".
                                       49

-------
   TABLE 8.  RECORD LAYOUT FOR CAASE2 OPTIONAL COUNTY OUTLINES OUTPUT FILE"
                             (FOR INPUT TO CAASE3)
RECORD TYPE 1:  COUNTY HEADER RECORD

Variable      Format           Columns

IDPREV
110
 1 - 10
XL, YL     F10.1, F10.1    11 - 20, 21 - 30


XH, YH     F10.1, F10.1    31 - 40, 41 - 50
      Comments

County ID  (in this card type
only) identifies this as header
record

"Lower left-hand corner" of
county (easting, northing)

"Upper right-hand corner" of
county (easting, northing)
RECORD TYPE 2:  BOUNDARY LINE SEGMENT RECORD

Variable      Format           Columns
SMX(2,I)

SMX(3,I),
SMX(4,I)
10X

F10.1,
F10.1

F10.1,
F10.1
 1 - 10

11 - 20,
21 - 30

31 - 40,
41 - 50
                                     Comments
Start of line segment (easting,
northing)

End of line segment (easting,
northing)
*0utput when the input variable "NPLOT" is greater than zero.  Used by CAASE3
 to plot county outlines on study area plot.

"^I^ESTART, IEND for number of line segments for the county outline.
                                      50

-------
@RUN 21RC2P/96/7,acct-code/user-id,project,time
@PASSWD password
@ASG,A A.
@ASG,T AQCR179-MEDX.,T,AAAAAA
@USE 7..AQCR179-MEDX.
@ASG,A GRDTB66.D
@USE 8..GRDTB66.
(?ASG,T COOUT.,T,CCCCCC
@USE 10.,COOUT.
@ASG,T/W 9.,T,DDDDDD
@ASG,T/W ll.,T,EEEEEE
@ASG,T/W AQCR179-GRID.,T,FFFFFF,0
(§USE 20.,AQCR179-GRID.
@ASG,T/W AQCR179-CNTY.,T,GGGGGG,0
@USE 15.,AQCR179-CNTY.
@ASG,T/W AQCR179-PLOT.,T,HHHHHH,0
@USE 18.,AQCR179-PLOT.
@XQT A.CAASE2
   2PARKERSBURG-MARIETTA  17  15   18
   40HIO                  39
   9ATHENS
 105MEIGS
 115MORGAN
 167WASHINGTON
   5WEST VIRGINIA         54
  35JACKSON
  73PLEASANTS
  95TYLER
 103WETZEL
 107WOOD
(§EOF
        FIGURE 9.  ECL AND INPUT DATA CARDS FOR CAASE2
                               51

-------
     I.  A subset of the county outline file for the study area  (for CAASE3




         plotting) will be written on tape as Fortran unit number 18.  It will




         be labeled "AQCR179-PLOT".  The volume and serial name  is "HHHHHH".




     J.  The state and county selector cards are on the installation dependent




         standard card input device.  The study area includes data for two




         states, and the primary UTM zone is 17.  Four Ohio counties and five




         West Virginia counties are to be selected.  Two subsets of the county




         outline file are requested, one for further CAASE2 processing (unit «




         15) and the other for CAASE3 plotting  (unit =18).




     K.  The printer is the installation dependent standard device number.




3.5  Warnings and Limitations




     Many of the considerations involved in executing CAASE2 are the same as




those previously described for CAASE1.  CAASE2 relies on careful consideration




of the inputs to CAASEl for a properly edited census data file.  There are




additional considerations for CAASE2 which pertain mainly to Fortran DIMENSION




limitations; those will be discussed later in this section.  The modified DIME




county outline file has not yet been completely subjected to application and




may have data errors for some counties on the file that have not been accessed




during the development and testing of CAASE2.




     To simplify the card input and enhance compatibility with CAASEl, many




variables are set in the main calling program instead of being read in.  They




are grouped together in the source listing for ease in identification and may




be changed as circumstances warrant.  A list of these variables  appears in




Table 9.




     The extreme points (farthest north, farthest east, etc.) of the study




area are determined by the county outlines.  CAASE2 computes a rectangle that




will contain the extreme points.  The side lengths of the rectangle are the
                                      52

-------
         TABLE 9.  VARIABLES DEFINED IN CAASE2 MAIN CALLING PROGRAM
Variable

 NR

 NP

 NPUNCH



 NIN1

 NIN2


 NOUT1


 NOUT2


 LTWO
 DIMENY



 DIMENX


 UNITAR


 ISHIFT



 EPS

 MAXSQR

 MAXTRY
Default
Value*
  5

  6

  1



 10

  7
 11
 32
256



256


 1.


 218



 .00001

 1800

   3
                    Definition

The card reader device number

The printer device number

Device number for output of card images
containing header and grid square variables (see
Tables 6 and 7)

Device number for county outline file

Device number for the edited census data file
from CAASE1

Device number for temporary data storage device
1; contains population and housing data maps

Device number for temporary data storage device
2; contains area data maps

The maximum permissible grid square side length,
where the units are irrelevant but kilometers
are assumed; however, the length must be some
power of 2, i.e., 2n

A dimension value; it must be _< the minimum
integer multiple of LTWO, i.e., > the
north-south extent of the study area.

Same as DIMENY but for the east-west extent of
the study area

Value of the basic unit area and the minimum
size grid square, 1 Km

A numeric shift multiplier for packing 2 numeric
values in a single word where one value occupies
bit positions 18 on up to word size

 If  |a-b| 
-------
integer multiples of LTWO  (see Table 9) that will just cover the study area

centered in the rectangle*  The southwest corner of the rectangle becomes the

origin of the study area, and its coordinates are integers.  The side lengths

of the rectangle must not exceed DIMENY in the north-south direction or DIMENX

in the east-west direction.  It is advisable to actually measure the maximum

extents of the study area before running CAASE2 to ensure that the array

dimensions DIMENY and DIMENX are sufficiently large.  The default value of 256

(km) should be sufficient for most applications.  Smaller dimensions may be

used and would result in more efficient computer utilization.

     A major step in the program is to track the county outlines through the

grid array of unit cells.  This step, applied to each county, determines which

cells within the total grid cell array are peculiar to that county, i.e.,

which cells are on the boundary, which cells are exterior, and which are

interior to the county.  Errors, if any, in the county outline data may

produce unpredictable results; therefore, it is advisable to compare the

computer printer version of the county map with an actual map.  If errors

exist, the user will have to make the necessary corrections to the county

outline data.

     The outline tracking procedure solves the equations for determining the

intersection of two lines.  In this procedure, the variable EPS (see Table 9)

is used as zero when testing for equality.

     Having established the unit cells belonging to a specific county, the

program checks the census data to ensure that the ED census coordinates will

fall within either a boundary cell or an interior cell.  If the ED coordinates

fall in an exterior cell,* a message is printed and the program continues.
*This condition occasionally occurs because of data errors or the differences
in the degree of resolution in the MED-X coordinates as compared to the county
outline line segments.
                                      54

-------
The population and housing of the ED are retained in the totals for the




county, but the ED itself is no longer used (as a control cell) by the




program.




     The limitation of 1800 grid squares has placed a somewhat arbitrary limit




on other variables which, for economy of computer core memory, share the same




common storage as the grid square variables.  These variables are the




population and housing counts, the coordinates and area of the control cells,




that is, those cells in the total grid cell array that contain population.




There are five vectors used to store these variables.  They are dimensioned




2520 each so that their total storage of 12,600 words equals the storage for




the 7 grid square variables.  One cannot predict in advance the number of




control cells there will be in a particular study area; it is necessary to run




CAASE2 to determine this.  As previously mentioned, CAASE2 will restart if the




number of grid squares being created exceeds 1800.  However, if the 2520




storage limit on control cells is exceeded, a message is printed and the




program stops.  It would then be necessary to increase the dimensions of those




variables which are in the COMMON block named SPEC.




     The CAASE programs are written in Fortran V.  Because CAASE2 has large




core storage requirements, even with the use of auxiliary mass (or tape)




storage, it is necessary to utilize the extended memory feature for COMMON




block SPEC.  This is accomplished with the following provisions:




     A.  All routines containing COMMON block SPEC must have the COMPILER




         directive "(XM=3)" as their first statement.




     B.  Collection must be accomplished with option "E" for extended memory.




     C.  Each of the subprograms must be INcluded explicitly, first in the




         collector input stream, then MAIN, followed by each of the common




         blocks (block SPEC last), and finally ENTry FORMAIN$.
                                       55

-------
     D.  Appropriate core storage must be requested on the RUN card.  For




         DIMENY=DIMENX=256,  94K words are required.




     Grid squares that are transected by the outermost boundary of the study




area may have an excessive amount of their area exterior to the study area.




Such squares are partitioned if the interior area is less than 50 percent of




the square's area.  There is a minimum side length below which grid squares




are not tested for contained area; this value has been set in ENTRY ADJUST, in




subroutine GRIDIT, as 4*UNITAR.




     If the user supplies a set of grid squares and any square(s) contain




area for more than one county, only one description of the square should be




input.  For those grid squares containing area from more than one county, it




is immaterial which county's square is used.  In the CAASE2 processing, the




selection of a grid square network for the entire study area will be bypassed.




However, in later processing by CAASE2, the "shared area" test is made in




subroutine SQROFF and a grid square is produced for each county sharing the




grid square's area.  Therefore, if the grid square network was produced by an




earlier CAASE2 run, the user must remove grid squares that have duplicate




location coordinates but different county assignments.  Failure to do so will




result in having redundant grid squares output.
                                      56

-------
4.0  CAASE3 PROGRAM




4.1  Program Description




     The CAASE3 program is optional, but its use is recommended if plotting




facilities are available.  When used, it provides the user with an off-line




plotter display of area source grid squares as defined by CAASE2.   In




addition, the user may optionally specify that CAASE3 plots county boundaries




and/or enumeration districts for the study area.  All input data except




control card information is produced by either CAASEl or CAASE2.  Control card




information specifies the desired scale, whether the user desires  enumeration




districts and/or county outlines to appear on the plot, and the name (label)




the user wishes to appear on the plot.




     CAASE3 reads the control cards from the input stream.  The minimum and




maximum study area information is read from the grid square file output from




CAASE2.  Scaling is computed, and an error message followed by a run abort




occurs if the 29" (assumed) paper width would be exceeded.  The output of grid




squares from CAASE2 is read, and a run abort occurs if the maximum number of




grid squares is exceeded.




     Subroutines are called by CAASE3 to actually drive the plotter.  POPBOX,




EDPLOT, and COOUT subroutines plot the grid, enumeration districts and county




outlines, respectively.  They are described in Sections 7.27 through 7.29.




     The standard plotting scale is 1:250,000; this usually requires wide




(29") plotting paper for a significant study area.  The user must  arrange for




appropriate plotter paper through whatever procedures are appropriate at the




installation.




     Logical flowcharts and source language listings for CAASE3 and its




subroutines are included in Appendix C.




     Figure 10 is a system flowchart of the CAASE3 program.
                                      57

-------
                          (USE IS OPTIONAL)
    GRID
    FILE
  (CAASE2
  DUTPUT)
   CAASE3
   COUNTY
OUTLINE FILE
  (CAASE2
  OUTPUT)
   EDITED
 MED-X FILE
    WITH
  PRIMARY
 UTM COORDS
  APPENDED
                          PROGRAM CONTROL
                          SPECIFICATIONS
r
i
                           PROGRAM CAASE3
jDRAWS AREA SOURCE GRID
"{SQUARES FOR THE ENTIRE
 •STUDY AREA, OPTIONALLY
 IPLOTS A FIXED CHARACTER
 JFOR EACH ENUMERATION
                       DISTRICT IN THE STUDY
                       •AREA, AND OPTIONALLY
                       PLOTS COUNTY BOUNDARIES.
 ALL ARE  OVERLAID ON THE
'BASIC STUDY AREA GRID
                                       COMPUTER DRAWN
                                        GRID OF THE
                                         STUDY AREA
                                       COMPUTER DRAWN
                                       PLOT OF COUNTY
                                          OUTLINES
                          I	
                                       COMPUTER DRAWN
                                           PLOT OF
                                         ENUMERATION
                                       DISTRICT CENTROIDS
                        	J
          Optional
            FIGURE 10.  SYSTEM FLOWCHART OF  CAASE3 PROGRAM
                                   58

-------
4.2  Input Information




     A description of the punched card variables input in the runstream




appears in Table 10.  The card input includes:  a scaling factor multiplier,




plot request parameters for the enumeration district and county outline




plotting options, and a title of up to 20 characters for labeling the plot.




     Figure 11 shows the input order and deck configuration.




     The grid square file output from CAASE2 is used as direct input to




CAASE3.  The record layouts and descriptions for this file are contained in




Tables 6 and 7.




     If the plotting of enumeration districts is requested, the edited MED-X




file output from CAASEl is used as direct input to CAASE3.  The record layout




and description of the file are shown in Table 3.




     If county outlines are to be plotted, the subset of the county outline




file output from CAASE2 is used as direct input to CAASE3.  The record layout




and description of the file are shown in Table 11.




4.3  Output Information




     The CAASE3 computer-driven line plotter output contains as minimum output




a frame with tick marks representing every 5-km on each axis, labels, a title,




a scale legend, and the entire study area grid.  County outlines and/or




enumeration districts are included only at the user's request.  All are




plotted to the scale selected by the user.  Figure 12 is an example of plotter




output for the Parkersburg-Marietta AQCR  (#179) example study area; the




plotter output includes the grid array, enumeration districts, and county




outlines•




     A printer listing of all grid squares as read from the input file is




provided.  This listing also includes a display of the study area name for




identification purposes, statements of user request of enumeration district




and/or county outline plotting, the minimum and maximum easting and northing
                                      59

-------
                                  TABLE  10.  INPUT CARD LAYOUT, CAASE3
Card Type

PROGRAM CONTROL CARD
Card Columns
  1 - 12
Format
F12.0
                           13  -  24
                           25  -  36
                  112
                  112
Variable Name
  SCALEX
              IXER
              ICO
    Description
                   Scale factor multiplier to
                   convert kilometer distances to
                   plotter inches

                   Enumeration district plot request
                   parameter

                   County outline plot request
                   parameter
STUDY AREA CARD
  1 - 20
5A4
  AQCR
Name of study area

-------
      z_
                          STUDY AREA
                             CARD
                    PROGRAM
                    CONTROL
                     CARD
         RUN CARD
         AND ECL
FIGURE 11.  INPUT DECK CONFIGURATION FOR CAASE3 PROGRAM
                          61

-------
             TABLE 11.  CAASE3 COUNTY OUTLINE FILE* RECORD LAYOUT
                               (FORTRAN UNIT 12)
Variable
1ST, IMY
 Format
 17, 13
   Columns
1 -  7,   8-10
FROM(l), FROM(2)  FlO.1, FlO.l   11 - 20, 21 - 30
T0(l), TO (2)
FlO.l, FlO.l   31 - 40, 41 - 50
      Comments

State and county ID.  Non-
zero values identify this
as header record (skipped)

Start of line segment
(easting, northing)

End of line segment
(easting, northing)
 Optional CAASE2 output.
                                       62

-------
                                         (optically  reduced)
                n
                  tf
                                                          i
FIGURE 12.  EXAMPLE OF PLOTTER OUTPUT FROM CAASE3
                      63

-------
(in the primary UTM zone) of the grid itself, and a statement of the actual




size of the plot in inches.  Figure 13 is an example of the printed output for




the Parkersburg-Marietta AQCR (#179) example study area.




4.4  Executive Control Language (ECL) and Deck Setup




     An example of a deck setup configuration is illustrated in Figure 11.




Using the Parkersburg-Marietta AQCR (#179) as an example study area, the




associated ECL and input data cards are illustrated in Figure 14 and describe




the following:




     A.  The program is in absolute form in cataloged file "A" on mass




         storage.




     B.  The grid squares file (output from CAASE2) is on tape as Fortran unit




         number 20.  It is labeled "AQCR179-GRID".  The volume and serial name




         is "FFFFFF".




     C.  The edited MED-X census data (output from CAASE1) is on tape as




         Fortran unit number 10.  It is labeled "AQCR179-MEDX".   The volume




         and serial name is "AAAAAA".




     D.  The subset of the county outline file (output from CAASE2) is on tape




         as Fortran unit number 12.  It is labeled "AQCR179-PLOT".  The volume




         and serial name is "HHHHHH".




     E.  The scaling factor, plot option variables, and study area name are on




         the installation dependent standard card input device.   The standard




         1:250,000 scale has been selected.  Plotting of enumeration districts




         and county outlines is requested.




     F.  The printer and plotter are the installation dependent  standard




         device numbers•




4.5  Warnings and Limitations




     The user should check the size of the study area on a USGS  map to




determine whether the requested map scale will fit on twenty-nine (29) inch






                                      64

-------
                              CAASE3

STUDY AREA IS PARKERSBURG-MARIETTA

ENUMERATION DISTRICTS TO BE PLOTTED

COUNTY OUTLINES TO BE PLOTTED
          EASTING   NORTHING
MINIMUM
MAXIMUM
373.
565.
4255.
4415.
PLOT WILL COVER 16.1 X 13.8 INCHES
          BOX
      XPOINT
       YPOINT
SIDE
                               (ETC.)
378 TOTAL ENUMERATION DISTRICTS PLOTTED
378 CENSUS ENUMERATION DISTRICTS
  0 SCALED ENUMERATION DISTRICTS
  0 USER ENUMERATION DISTRICTS
  9 COUNTIES' OUTLINES PLOTTED.
STATE
COUNTY
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
389.0
405.0
421.0
437.0
385.0
389.0
397.0
401.0
403.0
404.0
405.0
409.0
413.0
421.0
403.0
4335.0
4335.0
4335.0
4343.0
4351.0
4351.0
4351.0
4351.0
4351.0
4351.0
4351.0
4351.0
4351.0
4351.0
4352.0
16.0
16.0
16.0
8.0
4.0
8.0
4.0
2.0
1.0
1.0
4.0
4.0
8.0
16.0
1.0
39
39
39
39
39
39
39
39
39
39
39
39
39
39
39
9
9
9
9
9
9
9
9
9
9
9
9
9
9
9
273
274
275
276
277
278
279
449.0
453.0
457.0
461.0
465.0
459.0
461.0
4355.0
4359.0
4359.0
4359.0
4359.0
4363.0
4363.0
4.0
4.0
4.0
4.0
4.0
2.0
2.0
54
54
54
54
54
54
54
107
107
107
107
107
107
107
              FIGURE 13.  EXAMPLE OF PRINTED OUTPUT FROM CAASE3
                                       65

-------
@RUN 21RC3P,acct-code/user-id,project
@PASSWD password
@ASG,A A.
@ASG,T AQCR179-GRID.,T,FFFFFF
@USE 20.,AQCR179-GRID.
@ASG,T AQCR179-MEDX.,T,AAAAAA
@USE 10..AQCR179-MEDX.
@ASG,T AQCR179-PLOT.,T,HHHHHH
@USE 12.,AQCR179-PLOT.
@PLOT plotter-unit-no.
@XQT A.CAASE3
         1.0           1           1
PARKERSBURG-MARIETTA
   FIGURE 14.  ECL AND INPUT DATA CARDS FOR CAASE3
                           66

-------
wide plotter paper.  The scaling factor, SCALEX, is divided into the constant




250,000 in the program to compute the map scale.  A SCALEX equal to 1.0 yields




a map scale of 1:250,000; 2.0 yields 1:125,000; etc.  The program computes




the plotting space needed and aborts with an error message if the plot will




not fit on 29" wide paper.  For this case a new scale is selected,  e.g.,




1:500,000, and the job resubmitted.
                                        67

-------
68

-------
5.0  CAASE4 PROGRAM




5.1  Program Description




     This program calculates apportioning factors for each area source




emissions category for each grid square in the study area.  The primary, but




not limiting, objective of apportioning area source emissions to a sub-county




grid is to provide better spatial resolution of area source emissions data for




dispersion modeling analyses.  (CAASE5, described in Section 6, uses the




calculated apportioning factors to develop fractional coefficients used to




allocate a portion of a county's total fuels and emissions to each source




category-grid square combination.)




     Fuels and emissions are allocated with the same apportioning factors.




For example, housing counts for each grid square are used to calculate the




apportioning factor for both distillate oil marketed for use as residential




fuel and the emissions produced by its combustion.




     CAASE4 is structured such that a main program, with only a few lines of




source code, is used to set the dimensions of the arrays for the variables




used.  (This is done to conserve computer core storage requirements.)  The




main program needs to be recompiled only if array sizes are to be increased.




After defining the variable dimensions, the main program calls the subroutine




CAASE4, which does all of the work; the CAASE4 subroutine does not call any




additional subroutines.




     The program uses the grid square file output from the CAASE2 gridding




program as direct input.  Each county in the study area being processed is




completely processed, in turn, before proceeding to the next county.




     CAASE4 uses census based data and grid square size to calculate




apportioning factors.  This is a totally objective technique that the user can




optionally modify.  Objective factors used include, for each grid square:  the




fractional area of the grid square that is located in the county being
                                      69

-------
processed (1.0 unless a county border transects the grid square), the size and




location of the grid square, and housing and population counts assigned to it




for that county.  From these data, population density and its inverse are




calculated and also used for apportioning.




     CAASE4 will use overriding weighting factors at the user's option.  Most




of the area source emissions categories can be effectively apportioned by




CAASE4 without user intervention.  For a few categories, the user will




probably have data not directly available to CAASE, for example, the locations




of airports, waterways, and railroads; for these categories (and any others),




the user can prepare and input overriding weighting factors.




     A detailed discussion of the objective apportioning factors, user-




supplied overriding weighting factors, their rationale, and how to apply them,




are included in Section 8.  The method of introducing overriding weighting




factors is discussed in Section 5.2, Input Information.




     It is important for the CAASE user to fully understand a basic concept in




the calculation of apportioning factors.  All of the apportioning factors




output from CAASE4 are "weighted apportioning factors."  Each one is the




product of an objective apportioning factor - for example, grid square




contained population - and a weighting factor.  The weighting factor is 1.0




unless overridden by the user.  The CAASE user does not replace the objective




apportioning factors when he uses the overriding option; he modifies the 1.0




(default) weighting factor coefficients of the objective apportioning




factors.




     For convenience, the fields of fuels (throughput) data on the NEDS Area




Source Input Form [EPA (DUR) 219, 3/72] have been sequentially numbered by




source category.  Major category classifications (for example, residential




fuel) and associated minor category classifications (for example, distillate
                                       70

-------
oil) have been assigned a sequential category number.  Table 12 relates the




assigned sequential number to its major and minor classifications.




     In the CAASE4 program, objective apportioning factors have been assigned




to all area source categories.  The tons per acre coefficients reported for




forest wildfires, managed burning, and agricultural field burning are used to




calculate total county fuels  (throughput) for those source categories.  They




are, therefore, not subject to apportioning; their numeric values are included




in CAASE4 outputs for use by CAASE5.  The number of days orchard heaters are




fired for frost control is also output without change for use by CAASE5.




     The selection of array dimensions in the main program is based on the




maximum count of grid squares included in any of the counties currently being




processed and on the maximum number of source categories to be overridden by




user-supplied weighting factors in any of those counties.




     Figure 15 is a system flowchart of the CAASE4 program.  Logical




flowcharts and source language listings for CAASE4 are included in Appendix D.




5.2  Input Information




     The input card variables, their layout, and descriptions are contained in




Table 13.  The county selector card contains the state and county FIPS code




and name, the number of source categories to be overridden (if any), and a




print switch option variable used to control the printing of computed




apportioning factors.  If source categories are to be overridden, then the




source category number and its initialization constant are input for each of




them.  (This initializes those grid squares; overriding values need not be




read in for every grid square if only one or a few are to receive apportioned




fuels and emissions.  For example, if all grid squares were initialized to




zero for emissions from aircraft operations, the user would read in an




overriding weighting factor for only those grid squares affected by aircraft
                                       71

-------
    TABLE  12.   AREA SOURCE EMISSIONS  CATEGORY NUMBERS
CATEGORY
 NUMBER
   1
   2
   3
   4
   5
   6
   7
   8
   9
  10
  11
  12
  13
  14
  15
  16
  17
  18
  19
  20
  21
  22
  23
  24
  25
  26
  27
  28
  29
  30
  31
  32
  33
  34
  35
  36
  37
  38
  39
  40
  41
  42
  43
  44
  45
  46
  47
  48
  49
  50
  51
  52
  53
  54
  55
  56
      MAJOR
  CLASSIFICATION
RESIDENTIAL FUEL
RESIDENTIAL FUEL
RESIDENTIAL FUEL
RESIDENTIAL FUEL
RESIDENTIAL FUEL
RESIDENTIAL FUEL
COMM'L & INSTITL FUEL
COMM'L & INSTITL FUEL
COMM'L & INSTITL FUEL
COMM'L & INSTITL FUEL
COMM'L & INSTITL FUEL
COMM'L & INSTITL FUEL
INDUSTRIAL FUEL
INDUSTRIAL FUEL
INDUSTRIAL FUEL
INDUSTRIAL FUEL
INDUSTRIAL FUEL
INDUSTRIAL FUEL
INDUSTRIAL FUEL
INDUSTRIAL FUEL
ON-SITE INCINERATION
ON-SITE INCINERATION
ON-SITE INCINERATION
OPEN BURNING
OPEN BURNING
OPEN BURNING
GASOLINE FUEL
GASOLINE FUEL
GASOLINE FUEL
GASOLINE FUEL
DIESEL FUEL
DIESEL FUEL
DIESEL FUEL
AIRCRAFT
AIRCRAFT
AIRCRAFT
VESSELS
VESSELS
VESSELS
VESSELS
EVAPORATION
EVAPORATION
MEASURED VEH MILES
MEASURED VEH MILES
MEASURED VEH MILES
MEASURED VEH MILES
DIRT RDS TRAVELED
DIRT AIRSTRIPS
CONSTRUCTION ACRES
MISC. WIND EROSION
LAND TILLING
FOREST WILDFIRES*
MANAGED BURNING*
AGRI. FIELD BURNING*
FROST CONTROL**
STRUCTURE FIRES
    MINOR
CLASSIFICATION
  ANTH.  COAL
  BITUM.  COAL
  DIST.  OIL
  RESID.  OIL
  NAT. GAS
  WOOD
  ANTH.  COAL
  BITUM.  COAL
  DIST.  OIL
  RESID.  OIL
  NAT. CAS
  WOOD
  ANTH.  COAL
  BITUM.  COAL
  COKE
  DIST.  OIL
  RESID.  OIL
  NAT. GAS
  WOOD
  PROCESS GAS
  RESIDENTIAL
  INDUSTRIAL
  COMM'L & ISSTITL
  RESIDENTIAL
  INDUSTRIAL
  COMM'L 4 INSTITL
  LIGHT VEHICLE
  LIGHT TRUCK
  HEAVY VEHICLE
  OFF HIGHWAY
  HEAVY VEHICLE
  OFF HIGHWAY
  RAIL LOCOMOTIVE
  MILITARY
  CIVIL
  COMMERCIAL
  COAL
  DIESEL OIL
  RESID.  OIL
  GASOLINE
  SOLVENT PURCHASED
  GASOLINE MARKETED
  LIMITED ACCESS RDS
  RURAL ROADS
  SUBURBAN RDS
  URBAN ROADS
  AREA-ACRES
  AREA-ACRES
  AREA-ACRES
  ORCHARD HEATERS
  NO.  PER YEAR
Tons/acra also reported;  **Days  fired/year also reported.
                                72

-------
     PROGRAM
     CONTROL
 SPECIFICATIONS
                              CAASE4 MAIN PROGRAM

                          SETS DIMENSIONS AND CALLS
                          SUBROUTINE CAASEA (RECOMPILE
                          ONLY IF DIMENSIONS NEED TO
                          BE CHANGED)
/GRID FILE
  (CAASE2
   OUTPUT)-
 OVERRIDING
 WEIGHTING
FACTOR CARDS
                              SUBROUTINE CAASE4*

                           ASSIGNS APPORTIONING
                           FACTORS TO EACH OF THE
                           GRID SQUARES FOR EACH
                           SOURCE CATEGORY
                                                                      DETAIL
                                                                      LISTING
     -This  is "effectively" the main program;  the main (driver)  CAASE4
      Program is used only to set dimensions and call this subroutine.

     	  = Optional
                FIGURE 15.   SYSTEM FLOWCHART  OF  CAASE4  PROGRAM
                                      73

-------
Card Type

COUNTY SELECTOR CARD
          TABLE 13.   INPUT CARD LAYOUT,  CAASE4

Card Columns       Format      Variable  Name
1
6
11
31
36
41
61
_ c
- 10
- 30
- 35
- 40
- 60
- 65
15
5X
5A4
15
5X
5A4
15
KOUNTY
—
CNAME
KSTATE
—
SNAME
IOVER
SOURCE CATEGORY OVERRIDE
OPTION CARD
OVERRIDE FACTOR CARD
                          66 - 70
  1 -  5
                           6-10
  1 - 10
                          11-20
                          21 - 30
15



15


F5.0


110


110


F10.0
                                 ITEST
ICAT
                                 XI NIT
IDNUM
                                 KAT
                                 WEIGHT
     Description

FIPS county code of selected
county

Blank

Name of selected county

FIPS state code of selected state

Blank

Name of selected state

Number of source categories to be
overridden

Option switch to print computed
apportioning factors (ITEST=0
suppresses printing)

Source category number for
overriding weighting factor

Initializing constant for
weighting factor

Area source grid square to be
overridden

Source category number to be
overridden

Overriding weighting factor
OVERRIDE FACTOR
DELIMITER CARD

RUN DELIMITER CARD
  1 - 80
  1 - 80
SOX
80X
                Blank - no more overriding
                weighting factors

                Blank - no more counties to be
                processed

-------
operations.)  An override factor card for each grid square and source category

combination to be overridden is necessary.  Each card contains the grid square

ID number, the source category number, and the desired overriding weighting

factor.

     The grid square file output from CAASE2 is used directly as input to

CAASE4.  These data include for each grid square in the county being

processed:  the ID number, the fractional area of the grid square contained

in "this county," the state and county FIPS number, the UTM zone number, the

UTM northing and easting coordinates of the southwest corner of the grid

square, the "effective side length"* in kilometers of the grid square, and the

housing and population assigned to the grid square in "this county."  The

record layouts and description for the grid square file output from CAASE2 are

contained in Tables 6 and 7 (the summary record is output for CAASE3 but is

not used by CAASE4).

     Figure 16 shows the input order and deck configuration for the various

card types.

5.3  Output Information

     Error messages, diagnostic messages, information necessary to control the

CAASE5 program, and a formatted magnetic tape with grid square descriptions

and their weighted apportioning factors are output.  Printed output varies

according to the options selected.  If overriding weighting factors and

initializing coefficients for the overridden source categories are input, they

will also be printed.  If a detailed listing is requested (i.e., the variable

ITEST is non-zero), identifying information and calculated apportioning
*If the fractional area of the grid square in "this county" is less than 1.0,
 the "effective side length" is the square root of the area contained in "this
 county."
                                       75

-------
                                                 BLANK CARD
                                         BLANK CARD
                             OVERRIDE  FACTOR
                                  CARDS
                  SOURCE  CATEGORY
                  OVERRIDE OPTION
                        CARDS
          COUNTY SELECTOR
                CARD
' RUN CARD, ECL
 AND OPTIONALLY
THE MAIN PROGRAM
   SOURCE DECK
 REQUIRED
y)NLY IF
 IOVER 1 0
REPEATED
FOR EACH
COUNTY
'TO BE
PROCESSED
        FIGURE 16.  INPUT DECK  CONFIGURATION  FOR CAASE4  PROGRAM
                                 76

-------
factors for each grid square and source category combination will be printed.

The state and county names and the number of grid squares  read in for the

county are printed.  Figure 17 is an example of CAASE4 printer output.  (Note

that no source categories were overridden.)  Figure 18 is an example of a

requested detailed listing for grid squares located in Washington County,

Ohio.  The detailed listing is printed in the same order as the grid squares

are processed, which is generally by sequential ID numbers.

     Figure 18 was prepared with printed output for two grid squares for

purposes of the following discussion.  Grid square number 97 is an 8 by 8

kilometer square containing 64 square kilometers of area; the variable FRAC

(fraction) is 1.0 indicating that the entire grid square is located in

Washington County; therefore, the "effective side length" is the same as the

grid square side length.  However, grid square number 98 is a 4 by 4 kilometer

square containing 16 square kilometers of area; in this case, FRAC is 0.88633.

Therefore, only 14.18 square kilometers of area are located within Washington

County.  The remaining area is located in one or more neighboring counties and

could, in fact, be outside the study area of interest.  In the case of grid

square 98, the remaining 1.82 square kilometers are in Wood County, West

Virginia, a neighboring county within the same AQCR.  The "effective side

length" for grid square number 98 is 3.7658.  The calculated apportioning

factors are printed (by row) in the same order as the source categories are

reported (see Table 12).  Again, referring to the values printed in Figure 18,

note that the contained housing assigned to grid square number 97 is 488

(rounded to an integer); note that this number appears for the first five

factors in the printout because the first five area source categories are
'rhe number of grid squares for each county is used to determine dimension
 requirements in the CAASE5 program.
                                       77

-------
OO
STATE AND COUNTY  OHIO                     ATHENS




        0  SOURCE CATEGORIES WERE OVERRIDDEN




STATE AND COUNTY  OHIO                     MEIGS




        0  SOURCE CATEGORIES WERE OVERRIDDEN




STATE AND COUNTY  OHIO                     MORGAN




        0  SOURCE CATEGORIES WERE OVERRIDDEN




STATE AND COUNTY  OHIO                     WASHINGTON




        0  SOURCE CATEGORIES WERE OVERRIDDEN




STATE AND COUNTY  WEST VIRGINIA            JACKSON




        0  SOURCE CATEGORIES WERE OVERRIDDEN




                                               (ETC.)




GOOD FINISH
                                                                      HAD
                                                                      HAD
                                                                      HAD
                                                                      HAD
                                                                      HAD
32 GRID SQUARES
28 GRID SQUARES
17 GRID SQUARES
58 GRID SQUARES
26 GRID SQUARES
                                   FIGURE  17.   EXAMPLE OF  PRINTED OUTPUT  FROM CAASE4

-------
 FOR ID,FRAC,STATE,COUNTY,ZONE,X,Y,SIDE,AND AREA=




   97   1.00000   390HIO                  167 WASHINGTON




FACTORS=
                        17
        445.
        4359.
           8.00
         64.00
0.48796E
0.16823E
0.16823E
0.16823E
0.80000E
0.16823E
0.64000E
03
04
04
04
01
04
02
0.48796E 03
0. 16823E 04
0. 16823E 04
0.16823E 04
0.64000E 02
0. 16823E 04
0. 24348E 01
0.48796E
0.16823E
0.16823E
0.16823E
0.64000E
0.24348E
0.24348E
03
04
04
04
02
01
01
0. 48796E 03
0. 16823E 04
0. 16823E 04
0. 16823E 04
0.64000E 02
0. 24348E 01
0.24348E 01
0.48796E 03
0. 16823E 04
0.48796E 03
0.16823E 04
0.80000E 01
0. 16823E 04
0.24348E 01
0.48796E
0. 16823E
0.16823E
0.24348E
0. 80000E
0. 16823E
0.24348E
03
04
04
01
01
04
01
0. 16823E
0. 16823E
0. 16823E
0. 16823E
0.80000E
0.24348E
0.24348E
04
04
04
04
01
01
01
0. 16823E 04
0. 16823E 04
0.48796E 03
0.24348E 01
0.80000E 01
0.24348E 01
0.16823E 04
CONTAINED POPULATION =     1682.   CONTAINED HOUSING =




SQUARE ROOT OF AREA (EFFECTIVE SIDE LENGTH) =    8.0000







 FOR ID,FRAC,STATE,COUNTY,ZONE,X,Y,SIDE,AND AREA=
                  488.    AREA WEIGHTED INVERSE POPULATION DENSITY
                                             0.24348E 01
   98   0.88633   390HIO
167 WASHINGTON
17
453.
4359.
4.00
14.18
FACTORS=
0.23781E
0.79521E
0.79521E
0.79521E
0.37658E
0.79521E
0. 14181E
03
03
03
03
01
03
02
0.23781E 03
0.79521E 03
0.79521E 03
0.79521E 03
0. 14181E 02
0. 79521E 03
0.25290E 00
0.23781E
0.79521E
0.79521E
0.79521E
0.14181E
0.25290E
0.25290E
03
03
03
03
02
00
00
0.23781E 03
0.79521E 03
0.79521E 03
0. 79521E 03
0.14181E 02
0.25290E 00
0.25290E 00
0.23781E 03
0. 79521E 03
0.23781E 03
0. 79521E 03
0.37658E 01
0.79521E 03
0.25290E 00
0.23781E
0. 79521E
0.79521E
0.25290E
0.37658E
0. 79521E
0. 25290E
03
03
03
00
01
03
00
0.79521E
0.79521E
0.79521E
0.79521E
0.37658E
0. 25290E
0.25290E
03
03
03
03
01
00
00
0. 79521E 03
0.79521E 03
0. 23781E 03
0. 25290E 00
0. 37658E 01
0. 25290E 00
0. 79521E 03
CONTAINED POPULATION =      795.   CONTAINED HOUSING =




SQUARE ROOT OF AREA (EFFECTIVE SIDE LENGTH) =    3.7658
                  238.    AREA WEIGHTED INVERSE POPULATION DENSITY
                                             0.25290E 00
               FIGURE 18.  EXAMPLE OF OPTIONAL DETAILED PRINTOUT OF APPORTIONING FACTORS, ETC., FROM CAASE4

-------
residential fuel and have an objective apportioning factor of housing count




(see Section 8).  The remaining 51 apportioning factors for grid square number




97 are for source categories 6 through 56 and include the objective




apportioning factors of housing, population, area, side length, and area-




weighted inverse population density.  Table 14 contains the record layout and




a description of all variables included in the apportioning factor file output




by CAASE4.




5.4  Executive Control Language (ECL) and Deck Setup




     An example of a deck setup configuration is illustrated in Figure 16.




Using the Parkersburg-Marietta AQCR  (#179) as an example study area, the




associated ECL and input data cards are illustrated in Figure 19 and describe




the following:




     A.  The CAASE4 program is in absolute form in cataloged file "A" on mass




         storage.




     B.  The grid square file (output from CAASE2) is on tape as Fortran unit




         number 4.  It is labeled "AQCR179-GRID".  The volume and serial name




         is "FFFFFF".




     C.  The apportioning factor file will be written on tape as Fortran unit




         number 8.  It will be labeled "AQCR179-FACT".  The volume and serial




         name is "JJJJJJ".




     D.  The county selector cards are on the installation dependent standard




         card input device.  The counties to be processed include four in the




         state of Ohio and five in the state of West Virginia.  No overriding




         weighting factors are to be input; therefore, no initializing factors




         are included in the input runstream.  The detailed print option has




         been selected for Washington County, Ohio.
                                      80

-------
    TABLE 14.   OUTPUT RECORD LAYOUT FOR APPORTIONING FACTOR FILE,  CAASE4
 Position

  1 -   5

  6-11



 12 -  14


 15 -  34


 35 -  39


 40 -  59


 60 -  62


 63 -  72



 73 -  82



 83 -  92
 93 - 102


103 - 830
Format

15

F6.5



13


5A4


15


5A4


13


F10.0



F10.0



F10.2
F10.2
24E13.5/
32E13.5
Variable Name

  ID

  FRAC
  ISTATE
  SNAME
  ICNTY
  CNAME
  IZONE
  SIDE
  AREA
  FACTOR
         Definition

Grid square sequence number

Fraction of total area of grid
square contained in this
county

FIPS state number for this
grid square

Name of state for this grid
square

FIPS county number for this
grid square

Name of county for this grid
square

UTM zone of grid square
coordinates (primary zone)

UTM easting coordinate of
lower left-hand corner of this
grid square

UTM northing coordinate of
lower left-hand corner of this
grid square

Effective side length of this
grid square for the area
located in this county, i.e.,
the square root of the area
contained in this county

Area of this grid square
contained in this county

Apportioning factors (includ-
ing any overriding factors)
for the 56 source categories
for this grid square
                                       81

-------
@RUN 2lRC4P,acct-code/user-id,project,time,pages
@PASSWD password
@ASG,A A.
@ASG,T AQCR179-GRID.,T,FFFFFF
@USE 4.,AQCR179-GRID.
@ASG,T/W AQCR179-FACT.,T,JJJJJJ
@USE 8..AQCR179-FACT.
@XQT A.CAASE4
  009
  105
  115
  167
  035
  073
  095
  103
  107

@EOF
@FIN
ATHENS
MEIGS
MORGAN
WASHINGTON
JACKSON
PLEASANTS
TYLER
WETZEL
WOOD
  39
  39
  39
  39
  54
  54
  54
  54
  54
--BLANK CARD-
OHIO
OHIO
OHIO
OHIO
WEST VIRGINIA
WEST VIRGINIA
WEST VIRGINIA
WEST VIRGINIA
WEST VIRGINIA
0
0
0
0
0
0
0
0
0
0
0
0
1
0
0
0
0
0
               FIGURE 19.   ECL AND INPUT DATA CARDS FOR CAASE4
                                       82

-------
5.5  Warnings and Limitations




     The CAASE4 main program is used to set dimensions and to pass them to the




CAASE4 subroutine as "variable dimensions."  The variable NDIM is related to




the number of grid squares; it must be as large as the largest number of grid




squares in any county currently being processed.  NDIM is passed to the CAASE4




subroutine as a variable dimension.  The value assigned to the Fortran




Dimension statements in the main program must be at least one larger than the




value assigned to NDIM.  (This is necessary because whenever the CAASE4




subroutine reads the grid square file, the end of the set of grid squares for




one county is signaled by reading the first record of the next county, i.e.,




the county ID number changes.  The end-of-file condition signals the end of




the set of grid squares for the last county in the file.)




     Analagous to the discussion concerning the variable NDIM and the number




of grid squares, is the setting of the variable KDIM in the main program.




KDIM is the variable used to set the dimensions for the number of source




categories to be overridden.  It must be at least as large as the largest




number of categories to be overridden in any county currently being




processed.




     Selecting the detailed print option can produce a large number of printed




pages.  If this option is selected for a county, 24 lines (including vertical




spacing) are printed for each grid square; a sufficient output page estimate




must be included on the ECL "RUN" card.




     All of the counties in the study area do not have to be processed during




any particular CAASE4 run; however, those counties processed must be in the




same order as processed by CAASEl and CAASE2.




     If source categories are to be overridden, a careful reading and a full




understanding of Section 8 cannot be overemphasized.
                                      83

-------
84

-------
6.0  CAASE5 PROGRAM




6.1  Program Description




     The CAASE5 program performs the functions of calculating the emissions




and allocating fuels and emissions to each grid square and source category




combination.




     In order to perform these functions, CAASE5 requires: the apportioning




factor file output from CAASE4, current area source emission factors for the




five primary pollutants, and the NEDS Area Source fuels (throughput) data  (for




each county to be processed).  These data must be in the same format as the




first five cards (Al through A5) from the NEDS Area Source Input Form  [EPA




(DUR) 219, 3/72].




     CAASE5 is structured such that a main program, with only a few lines of




source code, is used to set the dimensions of the arrays for the variables




used.  (This is done to conserve computer core storage requirements.)  The




main program needs to be recompiled only if array sizes are to be increased.




After defining the variable dimensions, the main program calls the subroutine




CAASE5, which does all the work; CAASE5 calls other subroutines and passes the




variable dimensions to them as necessary.




     CAASE5 uses the fuels (throughput) totals and the emission factors to




calculate county-total area source emissions in the same way as the NEDS




programs.




     Current area source emission factors are input by the user.  The factors




can be the national emission factors published by EPA or those developed by




state or local agencies.  Emission factors for highway motor vehicles are




input directly; those for stationary sources and off-highway mobile sources




are scaled for input.  The scaling of the emission factor takes into account




the scaling of the fuels data and units conversion.  Emission factors are read




in for each of the primary pollutants  (TSP, S02, NOX, HC, and CO) and area




source category combinations.




                                       85

-------
     Except in the case of highway motor vehicle emission factors, the factors




are scaled and units are converted off-line.  For example, if the emission




factor is 20 pounds of TSP produced for each ton of bituminous coal burned for




home heating, and the total tons burned is expressed in tens of tons on the




NEDS area source form, then the factor read in should be 0.10 (10 scaling




factor x 20 Ibs/ton burned/2000 Ibs/ton).  The program subsequently multiplies




the fuel total reported on the area source input form by the 0.10 factor




yielding TSP emissions in tons.  For those source-category/pollutant




combinations where percent ash or sulfur content is used, the program




automatically applies them during the on-line calculation.  For those




categories involving acres burned, the tons per acre reported is used in the




calculation of emissions.  (An example of a complete set of emission factors




for input to CAASE5 is included in Section 6.2.)




     A complete discussion of input, output, deck setup, and formats is




included in Sections 6.2 through 6.4.




     It is important to understand the sequence of steps performed by CAASE5




and the algorithms used; they are described as follows, and the steps are




repeated for each county being processed.  Initially, identification




information for the state, county, study area, and the number of grid squares




in the county are read in from cards.  A card with labeling information is




then read in and the subroutine READ1, which is described in Section 7.30, is




called to read the county "fuels" totals from cards.  These cards are coded




in the same format as the first five cards on the NEDS Area Source Input Form




[EPA (DUR) 219, 3/72].  If READ1 does not return an error condition,




processing continues.  The apportioning factor file output from the CAASE4




program is then read.




     At this point in the processing, the apportioning factors are not




fractions that can be used as coefficients for the county totals of fuels and






                                       86

-------
emissions; that is, each is a calculated value, one for each grid square and




source category combination.  Using any one source category and county as an




example of the procedure, and supposing that the county contained 50 grid




squares, then the steps are as follows: the apportioning factors for all 50




grid squares for this source category are summed;  (this becomes the




denominator of a fraction).  CAASE5 then allocates to the first grid square a




fractional portion of the county total fuels for this source category; the




fraction is the apportioning factor for the first grid square divided by the




sum of the 50 apportioning factors for this source category for this county.




The processing proceeds until an allocation has been made (for this source




category) to each of the 50 grid squares.




     In a sense, the apportioning factors output from CAASE4 appear dimension-




less to CAASE5.  Regardless of the numeric range of the apportioning factors




for a source category, fractions are calculated by CAASE5.  A summation of




these fractions for a source category and for all grid squares in a county




will yield unity.  (After calculating county totals of emissions for each




pollutant and source category combination, CAASE5 allocates them to the grid




squares in the same manner as was done with the fuels.)




     After the fuels have been allocated for all categories, the subroutine




OUTPTl is called which causes the printing of tables.  (OUTPT1 is described




in Section 7.31.)  The CAASE5 program then calculates total emissions for each




of the five primary pollutants (TSP, S02, NOX, EC, and CO) for each of the




fuel categories.  The CAASE5 program handles the highway motor vehicle source




categories in the same manner as the AEROS-NADB program for the NEDS system.




Measured vehicle miles by vehicle class is used, if available, and the ratios




for vehicle classes are calculated using estimates of miles per gallon of fuel




used for each of the different vehicle classes.  The emissions are then
                                       87

-------
allocated one pollutant at a time to limit the computer core storage




requirements.  The emissions for all area source emission categories for the




county are summed and printed for comparison with the total emissions




calculated by the NEDS system for area sources.  The TSP, SC>2» NOX, HC, and CO




emissions for all source categories are summed for each grid square and saved




for the dispersion modeling input cards to be output later using the OUTPT3




subroutine.  (OUTPT3 is described in Section 7.33.) The allocated emissions




are printed in tabular form using the OUTPT2 subroutine.  (OUTPT2 is described




in Section 7.32.)  After allocated emissions are output for all five




pollutants, the dispersion modeling input card images are produced by calling




the OUTPT3 subroutine.  A formatted tape is written containing all table




entries and is described, in detail, in Section 6.3.




     Logical flowcharts and source language listings for CAASE5 and its




subroutines are included in Appendix E.




     Figure 20 is a system flowchart of the CAASE5 program.




6.2  Input Information




     Emission factors and a dispersion model selector card are read; they will




be used for all counties to be processed.  For each county to be processed, a




county selector card, a heading card for labeling output, and county-total




area source fuels (throughput) data are read.  The fuels (throughput) data is




input in the same format as the first five cards (Al through A5) on the NEDS




Area Source Input Form [EPA (DUR) 219,  3/72].  Subroutine READ1 performs the




function of reading the area source fuels (throughput) cards.  READ1 also




calculates the "light truck, gasoline fuel" fuels total for the county.  (See




Section 7.30 for the alogrithm used.) This source category is not directly




reported on the area source form; the algorithm used by READ1 was obtained




from EPA/NADB.
                                       88

-------
  PROGRAM CONTROL
  SPECIFICATIONS
                                CAASE5 MAIN PROGRAM

                             SETS DIMENSIONS AND CALLS
                             SUBROUTINE CAASE5
                             (RECOMPILE ONLY IF
                             DIMENSIONS NEED TO BE
                             CHANGED)
    APPORTIONING
     FACTOR FILE
       (CAASE4
        OUTPUT)
   SCALED EMISSION
     FACTOR DATA
   NEDS FUELS
 (THROUGHPUT) DATA
   (NEDS AREA
  SOURCE CARDS)
  SUBROUTINE CAASE5*

ALLOCATES "FUELS,"
CALCULATES AND
ALLOCATES EMISSIONS
INTO INDIVIDUAL GRID
SQUARES
 'ALLOCATED
    FUELS,
EMISSIONS AND
IPP, COM, OR
 AQDM CARD
 IMAGES FILE
                                                                      TABLES OF
                                                                  ALLOCATED FUELS,
                                                                  EMISSIONS, IPP, OR
                                                                     COM, OR AQDM
                                                                      CARD IMAGES
                                                                    IPP, COM, OR
                                                                   AQDM CARD DECK
*This is "effectively" the main program; the main (driver) CAASE5 program is
 used only to set dimensions and call this subroutine.
      = Optional
                 FIGURE 20.  SYSTEM FLOWCHART OF CAASE5 PROGRAM
                                       89

-------
     Figure 21 is an example of a completed NEDS Area Source Form.  The data

values entered on the form are the Washington County, Ohio inventory for 1972

as reported to EPA/NADB for inclusion in the NEDS data base.  The data, as

shown in Figure 21, were used with CAASE5 for the output examples included in

Section 6.3.

     Figure 22 illustrates the scaled emission factors  input to CAASE5 for

the examples in this manual.  Emission factors for highway vehicles fuels are

scaled within CAASE5.  (The user is cautioned to make sure that the most

current emission factors are used.)  For highway vehicles, there are 16

emission factors for each pollutant; there are four vehicle classes and four

highway classes with an emission factor assigned to each combination.

     Figure 23 shows the input order and the deck configuration for the

various card types.

     Table 15 contains a description of the card types input in the runstream,

their formats, and definitions of the variables.

     The apportioning factor file output from CAASE4 is used as direct input

to CAASE5.  The record layout and description for this file are contained in

Table 14  (in Section 5.3).

6.3  Output Information

     Output from the CAASE5 program includes diagnostic and error messages,

tables of allocated fuels, and tables of allocated emissions for each of the

five primary pollutants.  A card deck (or card images) is produced in the

input format for the IPP, CDM, or AQDM dispersion models.  A formatted tape is

written containing table entries, and the card images are also written on this
 The CAASE5 program logic automatically takes into account the ash and sulfur
 content for the appropriate source categories.
                                      90

-------
                              NATIONAL EMISSIONS DATA SYSTEM (NEDS)
                               ENVIRONMENTAL PROTECTION AGENCY
                                    OFFICE OF AIR PROGRAMS
AREA SOURCE
Input Form
    Dale 	
FORM APPROVED
OMB NO 151 R009S
                                                                 Nine ol Person
                                                                 Complelin( Foim
Year
ol
lecord
10
f
11
2,
SIP EMISSION ESTIMATES 00* t.«i/yi»

Parliculale
12

13

14

15

16


S02
17

18

19

20


NO,
2l2l
1
23

24


HC
25

26

27

28

29



CO
30

31

32

33

34

SULFUR CONTENT (%)
Anlh.lBilua.
Coal 1 Coal
35

ttfobl
Ply
Disl.
Oil
39
£»,
40
,/
Resid
Oil
11
0,
42
,7
ASH CONTENT (V
Anlh.
Coal
43

44

45

OH™.
Coal
46
/
47
?,
48
,4-

Ant*. CM!
10) lorn
49

50

51

52
3
K
t
RESIDENTIAL FUEL

10' l««
54

K

56

57
3
5£
3
59
f
Disl. Oil
!04 Gal.
60

61

62
/
6364
O\f
Resid. Oil
ID4 Gal.
65

66

67

68
0

Nat. Gas
10' (I.3
69

70

71
JL
72
7
73
?

Wood
|0Z Ions
74

25 76
1
77
f

c
0

78




79
A


cd
RO

COMMERCIAL AND INSTITUTIONAL FUEL .
Anlh.
ID1 Ions
10

11

12

13

14
O
Bitumin.
10* Ions
15

16

17
6>
18
F


19
d,
Disl. Oil
10* Gals.
20

21

22
£
23
S
24
A
ON SITE INCINERATION
Residential
10 ' Ions
10

11

12

13
$•
14
a
15
9
Industrial
10? Ions
16

17

18

19
7
70
0
Corn. In&l.
102 Ions
21

22

23
/
24
7
Resid. Oil
104 Gals.
25

26

27

28

29
0
N.I! Gas
10' Fl3
30(31

3T

3r
3
Wood
lO^lonr
3«

35
0
Anlh. Coal
Id' Ions
30

37

38

39

40



41
0
Bilun
. INDUSTRIAL
Coal
Id1 Ions
42

43

44
*
OPEN BURNING
Residential
10? Ions
25

26

27

28

29
J
30
f


31

Inu'usliial
I07 Ions
32

33

34

35
36
3S
Comrn'l- Instill.
102 Ions
37

38

39

40
/

41
B
45
&.
46
O
47
r4 Bulnini) BUnNING
Actrt Buinrd
J8

39

40

41

42

43

44
0
llnt/iciri
Buinrd
45

46

47
O
Aci'i Buintd
48

49

5051

52

53
O
torn/ Acini AcmBuirwd
Ruined |
54

35H57
ol
50

59

CO

61

62
O
Tom/Acrei
Bumrd
63

64

65
Q
Oi thud
Hri|p«t
Opfialmq
66

67

68

69
0

OJvVf"f<*
Ojyt/yrar
70

71

72
O

F»rt/V">
73l74l75
1 M
76
2
77
1

w
«t
78



79
A

cd
80
5
COIWMCNTS
10

11

17

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

r?

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66


67

68

69

70


71

72

73

74

75

76

77

|
O
«t
78


79
A
cd
80
6
FIGURE 21.  NEDS AREA  SOURCE INPUT FORM FOR WASHINGTON COUNTY,  OHIO (1972)

-------
.05
.075
.115
.8
.125
0.
0.
.184
.72
.795
.05
.285
0.
0.
.015
.3
.3
.3
1.85
0.
0.
0125
.015
.015
1.5
.47
1.
0.
.10
.115
.05
.8
.995
0.
0.
.19
.795
.003
.05
.19
0.
0.
.015
.3
.9
.3
. 478
0.
0.
. 1
.015
.015
1.5
2.315
1.1
0.
.05
.05
1.25
0.
.002845
0.
0.
.72
.003
.075
0.
.000565
0.
0.
.06
.6
.5
0.
.00257
0.
0.
.015
.04
1.
0.
.0126
0.
0.
.115
1.25
.1
0.
.00895
0.
.0085
.795
.075
.01
0.
.0128
0.
0.
.2
.5
1.15
0.
.126
0.
.002
.015
1.
.15
0.
.1655
0.
.012
.05
.01
.16
0.
.1
0.
.0085
.003
.1925
.0025
0.
.25
0.
0.
.4
.075
.005
0.
.015
0.
.001
.04
.001
.45
0.
.1
0.
.01
1.25
.065
.4
.00535
.12
0.
.0085
.075
.19
.125
.0028
.15
0.
0.
.5
.075
.15
.061
1.12
0.
.001
1.
.005
.25
.172
.294
0.
.01
.01
.001
.4
0.
.0965
0.
.0001
.1925
.019
.125
0.
1.43
0.
. 00005
.05
.005
.15
0.
.209
0.
0.
.001
.0001
.25
0.
.0145
0.
.0215
.029
.075
.8
.1665
0.
0.
.054
.19
.76
.05
.149
.00315
0.
.0001
.046
.3
.3
1.845
.0137
0.
.0047
.01
.015
1.5
.202
.4655
0.
.014
                                                                                                  TSP
                                                                                                  SO--
                                                                                                  NO-s
                                                                                                  HC
Order of scaled factor is by row and column in the same order as in Table 12.  Zero fillers are used when
the emission factor has not been determined, e.g., category 48, or is not directly applicable, e.g.,
categories 43 through 46.
     FIGURE 22.  SCALED AREA SOURCE EMISSION FACTORS USED AS INPUT TO CAASE5 FOR THE CAASE EXAMPLES.

-------
.45
.02
.02
4.25
.65
0.
0.
.54
.54
.13
.13
4.9
4.6
5.8
6.2
30.7
37.3
.45
.02
.085
4.25
2.485
0.
0.
.54
.54
.18
.18
5.8
5.5
9.3
10.
38.3
46.1
.025
.1
1.
0.
.072
0.
0.
1.2
1.2
.36
.36
12.5
11.7
18.6
20.6
136.7
159.4
.02
1.
0.
0.
.3415
0.
.07
2.2
2.2
2.8
2.8
28.3
26.7
2.3
2.8
8.9
15.
.1
.01
1.35
0.
.45
0.
.03
.54
.54
.13
.13
4.9
4.1
5.8
8.3
30.7
64.1
1.
.01
.575
1.95
.392
0.
.05
.54
.54
.18
.18
5.8
4.9
9.3
13.1
38.3
78.
.03
.0025
.575
0.
.007
0.
.011
1.2
1.2
.36
.36
12.5
10.5
18.6
29.1
136.7
254.2
.036
.02
4.25
.52
1.48
0.
.122
2.2
2.2
2.8
2.8
27.9
22.3
2.4
4.
10.5
31.1



CO




TSP+

S02

NOX

HC

CO
+0rder of factors is by row and column for vehicle class and highway class, respectively.
  FIGURE 22.  SCALED AREA SOURCE EMISSION FACTORS USED AS INPUT TO CAASE5 FOR THE CAASE EXAMPLES (CONT.)

-------
                                                                  BLANK CARD
                                                          NEDS AREA
                                                        SOURCE FUELS/
                                                      IHROUGHPUT CARDS
                                                          (Al - A5)
                                                HEADING CARD
                                       COUNTY SELECTOR
                                            CARD
                              DISPERSION MODEL
                              FORMAT SELECTOR
                                   CARD
                    MOBILE  SOURCES
                    EMISSION  FACTOR
                         CARDS
            SCALED AREA
          SOURCE EMISSION
           FACTOR CARDS
'  RUN  CARD, ECL
  AND OPTIONALLY
THE MAIN PROGRAM
   SOURCE DECK
 REPEAT FOR
 EACH COUNTY
>TO BE
 PROCESSED
                  FIGURE 23.  INPUT DECK CONFIGURATION FOR CAASE5 PROGRAM
                                            94

-------
Card Type
SCALED EMISSION FACTOR CARD
MOBILE SOURCES EMISSION
FACTOR CARD
DISPERSION MODEL FORMAT
SELECTOR CARD
      TABLE 15.  INPUT CARD LAYOUT,  CAASE5

Card Columns  Format  Variable Name        Description
COUNTY SELECTOR CARD
1
1
1
1
11
21
31
41
47
51
56
61
70
- 80
- 80
- 5
- 10
- 20
- 30
- 40
- 46
- 50
- 55
- 60
- 69

8F10.0
8F10.0
15
F10.0
110
F10.0
110
6X
A4
15
15
9X
Al
EMFAC1-EMFAC5
EFHV
IWANT
XSTATE
ICNTY
XAQCR
NAREAS
—
CNTY
KOUNTY
KSTATE
—
IPOLIT
                                     categories,  7 cards  per pollutant,  5
                                     pollutants

                                     8 emission factors per card for 4 vehicle
                                     classes,  4 road types, 2 cards per
                                     pollutant, 5 pollutants

                                     Code denoting subroutine OUTPT3 output
                                     format
                                       IWANT = 1  IPP
                                             = 2  COM
                                             = 3  AQDM

                                     FIPS state code of selected state

                                     FIPS county  code of  selected county

                                     Numeric code number  of selected study  area

                                     Number of grid squares in selected county

                                     Blank

                                     Name of selected county

                                     NEDS county  code of  selected county

                                     NEDS state code of selected state

                                     Blank

                                     Political subdivision of selected study
                                     area
 For the processing of more than one county,  repeat card setup from this  card  type  through  card  type
 fuels (throughput) totals.

-------
                               TABLE  15.   INPUT CARD LAYOUT, CAASE5  (CONT.)
Card Type

COUNTY SELECTOR CARD
(CONT.)
HEADING CARD
FUELS (THROUGHPUT) CARD
Card
71
78
1
1




Columns
- 77
- 80
- 80
- 80




Format Variable Name
7X
A3 IREGN
20A4 HDG
See NEDS
AREA
SOURCE
INPUT
FORMAT
                                           Description

                                      Blank

                                      Alpha code number of selected study area

                                      Output page heading including name of
                                      selected county, state and any other
                                      pertinent identifying information

                                      NEDS area source fuels  (throughput) cards
                                      Al  - A5
RUN DELIMITER CARD
1 - 80
SOX
Blank - No more counties to be processed

-------
tape.  County totals, by source category and pollutant combination, are both




printed and written on tape.  Fuel totals from the area source input cards




are printed for convenience and visual checking.  Figure 24 is an example




of a printout of the NEDS area source fuels (throughput) data read in for




Washington County, Ohio.




     The OUTPT1 subroutine outputs tables of allocated fuels (throughput) for




each source category and grid square combination; Figures 25 through 29 are




examples of output Tables 1 through 5 of allocated fuels for Washington




County, Ohio.




     The OUTPT2 subroutine outputs tables of allocated emissions for each




source category and grid square combination.  The OUTPT2 subroutine is called




five times for each county, that is, once for each pollutant.  Figures 30




through 34 are examples of output Tables 1 through 5 of allocated emissions




(particulates) for Washington County, Ohio.  Allocated emissions for the other




four pollutants are output in the same format as the particulates.




     Figure 35 is an example printout of county-total emissions for all source




category and pollutant combinations for Washington County, Ohio.  The county




emissions totals calculated by CAASE5 for each pollutant is also printed.




     Figure 36 is an example printout produced by the OUTPT3 subroutine.  In




this example, dispersion modeling input card images are in the IPP format.




Cards are also punched, and the card images are written on the formatted




CAASE5 output tape.  (The OUTPT3 subroutine is described in Section 7.33.)




     The formats of the CAASE5 output tape records are contained in Table 16;




a description of the contained variables is given in Table 17.  Tables 16 and




17 also include the sources of each of the various record types.  OUTPT1 and




OUTPT2 write a header record each time the subroutines are called; each header




record is followed by detailed records containing allocated fuels or allocated
                                       97

-------
      WASHINGTON COUNTY, OHIO  (PARKERSBURG-MARIETTA AQCR - NEDS 1972)  TEST 1/78

      FUEL TOTALS READ IN FOLLOW - (NOTE THAT READl ROUTINE CALCULATED  THE LGT TRUCKS  CATEGORY (NO.28)  BY
      APPORTIONING FROM LGT DUTY GAS (NO. 27) AND HVY DUTY GAS TRUCKS  (NO.29))

        36.0     335.0    128.0        0.0     274.0        4.0          0.0        686.0       383.0      0.0
        33.0       0.0      0.0     2404.0       0.0       47.0          0.0         48.0         0.0      0.0
       509.0      70.0     17.0       39.0      35.0       13.0      17716.3       3564.1      2935.6   1747.0
      2121.0     376.0      7.0        0.0     432.0        0.0          0.0        443.0         0.0     60.0
       309.0     270.0      0.0        0.0       0.0        0.0          0.0          0.0         0.0      0.0
         0.0       0.0      0.0        0.0       0.0      229.0

      FOOTNOTE:  CATEGORIES BY ROW IN SAME ORDER AS AREA SOURCE NEDS FORM AND OUTPUT TABLES
CO
                            FIGURE 24.  EXAMPLE PRINTOUT OF AREA SOURCE INPUT DATA,  CAASE5

-------
WASHINGTON COUNTY, OHIO  (PARKERSBURG-MARIETTA AQCR - NEDS 1972) TEST 1/78

                 COUNTY-WIDE AREA SOURCE DATA USED IN CALCULATING EMISSIONS BY SOURCE CATEGORY FOR APPORTIONING
                                  SULFUR CONTENT:
                                            ANTHRACITE COAL
                                            BITUMINOUS COAL
                                            DISTILLATE OIL
                                            RESIDUAL OIL
 0.0 PERCENT
 4.4 PERCENT
 0.1 PERCENT
 0.9 PERCENT
                                  ASH CONTENT:
                                            ANTHRACITE COAL
                                            BITUMINOUS COAL
 0.0 PERCENT
18.4 PERCENT
                                  FOREST WILDFIRES

                                  MANAGED BURNING

                                  AGRICUL. FIELD BURNING

                                  FROST CONTROL
 0.0 TONS PER ACRE

 0.0 TONS PER ACRE

 0.0 TONS PER ACRE

 0.0 TONS PER ACRE
                                                         POPULATION CODE
                     FIGURE 24.  EXAMPLE PRINTOUT OF AREA SOURCE INPUT DATA, CAASE5 (CONT.)

-------
          WASHINGTON COUNTY, UhlO  (PARKE3SBURG-MARIETTA  AQCR  -  NEDS  1972) TEST 1/78)
                                      APPORTIONED FUELS, TABLE  1, PAGE  1
o
o
SUUKCE
NUMatK
/8
79
ttO
81
82
83
64
65
06
67
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
ua

HE.GU
179
179
179
179
179
179
179
179
179
179
179
179
179
179
179
179
179
179
179
179
179
179
179
179
179
179
179
179
179
179
179
179
179
179
179
179
179
179
179
179
179
179
. 179
. 179
179
                                   POLIT
                                          COUNTY
 COORDINATES
X(KM)    YCKM)
          *****************  RESIDENTIAL FUEL *****************
          ANTH,    BITUM.   DIST.OIL   RES.OIL   NAT.GAS   HOOD
(SO.KM)    10E1T    10E1T    10E4GALS   IOE4GALS   10E7FT3  10E2T
                                                      0.0
                                                      0.0
                                                      0.0
                                                      0.0
                                                      0.0
                                                      0.0
                                                      0.0
                                                      0.0
                                                      0.0
                                                      0.0
                                                      0.0
                                                      0.0
                                                      0.0
                                                      0.0
                                                      0.0
                                                      0.0
                                                      0.0
                                                      0.0
                                                      0.0
                                                      0.0
                                                      0.0
                                                      0.0
                                                      0.0
                                                      0.0
                                                      0.0
                                                      0.0
                                                      0.0
                                                      0.0
                                                      0.0
                                                      0.0
                                                      0.0
                                                      0.0
                                                      0.0
                                                      0.0
                                                      0.0
                                                      0.0
                                                      0.0
                                                      0.0
                                                      0.0
                                                      0.0
                                                      0.0
                                                      0.0
                                                      0.0
                                                      0.0
                                                      0.0
WASH
MASH
WASH
MASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
rtASH
421.0
437.0
437.0
445.0
449.0
421,0
437.0
445.0
449.0
453.0
461.0
469.0
485.0
451.0
449.0
451.0
445.0
449.0
437.0
445.0
453.0
457.0
461.0
465.0
469.0
477.0
453.0
457.0
4S9.0
461.0
463.0
465.0
457.0
459.0
461.0
463.0
421.0
437.0
445.0
453.0
461.0
469.0
485.0
493.0
437.0
4335.0
4335.0
4343.0
4347.0
4347.0
4351.0
4351.0
4351.0
4351.0
4351.0
4351,0
4351,0
4351.0
4352.0
4353.0
4353.0
4355.0
4355.0
4359.0
4359.0
4359.0
4359.0
4359.0
4359.0
4359.0
4359.0
4363.0
4363.0
4363.0
4363,0 .
4363.0
4363.0
4365.0
4365.0
4365.0
4365.0
4367.0
4367.0
4367.0
4367.0
4367.0
4367.0
4367.0
4367.0
4375.0
12.30
1.16
35.39
10.65
2.49
147.29
64.00
16.00
3.74
1.98
4.95
4,30
1.00
0.18
4.00
1.19
16.00
14.44
64.00
64.00
14.18
3.04
3.75
15.15
61.71
35.86
16.00
4.00
3.95
3.88
4.00
16.00
4.00
4.00
4.00
4.00
55.10
60.69
64.00
64.00
64.00
254.55
47.13
1.53
53,42
0.1
0.0
0.8
2.6
0.7
1.1
1.2
0.3
0.0
0.0
0,4
0.2
0.0
0.0
0.1
0.0
0.3
0.2
0.4
1.0
0.5
1.3
1.1
0.7
0.9
0.6
0.6
0.6
3.1
2.1
0.4
0.4
0.7
0,5
0.9
0.1
0.2
0.8
0.9
2.0
1.2
1.2
0.4
0.0
• 0.9
1.4
0.3
7.9
24.4
6.3
9.9
11.5
2.7
0.5
0.3
4.1
1.9
0.1
0.0
0.5
0.1
3.1
2.3
3.9
9.0
4.4
12.2
10.5
6.7
8.2
5.4
5.6
6.0
28.8
19.6
3.4
3,7
6.1
4.9
8.7
1.1
1.9
7.6
8.4
• 18.7
11.4
12.1
3.7
0.2
8.7
0,5
0.1
3.0
9.3
2.4
3,8
4.4
1.1
0.2
0.1
1.6
0.7
0.0
0.0
0.2
0.1
1.2
0.9
1.5
3.4
1.7
4.7
4.0
2.6
3.2
2,1
2.1
2.3
11. 0
7.5
1.3
1.4
2.1
1.9
3.3
0.4
0.7
2.9
3.2
7.2
4.3
4.6
1.4
0.1
3.3
1.1
0.2
6.4
20.0
5.2
8.1
9.4
2.2
0.4
0.3
3.4
1.5
0.0
0.0
0.4
0.1
2.5
1.8
3.2
7.3
3.6
10.0
8.6
5.5
6.7
4.5
4.6
4.9
23.6
16.0
2.7
3.1
5.0
4.0
7.1
0.9
1.5
6.3
6.9
15.3
9.3
9.9
3.0
0.2
7.1
0.0
0.0
0.1
0.3
0.1
0.1
0.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.1
0.1
0.1
0.1
0.1
0.1
0.1
0.1
0.1
0.3
0.2
0.0
0.0
0.1
0.1
0.1
0.0
0.0
0.1
0.1
0.2
0.1
0.1
0.0
0.0
0.1
                               FIGURE 25.   EXAMPLE OF  CAASE5 OUTPUT  TABLE 1, ALLOCATED FUELS

-------
HASNINGTUN COUNTY,  OHIU   (PARKERSBURG-MARIETTA AQCR • NEOS 1972) TEST 1/78)
APPORTIONED FUELS,  TABLE  2,  PAGE   1
                ******  COMMERCIAL  AND  INSTITUTIONAL FUEL *******  ********************** INDUSTRIAL  FUEL  ************************
                A.NfH.   BTTU*.   DIST.OIL   RES.OIL  NAT.GAS  WOOD   ANTH,  BITUX.  COKE   OIST.OIL   RES.OIL  NAT.GAS   WOOD   PROC.GA5
                10E1T   10E1T    lOEaGALS   10L4GALS 10E7FT3  10E2T  10E1T  10E1T  IOE1T   IOE4GALS   10E4GALS  10E7FT3   10E2T   10E7FT.1
7«
79
80
8!
82
83
84
85
86
87
88
89
90
91
92
93
94
95
9b
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
r;ASM
WASH
AASri
,-iASH
rtASH
• MASH
WASH
WASH
AASH
WASH
rtASM
WASH
HASH
WASH
MASH
WASH
HASH
WASH
WASH
WASH
WASH
NASH
WASH
WASH
WASH
WASH
WASH
WASH
wASn
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
HASH
WASH
WASH
WASH
WASH
WASH
0.0
0.0
0.0
0.0
0.0
0.0
0,0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0,0
0.0
0.0
0.0
0,0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
2.9
0.6
17.1
51.2
13.0
20.0
25.0
6.1
1.0
0.7
9.0
4.1
O.I
0.0
1.1
0.3
6.8
5.1
8.6
21.0
9.9
26.1
18.0
14.4
17.3
10.5
12.8
11.8
48.6
47.9
6.2
8.3
10,6
9.0
15.7
2.3
4.0
16.9
18.9
39.8
24.1
24.7
• 6.8
0.3
17.4
1.6
0.3
9.5
28.6
7.3
11.2
14.0
3.4
0.6
0.4
5,0
2.3
0.1
0.0
0.6
0.2
3.8
2.8
4.8
11.7
5.5
14.6
10.1
8.0
9.7
5.8
7.1
6.6
27.1
26.8
3.5
4.6
5.9
5.0
8.7
1.3
2.2
9.4
10.6
22.2
13.5
13.8
3.8
0.2
9.7
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0,0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0,0
0.0
0.0
0.0
0.0
0.0
0.0
0.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.8
2.5
0.6
1.0
1.2
0.3
0.0
0.0
0.4
0.2
0.0
0.0
0.1
0.0
0.3
0.2
0.4
1.0
0.5
1.3
0.9
0.7
0.8
0.5
0.6
0.6
2.3
2.3
0.3
0.4
0.5
0.4
O.B
0.1
0.2
0.8
0.9
1.9
1.2
1.2
0.3
0.0
0.8
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0,0
0.0
0.0 .
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0,0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
10.0
2.1
59.8
179,6
45.5
70.1
87.7
21.4
3.6
2.5
31.4
14.3
0.3
0.2
3.8
1.1
23.7
17.8
30.1
73.6
34.8
91.4
63.2
50,5
60.8
36,7
44,7
41.5
170.2
168.0
21.8
28.9
37.0
31.4
54,9
8.2
14.0
59.1
66.3
139.4
84.6
86.4
23.8
1.1
61.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.2
0.0
1.2
3.5
0.9
1.4
1.7
0.4
0.1
0.0
0.6
0.3
0.0
0.0
0.1
0.0
0.5
0,3
0.6
1.4
0,7
1.8
1,2
1.0
1.2
0,7
0.9
0.8
3,3
3.3
0.4
0,6
0.7
0.6
1.1
0.2
0.3
1.2
1.3
2.7
1.7
1.7
0,5
0,0
1.2
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0,0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.2
0.0
1.2
3.6
0,9
i.a
1.8
0.4
0.1
0.1
0.6
0.3
0.0
0.0
0.1
0.0
0.5
o.a
0.6
1.5
0.7
1.8
1.3
1.0
1.2
0.7
0.9
0.8
3.4
3.4
0.4
0.6
0.7
0.6
1.1
0.2
0.3
1.2
1.3
2.8
I. 7
1.7
0.5
0.0
1.2
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
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
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0,0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0»0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
                               FIGURE  26.   EXAMPLE OF CAASE5  OUTPUT TABLE 2, ALLOCATED FUELS

-------
    WASHINGTON COUNTY, (JHIU  (PAHKEKSHUKG-MARItTTA AQCR - NEDS 1973)  TEST 1/78)
                                                               APPORTIONED FUELS,  TABLE   3, PAGE   1
o
NJ
SOURCE
NUMBER
78
79
80
til
82
83
84
85
86
87
88
89
90
91
92
93
9«
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122

COUM
WASH
wASH
AASH
WASH
WASH
wASn
WASH
WASH
WASH
WASH
WASH
WASH
WASH
rtASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
wASH
WASH
WASH
WASH
WASH
WASH
WASH
wASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
nASH
                   * ON SITE INCINERATION *  ***** OPEN BURNING ****  ********** GASOLINE FUEL **********  ******** DIESEL FUEL! ******
                    RESID.  INDUST.  C-INST.  RE3ID.  1NDUST,  C-INST.  LT.VEH.   LT.TRUK  HV.VEH,  OFF HIrtY  HV.VEH.  OFF HIrtY  R.LOCC
                    10E1T    10E1T    10E1T   10E1T    10E1T   10E1T    10E3GAL   10E3GAL  10E3GAL  10E3GAL   10E3GAL  10E3GALI   10E3GA
 2.1
 0.4

3/!l
 9.6
15.0
17.5
 4.2
 0.7
 0.5
 6.2
 2.9
 0.1
 0.0
 0.7
 0.2
 4.7
 3.4
 5.9
13.6
 6.7
                        .5
                        .9
18
15
10.2
12.5
 8.3
 8.5
, 9.1
43.8
29.7
 5.1
 5.7
 9.3
 7.4
13.1
 1.7
 2.8
11.6
12.8
28.5
17.3
18.3
 5.6
 0.3
13.2
0.3
0.1
1.7
5.2
1.3
2.0
2.6
0.6
0.1
0.1
0.9
0.4
0.0
0.0
0.1
0.0
0.7
0.5
0.9
2.1
1.0
2.7
1.8
1.5
1.8
1.1
1.3
1.2
5.0
4.9
0.6
0.8
1.1
0.9
1.6
0.2
0.4
1.7
1.9
4.1
2.5
2.5
0.7
0.0
1.8
0.1
0.0
0.4
1.3
0.3
0.5
0.6
0.2
0.0
0.0
0.2
0.1
0.0
0.0
0.0
0.0
0.2
0.1
0.2
0.5
0.2
0.6
0.4
0.4
0.4
0.3
0.3
0.3
1.2
1.2
0.2
0.2
0.3
0.2
0.4
0.1
0.1
0.4
0.5
1.0
0.6
0.6
0.2
0.0
0.4
0.2
0.0
0.9
2.8
0.7
1.1
1.3
0.3
0.1
0.0
0.5
0.2
0.0
0.0
0.1
0.0
0.4
0.3
0.5
1.0
0.5
1.4
1.2
0.8
1.0
0.6
0.7
0.7
3.4
2.3
0.4
0.4
0.7
0.6
1.0
0.1
0.2
0.9
1.0
2.2
1.3
1.4
0.4
0.0
1.0
0.1
0.0
0.9
2.6
0.7
1.0
1.3
0.3
0.1
0.0
0.5
0.2
0.0
0,0
0.1
0.0
0.3
0.3
0.4
1.1
0.5
1.3
0.9
0.7
0.9
0.5
0.7
0.6
2.5
2.4
0.3
0.4
0.5
0.5
0.8
0.1
0.2
0.9
1.0
2.0
1.2
1.3
0.3
0.0
0.9
0.1
0.0
0.3
1.0
0.2
0,4
0.5
0.1
0.0
0.0
0.2
0.1
0.0
0,0
0.0
0.0
0.1
0.1
0.2
0.4
0.2
0.5
0.3
0.3
0.3
0.2
0.2
0.2
0.9
0.9
0.1
0.2
0.2
0.2
0.3
0.0
0.1
0.3
0.4
0.8
0.5
0.5
O.I
0.0
0.3
73.8
15.1
440.5
1323.5
335.5
516.6
646.6
158.0
26.5
18.7
231.5
105.7
2.5
1.3
28.3
8.4
174.5
131.5
221.7
542.4
256.4
673.6
466.0
372.0
448.0
270.3
329.5
305.8
1254.5
1237.8
160.7
213.3
272.7
231,7
404.7
60.6
102.9
435.3
488.4
1027.2
623.6
636.8
175.7
8.4
449.7
14.9
3.0
88.6
266.3
67.5
103.9
130.1
31.8
5.3
3.6
46.6
21.3
O.S
0.3
5,7
1,7
35.1
26.5
44.6
109.1
51.6
135.5
93.7
74.8
90.1
54.4
66.3
61.5
252.4
249.0
32.3
42.9
54.9
46.6
81.4
12.2
20.7
87.6
98.3
206.7
125.5
128.1
35.3
1.7
90.5
12.2
2.5
73.0
219.3
55.6
85.6
107.1
26.2
4.4
3.1
38.4
17.5
0.4
0.2
4.7
1.4
28.9
21.8
36.7
89.9
42.5
111.6
77.2
61.6
74.2
44,8
54.6
50.7
207.9
205.1
26.6
35.3
45.2
38.4
67.1
10.0
17.0
72.1
80,9
170,2
103.3
105.5
29.1
1.4
74.5
9.9
0.4
13.7
0.4
0.1
203.0
30.6
7.8
2.6
1.0
0.5
0.8
1.9
0.1
2.7
0.8
7.1
7.7
89.3
36.5
3.8
0.1
0.1
3.0
41.1
23.0
3.8
0.3
0.1
0.1
0.5
5.8
0.3
0.3
0.2
1.3
142.6
40.9
40.5
19.3
31.8
491.9
61.1
1.4
• 30.7
8.8
1.8
52.7
158.4
40.2
61.8
77.4
18.9
3.2
2.2
27.7
12.7
0.3
0.1
3.4
1.0
20.9
15.7
26.5
64.9
30.7
80.6
55.8
44.5
53.6
32.4
39.4
36.6
150.2
148.2
19.2
25.5
32.6
27.7
48.4
7.3
12.3
52.1
58.5
123.0
74.7
76.2
21.0
1.0
53.8
2.1
0.1
3.0
0.1
0.0
43.7
6.6
1.7
0.6
0.2
0.1
0.2
0.4
0.0
0.6
0.2
1.5
l.b
19.2
7.9
o.e
0.0
0.0
0.6
8.8
4.9
0.8
O.I
0.0
0.0
0.1
1.2
0.1
0.1
0.0
0.3
30,7
8.8
8.7
4.1
6.8
105.9
13.2
0.3
6,6
0.1
0.0
0.2
0.1
0.0
0-.3
0.2
0.1
0.1
0.0
0.1
0.1
0.0
0.0
0.1
0.0
0.1
0.1
0.2
0.2
0.1
0.0
0.1
0.1
0.2
0.2
0.1
O.I
0.
0.
0.
0.
0.
0.
0.
0.
0.2
0.2
0.2
0.2
0.2
0.4
0.2
0.0
0.2
                                FIGURE 27.   EXAMPLE OF CAASE5 OUTPUT TABLE 3, ALLOCATED  FUELS

-------
WASHINGTON COUNTY,  OHIO   CPARKE3SBURG-MARIETTA AQCR - NEDS 1973) TEST 1/78)
APPORTIONED FUELS,  TABLE  4,  PAGE   t
                ******  AIRCRAFT  ******  ********** VESSELS **********  *** EVAPORATION  ***   ******* MEASURED VEHICLE MILES ******
                MLIT.   CIVIL  COMM'L,  B1TUM. DE, OIL  RES.OIL  GAS   SOL.PUR.   GAS.MKTD.   LTD.ACC.  RUR.RDS.  SUB.RDS.  UR8.RDS,
                LC10E2   LCI DEI LC10E1   10E1T  10E4GAL 10E4GAL 10E3GAL  TONS/YH   10E5GALS     IOE4MI     IOE4MI    10E4MI    10E4MI
78
79
60
61
62
8i
6«
85
86
87
66
69
90
91
92
9i
9g
9S
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
116
119
120
121
122
WASH
WASH
WASH
tikSh
HASH
wASH
WASH
WASH .
wASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
.-.ASH
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
3.2
0.3
9.1
2.7
0.6
37.9
16.5
4.1 '
1.0
0.5
1.3
l.l
0.3
0.0
1.0
0.3
4.1
3.7
16.5
16.5
3.6
0.8
1.0
3.9
15.9
9.2
4.1
1.0
1.0
1.0
1.0
4.1
1.0
1.0
1.0
1.0
14.2
15.6
16.5
16.5
16.5
65.4
12.1
0.4 .
13.7
0.0
0.0
0.0
U.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.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0 .
• 0.0
0.0
0.0
0,0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0,0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
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
6.1
1.9
10.4
5.7
2.8
21.2
14.0
7.0
3,4
2.5
3.9
3.6
1.7
0.7
3.5
1.9
7.0
6.6
14.0
14.0
6.6
3.0
3.4
6.8
13.7
10.5
7.0
3.5
3.5
3.4
3.5
7.0
3.5
3.5
3.5
3.5
13.0
13.6
14.0
14.0
14.0
27.9
12.0
2.2
12.8
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.8
0.3
1.4
0.8
0.4
2,9
1.9
0.9
0.5
0.3
0.5
0.5
0.2
0.1
0.5
0.3
0.9
0.9
1.9
1.9
0.9
0.4
0.5
0.9
1.9
1.4
0.9
0.5
0.5
0.5
0.5
0.9
0.5
0.5
0.5
0.5
1.8
1.6
1.9
1.9
1.9
3.8
1.6
0.3
1.7
1.3
0.3
7,7
23.1
5.9
9.0
11.3
2.8
0.5
0.3
4.0
1.8
0.0
0.0
0.5
0.1
3.0
2.3
3.9
9.5
4.5
11.7
8.1
6.5
7.8
4.7
5.7
5.3
21.9
21.6
2.8
3.7
4.8
4.0
7.1
1.1
1.8
7.6
8.5
17.9
10.9
11.1
3.1
0.1
7.8
1.1
0.2
6.7
20.2
5.1
7.9
9.9
2.4
0.4
0.3
3.5
1.6
0.0
0.0
0.4
0.1
2.7
2.0
3.4
8.3
3.9
10.3
7.1
5.7
6.8
4,1
5.0
4.7
19.1
18,9
2.4
3.3
4.2
3.5
6.2
0.9
1.6
6.6
7.4
15.7
9.5
9,7
2,7
O.I
6,9
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0,0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0,0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0,0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
.0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0,0
0.-0-
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0,0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
                          FIGURE 28.   EXAMPLE OF CAASE5 OUTPUT TABLE A,  ALLOCATED  FUELS

-------
wASHl\GTUN CUUNTY, OHIO   CPAHKERS3URG-MARIETTA AQCR  -  NEDS  1972} TEST 1/78)
                        APPORTIONED FUELS, TABLE  5, PAGE  1
SUUKCfc
                 DIRT
       UIRT RDS   AIR
       fRAvELEU  STRIPS
CUUNTY  10E3HI LTO  CYC
                                   AGRICULTURAL
FOREST rtILD FIRES   MANAGED  BURNING  FIELD BURNING
ACR BURN   QUAMT.  ACS  BURN   QUANT ACR BURN QUANT
           T/ACR            T/ACR          T/ACR
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
103
109
110
111
112
113
lift
115
116
117
118
119
120
121
122
wASH
//ASH
rt ASH
^ASH
.-(ASH
WASH
iVASH
*ASH
/(ASH
MASH
/(ASH
WASH
WASH
WASH
/•ASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
wASH
WASH
WASH
wASH
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0,0
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
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
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
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0 .
0.0
0.0
0.0
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
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
0.0
0.0
0.0
0.0
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
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
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0,0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
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
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
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
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0,0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
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
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
0.0
0.0
0.0
0.0
0,0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0,
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
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
• o.o
0.0
o.o
0.0
0.0
0,0
0.0
0.0
o.o
o.o
0.0
0.0
0.0
0.0
0.0
o.o
0.0
0.0
0.0
o.o
0.0
0.0
0.0
o.o
0.0
0.0
0.0
0.0
0.0
0.0
0.0
o.o
0.0
0.0
0.0
o.o
. 0.0
1.0
0.2
5.7
17.1
4 .,3-
6.7
8. ft
2.0
0.3
0,2
3.0
1.4
0.0
0.0
O.ft
0.1
2.3
1.7
2.9
7.0
3.3
8.7
6.0
ft. a
5.8
3.5
4.3
ft.O
16.2
16.0
2.1
2.8
3.5
3.0
5.2
0.8
1.3
5.6
6.3
13.3
8.1
8.2
2.3
0.1
5.8
                            FIGURE 29.   EXAMPLE OF CAASE5 OUTPUT TABLE  5,  ALLOCATED FUELS

-------
CUUNTY, OHIO  (PARKERSBUHG-MAR1ETTA AQCR - NEDS 1972) TEST 1/78}
                                                                      APPORTIONED  EMISSIONS*  TABLE   1, PAGE   1
                                                                                (PARTICIPATE)
                                                                                (TONS  PER  YEAR)
SOUHCE
REGION
               POLIT
               JURIS
                       COUNTY
 COORDINATES
X(KM)    Y(KM)
          ***************** RESIDENTIAL FUEL *****************
(SO,KM)    ANTH.   8ITUM.   DIST.OIL   RES.OIL   NAT.GAS   XOOD
78
79
80
81
8d
83
84
8b
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
1/V
179
179
179
179
179
179
179-
179
179
179
179
179
179.
179
179
179
179
179
179
179
179
179
179
179
179
179
179
179
179
179
179
179
179
179
179
179
179
179
179
179
179
179
179
179
WASH
WASH
NASH
MASH
MASH
MASH
WASH
WASH
WASH
MASH
MASH
WASH
WASH
WASH
WASH
WASH
WASH
NASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
MASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
rtASH
WASH
MASH
WASH
WASH
WASH
rtASH
WASH
WASH
421.0
137.0
437.0
445.0
149.0
421.0
437.0
445.0
449.0
453.0
461.0
469.0
485.0
451.0
449.0
451.0
445.0
449.0
437.0
445.0
453.0
457.0
461.0
465.0
469.0
477.0
453,0
457.0
459.0
461.0
463,0
465.0
457.0
459.0
461.0
463.0
421.0
437.0
445.0
453.0
461.0
469.0
485.0
493.0
437.0
4335.0
4335.0
4343.0
4347.0
4347.0
4351.0
4351.0
4351,0
4351.0
4351.0
4351.0
4351.0
4351.0
4352.0
4353.0
4353.0
4355.0
4355.0
4359.0
4359.0
4359.0
4359.0
4359.0
4359.0
4359.0
4359.0
4363.0
4363.0
4363.0
4363.0
4363.0
4363.0
4365.0
4365.0
4365.0
4365.0
4367.0
4367.0
4367.0
4367.0
4367.0
4367.0
4367.0
4367,0
4375.0
12.30
1.16
35.39
10.65
2.49
147,29
64,00
16.00
3.74
1.96
4.95
4.30
1.00
0.18
4.00
1.19
16,00
14.44
64.00
64.00
14.18
3.04
3.75
15.15
61.71
35.86
16.00
4.00
3.95
3.88
4.00
16.00
4.00
4.00
4.00
4.00
55.10
60.69
64.00
64.00
64.00
254.55
47.13
1.53
53.42
0.0
0.0
0.0
0.1
0.0
0.1
0.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,1
0.1
0.0
0.0
0.0
0.0
0.0
0.2
o.t
0.0
0.0
0.0
0,0
0,0
0.0
0.0
0.0
0.0
0.1
o.t
0.1
0.0
0.0
0.0
0.1
0.0
0.8
2.4
0.6
1.0
1.2
0.3
0.0
0.0
0.4
0.2
0.0
0.0
0.0
0.0
0.3
0.2
0.4
0.9
0.4
1.2
1.0
0.7
0,8
0.5
0.6
0.6
2.9
2.0
0.3
0.4
O.b
0.5
0,9
0,1
0.2
0.6
0.8
1.9
1.1
1.2
0.4
0.0
0.9
                                                                           0.0
                                                                           0.0
                                                                           0.2
                                                                           0.5
                                                                           0.1
                                                                           0.2
                                                                           0.2
                                                                           0.1
                                                                           0.0
                                                                           0.0
                                                                           0.1
                                                                           0.0
                                                                           0.0
                                                                           0.0
                                                                           0.0
                                                                           0.0
                                                                           0.1
                                                                           0.0
                                                                           0.1
                                                                           0.2
                                                                           0.1
                                                                           0.2
                                                                           0.2
                                                                           0.1
                                                                           0,2
                                                                           0.1
                                                                           O.t
                                                                           O.I
                                                                           0.6
                                                                           0.4
                                                                           O.t
                                                                           0.1
                                                                           0.1
                                                                           0.1
                                                                           0.2
                                                                           0.0
                                                                           0.0
                                                                           0.1
                                                                           0.2
                                                                           0.4
                                                                           0.2
                                                                           0.2
                                                                           0.1
                                                                           0,0
                                                                           0.2
                                                                                      0.0
                                                                                      0.0
                                                                                      0.0
                                                                                      0.0
                                                                                      0.0
                                                                                      0.0
                                                                                      0.0
                                                                                      0.0
                                                                                      0.0
                                                                                      0.0
                                                                                      0.0
                                                                                      0.0
                                                                                      0.0
                                                                                      0.0
                                                                                      0.0
                                                                                      0.0
                                                                                      0.0
                                                                                      0.0
                                                                                      0.0
                                                                                      0.0
                                                                                      0.0
                                                                                      0.0
                                                                                      0.0
                                                                                      0.0
                                                                                      0.0
                                                                                      0.0
                                                                                      0.0
                                                                                      0.0
                                                                                      0.0
                                                                                      0.0
                                                                                      0.0
                                                                                      0.0
                                                                                      0.0
                                                                                      0.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.3
1.0
0.3
0.4
0,5
0.1
0.0
0.0
0.2
0.1
0.0
0.0
0.0
0.0
0.1
0.1
0.2
0.4
0.2
0.5
0.4
0.3
0.3
0.2
0.2
0.2
1.2
0.8
0.1
0.2
0.2
0.2
0.4
0.0
0.1
0.3
0.3
0.6
0.5
0.5
0.1
0.0
O.U
0.0
0.0
0.1
0.4
0.1
O.t
0.2
0.0
0.0
0.0
0.1
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.1
o.t
0.1
0.2
0.2
0.1
0.1
0.1
o.t
0.1
0.4
0.3
0.1
O.t
0.1
0.1
O.I
0.0
0.0
0.1
0.1
0.3
0.2
0.2
0.1
0.0
O.t
            FIGURE 30.   EXAMPLE OF  CAASE5 OUTPUT TABLE 1,  ALLOCATED EMISSIONS, PARTICULATES

-------
WASHINGTON  UJUNFY, JHlu  (PARKESSBURG-MARIETTA  AQCR  • NEOS  1972) TEST 1/78)
APPORTIONED EMISSIONS,  TABLE   2,  PAGE   1
                                                                                          (PARTICULATE)
                                                                                          (TONS PER YEAR)
SUURCt
NUMBtf?
78
79
80
81
82
03
eu
S5
86
87
88
89
90
91
92
93
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122

CUUnl
,VASH
WASH
WASH
wASH
wASrl
'.ASH
AASH
WASH
rtASh
WASH
WASH
WASH
WASH
WASH
MASH
WASH
WASH
rtASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
rtASH
WASH
IVASH
WASH
WASH
rtASH
WASH
WASH
WASH
•WASH
                ****** COMMERCIAL AND INSTITUTIONAL FUEL  *******  *********************** INDUSTRIAL FUEL ************************
                ANfH.  BITUM.  DIST.OIL  RES.OIL  NAT.GAS WOOD   ANTH.  BITU*.  COKE   DIST.OIU  RES,OIL  NAT.GAS   WOOD  PROC.GAS
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0,0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0,0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
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.5
0.3
9.1
27.3
6.9
10.7
13. «
3.3
0.5
0.4
4.8
2.2
0.1
o.o
0.6
0.2
3.6
2.7
4.6
It. 2
5.3
13.9
9.6
7.7
9.3
5.6
6.8
6.3
25.9
25.6
3.3
4.1
5.6
4.8
8.4
1.3
2.1
9.0
10.1
21.2
12.9
13.2
3.6
0.2
9.3
O.I
0.0
0.7
2.1
0.5
0.8
1.0
0.3
0.0
0.0
0.4
0.2
0,0
0.0
0.0
0.0
0.3
0.2
0.4
0.9
0.4
1.1
0.0
0.6
0.7
0,4
0.5
0.5
2,0
2.0
0.3
0.3
0.4
0.4
0.7
0.1
0.2
0.7
0.6
1.7
1.0
t.o
0.3
0.0
0.7
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0,0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0,0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.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.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
O.I
0.0
0.1
0.0
0.0
0.0
0.0
0.0
0.0
O.I
0.1
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.1
O.I
0.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.0
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
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
12.0
2.5
71.5
214.8
54.4
83.8
104.9
25.6
4.3
3.0
37.6
17.2
0.4
0.2
4.6
1.4
28.3
21.3
36.0
88.0
41.6
109,3
75.6
60.4
72.7
43.9
53.5
49.6
203.6
200.9
26.1
34.6
44.3
37.6
65.7
9.8
16.7
70.6
79.3
166.7
101.2
103.4
28.5
1.4
73.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
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
0.0
o.o
0.0
0.0
0.0
0.0
0.0
0.1
- 0.3
0.1
0.1
0.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.1
0.1
0.1
0.1
0.1
0,1
0.1
0.1
0.1
0.2
0.2
0.0
0.0
0.1
0.0
0.1
0.0
0.0
0.1
0.1
o.a
0,1
0.1
0.0
0.0
0.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,0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.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.2
0.0
0.1
0.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.1
0.0
0.1
0.1
0.1
0.1
0.0
0.0
0.0
0.2
0.2
0.0
0.0
0.0
0.0
0.1
0.0
0.0
0.1
0.1
o.t
0.1
O.I
0.0
0.0
O.I
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
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
o.o
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
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
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
0.0
0.0
                     FIGURE 31.  EXAMPLE OF CAASE5 OUTPUT TABLE 2,  ALLOCATED  EMISSIONS, PARTICULATES

-------
WASHINGTON) COUNTY,  OHIO   CPARKERSBURG-MARIfcTTA AQCR - NE03 1972)  TEST  1/78)      APPORTIONED EMISSIONS* TABLE  3f PAGE  1

                                                                                          (PARTICIPATE)
                                                                                          (TONS PER YEAR)



SOURCE          *  ON  SITE INCINERATION *  ***** OPEN BURNING ****  **********  GASOLINE FUEL **********  ******** DIESEL FUEL *****
NUMBER  COUNTY  HESID.   INDUST.   C-INST.  RESIO.  INOUST.  C-INST.  LT.VEH.  LT.TRUK  HV.VEH.  OFF HIWY  HV.VEH.  OFF HIWY  R.LOCC
78
79
80
61
62
83
84
85
66
87
88
89
90
91
92
93
M 9i|
3 95
9b
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
lib
117
118
119
120
121
122
rtASH
NASH
«ASH
A'ASH
r.ASH
AASH
nASri
WASH
ftASn
rtASH
WASH
WASH
WASH
WASH
WASH
WASH
HASH
WASH
MASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
WASH
rtASH
WASH
WASH
WASH
0.3
O.I
1.9
5.9
1.5
2.4
2.8
0.7
0.1
O.t
1.0
0.5
0.0
0.0
0.1
0.0
0.8
0.5
0.9
2.2
1.1
3.0
2.5
l.b
2.0
1.3
1.4
1.5
7.0
«.8
0.8
0.9
1.5
1.2
2.1
0.3
0.5
1.9
2.0
4.6
2.8
2.9
0.9
0.1
2.1
0.1
0.0
0.7
2.1
0.5
0.8
1.0
0.2
0.0
0.0
0.4
0.2
0.0
0.0
0.0
0.0
0.3
0.2
0.4
0.9
0.4
1.1
0.7
0.6
0.7
0.4
0.5
0.5
2.0
2.0
0.3
0.3
0.4
0.4
0.6
0.1
0.2
0.7
0.8
1.6
1.0
1.0
0.3 :
• o.o
0.7
0.0
0.0
0.2
0.5
0.1
0.2
0.2
0.1
0.0
0.0
0.1
0,0
0.0
0.0
0.0
0.0
0.1
0.1
0.1
0.2
0.1
0.3
0.2
0,1
0.2
0.1
0.1
0.1
0.5
O.S
O.I
0.1
0.1
O.I
0.2
0.0
0.0
0.2
0.2
0,4
0.2
0.2
0.1
. 0,0
0.2
0.1
0.0
0.7
2.3
0.6
0.9
1.1
0.3
0.0
0.0
0.4
0.2
0.0
0.0
0.0
0.0
0.3
0.2
0.4
0.8
0,4
1.1
1.0
0.6
0.8
O.b
0.5
0.6
2.7
1.8
0.3
0.3
0.6
0.5
0.8
0.1
0.2
0.7
0.8
1.7
1.1
1.1
0.3
0.0
O.B
0.1
0.0
0.7
2.1
0.5
0.8
1.0
0,2
0,0
0.0
0.4
0,2
0.0
0.0
0,0
0.0
0.3
0.2
0.4
0.9
0,4
1.1
0.7
0.6
0.7
0.4
0.5
0.5
2.0
2.0
0.3
0.3
0.4
0.4
0.6
0.1
0.2
0.7
O.B
1.6
1.0
1.0
0.3
0.0
0.7
0.0
0,0
0.3
0.8
0.2
0,3
0,4
O.I
0.0
0.0 .
O.I
0.1
0.0
0.0
0.0
0.0
0,1
0.1
0.1
0,3
0.2
0.4
0.3
0.2
0.3
0.2
0.2
0.2
0.7
0,7
0.1
0.1
0.2
0.1
0.2
0.0
0,1
0.3
0,3
0,6
0.4
0.4
0.1
0,0
0.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
0,0
0,0
0,0
0,0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0,0
. 0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0,0
0.0
0.0
0,0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0,0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0,0
0.0
0,0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0,0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0,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.1
0.0
0.0
1.1
0.2
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
O.S
0.2
0.0
0.0
0.0
0.0
0.2
0.1
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.8
0.2
0.2
0.1
0.2
2.6
0.3
0.0
o.z
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.4
0.0
0.5
0.0
0.0
7.3
1.1
0.3
0.1
0.0
0.0
0.0
0.1
0.0
0.1
0,0
0.3
0.3
3.2
1.3
0.1
0.0
0.0
0.1
1.5
0.8
0.1
0.0
0.0
0.0
0.0
0.2
0.0
0.0
0,0
0.0
5,1
1.5
1.5
0.7
1.1
17.6
2.2
0.0
l.t
0.0
0.0
0.0
0.0-
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.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
                      FIGURE 32.  EXAMPLE OF CAASE5  OUTPUT TABLE 3, ALLOCATED EMISSIONS,  PARTICULATES

-------
              CUUfJTY, UHlO  (PARKEHS8UKG-MARItTTA AQCR • NEDS 1972) TEST 1/78)
                                              APPORTIONED EMISSIONS/  TABLE   a, PAGE   1


                                                         (PARTICIPATE)
                                                         (TONS  PER  YEAR)
                   ****** AIRCRAFT  ******   ********** VESSELS **********  *** EVAPORATION  ***   ******* MEASURED VEHICLE MILES ******'
                   MILIT.  CIVIL  COWL.   BITUM. DE. OIL  RES.OIL  GAS   SOL.PUH.   GAS.MKTD.   LTO.ACC.  RUR.RDS.  SUB.RDS.  URB.RDS.
00
/e
79
80
81
82
83
8u
65
80
87
68
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
rtASH
WASH
rtASH
rtASH
nASrl
rtASH
.vASrl
WASH
rtASH
WASH
rtASH
WASH
rtASH
rtASH
rtASH
WASH
rtASH
rtASH
WASH
rtASH
WASH
WASH
rtASH
WASH
WASH
WASH
rtASH
WASH
wASn
WASH
WASH
WASH
rtASH
WASH
rtASH
•rtASH
WASH
WASH
WASH
WASH
rtASH
«ASH
rtASH
WASH
WASH
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0,0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.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
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
o.o
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.2
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
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
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0,0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.7
0.2
1.2
0.7
0.3
2.5
1.7
O.B
0.4
0.3
0.5
0.4
0.2
0.1
0.4
0.2
0.8
0.8
1.7
1.7
O.B
0.4
0.4
0.8
1.6
1.3
0.8
0,4
0.4
0.4
0.4
0.8
0.4
0.4
0.4
0.4
1.6
1.6
1.7
1.7
1.7
3.3
1.4
0.3
1.5
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
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
0.0
0.0
0.0
0.0
0.0
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
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
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0,0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0,0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0,0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
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
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.8
0.0
1.1
0.0
0.0
15.5
2.3
0,6
0.2
0.1
0.0
0.1
0.1
0.0
0.2
0.1
0.5
0.6
6.8
2. a
0.3
0.0
0.0
0.2
3.1
1.6
0.3
0.0
0.0
0.0
0.0
0.4
0.0
0.0
0.0
0.1
10,9
3.1
3.1
1.5
2.4
37.6
4.7
0.1
2.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
0.0
0.0
0.0
0.0
0.0
0,0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0,0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0,0
0.0
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
1 0.0
o.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
                        FIGURE 33.
EXAMPLE  OF CAASE5 OUTPUT TABLE 4,  ALLOCATED  EMISSIONS, PARTICULATES

-------
WASHINGTON COUNTY,  UHIU   (PARKERSBURG-MARIETTA AQCR - NEDS 1972)  TEST  1/70)
                                                 APPORTIONED EMISSIONS* TABLE  5f PAGE  1

                                                            (PARTICIPATE)
                                                            (TONS PER YEAR)
                        DIRT
SOURCE        DIRT  ROS   AIR
NUMBtR CUUNTr  TRAVELED  STRIPS
         MISC.                                               AGRICULTURAL   FROST CONTROL
CONSTR.   fllND      LAND    FOREST rtILD FIRES  MANAGED BURNING  FIELD BURNING  ORCH.    DAYS   STRUC,
 ACHES  EROSION   TILLING  ACR BURN   QUANT. AC* BURN   QUANT ACR BURN QUANT  BURN.    FIRED  FIRES
78
79
80
81
82
83
84
85
8b
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
1 16
117
ne
119
120
121
122
.HASH
WASH
l\ ASH
rtASn
rt A 3 H
w A S H
•lASH
.lASH
WASH
rtASH
WASH
WASH
S-.'ASH
rtASH
WASH
WASH
'/(ASH
WASH
WASH
rtASH
WASH
WASH
WASH
WASH
WASH
rtASH
WASH
WASH
WASH
rtASH
wASH
rtASH
WASH
rtASH
WASH
rtASH
wASH
nASfi
wASH
wASH
wASH
rtASH
r.'ASH
HASH
HASH
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
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
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0 .
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0,0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0,0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0,0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0,0
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
o.o
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
o.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
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0,0
0.0
0.0
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
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0,0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
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
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
0,0
0.0
0.0
0.0
0.0
0.0
0,0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0,0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
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
0.0
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
o.o
0.0
0,0
o.o
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
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
O.I
0.0
0.3
0.9
0.2
0.4
0.5
0.1
0.0
0.0
0.2
0.1
o.o
0.0
0.0
o.o
O.I
0.1
0.2
0.4
0.2
0.5
0.3
0.3
0.3
0.2
0.2
0.2
0.9
0.7
0.1
O.I
0.2
0.2
0.3
0.0
0.1
0.3
0.3
0.7
0,4
0.4
0.1
0.0
0.3
                      FIGURE 34.   EXAMPLE OF CAASE5 OUTPUT TABLE 5, ALLOCATED EMISSIONS, PARTICULATES

-------
WASHINGTON COUNTY,  OHIO  CPAKKERSBURG-MARIETTA  A3CR - NEDS 1972) TEST 1/78)
TOTALS 8T SOUKCE  CATEGUKY FOR POLLUTANT  SP   (TONS/.YR)
1.800 ii.500 6.UOO 0.0
l.bbO 0.0 0.0 2875.183
ai.440 28.000 6.800 31.200
0.0 62.604 0.875 0.0
0.0 0.0 0.0 133.494
0.0 0.0 0.0 0.0
FOR POLLUTANT SP TOTAL E^ISSIONSs
TOTALS UY SOUKCE CATEGORY FOR POLLUTANT
0.0 280.060 9.216 0.0
0.099 0.0 0.0 2009.743
1.272 8.7bO 2.125 1.950
0.0 56.024 1.995 0.0
0.0 0.0 0.0 51.097
0.0 0.0 0.0 0.0
FOR POLLUTANT S02 TOTAL EMISSIONSs
TOTALS BY SOURCE CATEGORY FOR POLLUTANT
0.540 5.025 7.680 0.0
19. BOO (J.O 0.0 180.300
2.545 10.500 2.550 11.700
0.0 693.720 12.950 0.0
0,0 0.0 0.0 1317.095
0.0 0.0 0.0 0.0
FOR POLLUTANT NOX TOTAL EMISSIONS*
TOTALS BY SOURCE CATEGORY FOR POLLUTANT
0.450 53.500 1.920 0.0
1.320 0,0 0.0 12.020
229.050 U.500 4.250 58.500
0.0 75.952 3.390 0.0
309.000 297.000 0.0 1457.260
0.0 0.0 0.0 0.0
FOR POLLUTANT MC TOTAL EMISSIONS*
TOTALS BY SOURCE CATEGORY FOR POLLUTANT
16.200 150.750 3.200 0.0
3.300 0.0 0.0 24.040
687.150 40.250 9.775 165.750
0.0 19S.520 4.550 0.0
0.0 0.0 0.0 7935.555
0.0 0.0 0.0 0.0
13.700 5.000
0.0 3.525
28.000 10.400
1.229 0.0
0.0 0.0
0.0 12.366
3796.844
S02 (TONS/YR)
0.822 0.300
0.0 3.572
1.750 0.650
0.244 0.0
0.0 0.0
0.0 0.023
3102.436
NOX (TONS/.YR)
109.600 2.000
0.0 14.100
10.500 3.900
1.110 0.0
0.0 0.0
0.0 1.076
3199.894
HC (TONS/YR)
10.960 4.000
0.0 0.705
52.500 19.500
5.443 0.0
0.0 0.0
0.0 3.206
3069.306
CO (TONS/.YR)
27.400 4.000
0.0 0.940
148.750 55.250
31. IOC 0.0
0.0 10759.125
0.0 27.938
                                                              0.0
                                                              0.0
                                                              0.0
                                                              0.0
                                                              0.0
                                                              0.0
                                                              0.0
                                                              0.0
                                                              0.0
                                                              0.0
                                                              0.0
                                                              0.0
                                                              0.0
                                                              0.0
                                                              0.0
                                                              0.0
                                                              0.0
                                                              0.0
                                                              0.0
                                                              0.0
                                                              0.0
                                                              0.0
                                                              0.0
                                                              0.0
                                                              0.0
                              366.049
                                2.400
                                0.0
                               53.160
                                0.0
                              573.495
                                0.144
                                0.0
                               66.450
                                0.0
                               31.556
                               43.200
                                0.0
                              496.160
                                0.0
                                6.860
                                0.720
                                0.0
                              130.242
                                0.0
                               24.696
                                4.080
                                0.0
                              173.656
                                0.0
 28.725
  0.0
  0.0
  0.0
  0.0
 27.576
  0.0
  0.0
  0.0
  0.0
114.900
  0.0
  0.0
  0.0
  0.0
  5.745
  0.0
  0,0
  0.0
  0.0
  7.660
  0.0
  0.0
  0.0
  0.0
   0.0
   0.0
   9.346
   0.0
   0.0
   0.0
   0.0
   4.892
   0.189
   0.0
   0.0
   0.0
 106.567
   0.822
   0.0
   0.0
   0,0
 300.484
  27.930
   0.0
   0.0
   0.0
3406.650
  88.800
   0.0
FOR POLLUTANT  CO  TOTAL £MIS3IONS=
23996.070
FOOTNOTE:   CATEGORIES BY  ROW IN SAME ORDER AS AREA SOURCE NEDS INPUT FORM AND CAASE5 OUTPUT  TABLES
   FIGURE  35.   EXAMPLE PRINTOUT OF COUNTY  TOTAL EMISSIONS FOR ALL  SOURCE CATEGORY
                           AND POLLUTANT  COMBINATIONS,  CAASE5

-------
COUNTY,  UHIO   (PAHKE3S3URG-MAHIETTA AQCR • NtDS  1972) TEST 1/78)
IPP INPUT CARD IMAGES
1799999
1799999
1799099
1 799994
1 799999
1799999
1799999
1799999
1799999
1799999
1799999
1799999
1799999
1799999
1799999
1799999
1799999
1799999
1799999
1799999
1799999
1799999
1799999
1799999
1799999
1799999
1799999
1799999
1799999
1799999
1799999
1799999
1799999
1799999
1799999
1799999
1799999
1799999
1799999
1799999
1799999
1799999
1799999
1799999
1799999
1799999
1799999
1799999
1799999
780421043350
7904370-1*350
MOU43/043J30
H104-J5UU3470
«20«4904 S470
123
12
354
106
25
830U21U435101473
840437043510
H50445043S10
8o044904S510
870453043510
Bb04ol043510
890469043510
900^85043510
910451043520
920449043530
930451043530
940445043550
950449043550
9604370'! 5590
970445043590
980453043590
990457043590
IOU0461043590
1010465043590
1020469043590
1030477043590
1040453043630
1050457043630
1060459043630
1070461043630
1000463043630
1090465043630
1100457043650
1110459043650
1120461043650
11304630U3650
1140421043670
1 150437043670
1160445043670
1170453043670
1 180461043670
640
160
37
20
49
43
10
2
4n
12
160
144
640
640
142
30
38
151
617
359
160
40
39
39
40
160
UO
40
40
40
551
607
640
640
640
11904690436702545
12004850u3670
1210493043670
1220437043/50
1230445043750
1540453043750
1350461043750
126044)5043750
471
15
534
640
640
640
600
33
33
33
33
33
33
33
33
33
33
33
33
33
33
33
33
33
33
33
33
33
33
33
33
33
33
33
33
33
33
33
33
33
33
33
33
33
33
33
33
33
33
33
33
33
33
33
33
33
0,038
0.008
0.205
0.599
0.153
0.278
0.302
0.075
0.014
0.010
0.106
0.049
0.002
0.001
0.015
0.005
0.083
0.063
0.121
0.254
0.118
0.304
0.216
0.171
0.215
0.131
0.151
0.140
0.581
0.551
0,075
0.100
0.127
0.107
0.187
0.029
0.077
0.2U8
0.232
0.'I72
0.292
0.386
0.096
0.005
0.214
0.238
0.188
0.139
0.173
0.046
0.009
0.246
0.725
0.184
0.355
0.367
0.091
0.016
0.011
0.126
0.059
0.003
0.001
0.017
0.005
0.100
0.076
0.154
0.311
0.143
0.369
0.258
0.206
0.263
0.159
0.183
0.169
0.694
0.673
0.090
0.120
0.152
0.129
0.224
0.035
0.107
0.255
0.284
0.572
0.355
0.517
0.120
0.006
0.260
0.289
0.230
0.173
0.212
0.059
0.009
0.117
0.136
0.039
0.767
0.202
0.062
0.021
0.013
0.034
0.023
0.012
0.003
0.023
0.009
0.061
0.058
0.360
0.212
0.056
0.069
0.054
0.064
0.219
0.134
0.063
0.039
0.128
0.116
0.027
0.060
0.037
0.033
0.049
0.021
0.524
0.217
0.221
0.196
0.204
1.778
0,257
0.012
0.182
0.221
0.251
0.317
0.240
0.0«7
0.006
0.122
0.224
0.058
0.692
0.208
0.055
0.015
0.008
0.043
0.023
0.008
o.oot
0.016
0.006
0.056
0.050
0.307
0.206
0.059
0.113
0.085
0.076
0.206
0.122
0.071
0.055
0.225
0.198
0.032
0.058
0.052
0.044
0.07«
0.017
0.440
0.202
0.210
0.238
0.206
1.550
0.218
0.008
0.176
0.213
0.228
0.275
0.216
0.329
0,039
1.092
2.501
0.637
4.689
1.791
0.449
0.102
0.057
0.449
0.219
0.042
0.006
0.108
0.034
0.«67
0.396
2.057
1.696
0.558
1.268
0.899
0.763
1.610
0.946
0.694
0.586
2.410
2.301
0.320
0.516
0.532
0.452
0.779
0.143
2.796
1.579
1.671
2.301
1.770
10.156
1.462
0.044
1.426
1.666
1.668
1.884
1.588
39
39
39
39
39
39
39
39
39
39
39
39
39
39
39
39
39
39
39
39
39
39
39
39
39
39
39
39
39
39
39
39
39
39
39
39
39
39
39
39
39
39
39
39
39
39
39
39
39
7100
7100
7100
7100
7100
7100
7100
7100
7100
7100
7100
7100
7100
7100
7100
7100
7100
7100
7100
7100
7100
7100
7100
7100
7100
7100
7100
7100
7100
7100
7100
7100
7100
7100
7100
7100
7100
7100
7100
7100
7100
7100
7100
7100
7100
7100
7100
7100
7100






A
A
A
A
A












A
A
A
A
A
A
4
A
A
A
A
A
A
A
A
A
A








A
 FIGURE 36.   EXAMPLE PRINTOUT OF DISPERSION MODEL  INPUT CARD IMAGES,  CAASE5, IPP MODEL

-------
               TABLE 16.  OUTPUT TAPE RECORD LAYOUT FOR CAASE5*

              OUTPUT FROM OUTPT1 SUBROUTINE (ALLOCATED FUELS)

(HEADER RECORD)

Record Position                  Format              Variable Name

2
6
19
29
39
49
62
75
88
1
- 5
- 18
- 28
- 38
- 48
- 61
- 74
- 87
- 100
                                 IX
                                 A4
                                 E13.
                                 110
                                 no
                                 no
                                 E13.
                                 E13.
                                 E13.
                                 E13.5
                    CARRIAGE CONTROL (FILLER)
                    IREGN
                    STATE
                    KDUNTY
                    NAREAS
                    I PUT
                    TONSFW
                    TONSMB
                    TONSAF
                    DAYSF
  (FOR EACH GRID SQUARE (SUBSCRIPTED ON I) FOR THIS COUNTY, NAREAS IN NUMBER)
 1
11
24
37
50
 10
 23
 36
 49
777
                                 110
                                 E13.5
                                 E13.5
                                 E13.5
                                 24E13.5/
                                 32E13.5
                    ID (I)
                    AREA (I)
                    APFUEL  (J,I)+
            OUTPUT FROM OUTPT2 SUBROUTINE (ALLOCATED EMISSIONS.
                    REPEATED FOR EACH OF THE POLLUTANTS).
(HEADER RECORD)
Record Position

2 -
6 -
19 -
29 -
39 -
49 -
62 -
75 -
88 -
1
5
18
28
38
48
61
74
87
100
Format

IX
A4
E13.5
110
110
110
E13.5
E13.5
E13.5
E13.5
                                                  Variable Name

                                                  CARRIAGE CONTROL (FILLER)
                                                  IREGN
                                                  STATE
                                                  KOUNTY
                                                  NAREAS
                                                  I PUT
                                                  XK
                                                  DUM
                                                  DUM
                                                  DUM
  (FOR EACH GRID SQUARE FOR THIS COUNTY, NAREAS IN NUMBER)

  (SAME AS OUTPUT FROM OUTPTl SUBROUTINE, EXCEPT THAT POSITIONS 50-777 CONTAIN
  ALLOCATED EMISSIONS INSTEAD OF ALLOCATED FUELS.)
   Repeated for each county being processed.

  ~*~Source category subscripted on J.
                                        112

-------
            TABLE 16. OUTPUT TAPE RECORD LAYOUT FOR CAASE5 (CONT.)


COUNTY TOTALS OF EMISSIONS FOR THIS POLLUTANT BY SOURCE CATEGORY

Record Position               Format                Variable Name

   1 - 728                    24E13.5/              POLTOT (J,K)*
                              32E13.5

      OUTPUT FROM OUTPT3 SUBROUTINE (DISPERSION MODEL INPUT CARD IMAGES)

(FOR EACH GRID SQUARE FOR THIS COUNTY, NAREAS IN NUMBER)


Record Position               Format                Variable Name

   1-80                      +                          +
 Source category subscripted on J; pollutant subscripted on K.

"'"See Area Source Input Card format in user's manuals for the IPP, COM, and AQDM
 dispersion models.
                                         113

-------
            TABLE 17.   DEFINITIONS OF CAASE5 OUTPUT TAPE VARIABLES
Variable Name
   IREGN

   STATE

   KOUNTY

   NAREAS


   IPUT
   TONSFW

   TONSMB

   TONSAF


   DAYSF
   ID (I)
   AREA(I)


   APFUEL(J.I)
Source

HEADER RECORD, OUTPT1
SUBROUTINE
Definition
                  DETAIL RECORDS,  OUTPT1
                  SUBROUTINE
                         Code number of selected study area

                         State number (FIPS) for this county

                         County number (EPA) for this county

                         Number of grid squares for this
                         county

                         (Type of output) Code number for
                         source of following records where:
                           IPUT=1 OUTPT1
                               =2 OUTPT2
                               =3 OUTPT3

                         Tons/acre burned, forest wildfires

                         Tons/acre burned, managed burning

                         Tons/acre burned, agriculture field
                         burning

                         Frost control, orchard heaters,
                         days/fired, days/year
                         Grid square sequence number

                         UTM Easting coordinate of the lower
                         left hand corner of this grid square

                         UTM Northing coordinate of the lower
                         left hand corner of this grid square

                         Area of this grid square contained in
                         this county

                         Allocated fuels to this grid
                         square-source category combination
                         where J is source category number
                         (fuels are in the same units as on
                         the Area Source Input cards, see
                         Figure 14)
                                    114

-------
        TABLE 17.  DEFINITIONS OF CAASE5 OUTPUT TAPE VARIABLES (CONT.)
Variable Name
   IREGN

   STATE

   KOUNTY

   NAREAS

   I PUT

   XK
   DUM
   ID (I)
   AREA(I)

   APFUEL(J.I)
Source

HEADER RECORD*,
OUTPT2 SUBROUTINE
Definition
                  DETAIL RECORDS,
                  OUTPT2 SUBROUTINE
                       As before

                       As before

                       As before

                       As before

                       As before

                       Code number for which of the five
                       pollutants follow, where:
                         XK=1.0 (TSP)
                           =2.0 (S02)
                           »3.0 (NOX)
                           =4.0 (HC)
                           =5.0 (CO)

                       Filler to make header records
                       compatible
                       As before

                       As before

                       As before

                       As before

                       As before, except array contains
                       allocated emissions, pollutant
                       determined by value of XK (see above)
*The header record, detail records, and county total records as a set are
 repeated in sequence for the 5 pollutants.
                                     115

-------
        TABLE 17.   DEFINITIONS OF CAASE5 OUTPUT TAPE VARIABLES (CONT.)
Variable Name     Source                 Definition

                  ADDITIONAL RECORDS,
                  OUTPT2 SUBROUTINE
                  (FOLLOWING EACH OF
                  THE 5 POLLUTANTS)

POLTOT (J,K)                             County totals of emissions for this
                                         pollutant (K) for each source category
                                         (J)

                  RECORDS OUTPUT FROM
                  OUTPT3 SUBROUTINE

(CARD IMAGES)                            See dispersion model area source card
                                         formats in IPP, AQDM,  or COM User's
                                         Manuals
                                    116

-------
emissions.  The header records define which subroutine has been called,




identify the detailed records that follow, and define the number of them.




OUTPT3 writes dispersion model card images.




6.4  Executive Control Language (ECL) and Deck Setup




     An example of a deck setup configuration is illustrated in Figure 23.




Using the Parkersburg-Marietta AQCR (#179) as an example study area, and




Washington County, Ohio as an example county, the associated ECL and input data




cards are illustrated in Figure 37.  They describe the following:




     A.  The CAASE5 program is in absolute form in cataloged file "A" on mass




         storage.




     B.  The allocated fuels, emissions, and dispersion model card images will




         be written on tape as Fortran unit number 9.  It will be labeled




         "AQCR179-EMISS".  The volume and serial name is "KKKKKK".




     C.  The apportioning factor file (output from CAASE4) is on tape as




         Fortran unit number 8.  It is labeled "AQCR179-FACT".  The volume and




         serial name is "JJJJJJ".




     D.  Dispersion model input cards will be punched on the installation




         dependent standard card punch device.




     E.  The emission factor cards, dispersion model selection card, county




         selector card, heading card, and NEDS Area Source fuels (throughput)




         cards are on the installation dependent standard card input device.




         IPP card images are requested.  Washington County, Ohio is to be




         processed; it contains 58 grid squares.  NEDS Area Source cards Al




         through A5 for the Washington County, Ohio emissions inventory are to




         be used.




6.5  Warnings and Limitations




     The CAASE5 main program is used to set dimensions and to pass them to the




CAASE5 subroutine (which does most of the work) as "variable dimensions." The






                                      117

-------
@RUN 21RC5P,acct-code/user-id,project,time,pages/cards
@PASSWD password
@ASG,A A.
@ASG,T/W AQCR179-EMIS.,T,KKKKKK,0
@USE 9.,AQCR179-EMIS.
@ASG,T AQCR179-FACT. ,T,JJJJJJ
@USE 8..AQCR179-FACT.
(3XQT A.CAASE5
                    (EMISSION FACTORS GO HERE, SEE FIGURE 22)
         39       167
   WASHINGTON COUNTY, OHIO
36710017972
36710017972
36710017972
36710017972
36710017972
 0  686
509   70
0   432
   0
 383
  17
   0
0
  179        58      WASH 7100   36         PKB-MAR179
 (PARKERSBURG-MARIETTA AQCR - NEDS 1972) TEST 1/78
 (NEDS AREA SOURCE CARDS A1-A5 FOR THIS COUNTY FOLLOW)
          440190   184   36   335  128   0  274   4 Al
 0  33  0     0  2404   0   47    0   48  0   0     A2
 39     35   13  20178  4038  1747  2121  376    74 A3
0 443     0  60   309  270     0     0     0      0 A4
    0     0      00     00     0000  229 A5
0
                    (BLANK CARD INDICATING NO MORE COUNTIES)
   (IF MORE COUNTIES WERE TO BE PROCESSED, THEN THE REQUEST CARD, HEADER CARD,
             AND NEDS A1-A5 CARD SETS WOULD FOLLOW FOR EACH COUNTY.)
<§EOF
@FIN
                FIGURE 37.  ECL AND INPUT CARD EXAMPLE FOR CAASE5
                                        118

-------
variable NDIM is related to the number of grid squares; it must be as large as




the largest number of grid squares in any county currently being processed.




NDIM is passed to the CAASE5 subroutine as a variable dimension; CAASE5 passes




NDIM to the subroutines it calls.  The value assigned to the Fortran Dimension




statements in the main program must be at least one larger than the value




assigned to NDIM.  (This is necessary because whenever the CAASE5 subroutine




reads the grid square file, the end of the set of grid squares for one county




is signaled by reading the first record of the next county; i.e., the county ID




number changes.  The end-of-file condition signals the end of the set of grid




squares for the last county in the file.)  Setting the dimensions higher than




necessary would increase computer core storage requirements and, if




significantly higher, could be reflected in higher computer facility charges.




     In order to estimate the number of pages of printed output to expect from




a CAASE5 run, keep in mind that 30 pages of tables are printed for every set of




45 grid squares in each county.




     The EPA/NADB algorithm for calculating emissions from highway motor




vehicles (in the NEDS system) is used by CAASE5.  It calculates estimated




vehicle miles traveled (VMT) by vehicle class and average miles per gallon




using fuels marketed data.  It then distributes these VMT values to road




classes (urban, rural, suburban, and limited access) proportional to the




measured vehicle miles reported on the NEDS Area Source Input form.  However,




if measured vehicle miles are missing for all road categories (numbers 43




through 46 in Table 12), then an alternative method, even though less desir-




able, must be used.  In this case, the estimated degree of urbanization of the




county can be used; this number is recorded in column number 77 of the NEDS




Area Source Input card "A3" as "Pop.Code" (population code).  Because the value




represents urbanization only, the algorithm does not attempt to estimate
                                       119

-------
vehicle miles traveled on suburban or limited access roads.  For example, an




urbanization code of 3 would indicate 30% urbanization; the algorithm would




assign 30% of the VMTs to the urban road class and 70% to the rural road class.




If the urbanization code is also missing, the algorithm uses 90% urbanization




to approximate the "worst case."  Measured vehicle miles should be entered if




available.  If this is not possible, the user should estimate and enter a




population code when it is missing.




     Although all counties do not have to be processed during a computer run,




those processed must be in the same order as the CAASE4 apportioning factor




output file.  Also, the NEDS Area Source cards must be in the same order, by




counties, as the county selector cards; if the cards are out of order, an error




message is printed and processing is terminated.




     In some cases, a state or local agency may want to use emission factors




that are different from the national ones.  These present no problems because




emission factors are read in by CAASE5 at program execution time.  However,




because CAASE5 reads emission factor data only once for a CAASE5 run, counties




with local emission factors will have to be processed in separate runs if their




emission factors are different from those of another county.




     In the output tables, zero entries can be caused in several different




ways.  If no fuels were reported, or if an emission factor was not available,




then obviously the output would be zero.  If an overriding weighting factor was




used, the user could selectively cause zeroes in some of the grid squares.  If




the amount allocated to a grid square is less than .05 units, rounding to the




nearest .1 units for output printing would cause a zero to be printed.  These




small fractions are retained in the storage arrays in their original precision




for any additional CAASE5 calculations.
                                      120

-------
     If the percentages of ash and sulfur content are left blank on the area




source input cards, their default value will be zero.  Emissions from those




source categories and pollutant combinations requiring ash or sulfur content




will, therefore, be calculated as being zero.
                                      121

-------
122

-------
7.0  SUBROUTINE DESCRIPTIONS




     This section contains a description of all subroutines used in the CAASE




system of programs.  Flowcharts are included in the Appendixes with the




appropriate CAASE calling program.




7.1  CED009 Subroutine




     The CED009 subroutine is used by CAASEl for the conversion of coordinates




expressed in latitude and longitude to Universal Transverse Mercator (UTM)




coordinates.  The subroutine was obtained from the Mathematics and Computation




Laboratory, National Resource Evaluation Center.  It is described in NREC




Technical Manual No. 187, dated July 1966.  The subroutine will convert




coordinates worldwide.  CED009, as originally received, used five spheroid




models which were: (1) International; (2) Clarke,  1866; (3) Clarke, 1880; (4)




Everest; and (5) Bessel.  Tables of coefficients necessary for the conversion




equations are contained in a FORTRAN BLOCK DATA Subroutine.  To minimize




computer core storage requirements, the subroutine has been modified to deal




only with the Clarke 1866 spheroid (the standard spheroid used in the United




States for dispersion modeling).  The BLOCK DATA Subroutine was modified to




remove all tables of coefficients which were not related to the Clarke 1866




spheroid.  The routine will convert geographic latitudes from 80° south of  the




Equator to 80  north of the Equator, with those south of the Equator being




considered negative.  The routine will convert any longitude from 180° west to




180  east of Greenwich, with those west of Greenwich being considered




negative.  As a result, the CAASEl program sets the longitudes from the MED-X




census data tapes to a negative value because all of the locations within the




contiguous United Sates have west longitudes.  Input variables to this




subroutine are communicated through the subroutine call argument list except




for the tables of coefficients.  Those are communicated through FORTRAN




labeled COMMON and are set in the BLOCK DATA Subroutine.
                                      123

-------
     CED009 permits the entry of the geodetic location in radians or seconds




with two different scaling factors for each.  For consistency, CAASE1 calls




CED009 with latitude and longitude in seconds scaled by  105.




     An error condition indicator is returned to the calling program.  CAASEl




checks the error condition and prints an error message if necessary.




7.2  GTGR Subroutine




     The GTGR (grid-to-grid) subroutine converts UTM location coordinates from




one UTM zone to another.  It is used by CAASEl and CAASE2 when a study area




straddles a UTM zone boundary.




     It is necessary in order to construct a grid made up of contiguous




squares of unequal size for a common origin to be established for the entire




study area. The subroutine permits the grid-to-grid conversion from east to




west, or from west to east; for example, in any two neighboring zones, one can




express the coordinates in the eastern zone as points relative to the western




zone or, conversely, can express the points in the western zone as coordinates




relative to the eastern zone.




     The subroutine was developed by EPA.  The mathematical formulae to




convert coordinates from one UTM zone to another are those contained in the




Department of the Army Technical Manual TM-5-241-8, entitled "Universal




Transverse Mercator Grid" (July 1958), Chapter 5, Section 31.  Tables used in




the GTGR subroutine are from the Department of the Army Technical Manual




TM-5-241-2.  Calculations are carried out in FORTRAN DOUBLE PRECISION




arithmetic, and the tables for making the conversion are in a FORTRAN DEFINE




FILE statement and reside on disk.  To minimize computer storage requirements,




only the necessary portion of the tables are read in to central core for each




point to be converted.
                                      124

-------
     The FORTRAN source code for a program to create the file of GTGR tables




is contained in Appendix F.  A listing of the card images containing the GTGR




tables is also included in Appendix F.




     The CAASE system will permit either UTM zone to be declared the "primary"




zone, but the user is cautioned that when selecting the eastern zone it is




possible to generate negative easting (east-west) UTM coordinates.  Negative




coordinates are not compatible with the input requirements of the IPP, AQDM,




and CDM dispersion models.  For the CAASE applications thus far, the western




zone has been declared the "primary" zone with few exceptions.  However,




since a distortion error is introduced when converting from one zone to




another, and is directly proportional to the distance the point is from




outside of the "primary" zone, the user should be aware that if most of a




study area lies in the eastern zone, less distortion will be introduced by




making the eastern zone the "primary" zone.  The introduction of negative




easting coordinates must still be avoided.




     GTGR is used by CAASEl for the conversion of location coordinates for




census data (from the MED-X file) from one zone to another.  When necessary




it is used in the same manner by CAASE2 for the conversion of location




coordinates describing the county outline segments.




7.3  INBOUN Subroutine




     Subroutine INBOUN (used by CAASE2) reads control cards and the county




boundary data.  It converts the county boundary coordinates from one UTM zone




to another, if required, using subroutine GTGR in the same manner as




conversion of census data coordinates in CAASEl.  The converted coordinates




are written to I/O device NOUTl for later processing by the program.  At the




user's option, INBOUN also writes the county boundary data to I/O device




NOUT3.  INBOUN determines the coordinates of the extreme north, south, east,




and west points of the study area boundary.  It initializes the list of grid
                                       125

-------
squares by computing the number and locations of initial grid squares of




maximum size needed to cover the entire study area.




7.4  TRACKR Subroutine




     Subroutine TRACKR (used by CAASE2) determines which unit cells are




interior, exterior, or boundary cells for a county.  Since the techniques




employed assume that the county boundary segments are oriented counterclock-




wise, the orientation of the segment coordinates is first tested and the




segments are re-ordered if necessary.




     Beginning with the first segment in the list, the points of intersection




of the segments and the unit cells are computed.  The unit cells intersected




by the boundary are called the boundary cells.  The county area contained  in a




boundary cell is computed.  This value will be greater than zero and less  than




or equal to the unit cell area, in this case, 1 km^.  The distinction between




interior cells and boundary cells is made on the basis of area assigned to the




cell with the interior cells having the value of the unit area.  In the rare




event the area of a boundary cell equals unit area, its value is replaced with




•999 times the unit area to permit numerical distinction.




     When a boundary segment departs from a unit cell, the next cell and its




entry side must be found.  The next cell must be one of the eight contiguous




cells.  As entry/departure from one boundary cell to the next occurs, the  cell




indices (i.e., the cell's row and column position within the grid cell array)




change by + 1 or zero.  The change in indices is the key to which cells are




interior to the current boundary cell.  For example, if the row index changes




by + 1, the next cell is upward, or north of the current cell and the unit




cells on the same row and to the left of the current boundary cell are




interior cells.  (In counterclockwise travel, the interior region is to the




left of direction of travel.)
                                      126

-------
7.5  REORDR Subroutine




     REORDR is called by Subroutine TRACKR  (in CAASE2) to reorder the set of




county outline coordinates in counterclockwise order if necessary.  This is




accomplished by reversing both the order of the coordinate pairs of each




segment and the order of the segments.




7.6  SIDEIT Subroutine




     SIDEIT is called by subroutine TRACKR  (in CAASE2) to compute the point of




intersection of a given county boundary segment with a given cell.  The




situation is illustrated in the following figure.
                            yp
                            ym
                                   xm
                                           xp
     The unit cell is bounded by x=xm, x=xp, y=ym and y=yp•  The segment is




defined by the coordinates of its end points and is directed from (x^,y^) to




(x2»y2)*  Assuming that point A (the intersection on side y=ym) is known, the




problem is to find coordinates of B, the point of intersection on x=xp.  B is




called the departure (or exit) node.




     The general "two-point" form of the equation of a straight line,





                     7 - 71        72 ~ 71
                     x —
is used to find the points of intersection on the cell sides.
                                      127

-------
7.7  WRAPUP Subroutine




     After a county boundary segment departs from a boundary cell, WRAPUP is




called by subroutine TRACKR (in CAASE2) to finish computing the area of the




interior county region.  This region is enclosed by the county boundary




segment and the sides of the boundary cell from the departure node to the




entry node (see description of subroutine SIDEIT for definition of terms).




7.8  NETBAL Subroutine




     NETBAL is called by subroutine TRACKR (in CAASE2) whenever the computed




area contained in a boundary cell exceeds the unit area.  The following figure




shows the conditions which cause the computed contained area to exceed the




unit area.
                    \
                        II
                                /I
     The area contained by the first transect, I, includes some area excluded




by the second transect, II, namely the northwest corner of the cell.  The




second transect contains some area excluded by I, the southeast corner.  Some




of the area contained by I alone is also contained by II.   The sum of the




separately computed areas contained by I and II will exceed the total area of




the cell by the amount of the overlapping common area.  Thus,  the sum of the




areas must be reduced by the amount of the total area of the cell until the




reduced sum is less than or equal to the total area of the cell.
                                      128

-------
Or in other words:

               Contained Area = Summed Area (modulo unit area)

NETBAL performs the modulo function.

7.9  DECIDE Subroutine

     DECIDE is called by subroutine TRACKR (in CAASE2)  to determine the next

boundary cell when a segment of the county boundary intersects  the side of the

current boundary cell and departs from it.

     Figure 38 shows the eight combinations of Ax and Ay possible for a

transect exiting side 1 of cell (i,j).

(i+l.J-1)
uai, A
a,Jl)(/j
(i-I.3-1,

 U»J) ->
i
2
! (i-l.J)
i





                                                        (l.J+D
                                              !   (i-l.J+l)
         FIGURE 38.  CELL (i,j), PORTIONS OF THE ADJOINING CELLS,  AND
         THE EIGHT COMBINATIONS OF Ax,Ay FOR EXITING SIDE NUMBER 1.
     These eight combinations are possible at each of the four sides  and the

four corners of cell (i,j).  Therefore, there are 64 possible combinations of

exit side and direction of departure of the county boundary from any  given

boundary cell.  The unique outcome (that is, the next boundary cell and its

entry side) for any of the 64 combinations may be described by the value of an

element in two of six 3x3 matrices.  Elements in two of the matrices are the

increments that must be added to the (i,j) indices of the current cell to
                                    129

-------
obtain the indices of the next cell.   Elements in the other four matrices are

the entry sides of the next cell.  (Two of these latter four matrices are used

for exits from a single side; the other two are used for exits from a corner.)

The subscripts of the elements in the matrices are computed from tests on the

combination of exit side and the signs of Ax and Ay of the exiting segment.

     The matrices were derived by developing all 64 combinations explicitly,

analyzing the results, and observing repeated patterns in the outcomes which

led to groupings and simplifications.  Only one example will be given to

illustrate the development process.

     Note in Figure 38 that the only possible increments to the indices of

the current cell (i,j) are 0 for i and either 0 or -1 for j.  Therefore, the

two index increment tables that summarize the outcomes under the eight

possible combinations of Ax and Ay for side 1 are as follows:
   Ax


<0

=0
>0
<0
0

0
0
Ay
=0
0

co
0

>0
0

0
0


<0
Ax
=0
>0
<0
-1

0
0
Ay
-0
-1

CO
0

>0
-1

-1
0
          TABLE  18-a.  i-INCREMENT,
              EXIT SIDE 1.
TABLE 18-b.  j-INCREMENT,
    EXIT SIDE 1.
     The symbol » means that both Ax and Ay are not simultaneously zero.


     TABLE  18-b is rewritten in matrix form as

                           '-1    -1    -1

                            0     -    -1

                            000
                        MATRIX OF j-INCREMENTS,
                              EXIT SIDE  1.
                                     130

-------
The row and column subscripts of the elements in the matrix are determined by



the algebraic signs of Ax and Ay.  For example, Ax < 0 and Ay > 0 correspond



to row/column subscripts (1,3).  The value of element (1,3) is -1.   Thus,  when



the exit side is number 1, and Ax < 0, Ay > 0, the j index of the next



boundary cell is j-1 where j is the value of the current boundary cell.



     After complete expansion of the eight combinations of Ax and Ay applied



to all four sides and all four corners, two Increment Matrices are found to be



adequate:
                       \               /                \
                                                              12
°\
.).!,
o/
r
0
\o
-i -i
-i
0 0
            INCREMENT MATRIX 1            INCREMENT MATRIX 2




     All other Increment Matrices may be expressed as functions of Ij or 12 or



the zero matrix.  Thus, for exit side 3 the j-increment matrix is
           (j-inc3)
or




           (j-inc3)  =  I2 + 1



where 1 is a 3 x 3 matrix of 1's,



The i-increment matrix for side 3 is



           (i-inc3)  =  0.
                                     131

-------
     The entry side table associated with an exit from side 1 is:

                                   Ay

<0
-0
>0
<0
3
1
1
=0
3
OO
1
>0
3
3
1
                Ax
                       TABLE 19.  ENTRY SIDE OF
                         CELL; EXIT SIDE 1.

The entries in Table 19 were deduced from Figure 38.  For example, in exiting

side 1 with Ax < 0 and Ay > 0, the entry into the next cell is through side

number 3.  If Ax > 0 and Ay < 0, the entry side is number 1.

     Complete expansion and analysis of all 64 combinations result in four

Entry Side Matrices.  For single-side exit, i.e., not exiting via a corner,

the following two Entry Side Matrices are sufficient:
      E3  -   1    »    3           E4
     The elements in £3 are the entry sides when the exit side is 1 or 3.   The

elements in £4 are the entry sides when the exit side is 2 or 4.

     For corner exits, the Entry Side Matrices are:
                                    E2

                   1
     The elements in Ej are the entry sides when the exit is through the

corners formed by sides 1 and 2 or sides 1 and 4.   The elements in E2 are the

entry sides when the exit is through the corners formed by sides 2 and 3 or

sides 3 and 4.
                                     132

-------
     The use of the Index Increment and Entry Side Matrices is summarized as

follows:  determination of the next cell in tracking involves selection of a

cell index increment matrix and an entry side matrix according to the side, or

sides, of exit from the current cell.  Determination of the appropriate

element in the matrices selected depends on the algebraic signs of Ax and Ay.

Table 20 summarizes the use of the Index Increment and Entry Side Matrices:
Single Exit

Exit Through
Side No.
1
2
3
4

i-inc
matrix
0
II
0
1 1+1
Use:
j-inc
matrix
12
0
1 2+1
0
Side

entry side
matrix
E3
E4
E3
E4
Corner Exit

Exit Through
Side
1 & 2
2 & 3
3 & 4
4 & 1
Use
i-inc j-inc
matrix matrix
II 12
II 12+1
1 1+1 1 2+1
1 1+1 X2

entry side
matrix
El
E2
E2
El
     TABLE 20.  SUMMARY OF CELL INDEX INCREMENT MATRICES AND ENTRY SIDE
             MATRICES TO BE USED UNDER CONDITIONS OF SINGLE SIDE
             EXIT OR CORNER EXIT FOR SPECIFIED SIDES OR CORNERS.
7.10 NTRIOR and FINAL Subroutines

     NTRIOR and FINAL are called by subroutine TRACKR (in CAASE2) to determine

the cells interior to the county boundary.

     The determination of the interior and exterior cells comprises two

phases.  The first is the flagging, on a cell-by-cell basis as tracking

proceeds, of interior/exterior cells on the same row and column of the current

boundary cell.  This phase will "catch" the exterior cells that occur as

interior pockets contained by highly convoluted figures.  The second phase,

applied after the figure defined by the boundary is established, will

determine those cells generally exterior to the envelope (of cells) of the

figure.  Subroutine NTRIOR accomplishes the first phase.  Subroutine FINAL

accomplishes the second phase.
                                     133

-------
     FINAL returns the entire grid cell array flagged with values to indicate




interior, exterior, or boundary cells.  These values will be used in PROXPR to




print the county map and in PROXML to construct the proximal map.




7.11 PROXPR Subroutine




     PROXPR is used by CAASE2.  It prints a map of a county showing exterior




cells as blank characters, boundary cells as asterisks, and interior cells as




the character I.   (See Figure 8 in Section 3.3.)




7.12 INPOP Subroutine




     INPOP (used by CAASE2) reads the edited MED-X census data tape created by




CAASEl, computes the total county population and housing, and determines the




indices of the control cells from the Census Enumeration District (ED)




coordinates.




7.13 PROXML Subroutine




     Subroutine PROXML (used by CAASE2) computes the proximal map of a county




based on the edited MED-X census data tape.  A proximal map is based on the




so-called "nearest neighbor" method of interpolation.  A control cell is a




unit grid cell that contains centroid coordinates of one or more Census




Enumeration Districts (ED's).  An empty grid cell contains no ED centroids.




For each empty cell, there is a control cell nearer to it than any other




control cell with  the occurrence of ties (equally distant control cells) being




resolved by a random selection.  This nearest control cell is the nearest




neighbor of the empty cell.  Conversely, associated with each control cell,




there is a collection of empty grid cells having it as their nearest neighbor.




For any control cell, the associated collection of empty grid cells represents




an approximation of the region of the ED's whose centroids are in that control




cell.  The sum of  the cell areas is taken as the approximate area of the




original ED's.  Population and housing densities are computed from this




approximate area and the control cell's population and housing.  These
                                      134

-------
densities are assumed to be uniformly distributed over the approximating area




and are therefore assigned equally to each associated unit cell.  Conse-




quently, every grid cell in the county is assigned a population/housing count




based on the population and housing of the ED's nearest it.




     PROXML determines the nearest neighbors and computes the population and




hous ing dens it ies•




7.14 SEARCH and SETLGO Subroutines




     SEARCH is called by subroutine PROXML (in CAASE2) to find the nearest




neighbor control cell (see subroutine PROXML description) of each grid cell in




a county.  It employs a search technique that is based on the assumption that




the most likely nearest neighbor control cell of the cell having row/column




indices (i.j) is the nearest neighbor of the previous cell with indices (i,




j-1).  The distance from cell (i,j) to the nearest neighbor of cell (i,j-l) is




used to place upper and lower limits on the indices of the rows and columns




searched for a nearer neighbor to cell (i,j).  Subroutine SETLGO is used in




conjunction with SEARCH to determine the index of the non-empty row nearest




each row of grid cells.




7.15 TIEBRK Subroutine




     TIEBRK is called by subroutine SEARCH (in CAASE2) when the distances from




a grid cell to two different control cells are equal.  TIEBRK resolves the




choice of which is nearer by calling a random number generator internal




subroutine RANDU (copied from the IBM Scientific Subroutine package) to




provide a uniformly distributed random number between 0 and 1.  If the number




is greater than 0.5, the return to SEARCH will cause one of the control cells




to be chosen; otherwise, the other control cell is chosen.




7.16 GRIDIT Subroutine




     GRIDIT (used by CAASE2) constructs a grid square system based on a given




population density surface.  GRIDIT will attempt to read user-provided grid




square records from the card input stream to the end of file.  A count is kept






                                      135

-------
on the number of cards read.  If no user grid cards are provided, the count




will be zero and GRIDIT will construct a grid.  If cards are provided, the




count will be non-zero and GRIDIT will not construct a grid.




7.17 ADJUST Subroutine




     ADJUST (used by CAASE2) partitions boundary squares having only a small




portion of their contained area within the outline of the total study area




until the contained area is a greater percentage of the square's area.  Any




empty squares resulting from the partitioning will be deleted from the list of




grid squares.




7.18 SQROFF Subroutine




     SQROFF (used by CAASE2) determines which grid squares belong to which




counties.  If a square shares its area with a county, it is assigned that




county's FIPS code number.




     SQROFF reads in the population proximal map of a county and compares it




to the entire list of grid squares.  (The values stored in the cells making up




the proximal map are population.  There are two other proximal maps that




contain housing and area values.)  A zero value of population in a grid cell




means the cell is not in the county.  For a given grid square, if the sum of




values of all cells within the square is zero, the grid square is totally




outside the county.  If the sum is not zero, the grid square and county share




common area and the grid square is therefore assigned the county FIPS




identification number.  In addition, the summations of population, housing,




and contained area in the grid cells shared by the grid square with the three




proximal maps are assigned to the square.




     A square may overlap more than one county.  In this case, the square will




receive multiple county assignments.  Separate card image records of the grid




square will be output for each county to which the square belongs with the




records differing in the county code, fractional area contained, contained






                                      136

-------
population and contained housing.  The side lengths and southwest corner




coordinates of squares having multiple records are equal.




7.19 OUTPUT Subroutine




     OUTPUT is used by CAASE2 to output the card images and print the grid




square records.




7.20 PARTIT Subroutine




     PARTIT is called in CAASE2 by subroutines GRIDIT and ADJUST to partition




a specified grid square into four smaller squares of equal size by dividing




its side length by two.  The coordinates of the southwest corners of the new




squares are one-half the side lengths from the origin of the original square.




The list of grid squares is updated by adding the side lengths and coordinates




of the new squares to the appropriate vector storage arrays.  The total number




of squares is increased by three.  A test of the number of squares versus the




maximum  permissible governs the return to the calling program.  A test to




prevent partitioning of squares to less than unit area is included.




7.21 DELETE Subroutine




     DELETE is called in CAASE2 by subroutines GRIDIT and ADJUST to remove




empty grid squares from the list of grid squares.




7.22 INTEGR Subroutine




     INTEGR is called in CAASE2 by subroutines GRIDIT, ADJUST, and SQROFF to




compute the integral of either population, housing, or area in a grid square




specified by the calling program.




7.23 ASTORE and NSTORE Subroutines




     The purpose of subroutines ASTORE and NSTORE  (used by CAASE2) is to




eliminate repetitive coding of FORTRAN IF - GO TO statements followed by




non-computational equations.  Their functioning is apparent from their simple
*1800 in applications thus far.
                                      137

-------
coding.  The difference between them is that the arguments of ASTORE are


floating point variables, and those of NSTORE are integers.  NSTORE is an


ENTRY in ASTORE.  Other entries in ASTORE are subroutines YOFX and XOFY.


ASTORE is called by subroutines TRACKR and WRAPUP, NSTORE by DECIDE and


SIDEIT.


7.24 YOFX and XOFY Subroutines


     YOFX AND XDFY are entries in subroutine ASTORE used by CAASE2.  They are


called by subroutine SIDEIT to compute the intersections of the county


boundary segments with the grid cells.


     The two point equation of a straight line is given by



                      y - 71       72 ~ 71
                      x - KI       X2 ~ xl



For specified (xj^yj), (x2»y2)> and x, YOFX computes



                                   72 - 71
                      y = (x - xj_) 	+ yi


                                   x2 - X!



For specified (xj^yj), (X2»y2)» and y, XOFY computes
                          (y -
                                   (72 ~
Both subroutines test for denominators less than the variable, "EPS" (a very


small number specified in the main program) in absolute value; this is a test


for zero divisor.  If such should occur, the solution is set to a large


value.
                                      138

-------
7.25 FAREA Subroutine




     FAREA (used by CAASE2) computes the area A under the line segment in




Figure 39 by the formula:




                         (72 + yi>
                                          X2
                   FIGURE 39.  AREA UNDER A LINE SEGMENT.









7.26 SORT Subroutine




     SORT is used by CAASE2 to sort the grid squares in ascending order by




state, county, UTM Northing, and UTM Easting.




7.27 POPBOX Subroutine




     POPBOX is used by CAASE3.  It creates the plotter file for drawing a




scaled map of the study area.  The axes and tick-marks are drawn and labeled.




     POPBOX also draws the grid square network.  It is given the coordinates




of the lower left-hand corner of each grid square and its side length.  It
                                      139

-------
calculates the coordinates for the other three corners.  Lines are then drawn




through the five points (the lower-left hand corner being both the starting




and ending point).  A grid can be drawn to any scale, the only limitation




being the physical size of the available plotter space.  In the CAASE




applications thus far, the scale 1:250,000 has been used.  The scale factor




is an input variable to the CAASE3 main program.




7.28 EDPLOT Subroutine




     EDPLOT is used by CAASE3 to optionally plot the enumeration districts and




psuedo-enumeration districts as processed by CAASE1.  A control parameter read




by CAASE3 determines whether EDPLOT is used.




     As discussed in the CAASE1 program description (Section 2), there are




three types of enumeration districts output by CAASE1.  A unique mark from the




CALCOMP plotter subroutine MARK is used for each of the three types of




enumeration  districts.  Type 1 uses mark #1, type 2 uses mark #5, and type 3




uses mark #9.




7.29 COOUT Subroutine




     COOUT is optionally used by CAASE3 to draw county outlines on the study




area map.  A control parameter read by CAASE3 determines whether COOUT is




used.




7.30 READ1 Subroutine




     READ1 is used by CAASE5 to read the fuels (throughput) totals for the




county being processed.  The format is the same as the first five cards on the




NEDS Area Source Form [EPA (DUR) 219 3/72].  The routine also calculates the




gasoline fuel use for light trucks using fractions of the reported fuels for




light vehicles (gasoline)  and heavy vehicles (gasoline).  The algorithm




currently used by the EPA National Air Data Branch (NADB) for the National




Emissions Data System (NEDS) area sources is used.
                                      140

-------
     The following calculations are used:




          Light Truck Fuel Total = .122 x Light Vehicle Fuel Total




               + .273 x Heavy Vehicle Fuel Total.




     Light vehicle and heavy vehicle fuels are reduced accordingly, that is:




          Modified Light Vehicle Fuel Total = Reported Light Vehicle




               Fuel Total x .878.




          Modified Heavy Vehicle Fuel Total * Reported Heavy Vehicle




               Fuel Total x .727.




7.31 OUTPT1 Subroutine




     OUTPTl is used by CAASE5.  It formats and prints a tabular listing of the




allocated county fuels (throughput) totals for all area source categories




identified on the NEDS Area Source Form [EPA (DUR) 219 3/72].




     OUTPTl also writes a formatted tape (see Tables 16 and 17 for a descrip-




tion of the record layout and contents).




7.32 OUTPT2 Subroutine




     OUTPT2 is used by CAASE5.  It formats and prints the allocated emissions




for each source category identified on the NEDS Area Source Form [EPA (DUR)




219 3/72].




     As a county is being processed by CAASE5, OUTPT2 is called five times,




once for each pollutant (TSP, S02, NOX, HC, and CO).




     OUTPT2 also writes a formatted tape (see Tables 16 and 17 for a descrip-




tion of the record layout and contents).




     With the exception of formatting and labeling, OUTPT2 is very similiar to




OUTPTl.




7.33 OUTPT3 Subroutine




     This routine is called by the CAASE5 program and outputs allocated area




source emissions as cards (or card images) for direct input to one of three
                                      141

-------
atmospheric dispersion models.  The three models are the Implementation




Planning Program (IPP), the Air Quality Display Model (AQDM), and the




Climatological Dispersion Model (COM).  The selection of the format is




controlled by an input variable.




     As each county is processed,  one emissions total is output for each grid




square for each pollutant.  That is, the calculated emissions for all area




source categories allocated to a grid square are summed.  Units conversions




are made if necessary.  A constant value of 10 meters or 33 feet is assigned




as the stack height.




     OUTPT3 also writes a formatted tape (see Tables 16 and 17 for a




description of the record layout and contents).
                                      142

-------
8.0  OBJECTIVE APPORTIONING FACTORS AND SUBJECTIVE OVERRIDING WEIGHTING
     FACTORS

     This section discusses the procedures for introducing user-provided

overriding weighting factors for allocating fuels and emissions to the

sub-county grid square network.  The assignment of overriding weighting

factors and their effect on the objective apportioning factors are discussed

in detail in this section.  The program input formats and descriptions are

included in the discussion of the CAASE4 program in Section 5.

     A basic concept in the development of the CAASE procedures was to use

objective techniques, where possible, to select a grid.  Also, objective

methods were to be used, when possible, for allocating fuels  (throughput) and

emissions from county totals for each source category into each grid square.

It was recognized that many of the source categories were amenable to

apportioning as functions of the distribution of population and housing

within counties.  Ideally, objective methods could be used throughout the

processing of area source data using computer processable data sources

already available in computer compatible data bases.  Certain categories of

usable data are available for some counties while not always available for

others; further, much of the data exist only in source document or tabular

form, e.g., land use maps, traffic counts, airport operations activity, etc.

Much effort would be necessary to assemble and incorporate these data into a

computer processable data base for objective apportioning.  Such an effort,

practical or not, was beyond the scope of the CAASE project.  It appeared,

however, that area source emissions for most categories were amenable to

distribution by objective techniques to the grid squares of a county.

     For convenience, the fields of fuels (throughput) data on the NEDS Area

Source Input Form [EPA (DUR) 219 3/72] have been sequentially numbered.

Table 12 relates the assigned category number to its major and minor
                                      143

-------
classifications.  (Category number 28, Gasoline Fuel, Light Truck is a

derived number calculated by taking a portion of categories 27 and 29 fuels.)

     The majority of the categories can be apportioned using functions of

area, population, and housing.  However, provisions are made in the CAASE4

program to override any or all source categories for each grid square if

available information indicates that the objective factors used by CAASE4

will not yield acceptable results.  To facilitate the use of any additional

available data for apportioning, the apportioning factor program (CAASE4)

logic has been written to optionally accept user-provided weighting factors

for any area source category for any grid square.  As discussed in more

detail in later paragraphs, the "effective" apportioning factor is the

product of the user-provided weighting factor multiplied times the assigned

objective factor.  The default user-provided weighting factor is 1.0.

     An objective apportioning factor has been assigned to each area source

emission category reported on the NEDS Area Source Form [EPA (DUR) 219 3/72].

Table 21 shows the objective apportioning factor assigned for each source

category.  Candidate objective apportioning factors available on the Bureau

of the Census MED-X  tapes include population, housing counts, and an urban-

rural classification.  After the grid is established, each grid square's

contained population, housing, area, and side length  are available.

     When available apportioning factors were being selected and assigned to

the source categories, it was concluded that some categories were quite
*Master Enumeration District Listing (MEDList) extended to include geographic
 coordinates.

~*~If the contained area for a grid square is shared by two or more counties,
 an "effective side length" for each county is calculated by computing the
 square root of the contained area within that county.
                                      144

-------
TABLE  21.   "NEW" AREA  SOURCE  EMISSIONS  CATEGORY NUMBERS
          AND  THEIR OBJECTIVE APPORTIONING FACTOR
  CATEGORY         MAJOR
  _ NUMBER     CLASSIFICATION
     1      RESIDENTIAL FUEL
     2      RESIDENTIAL FUEL
     3      RESIDENTIAL FUEL
     4      RESIDENTIAL FUEL
     5      RESIDENTIAL FUEL
     6      RESIDENTIAL FUEL
     7      COMM'L  &  INSTITL FUEL
     8      COMM'L  &  INSTITL FUEL
     9      COMM'L  &  INSTITL FUEL
    10      COMM'L  &  INSTITL FUEL
    11      COMM'L  4  INSTITL FUEL
    12      COMM'L  &  INSTITL FUEL
    13      INDUSTRIAL FUEL
    14      INDUSTRIAL FUEL
    15      INDUSTRIAL FUEL
    16      INDUSTRIAL FUEL
    17      INDUSTRIAL FUEL
    18      INDUSTRIAL FUEL
    19      INDUSTRIAL FUEL
    20      INDUSTRIAL FUEL
    21      ON-SITE INCINERATION
    22      ON-SITE INCINERATION
    23      ON-SITE INCINERATION
    24      OPEN BURNING
    25      OPEN BURNING
    26      OPEN BURNING
    27      GASOLINE  FUEL
    28      GASOLINE  FUEL
    29      GASOLINE  FUEL
    30      GASOLINE  FUEL
    31      DIESEL  FUEL
    32      DIESEL  FUEL
    33      DIESEL  FUEL
    34      AIRCRAFT
    35      AIRCRAFT
    36      AIRCRAFT
    37      VESSELS
    38      VESSELS
    39      VESSELS
    40      VESSELS
    41      EVAPORATION
    42      EVAPORATION
    43      MEASURED  VEH MILES
    44      MEASURED  VEH MILES
    45      MEASURED  VEH MILES
    46      MEASURED  VEH MILES
    47      DIRT RDS  TRAVELED
    48      DIXT AIRSTRIPS
    49      CONSTRUCT LAND AREA
    50      MISC. WIND EROSION
    51      LAND TILLING
    52      FOREST  WILDFIRES
    53      MANAGED BURNING
    54      AGRI. FIELD BURNING
    55      FROST CONTROL
    56      STRUCTURE FIRES
     MINOR
CLASSIFICATION
  ANTH.  COAL
  BITUM. COAL
  DIST.  OIL
  RESID. OIL
  NAT. GAS
  WOOD
  ANTH.  COAL
  BITUM. COAL
  DIST.  OIL
  RESID. OIL
  NAT. GAS
  WOOD
  ANTH.  COAL
  BITUM. COAL
  COKE
  DIST.  OIL
  RESID. OIL
  NAT. GAS
  WOOD
  PROCESS GAS
  RESIDENTIAL
  INDUSTRIAL
  COMM'L & INSTITL
  RESIDENTIAL
  INDUSTRIAL
  COMM'L i INSTITL
  LIGHT VEHICLE
  LIGHT TKCCK
  HEAVY VEHICLE
  OFF HIGHWAY
  HEAVY VEHICLE
  OFF HIGHWAY
  RAIL LOCOMOTIVE
  MILITARY
  CIVIL
  COMMERCIAL
  COAL
  DIESEL OIL
  RESID. OIL
  GASOLINE
  SOLVENT PURCHASED
  GASOLINE MARKETED
  LIMITED ACCESS RDS
  RURAL ROADS
  SUBURBAN RDS
  URBAN  ROADS
 AREA-ACRES
 AREA-ACRES
 AREA-ACRES
 ORCHARD HEATERS
 NO. PER YEAR
    OBJECTIVE
APPORTIONING FACTOR*
HOUSING UNITS
HOUSING UNITS
HOUSING UNITS
HOUSING UNITS
HOUSING UNITS
HOUSING UNITS
POPULATION
POPULATION
POPULATION
POPULATION
POPULATION
POPULATION
POPULATION'
POPULATION
POPULATION
POPULATION
POPULATION
POPULATION
POPULATION
POPULATION
HOUSING UNITS
POPULATION
POPULATION
HOUSING UNITS
POPULATION
POPULATION
POPULATION
POPULATION
POPULATION
1/POPULATION DENSITY
POPULATION
1/POPULATION DENSITY
GRID SQ. SIDE LENGTH
AREA
AREA
AREA
GRID SQ. SIDE LENGTH
GRID SQ. SIDE LENGTH
GRID SQ. SIDE LENGTH
GRID SQ. SIDE LENGTH
POPULATION
POPULATION
1/POPULATIOS DENSITY
1/POPULATION DENSITY
POPULATION
POPULATION
I/POPULATION DENSITY
I/POPULATION DENSITY
AREA
I/POPULATION DENSITY
I/POPULATION DENSITY
1/POPffLATION DENSITY
1/POPULATION DENSITY
I/POPULATION DENSITY
I/POPULATION DENSITY
POPULATION
 "Each of Che above apportioning factors is multiplied  by a  weighting factor
  initialized as 1.0 for all grid squares.   These  initial weighting factors can
  be overridden with input data if desired.
                                   145

-------
amenable to apportioning using objective factors whereas others are not.  For




example, the housing count in each grid square is a good choice for allo-




cating residential heating source categories.  However, source categories




associated with aircraft operations affect only portions of a county and




should be overridden in most cases.




     Although the CAASE system permits overriding weighting factors to be




assigned for any source category, they should be limited to those categories




where acceptable objective data  (in a computer processable form) are not




available.  To allocate emissions from airport operations over the entire




county as a function of the area of each grid square (see Table 21) might




introduce only a small error.  However, it can easily be determined which




grid squares in a county contain airports, or are affected by the airports.




On the other hand, much time could be spent in preparing overriding weighting




factors for railroad operations.  To allow CAASE4 to use the objective factor




(i.e., grid square side length) to assign apportioning factors to all grid




squares in an urban county containing a large number of grid squares and




heavy railroad activity (e.g., St. Clair County, Illinois) may yield




comparable results.  The percentage errors may be acceptable.




     One suggested approach, before deciding to override a source category,




is to run the CAASE4 program without overriding the objective apportioning




factors for the category; then to run the CAASE5 program with those assigned




apportioning factors.  Two outputs from CAASE5 are the county totals of




emissions by pollutant and a table of county totals by source category and




pollutant (see Figure 35 in Section 6).  Each source category's contribution




to the county total area source emissions can be readily determined.  For




example, from data in Figure 35, Washington County, Ohio railroad activity




(category 33) contributed .875 tons/year of TSP to the county total of 3796.8
                                      146

-------
tons/year and therefore represents only .023% of the total.  NOX for railroad




activity is .405% of the Washington County total.




     An important point to keep in mind when assigning overriding weighting




factors is that the calculated apportioning factors are normalized in the




CAASE5 program.  That is, each apportioning factor is developed by dividing




the weight assigned to the particular grid square (for a particular source




category) by the sum of the weights assigned to all grid squares (for that




category) in the county.  The total fuels or emissions apportioned to the




individual grid squares in the county will not be modified whether the total




refers to housing counts, area, population, or a combination of these and/or




other factors.  For each source category, the apportioning factors represent




each grid square's proportion of the county total.  This apportioning factor




is the numerator for the fraction of total fuels (or emissions) which will be




apportioned to that particular grid square for that particular source




category.  To sum all of the fractions for a particular source category




associated with each individual grid square within the county will yield




unity.




     As discussed earlier, the effective apportioning factor is calculated by




multiplying an objective apportioning factor (see Table 21) by_ a_ weighting




factor.  The apportioning algorithm in CAASE4 assumes a_ weighting factor of




1.0.  If the default weighting factor of 1.0 is used, the apportioning is




totally controlled by the assigned objective apportioning factor, e.g.,




housing units.  The following paragraphs discuss how to override the default




1.0 weighting factor.  When &_ source category is to be overridden, &_ card is




read by CAASE4 with the source category number and an initialization constant




(generally 0.0 or 1.0).  Cards are then read for each grid square that is to
                                      147

-------
be overridden with a_ different weighting factor than the initialized factor for




that source category.




     An example of source category weighting factors that generally should be




overridden are those for airport operations  (source categories 34, 35, and 36).




If no airports are located within the county or if LTO  (Landing-Take-Off) cycles




are not included in the area source inventory, no airport weighting factor




overriding action is necessary.  For airport operations categories the




initializing constants (read by CAASE4) should be zero because fewer grid




squares will be allocated fuels and emissions than those that will not.  These




user-initialized zero weighting factor assignments mean that no aircraft




landing-take-off cycles, or emissions associated with them, will be allocated to




a grid square unless the user assigns a non-zero weighting factor to that grid




square.  For aircraft LTOs and associated emissions the assigned objective




apportioning factor is area.  A grid square which has a large area would




therefore be allocated more LTOs and associated emissions than a grid square




which has a smaller area (if the weighting factors are equal).  If a grid square




is affected by aircraft operations, the user can, for example, assign a 1.0




weighting factor.  (This is done after initializing all grid squares to zero for




the aircraft categories.)  The CAASE4 program would then assign apportioning




factors strictly as a function of area for only those grid squares affected;




that is, a grid square of one square kilometer would be assigned an apportioning




factor only one twenty-fifth (l/25th) of the apportioning factor assigned to a




five-by-five kilometer grid square representing 25 square kilometers.  The user




would normally want to assign higher weights to grid squares near an airport




than to those farther away.  To do this the user can, for example, assign an




overriding weighting factor of 3.0 to the grid squares nearest an airport, 2.0




to grid squares farther away but still affected, and 1.0 to the furthermost




affected grid squares.





                                       148

-------
This would cause both the area of the affected grid squares and their




proximity to the airport (and aircraft operations areas) to be determining




factors in allocating LTOs and associated emissions within the county.  The




values 3.0, 2.0, and 1.0 were used for illustration.  The user can assign any




value on any scale.  The procedure is more complex in a county containing




more than one active airport.  In this case, the user must keep in mind that




the weighting factors apply to the county totals.  If data are available for




the relative operational activity at the two or more airports in the county,




these data should be used in assigning overriding weighting factors.




Referring back to the example above, where proximity to the airport was also




taken into consideration, and supposing the county had two airports, then let




the above example be for Airport A.  Let the second airport be called Airport




B.  If Airports A and B had equal operational activity, i.e., LTOs for a




source category, then 3.0, 2.0, and 1.0 weighting factors could be assigned




to grid squares affected by Airport B LTOs according to their proximity to




Airport B in the same manner as was done with Airport A.  The next degree of




complexity for the two-airport example is encountered when their relative




activities for a source category are not equal.  To modify the above two-




airport example, for illustration, suppose Airport B had twice the activity




as Airport A (i.e., two-thirds of the LTOs were at Airport B and one-third at




Airport A); then, the nearest grid square to Airport B could be assigned an




overriding weighting factor of 6.0 whereas a 3.0 had been assigned to the




nearest grid square for Airport A, etc.  The overriding weighting factors




assigned to other affected grid squares must reflect both the relative




airport activity and each affected grid square's proximity to the airports.




     The above examples for aircraft activity were given to illustrate the




overriding of source categories where the area of the grid square is the
                                      149

-------
objective factor.  Although conceptually similar, other source categories are




treated differently.




     Area source categories such as railway locomotives and waterborne




vessels are also assigned apportioning factors as a function of the size of




the grid square.  However, in these cases the distance across a grid square




and how the waterway or railroad tracks cross it are used in assigning an




overriding weighting factor.  The longest distance across a grid square is




diagonally through opposite corners (e.g., northwest corner to southeast




corner).  This distance is directly proportional to the grid square side




length.  The ratio of the diagonal to the side length is a constant (\2 to




1).  This constant would drop out in the CAASE5 apportioning factor




normalizing calculations.  The grid square side length is therefore used




directly for these source categories.  The discussion and examples following




will be limited to the railway locomotive category, but the approach




suggested is equally applicable to the waterborne vessel categories.




     If the railway locomotive source category is to be assigned overriding




weighting factors, then there are several things to consider when assigning




an overriding factor to a grid square.  To simplify the examples, no attempt




is made to incorporate the number of trains passing across a grid square in a




given time frame, nor is the average number of locomotive units per train




considered.  These data probably will seldom be directly available to the




CAASE user.  The number of pairs of tracks crossing the grid square is




directly available from USGS (U.S. Geological Survey) maps.  These maps can




be used with a grid square network plotted by CAASE3 as an overlay, or where




the grid squares have been drawn directly on the map.  For each pair of




tracks, the user can visually estimate the distance in crossing the grid




square as compared to the maximum distance possible across the grid square.
                                       150

-------
Then the overriding weighting factor for a grid square is a combination of

the number of tracks crossing it and the relative length of the crossing

distance for each.  Recall that the effective apportioning factor is the

product of the weighting factor and the assigned objective apportioning

factor, in this case, grid square side length.  Because the overriding

weighting factor that should be assigned to a grid square includes both the

number of tracks and the relative length of each, it is suggested that the

user establish an arbitrary scale to include both terms.  For example, a

scale of 0.0 to 10.0 could be used.  One pair of tracks, crossing the grid

square along the maximum length path, would be assigned a 1.0, two pairs of

tracks along the same path a 2.0 etc.  For tracks across the grid square

along some path less than the maximum distance, each pair of tracks can be

assigned a fraction of 1.0.  On a scale of 0.0 to 10.0, the following figures

are examples of the suggested procedure where J. I I I  I I  will denote a single

pair of tracks and  II II II II II  will denote a double pair of tracks.
     FIGURE 40-A.  EXAMPLE OF RAILWAY LOCOMOTIVE WEIGHTING FACTOR OF 1.0
                          (2 KM X 2 KM GRID SQUARE)
                                           2 KM
                                  2 KM
    FIGURE 40-B.  EXAMPLE OF RAILWAY LOCOMOTIVE WEIGHTING FACTOR OF 2.0
                                     151

-------
    FIGURE 40-C.  EXAMPLE OF RAILWAY LOCOMOTIVE WEIGHTING FACTOR OF 1.0
                          (4 KM X 4 KM GRID SQUARE)
                                              2 KM
                                     2 KM
    FIGURE 40-D.  EXAMPLE OF RAILWAY LOCOMOTIVE WEIGHTING FACTOR OF 0.5
                                       (0.5)
                                               (2.0)
                                     2 KM
    FIGURE 40-E.  EXAMPLE OF RAILWAY LOCOMOTIVE WEIGHTING FACTOR OF 3.21

     The examples in Figures 40-A through 40-E illustrate that the count of

tracks and how they cross the grid squares make up the user-supplied

overriding weighting factors input to CAASE4.  The 1.0 weighting factor in

Figure 40-A, (a 2 km by 2 km grid square) and Figure 40-C (a 4 km by 4 km

grid square) will be multiplied by the grid square side length by the CAASE4

program.  This will cause the grid square represented by Figure 40-C to

receive an allocation of twice the amount of fuels and associated emissions

as the grid square represented by Figure 40-A.

     If the CAASE user does have relative traffic data for the track seg-

ments, it can be incorporated into the weighting factor procedure.
                                      152

-------
     For those source categories using assigned population or housing counts,




the user-provided overriding weighting factors are handled by CAASE4 in the




same manner as the examples above.  The effective apportioning factor for




each grid-square-source-category combination is the product of the user-




provided overriding weighting factor (or the default value of 1.0) times the




assigned objective apportioning factor.  It is fairly straightforward to use




maps to locate airports, waterways and railroads.  However, population and




housing distribution maps are not as readily available.  The CAASE user can




refer to the CAASE2 output for these housing and population counts for each




grid square (or portion thereof) for each county.




     The CAASEA program reads the grid file output from the CAASE2 program.




This file contains the fractional area, contained housing, and contained




population, for that portion of each grid square within the county, in




addition to location coordinates and county identificaion.  The assigned




housing and population counts are included in the CAASE2 printout  (see Figure




8).




     Using the allocation of distillate oil used for residential fuel (and




its associated emissions) as an example, the user is probably very limited in




providing any overriding weighting factors. The user probably does not have




enough detailed information on the distribution of residences using




distillate oil (as compared to other fuels) to improve on the CAASE default




method of allocating solely on total housing distribution.  However, the user




may, for example, be able to estimate that the percentage of residences using




distillate oil and located in the grid squares in one part of the  county is




twice that in the remainder of the county.  In this case, the CAASE user




could initialize the source category (number 3 in Table 21) to 1.0.




Overriding weighting factors of 2.0 could then be input for the grid squares




that had twice the percentage of residences using distillate oil.
                                      153

-------
     If the CAASE user does not want CAASE4 to assign apportioning factors




for a source category, then there are two easy ways to do this:




     1.  In running the CAASE4 program, the source category can be




         initialized to 0.0 and then no user-provided weighting factors are




         input.  The zero coefficient for apportioning will effectively




         eliminate the source category.




     2.  In running the CAASE5 program, the source category fuels (throughput)




         on the Area Source Input card can be set to zero.  In this case, no




         overriding action is necessary in running CAASE4.




     In either case above, the CAASE5 output tables would display a zero for




all grid squares for the source category so excluded.  Also, emissions for




the source category would not be included in the grid square totals output on




the dispersion model card images.  The emissions for the source category




could be calculated by another method and allocated manually by the user.




These emissions could then be added, as appropriate, to the totals on the




dispersion model card images output by CAASE5.
                                      154

-------
                     APPENDIX A











LOGICAL FLOWCHARTS AND FORTRAN SOURCE CODE LISTINGS




             CAASE1  (and Subroutines)
                          A-l

-------
A-2

-------
                                   CAASE1
        START
 SET FORTRAN INPUT/
 OUTPUT UNIT NUMBERS
 FOR COMPUTER SYSTEM
 BEING USED. IND1=4
 FOR CED009. ICNT=1
FOR NUMBER OF STATES
    IN STUDY AREA
       REWIND
       OUTPUT
        TAPE
     READ FIRST
     MED-X BLOCK
                        YES
             NO
         A-3

-------
                                                           CAASE1, p.2
                             SPACE PAST
                               HEADER
                                BLOCK
NSTAT
STUDY AREA
KZONE
 READ NUMBER OF
 STATES IN STUDY
AREA, STUDY AREA
NAME AND PRIMARY
    UTM ZONE
                             PRINT PAGE
                             HEADING FOR
                           PRINTED OUTPUT
                               NSTAT
                               STUDY AREA
                               KZONE
    IGROTH
    IEDS
   READ GROWTH
  RATE AND NEW
   ENUMERATION
    DISTRICT
    INDICATOR
                                 A-4

-------
                                                                         CAASE1, p. 3
                                           p.3
                             ARE THERE PROJECTED FACTORS TO BE
                             APPLIED TO ENUMERATION DISTRICT
                                  POPULATION AND HOUSING
                                       FOR THE AQCR
                                   NO.
                       LOOP_ ON _lpO_- MAXIMUM
                       \ (LOOP ENDS AT 130)
   X & Y COORDINATES
   LENGTH OF X & Y
   ZONE
   STATE
   COUNTY
                                             YES
                NUMBER OF GROWTH FACTORS
                                       I
                                       t
READ INFORMATION PERTINENT
IN DECIDING THE HOUSING AND,
POPULATION GROWTH OF AN
ENUMERATION DISTRICT.
HOUSING COEFFICIENT
POPULATION COEFFICIENT
                                     HAS LAST GROWTH
                                     RATE CARD BEEN
                                     READ
                            SET  SUBSCRIPT  FOR
                            NUMBER  OF  GROWTH
                            RATE CARDS READ
                             PRINT INFORMATION FOR HOUSING
                             AND POPULATION GROWTH OF AN
                             ENUMERATION DISTRICT
                                          A-5

-------
    S THE ZONE
   OF THIS GROWTH
  RATE THE
     DTM ZONE
      IS THIS
      ZONE EAST
      OF THE
      PRIMARY
      ZONE
                                        CAASE1, p.4
                      SET EW-1 FOR
                      MOVING FROM
                      WEST TO EAST
                      IN SUBROUTINE
                      GTGR
SET EW-0 FOR MOVING
FROM EAST TO WEST IN
SUBROUTINE GTGR
 90
,r«-
  INITIALIZE ERROR
  MESSAGE VARIABLE
  TO ZERO FOR SUB-
  ROUTINE GTGR
  CONVERT X & Y
  COORDINATES TO
  DOUBLE PRECISION
CALL SUBROUTINE GTGR
FOR ZONE TO ZONE
CONVERSION
       p.5
       A-6

-------
                      WAS ERROR
                      RETURNED
                      FROM  SUB-
                      ROUTINE
                         GTGR
                  SET X  & Y  COORDINATES
                -TO SINGLE  PRECISION
                  CALCULATE RECTANGLE
                      OF GROWTH
                                                          CAASE1, p.5
 PRINT ERROR

MESSAGE AND

 TERMINATE

 EXECUTION
130
               PRINT ERROR MESSAGE THAT
               RECTANGLES OF GROWTH EXCEEDED
               MAXIMUM STORAGE ALLOCATED
                   ARE THERE ANY NEW
                   ENUMERATION DISTRICTS
                   PROJECTED
                           A-7

-------
                                                           CAASE1, p.6
/ X & Y COORDINATES
   ZONE
   STATE
   COUNTY
   HOUSING COUNT
   POPULATION COUNT
    LOOP_ON_100  -_MAXIMUM ^.NUMBER OF PROJJCT_ED_ED_'5
   1 (LOOP ENDS AT 210)

              READ INFORMATION PERTINENT
              IN PLACING PROJECTED ENUMERA
              TION DISTRICT.
      210
                                                   SET SUBSCRIPT
                                                     FOR NUMBER
                                                   OF  PROJECTED
                                                    ED's READ
                                                                  i
                                                                   I
              PRINT ERROR MESSAGE THAT NUMBER
              OF PSEUDO ENUMERATION  DISTRICTS
              EXCEEDED MAXIMUM STORAGE ALLOCATED,
     &
                               220
                       CONTINUE
                 INITIALIZE END-OF-FILE

                 VARIABLE (IEND-0)
NCNTY
STATE
                                   READ NUMBER OF
                                   COUNTIES IN
                                   STATE AND
                                   STATE NAME
                          A-8

-------
ICNTY (N)
CNTY (M,N)
READ FEDERAL COUNTY
CODE AND NAME OF EACH
COUNTY IN THE STATE
                                                            CAASE1, p. 7
                       PRINT STATE NAME
                       AND NUMBER OF
                       COUNTIES FOR
                       THIS STATE
       	LOOF_ON_JUMBER_pFJr COUNTIES. IN_STATE
       "LOOP:'.ENDS  AT  260)
          260
                      INITIALIZE RECORD
                      COUNTER TO ZERO
                      FOR EACH COUNTY
                      (ISEC-0)
                     ' END OF  -.   LOOP
                     INITIALIZE NUMBER OF
                    COUNTY VARIABLE TO ONE
                             (1=1)
                    SET VARIABLE IWHER-1
                   DENOTING RECORD MUST BE
                   READ FROM MED-X TAPE.
                     270
                           CONTINUE
                              A-9

-------
                                     CAASE1, p.8
INITIALIZE VARIABLE MTCH
TO ZERO. WILL BE SET TO
1 WHEN COUNTY MATCH IS MADE
       PRINT NAME
       OF COUNTY
           HAS
          FIRST
        RECORD OF
         COUNTY
        BEEN READ
        INCREMENT
         BUFFER
         POINTER
           HAS
         END OF
       BUFFER BEEN
         REACHED
YES   /   CALL
    *-/   READIT
      DECODE STATE
      & COUNTY CODE
           A-10

-------
         IS
      THIS THE
      STATE OF
      INTEREST
                                   CAASE1, p.9
  DECODE REMAINDER
      OF RECORD
   CONVERT INTEGER
   LAT. & LONG. TO
   FLOATING POINT
       DEGREES
    330^
        DOES
     COUNTY CODE
ON TAPE EQUAL COUNTY
    CODE READ IN
   340 / IS
       MTCH=1
     INDICATING
    COUNTY MATCH
        MADE
         A-ll

-------
                                    PROJECTED
                         LOOP ON NUMBER    I OF PROJECTED ED's
                    I (LOOP ENDS AT 430)
                    t
                                  DOES  THIS PROJECTED ED
                                  BELONG IN THE COUNTY
                                  OF THIS RECORD
                                  IS THE ZONE OF THIS
                                  ED THE PRIMARY ZONE
SET EW-1 FOR MOVING
FROM WEST TO EAST
IN SUBROUTINE GTGR
IS THE ZONE EAST
OF THE PRIMARY ZONE
                                      SET  EW-0  FOR
                                      MOVING  FROM
                                      EAST TO WEST
                                      IN SUBROUTINE
                                      GTGR
                                                                            CAASE1, p. 10
                                INITIALIZE  ERROR MESSAGE
                                VARIABLE  TO ZERO FOR
                                SUBROUTINE  GTGR
                                           A-12

-------
                                            CAASE1,  p.  11
    CONVERT  X &  Y  COORDINATES
    TO DOUBLE PRECISION
         CALL SUBROUTINE
         GTGR FOR ZONE TO
         ZONE CONVERSION
       WAS ERROR RETURNED
       FROM SUBROUTINE
              GTGR
PRINT ERROR MESSAGE
AND TERMINATE EXECUTION
      SET X &  Y COORDINATES
      TO SINGLE PRECISION
      400
            CONTINUE
SET CONSTANT VALUE FOR UNKNOWN
LATITUDINAL & LONGITUDINAL POINTS
FOR PSEUDO ENUMERATION DISTRICTS
              A-13

-------
                                                                   CAASEl, p.12
                      SET CODE FOR THIS
                      RECORD TO 3 INDICATING
                      RECORD OF PSETTDO ED
                          WRITE ACCEPTED
                          RECORD ON OUTPUT
                          TAPE             /
>
r
INCREMENT COUNTY
RECORD COUNTER BY

1
EDITED FILES
WITH UTM
COORDS.
 APPENDED
EDITED
FILE
IMAGES
                           IS  NUMBER OF
                           RECORDS  GT.  25
                       BACKSPACE ONE RECORD
                       ON MED-X TAPE IN ORDER
                       TO CAPTURE FIRST RECORD
                                 A-14

-------
                                   ARE THERE LAT.
                                 & LONG. COORDINATES
                                 FOR THIS DISTRICT
                                                                        CAASE1, p.13
                         NO
                        SUMMARY  DATA,
                        DO  NOT INCLUDE
                                           YES
                                    CONVERT LAT.
                                    TO SECONDS
                              CONVERT LONG.  TO  SECONDS
                              AND NEGATE  FOR WESTERN
                              HEMISPHERE
                               CALL SUBROUTINE CED009
                               FOR LAT/LONG TO UTM
                               CONVERSION
460
   ERROR WITH INDICATOR
  VARIABLE GT 4 OR LT 0
 PRINT INDICATOR NUMBER
AND TERMINATE EXECUTION
                                 WAS THERE AN ERROR
                                 RETURNED FROM SUB-
                                 ROUTINE CED009
WHAT IS THE
ERROR NUMBER
LATITUDE >80°
PRINT LATITUDE
AND TERMINATE
EXECUTION
                               LONGITUDE >180° PRINT
                               LONGITUDE AND TERMINATE
                                     EXECUTION
                                                  A-15

-------
                                      o
                             520
                                         CAASE1, p.14
                               CONVERT X COORDINATE
                               FROM METERS TO KILO-
                               METERS EASTING
                               CONVERT Y COORDINATE
                               FROM METERS  TO KILO-
                               METERS  NORTHING
SET EW-1 FOR MOVING
FROM WEST TO EAST IN
SUBROUTINE GTGR
                                IS THIS DISTRICT
                                LOCATED IN PRIMARY
                                      ZONE
IS THE ZONE EAST
OF THE PRIMARY ZO
                             530
                                         YES
                               SET EW-0 FOR MOVING
                               FROM EAST TO WEST IN
                               SUBROUTINE GTGR
                            INITIALIZE ERROR MESSAGE
                            VARIABLE TO ZERO FOR SUB-
                            ROUTINE GTGR
                            540
                            CONVERT X & Y  COORDINATES
                            TO DOUBLE PRECISION
                                       p.15
                                      A-16

-------
                                             CAASE1, p.15
>

t
CALL SUBROUTINE GTGR
FOR ZONE TO ZONE
CONVERSION
     IS THERE AN ERROR
     RETURN FROM THE
     SUBROUTINE
 560
PRINT ERROR MESSAGE
AND TERMINATE EXECUTION
1 —
CONTINUE
i
f
SET X & Y COORDINATES
TO SINGLE PRECISION

r
ARE THERE PROJECTED GROWTH
FACTORS FOR THIS DISTRICT
             A-17

-------
— — Jr°£P_°N_NUMBER OF
 (LOOP ENDS AT 580)
                           PROJECTED  GROWTH  FACTORS
t
   580
               IS THIS GROWTH FACTOR
                 FOR THIS COUNTY
               IS THIS GROWTH FACTOR
               TO BE APPLIED TO THIS
                      DISTRICT
              CALCULATE THE PROJECTED
              HOUSING COUNT
              CALCULATE THE PROJECTED
              POPULATION COUNT
              SET CODE FOR RECORD TO
              2 INDICATING RECORD OF
              MODIFIED HOUSING &
              POPULATION COUNT
                    END OF LOOP
                                                        CAASE1, p.16
                                                  t
                        A-18

-------
EDITED FILE
   IMAGES
                                                                    CAASE1,  p.17
                          590
                           SET CODE FOR THIS
                           RECORD TO I INDICATING
                           UNCHANGED CENSUS RECORD
                             600
                                  CONTINUE
                             WRITE ACCEPTED
                             RECORD ON OUTPUT
                             TAPE
                               INCREMENT COUNTY
                               RECORD COUNTER
                               BY  1
PRINT THIS
  RECORD
                              EDITED FILES
                               WITH  UTM
                                IS NUMBER  OF
                                RECORDS  GT. 25
                                    A-19

-------
                                            CAASE1, p. 18
    630
       CONTINUE
    PRINT COUNTY NAME,
    ZONE #, MINIMUM  &
    MAXIMUM X  & Y
    COORDINATES AND
    MINIMUM X  & Y  AXES.
    INCREMENT COUNTY
    COUNTER BY 1.
          HAS
    DESIRED NUMBER OF
COUNTIES FOR THIS STATE
   BEEN COMPLETED
           A-20

-------
                                                   CAASE1, p,19
          650
             SET  "IWHER"  =  2
             DENOTING  FIRST
             RECORD  OF THIS
             COUNTY  HAS ALREADY
             BEEN READ

                   ©
               660
               PRINT HEADING FOR
               SUMMARY OF STATE
               COMPLETED
                                  STATE, COUNTY NAME,
                                  COUNTY CODE, NUMBER
                                  OF RECORDS WRITTEN
                                  ON TAPE.
_ JjOOP_ON JTUMBER
|(LOOP ENDS AT 690)

I
             COUNTIES IN THIS STATE
 'RINT COUNTY NAME, COUNTY
CODE, AND NUMBER OF RECORDS
WRITTEN FOR THIS COUNTY.   /
                                                CNTY, ICNTY,
                                                    IREC
  690
              END    >r  OF LOOP
              INCREMENT  STATE
              COUNTER BY 1.
                   |p.20
                     A-21

-------
                                              CAASE1, p.20
      HAVE
   ALL STATES
 BEEN COMPLETED
    FOR THIS
   STUDY AREA
                                     700
YES
        7
    ALL ACCEPTABLE
   RECORDS HAVE BEEN
/WRITTEN—PRINT ''GOOD
  FINISH" MESSAGE
                                       720
                                         WRITE EOF &
                                        REWIND INPUT
                                          TAPE
 INCREMENT INPUT
TAPE UNIT NUMBER
 BY 1 TO OBTAIN
  NEXT STATE OF
    INTEREST
                                       (    STOP     J
                                    730
                                        ERROR IN MED-X
                                      TAPE—WRITE ERROR
                                    MESSAGE STATING SAME
                                       (    STOP    J
                   A-22

-------
                              CAASE1, p.21
  SUBROUTINE
    READIT
   DECREMENT
    BUFFER
 POINTER BY 1
 COMPUTE SHIFT
ARRAY SUBSCRIPT
  FIND BUFFER
  SHIFT VALUE
                    YES
      A-23

-------
                                           CAASE1, p. 22
LOOP_ ON NUMBERJOF
(LOOP ENDS AT 10)"
          UNUSED BUFFER_WQRDS__
                                I
             MOVE UNUSED END
              OF BUFFER TO
              BEGINNING OF
                 BUFFER
   10
END
          20
OF LOOP
             SET BUFFER READ
               POINTER TO
              BEGINNING OF
                NEW AREA
             CALL SUBROUTINE
                  NTRAN
                INCREMENT
              READ COUNTER
                   p.3
                                             t
                   A-24

-------
                              CAASE1, p.23
                                 2000
                    YES
             WRITE
            ERROR
           MESSAGE
                                     } '
COMPUTE ACTIVE
 BUFFER LENGTH
                               (    STOP    J
      IS
     FIRST
    WORD OF
   BUFFER A
    CONTROL
     WORD
         YES
          1000
NO
  WRITE
 ERROR
MESSAGE
        (    STOP    J
 RESET BUFFER
DECODE POINTER
   RETURN TO
CALLING PROGRAM
      A-25

-------
                                                                  CAASE1
                                                                  SUBROUTINE CZD009
                             SUBROUTINE
                               CED009
                        INPUT THROUGH LIST
                   INCLUDES LONGITUDE, LATITUDE,
                     AND THEIR UNITS.  OUTPUT
                   THROUGH LIST INCLUDES UTM
                      ZONE, METERS NORTHING,
                       METERS EASTING, AND
                         ERROR INDICATOR.
                                I
                          INITIALIZE UNITS
                          ERROR CONDITION
                          VARIABLE TO ZERO.
                                 IS
                              UNITS
                             INDICATOR
                             POSITIVE?
                                 IS
                               UNITS
                             INDICATOR
                             LESS THAN
                                 5?
                                        SET ERROR
                                        CONDITION
                                        VARIABLE
                                          TO 1.
                                                             I
                                        RETURN TO
                                         CALLING
                                         PROGRAM
                          COMPUTED "GO TO"
                            DEPENDING ON
                         VALUE OF LONGITUDE
                         AND LATITUDE UNITS
                              VARIABLE.
       1
NOT APPLICABLE
   TO CAASE.
       1
                                 I
NOT APPLICABLE
   TO CAASE.
       1
NOT APPLICABLE
   TO CAASE.
                        I
UNITS USED
 IN CAASE
   IS 4.
                        I
                        J
                                        A-26

-------
c




SET ERROR
CONDITION
VARIABLE
TO 2

^^


\.
                               NORTHERN
                              HEMISPHERE?
                                               SET LATITUDE
                                               SIGN POSITIVE
                                ACCEPT
                               LATITUDE
                               AS SIGNED
                                   IS
                               LATITUDE
                                WITHIN
                               . RANGE?
                            IS
                        LONGITUDE
                         SIGNED
                        POSITIVE?
                        SET LONGITUDE
                        SIGN POSITIVE
                                 ACCEPT
                               LONGITUDE
                               AS SIGNED
                                                         SET ERROR
                                                         CONDITION
                                                         VARIABLE
                                                           TO 3
COMPUTE
UTM ZONE
 NUMBER
      IS
LONG.I  < ISO
                                                                 CAASE1
                                                                 SUBROUTINE CED009
                                                                 p.2
   RETURN TO
CALLING PROGRAM
                                  A-27

-------
                                                    CAASE1
                                                    SUBROUTINE CED009
                                                    P.3
  STATEMENTS 200
         THROUGH 370(-1)
           SELECT LATITUDE
              GROUP  AND
             CALUCULATE
           VARIABLE  TERMS
STATEMENTS  370(-1) " THOURTH 380(-1)
              CALCULATE
             UTM EASTING
             AND NORTHING
                 WAS
              LATITUDE
            IN NORTHERN
            HEMISPHERE?
               ACCEPT
              NORTHING
                 UTM
        C
   RETURN TO
CALLING PROGRAM
                            SET NORTHING
                            FOR SOUTHERN
                             HEMISPHERE
                   A-28

-------
                                                 CAASE1
                                                 SUBROUTINE GTGR*
C            SUBROUTINE >
               GTGR  J
             INITIALIZE
              CONSTANTS
              FOR THESE
             COORDINATES
_LOOP_ ON _NO_._
"(END  AT  10)
OF TABLES (61)
           FIND NORTHING
           BLOCK NUMBERS
             IN TABLES
       — _	2F i00^	!
            SET ERROR
          FLAG INDICATOR
               TO 1
              SET DISK
              DATA SET
               RECORD
               NUMBER
               WANTED
                         ^OBTAINED  FROM EPA WITHOUT DOCUMENTATION
                A-29

-------
MAGNETIC
  DISK
READ TABLES
  FOR THIS
   BLOCK
                 CALCULATE
                COORDINATES
                RELATIVE TO
                NEW UTM ZONE
                  CONVERT TO
                  KILOMETERS
                 60
                  RETURN TO
                   CALLING
                   PROGRAM
                                                         CAASE1
                                                         SUBROUTINE GTGR
                                                         p.2
                       IS
                  DIRECTION
                  CONVERSION
                  FROM EAST
                  TO WEST
                      A-30

-------
C****PKUUKAM NAME: CAASE1
(,**** IhiS PROGRAM IS DESIGNED
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
c * ***
C
r.
c
c
C
C

C
C
                          TCI EXTRACT ALL THE ENUMERATION DISTRICTS
 (•UK THE COUNTIES THAT BELUNG TO THE SAME STUDY AREA,  IT THEN
 UNITES AND EDITED MED-X TAPE FOR THIS AREA WHERE EACH RECORD
 CONTAINS ALL THE INFORMATION FROM THE MED-X TAPE AND ALSO THE
 ZUnt NUMBER AND UTM COORDINATES.

  THL USER CAN OPTIONALLY DEFINE PSEUDO ENUMERATION DISTRICTS FOR
    GROWTH SINCE THE LAST GENERAL CENSUS AND CAN ALSO OPTIONALLY
    DEFINE GENERAL AREAS OF GROWTH BY THE LOCATION COORDINATES OF
    EACH RECTANGLE AND THE POPULATION COUNT AND HOUSING COUNT
    COEFFICIENTS RESPECTIVELY.

  StE THE CAASE USER'S MANUAL (COMPUTER ASSISTED AREA SOURCE
    GRIDDING PROCEDURE (CAASE) USER'S MANUAL,  EPA-450/3-74-035
    AS REVISED) FOR A COMPLETE DESCRIPTION OF  INPUT, OUTPUT, AND
    RUNNING INSTRUCTIONS,

  THLSE DIMENSIONS ASSUME NO MORE THAN 30 COUNTIES FROM ANY ONE
STATE IN THE STUDY AREA, NO MORE THAN 100 PSEUDO (NEW) ENUMERATION
DISTRICTS IN THE STUDY AREA AND NO MORE THAN 100 RECTANGLES OF
GKUrtTH (POSITIVE OR NEGATIVE) IN THE STUDY AREA.

 DIMENSION *H)RDS(5259)
 DIMENSION XDATA(2S), ICNTY(30),
lTL(b), X(100), Y(100),  XL(IOO),
2ULFUOU), XRM(JOO), YTP(IOO), XX(IOO),  YY(IOO),
3UOJ, KUUNTY(IOO), HCOUNT(IOO),  PCUUNTUOO)
 KLAL*8 XLAT,XLONG,XXLAT,XXLOMG,FMNOR,FMEAS
 KEAL*8 DYOUT,DXOUT

     ASSIGN READER UNIT  NUMBER
     ASSIGN PRINTER UNIT NUNbER
                                  00000100
                                  oooooaoo
                                  00000300
                                  oooooaoo
                                  00000500
                                  00000600
                                  00000700
                                  oooooaoo
                                  00000900
                                  00001000
                                  00001100
                                  00001200
                                  00001300
                                  00001400
                                  OOOOlbOO
                                  00001600
                                  00001700
                                  ooooieoo
                                  00001900
                                  00002000
                                  00002100
                                  00002200
                                  00002300
                                  00002400
CNTY(b,30),  AQCR(5),  IREC(30),  STA00002bOO
YL(IOO),  JZON(IOO),  HCOEF(IOO),  PC00002600
                KZONUOO),  ISTAT(100002700
                                  00002800
                                  00002900
                                  00003000
                                  00003100
                                  00003200
                                  00003300
                                  00003400
                                  00003500
                                  00003600
                                  00003700

-------
>

KJ
        C
        C

        C
        C
          ASSIGN MED-X TAPE UNIT NUMBER
          ASSIGN CAASU OUTPUT UNIT NUMBER
      1TAP2=4
      ICNT=1
      1ND1=4
           L) ITAP2
C***** READ FIRST MED-X BLOCK AND SPACE PAST HEADER  BLOCK.
C
      I.ALL NTRAN (ITAPl,3,5236,rtORDS,lOERR,22)
      IK UOEKR.LT.O) GO TO 730
      1PTK=7
C******RtAD INPUT LARD DATA, NUMBER Of- STATES, STUDY  AREA  NAME,  AND
C          PRIMARY UTM ZONE
C
(,******L**U I IUN*********
C       bTATLS MUST HL RtuULSTEU IN THEIR ORDER ON  THE  MED-X  TAPE.
C
      KtAu (li«EAU,10) NSTAT,AQCR,KZONE
10    f-UKMAl (l4,5A4rl4)
      •VKilt (IPRIN1,20) AQ(.k,NSTAT,KZONE
?0    KUKMAT ClSTUDY AREA IS ' , bA4/hX , 'NO, OF STATES  INCLUDED  IS  ',14,
     10X,' PRIMARY UTM ZONE IS *,I4///)
C
O****ntAJ I,M PK'CjJECrt-D FACTORS TO Bt. APPLIED TO ENUMERATION
c         DISTRICT POPULATION (RECTANGLES or GROWTH)
C
      KtAD (Ir
-------
      IF CIGROTH.EQ.O) GO TO  150                                         00007500
      AKIIE (IPRINT,40)                                                  00007600
40    FurtMAf (///' ******** UTM(KM) *******   UTM',13X,'**  00007700
     ICutFFlLIENT ***'/5X,'X',9X,'Y',bX,'X LENGTH  Y LENGTH ZONE  ','   H00007800
     2UU31UG  POPULATION'//)                                             00007900
      DU 130 JJslrlOO                                                    00008000
      REAU (I HE AD,50) X (JJ),Y(JJ),XL(JJ),YLIJJ),JZON(JJ),HCOEF(JJ),PCOEFOO006100
     KJJ)                                                               00006200
50    HJKMAT (4F10.0,15,2UO.O)                                          OOOOB300
C                                                                        00008400
C     LAST CARD TtST                                                     00008500
      IF (X(JJ).NE.O.) GO TO  70                                          00008600
      IPKUJ=JJ-1                                                         00008700
      rtrtllfc (IPK1MT,60) IPROJ                                            00008800
60    FuKMAT CO',' NUMBtR OF RECTANGLES OF GHOrtTH = ',14)               00008900
      bU lu 150                                                          00009000
70    rtKUE (iPRlNTfSO) X (J J ) , Y (J J ) , XL ( J J ) , YL (JJ ) , JZUN (JJ ) , HCOEF (J J ) , PC000009 1 00
     Itf-(Jj)                                                             00009200
C                                                                        00009300
C*****PLAtt RECTANGLES OF GROWTH INTO PROPER ZONE                        00009400
C                                                                        00009500
C     ALKEAUy PRIMARY ZONE ?                                             00009600
      IF CJZON(JJ).EU.KZONE)  GO TO 1?0                                   OQ009700
C                                                                        00009800
C     UtltNMlivit DIRECTION t)F  CONVERSION                                  00009900
      U (JiiJW(JJ).GT.KZONL)  GO TO 80                                    00010000
      LK=1,0                                                             00010100
      GU Fu 90                                                            00010200
HO    Lrt=0.0                                                             00010300
901bAU=0                                                             00010400
      UXUUF=X(JJ)                                                         00010500
      UfuUF=Y(JJ)                                                         00010600
      CALL GTGM (DYOUT,DXOUT,EA,IBAO)                                    00010700
      U (ItiAD.EU.O) GO TO 110                                           00010BOO
      ^Rilt (IPRlNTrlOO)  YCJJ)^X(JJ)                                     00010900
100   FUKMAF  (///»' ERROR IN PLACING RECTANGLE OF GROWTH INFO PROPER UTM00011000
     1  ZunE,  1, X   = ',?F15.2)                                           00011100

-------
              GU  TO 720                                                          00011200
        C                                                                        00011300
        C     CALCULATE  TOP RIGHT HAND CORNER OF RECTANGLE  IN  PRIMARY  ZONE,      00011400
        C         I.E., NEED ONLY MIN AND MAX X AND  Y                             00011500
        C                                                                        00011600
        110   X(JJ)sDXUUT                                                        00011700
              Y(JJj=DfOUT                                                        00011800
        120   XKH(JJ)=X(JJ)+XL(JJ)                                               00011900
              YlP(JJ)=Y(JJ)fYL(JJ)                                               00012000
        130   CONTINUE                                                           00012100
              NrtUL (IPRINT,140)                                                 00012200
        UO   f-UKMAT  (//' RECTANGLES OF GROWTH EXCEEDED MAXIMUM  STORAGE  ALLOCA TEOOO12300
              ID')                                                                00012400
              GO  TO /20                                                          00012500
        C                                                                        00012600
        C*****KEAU IN COORDINATES AND POPULATION FOR PROJECTED ENUMERATION       00012700
        C         DISTRICTS IF THERE ARE ANY                                      00012800
        C                                                                        00012900
>       C     1LU3--PHOJECTEO ENUMERATION DISTRICTS  (ED'S)?  YES=1,  M0=0        00013000
w       ISO   IF  (IEDS.EQ.O) GO TO 220                                           00013100
              ARlte (IPRINT,160)                                                 00013200
        160   FOKMAf  (//3BX,'** COEFFICIENT **'/' UTM  X(KM)  UTM  Y(KM)  ZONE  STATEOOO13300
              1 C.\IY   HOUSING PDPULATION'//)                                      00013400
              DO  <;00  KKsl,100                                                    00013bOO
              KtAU (IREAD, 170) XX(KK),YY(KK)fKZON(KK),ISTAT(KK)fKOUNTY(KK),HCOUN00013600
              1f(KK),PCOUNT(KK)                                                   00013700
        \7(>   FUKMftf  (2F'10.0f 315,2F 10,0)                                         00013800
              U  (XX(KK).NE(0.) GO TO 190                                        00013900
              lMtwtD3sKK-l                                                        OOOHOOO
              wKlIt (IPRINT,1HO) NfcWtOS                                          OOOiaiOO
        180   FUK.-IAI  ('0',' NUMHtR OF NEW EtJU^ERATION  DISTRICTS  s  »,ia)          000ia200
              UO  TO dtQ                                                          00010300
        190   ,»KHt (IPRINT,170) XX(KK),YY(KK)fKZON(KK),ISTAT(KK),KOUNTV(KK),HCOOOOi«aOO
              10^1(^KJ,PCOUNT(KK)                                                 0001U500
        200   CuUUiMUE                                                           OOOiabOO
              Ah
-------
     1 STORAGE ALLOCATED'//)
220   CONTINUE
c
c     INITIALIZE FILE COUNTER
      IENU=O
c
C**** REAU IN STATE NAME AND FIPS CODE AND NUMBER OK COUNTIES IN THE
C     STATE AND THEIR FIPS CODE NUMBERS AND NAMES
230

240
      REAU (IREAD,10) NCNTY,STATE,KSTATE
      KCML) (1READ,230) (ICNT Y (N) , (CNT Y (M,N) ,M=1, 5), N=l ,NCNT Y)
      FORMAT (I4,5A4)
            (IPRINT,240) CICNTY(N),(CNTY(M,N),M=l,5),N=l,NCNTY)
             CO',10X,I4,5A4)
      WHITE (IPRINT,250) STATE,NCNTY
      l-OK^Af ('0',5X,'THE STATE OF ',5A4,' HAS ',14,' COUNTY(S)')
C
C**** bt I  COUNTERS FOR NUMBER OF ENUMERAHON DISTRICTS PROCESSED FOR
C     EACH COONTY 10 ZERO. (IREC)
C
      uo
260   CONTINUE
C*****3U CONSTANTS,
270   CU.MTIMUE
280
C
C
C
C
            UPRINT,2BO) (CNTY(J,I),J = 1,5)
             (///,5X,'COUNTY ',5A4)

      MAS [HE FIRST RECORD OK A NEW COUNTY ALREADY BEEN READ WHILE
                   ANOTHER COUNTY ?
      L.U lu (2^0,.SJO), li.HER
C*****KtAU MED-X TAPl AND SELECT ALL ENUMERATION DISTRICTS THAT LIE IN
00014900
00015000
OOOlblOO
00015200
00015300
00015400
00015500
00015600
00015700
00015800
00015900
00016000
00016100
00016200
00016300
00016400
00016500
00016600
00016700
00016800
00016900
00017000
00017100
00017200
00017300
00017400
00017500
00017600
00017700
00017bOO
00017900
0001BOOO
00018100
00018200
00018300
0001B400
00018500

-------
U)
        c
        c
        290
        500
        310
        320
      THE REQUIRED COUNTIES.

      IPTK=lPTRt23
      If (ILENGW.LT.UPTR + 21)) CALL READIT (&290)

      OtCUOE (IDBLK,300,WORDS(IPTR)) LSTATE,XOATA(I ),JCNTY
      HJHMAT (I2,A2,I3,21A4,A2,F7.0,F8.0,2J10)
      II- C(IREU/bOOO*5000).EQ.IREQ) PRINT. 310, LSTATE, JCNTY, IREQ
      f-UKrtAT (' STATE,COUNTY,NUMBER ',3110)
      U (LSTATE.NE.KSTATE) GO TO 290
      DECODE (IOBLK,320,WORDS(IPTR)) (XDATA(L),L=2,23),XHOUS,XPOP,LONG
     1A1
      F UKMAT (7X,21A«,A2,F7.0,F0.0,2JIO)
        C*****CUNVtrtr  INTEGER LAT/LONG TO FLOATING-POINT.
330
C
C* * * *
340

C
c * * * *
c
c
        C
        C

        C
        C
XLAT=XLAT/10000.
U (JCim-ICMY(I)) 290,340,630

HA\/L HOUND A COUNTY MATCH.
II- (MfCH.EQ.l) bf) TO 440
i-11Ch=l

AOU rttrt ENUMERATION DISTRICTS TO OUTPUT TAPE IF THERE ARE ANY
  (-UK THIS COUNTY
                 ciLus.EQ.o)  GO TO aao
              UU
      CUUufY MATCH ?
      II- UOUUTY(L)-JCNTY) a30, 350,^30
        C
        C
                   PRIMARY ZONE ?
         UZUiM(L).E(J.KZUNt) GO TO UOO

         t-rtMinE aiRECTIUiM OF  CONVERSION
  00016600
  00018700
  00016800
  00018900
  00019000
  00019100
  00019200
  00019300
  oooi9aoo
  00019SOO
,L00019600
  00019/00
  00019800
  00019900
  00020000
  00020100
  00020200
  00020300
  00020400
  00020bOO
  00020600
  00020700
  00020600
  00020900
  00021000
  00021100
  00021200
  00021300
  00021400
  00021500
  00021600
  00021700
  00021600
  00021900
  00022000
  00022100
  00022200

-------
      II-  (KZON(L).GT.KZONE) GO  TO  360                                    00022300
      t«=l,0                                                             00022400
      GO  10 3/0                                                          00022500
360   Ert=OfO                                                             00022600
370   ibAO=0                                                             00022700
           =XX(L)                                                        00022600
           =YY(L)                                                        00022900
      CALL UTGR  (DYOUT,DXOUT,EW,IBAD)                                    00023000
      If  (IbAD.EQ.O) GO TO 390                                           00023100
      ,>RITE CIPRINT,380) YY(L),XX(L)                                     00023200
380   I-URMAT (///,' ERROR IN PLACING NErt ENUMERATION  DISTRICT  IN  PROPER  00023300
     10 I'M ZONE,  Y, X = ',2F15.2)                                         00023400
      GO  10 /20                                                          00023500
390   AX(L)=OXOUT                                                        00023600
      YY(L)=UYOUT                                             t           00023700
400   CONTINUE                                                '           00023BOO
C                                                                        00023900
C***** HK1TE GOOD PSEUDO ENUMERATION DISTRICT RECORD  ON OUTPUT  TAPE      00024000
C      rtllH DUMMY LATITUDE AND  LONGITUDE FOR RECORD PADDING              00024100
C                                                                        00024200
      XLOf»G=l .QE-HO                                                      00024300
      XLAT=1.0E+10                                                       00024400
C                                                                        00024500
C******  SET CODE INDICATING PSEUDO ENUMERATION DISTRICT  RECORD          00024600
C                                  '                                      00024700
      K0l)t = 3                                                             00024HOO
      «KIft (ITAP2,410) ISTAT(L),KOUf4TY(L),HCOUNT(L),PCOUNT(L),XLONG,XLA00024900
     IT,KZONt,XX(L),YY(l),KODE                                           00025000
410   FORMAT (12,2X, I4,86X,f-7.0,F8.0,2D25.16,15,2F15.2, 14)               00025100
      i»KITE (IPRINT,420) ISTAT(L),KOUNTY(L),HCOONT(L),PCOUNT(L),XLONG,XL00025200
     1 A! , K/i)NE,XXCL) , YY CD ,KODE                                          00025300
420   fUKriAT ('0', 12,3X,I'i,86X,h7.0,F8.0,/,JX,2D25. 16,15, 2F 15. 2, I4,//)   00025400
      lKtL(l)=lREC(I)tl                                                  00025500
430   LOMTlivjut                                                           00025600
C                                                                        00025700
L*** Fl.vJlbMEO ^ITH PSEUDO ED'S  dElNG ADDED.                              00025HOO
C                                                                        00025900

-------
OJ
00
      uurt UND THE UTM COORDINATES FOR THIS DISTRICT AMD ADD TO
       AN OUTPUT  TAPE.
           C***** NUfl PROCESS EXISTING ENUMERATION DISTRICTS* FIRST RECORD WAS
           C      ALREADY READ A| STATEMENT 680
           C
           C
           C
           C
           C      U LATITUDE AMD LONGITUDE ARE ZERO* THEN  THE RECORD IS A
           C      SUMMARY RLCURD, DUN'T PROCESS IT,
           440   IF  (XLOUGtXLAT.EGl.O.) GO TO 290
                 XXLAT=XLAT*3.6D8
           C
           C     CONVERT COORDINATES OF LATITUDE AND LONGITUDE TO UTM
           C**** PUR CEU009, rtf.SF LONGITUDES ARE NEGATIVE, WE ARE ALWAYS DEALING
           C
           a?o

           aHO
           490

           bOO
      ftlTH WEST.
      XALUNG=-XLQNG*3.6D8
      CALL CED009 ( XXLONG, XXL AT , I ND1 , MZON, FMNUR, FME AS , MERR )
      Ai^Y NON-ZERO ERROR CODES RETURNED FROM CED009?
      IK  (MERR) 4bO,b20,450
      bO  10 (abOraBOrbOO),  MERR
      rtKlTE (lPKlNT,a/0) IND1
      FORMAT (ix, 'CALLED CEUOO^ WITH  INDI GT a OR INDI LT o» INDI= ' ,\
      uu  ?o uo
      rtKllL (IPRlNT,a90) XLAT
      FORMAT (3X,'LAT EXCEEDS bO  OKG,  LAT=  '/D^S.lb)
      00  JO 7dO
      *'.HiTE (iPHlNlfSlO) XLONG
      FuRMAT (3X, 'AHS(LONG) GT 180 DEG, LONG= ',De?5.16)
      ou  10
           C
           C
           C
    CONVENT METERS TO KILOMETERS

      XUUT=FMEAS/1000.
      YOUT=FM\|OR/1000.
C
C*****IS THIS DISTRICT LOCATED IN THE PRIMARY UTM ZONE
C
      U UZON.EU.KZONE )  GO TO 570
  00026000
  00026100
  00026200
  00026300
  00026«00
  00026500
  00026600
  00026700
  00026800
  00026900
  00027000
  00027100
  00027200
  00027300
  00027400
  00027500
  00027600
  00027700
  00027800
  00027900
3)00028000
  00028100
  00028200
  00028300
  00028400
  00028500
  00028600
  00028700
  00026800
  00028900
  00029000
  00029100
  00029200
  00029300
  00029400
  00029500
  00029600

-------
>
OJ
c
c
c
530
540
              NEED  TU CONVERT  TU PRIMARY ZONE., DETERMINE EAST-WEST DIRECTION
              COnvtKSIOiM
                IF  CrtZON.GT.KZONE) GO  TO 530
                tw=l.O
                GO  TO 540
OF
S50
560
                DYUUT=YOUT
                UXOUT=XOUT
                CALL GTGR  (DYOUT,0XOUT,EW, IHAD)
                IF  UbAD.EQ.O) GO TO 560
                rtKITE  (IPRINT,550) YOUTfXOUT
                HJRMAT (///»' ERROR IN CONVERTING COORDINATES TO PRIMARY UTM
               1  Y, X  = ',2Flb.a)
                GO  10
      XOUfsDXUUT
      YOUUUYOUT
C***** ARE THERE PROJECTED FACTORS FOR THIS EU, I.E., IS IT MTHIN A
C
C
C
c
570

C
r.
c
c
                          OF GNOrtTH.
                        RECTANGLES OF GROWTH)
                    RECTANGLES 10 CHECK ?
                IF UGK01H.EU.O) GO TO 590
                00 bdO M=1,IPROJ
                CHtCr\ Rt'CTANGLE SIDES
                IF CX(i^).Gl .XOUT .OR.XRH(M).LT.XOUT) GO  TO 5SO
                IF (Y(M).GT,YOUT,OR.Y1P(M).LT,YOUT) GO  TO 580

                APPLY COEFFICIENTS
                XhUU3=XH003*HCOt F (M)
                XPUP=XPJP*PCOEF (M)

                5t f RECORD TYPE CODE TO INDICATE MODIF ICAT ION MADE TO RECORD
     00029700
     00029800
     00029900
     00030000
     00030100
     00030200
     00030300
     00030400
     00030500
     00030600
     00030700
     00030800
     OOOJ0900
ZONE,00031000
     00031100
     00031200
     00031300
     0003|«00
     00031500
     00031600
     00031700
     00031800
     00031900
     00032000
     00032100
     00032200
     00032300
     00032400
     00032500
     00032600
     00032700
     00032800
     00032900
     00033000
     00033100
     00033200
     00033300

-------
               KUDE=2                                                             00033400
               GO  TO 600                                                          00033500
         580   CONTINUE                                                           00033600
         C                                                                        00033700
         c     IMU  MOUSING  OR  POPULATION  MODIFICATION   SET  RECORD TYPE.            00033800
         590   MJUL=1                                                             00033900
         600   CONTINUE                                                           00034000
         c                                                                        00034100
         C*****wHlTE GOOD  RECORD  ON  OUTPUT  TAPE.                                  00034200
         C                                                                        00034300
               NKIIE (1TAP2,610)  ESTATE,XDATA(1),JCNTY, ( XDA T A (L ), L = 2 ,23) , XHOUS, XPOOO 34400
               10P,XLO!MU,XLAT,KZONE,XOUT,YOUT,KODE                                 00034500
         610   ^KMAT  (12,A2, 14, 21 A4, A2,F 7 ,0, FB.0 , aDe!5.16, 15, 2F 15.2,14)           00034600
         C                                                                        00034700
         C*****  THIS SECTION  PK1NTS  THE  FIRST  25  RECORDS  (INCLUDING THE  ADDED    00034800
         C     LuUrttrtAHUN  DISTRICTS)  FOR  EACH COUNTY.                           00034900
         C     CAN tiE  DELETED OR  MODIFIED  TO  PRINT  ALL RECORDS IP  DESIRED.       00035000
         C                                                                        00035100
>              lKEC(I)=IREC(I)tl                                                  00035200
*•              U  (IREC(I).GT,25)  GO TO  290                                       00035300
°              rtKHE (1PRINT/620)  LSTATEf XDATA( 1) , JCNT Yr (XDAT A (L ), L = 2, 23) , XHUUS, X00035400
               lPUH,XLONG,XLAT,KZONE,XOUT,YOUTrKODE                                00035500
         620   FUrtMAf  CO',1X,I2,A2,I3,21A4,A2,F/.0,F8,0,/,3X,2D25.16,15,2K15.2,100035600
               14,//)                                                              00035700
               bu  ID 290                                                          00035800
         C                                                                        00035900
         C*****rtAVt. FOUND  ALL ENUMERATIONS  DISTRICTS  FOR O'ME  COUNTY, LOOK  FOR    00036000
         C     ANOTHER COUnTY,                                                    00036100
         C                                                                        00036200
         630   ClHFIr-iUE                                                           00036300
               nKllE (IPRINT,640)  (CN'TYCJ, I), J = 1,5),KZONE                         00036400
         640   FuHMAl  ('0',5X,'FOR COUNTY  ',5A4,5X,'   ZONE  NO,', HO//)            00036500
         C                                                                        00036600
         C*****IIMt.  TO BEGIN  A  NE^ COUNTY,  IF  THERE  IS ONE.                       00036700
               If  UtttO.Eu.l)  GU  TO  660                                           00036800
               1-Iti                                                              00036900
               II-  (I-inCNTY) 050,650,660                                           00037000

-------
650   lflHER=2                                                            00037100
      GO  [0 2/0                                                          00037200
C                                                                        00037300
c*****hAvt REACHED AN EOF ON THE INPUT FILE--SO,  A  STATE  HAS  BEEN  ENDED.00037400
bbO   uRIlE (IPRI'*T,6/0) STATE                                           00037500
670   FORMAT (//,5X,'THE STATE OF  ',5A4,':',/,1 OX,'COUNTY  NAME',19X,'CODQ0037600
     It NU.',10X,'NO. OF RECORDS WRITTEN ON TAPE')                       00037700
      DU o90 K=l,NCiviTY                                                   00037800
      ^RHE IIPRINT,680) (CNT Y (J, K ), J=l, 5), ICNT Y (K), IREC (K)              00037900
680   FORMAT ('0',1 OX,5A4,1 OX,14,14X,I 4)                                 00036000
690   CUHllNUE                                                           00038100
C                                                                        00036200
C***** IS THERE ANOTHER STATE IN THIS STUDY AREA?                        00038300
      ILnT = IC *IT + 1                                                        00038400
      IK (NSTAT-ICNT) 700,220,220                                        00036500
C                                                                        00038600
C*****AI_l DESIRED RECORDS HAVE 3EEN BRITTEN.                             00038700
700   ^RUE (IPRINT,710)                                                 00038800
710   FORMA! (///,3X,'GOOD FINISH')                                      00038900
720   EuD FILE ITAP2                                                     00039000
      REMIND 1TAP2                                                       00039100
      S!UP                                                               00039200
750   rtKlfh (IPRINT,740) IOERR                                           00039300
740   FOKMAT ('11/0 ERROR IN MED-X TAPE: ',13)                           00039400
      STOP                                                               00039500
C                                                                        00039600
      SUBROUTINE READ IT                                                  00039700
      DIMENSION ISHlFT(2i)                                               00039800
      OAIA I SHIFT /10,2, 17,9,1,16,8,0,15,7,22,14,6,21,13,5,20,12,4,19,1100039900
     1,3,la/                                                             00040000
      DA1« TEST /'a;Qa)Un)a)'/ ,NTRANC /!/                                   00040100
      1H?R=1PTR-1                                                        00040200
                iMC-(N TRANC/23*23)                                        00040300
                EU.O) INDEX=23                                           00040400
      1*=I3HIFT(1NDEX)                                                   00040500
      IF (IX.EQ.O)  GO TiJ 20                                              00040600
      LM> 10 1 = 1,IX                                                       00040700

-------
                                                                         00040600
      IPTK=IPTRU                                                        00040900
10    LLMTINUE                                                           00041000
20    IX=IXH                                                            00041100
      CALL NTHAN (I T API , 3, 5236,40RPS (1X), IOERR, 22)                       00041200
      N[KrtNC=NTRANCtl                                                    000^1300
      if- (IOtKR.LI.0) GO TO 50                                           OUO<4iaOO
      iLtNb.-jss236tix-i                                                   oooaisoo
      If- (rtUrtDSdJ.NE.TKST) GL) TO 30                                     00041600
      IPTr( = ^                                                             00041700
      KLTUKN                                                             00041800
30    MWIlt (IPRINT,40) WORDS(l),lLENGl(y, IPTK, NTRANC r WORDS                00041900
aO    HjKC-iAT (MNTRAN tRROR, AORU(l) = ',A6,' JLENG^ =',I6,'  IPTR  =', 16,00042000
     1' NTRAHC = 'rlt>»/,2b2(lX»20A6,/))                                  0004^100
      SluH                                                               00042200
SO    U (ldL«H.EQ.-2,AND.IFCNT,EQ.O) GO TO 70                           00042300
      nKllE (IPRINT,60) IOERR,NTRANC                                     00042400
bo    HUKMAT cn/o ERROR IN MLD-X TAPE: ',13,' NTRAN COUNT =  ',17)      00042500
      bTUP                                                               00042600
70    II-CNT = 1                                                            00042/00
      NlKANC=0                                                           00042800
      CALL NTrtAN (10,22)                                                 00042900
      1P1H=7                                                             00043000
             1                                                           00043100
                                                                         00043200
                                                                         00043300

-------
JS
OJ
        C
        C
        C
         10
30
        60
70

80
90

100
110

120

130
140
      SUbRUUHNE CED009 ( XUNG, XL AT , IND 1 , MZUN, F MNOR, FME AS, MEKR)
      MODIFIED BY HAWS, RII, 12/72 FOR UNLY 1 SPHEROID, I . I . WHERE IND2
      i>EuUtUC POSITION TO UNIVERSAL TRANSVERSE MERCATOR COORDINATES
      DtCH/COMPUTER CONCEPTS
      CuMMON /CORD/ COORO
             COORO(16,7),FMPHI
             DELTA, ALPHA,DELT AO, DELTAL , BETA
             GAMMA, DDELTA,FTERM
             HMLAT,FIMLNG,FILNGrF ILAT,FMi\J,FMEAS
             FMNOR,XLNG,XLAT
              Rt-AL*H
              REAL*tt
              REAL*8
      RtAL*B
      MtKH=0
      U (IND1)
                         10,10/^0
              RETURN
              IF  UNUl-b) 30,10,10
              GU  TO (UQf bO,bO> 70), IND1
              FILNb=XLNG*7868i.7792DO
      GO 10 80
      FILNG=XLNG*.3H146972656DO
      r lLAT=XLAT*,38l4b972656DO
      GO 10 80
      FlLN(i = XLNG*2. 00264806200
      FILAT=XLAT*2,06264806?DO
      GO FO 80
      F1LUG=XLNG
              !(-  (F1LAT) 90,100,100
              UMLATs-FILAT
              GO  TO  110
              I- IMLAT=FILAT
              LUMINUE
              if-  CFIMLAT-2.88D10)  130,130,120
      KETUNU
      IP  (ULNG)
                          140, 150, ISO
 00000100
200000200
 00000300
 00000400
 OOOOObOO
 00000600
 00000700
 00000800
 00000900
 00001000
 00001100
 00001200
 00001300
 00001400
 OOOOlbOO
 OOOOlbOO
 00001700
 00001800
 00001900
 00002000
 00002100
 00002200
 00002300
 00002400
 00002bOO
 00002600
 00002700
 00002800
 00002900
 00003000
 00003100
 00003200
 00003300
 00003400
 00003500
 00003600
 00003700

-------
      UU TO 160                                                          00003800
150   FIMLNG=FILNG                                                       00003900
160   CONTINUE                                                           00004000
      If- (FIMLNG-6.48D10) 190,180,170                                    00004100
170   MEKK=3                                                             00004200
      KtTUKN                                                             00004300
180   MZUlM=i                                                             00004400
      C.O TO 200                                                          00004500
190   MZON=(FILNGt6.696D10)/2.16D9                                       00004600
200   COuTlNOE                                                           ArtArt/,-F00
      JP (FIMLAT-72.D8) 260,270,210                                            00
210   CONTINUE                                                                 00
      If (FIMLAT-144.D8) 270,280,220                                           00
220   CONTINUE                                                                 00
      U CFIHLAT-198.D8) 280,290,230                                           00
230   CONTINUE                                                           00005300
      If IFIMUAT-234.U8) 290,300,240                                     00005400
240   CONTINUE                                                           00005500
      U (FIMLAT-262.8D8) 300,310,250                                    00005600
250   CONTINUE                                                           00005700
      IF (FIMLAT-277.2D8) 310,320,320                                    00005800
260   J=l                                                                00005900
      FMHHI=360.U7                                                       00006000
      GO 10 330                                                          00006100
270   J=2                                                                00006200
      M*iPhI = 108.[)6                                                       00006300
      UO 10 330                                                          00006400
280   J=3                                                                00006500
      HMPHI=180,D8                                                       00006600
      GO 10 330                                                          00006700
290   Jaa                                                                00006800
      FMPHI=216,D8                                                       00006900
      bu 10 330                                                          00007000
300   J=5                                                                00007100
      H
-------
320

330


340


350
360
370
380

390
400
C
GU TU 330
J = 7
FMPHI=282.608
DELTA=lFIMLAT-F-MPHI)*.OOOOiDO
I = b
MLhHA=COURD(7,J)+CQGRD(8,J)*DELTA
ALPHA = COORD(I,,mALPHA*DElTA
1 = 1-1
U (I) 350,350,340
UtLTAd=DELTA*ALPHA;
      UtLTAU=(ai6.D7*FTEKMtl08.D7)-FILNG
AUPHA=CUORD(15,J)+CUUHU(16,J)*DELTAQ
riETA=CUORD(l6fJ)*DtLTAL
l = ia
GAMMA=CUORD(l,J)tALPHA*DtLTAQ-BtTA*DLLTAL
             DELTAL + BETA*DElTAQ
             -lf J)fGAMMA*DELTAQ-ODtLrA*l)ELTAL
      btf A = G
IP CI-10) 370,370,360
GAMMA=CUORD(10,J)+ALPHA*DtLTAQ-DtLTAL*BETA
     A = ALPHA*UELTAH-BfcTA*DELTAQ
  ^ = CUURD(9,J)tGAMMA*L)ELTAQ-DDELTA*r)ELTAL
    Ssb, ODb-(GAMMA*DfcLTAL-»-DDELTA*DELTAQ)
IF (XLAT) 380,390,390
FMNUR=1 .OD7-FMN
GU fO i\uQ
h |vn\iUK = F HN
Kt IUKN
00007500
00007600
00007700
00007800
00007900
00008000
00008100
00008200
00008300
00008400
OOOOttVQO
00008600
00008700
00008800
00008900
00009000
00009100
00009200
00009300
00009400
00009500
00009600
00009700
00009800
00009900
00010000
00010100
00010200
00010300
00010400
00010500
00010600
00010700
00010800

-------
               bLOCK DATA                                                        00000100
               COMMON /CORD/ COORO                                               00000200
               KtA|_*8 COORD(16,7)                                                00000300
               RLAL*8 CORD12(16),CORU22(16),CORD32U6),CORD42(16),CORD52(16),COR000000400
              162(16),CORD72(16)                                                 00000500
               tUUIVALtNCE. (COORD(1,1),CORD12(U),  (COORO(1,2),CORD22(1)), (COOR000000600
              1(1,3),CUR032(1)), (COORO(1,4),CORD42(1)),  (COORD( 1, 5) ,CORD52 (1)), 00000700
              2(COURO(1,6),CORD62(1)),  (COORD(1,7),CORD72<1))                     00000800
               UATA CORD 12 /.<4890603699D-05r . 0211 7834 700-10,. 020609^0870-15,. 00210000 0900
              13b279VD-20f .001 33aa6^4lD-2S,.000215a 1920-30,. 000 10512110-35,. 000021 00001000
              29/660-40,1105343,1000,.6279435439007,-.0545206260007,-.0990165054000001100
              30/,.0221578063007,.0222595275007,-.0086799370007,-.0054352765007/ 00001200
               OA1A CORD22 /.55696790600-05,,07874245770-10,.03666185350-15,.010700001300
              13515290-20,.00438007640-25,.00161514760-30,.00065626450-35,.00026200001400
              2/o9lU-40,3318605.326DO,,5526156860007,-.1381539215007,-.046404365600001500
              3UO7,.0406929868007,-.0023737423007,-.0091961450007,.0037826/46007/00001600
              4                                                                  00001700
               UAIA COR032 /.75211845170-05,.21849906620-10,.11355932940-15,,057600001800
>             19656380-20,.03235443170-25,,01868208320-30,,01112831890-35,.00676000001900
£             2t>7 100-40,5538411.77900, .41 06355473007,-, 1 572825396007 , .011804731 4000002000
              30/,. 0195232064007,-.0109480462007,,0014859044007,,0015131135D07/  00002100
               DATA CORD42 /.96797835200-05,,40779894320-10,,26595603660-15,,183300002200
              18964620-20,.13615078350-25,.10502087790-30,,08335678680-35,,06753300002300
              ?4l39u-40,6651204,600,.3195949863007,-,1383886ft79007,.026610229600700002400
              3,,0058104357007,-.0067036894007,.0025282671007,-.0002169360007/   00002500
               UATA CORD52 /1.41637119600-05,.9448163773D-10,.89391447320-15,.92900002600
              195252230-20,1.03365594690-25,1.19633210130-30,1.42421203670-35,1.700002700
              23081240420-40,7765697.700,.2187148430007,-.1027623620007,,02/9208100002800
              357007,-.0025456841007,-.0018513695007,.0012562355007,-.0004359447000002900
              40//                                                               00003000
               UATA CURD62 /1.87232155130-05,1.69538824340-10,2.11751512100-15,2.00003100
              193981586550-20,4.35574931170-25,6.72180600660-30,10.66954150120-3500003200
              2,17.28860549010-40,8323452.600,,1655376293D07,-.0799485147007,.02300003300
              38924408007,-.0039827738007,-.0003223536007,.0005528952007,-.00025200003400
              423e8007/                                                          00003500
               UATA CUW072 /2.43109558170-05,2.89814185190-10,4.6980991563D-15,8.00003600
              150968551960-20,16.44794126800-25,33.10142827020-30,68,53298931090-00003700

-------
235,144.84625610260-40,8714033.100,.1275252086D07,-,0624825325D07,.00003800
30 195643581 DO7,-.0039646076007,.0002575786007,.0002080265007,-.000100003900
42SM42D07/                                                        00004000
                                                                   00004100
 tNL)                                                               00004200

-------
      SUHKUUTINE GTGR (CN,CE, I*, IBAD)                                   00000100
C*****rniS PROGRAM CONVERTS POINTS FROM ONE ZONE INTO ANOTHER ZONE.     00000200
C     If KtUUIRES Y,X COORDINATES.                                      00000300
C     NEEDS EW=0 GOING FROM EAST TO wEST. EW=1 GOING FROM WEST TO EAST. 00000«00
C     IbAu=l INDICATES AN ERROR.                                        00000500
      DIMENSION B1(B,8), NR(6i)                                         00000600
      KEAL*B bl,Al,KN,RE,CNP,CF.P,A,B,C,D,CN,CE,Vl                       00000700
      UEHNE HLE 8(61,768,1,UK)                                       00000800
      DATA NK /20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,00000900
     1 39, ^40, ^41, ^3, *43, «4 ,^5,46, ^47, a8, «9,50, b 1,52,53, 54,55,56,57,58, 59,60,0000 1000
     261,62,bi,6U,65,66,67,6H,69,70, 71,72, 73, 74,75,76, 77, 78, 79, 80X      00001100
      Crt?CN*1000.0                                                      00001200
      CE=LE*1000.0                                                      00001300
      A1=CN/100000,0                                                    00001400
      lN=Alt.5                                                          00001SOO
      KU=lN*100000                                                      00001600
      A1=LE/100000.0                                                    00001700
      lE=Alt.5                                                          00001800
      Ht=iE*100000                                                      00001900
      LiMPs(CN-RN)*, 00001                                                00002000
      CEP=(CE-RE)*,00001                                                00002100
      DU 10 Isl,6l                                                      00002200
      if (NK(l).Eul.IN) GO TO 20                                         00002300
10    CONTINUE                                                          00002400
      IoAu=l                                                            00002500
      bU TO 60                                                          00002600
20    IdLOCKsI                                                          00002700
      WEAU (8'IBLOCK) Ul                                                00002800
      IF (Ew.EQ.l.) GO TO 30                                            00002900
      IF (kM.EQ.O.) bO TO 40                                            00003000
30    IE=10-IE                                                          00003100
      GO 10 50                                                          00003200
40    Vl=-1.0                                                           00003300
      bl(IE,2)=Bl(IE,2)*Vl                                              00003400
      81(IE,4J=bl(IE,4)*V1                                              00003500
      bt (1E,6)=81UE,6)*V1                                              00003600
      oi(lE,8)=Bl(It,8)*Vl                                              00003700

-------
50    A=(tnUE,5)t((CNP*Bl(IE,7))-(CEP*Bl(IE,8))))                      00003800
      B=(bl(IE»M + «CUP*BHIE,8))*(CtP*Bl(IE,7))))                      00003900
      Cs(Bi(JE,3)*((CNP*A)-(CEP*B)))                                    00004000
      us(bi(iE»4)+((CNP*B)t(CFP*A)))                                    ooooaioo
      CNs(ai(lEf1)+((CNP*C)-(CEP*D)))                                   00004200
      Ct=(bOOOOO.O+Bl(IE»2)+((CNP*0)*(CEP*C)))                          0000^300
      CN5CN/1000.0                                                      00004400
      Ct=CE/1000.0                                                      00004bOO
60    HETUHN                                                            00004600
C                                                                       00004700
      END                                                               00004BOO

-------
A-50

-------
                    APPENDIX B
LOGICAL FLOWCHARTS AND FORTRAN SOURCE CODE LISTINGS
             CAASE2  (and Subroutines)
                          B-l

-------
B-2

-------
        c
                                               CAASE2
   START
          SET I/O UNIT
           NUMBERS FOR
         COMPUTER SYSTEM
           BEING USED
        INITIALIZE X AND Y
       DIMENSION VARIABLES,
       BASIC UNIT AREA, AND
          NUMERIC SHIFT
            MULTIPLIER
          CALL SUBROUTINE
              INBOUN
          TO READ CONTROL
         CARDS AND COUNTY
           OUTLINE FILE
 LOOP  ON NUMBER
(LOOP  ENDS AT 30)
         OF COUNTIES
        CALL SUBROUTINE
            TRACKR
        TO DETERMINE UNIT
        CELLS INTERIOR,
         EXTERIOR AND ON
          THE BOUNDARY
          OF THE COUNTY
         CALL SUBROUTINE
            PROXPRNT
         TO DRAW COMPUTER
          PRINTER MAP OF
            THE COUNTY
  30
END  V  OF LOOP
               P.2
               B-3

-------
                                               CAASE2, p.2
(LOOP  ENDS AT 70)
                   OF COUNTIES
         CALL SUBROUTINE
              INPOP
         TO READ CAASE1
          OUTPUT TAPE-
           CENSUS DATA
             "I
             t
                                      WRITE NUMBER
                                      OF CONTROL
                                      CELLS
                                 C
                   STOP
         CALL SUBROUTINE
             PROXML
          TO CREATE THE
          PROXIMAL MAP
         FOR THIS COUNTY
            COMPUTE  THE
         POPULATION AND
        HOUSING  FOR EACH
           CELL IN THIS
              COUNTY
           END
           80
OF LOOP
 A
.J
           REWIND
            TAPE
           NOUT1
         INITIALIZE GRID
           CELL ARRAY

-------
                                     CAASE2,  p.3
        READ IN
     PROXIMAL MAPS
          FOR
     ALL COUNTIES
    CALL SUBROUTINE
        GRIDIT
     TO PARTITION
    MATRIX OF UNIT
    AREA GRIDS INTO
        SQUARES
         WERE
        MAXIMUM
    NUMBER OF GRIDS
       EXCEEDED
YES
    CALL SUBROUTINE
        ADJUST
    TO DELETE EMPTY
   GRID SQUARES FROM
THE LIST AND PARTITION
   BOUNDARY SQUARES
           B-5

-------
            WERE
          MAXIMUM
      NUMBER OF GRIDS
          XCEEDED
                                            CAASE2, p.4
        120
       'REWIND
      'NOUTl AND
         NOUT2
            I
      CALL SUBROUTINE
          SQROFF
    TO COMPUTE SEPARATE
  INTEGRALS OF CONTAINED
   POPULATION & HOUSING
       FOR EACH GRID
       IN THE COUNTY
           WERE
          MAXIMUM
      NUMBER OF GRIDS
         EXCEEDED
     CALL SUBROUTINE
           SORT
 TO SORT THE GRIDS BY STATE,
BY COUNTY, BY NORTHING, BY
EASTING
       CALL SUBROUTINE
           OUTPUT
       TO WRITE RECORD
       FOR  EACH GRID
     SQUARE IN  THIS  LIST
             B-6

-------
                 :TE MESSAGE
              "GOOD FINISH"
               TO INDICATE
             SUCCESSFUL RUN/
               C
                      STOP
                                                     CAASE2,  p. 5
140
   INCREASE
PARTITIONING
 THRESHOLD
    VALUE
  INCREMENT
  NUMBER OF
  ATTEMPTS
        IS
     NUMBER
ATTEMPTS LESS THAN"
         ATTEMPTS^
     .ALLOWED.

          ,NO

        STOP
                         YES
                  B-7

-------
             c
             SUBROUTINE
               INBOUN
CAASE2
SUBROUTINE INBOUN
                 READ IN
                 CONTROL
                  CARD
     LOOP  ON NUMBER
(LOOP  ENDS  AT 30)
                   OF STATES
               READ NUMBER
               OF  COUNTIES
             IN STATE,  STATE
               NAME,  STUDY
               AREA CODE.
__LOOP_ON_ NUMBER J
'(LOOP ENDS AT 70)
                       OF COUNTIES
                                     i
              READ  IN  COUNTY
                 NAME  AND
                COUNTY CODE
                   WANT
                  COUNTY
                 OUTLINES
                  PLOTTED
                                     WRITE
                                    COUNTY
                                    TO TAPE
                  COMPUTE
                 COMPOSITE
               STATE-COUNTY
                 FIPS  CODE
                    IS
                   THIS
                 THE FIRST
                  COUNTY

-------
PRINT ERROR      /
MESSAGE "STATE-
COUNTY CODES
OUT-OF-ORDER"
                            IS THIS
                           COUNTY IN
                      NUMERICAL SEQUZNC
                          (ASCENDING)
STOP
              80
                                YES
                           INCREMENT
                           NUMBER OF
                           COUNTIES
                               END Y  OF LOOP
                          INITIALIZE
                           SUMMARY
                           VARIABLES
                          GEOGRAPHIC
                          COORDS, NO.
                         RECORDS, ETC.
                                                             CAASE2
                                                             SUBROUTINE INBOUN
                                                             p.2
                           SEARCH FOR
                         STARTING RECORD
                            ON COUNTY
                          OUTLINE TAPE
                               IS
                              THIS
                          RECORD BEFORE
                            STARTING
                             RECORD

-------
0
                    IS
                   THIS
                  RECORD
               THE STARTING
                  RECORD
            110
CONTINUE
>
r
               WRITE RECORD
                 OF NOUT3
               IF NOUT >  0.
                                                        CAASE2
                                                        SUBROUTINE INBOUN
                                                        P-3
   WRITE ERROR
 MESSAGE GIVING;
   COUNTY CODE
                    IS
                  THIS A
                NEW COUNTY
              PROCESS HEADER
                  RECORD
                      YES
                      S
                    IS
                   THIS
                 THE FIRST
                  COUNTY
                  OUTPUT
                 PREVIOUS
                 COUNTY'S
                   INFO
                   WANT
                  COUNTY
                 OUTLINES
                  PLOTTED
                INITIALIZE
                 FOR NEW
                 COUNTY
 WRITE
 LINE
SEGMENT
TO TAPE
                          B-10

-------
  CALL SUBROUTINE
  GTGR TO CONVERT
    POINTS TO
   PRIMARY ZONE
 WRITE ERROR
MESSAGE "BAD
 CONVERSION1
 c
STOP
 26
                                                                CAASE2
                                                                SUBROUTINE  INBOUN
                                                                p.4
                            160
                               INCREMENT #
                             OF SEGMENTS FOR
                               THIS COUNTY
                                               N0     /WRITE ERROR
                                                   W   MESSAGE
                                                        'ZONE BAD"
                             IS
                            ZONE
                           PRIMARY
                            ZONE

f
NO

>00 ^
YES
r
CONTINUE
>
i
CALCULATE
COORDS, FOR
STARTING &
ENDING NODES
FOR THIS NODE
^
r
STORE
COORDINATES IN
STORAGE ARRAY
210 '

t
i
                               READ  IN  A
                               NEW RECORD
                                                     D
                                B-ll

-------
        HAS
      END OF
    TAPE BEEN
   ENCOUNTERED
      DIVIDE
    COORDINATES
    VALUES BY 10
        IS
       THIS
     SEGMENT A
       POINT
      IS THIS
   LAST COUNTY &
LAST RECORD OF THIS
      COUNTY
      IS THIS
     RECORD FOR
   PRESENT COUNTY
      OR NEXT
      COUNTY
         IS
        ID OF
 THIS  RECORD  <
       OF NEXT
       COUNTY
                                            CAASE2
                                            SUBROUTINE INBOUN
                                            p.5
  WRITE ERROR
MESSAGE "STATE-
 COUNTY NOT IN
 OUTLINE FILE
                                     STOP
                                      28
       3-12

-------
                230
                    CONTINUE
                  END OF COUNTY
                 OUTPUT CURRENT
                    COUNTY'S
                   INFORMATION
                   SEARCH FOR
                  MINIMUM AND
                   MAXIMUM X &
                  Y COORDINATES
                   FOR ENTIRE
                   STUDY AREA
 WRITE
 ERROR
MESSAGE
                     WRITE
                    SUMMARY
                    RECORD
                    FOR THIS
                   COORDINATE
                     WRITE
                  COORDINATES
                    FOR THIS
                    SEGMENT
                                                     CAASE2
                                                     SUBROUTINE  INBOUN
                                                     p.6
                      WANT
                     COUNTY
                    OUTLINES
                     PLOTTED
 WRITE
 LINE
SEGMENT
TO TAPE

-------
                                                       CAASE2
                                                       SUBROUTINE IN30UN
                                                       p.7
           IS
       COUNTY ID
    ON RECORD JUST
        READ IN
         ORDER
WRITE MESSAGE
STATE COUNTY
CODE NOT IN
OUTLINE FILE
   CALCULATE ORIGIN
    OF STUDY AREA,
 INITIAL GRID SQUARE
BASED ON EXTREME COORDS
    OF STUDY AREA.
    CSTOPA

     "     J
       RETURN TO   A
    CALLING PROGRAM
                        B-14

-------
    SUBROUTINE
      TRACKR
   READ IN
   COUNTY
   OUTLINE
 COORDINATES
  SET MINIMUM
  AND MAXIMUM
 X AND Y POINTS
    DETERMINE
   MINIMUM AND
   MAXIMUM I &
   J SUBSCRIPTS
       IS
   IRECTION OF
SEGMENTS COUNTER
    CLOCKWISE
 CALL SUBROUTINE
     REORDR
TO REORDER COUNTY
OUTLINE SEGMENTS
    DETERMINE
     CELL TO
     TRACK-
   INITIALIZE
    INCREMENT
     SEGMENT
     COUNTER
CAASE2
SUBROUTINE TRACKR
       B-15

-------
                  ARE
             ALL  SEGMENTS
               COMPLETE
                                                 CAASE2
                                                 SUBROUTINE TRACKR
                                                 p.2
                      YES.
                   NO
             INITIALIZE
              FOR NEXT
              SEGMENT
        110
NO
            SET  COORDINATES
            OF THE SIDES  OF
             THE NEXT CELL
           CALL SUBROUTINE
               SIDEIT
             TO COMPUTE
           INTERSECTION OF
           COUNTY OUTLINE
            SEGMENT WITH
           GRID CELL SIDE
                  I
             COMPUTE THE
             AREA IN THE
           CELL CONTAINED
          BY THE END POINTS
            OF THE SEGMENT
               SET EXIT
              SIDE EQUAL
            TO INTERSECTED
                 SIDE
   WERE
 ANY SIDES
INTERSECTED

-------
      CALL SUBROUTINE
          WRAPUP
    TO COMPUTE CONTAINED
         AREA IN A
       BOUNDARY CELL
                                            CAASE2
                                            SUBROUTINE TRACKR
                                            o.3
      CALL SUBROUTINE
          NETBAL
     TO REDUCE COMPUTED
     CONTAINED AREA OF A
      BOUNDARY CELL TO
       LE UNIT AREA
    FLAG BOUNDARY CELLS
 WITH CONTAINED AREA EQUAL
UNIT AREA TO DISTINGUISH
BOUNDARY CELLS FROM INTERIOR
CELLS
          HAVE ALL
        SEGMENTS BEEN
          EXAMINED
          DETERMINE
          NEXT  CELL
          TO  TRACK
          NUMBER OF
        SEGMENTS BEEN
            CEEDEC
               NO
       CALL SUBROUTINE
          ASTORE TO
       INITIALIZE WITH
        NEXT SEGMENT
  YES,
YES
CALL SUBROUTINE
  ASTORE TO
INITIALIZE WITH
COORDINATES OF
 FIRST SEGMENT
             B-17

-------
                                         CAASE2
                                         SUBROUTINE TRACKR
                                         o. 4
 CALL SUBROUTINE
      DECIDE
 TO DETERMINE THE
NEXT BOUNDARY CELL
ALONG BOUNDARY LINE
                         YES  _
  CALL SUBROUTINE
       NTRIOR
    TO DETERMINE
   INTERIOR CELLS
   ON A SINGLE ROW
 	AND COLUMN
  180
   INITIALIZE FOR
     NEXT CELL
     INITIALIZE
     DEPARTURE
      AND ENTRY
        SIDES
     'SEGMENT
     COUNT LE
  NUMBER OF SEGMENTS
   CO BE EXAMINED
   YES
           NO
     'SEGMENT
   COUNTER GT
NUMBER OF SEGMENTS
  CO BE EXAMINED
YES
              B-18

-------
                                         CAASE2
                                         SUBROUTINE TRACKR
                                         D.5
210
 CALL SUBROUTINE
      FINAL
  TO MAKE FINAL
DETERMINATION OF
CELLS EXTERIOR TO
BOUNDARY CELLS AND
 CONVERT NEGATIVE
 AREA TO POSITIVE
  r  RETURN TO
  CALLING PROGRAM
         B-19

-------
             SUBROUTINE
               RZORDR
                                                 CAASE2
                                                 SUBROUTINE REORDR
           DETERMINE INDEX
            OF THE MIDDLE
               SEGMENT
          MID=(NUMSEG-KL)/2
          INITIALIZE  FIRST
          SEGMENT  (1-1)  AND
            EACH SEGMENT
              (J-NUMSEG)
LOOP _ON_HALF_THE_
'(LOOP ENDS AT 10)
                  f  NUMBER OF SEGMENTS
          SWAP Ith SEGMENT
        WITH THE Jth SEGMENT
         AND THE START NODE
         WITH THE END NODE
            COORDINATES
             INCREMENT I
               TO NEXT
             SEGMENT IN
           ASCENDING ORDER
          10

(_    __
            INCREMENT J
              TO NEXT
            SEGMENT IN
          DESCENDING ORDER
                              LOOP
G              RETURN TO   >
            IALLING PROGRAM
                3-20

-------
                                                    CAASE2
                                                    SUBROUTINE SIDEIT
               SUBROUTINE
                 SIDEIT
                SELECT  MIN
                 AND  MAX
                 X AND  Y
          INITIALIZE  COORDINATES
          OF  INTERSECTION,  SIDE
          NUMBER OF INTERSECTION
          AND THE NUMBER OF SIDES
           INTERSECTED  TO ZERO
                    IS
                 TERMINAL
                NODE INSIDE
                 THE CELL
    RETURN TO
 CALLING PROGRAM
             INITIALIZE X FOR
               INTERSECTION
                OF SIDE 1.
                 XB - XM
   LOOP ON VERTICAL  v SIDES OF CELL
j. (LOOP ENDS AT 10)
I

t
             ASSUME INITIALLY
             THAT THIS SIDE IS
             NOT INTERSECTED

            SIDE(KSIDE)-.FALSE.
             CALL SUBROUTINE
              YOFX TO SOLVE
            FOR Y IN TERMS OF X.
                    p.2
                   ^—x

                    B-21

-------
                                                       SET  "TRUTH FLAG"
                                                        DENOTING CELL
                                                        INTERSECTED ON
                                                          THIS SIDE.
 THIS SIDE
OF THE  CELL
   ERSECTE
      7
SET "FALSE FLAG"
DENOTING CELL NOT
INTERSECTED ON
THIS SIDE.
     IS
  POINT OF
INTERSECTION
 THE ENTRY
   POINT
                                     WAS
                                     SIDE
                                 INTERSECTED
                                  SET SIDE OF
                                  DEPARTURE,
                                   Y AND X
                                 COORDINATES.
                                INCREMENT NUMBER
                                   OF  SIDES
                               INTERSECTED  BY  1.
                                 INITIALIZE X
                               FOR INTERSECTION
                                  OF SIDE 3.
                                                                      CAASE2
                                                                      SUBROUTINE SIDEIT
                                                                      p.2
                                                      "  OF  LOOP   |
                                     3-2°

-------
                                                                   CAASE2
                                                                   SUBROUTINE  SIDEIT
                                                                   p.3
                             INITIALIZE Y
                           FOR INTERSECTION
                              OF SIDE 2
              LOOP_ON .HORIZONTAL
              fTloOP ENDS AT  20)~
              I
         SIDES OF CELL
  SET "FALSE FLAG"
   DENOTING CELL
 NOT INTERSECTED ON
     THIS SIDE
SIDE(KSIDE)-.FALSE.
                           ASSUME INITIALLY
                            THAT THIS SIDE
                          IS NOT INTERSECTED
                            CALL SUBROUTINE
                             XOFY TO SOLVE
                          FOR X IN TERMS OF Y
     IS
  POINT OF
INTERSECTION
 THE ENTRY
    OINT
                                                    SET "TRUTH FLAG"
                                                     DENOTING CELL
                                                    INTERSECTED ON
                                                      THIS SIDE.
                                 B-23

-------
                                                                   D . •
                                  INTERSECTED
                                 SET SIDE OF
                                  DEPARTURE
                                   Y AND X
                                 COORDINATES
                                 INCREMENT
                                 NUMBER OF
                                SIDES INTER-
                                 SECTED BY  1
                              INITIALYZE Y FOR
                              INTERSECTION OF
                                 SIDE  4.
                                     WAS
                                   THERE AN
                                 INTERSECTED
                                    SIDE
   RETURN TO
CALLING PROGRAM
                                     WAS
                                   SEGMENT
                               - COINCIDENTAL
                               TO THE VERTICAL
                                    SIDES
   SET "TRUTH
 FLAG" DENOTING
  THAT SEGMENT
WAS COINCIDENTAL
   TO SIDE 1.
                                                                   CAASE2
                                                                   SUBROUTINE 3IDEIT

-------
 CALL SUBROUTINE
 NSTORE TO STORE
  THE MULTIPLE
INTEGER VARIABLE
 CALL "SUBROUTINE
 NSTORE TO STORE
  THE MULTIPLE
INTEGER VARIABLE
                                         CAASE2
                                         SUBROUTINE SIDE!
                                         o. 5
                            SET "TRUTH  FLAG"
                            DENOTING THAT
                              SEGMENT WAS
                            COINCIDENTAL TO
                               SIDE 3
        WAS
      SEGMENT
  COINCIDENTAL TO.
    HORIZONTAL
       SIDE
   RETURN TO
CALLING PROGRAM
      3-25

-------
                                                              CAASZ2
                                                              SUBROUTINE 5IDEIT
                                                              D.6
SET "TRUTH FLAG"
DENOTING THAT
SEGMENT WAS
COINCIDENTAL TO
SIDE 2
T
.S'ls*
YES ^ TT STTOT
^•^ 2
NO
                                              NO
                         CALL SUBROUTINE
                         NSTORE TO STORE
                          THE MULTIPLE
                        INTEGER VARIABLES
 SET "TRUTH FLAG"
  DENOTING THAT
   SEGMENT WAS
COINCIDENTAL TO
    SIDE 4
CALL SUBROUTINE
NSTORE TO STORE
THE MULTIPLE
INTEGER VARIABLES
1








^
r
                             RETURN TO
                          CALLING PROGRAM
                              3-26

-------
                                       CAASE2
                                       SUBROUTINE WRAPUP
    SUBROUTINE
      WRAPUP
STORE INFORMATION
ON THIS CELL UNTIL
  FINAL SEGMENT
  ENCOUNTERED
     RETURN TO
  CALLING PROGRAM
  10
 SEGMENT TO  3E
    WRAPPED
  RETRIEVE FIRST
 CELL INFORMATION
PREVIOUSLY STORED
    INITIALIZE
   CURRENT SIDE
   TO EXIT SIDE
    SET FINISH
   FLAG TO FALSE
    INDICATING
    INCOMPLETE
      WRAPUP.
              3-27

-------
                                                                  CAASE2
                                                                  SUBROUTINE WRAPUP
                                                                  P.2
CALL SUBROUTINE
ASTORE TO STORE
COORDINATES OF
  POINTS TO
 COMPUTE AREA
    0
CALL SUBROUTINE
ASTORE TO STORE
COORDINATES OF
 POINTS TO
 COMPUTE AREA
                                                         CALL SUBROUTINE
                                                         AS iORE TO STORE
                                                         COORDINATES OF
                                                           POINTS TO
                                                         COMPUTE AREA
CALL SUBROUTINE
ASTORE TO STORE
COORDINATES OF
  POINTS TO
 COMPUTE AREA
                                    B-2S

-------
                                                                     CAASE2
                                                                     SUBROUTINE /TRAPUP
                                                                     ?•3
                             COMPUTED "GO TO"
                               DEPENDING ON
                               SIDE OF CELL
SIDE 1
SIDE 2
                                                SIDE 3
SIDE 4
                             IS
                    YES /X-COORD
                        GREATER THAN
                           ENTRY
                           POINT
                                                      IS
                                                   X-COORD
                                                  LESS  THAN
                                                    ENTRY
                                                     OINT
     IS
  Y-COORD
BELOW ENTRY
   POINT
 RETURN TO
  CALLING
  PROGRAM
                           RETURN  TO
                            CALLING
                            PROGRAM
                       SET  "TRUTH FLAG"
                         FOR FINISH
                       INDICATING END
                         OF WRAPUP
                                               SET "TRUTH FLAG'
                                                 FOR FINISH
                                               INDICATING END
                                                 OF WRAPUP
                                    3-29

-------
                                                                           CAASE2
                                                                           SUBROUTINE  -TIAPU?
                                                                           p.4
                                 80
                                      COMPUTED
                                       "GO TO"
                                    DEPENDING ON
                                    SIDE OF CELL
         SIDE 1
                   SIDE 2
90
i
100
  CALL  SUBROUTINE
  ASTORE  TO  STORE
  COORDINATES  OF
  POINTS  TO  COM-
     PUTE AREA
                              SIDE 3
                        SIDE 4
110
               CALL SUBROUTINE
               ASTORE TO STORE
               COORDINATES OF
               POINTS TO COM-
                  PUTE AREA
120
                         CALL SUBROUTINE
                         ASTORE TO STORE
                         COORDINATES OF
                         POINTS TO COM-
                            PUTE AREA
                      CALL SUBROUTINE
                      ASTORE TO STORE
                      COORDINATES OF
                      POINTS TO COM-
                         PUTE AREA
                               130
                                   COMPUTE AREA
                                   CONTAINED  BY
                                   THE  SEGMENTS
                                        3-30

-------
140
                                       CAASE2
                                       SUBROUTINE WRAPUP
                                       p.5
 ADD AREA CONTAINED BY
    SEGMENT TO AREA
 CONTAINED IN CURRENT
         CELL
  150
        CONTINUE
1     OUTPUT COMPUTED
    CONTAINED AREA
    ?OR  CURRENT
          CELL
          HAS
      WRAPUP BEEN
       COMPLETED
       ADVANCE TO
        NEXT SIDE
          IS
      THE CURRENT
       SIDE THE
         ENTRY
         SIDE
    SET "TRUTH FLAG"
       TO INDICATE
     WRAPUP COMPLETE
    CALL SUBROUTINE
    ASTORE TO STORE
    COORDINATES OF
       POINTS TO
     COMPUTE AREA
U  RETURN TOA
ALLING PROGRAM )
                  B-31

-------
                                        CAASE2
                                        SUBROUTINE MET3AL
     SHOULD
 CONTAINED AREA
  OF BOUNDARY
     CELL BE
     REDUCED
NO
   RETURN TO
CALLING PROGRAM
REDUCE CONTAINED
    AREA OF
 BOUNDARY CELL
         3-32

-------
                              SUBROUTINE
                                DECIDE
           CAASE2
           SUBROUTINE DECIDE
1
I
INITIALIZE
INCREMENTS TO
CELL" INDICES
I & J TO ZERO


   SET FIRST
  SUBSCRIPT OF
CELL INDEX TO I
   SET FIRST
  SUBSCRIPT OF
CELL INDEX TO 2
                                SET  FIRST
                               SUBSCRIPT OF
                             CELL INDEX TO 3
 50
   SET SECOND
  SUBSCRIPT OF
CELL INDEX TO I
   SET SECOND
  SUBSCRIPT OF
CELL INDEX TO 2
                              SET SECOND
                             SUBSCRIPT OF
                           CELL INDEX TO 3
                             SET INCREMENT
                               TO I  INDEX
                                 3-33

-------
                                     CAASE2
                                     SUBROUTINE DECIDE
                                     o.2
                             INCREASE THE
                             I-INCREMENT
                             3Y 1.
  SET INCREMENT
    TO J INDEX
    SET VALUE
    OF NEXT
    ENTRY  SIDE
                             RETURN TO
                          CALLING PROGRAM
   INCREASE THE
   J-INCREMENT
       BY 1.
   SET VALUE OF
 NEXT ENTRY SIDE
FROM SECOND TABLE.
     RETURN  TO
 CALLING PROGRAM
       3-34

-------
                                              CAASE2
                                              SUBROUTINE DECIDE
                                              p.3
THE EXIT WAS NOT THROUGH
A CORNER.  SET THE I- AND
 J- INCREMENTS AND NEXT
ENTRY SIDE ACCORDING TO
THE I AND J POSITIONS IN
       THE TABLES.
  c
   RETURN TO
CALLING PROGRAM
         3-35

-------
                                         CAASE2
                                         SUBROUTINE :iTRIOR
      SUBROUTINE
        NTRIOR
>
r
INITIALIZE
DIRECTION OF
COLUMN
MOVEMENT
(RIGHT- 0, LEFT-1)
 ALGEBRAIC SIGN OF
   COLUMN INDEX
   INCREMENT IS
OPPOSITE THE SIGN OF
CHANGE IN ROW INDEX.
    MOVE TO NEXT
  CELL ON THIS  ROW
       IS THIS
     CELL WITHIN
CONTAINING RECTANGLE
      FOR THIS
       COUNTY
THE
.EXTE
NO
i
S\ -
CELI/X^ YES
KLQK/S
SET CELL
INTERIOR

r
         B-36

-------
                                       CAASE2
                                       SUBROUTINE NTRIOR
                                       P.2
      MOVE  TO
      BEGINNING
    POINT ON ROW
       MOVE TO
     .'NEXT CELL
     ON THIS ROW
       IS THIS
     CELL WITHIN
CONTAINING RECTANGLE
      FOR THIS
       COUNTY
          IS
      THIS CELL
      INTERIOR
 SET CELL
 EXTERIOR
          IS
        CELL  A
      BOUNDARY
         CELL
      NEXT CELL
     ON THE SAME
       COLUMN
   RETURN TO
CALLING PROGRAM
         B-37

-------
                                                        SUBROUTINE NTRIOE
                                                        0.3
              THE ALGEBRAIC SIGN OF
              ROW INDEX INCREMENT
               IS SAME AS SIGN OF
             CHANGE IN COLUMN INDEX
                     MOVE TO
                    NEXT CELL
                     ON THIS
                     COLUMN
                     IS THIS
                   CELL WITHIN
              CONTAINING RECTANGLE
                    FOR THIS
                     COUNTY
SET CELL
INTERIOR
   IS
  CELL
EXTERIOR
                        IS
                       CELL
                     BOUNDARY
                     MOVE TO
                    BEGINNING
                     POINT ON
                      COLUMN
                       3-38

-------
                                        CAASE2
                                        SUBROUTINE NTRIOR
                                        p.4
    MOVE TO NEXT
    CELL ON THIS
        COLUMN
       IS THIS
     CELL WITHIN
CONTAINING RECTANGLE
      FOR THIS
       COUNTY
          IS
         CELL
       INTERIOR
SET CELL
EXTERIOR
          IS
         CELL
       BOUNDARY
                                              RETURN TO
                                           CALLING PROGRAM
      RETURN TO
   CALLING PROGRAM
         B-39

-------
                  c
                                                         CAASE2
                                                         SUBROUTINE FINAL
                   SUBROUTINE
                      FINAL
                    INITIALIZE
                     LIMITS OF
                    LOOP INDEX
         LOOP  ON  ROW OF
i(LOOP ENBS AT 80)

r
t
	LOOP. ON COLUMN^OF_
(LOOP  ENDS AT 80)
                         CONTAINING RECTANGLE
CONTAINING RECTANGLE
                        IS
                    THIS CELL
                   BOUNDARY  OR
                    INTERIOR
                       ARE
                   ANY OF THE
                 4 ADJOINING CELLS
                    INTERIOR
                                                 SET THIS
                                                   CELL
                                                 INTERIOR
                       B-40

-------
	LOOP JDN _ROW_OF_
 (LOOP ENDS AT  120)

    LOOP  ON  COLUMN OF
t
       I (LOOP ENDS AT 90)
                           CONTAINING RECTANGLE
                                               '1
CONTAINING RECTANGLE
                 I
                        IS
                      CELL  A
                     BOUNDARY
                       CELL
                                   YES
                  90
                         NO
      t
      I	S
           END
                   SET  CELL
                   EXTERIOR
               100
       OF  LOOP  I
                     MOVE TO
                  OPPOSITE SIDE
                  OF RECTANGLE
                LOOP ON
      f(LOOP ENDS AT HO;
                        COLUMN  OF  CONTAINED ARRAY
                        IS
                      CELL A
                     BOUNDARY
                       CELL
                         NO
      t
           END
       120
SET CELL
EXTERIOR
110 ,
r
CHANGE
COLUMN
INDEX

' LOOP
•
                                        t
                                   OF  LOOPI
                            B-41
                                                             CAASE2
                                                             SUBROUTINE FINAL
                                                             0.2

-------
        LOOP ON COLUMNS
I  (LOOP ENDS AT 160)
           LOOP ON ROWS Y OF CELLS
                                                      CAASE2
                                                      SUBROUTINE FINAL
                                                      0.3
      OF CELLS
                         	1
                                                T
       (LOOP ENDS AT 130
                       IS
                     CELL A
                    BOUNDARY
                      CELL
                       9
                   REVERSE  THE
                DIRECTION OF  THE
                   I  (ROW) LOOP

       _ _L°?L °JL Roysj
       (LOOP ENBS AT 150
                          I
                          t
                                      YES
                         NO
                     CELL IS
                    EXTERIOR.
                  SET ITS AREA
                    TO ZERO.
               150
            END
                DECREASE I  (ROW)
                INDEX-NEXT  ROW
I  160
               OF  LOOP
END "  OF LOOP

-------
LOOP ON COLUMN >'  OF CELLS
!(LOOP ENDS AT 170)

  	LOOP_ON_ ROWS
f~(LOOP ENDS AT 170)
170
                  OF  CELLS
                                         I


                                        "I
       REVERSE  ALGEBRAIC
             SIGN  OF
        NEGATIVE  AREAS
                                     I
       END OF JjT	LOOP	J
       '   RETURN TO   ^
        CALLING PROGRAM
                                                CAASE2
                                                SUBROUTINE  FINAL
                                                p.4
             B-43

-------
                                                      CAASE2
                                                      SUBROUTINE PROXPR
                       lUTINE  A
                       «PR    J
SUBROUTINE
  PROXPR
0
                   INITIALIZE
                    LIMITS OF
                   THE J LOOP
                    CALCULATE
                    NUMBER OF
                  CHARACTERS PER
                   LINE TO 100
                   ARBITRARILY
                  OES CHARACTER
                 COUNT EXCEED
                NUMBER OF GRID
                SQUARES IN A ROW
                  F THIS COUN
                              EQUALIZE
                              THE TWO
                   WRITE COLUMN
                   NUMBERS FOR
                     OUTPUT
                 INITIALIZE GRID
                   CELL INDEX
                EQUAL TO TOP ROW

-------
                                                               CAASE2
                                                               SUBROUTINE PROXPR
                                                               p.2
          	LOOP. ON__ROWS_OF J'_ ^COUNTY _GRID_ CELLS
           (LOOP ENDS AT 60)
                        INITIALIZE THE
                         INDEX OF THE
                         OUTPUT VECTOR
                            TO ZERO
          LOOJ?_ON_ELEMENTS OF_
            '(LOOP ENDS AT 40)
            t
_ROW_OF GRIp_CELLS
                          INCREMENT
                       SUBSCRIPT,  SET
                        LINE OF  PRINT
                        TO ASTERISKS
                                                 SET ELEMENT
                                                 OF PRINT TO
                                                   BLANK'S
SET ELEMENT
OF PRINT
TO I'S
                             B-45

-------
t
  60
                     OUTPUT
                     LINE OF
                     PRINT.
                 60
                    INCREMENT
                   TO NEXT ROW
                    DECREASING
END  '' OF LOOP
                    INCREMENT
                  CHARACTER PER
                  PAGE COUNTER
                      BY 1
                 /^RETURN  TO
                 CALLING PROG
                                                         CAASE2
                                                         SUBROUTINE PROXPR
                                                         p.3
                             T
                   ID CHARACTER
                 COUNTER EXPAND
                   BEYOND THE
                   OTTED RECTANGLE

-------
    c
SUBROUTINE
   INPOP
CAASE2
SUBROUTINE INPOP
     THIS THE FIRST
         COUNTY
     SET VARIABLE
   SIGNIFYING FIRST
   COUNTY PROCESSED
     INITIALIZE
     I/O DEVICES
 WRITE COORDINATES
OF EXTREME INDICES
  FOR STUDY AREA
 10
 INITIALIZE, FOR THIS
 COUNTY THE POPULATION
 ARRAY, AND TOTALS OF
 POPULATION & HOUSING
          B-47

-------
       50
                                           CAASE2
                                           SUBROITI:;E ::rpc?
                                           0.2
       READ A
       CAASE1
       CENSUS   •
       RECORD  /
      SET NECESSARY
      VARIBLES FOR
     PROCESSING THIS
         COUNTY
    INCREMENT RECORD
    COUNT, POPULATION
        & HOUSING
                               YES
   INCREMENT NUMBER OF
RECORDS, CUMULATING SUMS
  POPULATION & HOUSING
   AND COMPUTE I, & J
   SUBSCRIPTS OF THE
  ENUMERATION DISTRICT
        CENTROID

-------
      IS SID
    I, J INSIDE
       OUNTY
                                        CAASE2
                                        SUBROUTINE i:iPOP
                                        p.3
  STORE POPULATION
AND HOUSING VALUES
  FOR THIS CENSUS
  ED IN THE RIGHT
   CENSUS CELL.
INCREMENT THE
COUNTY COUNT
>
f
                        WRITE THE
                      'COUNTY INFO./
                  PLACE POPULATION, HOUSING
                  DATA INTO VECTOR STORAGE
                   RANK ORDERED ON X-COORD
                   (PRIMARY), AND Y-COORD
                       (SECONDARY)  BOTH
                          INCREASING
                       r  RETURN TO  A
                       CALLING PROGRAM)
        B-49

-------
                    SUBROUTINE
                      PROXML
        CAASE2
        SUBROUTINE  PROX11L
LOOP ON NUMBER
(LOOP ENDS AT 30)
i
OF CONTROL CELLS
f
INITIALIZE INDEX
FOR RETAINED
CONTROL CELLS

                                           YES
 /PRINT MES
/
                                                   SAGE STAT-/
                                                       SAME
                      INCREMENT
                    CELL COUNTER
                    COMPRESS LIST
                  OF CONTROL CELLS
30
                        IS
                     GRID CELL
                     POPULATED
 NEGATE CELL TO
 IDENTIFY AS A
 CONTROL CELL
                   SET TRAILER
                  RECORD FOR AREA
                    TO ZERO TO
                 INDICATE END OF
               LIST IN SUBROUTINES
                        B-50

-------
                                         CAASE2
                                         SUBROUTINE  PROXML
                                         P.2
   CALL SUBROUTINE
       SETLGO
   TO LOCATE INDEX
  OF THE NON-EMPTY
  ROW NEAREST EACH
      EMPTY ROW
   CALL SUBROUTINE
       SEARCH
     TO FIND THE
CONTROL CELL NEAREST
  EACH NON-CONTROL
     CELL (I,J)
 COMPUTE THE DENSITY
 FOR EACH CELL BASED
  ON TOTAL AREA OF
  NEAREST NEIGHBOR
 c
   RETURN TO
CALLING PROGRAM
         3-51

-------
                   SUBROUTINE
                     SEARCH
                                                           CAASE2
                                                           SUBROUTINE SEARCH
                    INITIALIZE
                      MINIMUM
                     DISTANCE
                  SET INDEX OF
                 PREVIOUS NEAREST
                CONTROL CELL TO 1
   	___^
T(LOOP ENDS AT 60)
                          OF RECTANGLE (ROW)
                       T
                       t
                  SET  SQUARE OF
                  THE  DISTANCE
                  FROM CELL I,J
                  TO CONTROL
                  CELL LSAV1
    I (LOOP ENDS AT 50)
   t
OF JRECTANGLE JCOLUMN)

                    Y
          YES
                        IS
                       GRID
                      CELL A
                      CONTROL
                       CELL
                    CALCULATE
                    SQUARE ROOT
                   SET LIMITS ON
                   I & J INDICES
                 TO CONTROL RADIUS
                   OF .SEARCH FOR
                  NEAREST CONTROL
                       CELL
                        3-52

-------
         ARE
    SEARCH LIMITS
     PERMISSIBLE
                                   ADJUST TO LIMITS
                                   OF CONTAINING
                                   RECTANGLE
  INITIALIZE INDEX
 OF THE CONTROL CELL
 TO COMMENCE SEARCH
  INITIALIZE MINIMUM
   DISTANCE BETWEEN
    CONTROL CELL
            CELL INDICES
      ROW INDE
   OF CONTROL CELL
    WITHIN MAXIMUM
       SEARCH
          IUS
         IS
       COLUMN
INDEX OF CONTROL CELL
WITHIN MAXIMUM SEARCH
       RADIUS
                                        SUBROUTINE SEARCH
                                        p.2
LQOP_PN_CONTROL_
'  (LOOP ENDS AT 301,
 DIFFERENCE BETWEEN
ROW & COLUMN INDICES
  OF CELL I, J AND
   CONTROL CELL L
   COMPUTE DISTANCE
     SQUARED FROM
     CELL I, J TO
    CONTROL CELL L
               B-53

-------
 DISTANCE - MINIMUM
      DISTANCE
   CALL SUBROUTINE
   TIEBRK TO BREAK
       THE TIE
         WAS
CURRENT CONTROL CELL
      CHOSEN AS
       NEAREST
   SET NEW MINIMUM
      DISTANCE
      SAVE  INDEX
      OF CURRENT
     CONTROL CELL
                                         CAASE2
                                         SUBROUTINE SEARCH
                                         0.3
        B-54

-------
                                                     CAASE2
                                                     SUBROUTINE SEARCH
           40
             CONTROL CELL LSAV
            IS  NEAREST CONTROL
               CELL (I,  J).
            ADD AREA OF (I,  J)
             TO TOTAL OF LSAV1
               STORE  INDEX OF
               NEAREST CONTROL
               CELL IN (I, J)
           COMPUTE THE DISTANCE
           FROM THE CONTROL  CELL
           FOUND NEAREST TO  THE
               ADJACENT CELL
       50
60
END JDF.

END OF
LOOP_

LOOP
           C
    RETURN TO
 CALLING PROGRAM
                   B-55

-------
                    SUBROUTINE
                      SETLGO
                   TINE  "N
                   GO    J
CAASE2
SUBROUTINE SETLGO
              INITIALIZE LOWER ROW
              INDEX FOR THIS COUNTY
            INITIALIZE INDEX OF FIRST
          CONTROL CELL ON A ROW TO ZERO.
	LOOP JDN_NUMBER_
I  (LOOP ENDS AT 80)
                    OF CONTROL CELLS
              SAVE  THE  ROW INDEX OF
              THE FIRST CONTROL CELL
               ON THIS  ROW AND SAVE
                 THE CELL INDEX
 	LOOP _FROM_
f(LOOP  ENDS AT 7o~
f       70
         END
                          PREVIOUS  ROW TO THIS ROW
                                           I
               STORE INDEX OF THE
                CONTROL CELL IN
             VECTOR INDEXED BY ROWS,
f
                                    I
                                 OF '  LOOP
                   INDEX OF THIS
                  ROW  BECOMES  THE
               NEXT "PREVIOUS" ROW
        80
          END  OF
      {(LOOP ENDS AT 90)
      T   90
      END!
                          LOOP
           BALANCE OF VECTOR INDEXED BY
           ROWS  IS FILLED WITH VALUE OF
              LAST SAVED CONTROL CELL.
                                    I
                                  OF I LOOP
                     RETURN  TO
                  CALLING  PROGRAM
                       3-56

-------
                                          CAASE2
                                          SUBROUTINE TIEBRK
   ('SUBROUTINE "\
     TIEBRK    J
  CALL SYSTEM
SUBROUTINE RANDU
  FOR RANDOM
NUMBER GENERATOR
       IS
     RANDOM
     NUMBER
     GREATER
      THAN
       .5?
   RETURN 2 TO
 CALLING PROGRAM
  RETURN 1 TO
CALLING PROGRAM
      B-57

-------
  SUBROUTINE
     RANDU
   MULTIPLY
   KERNAL BY
     65539
   MAKE SURE
   RESULT IS
    BETWEEN
    0 AND 1
   RETURN TO
CALLING PROGRAM
                              CAASE2
                              SUBROUTINE TIEBRK
                              10
                     YES
MAKE RESULT
 POSITIVE
   B-58

-------
G>
                      SUBROUTINE
                        GRIDIT
                            YES
                    INITIALIZE UNIT
                     AREA,  INITIAL
                    SQUARE  SIZE AND
                  FIND XAX  POPULATION
                  30
                  INITIALIZE SQUARES,
                     POPULATION &
                    HOUSING TO  ZERO
                      INITIALIZE
                      GRID SQUARE
                      COUNTER TO
                        ZERO
                       50
                        READ USER
                      SUPPLIED GRIDy
                         SQUARES
                                       NO
                                                          CAASE2
                                                          SUBROUTINE GRIDi:
                           B-59

-------
     0
   INCREMENT
  GRID SQUARE
    COUNTER
SET SIDE LENGTH,
    X AND Y
  COORDINATES
  k
  RETURN 1 TO
CALLING PROGRAM
                                                                   CAASE2
                                                                   SUBROUTINE GRIDIT
                                                                   p.2


i
NO
r
COMPUTE COORDINATES
OF THE -INITIAL
SQUARES
^
r
INITIALIZE THE"
•SQUARE COUNTER

r

                                CALL SUBROUTINE
                               INTEGR TO COMPUTE
                                THE INTEGRAL OF
                               F(y,x)  OVER THIS
                                  GRID SQUARE
                                                          f   RETURN 1 TO
                                                          yCALLING
                                 B-60

-------
ASSIGN THIS
POPULATION TO
THIS SQUARE
THEN PROCESS
NEXT SQUARE
                                 IS THE
                                CONTAINED
                               POPULATION
                                  ZERO
    IS THE
   CONTAINED
POPULATION LESS
 THAN OR EQUAL
    TO THE
      MAX
                                                                  CAASE2
                                                                  SUBROUTINE GRIDIT
                                                                  P.3
                              THIS SQUARE IS
                              OUTSIDE THE COUNTIES
                              CALL SUBROUTINE DELETE
                              TO ELIMINATE THIS
                              SOUARE FROM THE LIST
                             CALL  SUBROUTINE
                           PARTIT  TO PARTITION
                           THE SQUARE AND ADD
                            DAUGHTERS TO THE
                          LIST OF  GRID SQUARES
f RETURN 1 TO
\CALLING PROGRAM.}
                                   HAS
                                NUMBER OF
                           SQUARES  FROM PARTIT
                                EXCEEDED
                                 MAXIMUM
      HAS
    NUMBER
  OF SQUARES
   EXCEEDED
    MAXIMUM
                                     B-61

-------
                                          CAASE2
                                          SUBROUTINE GRIDIT
                                          p. 4
  /  WRITE MESSAGE THAT/
 / ALL SQUARES IN LIST/
/TIAVE BEEN PROCESSED  /
           I
      CORRECT TOTAL
     POPULATION FOR
    ROUND OFF ERRORS
         RETURN  TO^\
     CALLING  PROGRAM  J
     s	"	/
              B-62

-------
  SUBROUTINE
    ADJUST
 DETERMINE HIM.
  SQUARE  SIZE.
INITIALIZE SQUARE
 COUNTER TO ZERO
 INCREMENT  SQUARE
   COUNTER  BY  1
                                HAS
                              COUNTER
                          EXCEEDED NUMBER
                          0F  SQUARES IN
                               LIST
                                RETURN TO
                             CALLING PROGRAM
                   (FINISHED)
       IS
      THIS
     SQUARE
   UNPOPULATED
CALL SUBROUTINE
DELETE TO DELETE
THIS SQUARE FROM
THE LIST
        IS
       THIS
 SQUARE <_ MINIMUM
      SQUARE
       SIZE
                              CALL SUBROUTINE
                              PARTIT TO PARTI-
                              TION THE SQUARE AND
                              ADD DAUGHTER TO THE
                              LIST OF GRID SQUARES
                                 ES
                            THIS SQU
                         CONTAIN AN EMPTY
                               UNIT
                                 L
                                                         IS
                                                     MAXIMUM NO.
                                                        SQUARES
                                                      EXCEEDED
                                                                      CAASE2
                                                                      SUBROUTINE ADJUST
                                                   RETURN TO   ^
                                                CALLING PROGRAM
              B-63

-------
                                         CAASE2
                                         SUBROUTINE ADJUST
                                         p.2
 CALL SUBROUTINE
 INTEGR TO TOTAL
POPULATION OF THE
UNIT CELLS IN THE
     SQUARE
      ASSIGN
 TOTAL POPULATION
  TO THIS SQUARE
 CALL SUBROUTINE
 INTEGR TO COM-
 PUTE TOTAL POP-
 ULATION FOR
 DAUGHTERS	
          B-64

-------
                    SUBROUTINE
                      SOROFF
                                                CAASE2
                                                SUBROUTINE SHROFF
  	LOOP £N jtAXIMUM
  (LOOP ENDS AT 220)
                    NUMBER OF GRID SQUARES
                                          1
                                          t
             INITIALIZE POPULATION,
           HOUSING, AREA, AND FRACTION
                INTEGRALS TO ZERO
                  220
       END
                    INITIALIZE
                     COUNTY TO
                       ZERO
                           _ __OF_LOOP	j
               INITIALIZE NUMBER
              OF RECORDS OF SQUARES
              TO NUMBER OF SQUARES
         LOOP  ON
   _
r(LOOpTNDS AT  290T
I (LOOP  ENDS  AT  290)
           ON DIMENSIONS
      "(LOOP  ENDS  AT  230)
              230
      I
      J   END
                          NUMBER OF COUNTIES
                             OUSING,AREA
                     OF X AND Y
                                          "I
                                          Y
         INITIALIZE THE GRID
            SQUARE ARRAY
               TO ZERO
                       IS
                    INPUT  FOR
                 POPULATION OR
                    HOUSING
                                     INPUT
                                     DEVICE IS
                                     NOUT1
              B-65

-------
                                                         CAASE2
                                                         SUBROUTINE SQROFF
                                                         p.2
  (LOOP  ENDS AT 240)

                 240
    LOOP ON MIN. & MAX. V INDICES FOR RECTANGLE CONTAINING  THIS  COUNTY
                                              1
A
 I
END OF
         t
      . iP.9JL °JL2
   (ENDS  AT 250)"
           250
            END
 LOOP ON NUMBER OF
 I (LOOT ENDS"AT~29b)
            READ DATA FROM
           THE INPUT DE-
          VICE INTO THE
         GRID CELL ARRAY
                        IS
                     THIS THE
                    FIRST PASS
                   THROUGH THIS
                       LIST
                                      INITIALIZE TOTAL
                                      NUMBER OF SQUARES
                                      TO TOTAL NUMBER
                                      DETERMINED IN SUB
                                      ROUTINE GRIDIT
                  ASSUME  INDEX OF
                GRID  SQUARE  RECORD
                 EQUALS INDEX OF
                   GRID SQUARE:
                     M = MPRIME

-------
                      DOES
                  SQUARE SHARE
              ANY COMMON AREA WITH
                 RECTANGLE THAT
                  CONTAINS THIS
                     COUNTY
                       DOES
                   SQUARE  SHARE
                 ANY  COMMON AREA
                   WITH COUNTY
                 CALL  SUBROUTINE
                 INTEGR  TO  TEST
                 THE RESULT OF
                THAT INTEGRATION
                                                        CAASE2
                                                        SUBROUTINE  SQROFF
                                                        p.3
                       IS
                    THIS THE
                 FIRST COUNTY TO
                  HAVE CONTENTS
                     IN THIS
                     SQUARE
                                  YES
            MAKE  A DUPLICATE RECORD
               AND CHANGE THE INDEX
                  OF THE SQUARE
                       i
              INITIALIZE RECORD FOR
               A DUPLICATE SQUARE
0
            270
           ASSIGN THIS COUNTY
            TO CURRENT SQUARE
           ACCORDING TO THE LOOP INDEX
             THE RESULT OF THE INTE-
            GRATION IS POPULATION
               HOUSING OR AREA
        tw.\*\± j.v-1 0.0 ruruLiAi j.un
           HOUSING OR AREA                     J
290__ '	y	'ENp_eF_LpOP  ,
                               B-67

-------
                                              CAASE2
                                              SUBROUTINE SHROFF
                                              p.4
UPDATE THE JTOMBER OF
 SQUARES IN THE LIST
  AS RESULT OF THE
  DUPLICATE SQUARES
 A  RETURN TO   ^
 I CALLING PROGRAM
               B-68

-------
                                                   1 -
                     SUBROUTINE
                       OUTPUT
                   PUNCH  SUMMARY
                   RECORD  FOR
                 THE  STUDY  AREA
        LOOP_ON_2_
  (LOOP ENDS AT 320)
T
                                   OUTPUT DEVICES
                        IS
                     THIS FOR
                  PRINTED OUTPUT
                                           SET OUTPUT
                                           DEVICE FOR
                                           PRINTER
                        IS
                    THIS GRID
                    NPOPULATE
                                                         CAASE2
                                                         SUBROUTINE OUTPUT
PRINT
PUNCH
   	LOOP_ ON ^NUMBER
y  (LOOP ENDS AT 320)
                                                 t
CALCULATE COUNTY,
STATE, FRACTION
AND COORDINATES
i
r
                        p.2
                           B-69

-------
0
 OUTPUT TO
PRINTER OR
   PUNCH
     320    END
              OF LOOP
                                                       CAASE2
                                                       SUBROUTINE  OUTPt"
                                                       p.2
               RETURN TO
            CALLING PROGRAM
                        B-70

-------
                                        SUBROUTINE
                                          PARTIT
                                                                            CAASE2
                                                                            SUBROUTINE  PARTIT
>
r
COMPUTE 1/2 SIDE
LENGTH OF SQUARE
                                            IS
                                        ' COMPUTED~
                                        SIDE LENGTH
                                       LESS  THAN UNIT
                                        SIDE LENGTH
                                                        YES
                                                RETURN TO CALLING
                                              PROGRAM WITH NO ERRORS
                                COMPUTE INDICES OF THREE
                                 NEW SQUARES TO BE ADDED
                                     TO THE LIST
G
 RETURN TO CALLING
PROGRAM WITH ERROR
y
YES,
   IS
 MAXIMUM
NUMBER OF
 SQUARES
 EXCEEDED
                                        STORE SIDE
                                        LENGTHS OF
                                        NEW SQUARES
                                     STORE SOUTHWEST
                                    CORNER COORDINATES
                                      OF NEW  SQUARES
                                     INCREMENT NUMBER
                                        OF SQUARES
                                        IN THE LIST
                                     RETURN TO CALLING
                                   PROGRAM WITH NO ERRORS
                                             B-71

-------
                                                        CAASE2
                                                        SUBROUTINE DELETE
                C
SUBROUTINE
  DELETE
                    REDUCE NUMBER
                    OF SQUARES IN
                      THE LIST
LOOP ON NUMBER OF SQUARES
'  (LOOP ENDS AT  20)

T             20	
          LIST BEGINNING_WITH SQUARE
                TO BE DELETED!
                  STORE VALUE OF
                  NEXT SQUARE IN
                 THE LOCATION FOR
                 COORDINATES, SIDE
               'LENGTH, AREA, COUNTY,
               POPULATION, FRACTION.
                  END OF  "   LOOP

                     RETURN TO
                   CALLING PROGRAM
                         B-72

-------
                                                     CAASE2
                                                     SUBROUTINE INTEGR
                SUBROUTINE
                  INTEGR
               CALCULATE THE
               INDICES FOR THE
               ROW AND COLUMN
               OF THE CELLS IN
               THE GRID SQUARE
              INITIALIZE THE
               SUM VARIABLE
                  TO  ZERO
 	_LOOP ON THE
!  (LOOP ENDS AT 10)

        LOOP  ON  THE
I
  (LOOP ENDS AT 10)

           10
*   END OF
          ROW OF CELLS
       "'  COLUMN OF CELLS
   ADD TO THE
SUM VARIABLE THE
 QUANTITY OF F.
              /"  RETURN TON
              (CALLING PROGRAM
                             "l
                             t
                    LOOP
                      B-73

-------
                                            CAASE2
                                            SUBROUTINE  ASTORE
C
SUBROUTINE
  ASTORE
  STORE MULTIPLE
  FLOATING POINT
      VALUES
 r  RETURN TO   ^
 .CALLING PROGRAM,
             B-74

-------
                                           CAASE2
                                           SUBROUTINE NSTORE
C
SUBROUTINE
  NSTORE
  STORE MULTIPLE
   INTEGER POINT
      VALUES
f  RETURN TOA
\VCALLING PROGRAM/
             3-75

-------
                                                CAASE2
                                                SUBROUTINE  YOFX
        IS
   THIS SEGMENT
     VERTICAL
                              RETURN TO
                               CALLING
                               PROGRAM
   CALCULATE THE
  INTERSECTION OF
    Y SEGMENT AND
     CELL SIDES
G
   (RETURN TO
CALLING PROGRAM
                B-76

-------
                                             CAASE2
                                             SUBROUTINE XOFY
  SUBROUTINE
     XOFY
      IS
 THIS SEGMENT
  HORIZONTAL
RETURN TO
 CALLING
 PROGRAM
 CALCULATE THE
INTERSECTION OF
 X SEGMENT AND
  CELL SIDES
   RETURN TO
    CALLING
    PROGRAM
             B-77

-------
                                                                              CAASE2
                                                                              SUBROUTINE FARE A
C
                                         FAREA
                                   COMPUTE  THE  AREA
                                   UNDER THE  SEGMENT
                                   DIRECTED FROM ONE
                                   NODE TO  THE  NEXT
                                  /RETURN TO   >
                                  \CALLING PROGRAM
                                                B-78

-------
                                                         CAASE2
                                                         SUBROUTINE  SORT
                    SUBROUTINE
                       SORT
	LOOP_qN_ 2NDjrp_
f(LOOP ENDS AT  20)
                        "  LAST  GRID  SQUARE
                  SET INDEX FOR
               •PREVIOUS VARIABLE
        J.OOP ON_2Np_TOV LAST JJRID SQUARE
      f(LOOP ENDS AT 10)
      t
                 10
      T
I(LOOP ENDS AT 20)
                                             SAVE ITS
                                              INDEX
                 STORE PERTINENT
                   INFORMATION
                .ASSOCIATED WITH
                 MINIMUM VALUE
                 (7 PARAMETERS)
                 REPLACE MINIMUM
                   VALUE WITH
                   NEXT VALUE
               20
        END OF
                  SWAP CURRENT
                  WITH MINIMUM
                  VALUE FOR ALL
                   7  PARAMETERS
                                   LOOP
                                                T
                     RETURN TO   >,
                  CALLING PROGRAM )
                  v^             ^/
                          B-79

-------
w
g
c
L
                                                                                       00000100
                                                                                       00000200
                                                                                       00000300
                                                                                       00000*400
                                                                                       OOOOObOO
                                                                                       00000600
                                                                                       00000700
                                                                                       OOOOOHOO
                        /SPtC/  r,AUCK(5),J>TAlE(b,10),C:NTY(5,lb), I DCO ( 1 b ), NRtCO ( 1 b) , 00000900
                                                                                       OOOOIOOO
                                                                                       00001100
    L«A;jt-2  PROCLSblNG ROUTINES AS SUbRlJUT I NtS .
lultt;fc.K  L)l»U.UY,UIMEriX
Ui:'it.ujilKJ  Ml/b,20b), LG(J(2boJ,  ARbAU(2b6)
           P  (LuiDC 1 ) , AHLAIJd ) J
C
C***
C
C
C
C
C
C
C
C

C***

C***
                          YURIG/Ml/Uf ID, YASSUC
     * f ILL  UtVlCL
        JH      RLAUtR
        up      PRlnlLK
        .^PUuUM PUNCH
        i.iiMl    COUNTY IHlTLINtS
        ..lu00
                                                                      00002300
                                                                      00002^00
                                                                      00002bO()
                                                                      00002600
                                                                      00002/00
                                                                      00002HOO
                                                                      00002^00
                                                                      00003000
                                                                      00003100
                                                                      00003200
                                                                      00003300
                                                                      00003«00
                                                                      00003bOO
                                                                      00003600
                                                                      00003700

-------
I
00
          t.
          C.
          L
          C
                 .1 . .  ./ _ I » (
                 U'l|'iLlJl-»l / j

                 L I <*u=:.4 'JlJi-iLU
   ibi »»fL=ll)CUlL J/1000
   ILuUu l' = IDCU(L)-lSTAlt*l 000
   -MIL (.^MlO  L, IS! ATt, 1C.OUN1 , (CHI Y U,L),f>l=l »5)
   M.KI-M!  (SX'  blAfl.LUUt  /  COUMTY  CLtOh / COUNTY  NAMfc. '/ 15, I H , I 1 3, bX ,
  1 '4J
   HJK.-.MF  (//'  HLMbtK DP  LfcNbUS  CUUTRuL CLLLS  =',lf>,'  tXCfcKDS ' , 1 b , '
  li'iKublU^AL SIDRAlit.  CAASL2 TtHMK'JAT t.U AFTER  * *CALL  IhPOP*  **)

RF Au  IN  LiiuHUl'-JATlb  OF ClOilhTY OUTLINE  StliMENT'3

l^ALi\  IMF  LiilijiiUAKY OF i- ACh  COUulY  THROUGH THt  Ui'JlT CKL  liRIl;  MAFRIX
i't ILiJi-a.-JL  /.MlCn i)i.,ll  CtLLb  AkL iNlt-RlOR To,  LXTtRIOR TO,  AI-ID  (|i\)  THt
I inn, M  uull.KU.  HuuiiUARY I'.ITHIU Iht  CfJiJTAiDliJl,  RtCFAMbLt  WHICH GOES
Fj'iii.  lini lu Jt-v.-lT, JbO TO  Jn^lT.)
  00003HOO
  00003900
  ooooaooo
  ooooaioo
  00004200
  0000<4300
  0000*4400
  00004500
  00004600
  00004/00
  00004800
  00004^00
  00005000
  00005100
  00005^00
  00005300
  00005400
  00005500
  00005bOO
  00005700
  00005800
  00005900
  OOOObOOO
  00006100
  0000o«?00
  00006300
5A00006400
  00006500
 U00006600
  00006/00
  00006800
  00006900
  0000/000
  0000/100
  00007^00
  00007300
  0000/400

-------
           L                                                                           00007bOO
                 U  !\(OUT2                                                         00009000
                 KEMiuD  I'jOUl 1                                                         00009100
           C                                                                           00009200
                 cli  io  L=l,uUnCO                                                      00009300
w          f                                                                           00009-400
oo          L  KLAl'  Inh  l.t^SUS POPULATIOI«i  DATA  EXTRACTED BY  CAASE  1 INTO  THE  I NTEGER00009bOO
           C  ARK«»  rvf-(r,X).  IhPOP -MILL  SORI  THE NON-ZERO  VALUES OF KF(Y,XJ  BY    00009600
           C  ASCL.MUiui,  COLUMNS bY RO^S  AMD  PLACE IN VfcCTOR  STORAGE.                00009700
           f                                                                            00009800
                 lo UIE = 1DCO(L)/1000                                                  00009900
                 U,Ou,j| = iDCO(L)-lS fATE* 1000                                           00010000
                 KI.AJ;  (HUUI2J LL, ID, IGO, IK.UT , JGO, JKln.1 T                              00010100
                 «.rED                                           00010800
                 oitJf                                                                  00010900
                                                                                       0001 1000
              l>(-TtK  'l-j('iiK' .\KHay Mt,X)  CONTAINS VALUES  Of-  POPULAJIOiM.             00011100

-------
ca
I
no
         c
         c
         L
         C
         C
         c
         c
         40
         50
         c

         c
         L
         c
         c
         c
         c
= PUHuLAJ iUN( Y,X)*2*M6  t  HOUSING(Y,XJ IK THE! UNIT  CELL  CENTERED ON
( YfUul lAi'.KilL (,
-------
       90    h (lf JJ=U.                                                           00014900
       L                                                                         00015000
       C     KLAU  (ML  PRUX1HAL  MAPS F OR ALL COUNTIES  INTO  THE  GK'ID CELL ARRAY. 00015100
             UU  11 o  L=l»riUMCU                                                   00015200
             KLAD  (tn)UTl)  LL,IDL, lGO,lHi*vlT,JGO,j!v/\iIT                            00015300
             uiJ  loo  I=IGO,IKWIT                                                  00015400
             KtAlv  (NUUTIJ  (AKtAlJ(J) , J = JGO, JKwIT)                               OOOlS'sOO
             uu  100  J=JGU,jKnIT                                                  OOOlbbOO
       100   KU»Jj=Kl»J)4ARtAU(J)                                             OOOlb/00
             uu  no  I = IGU,iKt'di                                                  oooisaoo
       110   KtAU  (Is/uUTl)  DUMM                                                   00015900
       C                                                                         00016000
       C  (iKiu LfcLL  AKRAY  KI,J)  NOW  CONTAINS VALUES  OP POPULATION OVER ALL    00016100
       C  CijUul iLb.                                                              00016200
       C-                                                                         00016300
       C  RETURN »lo  IF  THE  NUMbER OP  GRID SQUARES EXCEEDS  JHE  MAX PERMISSIHLE.00016«00
                                                                                 00016500
          KMuKu u±7  U  A  GRID  IS  PROVIDED bY THE USER.                         00016600
       C                                                                         00016700
w            tAUL  GRIUIT  (MaO,iil20,UlMLMY»l)lMEI\|X,hMAX, ICOUNT, TOTPUP, TOTHOS, MUMOOO I 6800
»            IbuHJ                                                                00016900
       t                                                                         00017000
       C  DELL It Li-iprV SUUARES  AND ADJUST BOUNDARY SQUARES.                     00017100
       C                                                                         00017200
             CALL  AUJUST  U140,hUMSUH)                                          00017300
       L                                                                         0001/^00
       C  ISIEGhArE  POPULATION,  HOUSING AND AKEA bY COUNTY  BY  GRID SUUARE:     0001/500
       C                                                                         00017600
       lr'0   KL^IuD  nOUT 1                                                        00017700
             Kt /-nviu  nOUld                                                        0001 7800
       f                                                                         00017900
             CALL  buROF-h  (NiaO,i>jUMS(JR)                                          00018000
       C                                                                         OOOlttlOO
       C  SLiRl IML SUUARtS hY STATE HY CLHJtiTY BY NORTHING BY EAS1ING:           00016200
             LMLL  5ui
-------
                                                                                     00018600
                      UUlPUT                                                         00016700
           <•                                                                         00018800
                 KKilL (NP,1JSO)                                                      00018900
           150   HJKi-i«T (//'  HUISh  CAASE2')                                        00019000
                 cjluK                                                                00019100
           C                                                                         00019200
           C  X10 lu CASE NUMSUK EXCEEDS  MAXSQRr  KJCHkASE PARTITIONING THRESHULD    00019500
           C  F'.-'pAX MHU fKY AGAIN,                                                    00019400
           t                                                                         00019bOO
           140   lMAX = hi1AX*l ,5                                                       00019600
                 iF  liMFHYS.Ll .MAXTRY)  WRITE  (NP,lbO)  NUMSQR, MAXSQR, TMAX, F MAX        00019700
           IbO   huKhAl (//'  |H(-. NUMBER OF GRID  SQUARES, ', 16, ',  NDrt EXCEEDS THE MAX00019800
                IH'UM HbRMISSIBLE,',16,'.'/'  WILL PARTITION  AGAIN rtlTH NEw FMAX,',t00019900
                2\d.^,', EQUAL  l.b*PREVIUUS  PMAX,',E12.b)                           000^0000
                 ul KYS = iNlRfSt 1                                                       000^0100
                 if  (i^TKYS.Lt .MAXTRY)  GO  TO  BO                                       000^0200
                 slOH                                                                00020300
           C                                                                         00020400
                 t-i.L;                                                                 00020500
00
Cn

-------
i
00
               SUOKUU TINE
         c
         r.
         c
REAP
            fht COUNTY OUTLINES,
     IMA,XURIG,YORIG,MTUZ,ID,YASSOC
             / I OF ILE/ NR , NP, NPUNCH, N IIM1 , N I
c:
c
c
c
c
c
c
c;
c
c
c
c
NR
NP
rjPUNL
N I iv 1
I'M ] h d
MOO I 1
MOO It?
f\.OU I 3

NPLUI


                   - CARD READER
C*****wLnu
         10
         c:
         c
         c
                                                                   00000100
                                                                   00000200
                                                                   00000300
                                                                   00000400
                                                                   00000500
                                                                   00000600
       DFE,DEN,DTE,DTN                                             00000700
       /SPEC/ E (175, 205), A(iiCR(5), STATUS, 10),CNTY(5,15), IDCO( Ib), N00000800
KtLU(lb),SMX(4,315D)                                               00000900
       /LINED/ MSTATE,NUHCO,NRECT,NX,NY,LTWO,GXMIN,GXMAX,GYMIN,GYM00001000
                                                                   00001100
                                                                   00001200
                                                                   00001500
                                                                   00001400
                                                                   00001500
                                                                   00001600
                                                                   00001700
                                                                   00001800
                                                                   00001900
                                                                   00002000
                                                                   00002100
                                                                   00002200
                                                                   00002300
                                                                   00002400
                                                                   00002500
                                                                   00002600
                                                                   00002700
                                                                   00002800
                                                                   00002900
                                                             STATE(00003000
                                                                   00003100
                                                                   00003200
                                                                   00003500
                                                                   00003400
                                      THE  TOTAL  COUNTY  00TL1NE F1LE00003500
                                     THE  TOTAL EILE  IN  THE FUTURE  00003600
                                  "ZERO.   'INHOUivl'  KILL rtRIJE THE  00003700
                                                       IVUUT I , NOUTe?
            CARD
            CUUNTY UUTLlNtS; INPUT DATA
            LAASL1 LtNSUS UATA FILE;  INPUT  DATA
            COUNTY OUTLINE. NuDtS; OUTPUT  FILE  (SCRATCH),
            btWATCH UOTPin FILL
            THE SUBSEI OF THt  TOTAL CUUNTY  OUTLINE  FILE  COMPRISING
             STUDY AREA  (OPTIONAL) .
            AS NUUT1, I- OR PLOTTING BY CAASE3  (OPTIONAL).
                                                                             THIS
                            CARDS
      IrJPLuT.GI.OJ
                             (UPLU1,10)
                                                 T3, NPLfJT
                                                 iMSTAtE,AUCR,MTUZ»NUUT3
              13)
               uU
         NAT ClAIR UUALITY CIJNlROL REGION
         luCLODED IS ',J4, 10X,'PRIMARY UTM
                                         IS  ',5A4,//,6X,'Ni
                                         ZONE  IS  ',1'4,///)
                                                                         OF
  *HLAU  lu STATE hY STATE
THE LUUuTir OUTLINES rJAuTtD, A SUBSET
/  CAw DE SAVED TO tmVlATt READING
HY ot-'EHhrlNG OlITPUT DEVICE .40UT3 N
                                         OF

-------
c couunr OUTLINES TO NUN-ZEKO NOUT
c
UO til) K=l,lJS1ATE
htrtl> (uk,10) NCrUY, (STATE(L,K
It- (I.PLOT.bT.0) '.JRITE (NPLOT,
iJis ( «K T=UUMCU+ 1
(JtUU = gUMCOtNCuT Y
30 POKMAT (14,5A4)
t«KIFE (IMP, 40) (3TATE(L,K),L=1
40 HJKMAT ('0',5X,'THE STATE OF
11) Y AREA', 214)
UU /u l=f--iST AKT,IMEND
KLAU (iM«,30) IDCfl(I), (CNTY(M,
IF UJPLOT.bT.O) WRITE (NPLOT,
iUCo( U = IDUKI )tlOOO*ICOI)E
i'Hilt (uP,50) (CNTY(N',I),M=1 ,
50 HJKMAf ( '0', 'COUNTY ',5A<4,'
IP li.Eu.l) fit) TO 70
if- (lOCO(I).bT.ll'CO(l-l) ) bO
w L *EKKOK EXIT
Jo rtMFt (NPr60)
^ oil FuKi-tAf (' *** **ER«OR*** * * STA
It.KlLAL uRIJEK')
blUP 21
70 L'JiJ 1 I HUE
uiJMCO = ijUMCUff-lCnT Y
MO CUIM 1 luijt
C.
f. *****l,Ml | i,»L UE blJMMAKY VARIABLES
bXi--.lN = 
-------
Ob
I
00
00
          I. *****bL«KLil FUR  STARTING  RECORD
          90    KEAU  (N1N1, 1<)0,LND = 230)  10, I F t , 1FN , I TL , I ! N, MZUNE
                F'L = 1FL/10.
          100   HJKKiAf  (ISr 12X,i;i5f2X,2IS,I2)
                If-  UD.LT.IDCOU) )  liU TO 90
                it-  (ID.EU.IDCU(l) )  GO TI.1 110
          (.    *LKKUH LXlI
                .
-------
130
1/40
C
C
c  •
loO
C-

170
 it-  lYn.lil ,UYMAX)  (;YN'AX = YH
 ••Hilt (uOUTl,130)  If'Pht.V,XL, YL,XH, YH
 ,
-------
                iJlL=Ut3Lt( Ft)
VO
o
                LALL  GTGK  (UF iM , DF L , XUK , LtHK )
                LALL  UlbK  (DTN,L>Tt,XUR,LtRK)
      IF  (LtKK.tU.O)  fit) TO 200
C         *tKKUK  LXIT
      rthilh  (NP,190)  It)
190   FUK.'iAl  (' UIi'l LU.vJVFKSlUh BAD FUK  ST A Tt-CNT Y:
      bI UP 26
200   LulH
                                                                 I 10)
IF
lh
IK
IF
01*1
IFt.Lf.XL) X L = F t
IFt.bl.XH) XH=Ft
IFN.LT.YL) YL=FN
UL.LW.XL.AMU.TF. .LT.b'XMlfJ)
U3, ioMX) = Tt



ILtFT=ISMx

               *LfiLl.K  HJ*<  HF.AO Til TAR hATCH
                IF  (Ft.Ht.P1t.AMO.PTt. .NF ,-9.
                IF  ( f- IM . ,y)t . HT ! I . Aijp . P TM . Nt . -9 . 99t
LPRLIB = 1
LPHOB=1
             * * *Kt.
                                          1U, IFE.» IFN,I ft, I IN/MZUMF
                F F = l F t" / I 0 .
                K'<=U N/ 10.
                 11 - II L / 1 (».
                 1 iv = i I IJ/ 10.
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
                                    bOOO
                                    MOO
                                    5200
                                    bbOO
                                    b700
                                    bflOO
                                    5900
                                    6000
                                    6100
                                    6200
                                    6300
                                                                                6bOO
                                                                                6600
                                                                                6700
                                                                                6800
                                                                                6900
                                                                                7000
                                                                                7100
                                                                                7200
                                                                                /SOO
                                                                                /UOO
                                                                                7bOO
                                                                                7600
                                                                                7700
                                                                                7800
                                                                                7900
                                                                                8000
                                                                                8100
                                                                                8200
                                                                                8300
                                                                                8400
                                                                                8bOO

-------
      U  IFt .tU.Tt.AulJ.Flg.KJ.TU)  GO TU 210                                00018600
      IF  d»iXLO.Ll                                                       00019900
                 \ *-NUf-'SLG                                                   00020000
                                                                            00020100
      II-  UL.LT.GXMln) GXMIM = XL                                           00020200
      II-  IYL.LT.GYM1U) GYMIN = YL                                           00020300
      IF  (.XH.GT .GXf'.AX ) GXMAX = Xh                                           00020^00
      IF  (Yr(,G! .GYMAX) GY^AX = YH                                           00020bOO
      1^  ILPKUH.ia .0) .'jRlTt  (NP,120) IDPMtV                               00020600
      IF  lLPKU«.iJE.O) STOP 31                                              00020700
      imiTt  (NUtJI 1,130) 1DPKF..V,XL, YL/XH, YH                                00020800
      v-KilL  (nP,130) 1DPP.LV,XL,YL,XH,YH                                   00020900
      if  (NPLUT .Gl .0) wRITt  (I'JPLUT, laO) lUPRh V , XL , YL, XH, YH               00021000
      MJP»nO) ((S^iX(J, I),J=1,4), 1 = ISTAKT, ItNO)                    00021200
      IF  (.JPLUT .Gl .0) ^KlTfc.  (NPLUT,1UO) ( ( SHX (J , I ) , J= 1, a) , 1 = 1 ST ART , U.Nl)) 0002 1 300
     *t.KKUK  LXl T                                                           00021*400
      iF  (ID.LT.IDCOdiNXCO))  nRITl  (MP,220)                               00021bOO
      i^  dU.Ll . JL»CU(1NXCO))  STOP 29                                      00021600
                                                                            00021700
   ***t»*LLULA|f.  » LT>'U BLOCKS fc. T C                                         00021800
      X:iP>\ij = Gx''iAX-iJx[1j!J                                                    00021900
      Tot1 A u=l., YMAX-GYUN                                                    00022000
      |.A = IF iA(XvSPMii/F LOM (LT/0) ) + l                                         00022100
      nY = lF IX ( YSPAij/FLOAI (L l».ti) ) + l                                         00022200

-------
03
I
                 LA IKAX = (r
-------
                     )                                                     00000100
C                                                                         00000200
      bUURUUT liJE  TRACKR  (DIME NY,OIMENX,NUMSEG,UNI TAR, 1GO, IKrtl T, JGO, JKrtl T 00000 300
     IrLi'ij                                                                00000400
C                                                                         OOOOObOO
C  TRALrv  fME  BOUNDARY  OF  THE  LM-TH.  COUNTY IHROUGH THE GRID CELLS  IN     00000600
C  ARRAY  «KEA(I,J).                                                       00000/00
C  COMPUTt THE CONTAINED  AREA  OF  THE BOUNDARY CELLS.                     OOOOOBOO
C  DETLRHIuL  THE  INTERIOR  CELLS,                                          00000900
C  HASlL  ASSUMPTION  IS IHAT  TRAVEL IS DIRECTED COUNTER CLOCKMSE.        00001000
C  COMPUlt IHE TOTAL ENCLOSED  AREA.   IF  IT IS NOT NEGATIVE, DIRECTION  IS00001100
C  CLOCK.USE  AND  NODES MUST  HE REORDERED.                                00001200
C                                                                         00001300
C  NODE COORDINATES  (XI,Yl),  (X2,Y2) ARE ADJUSTED TO ORIGIN BY           00001400
C  CALLING PROGRAM.                                                       OOOOlbOO
C                                                                         00001600
C  Uflll MKLA, "UU1TAR",  IS PASSED AS A NEGATIVE UNITAR.                  00001/00
c  L'-1 is  cuuuiY INDEX.                                                    ooooiaoo
C                                                                         00001900
      iHlLbLR D1MENX,DIMENY                                               00002000
      LOGICAL SIDEU),F IRSTM                                              00002100
              /SPEC/  AREA(175,20b),AUCR(b),STATE(5,10),CNTY(5,1b),IDCO(1bOO002200
                     (31bO),X2(31bO),Yl(31bO),Y2(31bO)                    00002300
C                                                                         00002400
      UJry-iiiN  /LINFO/ NSTATE,r
-------
      (IMP, 30) LU» XMJN
to
           c
           10
           c.
                                            r XMAX, YMAX
                     10 M=l , iM
                       (lMUUn,40)  XI (M), Yl (M) ,X2(M),
                 XI Oi)=Xl (M)-XOKIU
                 Yl (n)=Yl (M)-YURIG
Y2O)=Y2(
-------
                  L,  TARtA,T,AvGY,UELDX,Xl
                                                           (L),X2(L.),Y2(L)
VO
          SO     lARtA=| AREA + T
                 kiKlIt  (NPf6U)  (CfJTY(MM,l_M) ,MN'=1,5) ,TAREA
          60     FuhMAT (/' TRACKER  COMPUTES  TOTAL AREA OF  ',bA4,'COUNTY AS :',E

          C
          C  IF  bib* uK AREA  IS WUT  NEGATIVE,   I.E.  IF DIRECTION IS NOT COONTER-
          C  CLOCKWISE, REORDER THE  SEGMENTS  AND  NODES:
          C
                 IF  (. IAREA.LT.O, )  GO  TO  HO
                 CMLL HEORDR (NUMSEG,X1,Y1,X2,Y2)
                 IAKEA=0.

                 AX=X1(L)
                 Y Y = Y 1 (L )
      r=F ARtA(XX,
                                 Y)
70    I

C
BO    X

C  IUII
c
                                           ,MM=1, 5) ,TARtA
                        LOUUILRS
                 iKo[i'1=.THUfc.
c
C  'I

90
                L-(J
                L = Ltl
                IF IL.bf .l-iUMSLt.) GO  10  1
                AA = M (L J
                t Y = Y i (LJ
                •J 1 = A 1 ( L) + 1 . l'
 00007bOO
 00007600
 00007/00
'.0000/800
 00007900
 00008000
 00008100
 00008200
 00008300
 00008400
 00008bOO
 00008&00
 00008700
 00008800
 00008900
 00009000
 00009100
 00009200
 00009300
 00009400
 00009bOO
 00009600
 00009/00
 00009800
 00009900
 00010000
 00010100
 00010200
 00010400
 00010400
 OOOlObOO
 00010600
 00010700
 00010800
 00010900
 0001 1000
 00011 100

-------
100
llu
      H = Y1(L)*1.0
      ULLA=A2(L)-X1(L)
      UtLY=Y2(L)-Yl (L)
      IP ILM.UE.J.AiMD.L.lU.Saj  PRINT  100, L , 1 1 , J 1 , DELX , OIL Y
      HJKMAT  (/' 2  L  11  Jl  bELX OELYV3I3,2P10.4)
      Ai', = Jl-i
      XP = J1
      Yl'i = il-l
      YP=II
      IP UH.GE.7.AND.L.EU.34)  PRINT  \^(), L , J 1 , XM, XP , I 1 , YM, YP
      I-UKMAT  (/' 3  L'rIbra(Ib,2F10.2))
     Sl btbMLUF FROM  (XX, YY)  TU  ( X2(L ) , Y2 (L J ) FOM I NTERSLC T ION  (X,Y)
     TU biUtb OP LtLL  (II, Jl).
       IhE ILKrtlMJS DP  TMP.  SEGMtNT  IS 1N3IDL THt CELL,  (X,Y)  vjRL  BE
            tuUAL TU  (X2(L), Y2(L)).
C
C  U
C  M
C  IP
C  Pt
t
           tUUtlT  (XH,XP, Yf-l, YP,XX, YV,X2L, Y2L,X, Y, ISIOE, NUM, SIDE)
C
C  LUMPUit fht ARLA  1M  CELL  (I1,J1)  CONTAINED t3Y THK SEGMENT  PROM
C  (XX, tY) IU  (>,Y)
      rthEMIlfJl)sAHfcA(ll,Jl)+FAREA(XX,YY,XfY)
      if   ILM.bE.y.ANU.L.EU.Sa)  PRINT  130, L , 1 1 , J 1 , IEN TER, XEN TER , YENTER ,
     ltAil,X/,YY,X,Y,ARtA(ll,Jl) ,(JUM,S1DC
130   hUrti-^At  (' I.    tl    Jl  ItMTt.K  XtNTER YEfvlTLK IEXH  XX  YY  X  Y  AREA
     l'H.K*i iilUt'//, 4lM,2HO.a, ia,'jP 10. a,/, Ib,aiJ6)
(.
C  CHKKLul TEKMlfJUS  IS  MtXT  UKIGI^
      AX=A
      rY=Y
C
C  IP uu  olut  tvAS  HiTERSECTtD,  I^CHLMLMI 10 THE  NEXT SEGMENT.
      if   luU'^.Eu.O)  ljt.i  TO  90
(
t.  COHPUlt.  JhL EuCl.OSED  AREA
                                   EXIT NUDE Hi ENTRY  NODE:
 0001
 0001
 0001
 0001
 OOOl
 0001
 0001
 0001
 0001
 OOO
 0001
 0001
 0001
 OOO
 0001
 0001
 0001
 0001
 0001
 0001
 0001
 0001
 0001
 0001
1 000 1
 0001
 0001
 0001
 0001
 0001
 0001
 0001
 0001
 0001
 0001
 0001
 1)001
1200
1300
1400
1SOO
lbOO
1/00
1800
1900
2000
 100
2^00
2300
2^00
 bOO
2600
2700
2800
2900
3000
5100
3200
3300
3400
3bOO
3600
3/00
3800
3900
4000
4100
4200
4300
4400
4bOO
4600
4700
4800

-------
           C                                                                          00014900
           140    ltxlf=loIDE                                                          00015000
                  MrtktA=AKEA(ll,Jl)                                                    00015100
                  LALL  v.KAPUP  (IS1DE,X,Y,IENTER,XENTER,YENTER,XM, YM,XP,YP,AAHEA)     00015200
                  If  CIENIER.NE.O) CALL NETBAL  (AAREA,UNITAR)                         00015300
                  '>KtA(JLi,JlJ=AAkEA                                                    00015400
           C                                                                          00015500
           C  A TK1C*  (u  F-LAG UOONDAKY CELLS WITH CONTAINED AREA  EUUAL TO           00015600
           C  UNJIAK  FU DISTINGUISH BOUNDARY CLLLS FROM  INTERIOR  CELLS.             00015700
                  if-  lAKLAUl, JU.EU.UNITAH) ARE A ( 1 1,J1) = .999*UNITAR                 00015800
                  IF-  (Li'l.bt.7. AND.L,EG.34) PRINT  130,  L t I 1 t J 1 » I EN F ER, XtNT ER, YENTER, I 000 1 5900
                1F..A1 f ,XX, YY,X, Y,MP,EA(I1, Jl) ,NUM,SIuE                                 00016000
           C                                                                          00016100
           C:  HAVL  ALL LUUhTY OUTLINE SEGMENTS BEEN  PROCESSED?                       00016200
                  II-  (L.GI .NUDSEG) GO TO 210                                          00016300
           C                                                                          00016400
           C  DETERMINE i^EXT  CELL TO TRACK TO.                                       00016500
           C                                                                          00016600
                  ALUIEK=x                                                             00016700
w                 YENI'EK = Y                                                             00016800
^                 H  lLH.GE.7.AuD.L.EO.i«) PRINT  IbO,  L,I 1,J1,IENTER, I.EX IT           00016900
           150    KJM'iAl (/'  ') hRAPOP L, 11 , JU IENTER, IEXIT',515)                      U0017000
           C                                                                          00017100
           C.  TtSI  I-UK PKOCESSIFJG NEXT SEGMEI-it =  COINCIDENCE  OF  TERMINAL NODE       00017200
           C  AiJ)  t/if NUDE  = i-UlHlh EPS OF EACH  OTHER.                              0001 7iOO
                  IF  (AtiS(X2(L )-X J .LI .EPS. AND. AUS ( Y2 (L ) "Y J t L T .EPS)  L = l.-H             00017400
           C                                                                          00017500
                  IF-  (L.LL.iMUMSEu) CALL ASTOKE  ( & i 60 , DELX , Xc? ( L ) -X , DEL Y , V2 ( L ) -Y , D , D , DOOO 1 7600
                \,0)                                                                  00017700
                  if  IL.GF.IJUHSEG) CALL ASTOFVE  ( M 60 , DEI.X , X2 ( 1 ) -X , DEL Y , Y2 ( 1 ) -Y , D , D , DOOO 1 7800
                l»uj                                                                  00017900
           160    L«LL  DECIDE  lhU(*',SlDt,DELX,DELY,JDEL,I()EL» IENTER)                  00018000
                  J'.'LAf =J1+JDLL                                                        00018100
                  luLX|=1]tI DEL                                                        00018200
                  JtF-  (LM.uE. 7,A,jD.l..tU..44) PHlitT  170,  L , I UE X T, J 
-------
to
I
          C   OETEKMi.Mt CELLS INTERIOR AND tXTERIOR TO  ( 1 1 ,J 1 )--(INEXT,JNEXT)
          C   Ou LLLL KUrt 11.
          C
                U  UUtL.EU.O.AND.IDEL.t Q.O) GO TO 180
                                                                      0001H600
                                                                      00018700
                                                                      00018800
                                                                      00018900
                LALL HlrtlUR (DlrtENYfDIMEUX,I1,Jl, IDEL,JOEL,JGO,JKWl T , UNI I AR, I GO, IK 000 1 9000
                ull)                                                               00019100
                I- IR3[M=.TRUE.                                                       00019200
                IK  ILH.GE./.AMl>.L,EU.34) PRINT 190, 11,J1,(AREA(U,KJ),KJ = JGO,JKttI 00019300
               1 I)
                II-  UKtA(Il,Jl) .GT.UN1 TAR.ANU.ARLAdl, Jl) .LT.O.)  K I RSTM= ,F ALSE ,
          IriO

          190
          200
          C
   Jl=JuEXT
   f-UKMA I  U*2l4,20F6.3,10(/9X20F6.3))
   it-Xi |=o

   it-  (LH.GE.7.ANU.L.EU.34) PRINT 200, L , I 1, J 1
   KJhhAT  (/' GOING TO 3 L II J1',3I5)
PROLEb'b NEXT CELL
   U  (L.Lt.NUMSEGJ GU TO  110
   U  (L.Gf.NUMSEG) GO TO  140
C
C
C
C
r

c

C
100 =
                        KINISHtU T^ACK FOR THIS COUNTY.
             hAKL I- lHAL UETEKM1NATION OF CtLLS EXJEKlOR  TO  BOUNDARY  CELLS AND
             CUNVtHj  RELATIVE AREA VALUES TO POSITIVE.
            )    UiLL  H;gAL (Ul.-lt I\)Y,DIV1PNX,UNIT AR, IGO, IK^IT, JGO, JK.'JlT )

                Kt. 1
00019400
00019^00
00019600
00019700
00019800
00019900
00020000
00020100
00020200
00020300
00020400
00020500
00020600
00020700
00020800
0002U900
00021000
00021100
00021200
00021300
00021400
00021500

-------
      oUtiNtHJT INt hLUKHN (NUMSLG, XI , Yl ,X2, Y2)                             00000100
      U1ML.\J3IUN X1UO), rl(^O),  X2l1=X1(1J                                                           00000700
      bc! = Yl(lJ                                                           00000800
      b3=Xd(IJ                                                           00000900
      t>4=r^m                                                           ooooiooo
      Al(l)=Xc?(J)                                                        00001100
      mn = Y
-------
ta
I
o
o
                       IhiE SIDEIT (XM,XP, YM,YP,X1, Yl ,X2, Y2,X, Y, ISIDE,NUM,SIDE)

          C  'SIDtil' IS CALLED BY 'TRACKR' TO FIND  INTERSECTIONS  OK  SEGMENTS
          C  AND CELL SIDES TO DETERMINE COORDINATES OF  THE  POINT  rtHERE  THE
          COUNTY buunD«RY LEAVES THE CELL.
          C  SUBKuUlinES USED:
          C
          C
          C
          C
C
C
C
C
C
C
     SUBROUTINE
     SUBKUUTINE
     SObRUUTINE
                   YOFX
                   XOFY
                   NSTORE
                LOGICAL SIDEU)

                COMMON /IPAKM/ UNI T AH, ISHIF T,XN-IAXD, YMAXD,EHS
             (XI ,
             (Yl,
             (Yl,

Tl-Sf  btOrtt^T L FOk INTERSECTION KITH SIDES OF CELL  (II, Jl)
   iiMiHALlZE COORDINATES OF IN 1 1 RSEC T ION, THE SIDE NUMBER  AND
   Int UUnbER OF  SIDES INTERSECTED.  TWO SIDES INTERSECTED  MEANS
           THE CELL THROOGH A CORNER.
                 -Xd
                i * u !•) - U
          C
          C  f t SI  f UK
          C  I
          C
          C
          C
   IF

TEST
                     • JODE (X2,Y2) THIS SEGMENT  BEING  STRICTLY
            (U THIS CELL AND  THEREFORE NO  INTERSECTION.
                       X«?.L1 . XP.AHD. Y2.GT . YM.AMO.Y2.LT .YP)  RElURivl
                               SlUtS  1 8, 3.   SOLVE  FOR  Y  vMlTH  X = XM
              = XP,
                X tl = A :-1
                ivo 10
oooooioo
00000200
00000300
00000400
00000500
00000600
00000700
00000800
00000900
00001000
00001100
00001200
00001300
00001UOO
OOOOlbOO
00001600
00001700
00001800
00001900
00002000
00002100
00002200
00002300
oooo2aoo
00002500
00002600
00002700
00002800
00002900
00003000
00003100
00003200
00003300
00003400
00003500
00003600
00003/00

-------
                bIDE(KS!DE)=.PALSE.                                                00003800
          C                                                                        00003900
          C  FINU Y COORDINATE UP INTERSECTION OF SEGMENT  AND  THE  SIDE  NUMBER      00004000
          C  'KSiuE'.                                                              00004100
          C                                                                        00004200
                CALL YOFX (XU,X1,Y1,X2,Y2,YB)                                      00004300
          C                                                                        00004400
          C  IS I ML Y-COORDINAU UP INTERSECTION ON  THE SIDES  OP  THE  CELL?         00004500
          C                                                                        00004600
                IP  ((YP-YBHEPS.GT.O.,AND.(YB-YM)tEPS.GT.0..AND.( XMAX-XB)fEPS,GT,000004700
               1 , .AND. (XB-XM1N)+EPS,GT .0.) S IDE (KSIDE ) = . TRUE .                      00004800
          C  THE  LiMTrtY NODE IS AN UNWANTED POSSIBLE  SOLUTION.                      00004900
          C                                                                        OOOOSOUO
          C  IS FHE POINT OF INTERSECTION THE ENTRY  POINT?                         OOOOblOO
          C                                                                        00005200
                IP  lAhS(XH-Xl).LT.EPS.AND,AOS(Yb-Yl).LT.EPS) SIDE(KSIDE)=.FALSE.   OOOOS300
                IP  t.nor,sn;E(*siDE)) GO TO 10                                     00005400
          C                                                                        OOOObbOO
          C  GO TU hEXf  SIDE AND TEST IT POH INTEHSECI ION.                         OOOObbOO
td         C                                                                        OOOOb/00
M               IolUE=K3lDE                                                        OOOObbOO
M               Y=Yb                                                               0000b900
                A=Xo                                                               OOOOfaOOO
                hUMSHUMfl                                                          00006100
          10    Mi=XH                                                              00006200
          C                                                                        00006300
          C  USI PUN INTERSECTION «ITH SIDES 2 AND  a.  SOLVE  FOR  X Wl!H  Y=YM  THEN00006400
          C  Y = YP'.                                                                  00006500
          C                                                                        00006600
                YA=r>4                                                              00006700
                UU do KSIDE=2,4,2                                                  00006bOO
                blUL(»\t)jDE) = .FALSE.                                                00006900
                LMLL XUPY (YA,X1,Yl,X2,Y2,XA)                                      00007000
                IP  I (XP-XAm.PS.GT.O..AKil). (XA-XM )+EPS.GT.O..AND.(YMAX-YA)+EPS.GT.0000071 00
               1 ..MNU.CYA-YMl'JJ+tPS.GT.O.) SIDE (KS IDE ) = . TRUE .                      00007200
          C  THE.  t-NlKY uODE IS AM UN^AIjTED POSSIBLE  SOLUTION.                      00007300
                IP  UbSlXA-Xl),LT,tPS.AND.AbS(YA-Yl).LT.fcPS) SIDE(KSIDE)=,FALSE.   00007400

-------
o
to
         20
         C

         C
         c
         C
         c
         c
         c
30

c
c
c
'40
         50

         60
         c:
         L
         c
         r.
         c
      IF (.NUT.SIUL(KSIDE))
      lSIUE
      A = X A
                                         IU  20
   IF (inliM.GT.O) RETURN
IF uU 1MLKSECTIUNS THt bEGMENT  (XI, Yl)  TO  (X2,Y2)
CUHMLlUtiMf rilTH A SIDfc UF  ! HE  CELL  AND  (X2,Y2)  MAY
SIDE.
                                                       MAY Oh
                                                       HE UN A
AKL"
             A VLhTlCAL SIDtV
   IF (AbS(X2-Xl).GT.EPS) GO  TO  40
   IF (x2.tQ.XM.AfMU. (Y2.LE.YP.AUD.Y2.GE.YM))  S I DE ( 1 ) = . TRUE .
   iF (SlOb(D) CALL NSTuRE  (430, I SIDE , 1 , NUM, NUMt 1 )
   IF (X2.LQ.XP.ANU.(Y2.Lt.YP.ANU.Y2.GE.YM))  SIDE(3)=.TRUE.
   IF (3IDE(3)) CALL NSTOWt  (£40,ISIDfc,3,NUM,MUMt1)

ARfc fvt UN A htlRIZUNTAL SIDE?

   IF Ub3(Y2-Yl) .GT.EPSJ GO  TO  60
   if (Y2.LQ.YM.ANl). (X2.LE ./P. AhD.X2.GE . XM) )  S I DE ( 2) = . TRUE .
   IF (blDL(2)) CALL NSTTiRF  (<>>t50 , I SIDE , d , MUM, MUMt 1 )
   IF (Y2,EQ.YP.AfjD. (X2.Lt .XP.AND.X2.GE.XM) )  S IDE ( 4 ) = . T RUE .
   iF (3IDE(4)) CALL NSTURE  (460,1SIDE,4,NUM,NUMt1)
   IF VNUM.GF.O) RETURN

Ml vSIDL3 INTLRSECTED AND  TERMINAL NUDE  OF  SF_GMtNT NOT INTER
CELL.  bLliMENT MAY ORIGINATE  ON  A CELL  SIDE  AND  BE  DIRECTED
THt LLLL.
      IF
      iF
      If
      IF
                   tAH3(Yl-Y'1) .LT .EPS)
                   (AH3(X1-XM).LT.EPS)
                   UbS(Yl-YP).LT.EPS)
                   (AhS(Xl-XP).LT.EPS)
                          S1DE(2)=.IRUE.
                          SIDt (1 J = . TKUE.
                          SIOE(«)=.(RUE.
                          blUE.n) = . TRUE.
          00007bOO
          00007600
          00007/00
          0000/800
          00007900
          00008000
          00008100
          00008200
          00008300
          00008400
          00008bOO
          00008600
          00008700
          00008800
          00008900
          00009000
          00009100
          00009200
          00009300
          00009400
          00009bOO
          00009600
          00009700
          00009800
          00009900
          00010000
          00010100
          00010200
          00010300
IOR TU    00010400
 ArtAY FRUMOOOlObOO
          00010600
          00010/00
          00010800
          00010900
          00011000
          0001 1 100

-------
                 UU /O KS10t=l,a                                                     00011200
                 if (SIUt(KSIUe ) ) CALL  NSTORfc.  ( 8, /O , ISIDL, KSIDt, MUM, NUM-H )           00011300
           70    LOi'jTlNUL                                                            00011400
                 IP XiMUM.EO.y)  RE.TUKN                                                OOOllbOO
                 X-xl                                                                0001160U
                 Y=Y1                                                                00011700
                 KtJUKN                                                              00011BOO
           C                                                                         00011900
                 fcNU                                                                 00012000
o
u)

-------
                SUBROUTINE ARAPUP (1UUT,XOUT,YOUT, TEN 1ER,XENTER,YENTER,XM,YM,XP,YPOOOOO100
               IfHKEAJ                                                              00000200
          C                                                                         00000300
          C   'I'/RMPUP'  COMPUTES THE SEGMENTS AND THE TRAPEZOIDAL AREA UNDER  THEM    00000400
          C   GOIUb  UUONTER CLOCKWISE ON THE SIDES OF A CELL FROM THE EXIT  NODE ON  00000500
          C   SIDL  1UUT  fO THE ENTRY  NODE  ON SIDE IENIER.                           00000600
          C   THE INDIVIDUAL AREAS, TMPARE,  ARE ADDED TO THE CUMULATIVE SUM  OF  THE  00000700
          C   CON I MINED  AREA OF THE CURRENT  CELL.                                   00000600
          C                                                                         00000900
          C   xENTt.K AinD YENTER ARE THE COORDINATES  OF THE ENTRY NODE.              00001000
          C   XM, Y"t,  XP,  YP ARE THE  CORNER  COORDINATES OF THE CELL.                00001100
          C   SIDE  iMUMtJER  1 IS THE 'WESTERN' SIDE OF THE CELL.  THE OTHER SIDES ARE00001200
          C   NUMOLKLD  SEUUENTIALLY COUNTER-CLOCKWISE FROM SIDE 1,                  00001300
          C                                                                         00001400
          (.                                                                         00001500
          C   THE CELL  TRANSECTED bY  THE FIRST  vSEUMEN I IN THE LIST CAN NOT  BE       00001600
          C   rtKAKPtU  UP UNTIL THE LAST SEGMENT IN THE LIST IS ENCOUNTERED.         00001700
          C                                                                         00001800
                LUbiLAL FINISH                                                     00001900
w         (.                                                                         00002000
M         C   FlKJf  SEGMENT IN THE BOUNDARY                                          00002100
°         C                                                                         00002200
                IF  UENTER.NE.O) GO  TO 10                                          00002300
                         I                                                         00002400
                         T                                                         00002500
                                                                                   00002600
                nLlURN                                                              00002700
          10     ir  UiJUl.NE.O) ('0 TO 20                                            00002800
          C                                                                         00002900
          C   FINAL  StGi'iENl IN THE BOUNDARY.                                        00003000
          C                                                                         00003100
                AUU(=XSAVE                                                         00003200
                ruuUrSAVE                                                         00003300
                IuUi=iSAVE                                                         00003400
          20     lbiuE=IuUr                                                         00003500
                F l,JlSH=. FALSE.                                                     00003600
          L                                                                         00003700

-------
           c
           c
           c
w
I
o
t_n
c
c
c
30
C
C

c
c
c

40

50
           60

           YO
BEGIN Af IhE EXIT NUDE:

INIIlALIZL (XI,X2),  (Y1,Y2) FUR EXIT  UN  SIDE  1
   it- USIDE.EQ. 1) CALL ASTURE  ( 8,30 , X 1, XUU T , Y 1 , YOU! , X2, XM, Y2, YM)
INIIlALIZE (XI,X2),  (Y1,Y2) FUR EXIT  UN  SIDE  3
   IF USluL.LU.3J CALL ASTURE  (&30,X1,XUUT,Y1,YUUT,X2,XP,Y2,YP)
INITIALIZE (XI,*2),  (Y1,Y2) FUR EXIT  ON  SIDE  2
   II- (ISIDE.EU.2) CALL ASTURE  ( X.30 , X 1 , XUUT , Y 1 , YUU T , X2, XP, Y2, YM)
INITIALIZE (XI, X2),  (Y1,Y2) FUR EXIT  UN  SIDE  4
   iF US1DE.EU.4) CALL ASTURE  U30 , X 1 , XUU1 , Y 1 , YUU T , X2 , XM, Y2, YP )

EXII  SIDE AND ENTRY  SIDE. MAY  BE THE SAME  SIDE.

   IF UEnfER.NE.IOUT) GO  TU  130

ENTKY AND EXIT SIDES ARE THE  SAME  SIDE.

THE AKEA UNDER SEGMENTS ON SIDES  1  UR  3  IS  ZERO,'  RETURN  TU  CALLING
pRUbKAM .Mirnuui  ADDING 10 CUMULATIVE  AREA UF  THE  CURRENT CELL.

   bU IU (40,50,60,70), ISIDE
   IF (YUUl.LT.YENFER) GO TU  130
   r\E f UK,\|
   IF (XUUT.GT.XEUTER) GU  IU  130
   f- li-U JH= . TRUE .
   I<-.PAKE=FAREA(XUUT , /UUT , xLN T E R, YE NT ER )
   bU lu 140
   IF (n.JUl .GT .YErUER) GU  IU  130
   HE I >JKu
   IF UUUI ,LT .XtNTER) bU  TU  130
   h-lKAKE = FAREA(XLiUT , YUUT , XFINT ER, YENTEK )
   F IUJSH=.TRUE.
   bu lu l<40


TRAvLL   IU THE NEXT SIDE AFTER JS1DL HAS  hEEN  INCREMENTED 1.
THE MKLA UNDER SEGMENTS Oh SIDES  1  UR  3  IS  ZERU.   BRANCH PAST  THE
00003bOO
00003900
00004000
00004100
00004200
00004300
00004400
00004500
00004600
00004700
00004800
00004900
00005000
00005100
00005200
00005300
00005400
00005500
00005600
00005700
00005ttOO
00005900
00006000
00006100
00006200
00006300
00006400
00006500
00006600
00006700
00006bOO
00006900
00007000
00007100
00007200
00007300
00007400

-------
I
M
O
           C  CUMULAilvt SUM Al STATfcMLNT  20
           C
           80    liu lU (90, 100, 110, 120),  IblDt
           90    CALL ASIURf. U150,X1,X2, Yl, Y2,X2,XM,Y2, YM)
           100   CALL ASIORL ( til 30 , X 1 , X2, Y 1 , Y2, X2, XP , 12, YM)
           110   LALL ASJORt U 1 50 , X 1 , Ai!, Y 1 , Y2, X
-------
                 oUbHuuflNE DECIDE  Uo fu au                                                            00002100
-J          30    1 = 3                                                                 00002200
           'JO    if (ufcLY) bO,60,70                                                  00002300
           SO    J=l                                                                  00002aOO
                 OU fu HO                                                            00002500
           60    J=d                                                                 00002600
                 l.U fu dU                                                            00002700
           /'*    J = i                                                                 00002800
           HO    lh UUN..EU. 1 ) bl) TO 90                                             00002900
                 1DEL = 1IIMC(1, J)                                                      00003000
                 If- ( (oluE( 1 ) .C.K.SILiE(3) ) .AUD.SJIJE('4) ) luEL=IDELtl                  00003100
                 JDLL = J luC(J,JJ                                                      00003200
                 It'j lhh=ENTEHl (I , J)                                                  00003300
                 II- t .uuf . ( (i)IDE (2) .nf-:.SlUK (a)) .A.JD.SIDL(3) J ) KETUKU                00003«00
                 Ji'LL=J^KL*l                                                         00003500
                 lt.,TLK = t!-f I Kr>( 1 , J)                                                  00003600
                 r\L I UK,.|                                                              OU 00 3 700

-------
          1K<     ih  (bluL(U)  CALL ilSUJKt ( & 1 00 , JDtL , J INC ( 1, J ) , UN? LR , KIM TEW 3 ( 1, J ) )  00003800

                 U  CoIUtU))  CALL NSTUKt («•100,1DEL,11NC(1,J),IENTER,LNTtRa(I,J) )  00003900

                 U  (SiUt(3))  CALL NSTUKt: ( & 1 00, JDLL , J INC (I, J ) + 1 , ItNTLR , LNTKH3 (I, J ) 00004000

                1)                                                                    00004100

                 il"  iSiutU))  CALL USTOKt (&100, It)tL» I INC (I, J) + l, ItuTtK, LNIEH^ ( I , J)00004
-------
I
M
O
          C
          C
          C
          C
          C
          C

          C
          L
          C
          C
          10
          f;
          C
          20

          30
          '40

          L

          bo
                        1NE  NIRllJR (l;JMfcNY,[)lMENX,Il, J 1,1 DEL, JDEL, JGU, JKwJ T,UN1
'iMlrUuK'  IS CALLLU  BY SUbK. TKACKEH  AFTER  THE FIRST WRAP-UP Of"  A
BOllfJUANY  CtLL  Til  DETERMINE THE CtLLS  INILKIUR AND tXFLKIUR Tl)
IT AUU  Hit NEXT lifjlJNDAKY CtLL Ih THE  NEXT  CELL IS NUT THE CUKKENT
CtLL.

          /SPbL/  AHfc A(17b,20S),X(160),Y(a, ilbO)

           THfc  J-Irl
   J 1 IN L = 0
   if  (1ULL.ELI.O)  GO TO 40
   JlnL = -ISlGI'Ul , IOEL)
   J J = J 1

DLTLKfiI(*E  [HE  INTERIOR  CELLS DIM KiJW  II:
   JJ=JJ4JI N C
   if- UJ.LT.JCiU.UR.JJ.GT .JKWIT) GIJ  TO  c?U
   U tAKtAlIl, JJ).EQ.O.) AHtA(U,JJ)=UNlTA«
   il- UKr.Adl, JJ) .E(J.UUllAK) GU FU  10

Dt Tt.hi-iiuh  |Ht.  LXTEHIUR  CELLS UU RUrt  II:
   JluLz-JirjC
   J J = J 1
   JJ=JjtJ IrlC
   U CJJ.LF .JGO.UH. JJ.G1 .JKrtIT) GO  TO  <40
   if  l^RLAd 1 fJvJ) ,tu. UMIAK) ARtA( II , JJ) = 0,
   U  UKtAl 11 ,JU) .LU.O.) GU Til 30
   i^ UuEL.t-U.O)  KhTURU
   i iuL=ibiGfi( 1 , Jut L)
I-H Tth.-li'iL  IHt  liJItKjOk  CELLS I 'J COLUMN  J 1 :
   il-il
   i i = i it li'JC
   it- U i.Ll . I'iO.OR.ll ,GT . iKrtl T) GO  TO  bo
    00000100
    00000200
TAK,00000400
    00000400
    00000500
    00000600
    00000700
    00000800
    00000900
    00001000
    00001100
    00001200
    00001300
    00001400
    OOOOlbOO
    oooouoo
    00001700
    ooooieoo
    00001900
    00002000
    00002100
    00002200
    00002300
    00002400
    00002bOO
    00002600
    00002700
    00002800
    00002900
    00003000
    00003100
    00003200
    00003300
    00003400
    00003bOO
    00003600
    00003700

-------
w
 I


60





C

c
c
c
c
I
c
c
L
C
L











HU



90
iF UREAdI, Jl) .Eu.O.J AREAdU J1)=UNI TAR
IF lAREAdl, Jl ).EU.UNI1AR) GO TO bO
i i IMC = -I INC
U = li
iF dl ,LT .IGO.OR. II .GT.IKrtI T) RETURN
IF UKtAdlpJl ).f U.UMTAR) ARE A (I I , J 1 ) =0 .
IF UKtAdl, Jl) .EU.O.) GO TO /O
KL 1URN

Eii IKY FINAL (01 ME NY, DIME NX, UN I TAR, I GO, iKrtl T, JGO, JKWIT)

'FIu«L' IS CALLED bY 'TRACKFR' AFTER THE TRACK OF A COUNTY BOUNDARY
THROUGH IHL GRIU CELL ARRAY IS COMPLETED. 'FINAL' MAKES THE FINAL
DETERMINATION OF CFLLS EXTERIOR TO THE BOUNDARY CELLS.
1HE F-KiNLIHLE IS THAT ALL CELLS ON A GIVEN ROW (OR COLUMN) BETWEEN
THE ENCLOSING RECTANGLE AND THE FIRST OCCURRENCE OF A BOUNDARY CELL
(jr.; IhAl KOtV (OR COLUMN) ARb EXTERIOR TO THE BOUNDARY.

FIRSI FluiSH DETERMINATION OF INTERIOR CELLS.

ib 1= IbUf 1
Jb 1 =JUUt 1
Ir\n = lKnlT-l
J A H = J M» I I - 1
Uil 00 1 = IG1 , I M.
m) ou j = Ji'l / JK"j
U lAREAd , J) .f.E.O. ) GO TO HO
n lAREAd , J-l ) .EU.UN1 TAR) ARE A ( I , J ) =UNl T AR
IF URLAd-1, J) .EU.LlNIl AR) ARE A (I , J ) =UN I T AR
it UKEAdr J + l) .FU.UhlTAR) ARE A ( I , J ) =JIM 1 T AR
if IrtHtACl-H , J) .tU.UMTAK) ARLA(I,J) =Ui\iI TAR
LUu 1 i i^UL
<->u i£o 1 = 1 GO, lKi-'I T
un 4ti J=JGUr JK" i T
if lAKLAd/ J) .GI .U'vJl 1 AK.ANIJ.AREAd , J) .Lf .0. ) GO TO 100
A >< K t* d , J ) = 0 .
00003800
00003900
00004000
00004100
00004300
00004400
00004500
00004600
00004700
00004BOO
00004900
00005000
00005100
OOOG5200
00005300
00005400
00005500
00005600
00005700
00005800
00005900
00006000
00006100
00006t?00
00006300
00006400
00006500
00006600
00006/00
00006800
00006900
0000/000
00007100
0000/dOO
00007300
00007400

-------
loo
11 0
120
C
C
130
IbO
160
C
C
C
1 70

C
j=j rw, i T
UU 110 J J=JGtJ, JK^I T
II- UKfcAU, J) ,UT,UNITAR.AMD.ARLA(I , J).LT .0, ) GO  10  120
A K t M ( i , J ) = 0 .
J=J-1
       VERTICAL  SIDtS  JGO AND
UU loo J = JGO»JK»vIT
U>U 1.40 l = lGUflKwIT
Ih (ARtA(l,JJ .bT.UNllAH.AN[).AREA(I,J),Lr.O.) GO TO  1UO
«KLA(1,J)=().
i = 1 K '/V1 f
U 0 1 b 0 11 = 1 G U i 1K n 11
!(• UKtA(I»J).GT.UNITAh.AND.ARtA(I,J).LT.O.) GU TO  160
   I  iMtb'AUVt  ARtA  VALUt.  TO POSITIVE AND RKShT BOUNDARY
   HlTH ARt.A  .999  CTRlCh  VALUt) TO 1.0
Uu l/o l = lGl)fli\/JlT

U lAKtACl , J) ,t U. .999)  AKEA(I,J)=U!MlTAR
Ih (ARtA(i,J),Ll.0)  ARtA(I,J)=-AREA(I,J)
m. I

tl.J
00007^00
00007600
00007700
00007800
00007900
00008000
00006100
00006200
OOOOftiOO
oooo6aoo
OOOOB500
00006600
00006700
00006800
00008900
00009000
00009100
00009200
00009300
OOQ09400
00009bOO
00009600
00009700
00009600
00009900
00010000
U0010100
00010200

-------
I
M
M
tsi
          C
          C
          C
          C
          C

          10



          20

          30
          r
          L
          SO
          oO
   Lur-iHlLLK (XM=3)

   SiU.1KOUU''Jfc. PRUXPR  (UIMENY,D1MENX,1GU, IKWI Tr JliO, JKiNlT,A,H,C)

in PKlNl SYNHULS FOR  NUMERICAL VALUES TU  SHOW  COUNTY OUTLINES  AND
IMTLK1UR3.

   LublCAL LlNF.(lOO), BLANK/'    '/ , ASTER/ ' * *** '/ , CHE/ ' I I 1 1 ' /
   IrjfEbEK UlMt!Mr,l)IMENX
   Li>ii')U.4 /SPEC/ F (175,205),X( 1 bO) , Y (4 , 3150 )
   C UM<"iljN / 1 Uf- I LL /  NR , HP , i JPUNC H , N I N 1 , N 1 N^ , NOU T 1 , Nf)U T i
   it-
   L=l
                     JK=JKMT
         (uP,^OJ  ( (L,M=1, 10),L=1,9)
        !  (13X10011)
   '.Kill: (hP,iu)  ( (L,L = 1, 10),M=1, 10)
   i-uH.NAf  (ax moil)
   i = lisnl T
   L-o
   UU Ml) J=J(;,JK
   L=L+1
   LlitL(L)=ASU.K
   it- (f (1, J) .Lu.A)  LINK . (L)=hLAiMK
   U II- (i, J) .GL.C)  LINfc (L)=OiJt.
USAbt UAAMPLE)  A  H  C  = EXTE^IUP. BOUNDARY  INTERIOR
   >.'
-------
                                                                                 00003BOO
                                                                                 00003900
I
M
M
W

-------
                COMPILER  (XM=3)                                                     oooooioo
          c                                                                         00000200
                iiUuKijUl INfc  INf'tlP  (DIMEf)Y,01MENX, I GO, I KWl T , JGU, JKIr.'I T , TOTPOP, TOTHOS, 00000300
               IM'iUJfL, ISTATE, 1CUUNT)                                               00000400
          C*****                                                                    00000500
          C     iHiii PKuGRAM READS  THh  EXTRACTED  AUCR-TAPE, CONTAINING UTM-COURDS, 00000600
          C     f-KUN CAASE1.                                                        00000700
          C  THt UiMtrtblUNS Of" AKKAY  Kf-  MUST Bt Kt.VERStO FROM 1 HOSE  UF ARRAY F IN 00000800
          C  THt LALLi.gi,  PROGRAM  10 PERMIT  CUINCIOfcNf VARIATION  BETWEEN THE FIRST 00000900
          C  SUbbtKiPf AUD  THt X-CUUkDI NATE                                        00001000
          C                                                                         OOOOUOO
          C                                                                         00001200
          C  IMUALIZt CUMULAIIVE  SUMS  FOR ALL COUNTIES:                          00001500
                UM|H 1FST /O/  ,KREC /O/  ,IHLE /O/ , SUMPOP /O./  , SUMHOS /O./      00001^00
          C                                                                         OOOOlbOO
                     N /SPEC/  F(l7l3,20b),AQCR(b),STATE(5,10),CNTYCS,lt5), IUCO ( 1 b) , NOOOO 1 600
                     lbJ, lYC^^OJfJX^b^OKPOPCdbZO^HOUSCaS^OKAREAC^ai))        00001700
                     EK P ,UlMEfMY,DIMENX                                             00001800
                                                                                    00001900
w               CuMMljij /LI MFD/  NSI AIE»NUMCO,NKECTf NX , N Y , L TWO, GXMI N, GXMAX , GYMIN, GYM00002000
H-              IMA, AUKIb, *OKiG,MUZ, U> , YASSOC                                      00002100
*•         C                                                                         00002200
                CUiV'iuN /IOF1LE/  NRf Nf',UPUNCH,NINl,NIN2,NOUT lrNOUT2                 00002300
          C                                                                         00002400
                LU i«.n UN /IPARM/  UM TAk, ISHIFT,XMAXD, YMAX|),EPS                       00002500
          C                                                                         00002600
                ih UKif.hE.O)  bO  TU  10                                             00002700
                il"bl = l                                                              00002600
          (       KH1 IE (n|P,10iJ IC,fl,lMM 1 , JGO, JKKl T, XORIG, YURIG                    00002900
          C  103 »- Jhi'iAf (/'  SUtiROinitME  luPOP.  iGOr IK^IT,  JGU,  JKwIf  =',4110/'   00003000
          C .    ixOKlbiN, fORIGM =  *,2F20.5)                                        00003100
                uLH? r=UiJ'"'CO                                                         00003200
                iRE«L> = rjK                                                            00003300
                iKKluF=!Mp                                                           00003UOO
          f                                                                         00003bOO
                1 UKl=hl'-i2                                                          00003bOO
          C                                                                         00003700

-------
          C                                                                          00003800
          C  IMUALlZt  FUR  THIS 1  COUNTY.                                          00003900
          C                                                                          00001000
          10    UU c'O  1 = 1G(J, IM.'IT                                                    00001100
                UU do  J=JbO, JK/glT                                                    00001200
          cO    t-CJ/lj = 0                                                             0000^300
                NHtc=o                                                               00001100
                unUilL = U                                                             00001500
                IU|POP=0.                                                            00001600
                10THUS=0.                                                            00001700
                lHLL=lFlLt. + l                                                        00001800
                IF (IHLt.E.Q.1)  GO  TO bO                                            00001900
                bU IiJ  6U                                                             00005000
          C                                                                          OOOOblOO
          30    HJKMAF (1^, 
-------
      YUljf = f YULIT
      fulPuPs fOTPOP+XPOP
      IUTHUS=TOThOS+XHOUS
      x = xuui-xORir,
      Y=YUUT-YURIG
      i = Y
      J = X
      IF (l.LT.IGO) GO  TU  50
      IF U.bT.lKrtIT) fill TO  50
      IF (J.LT.JGO) bO  TO  bO
      U U.br.JKnll) GU TO  bO
C      PHlur 1616/KKEC,I,J,1PUP,IHUUS
C  STDHE [HE POPULATION  Af-iD  HOUSING VALUES FOR THIS CENSUS E.D.  IN  THE
C  CEMbUJi CELL  (J,I),  J  Awl)  I  CORRESPONDING TO TRUNCATED COORDINATES
C  X AiJU Y uF THE CENSUS  E.D.
      F (J, I) = (IPOP*ISHIFT-HHOUS)+F (J, I )
      bu Iu 50
C
C*****MAvE REACHED F. MD OF  COUNTY  tt  'ICOUNT' OR AN EOF ON THE  INPUT  TAPE

/(.'    JF lLt = IF 1LE + 1
I
C*****|HE COUNTY HAS  HEEM  COMPLETED.
C
      »
-------
      L=L+i                                                              00011200
      PUHUJ=K (Jf D/ISHIFT                                               00011300
      !PuP=PUP(L)+0.b                                                    OOOH'400
      HuUi>(L)=F(J, I )-IP( IP *1 SHIFT                                         0001 IbOO
C                                                                        00011600
C  THIS olLr iJtTEKMIutS  TU7AL  POPULATION  AND MOUSING ASSOCIATtD WITH THt00011700
C  L-Tn. LtuSUS CLLL.   THt ANfcA  ASSOCIATtD  MTH THE L-TH, CtLL WILL Bt  00011800
C  DfTtKMliMLl)  FROM  FHE  PROXIMAL  HAP,                                     00011900
C                                                                        00012000
      lY(L)=i                                                            00012100
      JxtL)=J                                                            00012200
C      t'KliU iolO,L» 1,J,PUP(L) ,HUUS(L)                                   00012300
C IblO FDKiviAf (3I5/«?tl2.b)                                                00012aOO
80    tbUflNUt                                                           00012bOO
      iv^LN!L = L                                                           00012600
                                                                         00012700
                                                                         00012800
                                                                         00012900

-------
                            H=3)                                                      00000100
                                                                                     00000200
                JiUURUUJINb  PRUXhL (DIMENY, DIMtNX , I GO, 1KH I F, JGO, JtU/lf , LUO, NMCNTL )   00000300
                lulEGER  D1MENY,DIMENX                                               00000400
                Ui;»itNb!UN  LGO(DIVIENY)                                               OOOOObOO
                CURIUM /SPEC/  F(lfb,20b),AtJCR(b),SFATE(b,10),CNTY(b,lb),Il)CO(lb),N00000600

                LUM-HJN /LINFO/  iJSrATE,NUMCO,NRECTf NX , NY , LI WO, GXMIN, GXMAX , GYMIN, G YM00000600
               1AX,XUR1G, YiJkli,,!1'', [UZ, ID, YASSOC                                       00000900
                       /IOF lit/  NR,hP,NPU(MCH,lMlNl,iMIN2,NUUTl,NOUT2                 00001000
                       /IPAR.^I/  UNlTAk, ISHIFT,XMAXD, YMAXU , EPS, MAXSQR                00001100
          i:                                                                          00001200
          C      HKiiM! 1401,  NHCNTL                                                 00001300
          L  iDfcuIUY  AND  FLAG  CONTROL CELLS IN THE  GRID  CELL  ARRAY F(1,J).        00001400
                L=U                                                                  OOOOlbOO
                uu 30  LL = l,NMCi\iTL                                                   00001600
                                                                                     00001 /OO
                                                                                     00001800
          r                                                                          00001900
w         C  IS IHE  LL-IH.  COiJlkUL CELL INSIDE THE  COUiMTY  BOUNDARY?                00002000
£               it- U U,J) .i'Jt.O.) GO |u 20                                          00002100
oo         L                                                                          00002200
          C  CONlkUL  CELL  ff LL  IS OUTSIDE THt COUNTY,   REMOVE  IT FROM  FHt-  LIST.   00002300
                kmllL  l.xP,10)  LL, I, J,POP(LL),hOUS(LL)                               00002400
          1U    l-UKhrt! ('  bUliROUflNE PROXl.MAL.  CELL  #  ',14,', I,J COORDINATES ',200002bOO
               II'*,',  Ib OUTSIDE THE BOUNDARY Of-  THIS COUNTY.'/' IFS POPULATION AlM00002bOO
               2U huiJb'liMb  COUl'iFS ARE : ' , 2F'1 0 . 0)                                      00002700
                i,u iu  3u                                                            00002800
          20    L=L*1                                                                00002900
                lt-n(L(L ) = ICl4TL(LL)                                                  00003000
                Jl."i[L(LJ=JCMTL(LL)                                                  00003100
                Mt^trttL )=F CI, J)                                                       00003200
                MJPIL)=POP(LL)                                                       00003300
                MuU5(L J=HOOb'(LL )                                                    00003400
                Fll,Jj=-L                                                            00003bOO
          40    CUiMliiiijL                                                            00003600
                H.''.LM|L = L                                                            00003700

-------
      Uu «4(j J=JGO,JhwlT                                                   00003HOO
      uu 40 !=IGOfIMMlT                                                   00003900
au    11- (FU,J).IML.O,)  F (I, J)=-F(1,J)                                   00004000
      ARLA(NMCNTLfl)=0                                                    00004100
C                                                                         00004200
C                                                                         00004300
      CALL iihTLGO  (IGU,IKW11,NMCNTLfLGO)                                 00004400
C                                                                         00004500
C  HMD  IHt CUNTRUL  CtLL NtARLST tACH NON-CON TROL  CtLL  (IrJ).            00004600
C  STUKt 1HL  INutX OF  THt  NKAHtST CONTROL CtLL  IN  F(1,J).                00004700
C                                                                         00004800
      CALL btARCH  (DlMtiMY,liIMtNX, ]GO, IKrtIT, JGO, JKW 1 T , LGO, NMCNTL )         00004900
C                                                                         00005000
C  COi^'PUlt DtuSlTY FOR  LACh CONTROL CtLL. BAStl)  ON  TOTAL  ARtA OF NtARtST 00005100
C  'JtlijnbuKS  ASSOCIAItD  ftllH  II.                                         00005(Lj=HOUS(L)/AKtA(L)                                             00005600
L      PKI.gl  161b, POP(L),  HOUS(L)                                        00005900
50    l.iJUllNUL                                                            00006000
f •                                                                         00006100
      hL I URN                                                              00006«JOO
C                                                                         00006300
      LiviJ                                                                 00006400

-------
                          (XM=3)                                                     00000100
          C                                                                         00000200
                 SUbKOUTINE  SEARCH (DI MENY,DIMENX,I GO,IKrtlT,JGO,JKw!T,LGO,NMCNTL)  00000300
          C                                                                         00000400
          C  RTI.C44.PUl303.JvU).SEARCH.FORT                                        OOOOObOO
          c  CONSTRUCT  THE  PROXIMAL  MAP OF  FU,J)                                  00000600
          C  GIVEN  I HE   ARRAY  F(I,J) AND OUONDARIES WITHIN  F,                      00000/00
          C  F  Io UtFINED AT  VARIOUS CONTROL CELLS.  SEARCH  FROM  NON  CONTROL      00000800
          C  CtLL   (I,J)  TO FIND  NEAREST CONTROL CELL.                             00000900
          C                                                                         00001000
          C  THF SEARih  AbOUT  (I,J)  IS CONSTRAINED TO  THE  RECTANGLE  DEFINED HY    00001100
          C  RS,  IhE  DISTANCE  FROM (1,J) 10 THE CONTROL CELL  NEAREST  THE ADJACENT 00001200
          C  CELL,  UfJ-1).                                                        00001300
          C                                                                         00001400
          C  IHF L-hi.  CONTROL CFLL  HAS COORDINATES 1Y(L),  JX(L).                  OOOOlbOO
          C                                                                         00001600
          C  AKRAf  h(l,J) WILL bE RETURNED CONTAINING  VALUES  OF CONTROL CELL      00001700
          C  luOICLS:   F(I,J)  =  L =  THE INDEX OF THE CONTROL  CELL  NtARtST (I,J).  00001800
          C                                                                         00001900
w         C                                                                         00002000
^                1NIEGER  L>lhEuY,lvIf<-1ENX                                               00002100
g                ulMEubllJN t.GOtl'IMENY)                                               00002200
                 LUi-n-iuiM  /bPtC/  F (17b,2G5),AUCR(b),SIAlE(b, 10),CNTY(b, 1 5 J , 1 DCO( 1 5) , N00002300
                IRt. Lu(lb),lY(2'j20),JX(2S20),POP(2b20),tlOUS(2b20),AREA(2cj20)        00002400
                 Cu.s^lUN  /LINFU/ kSTATf , NU^CO, NREC T , NX , NY , L T WO, GXMI N, GXMAX , G YMI N, G Y MO 00 02500
                1 AA, AUKIb, YORIl.,KTUZ, ID, Y A SSI 1C                                      00 00260 U
                 CUH/IOU  /IOF ILt /  NR,NP,NPUNCH,N1N1,NIN2,NOU1 1 ,NUUT2                00002/00
                 LU'-K-iun  /{P«R.vi/ Ui'iITAn, ISHlF I ,XMAxl), Y M A X 0 , EPS, MA X SUR                00002800
          f.*****                                                                    00002900
          C                                                                         00003000
          C  I.FGli-.  SLAKUH FUR  NEAPtST  NEIGHBORS                                    00003100
          C                                                                         00003200
                                      2                                             00003300
                                                                                    00003400
                 ^n  ou  I = lGUf iKk'd T                                                  00003bOO
          C  THt iwlbUuCE (bijU«KED)  FROf. CELL (I,J) TO  IHE  CONTROL CELL NEAREST   00003600
          L  IMF PEvibu:i J,J  CELL.                                                 00003/00

-------
I
M
K>
          c
          C
          C
          C
          C
          c.
          c
          c
          c.
          c
          c
     PKlhf  200,I,LSAV1
   K5=U-If(LSAVl) )**2t(JGli-JX(LSAV
     PKlNf  199,  lY(LSAVl), JXCLSAV1
   UU bO  J=JGO,JKi'-lT

(I,J) riAY Hi  OOTS1UL bOUNDAKILS:   t
      MAY ofc  A  CUHTkOL CLLL:   F(I,J
      I'lAr bt  UMASIilGf\i£D:  F(I»J)  LT
                                                                      00005800
                                  1))**2                              00005900
                                  ), RS                               00004000
                                                                      00004100
                                                                      00004200
                                  (I,J)=0                             00004500
                                  ) G? 0  (INDEX  OF IHt, CONTROL  CtLL) 00004400
                                   0.
 II-  IFU, J) ,Gt.O. ) GO  TO  bO


UtLb  III-  IHt Kt-CTANGLL  COUIA1NING

 J K ci A x = J •»• R 3 + 1

 lKh«A=ltRS+l

 it  URI-lili.L. T . I GO) IRMJhJsKU)

 if-  UHMAX.GT . IMM! T ) IR^iAXslKWIT
 It  UrVHAX.GT , JK'/.I T ) Jhf iA X = JlvW I f
                                                   THE MAXIMUM  StARCH RADIOS,  RS,
     Hi< J.M |  202, I KM AX , I
   LMJ 30 L=LLGU,SriLNTL
     >JMllf  205,L,IY(L), JX(L)
   U (I r (L) .Gl . IH.MAX)  GO TO 40
   if UX (L) ,GT . jKi-iAX.)  GO Tu 50
   U UJA(L) .1 T.JKf- IN)  GO 10 30

COIllnuL  CLLL  L  15 Ifj
                        ,, JKMAX, JKMIIJ, LLI.U
                              I-IRMIU, JfJKMAX, J-JR.-IIii
 lin.L=l-iY (L)
 J It L L = J - J X ( L )
 «ouuaK=il)LL*
                                     L *JULL
00004bOO
00004600
00004700
00004800
00004900
OOOObOOO
OOOOblOO
00005200
OOOObiOO
0000b400
OOOObbOO
OOOObbOO
00005/00
00005800
00005900
00006000
00006100
00006200
00006iOO
00006400
00006bOO
00006600
00006/00
00006800
00006900
0000/000
0000/100
00007200
00007500
00007400

-------
i
M
IsJ
c

10
£>0
c
30
c
I
c
c
c
no
c
c
c
c
t

so
60
c
c
I
c
c
I
                 PKiNT 201,  1UEL, JDtL,  RSUUAR,  RSUMlN
               IF IRSUIUAR-RSUHIN) 20,10,30
               LALL UEFJRK  (KSUUA.R , HSUHIN, fc,20 , &30 )
               L S A V = L
               U U.EU.JGO) LSAV1=LSAV
                 PRluI 20b, RSUMIN, LSAV,  LSAV1,  F(I,J)
               LUN I I HUE

            FU,J) CONTAINS NLGATIV.E  vALUt  OF  ARLA  w  CELL
            THE ALbtbKAlC SIUiM UP K1,J)  IS NtGATlVL.   -F IS
                             I,J,LSAV,F(I,J)
               CON I I i
-------
          C       PKlNTll \f\-t 1Y(L),IYLAST,1K                                       00011200
                U  UYCU.tti.lYLASD GU TU bO                                      00011300
                1YLMSI = IYIL)                                                       0001HOO
                1K=1YLAST                                                          OOOllbOO
                IHJ 7u 1 = IG,1K                                                      OOOllbOO
          C       PKluT112»lf L                                                    00011700
          70    LbuiI)=L                                                           OOOllbOO
                ib=lKfl                                                            00011900
          MO    LUUTiNUt                                                           00012000
                uu VO IslKrlKrtlT                                                   00012100
          90    HiUUJsIYLAST                                                      00012200
                nttUHu                                                             00012300
          C                                                                        00012^00
                                                                                   00012500
Cd
I

-------
      SUHRUUUNE TIEbRK (A,B,*,*)                                        00000100
      IMPLICIT INTEGER (A-Z)                                             00000200
      RtAL II                                                           00000300
      UA1A NNN /123321/                                                 00000400
      (.ALL RANDU (NNN,NNN,ZZ)                                            00000500
      1H UZ.UT.0.5)  RETURN 3                                            00000600
      HLTURN a                                                          00000700
C                                                                       00000800
      SUbKOUTINE RANDU (IX,IY,YFU                                       00000100
      H = lX*6b539                                                       00000200
      IP UY) 10,20,20                                                  00000300
10    IYslYf2l47a33647U                                                00000^00
20    YHsiY                                                            00000500
      YFL=YFL*.465bbl3E-9                                               00000600
      KLTUKN                                                            00000700
C                                                                       00000800
                                                                        00000900

-------
                 LJ,iHlLtrt  UH=3)                                                     00000100
           C                                                                         00000200
                 SUDKDUf 1T .F^-'AX) FMAX=F(1,J)                                    00003100
                 ..KilE (IMP,20) FKAX                                                  00003200
           20    Fuhr-iAl  (/'  SUHr
-------
50
t>0
70
HO

c
      bUA IM)=0
      b u r (*) = 0
      HuHULA(M)=0
40    bH>"!)=0
C
C  ATTLi'.PI  T(J READ  A  USLR-PROV1DED StT OF GRID SUUARE  CARDS
C  REPRESENTING  A PREVIOUSLY  DERIVED GRID,  IF THE  SET  IS  EMPTY,  RETURN
C  TO IHE i*!A|N CALLING  PROGRAM  IS TO NORMAL GR1DDIMG PROCEDURE,
C  IF lnt.KL ARE  GRID  SUUARE  LARDS, THE USER-SPECIFIED  GRID WILL HE USED
C
               , 30U/END =
KtttU
>") = ivi 11
buA(|v|)=XX-XURIb
bU (U bO
IF U'i.LU.O) GO  10  70
                      MM, IFRAC, I STATE, ICOUN T , MTUZ , XX , Y Y , ISL
HL I utxfj £
uu no 1 = 1,1

u i j d o j = l,'
b U A I iv| J C J A
b u r I !••! J = I Y
bLIHJ =LTwU

 >«K1 It (UP, 5 I • MIJ>i$uR )  GO  Tu 110
      it- (.'i.Ul.HAXbUR)  RtTURIi 1
00003800
00003900
00004000
00004100
00004200
00004300
00004400
00004500
00004600
00004700
00004800
00004900
00005000
00005100
00005200
00005300
00005400
00005500
00005600
00005700
00005800
00005900
00006000
00006100
00006200
00006300
00006400
00006500
00006600
00006700
00006800
00006900
0000/000
00007100
00007200
00007300
00007400

-------
Cd
I
           C   IMTtuKML h(Y,X) UVtR  SUUARF. NUMBfcK M:
           100    U«LL in|LGR  (M,l-'IMtNYf DIMENX/XINT)
           C
                  ih  Uiul.tU.O.) CALL  UELtTE U 1 00, M, NUMSQR )
           C
           C        PKlUf 35,M,Xl!JT,PQPULA(M),SUX(M),SimM),SL(M)
           C   IF  iiuUAKL »M CONTAINS  MORt  THAN FMAX POPULATION,  PARTI TlUN  IT;
           C   IF  Nul, GO TU NEAT SUUARfc,  Mfl .
           C
       it-  UiNF.LL.FMAX)
       !(-  lXl.4F.Lt. FMAX) GO  TO  90
C
C  STUH  PAKTirlDHlMb CtLL #M hHEN  IT HECUHtS SIZfc  UIMITAR,
c
       U  (iiLlM).tU. IUMIT) GO TO  90
       CALL  PARTIT  (&.1 10,UOO,K,NIJMSUR)
C
C  AOJubl LuiJ[AlNt[; POPULATION  .
C
110    it-  l.NiLMSQR.GT .MAXSQR) RtTORi\ 1
       »^Kift ( IMP , 120) M^NUMSQR
1^0    fOHi-UT  (/'  210,  \1 GRtATER  THAN NUMSUR . ' , 215)
       bU-'-iF =0
       UU  lj>0  H=l ,1'HJMS'JK
T      HKii-iI  3h,M,PUPuLA(h) ,SUMF
I iO    bUi-iF =3UMF tPHPUL A (f.i)
       A-oUi-lF
       0 = 1 tJ | f UP
       L L = O / A
C      KKiNI  39,  A,h,LC
       blJ!-l(- =(J
       uu  1 40  H= 1 , NU'iiiUK
       PUPULw ((•!) =POPUL A (V, ) *CC
1 tU)    bui«ih =3UfJiF tPOPUL A (M)
       c.r
-------
to
00
               EulRr  ADJUST  (*,fJUMSQR)
               .JKilE  (NP»lbO)  I-JUMSIOR
         150   ruKMAI  (/'  SUBR.  ADJUST.  NUMHER OF SQUARES  =',I5)
         C  ADjUvil  IJLLETES EMPFY SQUARES AND PARTITIONS  SQUARES TRANSECTED BY
         C  THE uuu.MuARY.   SUCH  SQUARES CONTAIN AT LEAST  ONE  EMPTY (ZERO
         C
               1 4 s <4 . * UIJ1 T A R
               i-i = U
         lOO   i«i = H*l
         170   IP livi.Gl .NUMStJR)  RETURN
               If (HOPULA(M).EQ.O.) CALL DELETE (&170,M,NUMSUR)
         C  DO NO I  HARrlTIUiM  SQUARES LESS THAN OR  EQUAL  TO  14 IN SIZE.
               lr li>L(M).LE.J4)  bO TO IbO
         C  PARIIIiON  JUUARES THAT ARE TOO LARGE:
                U  (lSL.CiE.32) CALL PARTIT (&210,JS,190»M»NUMSQR)
         (1-1) + 1
   Ji\ = Jt,+-li)L-l
   I A K E M = i) .
COMPUIt.
       r .
          1=1
                            UNIT AREA CELLS INSIDE  SQUARE  AND INSIDE COUNTY

                            IK
1 H 0

C
C   I
(
         C  IJ P b « I L
         1
                U  IP (I, J) ."I .0. )  TAKEA=!ARt A + UNIIAR
                li-  UUii)UAREA)/AREAS(i.(;E .O.bO) GO  10  IbO
          3UUARE k'.'HICH  HAS  LESS THAN

        PART IF  ( Ntf 1 U , f. 1 90 , K; , N
                                                       AREA  INTERIOR TO COUNTY.
           CELLS RESULTING  f-ROM PARTITIONING DUE  TO  TRANSECT:
                (H,D1ME'\!Y,D1MENX,X1NT )
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
1200
1300
1400
IbOO
1600
1700
1800
1900
2000
2100
2200
23UO
2400
2bOO
2600
2700
2800
2900
3000
3100
3200
3300
3400
3bOO
3600
3700
3800
3900
4000
4100
4200
4300
4400
4bOO
4600
4700
4800

-------
      PUPULA(.'i)=Xlfjl                                                       00014900
      L3 = lMUM3lJk-2                                                          00015000
      UU eOO  L = L3,^U.M3Uk                                                   00015100
      LALL  luFEGR (L,UIMENY,D1MENX,X1NT)                                  00015200
£00   f'UPULA(L)=XINr                                                       00015300
      uU  iij i/0                                                            00015400
f.  EKRUrt RETURN ft5 U MAX  NUMBtW PLRMlSSlBLt  SQUARES tXCEtDED,           OOOlbbOO
t;10   rtKilt ('MP»lrJOJ NUMStiK                                                00015600
      ntlUKN  1                                                             00015700
C                                                                           00015800
      t.wlKY bigKQM- (*,NLIMSQR)                                              00015900
C                                                                           00016000
C  COMHUIL  StPAkATt. INTEGRALS  UP PUPULATlU'M/  HOUSING, AND AREA  (JVErt  EACH00016100
C  GRJu buUAKt FOR EACH COUNTY THE GRID SUUARE  OVERLAYS.                 00016200
I                                                                           00016300
C                                                                           00016400
      I'D d^()  M=l,i-)<\XSUK                                                    00016500
      PuhULA(i-,)=0                                                          00016600
            w(i'iJ=0                                                          00016700
            Hj=0                                                            00016800
            Y(fl)=0                                                          00016900
C                                                                           0001/000
L  Pk(lLt.6b  EACH CUUMlY                                                     00017100
r                                                                           00017200
      imSUh = iM(j!-iSiJR                                                         00017300
      uo tvo  L=i»"Ji)NLu                                                     oooi/aoo
C                                                                           00017500
t  PKHCL50  FuK EACH oh THE 3  1MEGKALS, PUPULATIUN,  HOUSING, AREA;       00017600
I,                                                                           00017700
C.  Pl)PUL«Uu.M A;-JU HUUSIf-jG  Akt  UfM NdUTl,                                   00017800
L  AKi-A ii>  UNI NUIJ12.                                                       00017900
      i>U 29u  K* = 1 »3                                                        0001HOOO
      UU 230  J = 1,I»1K JX                                                    00018100
      UU t;io  1 = 1 r i-iIMl-,JY                                                    00018200
        U,.JJ=y.                                                            00018300
       h  iKK.,^.3) f4(H.i?=NUUl 1                                              00018400
                              2                                              00018500

-------
U)
o
          C
          C
          C
          C
          C
          r
          c
          c
          c
                 It-  UK.l-Jt.2J RLAD  (MJUT)  LL,ID,1GU,IKfcll,JGD,JKrtIT
                 uu  2uo i=IGU,Iftftl1
                 KtAU  (iMUUT)  (F-(1, J) , J = JGI), JKhl T )
                 if  UK.UL.3) GO TO  260
                 UU  e^'jO IH=2,3
        UUUT2)  DUMM

      b IhL GKIU  SUUAKES,  M= 1 , 2 , . . . »
                 Ui)  £90 (--iPRlHt=lf KSUR
              SHAkt  ANY  LUMMON ARtA WITH  RtCTANGLh  THAT  LtJNIAlNS
    I Y i
             COC
   ih (buUM).GT .liu', I I )  GO TO 2

   It  (bUY('"'')*SL(M),LT .1GO) GO TO
   It- IS
-------
ca
t-1
UJ
C
C
L
r
C  PROLLbb StJUARE  »i-1PRIME FOR A DIFFERENT  COUNTY.   WILL RESULT  IN  AN
t  ADD1T luiMAL  RECORD  FOR SQUARE ftMPRIME.
C

C
C  THE '"lAXli/HM UUMBF.K OF SQUARES IS LIMITED  HY  DIMENSIONS TO  'MAXSOR',
      IF  (NR3.JR.G1 .MAXSiOR) RETURN  1

c;
C  1NIIIALIZE  DUPLICATE RfcCORD FOR SQUARE  KM.
C
C
3 do
         uf V (l"i)=L*ITrtU18fSUY (H)*l I «09tSUX (M)
              LtJ.^J  HUUSli'UM)=XlMl
      if-  l^^.LU.3)  (- KAC (M) =x IfJT/SL (M) * *
-------
                 it- (r\K.tlj,2)  if»H = lMPUI\iCH                                              00026000
                 i"'ih = u                                                                  00026100
                 Uu 3jp,310J  MM/ UK AC, 1ST Alt, ICUUhT , MT UZ , XX , Y Y , SL (M) , HGUSIN (M ) , 00027 1 00
                                                                                       00027200
           i£0    cuiUluub                                                              0002/300
                 Kc. I UKK.                                                                00027*400
           f                                                                            00027bOO
                 t-JU                                                                   0002/600
U)
NJ

-------
        c
        c
        c
        c
        c
   COMPILER (xw=3)

   bUriRUUTINfc 1NTEGR  (M,DIMENY,DIMENX,X INT)

COLLECTION OF AUXILIARY SUBROUTINES USED  IN  GRINDING.

   INTEGER SUX,SUY,SL, DIME NY, DIME NX, COUNTY
          /SPEC./ F (1 7b,20S),AUCR(S),STAlE(5, 1 0 ) , CNT Y (5 , 1 5) , IDCO(15)
          ),SUX(1800),SUV(1800),SL(1800),POPULA(1800),HOUSIN(1800),
                 Y(iaOO)
                  UN I TAR,I SHIP TrXMAXD,YMAXD,EPS,MAXSQR
        INTEGRAL (XINT) OF ARRAY F(Y,X)=M1,J)  UVER  SUUARt  «M.
                    (M)
i
M
OJ
        1(1
   X i U f = 0 .
   UU 10 I=IG,IK
   UU 10 J=JG,JK
   Aiur = xiNi tMi, j)
   Kt IUKN

   t-NlKY UELEIE  (*,M

f:i.i'"U'KLb3 fHL LIST Lip SMUAKh S AS RESULT UF  DL'LETITJG  SQUARE
              buA(L)=SQX(LPI )
              owr (LJ=SUY(l PI)
              bl.lL)=i>L(LPl J
              LUI.MU (L )=CUU'J1 Y (LP1 )
  00000100
  00000200
  00000400
  00000400
  OOOOObOO
  OOOOObOO
  00000700
,NOOOOOflOO
FR00000900
  ooooiooo
  00001 100
  oooouoo
  oooouoo
  ooooiaoo
  OOOOlbOO
  00001600
  00001 700
  00001800
  00001900
  ooooiooo
  00002100
  00002200
  00002300
  00002400
  00002bOO
  00002600
  00002700
  00002dOO
  00002900
  00004000
  0 0 0 0 i 1 0 0
  00003200
  00003 SOO
  ooooiaoo
  00003bOO
  00003600
  00003700

-------
         20    PUPULA(L)=POPULA(LP1)                                               00003bOO
               KEI'UKU  1                                                            00003900
         C                                                                         00004000
               tJMlKY HART1F  (*, *,M,NUKSUrt)                                         00004100
         C                                                                         00004200
         C  THE FIRST  RETURN  *  IS  ERROR RETURN IN CASE NUMBER OF  SQUARES EXCEEDS 00004300
         C  THE MAXIMUM BECAUSE  OF  PART 1 T IlJfJlNG .                                  00004400
         C  THt UELiJuD RETURN  *  IS  NORMAL  RETURN TO CALLING PROGRAM,              00004500
                                                                                   00004600
                                                                                   00004700
                   iSLto.LT.UNITAR)  RETURN ?                                         00004800
                                                                                   00004900
                                                                                   00005000
                                                                                   00005100
               LP3=Lt3                                                             00005200
               IF  (LP3.GT.MAXSUR)  RtTURN 1                                         00005300
               3L(i>0 = lSLM                                                          00005400
               bLILPI)=ISLM                                                        00005500
               'H. (LP2) = ISIM                                                        00005600
"              i)L(LH3j = lSLM                                                        00005700
                       J=SUX(f])tI3LV'                                               00005800
                            ft)                                                     00005900
                            LP1)                                                   00006000
                   lLP2)=SiJYl'1) + ISLNi                                               00006100
                   CLP3J=SUX(i-l)                                                     00000300
               i«UM5i4K = i'jUMSOR + 3                                                     00006400
               t< L I u K u d                                                            00006500
                                                                                   00006600
               I-'"!-'                                                                 00006700

-------
C
C
C
C
C
C
C
      SUBROUTINE ASTOkE  ( * , A , B , C , 0, fc , f- , G ,H)
C  'ASIURE' IS CALLED BY SUbkOUTlNE  WRAPUP  TO  SET  SPECIFIED  EUUALIT
C  AND BRANCH TO THE STATEMENT NUMBER  '*'  IN ftRAP-UP.
C

      L-v
'NSIuKt* IS CALLtU BY SUBk. DECIDE.  AND  SIDEIT  10  StT  SPECIFIC
EQUALlfitS AND HETOkN It) STAIEMtNT  NUMBER  '*'  IN  CALLING  PROGRAM,
   1=J
   ktlUKh 1

   t.HlKr YUKX (X,X1,Y1
                              2, Y)
SUHktJUl INtS YOFX AND XOFY SOLVE FOR  Y  AMI)  X  IN  ThRNS  OF  X  AND Y.
CALLED BY SUBROUTINE SIDEIT  TO FIND  INTERSECTIONS  OF  SEGMENT  AND
SIDES.
             /IPAkrV UiJlTAR, I SHIP T , XMAXD , YMAXD, EPS, MA XSQR
             AXD
      IK (AoSlX2-Xl J .LT.tPS) RETURN
      Y = (.frf-n)/U
-------
               FARtA  (XI, Yl , Xc>, 12)                                        00000100
C                                                                         00000200
C  'FAKLA' CUMPUltS  I Ht  AkfcA  UiMDtk  THt  StGMtMT DIRECTE.D FROM  NODE        00000300
C  U1,Y1J IU WLJDt(X2f V
-------
                (XM=3)                                                     00000100
                                                                          00000200
                E  SUHT  (NUK>S(JR)                                           00000300
C                                                                         00000400
C.  SUHKljUIlNt  SORT  SUR1S Tilt LIST OF GRID SQUARES  INTU ASCENDING        OOOOObOO
C  OK|)tK Uh  fHfc.  ARRAY  OF COMPOSITE NUMBERS, CUUNTY(M), M=l,2,.,.,       00000600
C  NI'MbyK.   CUUNTY(M)=L(M)*«?**lb + SUY(M)*2**9  t SQX(M)  AND IS          00000/00
C  CON'HUILD  IN  SUBROUTINE SURUFF,                                        00000800
C                                                                         00000900
      lUltbLR  COUNTY(iaOO)                                                00001000
      LUNM.JU /SPLC/  Kl75,20b)rOUMMY(160)»HST(1800,7)                  00001100
      LUUlvALt.NCh  (LuUNTYd )fLIS[ (10801))                                OOOOltJOO
      00 
-------
B-138

-------
                    APPENDIX C











LOGICAL FLOWCHARTS AND FORTRAN SOURCE CODE LISTINGS




             CAASE3  (and Subroutines)
                        01

-------
C-2

-------
                                              CAASE3
         START
      SET I/O UNIT
      NUMBERS FOR
    COMPUTER SYSTEM
       BEING USED.
      SET TICKMARK
     INCREMENT AND
     INCH/KILOMETER
   CONVERSION FACTOR
10
  RZAD SCALE FACTOR,
   ED PLOT CONTROL
 VARIABLE, AND COUNTY
     OUTLINE PLOT
   CONTROL VARIABLE
         HAVE
    ALL  COUNTIES
   BEEN  COMPLETED?
   READ NAME OF STUDY
    AREA OF INTEREST
  PRINT NAME OF STUDY
    AREA OF INTEREST
         C-3

-------
                                                   /  PRINT MESSAGE
                                                     STATING ED'S
                                                     TO BE PLOTTED
   ARE THERE ED'S
   TO BE PLOTTED
PRINT MESSAGE
STATING COUNTY
OUTLINES TO BE
  PLOTTED
ARE COUNTY OUTLINES
   TO BE PLOTTED
                       APPLY USER REQUESTED
                        SCALE TO KILOMETER
                        CONVERSION FACTOR
                           READ SIZE OF
                            STUDY AREA
                        CALCULATE PLOTTER
                        SPACE REQUIRED AND
                        NUMBER OF X AND Y
                            TICKMARKS
                                                                   CAASE3, p. 2
                           PRINT SIZE OF STUDY
                            AREA IN KILOMETER
                              AND INCHES OF
                              PLOTTER SPACE
                                  C-4

-------
                                                                      CAASE3, p. 3
                                 PRINT COLUMN
                              HEADINGS FOR GRID
                            SQUARE IDENTIFICATION
         LOOP 1800 TIMES
          (LOOP ENDS AT 120)
  CAASE 2
OUTPUT TAPE
   (NAO)
               (MAXIMUM NUMBER OF GRID SQUARE ALLOWED
                                           "I
                                            I
    READ GRID SQUARE ID
  NUMBER, STATE AND COUNTY
  CODES, UTM ZONE, X AND Y
COORDINATES, AND SIDE LENGTH
                                 HAVE  ALL  GRID
                             IDENTIFIERS BEEN READ
                                SET NUMBER OF
                             GRID SQUARE VARIABLE
                             STORE GRID ID, X, Y
                            COORDINATES IN PLOTTER
                            INCHES AND SIDE LENGTH
                           PRINT GRID SQUARE ID, X, Y
                           COORDINATES, SIDE LENGTH,
                             STATE & COUNTY CODES
           120
                                 END
                OF LOOP
                                      C-5

-------
 READ GRID SQUARE
    ID NUMBER
 CALL SUBROUTINE
 POPBOX TO PLOT
    GRID MAP.
 ARE ENUMERATION
 DISTRICTS TO BE
     PLOTTED
CALL SUBORDINATE ED
   PLOT TO PLOT
   ENUMERATION
    DISTRICTS
                                         CAASE3,  p.4
       C-6

-------
                                                                            CAASE3, p. 5
        0
 170
:     PRINT ERROR
MESSAGE - MORE GRID
    SQUARES THAN
 STORAGE ALLOCATED
                                 ARE COUNTY OUTLINI.S
                                   TO BE PLOTTED
                                            YES
                                   CALL SUBROUTINE
                                    COOUT TO PLOT
                                   COUNTY OUTLINES
      ©
                                140
PRINT "GOOD FINISH"
 MESSAGE INDICATING
 SUCCESSFUL RUN OF
      PROGRAM
                                CALL SYSTEM  SUBROUTINE
                                    PLOT TO  CLOSE
                                    PLOT PICTURE
                                     160   >r
                                          END
                                          C-7

-------
               c
SUBROUTINE
  POPBOX
CAASE3
SUBROUTINE POP30X
              COMPUTE TICK MARK
              INCREMENT, X & Y
              MAXIMUM VALUE IN
            PLOTTER INCHES, SCALE
              LEGEND TO REFLECT
                USER REQUEST
                  CALL  SYSTEM
                  SUBROUTINE
                 PLOT TO OPEN
                 PLOTTER UNIT
                 CALL SYSTEM
                 SUBROUTINE
                 PLOT TO SET
                 ORIGIN AND
                   MARGINS
                   SET AXIS
                    SWITCH
                    TO ZERO
G>
               PRINT HEADING
               FOR PLOTTER
             INCHES DISPLAY
            OF  GRID  SQUARES
                10
                  SET  X-AXIS
                   LENGTH
                    e
                    C-8

-------
                                 WHICH
                             X-AXIS  IS BEING
                                 DRAWN
                                   7
                                                                  CAASE3
                                                                  SUBROUTINE POPBOX
                                                                  p.2
                                                        20
                  SOUTHERN
 SET DISTANCE
PEN MOVES IN Y
 DIRECTION AT
  BOTTOM OF
 PLOT TO ZERO
                           SET DISTANCE PEN
                           MOVES IN Y DI-
                           RECTION AT TOP
                           OF PLOT TO ZERO
                           30
                              CALL SYSTEM
                              SUBROUTINE
                                 PLOT
                                TO DRAW
                              THE X-AXIS
40
 SET  DISTANCE
 PEN  MOVES  IN
 X DIRECTION
 AT LEFT HAND
 SIDE OF PLOT
 _TQ_ZERQ	
     WHICH
Y-AXIS IS BEING
     DRAWN
                            SET DISTANCE
                           PEN MOVES IN X
                            DIRECTION AT
                           RIGHT HAND SIDE
                           OF PLOT TO ZERO
                          50
                             CALL SYSTEM
                             SUBROUTINE
                                PLOT
                             TO DRAW THE
                               Y-AXIS
                                  C-9

-------
                                                    CAASE3
                                                    SUBROUTINE POPBOX
                                                    p.3
                INITIALIZE X
                  TICK MARK
                   TO ZERO
                   WHICH
               AXIS IS BEING
                   TICKED
                    SET TICK-MARK
                     LENGTH  AND
                    POSITION FOR
                    LOWER X-AXIS
               SET TICK MARK
                LENGTH AND
               POSITION FOR
               UPPER X-AXIS
             70
                 CALL SYSTEM
                 SUBROUTINE
                    PLOT
               TO DRAW FIRST
                X-AXIS TICK
  _LOOP_ON_NUMBER_OF|TICK MARKS FOR X-AXIS
T(LOOP  ENDS AT 80)
                 INCREMENT
                X-AXIS TICK
                 POSITION
                 CALL  SYSTEM
                 SUBROUTINE
                   PLOT
              TO DRAW X-AXIS
                 TICK  MARK
 |	80_
                  END
OF LOOP
 i
-I
                     ir

                   ©
                     010

-------
>
r
INITIALIZE Y-TICK
MARK TO ZERO
                                               CAASE3
                                               SUBROUTINE POPBOX
                                               p.4
              WHICH
          AXIS  IS  BEING
              DRAWN
                                      SET TICK MARK
                                       LENGTH AND
                                      POSITION FOR
                                      LEFT HAND AXIS
           SET  TICK MARK
            LENGTH  AND
           POSITION FOR
          RIGHT HAND AXIS
        100
            CALL SYSTEM
         SUBROUTINE PLOT
           TO DRAW FIRST
            Y-AXIS TICK
i
LOOP_ON_ NUMBER
(ENDS  AT 110)
                 OF  TICK  MARKS  FOR Y-AXIS
                 	1
            INCREMENT
           Y-AXIS TICK
            POSITION
          CALL SYSTEM
          SUBROUTINE
             PLOT
            TO DRAW
           TICK MARK
 110 END OF LOOP
               C-ll

-------
      IS THIS
  THE RIGHT HAND
     AND UPPER
       AXIS
                                        CAASE3
                                        SUBROUTINE POPBOX
                                        D. 5
SET INDICATOR!
FOR UPPER ANDI
RIGHT HAND
AXES
120 >
YES
r
SET STARTING
POSITION FOR
X-AXIS LABEL
>
t
CALL SYSTEM
SUBROUTINE
SYMBOL
TO DRAW LABEL
"KM(EASTING)"
   SET STARTING
   POSITION FOR
   Y-AXIS LABEL
    CALL SYSTEM
    SUBROUTINE
      SYMBOL
   TO  DRAW LABEL
  "KM(NORTHING)"
   SET STARTING
POSITION FOR TITLE
   CALL SYSTEM
   SUBROUTINE
     SYMBOL
  TO DRAW TITLE
                C-12

-------
 SET STARTING
   POSITION
  FOR LEGEND
  CALL SYSTEM
  SUBROUTINE
    SYMBOL
TO DRAW LEGEND
  CALL SYSTEM
  SUBROUTINE
    NUMBER
    TO DRAW
 SCALE FACTOR

SET POSITION
FOR TICK
MARK LABEL
i
I

CALL SYSTEM
SUBROUTINE
NUMBER
TO DRAW
TICK MARK LABEL
>
t
SET VALUE
OF MAXIMUM X & Y
AXES TICKS SET
POSITION OF TICK
MARK LABEL
^

r
CALL SYSTEM
SUBROUTINE
NUMBER
TO DRAW TICK
MARK LABEL


                                     CAASE3
                                     SUBROUTINE POPBOX
                                     p.6
              C-13

-------
                                                    CAASE3
                                                    SUBROUTINE POPSOX
                                                    o. 7
(LOOP ENDS  AT 140)
     '' GRID^SQUARES. _IN_COUNTY

                          lr
              CALCULATE AND
               STORE X & Y
             COORDINATES OF
               CORNERS OF
               GRID SQUARE
                CALL SYSTEM
                SUBROUTINE
                   PLOT
              TO POSITION PEN
            AT LOWER LEFT HAND
              CORNER OF GRID
       LOPONGRID_{ SQUARE _SIDES
           AT 130)
               CALL SYSTEM
               SUBROUTINE
                  PLOT
              TO DRAW GRID
               SQUARE SIDE
       130
END i- OF LOOP
            WRITE PLOTTER
             POINT LINE
           FOR GRID SQUARE
140

END'
>
' OF LOOP
r
/^RETURN TO A
( CALLING )
V PROGRAM J

-------
                                    CAASE3
                                    SUBROUTINE EDPLOT
SUBROUTINE
  SDPLOT
           NE "\
               )
    INITIALIZE
    ENUMERATION
 DISTRICT COUNTER
      TO ZERO
  10
     READ UTM
    COORDINATES
   AND TYPE OF
  ENUMERATION
    DISTRICT
       HAS
     AN END
  OF FILE BEEN
   ENCOUNTERED
CONVERT COORDINATES
  FROM KILOMETERS
 TO PLOTTER INCHES
  AND SET SYMBOL
    TO BE USED
                                 PRINT NUMBER OF
                                ENUMERATION DIS-
                               TRICTS PLOTTED,
                              AND THE COUNT
                             FOR THE DIF-
                            FERENT TYPES OF
                           ED's PLOTTED
                          C
   RETURN TO
CALLING PROGRAM
    CALL SYSTEM
    SUBROUTINE
    SYMBOL TO
  PLACE ED SYMBOL
  IN POSITION ON
        MAP
     INCREMENT
    ENUMERATION
  DISTRICT COUNT
       BY 1
         C-15

-------
                 c
       SUBROUTINE
          COOUT
                                CAASE3
                                SUBROUTINE COOU"
                 INITIALIZE STATE
                 AND COUNTY CODES
                      TO ZERO
             CALL  SYSTEM SUBROUTINE
              NEWPEN  TO  CHANGE PEN
             COLOR  FOR COUNTY OUTLINE
                 INITIALIZE COUNTY
                 COUNTER VARIABLE
                      TO ZERO
                   READ NUMBER OF
                  STATES TO BE
                 PROCESSED
      	LOOP_ ON_ __ _
     (LOOP ENDS AT 20)
                STATE COUNT (IX)
                   READ NUMBER OF/
                  'COUNTIES  IN
                      STATE
          LOOP  ON
 '  (LOOP ENDS AT 20)
                 COUNTY COUNT (IY)
                        READ
                      COUNTY
                        ID's
I
 I   20
END
	OF_LOOP	[
                                  C-16

-------
                                           CAASE3
                                           SUBROUTINE CCOUT
                                           o.2
  30
    READ STATE AND COUNTY
   CODE, LOWER LEFT-HAND
  & UPPER RIGHT-HAND
 CORNER OF AREA CON-
TAINING COUNTY
           HAS
       LAST  RECORD
       ON  TAPE BEEN
          COUNTERED
            IS
           THIS
         RECORD  A
          HEADER
          RECORD
     INCREMENT COUNTY
       COUNTER BY 1
   READ STATE AND COUNTY
  CODE, BEGINNING AND
 ENDING OF LINE SEG-
MENT FOR COUNTY
            HAS
        LAST RECORD
       ON  TAPE BEEN
          COUNTERS
           C-17

-------
                                     IS
                                  THIS A
                               LINE  SEGMENT
                                  RECORD
                                                                      CAASE3
                                                                      SUBROUTINE COOUT
                                                                      o.3
                            CONVERT BEGINNING &
                              ENDING OF LINE
                             SEGMENT TO SINGLE
                          PRECISION FOR PLOTTING
                                  ROUTINE
                                    I
                           CONVERT LINE SEGMENTS
                            FROM KILOMETERS TO
                            PLOTTER INCHES AND
                            TRANSLATE ORIGIN TO
                              PROPER POSITION
                               CALL SYSTEM
                             SUBROUTINE PLOT
                           TO PLOT LINE SEGMENT
     PRINT NUMBER
    OF COUNTIES
   PLOTTED
G
  RETURN TO
CALLING PROGRAM
                                     C-18

-------
n
 i
C****PRUGKAM NAME: CAASE3
c***
C
C


**THIS PHOGRAM IS DESIGNED TO DRAW AREA SOURCE BOXES FOR ANY GIVEN
AUCK, USING A SET OF DATA CARDS THAT DEFINE THE COORDINATES OF
THE LOwER-LEFT HAND CORNER OF THE BOX AND THE LENGTH OF THE SIDE,
DIMENSION AQCRU), XRAYUBOO), YRAYUBOO), SIDEUBOO), xociaoo)
DIMENSION CMTY(2)
oooooioo
00000200
00000300
00000400
00000500
00000600
CUMMiJN /BOXES/ XZERO, YZERO, SCALEX, AQCR, XRAY , YR AY , SIDE , N, XLONG, YLONOO 000 700










C
C* **
C
c
c
c
/•
u
c
c
*-*
c
r
Lr
c
c
c***
c
c
c


1G, I XT 1C, IYTIC,TICINC,IPRINT,JRZONE,SCALEF
COMMON /ED/ U.DFIL
CUMMJN /CO/ ICOFIL,FROM,TO
REAL*tt FROM(2),TO(2)
INTEGER CNTY
IREAD=5
lPRIi\IT=o
it OF IL = 1 0
ICOF IL= 1 2
NAU=20

**IiJPUT
SCALEX--SCALING FACTOR TO CONVERT KILOMETER DISTANCES TO PLOTTER
INCHES
IXtR 	 -VARIABLE TO REQUEST PLOTTING OF STUDY AREA ENUMERATION
DISTRICTS.
THE STUDY AREA
IHUX----AREA SOURCE GRID SUUARE NUMBER
VUT.____I OuuFH 1 ^FT— HANI1 y PlinRlllWATF FHW THf- fiPTO t\ i u w**vJHr\L.
vk?ro»««_«i r^Lif-ij i ( v pnri^c^iiviATC tno TWF C* o i r\ QdiiADF
Ir I^^^^^LwMin LC.I |r!Mi*l' T vVJURt/l'^HIC. rUiA IML \yf\ 4 \J OUUHnu.

CNTY----FIPS STATE AND COUNTY CODES
i*ZUNE--REFERENCF (PRIMARY) UTM ZONE FOR THE RUN
**UUFPUT--A COMPUTER-DHAwN PLOT PICTURE UF THE GRID SQUARES FOR THE
ENTIRE AQCR; PLOTTING OF THE COUNTY BOUNDARIES AND
ENUMERATION DISTRICTS AS OPTIONS

F =t>. 3501)1 3346
TICIUC=5.0
00000800
00000900
00001000
00001100
00001200
00001300
00001400
00001500
00001600
00001700
00001800
00001900
00002000
00002100
00002200
00002300
f\ f\ (\ f\ "J l\ i\ ft
\J\t\J\J££*4\J\J
00002500
00002600
(\f\f\f\^"ff\f\
00002800
fiflfiflPOrtfi
00003000
00003100
00003200
00003300
00003400
00003500
00003600
00003700

-------
         10
         20

         30

         40

         SO

         60



         70
o
NJ
O
      REAU (IREAD,20,ENDsl40) SCALEX,IXER,ICO
      FORMAT (F12.0,2I12)
      READ (IREAD,30) AUCR
      FORMAT (3A6,A2)
      rtRITE (IPRINT,40) AQCR
      FORMAT ('l',10X,'STUDY AREA IS ',3A6,A2)
      IF (IXER.GT.O) WRITE (IPHINT,50)
      FORMAT COENUMERATION DISTRICTS TO BE PLOTTED')
      IF UCO.GT.O) WRITE (IPRINT/60)
      FORMAT COCOUNTY OUTLINES TO BE PLOTTED')
      3CALEF=SCALEX
      3CALEX=T/SCALEF
      READ (NAQ,70,END=140) FROM,TO
      FORMAT
               YZtHO=IT*5.
                                        ,) XZERO=XZERO-5,
                                        ,) YZERO=YZERO-5,
                                        XLONG=XLONG+5.
      II" ((XZERO-FROM(l)).GE.O
      IF ((YZhRO«FROM(2)).GE,0
      U ((XLONG-TO(U).LE.O.)
      if" ((YLONG-TO(2)).LE.O.)
      lXFIC = (XLO
-------
0
     I',/)
      DO  120 1=1,1800
      HEAD (NAU,100,END3l30)  1BOX, (CUT Y ( J) , J=l , 2) , IRZONE, XPT , YPT , S
      f-ORMAT (I5,6X,I3,I5,I3,2F10.5,F3.0)
      ii-  UBUX.LE.O) GO TO  130
      N=I
         110
         100
      XRAY(I)=(XPT-XZERO)/SCALEX
      YRAY(I)=(YPT-Y/ERO)/SCALEX
      SlDE(I)sS/SCALEX
      rtRUE (IPRINT,110) IBOX,XPT,YPT,S, (CNTY(J), J = l,2)
      FORMAT (1 X, 19, 3 F 1 0,1, 2 X, 14, 15)
      CONTINUE
c
C*****i«iAY HAVE EXCEEDED MAXIMUM NUMBER OF BOXES
      READ (NA(J, 100,END=130) IBOX
      U (IBOX) 130,130,170
C
C*****riAVL FILLED XRAY AMD YRAY FOR THIS AREA.   TIME  TO PLOT BOXES,
130   CONTINUE
      CALL HOPBOX
C*****UPT10NAL PLOT OF ENUMERATION DISTRICTS,
      IF UXER.GT.O) CALL EDPLOT
C*****OPT10uAL PLOT Of- COUNTY OUTLINES,
      IF (KU.GT.O) CALL COOUT
      bu ?0 10
C
1«0   .(RlTt. (IPR1NT,1SO)
ISO   (-ORMAI  ('lt,OOD HN1SH')
C*****TULC PLOTTING KJRM
C     CALL PICSIZ(0,,0.)
C***** LiEi^LRAL PLOTTING FORM
      XLOi>l(j=(XLOiMG-XZERO)/SCALEX4-3.0
      CALL PLOT (XLONG,1.0,999)
160   blUP
170   ^KUE (I PR I NT, 180)
180   FORMAT  ('THERE ARE MORE BOXES THAN STORAGE ALLOCATED, END JOB')
00007500
00007600
00007700
00007600
00007900
00006000
00008100
00008200
00006300
00006400
00008500
00006600
00008700
00008600
00006900
00009000
00009100
00009200
00009300
00009400
00009500
00009600
00009700
00009800
00009900
00010000
00010100
00010200
00010300
00010400
00010500
00010600
00010700
00010800
00010900
00011000
00011100

-------
             GO TO 160


             tNU
n
00011200
00011300
OOOH400

-------
                SUbKOUTINE POPBOX
                DIMENSION AQCRU), XRAYU800), YRAY(lttOO), SIDE(IBOO)
                IHMUMSION XX(2), YY(2), X(5), Y(5)
                COMMON /BOXES/ XZERO,YZEKO,SCALEX,AQCRrXRAY,YRAY,SIDE,N,
               1U,iXT 1C,IYT1C,TIC INC,IPRINT,JRZONE,SCALEF
n
I
NJ
U)
          C*****SLf COiMSTANTS NEEDED FOR
          C*****XLOi^G= IICIMC * XMAX f 2
                XT1C=IXTIC
                YTIC=IYTIC
                TlCIi\IC = TICINC/SCALt X
                XNAX=XTIC*TICINC
                YMAX = YriC*TICHMC
                SCALE=250000/SCALEF
                CALL PLOTS (IfJfH)
                CALL PLOT (0.,-30. ,-3)
                CALL PLOT (3to,o.75/-3)
          C*****PKArt THE X-AXIS.
          10    XXU)=0,0
                               PLOTTER USING INPUT VALUES.
                               INCHES, YLONG= TICINC * YMAX
                U  (INDi.LE.O) GO 10 20
                YY(1)=YMAX
                YV (<2)=YMAX
                GO  10 SO
                YY(1)=0.0
30
                CALL PLOT (XX(l)r YY(1)»3)
                CALL PLOT (XX(2),YY(2)»2)
          C*****UKA»v THt Y-AXIS.
                it- d^ui.LE.o) GO TO ao
                   TO bO
          an
          00000100
          00000200
          00000300
XLONG,YLON00000400
          00000500
          00000600
3 INCHES. 00000700
          00000800
          00000900
          00001000
          00001100
          00001200
          00001300
          00001400
          00001500
          00001600
          00001700
          00001800
          00001900
          00002000
          00002100
          00002200
          00002300
          00002400
          00002500
          00002600
          00002700
          00002800
          00002900
          00003000
          00003100
          00003200
          00003300
          00003^00
          00003500
          00003600
          00003700

-------
                                                                         00003800
50    CALL PLOT (XX(l),YY(i)f3)                                          00003900
      CALL PLOT (XX(2),YY(2),2)                                          00004000
C*****PLOT IK MARKS ON X-AXIS                                           00004100
      XX(l)so.O                                                          00004200
      IF- (IiJDl.Lt.O) GO TO 60                                            00004300
      YY(1)=YHAX                                                         00004400
      YY(2)=YMAXt0.1*SCALEF                                              00004500
      GO TO 70                                                           00004600
60    YY(l)sO.O                                                          00004700
      YYU)=-0.1*SCALEF                                                  00004800
70    XXU)=XX(1)                                                        00004900
      CALL PLOT (XX(l),YYU)f 3)                                          00005000
      CALL PLOT (XX(2),YY(2)r2)                                          00005100
      t>0 60 11)0=1,IXTIC                                                  00005200
      XX(U=XX(U*TICINC                                                 00005300
      XX(2)sXX(l)                                                        00005400
      CALL PLOT (XX(1),YY(1),3)                                          00005500
      CALL PLOT (XX(2),YY(2),2)                                          00005600
80    COiNTINUt                                                           00005700
C*****PLOT TIC MARKS ON Y-AXIS                                           00005800
      YY(l)sO.O                                                          00005900
      U (INOI.LE.O) GO TO 90                                            00006000
      XX(1)=XMAX                                                         00006100
      XX(^) = XMAXtO,l*liCALE:F                                              00006200
      bU 10 100                                                          00006300
90    XX(1J=0,0                                                          00006400
      XX(«f)=-0, 1*SCALEF                                                  00006500
100   YYU)=YY(1)                                                        00006600
      (.ALL PLUT (XX(1), YY(1) ,3)                                          00006700
      CALL PLOT (XX(2)fYY(2)r2)                                          00006800
      DO 110 IDO=1,IYTIC                                                 00006900
      YY(1J=YY(1)+TICINC                                                 00007000
      YYl«?)=YY(l)                                                        00007100
      CALL PLOT (XX(1),YYU),3)                                          00007^00
      CALL PLUT (XX(2),YY(2)»2)                                          00007300
110   CUNTlNUfc                                                           00007400

-------
                IF UND1.EQ.1) GO TO 120
                U-u TO 10
          C
          C*****UME TO PRINT LABELS,
          120   STAKT=(XMAX-1.6*SCALEF)/2,0
                XX(l)3SrART
                YY(O=-0,34*SCALEF
                CALL SYMBOL (XX(1),YY(1)»0.15*SCALEF,'KM  (EASTING)',0,0,13)
                STARf=(YMAX-l,7*SCALEF)/2,0
                YY(1)=START
                XX(1)=«0.14*SCALEF
                CALL SYMBOL (XX(1),YY(1),0,15*SCALEF,'KM  (NORTHING)',90.0,1
          C*****ru CEiMFER THE TITLE, USE LENGTH OF 2ND, HEADG (3,2) AND OF
i
to
THE MAJOR HEADG (4,6),
XSTARr=(XMAX-7,8*SCAL£F J/2.0
YSTARf=(YMAXtO,3*SCALEF)
CALL SYMBOL ( XSTART , YSTART , 0 ,20*3CALEF , ' AWE A :  '
CALL SYMBOL (999.,999.,0.2*SCALEF,AQCR,0,0,20)
Xi>IART = (XMAX-3.2*SCALEF )
CALL SYMBOL ( XSTART , YSTART , 0 , 1 5*SCALEF , 'SCALE :
CALL NUMBER (999,, 999, , 0 . lb*SC ALEF , SCALE, 0.0»-1)
CALL SYMBOL (999 , ,999, , 0 , 1 b*SC ALEF ,' KM', 0,0, 3)
XX(1)=-0,6*SCALEF
YY(1)=-0.3*SCALEF
CALL NUMBER ( XX ( 1 ) , Y Y ( 1 ) , 0 , 15*SCALEF , XZERO, 0, 0, 4 )
XXU)=-1.5*SCALEF
YHi)=-0.075*SCALEF
CALL NUMBER (xxu),YY(i),o.i5*scALEF,YZERo,o,o,4)
EHN=(b,*XTIC)+XZERO
FPiM=(b,*YTIC)+YZERO
YY(1)=(YMAX-0.075*SCALEF)
CALL NUMBER ( XX ( 1 ) , Y Y ( 1 ) , 0 , 15*SC ALEF / FPN, 0, 0 , 4 )
XX(l)=(xMAX-0,fa*SCALEF)
YYU)=-0.-4*SCALEF
LALL NUMBER (XX(l ),YY(1),0, lb*SCALEF ,EPN,0,0,4)
                                                                ,0,0,7)
                                                                1 KM;', 0,0, 13)
00007500
00007600
00007700
00007800
00007900
00006000
00008100
00008200
00008300
00008400
00008SOO
00008600
00008700
00008800
00008900
00009000
00009100
00009200
00009300
00009400
00009500
00009600
00009700
00009800
00009900
00010000
00010100
00010200
00010300
00010400
00010500
00010600
00010700
00010800
00010900
00011000
00011100

-------
          O****llMt fU DRAKV BUXF.S.                                               00011200
          C                                                                       00011300
                OU IHO «=1,N                                                      0001UOO
                Xd)sXKAY(K)                                                      00011500
                *<2)sX(l)                                                         00011600
                X(3)=XRAY(K)+SIDE(K)                                              00011700
                X(<4) = X(i)                                                         00011800
                X(bJ=X(l)                                                         00011900
                Y(1)=YHAY(K)                                                      OOOiaOOO
                                  K)                                              00012100
                                                                                  00012200
                                                                                  00012300
                                                                                  00012400
          C***** GtNtKAL PLOTTING FUKM                                            00012500
                CALL PLUT (X(l)fY(l),3)                                           00012600
                UU 130 lDO»2fb                                                    00012700
                CALL PLOT 
-------
              SUBROUTINE  EDPLOT                                                  OOOOOJOO
              CLMrtON  /BOXES/  XZERO, YZl RU, SCAUX, DUMMY 1 (4), DUMMY2( 1 800) , DUMMY3( 1800000200
             100J,DUMMY 4(1800),IDUM,XLONG,YLONG,DUM1,DUM2,DUM3,IPR I NT,JRZQNE,SCA00000300
             2LLF                                                                00000400
              CUMMUU  /ED/ IEDFIL                                                 OOOOObOO
        C*****THI3  SUdROUTINE  READS  THE  CAASE1  ED FILE  AND  PLOTS  SYMBOLS AT ED   00000600
        C      LOCATIONS.   SYMBOL  1  IS  USED  FUR  ACTUAL  BUREAU OF  THE  CENSUS ED'S,00000700
        C      SYMdUL  b  FUR ED'S SCALED BY  CAASE1  ACCORDING  TO USER  REQUEST, SYM-00000600
        C      dUL  9 FOR  ED'S  ENTERED SPECIFICALLY 8Y  THE  USER,                  00000900
              DIMENSION  MAARK(3),  ICNTEDC3)                                      OOOOJOOO
              UAIA  MAARK  /1,S,9/  ,1CNTED /0,0,0/                                 00001JOO
              ICOUiMT = 0                                                           00001200
        10     KLAL)  (IEDFILf20,END = 30)  EAST, ZNORTH, IMARK                          00001300
        20     FOK^AT  (lbaX,2F15.2fI«)                                            00001«00
              it = MAARK(IMARK)                                                     00001500
              Y = (ZNURTH-YZERO)/SCALE X                                            00001600
              X=(tA3T-XZERO)/SCALEX                                              00001700
        c***** bLutRAL  PLOTTING CALL                                             ooooiboo
?             C«LL  SYMBOL (X,Y/0,ObfM,0.0,-\)                                    00001900
^             ICUUNI=ICUUNTtl                                                    00002000
              K^IED(IMARK)rlCNTED(lMARK)-H                                      00002100
              lii)  TO 10                                                           00002200
        C*****F INiSHtl)                                                           00002300
        AO     .'^Ht (IPRINT»aO) ICOUNT,ICMTED                                    00002^00
        «0     FJKMA1  (Ib,'  TUTAL  ENUMERATION DISTRICTS  PL OT T ED', / , 15, '  CEfiSUS EN00002SOO
             lUMtKAlIUN  DISTRICTS',/,Ib»'  SCALED  ENUMERATION DISTRICTS'»/»lb,'  U00002600
             2JtR  EuUMfcRATIOu  DISTRICTS')                                        00002700
              RhluR.M                                                             00002800
        C                                                                        00002900
              t.^u                                                                00003000

-------
                I-KOMPU) = (FROMP(1)-XZtRO)/3CALtX                                  OOOOittOO
                      2) = (FROMP(2)-YZLRU)/SCALtX                                  00004900
                      = (TOP(l)-XZtRO)/SCALtX                                      00004000
                      =(TOP(2)->ztRU)/3CALLx                                      ooooaioo
                         CALLS.                                                    00004200
                LALL PLOT (FKUMP(l)^HOMP(2)r3)                                   00004300
                CALL PLOT (TOP(1),TUP(2),2)                                       00004400
          C*****bO btT UtXT RLCURD                                                 00004bOO
                1>U TU oO                                                           00004600
          C*****ALL CUUNTItS UNISHtD                                             00004700
          70    t'.KIlt (1PRINT,80)  ICOUNT                                          00004800
          HO    f-UKrtAf (15,' CDUWTItS" OUTLlNtS PLOTTtD')                        00004900
                                                                                  00005000
                                                                                  00005100
                                                                                  00005200
I
ro
CD

-------
n
NJ
vo
              SUbKUUflNE COOUT
                     /CO/  ICOFIL,FROM, TO
                     /BOXES/ XZERO, YZERU, SCALE: X, DUMMY 1 (4) , DUMMY2 ( 1 800 ) , DUMMY
             100J,i)U!1MY4(1800), IDUM, XLOnlG, YLONG, DUM 1 , DUM2, DUM 3, I PR I NT , JRZONE
             2LEh
              ui;iLUoIUN FRUMP(ip( 1 J=FROM( 1 )
              luP(l )=f(J(l)
              FUP(2J=rU(2)
        C*****PLU| LINE SE
3(1800000300
,SCAOOOOO«00
    00000500
    00000600
    00000700

    00000900
    00001000
    00001 100
    00001^00
    00001300
    00001MOO
    00001SOO
    OOOOlbOO
    00001700
    00001800
    00001900
    00002000
    00002100
    00002200
    00002300
    oooo2aoo
    00002bOO
    00002600
    00002700
    00002800
    00002900
    00003000
    00003*00
    00003200
    00003300
    00003400
    00003bOO
    00003600
    00003700

-------
C-30

-------
                    APPENDIX D
LOGICAL FLOWCHARTS AND FORTRAN SOURCE CODE LISTINGS
             CAASE4  (and Subroutines)
                        D-l

-------
D-2

-------
                                            CAASE4
                                           (DRIVER)
          START
  SET NDIM AT LEAST ONE
GREATER THAN THE NUMBER OF
GRID SQUARES IN THE COUNTY
WITH THE LARGEST NUMBER OF
GRID SQUARES IN THE SET OF
 COUNTIES BEING PROCESSED.
  SET KDIM TO NUMBER OF
 SOURCE CATEGORIES TO BE
 OVERRIDDEN DURING THIS
  RUN WITH OVERRIDING
  APPORTIONING FACTORS
           CALL
        SUBROUTINE
          CAASE4
            END
             D-3

-------
                                SUBROUTINE
                                  CAASE4
                                                                            CAASE4
                                                                            SUBROUTINE CAASE4
                                     ASSIGN  I/O UNIT
                                   NUMBERS FOR COMPUTER
                                    SYSTEM BEING USED.
KOUNTY
CNAME
KSTATE
SNAME
IOVER
ITEST
--r
INPUT
                                      1DUMP 1ST
                                     RECORD ON
                                    CAASE2 OUTPUT
                                   TAPE—USED
                                   5Y CAASE3 ONLY
                         10
READ COUNTY NUMBER & NAME,
STATE NUMBER & NAME, NUMBER
OF CATEGORIES TO OVERRIDE,
AND PRINT OPTION VARIABLE
                                          HAS
                                      AQCR BEEN
                                      COMPLETED
                                           •>
                   CAASE2
                    OUTPUT
                     TAPE
                              READ STATE AND
                               COUNTY FROM
                               CAASE2 OUTPUT
                                           HAS
                                         END OF
                                        FILE ON
                                       TAPE BEEN
                                        COUNTERED
                                                          PRINT MESSAGE THAT
                                                          END OF FILE WAS
                                                          ENCOUNTERED WHILE
                                                          LOOKING FOR COUNTY
                                          D-4

-------
          NO
     IS
 THIS THE
COUNTY OF
 INTEREST
     9
                                                       CAASE4
                                                       SUBROUTINE CAASEi
                                                       p.2
                          YES
                  BACKSPACE  INPUT
                  TAPE TO  RESTORE
                     RECORD
LOOP ON MAXIMUM NUMBER OF'
 r(LOOP ENDS AT 70)
       AREA SOURCE GRIDS IN COUNTY
             READ GRID SQUARE NUMBER,
            FRACTION OF GRID IN COUNTY,
            STATE, COUNTY, UTM ZONE, UTM
             COORDINATE, SIDE LENGTH OF
            GRID, SUM OF HOUSES AND SUM
            OF POPULATION IN GRID SQUARE.
                                                60
SET NUMBER-
OF GRIDS-
PROCESSED
VARIABLE

<.
BACKSPACE
INPUT TAPE
TO RESTORE
RECORD
                         HAS
                       END OF
                     FILE BEEN
                    ENCOUNTERED
                         IS
                     THIS STILL
                     COUNTY OF
                      INTEREST
                          SET NUMBER
                          OF-GRIDS-
                          PROCESSED
                          VARIABLE
                        p. 3  I    D-5

-------
                                                  CAASEi
                                                  SUBROUTINE CAASE4
                                                  p.3
 SPRINT ERROR MESSAGE
VINDICATING DIMENSIONSI
  EXCEEDED
                                   ERROR
                                   JffiSSAGE
  REWIND INPUT TAPE
END FILE OUTPUT TAPE
 REWIND OUTPUT TAPE
                  D-6

-------
ERROR
MESSAGE
F PRINT ERROR
MESSAGE
INDICATING
SAME
                                         ARE
                                        THERE
                                     ANY SOURCE
                                    CATEGORIES TO
                                      OVERRIDE
                                      FOR THIS
                                       COUNTY
    WAS
  ENOUGH
  STORAGE
 ASSIGNED
                                                                    CAASE4
                                                                    SUBROUTINE CAASE4
                                                                    P.4
               •Y
              p.10J  	LOOP.ON. NUMBER__
                     '  (LOOP ENDS AT 130)~
                  I CAT
                  XINIT
               J
                                           YES
                            0_F_ OVERRIDING^FACTORS
                                               1

                                               t
               7
READ CATEGORY
 NUMBER AND
INITIALIZING
  CONSTANT.
                     I   130
               END
                        LOOP_ON_NUMBER
                     [(LOOP  ENDS  AT 140)"
                 LOOP  ON NUMBER_OF_AREA _
                     '(LOOP  ENDS  AT 140)"

                    t
      [	OF_LOOP_	_J
                            OF   OVERRIDING FACTORS
                           • —•	r
                                                i
                            SOURCE GRIDS IN COUNTY
                            —	— — —r
                                    INITIALIZE THE
                                      WEIGHTING
                                     FACTOR ARRAY
                     |__14_0	END	_]
                                 OF LOOP
                                          D-7

-------
                           SET MAXIMUM NUMBER
                         OF OVERRIDE CARDS EQUAL
                         TO OVERRIDING FACTORS
                         TIMES AREA SOURCE GRID
                         PLUS ONE,  TO RECOGNIZE
                       THE BLANK SIGNAL CARD USED.
                  LOOP  ON MAXIMUM
               (LOOP ENDS AT 180)
                                                                  CAASE4
                                                                  SUBROUTINE  CAASE4
                                                                  p.5
                           NUMBER  OF OVERRIDE  CARDS
IDNUM
KAT
WEIGHT
               READ OVERRIDE FACTOR
              CARDS CONTAINING GRID
                SQUARE ID NUMBER,
             SOURCE CATEGORY NUMBER,
               AND WEIGHTING FACTOR
                                   HAS
                                   LAST
                                 OVERRIDE
                                CARD  BEEN
                              ENCOUNTERED
                                          OVERRIDING FACTORS
                                     SOURCE GRIDS IN COUNTY
 _LOOP_ON__NUMBER_OF	
>L  (LOOP ENDS AT 160)
 MJOOP__PN_NU^ER_ OF_ AREA*
 I  (LOOP ENDS AT 160)   ~,
                                THIS THE
                                CATEGORY
                                  TO BE
                                VERRIDEN

                                     'YES
                                    IS
                               THIS THE
                              GRID  SQUARE
                              OF INTEREST
                                POST THE
                                WEIGHTING
                                 FACTOR
            I   t   J.DU
                                        OF LOOP
                                   p.6 I    D-8
                                                I
                                           	I

-------
                                                                 CAASE4
                                                                 SUBROUTINE CAASE4
                                                                 p.6
                      PRINT ERROR MESSAGE
                      THAT CATEGORY OR ID
                   NUMBER THAT WAS ENCOUNTERED
                       WAS NOT IN THE ARRAY
                                        ERROR
                                       MESSAGE
              180
            0
  END   OF   LOOP
._           .

 210   _J
     CONTINUE
	LOOP_ON NUMBER_OF_AREA
I  (LOOP ENDS AT 390)
            SOURCE GRIDS IN COUNTY
                            CALCULATE
                             AREA OF
                           GRID SQUARE
                          SET CONTAINED
                             HOUSES &
                            POPULATION
                           VARIABLE FOR
                            THIS GRID
.XlS \.
XXCONTAINED\^
POPULATION
X. EQUAL TO S*
^^ZEROl.^
| NO
210 T
CALCULATE
INVERSE
POPULATION
DENSITY
220 >
—*
f
SET SIDE EQUAL
SQUARE ROOT OF
AREA
^ YES >

SET INVERSE
POPULATION
TO ZERO
>

f
                                         D-9

-------
                                                            CAASE4
                                                            SUBROUTINE CAASE^
                                                            p.7
  LOOP ON^NUMBER_OF
 |~(LOOP ENDS AT~ 350)
t
                                   SOURCE CATEGORIES
                                                 ~ T
                      INITIALIZE  CATEGORY
                       SUBSCRIPT  TO ZERO
                              ARE
                             THERE
                           OVERRIDE
                            FACTORS
                                YES
                                  OVERRIDE FACTORS
    LOOP  ON  NUMBER OF
              ENDS AT 230)
                              IS
                        THIS CATEGORY
                       TO BE OVERRIDEN
                           WITH A
                         WEIGHTING
                           ACTOR?
                                             SET WEIGHTING
                                             FACTOR SUBSCRIPT
                                             TO CATEGORY
                                             NUMBER
                          SELECT TYPE
                          OF OVERRIDE
                          PROCESS TO
                            BE USED.
                       COMPUTED "GO TO"
                        FOR APPROPRIATE
                        OVERRIDE TYPE
                        INVERSE POP DENSITY
POPULATION
GRID SQUARE SIDE LENGTH
                              D-10

-------
                                                                        CAASE4
                                                                        SUBROUTINE  CAASE-
                                                                        p.3
   250. _
 I     CONTINUE     "I
 i	.,	!
                                    270
         IS
        THIS
      CATEGORY
        TO BE
     OVERRIDDEN
                                    !     CONTINUE     i
                                    I	_ —	1
                          260
                280
SET FACTOR
 EQUAL TO
 HOUSING
  COUNT
     CALCULATE *.
    APPORTIONING
    FACTOR BASED
     ON HOUSING
SET FACTOR
 EQUAL TO
POPULATION
  COUNT
                                         CALCULATE *
                                       APPORTIONING
                                       FACTOR BASED
                                       ON POPULATION
  290
 I
 I     CONTINUE
               	I
                          300
                320
      CALCULATE *
    APPORTIONING
    FACTOR BASED
    ON INVERSE
    POPULATION
    DENSITY
                            SET FACTOR
                             EQUAL TO
                             INVERSE
                            POPULATION
                             DENSITY
                  SET FACTOR
                   EQUAL TO
                     AREA
                           IS
                         THIS
                        CATEGORY
                        TO BE
                      OVERRIDDEN
                                         CALCULATE *
                                        APPORTIONING
                                        FACTOR BASED
                                          ON AREA
USE OVERRIDING FACTOR
                                         D-ll

-------
                                                                     CAASE4
                                                                     SUBROUTINE CAASE-
                            330
                            I	
                            i     CONTINUE     I
     340
      SET FACTOR
       EOUAL TO
      GRID SQUARE
      SIDE LENGTH
                                CALCULATE *
                               APPORTIONING
                               FACTOR BASED
                              ON GRID SQUARE
                               SIDE  LENGTH.
             350
                            END
                OF LOOP
                                                              	1
                                WRITE OUTPUT
                                 TAPE WITH
                                APPORTIONING
                                FACTORS AND
                               BASIC INFO  FOR
                              THIS GRID SQUARE
                     NO
                             PRINT APPORTIONING
                               FACTORS AND
                            3ENTIFICATION  DATA.
               390
END
OF LOOP
                               PRINT SUMMARY
                                ABOUT THIS
                                  COUNTY
USE OVERRIDING FACTOR
                                   D-12

-------
                      WERE
                      THERE
                   OVERRIDING
                     FACTORS
   LOOP ON NUMBER OF
                                                         CAASE4
                                                         SUBROUTINE  CAASE4
                                                         p.10
r~(LOOP ENDS AT 430)
t
                  OVERRIDING FACTORS
                 PRINT WEIGHTING
                   FACTORS  FOR
                   OVERRIDDEN
                    CATEGORIES
   430
END.
                440
	OF__LOOP	,
                    GET NEXT
                    COUNTY IF
                   THERE IS ONE
                480
                PRINT "GOOD FINISH"
                MESSAGE INDICATING
                  SUCCESSFUL RUN
                    OF PROGRAM
               500
                PUT END OF FILE ON
                   OUTPUT TAPE,
                REWIND OUTPUT TAPE,
                REWIND INPUT TAPE
                /IlETURN TO
                \CALLING PROGRAM
                       D-13

-------
I
M
*-
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
PROGRAM NAME: CAASE4 DRIVER

DKlvtR PROGRAM FOR CAASE4 TO SET DIMENSIONS

NU1M ,vlU3T BE AT LEAST ONE GREAIER THAN THE NUMBER OF GRID SQUARES
IN THE COUNTY WITH THE MOST GRID SQUARES IN THE SET OF COUNTIES
btlNG PROCESSED rtlFH THIS COMPUTER RUN.

*DiM IS THE NUMBER OF SOURCE CATEGORIES TO BE OVERR1DEN DURING
1H1S RUN WITH OVERRIDING APPORTIIONING FACTORS.
OBJECTIVE
UvEKRiuES
          TERMS AlLL BE
          ARE REQUESTED
                                      USED EXCLUSIVELY FOR APPORTIONING IF" NO
THEiiE
     SETS
     CAASE4
     EXIT
                                                      00000100
                                                      00000200
                                                      00000300
                                                      00000400
                                                      OOOOObOO
                                                      00000600
                                                      00000700
                                                      00000800
                                                      00000900
                                                      00001000
                                                      00001100
                                                      00001200
                                                      00001300
                                                      00001400
                                                      OOOOlbOO
                                                      00001600
                                                      00001700
                                                      ooooiboo
                                                      00001900
                                                      00002000
                                                      00002100
                                                      OOOU2200
                                             ,  FRAC(2300002300
                                             lD(23b), 00002400
                                                      00002500
                                                      00002600
                                                      00002700
                                                      00002800
(ID,SUMH,SUMP,X,Y,SIDE,FRAC,STATE,COUNTY,ISTATErlCNTY, 00002900
                                                      00003000
                                                      00003100
                                                      00003200
                                                      00003300
      DIMENSIONS MUST BE SPECIFIED AND THE DRIVER RECOMPILED
        NDIM AND/OR KDIM is INCREASED.  THEY DO NOT NEED TO BE
        IF DIMENSIONS ARE LARGER THAN NECESSARY EXCEPT FOR
         STORAGE EFFICIENCY.
          DIMENSIONS FOR 1CAT,  XINIT,
           ALL OTHERS ARE  SET  BY M)IM
                                                    AND SECOivID SUBSCRIPT
UF
                3UHH(23b), SUMP(235), X(23b), Y(23b),
     lb), SIATE(23S), COUNTY(23b), UTZONE(23b), WGTFCT (23S, 3)
                                           ICAT(3), X1NIT(3)
      CALL
     101 ^Ui
      CALL

-------
      SUBROUTINE CAASE4
     1K.MTY,UTZONE,
C**** KUUllNE READS
C
C
              (ID,SUMH,SUMP,X,Y,SIDE,FRAC,STATE,COUNTY,I STATE,00000100
          TAPE
                             CT, ICAT,XINITrNDIM,KDlM)
                         WRITTEN  BY CAASE2 rtHICH INCLUDES:
          GRIL) SQUARE ID NUMBERS  (ID)
          UTM COORDINATES (EASTING AND NORTHING) OF L04ER LEFT
                                                     HAND
                                                                        00000200
                                                                        00000300
                                                                        00000400
                                                                        00000500
C              CORNER FOR EACH GRID SQUARE (X AND Y)                    00000600
C         UTM ZONE FOR EACH GRID SQUARE (UTZONE)                        00000700
C         SIDE LENGTH IN KILOMETERS FOR EACH GRID SQUARE (SIDE)         00000800
C         FRACTION (FRAC) OF EACH GRID SQUARE IN COUNTY, ASSIGNED GT    00000900
C              ZERO,  LE TO 1.0                                          00001000
C         STATE & COUNTY ASSOCIATED rtlTH EACH GRID SQUARE (STATE AND    00001100
C         COUNTY) FIPS CODE                                             00001200
      DIMENSION SUMH(NDIM), SUMP(NDIM), ID(NDIM), X(NDIM),  Y(NDIM), FRAC00001300
     l(NUiM), SIDE(NDIM), 1ST ATE(NDIM), ICNTY(NDIM), IZONE(NDIM), rtGTFCTOOOO1400
     2(UDIM,KDIM), CNAME(5), SNAME(5), ICAT(KDIM), XINI1(KD1M), FACTOR(500001500
     3o), uAPORT(5b)
C**** ALSO PASSED TO
C
C
           ROUTINE ARE THE DIMENSIONS FOR
C
C
I
C
c* ***
c
c
c
c
c
c
c
c
c
c
c
c* * * *
C
                                                    THE RUN WHERE:
          ND1M=NUMBER OF GRID SQUARES IN THE COUNTY wITH THE LARGEST
                NUMBER OF SQUARES FOR THIS RUN (PLUS ONE)
          KJ1M=NUMBER OF SOURCE CATEGORIES TO BE OVERRIDEM
I TEST = WHETHER OR NOT TO PRINT THE FACTORS COMPOTED - IF NOT
ZEHO, PRINTING WILL OCCUR,
HEIGHT FACTORS ARE ASSUMED TO BE EQUAL TO 1,0 EXCEPT FOR
THOSE CATEGORIES TO BE OVERRIDDEN.
FUR THOSE SOURCfc CATEGORIES TO BE OVERRIDDEN, RtA() IN THE
SOURCE CATEGORY NUMBER AND EIlHEK A ZERO OR A 1.0 FOR
INITIALIZATION, E.G. IF AIKPORT OPERATIONS ARE TO BE
OVERRIDDEN AND EMISSIONS APPORTIONED TO ONLY THOSE GRID
SQUARES INDICATED, THEN READ IN A CARD ^ITH EACH APPLICABLE
CATEGORY NUMBER (33,34, OR35) AND A o.o TO CAUSL THE
INITIALIZATION OF THE WEIGHTING FACTOR FOR EACH GRID SQUARE
To BE SET TO ZERO...
               CARD 10 OVERRIDE AN OBJECTIVE WEIGHTING FACTOR
               THE GRID SQUARE ID NUMBER, I HE SOURCE CATEGORY
                                                    NUMBER
                                                                        OOOOlbOO
                                                                        00001700
                                                                        00001800
                                                                        00001900
                                                                        00002000
                                                                        00002100
                                                                        00002200
                                                                        00002300
                                                                        00002400
                                                                        00002500
                                                                        00002600
                                                                        00002700
                                                                        00002800
                                                                        00002900
                                                                        00003000
                                                                        00003100
                                                                        00003200
                                                                        00003300
                                                                        00003400
                                                                        00003500
                                                                        00003600
                                                                        00003700

-------
I
I-1
ON
c
c
c
c
c
c
c *** *
c
c
c.
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
I
c
                AUU rut WEIGHT  ASSIGNED- WEIGHTS OF o TO 10 OR 0,0 TO uo ARE
                SU  GU TU BRANCHES AS A FUNCTION OF SOURCE CATEGORY

                DAI A IMAPORT /6M, 14*2, 1,2*2, 1,5*2, 3, 2, 3, 5, 3*4, 4*5, 2*2, 2*3, 2*2, 2*3,
                4, 0*3, 2/

                DIMENSIONS AWE A FUNCTION OF THE NUMBER OF GRID SUUARES IN THE
                LUUim BEING PROCESSED  (NDIM)  AND THE NUMBER OF SOURCE CATEGORIES
                Tu  UE UVERHIODEU (KDlM).   THE  USER  IS CAUTIONED TO PROVIDE AN
                AUEUUATE NUMbEH ,  E.G., IF  THE LARGEST NUMBER OF SQUARES IN ANY
                LUUiMfY BEING PHUCESSEIJ  IS 50,  THEN  DIMENSIONS SHOULD BE NO LESS
                ThAU bl, AND THE VARIABLE 'NDIM' SHOULD BE SET TO 50
      ASblbN 1/0 UNIT NUMBERS
             TAPE (FROM CAASEt?)
                UUIPUF  [APE (INPUT  TU CAASE5)

                IT AKEU=8
                1PHI,'JT = 0
                uPlMPl=NUIMtl

                blAKT  PROCESSING A  COUNTY

                KEAU CUUlJTY AuU STATE NAME AND NUMBER ( F IPS-CENSUS ), NUMBER OF
                        Es TU  OVERRIDE,  AND WHETHER PRINTER OUTPUT is CANTED,


                     DUi«U*!Y RELURD ON GRID INPUT (STUDY AREA LIMITS).
00003800
00003900
00004000
00004100
00004200
00004300
00004400
00004bOO
00004600
00004/00
00004800
00004900
00005000
00005100
00005200
00005JOO
00005400
00005500
00005600
00005700
00005600
00005900
00006000
00006100
00006200
00006300
00006400
00006500
00006600
00006700
00006800
00006900
00007000
00007100
00007200
00007300
00007400

-------

-------
a
I
00
          60
          70
          C
          C
          C

          HO
          C
          C
          C
          C
          C
          C
          C
          100
          1 10
          130
NAnEAS=I-l
GU IU 90
KEHilMU ITAPEN
NAKEAS=I-1
bU IU 90
CLMIIUUL

ERKUK, EXCEEDING DIMEMSIONS REQUESTED, ERROR OFF
                                    ',Ib»'
                                                                  00011200
                                                                  00011300
                                                                  oooiiaoo
                                                                  0001IbOO
                                                                  00011600
                                                                  00011700
                                                                  00011800
                                                                  00011900
                                                                  00012000
NK1IE (1PRINT,HO) KUUN1Y,CNAME,KSTATE,SNAME,NDIM,NDIMP1           00012100
FUKHAT C1NUMBER OF GRID SQUARES CONTAINED IN',3X,Ib,bX,bA4, ' COUN00012200
                    3X,I5,5X,5A<4/'OEXCEEDS DIMENSIONS SPEC IFIED',bOOOl2300
                            GRID SQUARES HAVE BEEN READ WITHOUT  EN00012«00
                             COUNTY OR AN ENi) OF FILE, CORRECT NDI0001
                                                                  0001
                                                                  0001
                                                                  0001
                                                                  0001
                                                                  0001
                                                                  0001
                                                                  0001
                                                                  0001
                                                                  0001
                                                                  00013bOO
                                                                  00013600
                                                                  00013700
                                                                  00013800
                                                                  00013900
                                                                  0001UQOO
                                                                  00014100
                                                             IOVEROOOia200
                                                                  00014300
                                                                  oooia^oo
                                                                  0001<4bOO
                                                                  OOOiaoOO
                                                                  0001^700
                                                                  oooiaeoo



HY
2x,'
3uuu
IN
(4U
^ T
UK Ai\lL)

90
C
C
C
bU
CON

ARE

fu
THE
1M=',
ERlNG
STA
Ib,
El
RESUBM1
bOO

TE OF',
bX, 'AND
THERV
T JOB')

riuuE

i


MERE


ANY


SOURCE

                                     CATEGORIES TO OVERRIDE FOR THJS COUNTY
                   UUVER.EGI.O)  GO TO 200
                                                                       2600
                                                                       2700
                                                                       2800
                                                                       2900
                                                                       3000
                                                                       3100
                                                                       3200
                                                                       3300
KLAL) THE
    UK 0
         CATEGORY NUMbER
         0) FOR tACH.
AND THE INITIALIZING CONSTANT (I.E. 1.0
    CHECK FIRST ON ENOUGH STORAGE ASSIGNED
                it-
               l='
   UllVEK.LE.KDIM) GO TO 110
   IE UPKINT,100) 10VER,M)IM
     l  ('ONOT ENOUGH STORAGE ALLOCATED FOR OVERRIDE FACTORS,
  ,lb,'  AND i\01M=', Ib,/'0 INCREASE KD1M AND RESU8M1T RUN')
GU lu bOO
UU 130  l=l,10VER
htAU (IKEADR, 1^0) ICAT(I),XINIT(I)
FUKMAf  (lb,F'j.O)
LUN!

-------
I
I-1
vo
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
ISO
C
C
C
160
C
INITIALIZE THE WEIGHTING FACTOR ARRAY, CAN BE USED TO SET ALL
GK1U SQUARES FOR A PARTICULAR SUURCE CATEGORY TU 0. AND THEN PUT
IN OVERRIDE FACTORS FOR ONLY THOSE GRID SQUARES TO APPORTION THE
SOURCE CATEGORY INTO

UU 140 J=1,IUVER
Uu 140 l=i,NAREAS
KGTFCI(I,J)=XINIT(J)
CON 'I INUE

UvtHKlUE FACTORS FOLLOW WHERE EACH CARD CONTAINS THE GRID SUUARE
ID NUMBER, THE SOURCE CATEGORY NUMBER, AND THE ASSIGNED WEIGHTING
F AC I OR NUMBER

A dLANK CARD, I.E., A BLANK GRID SQUARE NUMBER SIGNALS THE END
OF OVERRIDE CARDS, THE MAXIMUM NUMBER OF OVERRIDE CARDS FOR A
COUNTY IS (OBVIOUSLY) IOVER (NUMBER OF CATEGORIES TO OVERRIDE)
IIMES NAREAS (NUMBER OF GRID SUUARES IN THE COUNTY BEING
PKUUE33ED) PLUS 1 TO RECOGNIZE THf- BLANK SIGNAL CARD USED,

LUJP=NAREAS*IOVERtl
UO ItfO L=1,LUOP
KLMU (IREADR,150) IUNUM,KAT, WEIGHT
KJKMAT (2110, MO. 0)
IF UDNUM.EU.O) GO TO ^oo
Uu 160 J=l, IOVER
00 ItoO I=1,NARLA5
II- UCA1 (J) .ME.KAT) GO TO IfaO
IF (IDNUM.NL.ID(I)) GO TO 160

KUUUU \nt GRID SQUARt AMD CATEGORY, PO3T THE WEIGHTING FACTOR
•«UFC
GU !u
   I I
            (I, J)=i-tlGHT
            1HO
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
4900
sooo
5100
S200
5300
5400
5500
5600
5700
5600
5900
6000
6100
6200
6300
6400
6500
6600
6/00
6800
6900
7000
7100
7200
7300
7400
7500
7600
7700
7800
7900
6000
6JOO
8200
8300
8400
8500

-------
o
K)
O
          C
          C
          C

          170
          180
          L
          C
          C
          C

          190
C
C
C
200
C
C
C
          C
          C

          C
          C
          C

          C
          C* **
          C
      CUJLU ONLY FALL THROUGH IF A CATtGORY OR ID NUMBER WAS ENCUUNTEREDOOO18600
          rtHICH WAS NOT IN THE ARRAYS, PROBABLE KEYPUNCH ERROR,         00018700
                                                                        00016800
      v.KHE (IPR1NT,170) IDNUM,KAT,WEIGHT                               00018900
      (-UHMAT ('OTRUUBLE WITH WEIGHTING FACTORS - TRIED TO OVERRIDE WITH 00019000
     1GKIU SUUARE NUMBER,  CATEGORY NUMBER,  AND WEIGHTING FAC10R NUMBER*'00019100
     2/2110,HO.2/'OCHECK
      Gu 10 500
      CON I 1IMUE
                                    FOR  KEYPUNCH  ERRORS  AND  RESUBMIT  JOB'//)
 LOULl) ONLY FALL THROUGH IF  TOO MANY OVERRIDE CARDS ARE BEING
 SUBMITTED FOR THE DIMENSIONS KDIM,  NDIM -- ERROR OFF

 nK!1t (1PRINT,190)  LOOP
 FUKI^AT COTROUBLE WITH WEIGHTING -- ONLY ALLOWED FOR*, no,'
1  (GRID SUUARE-SOURCE CATEGORY COMBINATIONS) '/ 'OCHECK KOIM,
2ND UVEKRIDE CARDS — FATAL  ERROR THIS RUN')
 GO FO bOO

 N0»» READY TO ASSIGN APPORTIONING FACTORS

 CONTINUE
                 AKEA
      UU
                       1=1,NARLAS
                                 (I)*FRAC(I)
      CUNlAiNED HOUSES
      CONTAINED POPULATION
      IwVtKSt POPULATION DENSITY WEIGHTED BY GRID SQUARE SIZE AND
      I-K ACTION OF GRID SUUAKE IN CfiUNTY IF NOT  TOTALLY INSIDE A COUNTY
       00019200
       00019300
       00019400
       00019500
       00019600
       00019700
       00019800
       00019900
  CARDS00020000
NDIM, A00020100
       00020200
       00020300
       00020400
       00020SOO
       00020600
       00020700
       00020800
       00020900
       00021000
       00021100
       00021200
       00021300
       00021400
       00021500
       00021600
       00021700
       00021800
       00021900
       00022000
       00022100
       00022200

-------
      11-  (3UM2.NE.O.) GO TO 210
210
C
C
C
220
C
C
C

C
c* * * *
c
c
c
c
c
GO 10 220
3UM3=(AKEA/SUM2)*AREA

EFFtLTIvE SIDE LENGTH OF AREA WITHIN THIS COUNTY

blUELN=SURT(AREA)

LOOP THKOUGH THE SOURCE CATEGORIES

IHJ 350 J = l,56

13 THJ3 CATEGORY TO bF. OVERRIDDEN WITH A WEIGHTING FACTOR?
IF HOVER.EQ.O) GO TO 240

FIND WEIGHT FACTOR FOR THIS CATEGORY
      UU 230 K=1,IUVER
      IF UCAT(K) ,NE,J) GO TO 230
230
240
C
C
c
c
c
c
c
c
c
   fO 240

   I I>'*Ut

oELELT TYPE OF OVERRIDE TO USE vjHERE:

ITVPE = 1   HOUSING
      = 2   POPULATION
      = 3   INVERSE POPULATION DENSITY
      = 4   AREA
      = 5   GRID SQUARE 3IDE LtfJGlH
00022300
00022400
00022500
00022600
00022700
00022800
00022900
00023000
00023100
00023200
00023300
00023400
00023500
00023600
00023700
00023800
00023900
00024000
00024100
00024200
00024300
00024400
00024500
00024600
00024700
00024800
00024900
00025000
00025100
00025200
00025300
00025400
00025500
00025600
00025700
00025800
00025900

-------
o
i
to
N3
          c
          c
          c
          c
          c
          c
          360

          270
          C
          c
          c
          280

          290
          C
          C
          C
          300

          310
          C
          C
          C
       ACCORDING TO MICH CATEGORY ON THIS ITERATION
                1 TrPE=NAPORT(J)
                GO  TO  (250, 270,290,310, 330),  ITYPE
                COUl
hOUblNG

if- USUB.EQ.O) GO TO 260
l-«CiOK(J)=SUMl*wGTFCT(I,ISUB)
GO TO 3bO
ML10M(J)=SUM1
Gu 10 3bO
HuHULATIOiM

If- (ISub.EQ.O) GO TO 280
f- ACIOH(j)=SUM2*lf,GTFCT( J, I SUB)
GO lu 3SO
GO TO 3bO
LO'MT INUL

iuvLRSE POPULATION DENSITY

U  tiaUb.LU.O) GO TO 300
                                        ISUh)
GU Tu 3bO
FAC!UR(J)=SUM3
GO Ju 3bO
LOw I
Mt
-------
      FALIuR(J)=AREA*flGTFCT(I,ISUB)                                     00029700
      GO IU 3bO                                                         00029800
320   FACTuR(J)=AREA                                                    00029900
      GO lu 3bO                                                         00030000
330   LONI1NUE                                                          00030100
C                                                                       00030200
C     GRID SUUARE SIDE. LENGTH                                           00030300
C                                                                       00030400
      IF USUb.EU.O) GO TO 340                                          00030500
      FALTOR(J)=SIDELN*WGTFCT(I,ISUB)                                   00030600
      GO Tu 3bO                                                         00030700
340   FACIOR(J)=SIDELN                                                  00030BOO
3bO   CuiMllNUE                                                          00030900
C                                                                       00031000
C**** OUTPUT TAPE wITH APPORTIONING FACTORS ADD BASIC INFO FUR THIS GRID00031100
C     iiuUAKt ( FOR INPUT TO CAASEb )                                    00031200
C                                                                       00031300
      flKlIt (ITAPEO,360) ID(I),FKAC(I),ISTATt(I),SMAML,ICNTY(I),CNAME,IZ00031«00
     lUNt(l),X(I)»Y(I),SlOE(I)rARfcA,FACTOR                              00031500
360   HJKMAT lISfKt>.5,I3,bAa,Ib,5Aa,Ii,2F10.0»2F10.2»2atl3,S,/, 32E13.5) 00031600
C                                                                       00031700
C**** IK HKIhir SWITCH (ITEST) IS ON, PRINT FACTORS AND IDENTIFICATION   00031800
C     UAU                                                              00031900
C                                                                       00032000
      H (ULST.EGI.O) GO TO 390                                         00032100
      •»rU ft (IPK1NT»370) ID(I),FRAC(1),ISTATL(I),SNAME,ICNTY(I),CNAME, I ZOO 032200
     luutlI),X(I),Y(I),SlDt(I),ARtA,FACTOR                              00032300
370   f-UKrtAT (/////'O FOR IDf F RAC , ST ATE , COUNT Y , ZONE , X , Y , S IDE, AND AREA= V00032400
     1 '0',Ib,F10.5,Ib,bA4,I5,bA4,I3,2FlO.O,2F10.2/'OFACTORS = '//(bE13.5))00032bOO
      ••Rilt (IPH1NT,3BO) SUM2,SUM1 ,SUM3,SIOELN                          00032600
380   FuRHAT ('0V CONTAINED POPULATION = ' ,F 1 0 ,0 , 3X, 'CONT A INED HOUSING 00032700
     1 = '»MO.O»3X, 'AREA WEIGHTED INVERSE POPULATION DENSITY = ' , E 13. 5/ 'OS00032600
     2UUAKt ROOT OF AREA (EFFECTIVE SIDE LENGTH) =',F10.U)              00032900
390   LuuflNUE                                                          00033000
      nKiIE (IPRINT,aOO) SNAME,CNAML",^AREAS»IOVER                       00033100
aoo   FURMAT COSTATE AND COUNTY  ',bAa,sx,bA<4,' HAD',no,'  GRID suuARtooo332oo
     Ib'/Uu,'  SOURCE CATEGORIES ^ERE OVERRIDDEN')                     00033300

-------
                It-  UUVER.EU.O) GO TO 440                                          00033400
          C                                                                        00033500
          C**** UUIPUF WEIGHTING FACTORS FOR OVERRIDDEN CATEGORIES                 00033600
          C                                                                        00033700
                UU  4:40 J=1,IOVER                                                   00033800
                AR1TE  UPRINT,410) ICAT(J)»XINIT(J)                                00033900
          410   FUKMAf CM CATEGORY',15,'  rtAS INITIALIZED rtlT H' ,\r\ 0 . 0,2X, 'FOR  ALL00034000
               1 bRIU  SUUAKE3 IN THIS  COUNTY'/'OTHE FOLLOWING ARE ID AND  WEIGHTIN00034100
               2b FACTOR PAIRS FQK THIS CATEGORY'///)                              00034200
                rtKUt  CIPR1NT,420) CID(1),WGTFCTU,J),I = 1,NAREAS)                  00034300
                FORMAT (I10,F10.2,I10,F10.2,I10,F10,2,UO,F10,2,I10,F10.2,I10,F10.00034400
                12)                                                                 00034500
                CUhlliNUE                                                           00034600
          440   HN11E  (IPRINT,450)                                                 00034700
          450   FuHrtAF CM')                                                       00034800
          C                                                                        00034900
          C**** bLI ufcxf COUNTY IF THERE IS ONE                                    00035000
          C                                                                        00035100
                bu  10  10                                                           00035200
o         460   nKUL  (IPRINT,470) SNAME,CNAMfc                                     00035300
N>         470   FORMAT (' OENCOUN ? ERED END OF FILE UN INPUT TAPE t^HEN LOOKING  FOR  '00035400
*"              1 ,bX,bA4,5X,5A4)                                                    00035500
                i»U  To  500                                                          00035600
          480   ^Kjlfc  CIPR1NT,490)                                                 00035700
          490   FUKMAf CMbOUD FINISH')                                            00035800
          500   tmu FILE ITAPEO                                                    00035900
                       ITAPEO                                                      00036000
                       ITAPEN                                                      00036100
                KtfUKN                                                             00036200
                nrtilE  C1PRINT,50) I                                                00036300
                rtKilt  CIPHINf ,50) IIJCD.FRACC1), 1ST ATE ( I) , ICNT Y (I ) , I ZONE ( I ) , X (I ) , Y00036400
               1 Cn,3IULCI),3UMHCI ),SUMP(I)                                        00036500
                KETURN                                                             00036600
                                                                                   00036700
                                                                                   00036800

-------
                    APPENDIX E
LOGICAL FLOWCHARTS AND FORTRAN SOURCE CODE LISTINGS




             CAASE5  (and Subroutines)
                       E-l

-------
E-2

-------
f    START    J
 SET DIMENSIONS
 FOR THIS RUN
CALL  SUBROUTINE
    CAASE  5
f    END     J
                                         CAASE5
                                        (DRIVER)
     E-3

-------
      c
                                              CAASE5
                                              SUBROUTINE CAASE5
SUBROUTINE
  CAASE5
      (INPUT) DIMENSIONS
      DOUBLE PRECISION
      SPECIFICATIONS
       ASSIGN  I/O UNIT
       NUMBERS  FOR
       COMPUTER SYSTEM
       BEING USED
     ADD  1  TO MAXIMUM NO.
     GRIDS  TO HANDLE
     BLANK  CARD  SIGNALING
     END  OF COUNTY
  SET  CONSTANT TO  BE USED
  WITH HIGHWAY MOTOR VEHICLE
  ALGORITHMS
1READ IN THE EMISSION FACTOR
TABLES FOR THE 5 POLLUTANTS
AND THE HIGHWAY MOTOR VEHICLE
SOURCE CATEGORIES
 READ IN VARIABLE DENOTING
 OUTPUT CHOICE FOR SUBROUTINE
 OUTPUT 3
             E-4

-------
                                  CAASE5
                                  SUBROUTINE CAASE5
                                  p.2
 NO
140/^IS
    THIS  A
   DIFFERENT
   ^COUNTY
                YES
       STORE LAST READ
        CAASE4 OUTPUT
      IN FIRST LOCATION
         OF STORAGE
(ENDS AT 145)
        145
                 OF CATEGORIES
                         r
          STORE THE
        APPORTIONING
           FACTOR
        END
            OF LOOP
       150
          CONTINUE
             E-5

-------
                                             CAASE5
                                             SUBROUTINE CAASE5
                                             p.3
READ EPA STATE CODE, FIPS
COUNTY CODE, NO. OF GRID
SQUARES, COUNTY NAME, EPA
COUNTY CODE, POLITICAL
SUBDIVISION, STUDY AREA CODE.
      HAS STUDY AREA
      BEEN COMPLETED
                             YES
              NO
       READ IN PAGE
       HEADING FOR
       OUTPUT TABLES
     INITIALIZE ERROR
     FLAG VARIABLE FOR
     SUBROUTINE READ1
     TO ZERO
   CALL SUBROUTINE READ1
   TO READ "FUELS" TOTALS
   FOR COUNTY OF INTEREST
            E-6

-------
                                                                 CAASE5
                                                                 SUBROUTINE CAASE5
                                                                 p.4
                       WAS THERE AN  ERRO
                       RETURNED FROM THE
                       SUBROUTINE
                        DISPLAY FUELS
                        INPUT DATA FROM
                        READ1 SUBROUTINE
CAASE4
OUTPUT
TAPE
LOCATE STATE AND
COUNTY OF INTEREST
                       HAS AN END-OF-FILE
                       BEEN ENCOUNTERED
                     IS THIS THE STATE
                     AND COUNTY OF INTEREST
                             E-7

-------
                                                                CAASE5
                                                                SUBROUTINE CAASE5
                                                                p.5
                      STATE AND COUNTY
                      OF INTEREST HAVE
                      BEEN FOUND
           LOOP  ON DIMENSIONS | SET IN DRIVER
                ENDS~*AT 480~)
READ IN WEIGHTED
APPORTIONING FACTORS
CAASE4
OUTPUT
 TAPE
                     HAS AN END-OF-FILE
                     BEEN ENCOUNTERED
                       HAS ANOTHER
                       STATE OR COUNTY
                       BEEN ENCOUNTERED
i
|_480 END OF '
i
NO
- LOOP

                    DIMENSIONS WERE NOT
                    ADEQUATE PRINT ERROR
                    MESSAGE STATING SAME
                             E-8

-------
                                                     SUBROUTINE  CAASE5
                                                      p.6
              BACKSPACE  INPUT
              TAPE ONE RECORD
           460
              SET TOTAL GRID
              SQUARES VARIABLE
               520   "
                  CONTINUE
         LOOP ON 56  i,  CATEGORIES
I(LOOP ENDS AT 560)
                                          i
          INITIALIZE APPORTIONING
          TOTAL ARRAY  TO  ZERO
          FOR  CATEGORY OF INTEREST
   •(LOOP ENDS AT  540~
LOOP ON NUMBER OF I 'GRID SQUARES THIS COUNTY
                                    I
                                    t
           CALCULATE APPORTIONING
           FACTOR SUMS OF THIS
           CATEGORY FOR THIS GRID
           SQUARE
I  540
END -r
|_56_0	^ _J
             END  w
                        OF  LOOP

                        OF LOOP
                   r  ur Luur           i
                    E-9

-------
                                                      CAASE5
                                                      SUBROUTINE CAASE5
                                                      p.7
  	     LOOP ON 56 ^
f( LOOP* ENDS AT 60_Q) ""'
T  UOOP_gN NUMBER _OF
       ENDS AT 600)
CATEGORIES

GRID  SQUARES  THIS
                            COUNTY
             DOES  APPORTIONING
             TOTAL FOR THIS
             CATEGORY  EQUAL  ZERO
             APPORTION FUEL FOR
             THIS CATEGORY AND
             AREA SOURCE GRID
             SQUARE
         580
           SET APPORTIONED FUEL
           FOR THIS CATEGORY AND
           AREA SOURCE GRID SQUARE
           TO ZERO
     600
END
 OF LOOP          J
           CALL SUBROUTINE OUTPT1
           TO FORMAT OUTPUT FOR
           APPORTIONED FUELS
           THROUGHPUT
                    E-10

-------
                                                       CAASE5
                                                       SUBROUTINE  CAASE5
                                                       p.8
           .LOOPJDN^SJr POLLUTANTS
. ^w«£ ENDS AT 680)

	LOOTJDN_lst^.j^CATEGpRIES_OF_RES_IpENTIAL FUEL
!~(Too~p ENDS" AT" 680)


           COMPUTE TOTAL EMISSIONS
           FOR THIS POLLUTANT FOR
           THIS CATEGORY


|_680	END_ i ^ OF  LOOP	J


	L.OOP _ON jLst_4j''CATEGORIES_OF_RESIpENTIAL FUEL
| (LOOP ENDS AT 700)  ~>                     '

V

           MODIFY  FOR THE SULFUR
           CONTENT TERM OF  S02
           CALCULATIONS FOR THIS
           CATEGORY


|  700           ' END >   OF LOOP            i

            LOOP  ON 5 ,, POLLUTANTS


["(LOOP ^ AI  ?20)                       *
LOOT ^ON^6^CATEGORIES'''^F^OMM'J;&  INSTIL FUEL  (7-12)
KLOOP ENDS AT 720)              "~      ""|
t  '                  i                     +

           COMPUTE  TOTAL EMISSIONS
           FOR THIS POLLUTANT, FOR
           THIS CATEGORY


|__720	END_jr_OF_LOOP	J
                      E-ll

-------
                                                   CAASE5
                                                   SUBROUTINE CAASE5
                                                   p.9
  740
» ON 1st 2 CATE<
P
ENDS AT 740)
i
-GORIES OF COMM'L -
r
SET SUBSCRIPT FOR ASH
AND SULFUR CONTENT
COEFFICIENT
i
i
MODIFY FOR THE ASH
CONTENT TERM FOR TSP
CALCULATIONS FOR
THIS CATEGORY
i
i
MODIFY FOR THE SULFUR
CONTENT TERM FOR S02
CALCULATIONS FOR
THIS CATEGORY
	 — END J
r_OF_LOOP 	
•
                                       I
[(LOOP ENDS AT 760)
i
     LOOP ON  Zm^ 2_' CATEGORIES OF COMM'L-INST'L  FUEL  (9-10)
T

I
60 _
SET SUBSCRIPT FOR
SULFUR CONTENT
COEFFICIENT
1
t
MODIFY FOR THE SULFUR
CONTENT TERM FOR S02
CALCULATIONS FOR
THIS CATEGORY
END >
i
' OF LOOP __
r


-------
                                                        CAASE5
                                                        SUBROUTINE CAASE5
                                                        p.10
LOOP ON 1st 2 CATEGORIES'
 T(LOOP ENDS AT 780)
 I
      OF INDUST.  FUEL (13-14)
                            I
                            t
              SET SUBSCRIPT FOR
              ASH AND SULFUR CONTENT
              COEFFICIENT
            MODIFY FOR THE ASH CONTENT
            TERM FOR TSP CALCULATIONS
            FOR THIS CATEGORY
              MODIFY FOR THE SULFUR
              CONTENT TERM FOS"S02
              CALCULATIONS FOR THIS
              CATEGORY
 	_LpOP_ON_LAST
 I (LOOP ENDS AT 780)
 t
    " POLLUTANTS
                            t
             COMPUTE TOTAL EMISSIONS
             FOR THIS POLLUTANT FOR
             THIS CATEGORY
  780
END ' '• OF LOOP
               MODIFY FOR THE ASH
               CONTENT TERM FOR SP
               CALCULATIONS FOR
               CATEGORY 15 (COKE)
                      fp.10
                        E-13

-------
                                                      CAASE5
                                                      SUBROUTINE CAASZ5
                                                      p.11
              MODIFY FOR THE SULFUR
              CONTENT TERM FOR S02
              CALCULATIONS FOR
              CATEGORY 15
 	JLOOP JJN JLAST 3 f POLLUTANTS
1 (LOOP ENDS AT  800)"
t

             COMPUTE TOTAL EMISSIONS
             FOR THIS POLLUTANT FOR
             CATEGORY 15.
                     END ^' OF LOOP
       	JHIATEGORIES
       ENDS  AT 820) "
r

	      _L,29P °N 5 'r
 (LOOP  ENDS  AT 820)
•- OF
                                      FUEL _(16-20)


                                      	

                                                 t
            COMPUTE TOTAL EMISSIONS
            FOR THIS POLLUTANT  FOR
            THIS CATEGORY
j_820	JSNDJ' OF LOOP	
                                                4
                                          	i
            MODIFY FOR THE SULFUR
            CONTENT TERM FOR S02
            CALCULATIONS FOR CATEGORY
            16.
                       E-14

-------
                                                 CAASE5
                                                 SUBROUTINE CAASE5
                                                 p.12
           MODIFY FOR THE SULFUR
           CONTENT TERM FOR SO,
           CALCULATIONS FOR
           CATEGORY 17
 LOOP  ON  CATEGORY  OF
 r(L6"oF ENDS" AT" sToj"
 	LOOP_ qn_ 5_
        ENDS AT 840)~
                            ON-SITE-INCIN.  & OPEN BURN (21-26)
                                                j
                             POLLUTANTS
                                           t
          COMPUTE TOTAL EMISSIONS
          FOR THIS POLLUTANT, FOR
          THIS CATEGORY.
  840
                       END '' OF LOOP
   	LOOP_ON_5 i
r"(LOOP ENDS AT 900)
t

        __LOOP JDN _CATEGORY
     TLOOP  ENDS  AT 860)
t
                                           t
'£	I
                       POLLUTANTS
                        27-29
         SET TOTAL EMISSION FOR
         THIS POLLUTANT, THIS
         CATEGORY TO ZERO-HANDLED
        .IN SEPARATE ALGORITHM
L.860	END' '_OF .LOOT	j
          SET TOTAL EMISSION FOR
          THIS POLLUTANT FOR
          CATEGORY 31 TO ZERO
                    E-15

-------
          LOOPJDN CATEGORIES I 43-46
            ENDS  AT~880")
    T
    I 380
                                                            CAASE5
                                                            SUBROUTINE CAASE5
                                                            p. 13
                   SET  TOTAL EMISSIONS
                   FOR  THIS  POLLUTANT
                   FOR  THIS  CAT.  TO ZERO
                    END > - OF LOOP
                        END v
	LOOJP_pN_5 ir  POLLUTANTS
I   (LOOP ENDS AT 960)
     )O£	I
                                                         t
                 COMPUTE TOTAL EMISSIONS
                 FOR THIS POLLUTANT FOR
                 CATEGORY 30 (OFF HIGHWAY
                 GAS)
    i
                LOOP  ON CAT.
     "(LOOP ENDS AT 920)
                          32-42
                                                     i
                 COMPUTE TOTAL EMISSIONS
                       FOR  THIS
               POLLUTANT FOR THIS CATEGORY
I  (LOOP ENDS AT 940)
                                                     t
    l_920	END jr_OF_LOOP	j
                            t 47-51
                 COMPUTE TOTAL EMISSIONS
                 FOR THIS POLLUTANT, FOR
                 THIS CATEGORY
    I  940
                    END
                                                   "I

                                                     I
                                                     t
OF LOOP
                           E-16

-------
                                                           CAASE5
                                                           SUBROUTINE CAASE5
                                                           p.14
>
1
COMPUTE TOTAL EMISSIONS
FOR THIS POLLUTANT FOR
FOREST WILDFIRES (52)
i
t
COMPUTE TOTAL EMISSIONS
FOR THIS POLLUTANT FOR
MANAGED BURN. (53)
1
t
COMPUTE TOTAL EMISSIONS
FOR THIS POLLUTANT FOR
AGRI. FIELD BURN. (54)
             COMPUTE TOTAL EMISSIONS
             FOR THIS POLLUTANT FOR
             FROST CONTROL (55)
t
             COMPUTE TOTAL EMISSIONS
             FOR THIS POLLUTANT FOR
             STRUCTURE FIRES (56)
^960
END "  OF LOOP
                        	I
             COMPUTE MILES TRAVELED
             FOR LIGHT VEHICLE GAS
                      ©
                         E-17

-------
                                      CAASE5
                                      SUBROUTINE CAASE5
                                      p.15
©
COMPUTE MILES
TRAVELED FOR
LIGHT TRUCK GAS
i
r
COMPUTE MILES TRAV-
ELED FOR HEAVY
VEHICLE GAS
1
r
COMPUTE MILES TRAV-
ELED FOR HEAVY
VEHICLE DIESEL
>
r
SUM MILEAGE FOR
HIGHWAY MOTOR
VEHICLE SOURCES
>
r
COMPUTE RATIO FOR
LIGHT DUTY GAS CLASS
OF VEHICLES
l
r
COMPUTE RATIO FOR
, LIGHT DUTY TRUCKS
CLASS OF VEHICLES
  E-18

-------
                                                         CAASE5
                                                         SUBROUTINE CAASE5
                                                         p.16
1
f
COMPUTE RATIO FOR
HEAVY DUTY GAS CLASS
OF VEHICLES
>

COMPUTE RATIO FOR
HEAVY DUTY DIESEL
OIL CLASS OF VEHICLES
i
t
INITIALIZE MEASURED
VEHICLE MILES VARIABLE
TO ZERO
	LOOP_ON 4_CAT
HLOOP ENDS AT 980)
OF MEASURED VEH. MILES (43-46)
                      ~i
                       t
              SUM THE TOTALS OF THE
              CATEGORIES OF MEASURED
              VEHICLE MILES
I  980
                IS SUM EQUAL ZERO,
                I.E.,  VEHICLE MILES
                MISSING
                      YES
                        E-19

-------
                                                   CAASE5
                                                   SUBROUTINE CAASE5
                                                   p.17
  	JIOOP  ON 5
F(LOOP ENDS AT lOOO"

	LOOP_ON_4 CAT _
I(LOOP ENDS AT 1000)'
                   •' POLLUTANTS
                     OF MEAS. VEH.  MILES  (43-46)
         SET SUBSCRIPT FOR
         CATEGORY OF  INTEREST
         COMPUTE TOTAL EMISSIONS
         FOR THIS POLLUTANT FOR
         THIS  CATEGORY
1000
                END  >rOF  LOOP
                    ' ur J-uur             I
                   E-20

-------
i
       LOOP 11 POSSIBLE >, DENSITY CODES
              IS DENSITY  CODE  EQUAL
              TO THIS POSSIBILITY
            IS IT THE 1st POSSIBILITY
            I.E., IS IT BLANK
                                                         CAASE5
                                                         SUBROUTINE  CAASE5
                                                         p. 18
                          YES
              SET COUNTY DENSITY CODE
              EQUAL TO WORST CASE - 9
              (90% URBANIZATION)
        7
PRINT MESSAGE THAT
COUNTY DENSITY CODE
WAS MISSING
          1060
             SET NUMERIC COUNTY
             DENSITY CODE VARIABLE
  1080
       END OF LOOP
          1100
-   t
             COMPUTE FRACTION OF
             COUNTY WHICH IS URBAN
                              E-21

-------
                                                         CAASE5
                                                         SUBROUTINE CAASE5
                                                         p.19
            COMPUTE FRACTION OF
            COUNTY WHICH IS RURAL
             COMPUTE TOTAL MILES BY
             SUMMING VEHICLE CATEGORY
             TOTALS
              LOOP  ON 5
| (LOOP ENDS AT 1120)
POLLUTANTS
             SET  EMISSIONS  TOTALS
             FOR  THIS  POLLUTANT  FOR
             CATEGORY  43 TO ZERO
              SET EMISSIONS TOTALS
              FOR THIS POLLUTANT
              FOR CATEGORY 45 TO
              ZERO
          COMPUTE TOTAL EMISSIONS FOR
          THIS POLLUTANT FOR CATEGORY
          44 BASED ON ESTIMATED RURAL
          MILES
          COMPUTE TOTAL EMISSIONS FOR
          THIS POLLUTANT FOR CATEGORY
          46 BASED ON ESTIMATED URBAN
          MILES
                   END  " OF  LOOP
                     E-22

-------
                 1140
                    CONTINUE
              Lp_op_oN_5
  (LOOP ENDS AT  1180)
                    "  POLLUTANTS
           INITIALIZE TOTAL EMISSIONS
           VARIABLE FOR THIS POLLUTANT
           TO ZERO
    	 LOOP ON 56
    (LOOP ENDS AT 1160f
                    " CATEGORIES
                    CALCULATE
                    POLLUTION
                    TOTALS
     1160
                END "  OF LOOP
I   1180
                                             t
J; _OF_LOOP	i
                 END v  OF LOOP
                                                          CAASE5
                                                          SUBROUTINE CAASE:
                                                          p.20
               PRETT PAGE HEADING
               FOR PRINTED OUTPUT
           LOOP ON 5
HLOOP ENDS"TT 1240"
                          POLLUTANTS
r              PRINT  TOTALS  BY  SOURCE
              CATEGORIES  FOR THIS
              POLLUTANT
      1240
                 END -' OF LOOP
                        E-23

-------
                                                       CAASE5
                                                       SUBROUTINE CAASE5
                                                       p.21
                 -OOP ON  5 1 POLLUTANTS
| (LOOP ENDS AT 1380)

                LOOP_ON_56 i CATEGORIES
      | (LOOP ENDS AT 1300)'
	_LOOP_ON_56 > •  CATEGORIES	     1


                                          I
                 STORE POLLUTANT TOTAL
                 INTO WORKING STORAGE
                 ARRAY
       _ iOOP_ON_NUMBER OF
       "LOOP  ENDS  AT 1300)
                       AREA SOURCE GRID SQUARES
                   DOES APPORTIONING
                   FACTOR EQUAL ZERO
                                          SET  APPORTIONED
                                          FUELS  TO  ZERO
      t
                      CALCULATE
                      APPORTIONED
                      FUELS
["(LOOP ENDS AT 1340)
I
                  1300 END i - OF LOOP
         LOOP ON NUMBER OF ,, AREA SOURCE GRID SQUARES
                      INITIALIZE
                     EMISSION SUM
                       TO ZERO
____ «J:02L 92.
1 (LOOP ENDS AT 1320)
                           ' 56  CATEGORIES.
                  SUM POLLUTANT TOTALS
                  FOR THIS GRID SQUARE
      I  1320
                 END
                                               1

                                                 I
                                                 T
OF LOOP
                                  E-24

-------
                                                         CAASE5
                                                         SUBROUTINE CAASE5
                                                         p.22
                      STORE TOTAL
                      FOR IPP CARDS
t
(___1340	ENDj
                                                       t
                             '.2F JL0(5L	  —	I
              CALL  SUBROUTINE  OUTPT2
              TO FORMAT  & PRINT  TABLES
              OF EMISSIONS  BY  SOURCE
              CATEGORY FOR  THIS  POLLUTANT
1380
                     ENDv OF LOOP
                 CALL SUBROUTINE  OUTPT3
                 TO FORMAT, PRINT, AND
                 PUNCH DISPERSION MODEL
                 INPUT DATA
                           E-25

-------
        o
CAASE5
SUBROUTINE CAASZ5
p.23
 1400
 PRINT ERROR MESSAGE
 THAT WRONG COUNTY
 ENCOUNTERED

        ©
 1440
  PRINT ERROR MESSAGE
  THAT END OF FILE
  ENCOUNTERED ON
  INPUT TAPE
        O
1480
 PRINT MESSAGE THAT
 LAST COUNTY HAS
 BEEN COMPLETED
      1520 
-------
   REWIND THE
   OUTPUT TAPE
                                           CAASE5
                                           SUBROUTINE CAASE:
                                           p.24
f   RETURN TO
V. CALLING PROGRAM
            E-27

-------
   200
        SET ERROR
        FLAG TO 1.
    ERROR ENCOUNTERED
           PRINT
          ERROR
        MESSAGE
c
   RETURN TO
CALLING PROGRAM
                                                                            CAASE5
                                                                            SUBROUTINE READ1
                                         SUBROUTINE
                                            READ1
                  ;NE\
                  	J
                                          SET ERROR
                                        FLAG TO ZERO
                                          READ INPUT
                                         RECORD OF
                                           FUELS
                                          TOTALS
                           LOOP ON_5_-_NUMBER
                         f"(LOOP~~ENDS AT 100)"'
                         I
NO
                           100
                                          IS
                                        CARD IN
                                        PROPER
                                         ORDER
                 OF CARDS PER RECORD
                                    t
                                                              YES
                                       7000
                                                                           CONTINUE
                 NO
                                          SET ERROR
                                          FLAG TO 1
                                      ERROR ENCOUNTERED
                                         CALCULATE PROPER
                                         FUELS TOTALS FOR
                                           MOTOR VEHICLE
                                            CATEGORIES
                                            PRINT
                                           ERROR
                                         MESSAGE
                                                                           RETURN TO
                                                                        CALLING PROGRAM
                                     0
           RETURN TO
        CALLING PROGRAM
                                             E-28

-------
                                                                    CAASE5
                                                                    SUBROUTINE  OUTPT1
                                  SUBROUTINE
                                    OUTPT1
                                      I
                                   INITIALIZE
                                    CONSTANTS
                              50
                0
                                SET VALUES FOR
                               STARTING, ENDING,
                               PAGE COUNT, AND .
                                   TABLE NO.
                                 75
                                     PPJNT
                                     PAGE
                                   HEADING
                                      I
                                                   HDG
                                                   ITABLE
                                                   IP AGE
                                COMPUTED "GO TO"
                                  OUTPUT GRID
                                IDENTIFIERS AND
                                  APPROPRIATE
                                  CATEGORIES
100
I
200
300
400
 PRINT GRID
 NUMBER AND
  1ST SIX
 CATEGORIES
 RINT GRID /
NUMBER AND,/
CATEGORIES
   7-20
       I
                              RINT  GRID  /
                             NUMBER AND/
                             CATEGORIES/
                             _£»//
                                       i
500
                                 PRINT GRID
                                 NUMBER AND
                                 CATEGORIES
                                   34-46
1
                  PRINT GRID
                  NUMBER AND
                  CATEGORIES
                    47-56
                            600
                                                    I
                                                         J
                                 INCREMENT TABLE
                                 NO.  FOR THIS SET
                                  OF  GRID SQUARES
                                                E-29

-------
         HAVE
       ALL GRID
     SQUARES BEEN
         DONE
                                 APPORTIONED
                                    FUELS
                                    TOTALS
                                          CAASE5
                                          SUBROUTINE OUTPT1
                                          p.2
WRITE APPORTIONED
  FUELS TOTALS
 FOR THIS COUNTY
c
    RETURN TO
     CALLING
     PROGRAM
            E-30

-------
C                                   SUBROUTINE
                                     OUTPT2
                        2TE\

                          J
                                                                    CAASE5
                                                                    SUBROUTINE OUTPT2
                                       i
                                   INITIALIZE
                                    CONSTANTS
                               50
                    I
                                  SET VALUES FOR
                                 STARTING, ENDING,
                                  AND PAGE COUNT,
                                   AND TABLE NO.
                                  75
 PRINT
  PAGE
HEADING
                                            /
                                               /
                                              HDG
                                              ITABLE
                                              IPAGE
                                       I
                                 COMPUTED ^GO TO"
                                   OUTPUT GRID
                                   IDENTIFIERS
                                 AND APPROPRIATE
                                   CATEGORIES
100
200
PRINT GRID
NUMBER AND
  1ST SIX
CATEGORIES
1 PRINT GRID
NUMBER AND
CATEGORIES
   7-20
                   400
  PRINT GRID
  NUMBER AND
  CATEGORIES
    21-33
     I
      I
                              600
     I
500
PRINT GRID /
NUMBER AND/
CATEGORIES/
  34-46 /  /
1
PRINT GRID
NUMBER AND
CATEGORIESy
  47-56
                         I
                       I
                                 INCREMENT TABLE
                                   NO. FOR THIS
                                   SET OF GRID
                                     SQUARES
                                       HAVE
                                     5 TABLES
                                  BEEN COMPLETED
                                    NO
                                            E-31

-------
  WRITE  APPORTIONED
    EMISSIONS  FOR
     THIS COUNTY
                                    CAASE5
                                    SUBROUTINE OUTPT2
                                    p.2
        HAVE
      ALL GRIDS
      BEEN DONE
                          APPORTIONED
                           EMISSIONS
c
RETURN TO
 CALLING
 PROGRAM
            E-32

-------
                                                                    CAASE5
                                                                    SUBROUTINE OUTPT3
  SUBROUTINE
    OUTPT3
                                         J
                              SET NUMERIC
                               CODE FOR
                               STATE OF
                               INTEREST
                          COMPUTED "GO TO"
                          DEPENDING ON TYPE
                          OF OUTPUT DESIRED
IPP CARD IMAGES
                                   v 2
CDM CARD IMAGES
AQDM CARD IMAGES
                                     E-33

-------
                        1000
                           SET  STACK
                           HEIGHT TO
                             FEET
                          PRINT HEADING
                         TO IDENTIFY
                        PRINTED OUTPUT
              LOOP  ON NUMBER OF
             (LOOP ENDS AT 100)
                        SET  COORDINATES
                          AND AREA TO
                           INTEGERS
                            CONVERT
                         EMISSIONS FROM
                           TONS/YR TO
                            TONS/DAY
  SET FORMAT
   FOR THREE
LEADING ZEROES
                                                             CAASE5
                                                             SUBROUTINE OUTPT3
                                                             o.2
                                CQIJNTJ
        10
                                    SET FORMAT
                                      FOR NO
                                  LEADING ZEROES
            SET FORMAT
              FOR TWO
          LEADING ZEROES
                       30
                        SET FORMAT
                          FOR ONE
                       LEADING ZERO
        t
         100
END
   OUTPUT IPP
  CARD IMAGE
 TO CARD,
PRINTER,
    TAPE      / OF
LOOP'
                                                        T
                                      E-34

-------
             2000
                                                      CAASE5
                                                      SUBROUTINE OUTPT3
                                                      p.3
                 SET STACK
                 HEIGHT TO
                  METERS
                 SET FACTOR
               FOR CONVERTING
                 TONS/YR TO
                  GRAMS/SEC
    LOOP ON
                   PRINT
                  HEADING TO
                 IDENTIFY
                PRINTED
                 OUTPUT
flLOOP ENDS AT TOO")  >r'
              SET COORDINATES
              AND GRID SQUARE
              SIDE LENGTH TO
              INTEGER METERS
  NU>fflER_pF_GRID_SOUARES IN COUNTY
                      I
                      I
                CONVERT S02
                AND TSP FROM
                 TONS/YR TO
                  GRAMS/SEC
                  OUTPUT CDM
                 CARD IMAGE
                TO CARD,
               PRINTERS
              AND TAPE
|_200_
END OF LOOP
                      E-35

-------
                           3000
                                                                 CAASE5
                                                                 SUBROUTINE OUTPT3
                                                                 p.4
                               SET STACK
                               HEIGHT TO
                                 FEET
                             PRINT HEADING
                                  IDENTIFY
                                 PRINTED
                                OUTPUT
                                 PUNCH
                               FIRST CARD
                              OF AQDM
                                DECK
                              CONVERT 1ST
                            S02 & TSP VALUES
                            FROM TONS/YR TO
                               TONS/DAY
                           PUNCH  &  PRINT AND
                            OUTPUT  TO  TAPE
                            NAME  LIST  CARD
                                FOR  DECK
                  LOOP ONLEMA.INING
                  ENDS AT 3015)
         GRIDS FOR  COUNTY
                             CONVERT S0?
                             AND TSP VALUES
                             FROM TONS/YR'
                             TO TONS/DAY
           t
    OUTPUT AQDM
   CARD IMAGES
  TO CARD
         AND
     TAPE
0
            300
END  OF v      LOOP
G                               RETURN T0~~^\
                             ^LLING PROGRAMJ
                                 E-36

-------
C****PKUuKAM NAME: CAASEb                                               00000100
C                                                                       00000200
C   DRIVER HOR CAASEb TO StT DIMENSIONS                                 00000300
C   MUSI bE RECOMPILED ANYTIME IT IS NECESSARY !0 CHANGE THE DIMENSIONS 00000«00
c                                                                       oooooboo
      UlMtMSIUN APPURT(b6,217),UUTIPP(217»b),ID(217),X(2l7J,Y(217),     00000600
     lAKbA(217)»APFULL(b*6«217)                                          00000700
C                                                                       00000600
C*** NiUiM IS THE NUMbER OP GKID SQUARES (MINUS ONE) IN A COUNTY-- IT    00000900
C   SHOULD BE SET DEPENDENT DU THE HIGHEST NUMBER IN THE COUNTIES BEING 00001000
C   PRULESSED DURlNb A COMPUTER RUN.                                    00001100
C                                                                       00001200
      UD1M = 
-------
                 SUBROUTINE CAASEbCAPPCiRNOUTIPP^PFUEL, ID, X , Y , AREA, NDI >i
PI
I
00
C***CAASLb USES THE APPORTIONING FACTORS  DEVELOPED  BY  CAASE'4 FOR THL
C  GRID SQUARES DEVELOPED IN CAASL2 AND  THE  FUELS/ T HRUUGHPU 1 FDR EACH
C  AREA SUURCE INPUT FORM (EPA (I)UR )219 )  FOR  EACH  COUNTY  IN THE STUDY
C  AREA.  EMISSION FACTORS FOR EACH SOURCE CATEGORY  ARE  READ FOR EACH
C  THE PRIMARY POLLUTANTS ( T SP , 302. NOX , HC , CO) .  FUELS/ THROUGHPU T ARF
C  APPORTIONED TO EACH GRID SQUARE FOR EACH  SOURCE  CATEGORY.  APPLYING
C  EMISSION FACTORS, EMISSIONS ARE CALCULATED  FOR EACH SOURCE CATEGORY
C  POLLUTAiMl AND THEN APPORTIONED  TO EACH GRID  SQUARE  ON A COUNTY BY
C  COUNTY BASIS.  TABLES ARE PRINTED AND  TnE USER HAS  THE  OPTION OF
C  PRODUCING AREA SOURCE FORMATTED INPUT  CARDS  FOR  ANY ONE OF THE THREE
C  DISPEKSION MODELS — AQDM, IPP, OR COM.  EMISSION  FACTORS ARE READ I rj
C  FOR tACM POLLUTANT/SOURCE CATEGORY  COMBINATION.   EXCEPT IN THE CASE
C  OF HIGHWAY MOTOK VEHICLE SOURCE EMISSION  FACTORS,  THE FACTORS ARE
C  SCALED AND UNITS ARE CONVERTED OFF-LINE,  I.E,  IF  THE  EMISSION FACTOR
C  FOR EXAMPLE, IS 20 POUNDS OF TSP PRODUCED FOR  EACH  TON  OF BITUMINOUS
C  COAL BURNED FOR HUME. HEATING AND THE  TOTAL  TONS  BURNED  IS EXPRESSED
C  IN TENS OF TONS ON THE NEDS AREA SOORCt FORM,  THEN  THE  FACTOR READ
C  IN IS 0.10 (10 SCALING TIMES 20 LBS PER TON  BURNED  DIVIDED BY £000
C  LBS PER TUN) AND THE PROGRAM MULTIPLIES THE  FUEL  REPORTED O.M THE
C  BY THE 0.10 FACTOR YIELDING EMISSIONS  IN  TONS.  FOR THOSE SOURCE
C  CATEUURY/POLLUTANT COMBINATIONS nhERE  PERCENT  ASH  OR  SULFUR CONTENT
C  IS USED, THE PROGRAM AUTOMATICALLY  APPLIES  THEM  OUR IMG  THE UN-Ll.Jl
C***CALCULA I ION.
C
                                         o o o o o i o o
                                         o u o C o 2 o o
                                         0 0 0 0 0 i 0 0
                                         0 0 0 0 0 4 0 0
                                         OOOOOSuO
                                       UF O'HHtObOO
                                         00000700
                                         oooooaoo
                                         00000900
                                         0 0 0 0 1 0 0 0
                                         0 0 0 0 1 t 0 0
                                         00001200
                                         00001300
                                         0 0 0 0 1^00
                                         0000 IbOO
                                         0000 t 600
                                         000017 o o
                                         0 0001 b 0 0
                                         0 (t 0 0 00
      APFUEL ARRAY Liil^TAI^S  APPORTIONED  FUELS  EARLY IM  THE PROGRAM AND  OU003/00

-------
p]
I
U)
           c
           c
           c
      LATER CONTAINS  APPORTIONED EMMISIONS F'OR EACH UP
      POLLUTANTS  IN  TURN.
           c****
                1
THE HVE PRIMARY
           'ij /WHICH/XS? ATE, ICNTY,XAQCR,CN TY,NARE AS, HDR( 20), I POL I 1,1REGN
      COMMON /FUELS/KSTATE,KUUNTY,AQCR,YR,SC(4),AC(2),FLTOTS(bb),CTYDEN,
      TONSFrt,TONSMb,TONSAP,DAYSF
      COMMON /IOON1T/IREAOR,1 TAPET,ITAPEN,1TAPEO,I PUNCH,I PRINT,1FRR
      DIMENSION X(NDIM),Y(ND1M),AREA(NDIM),JD(NDiM)
      COMilOig /TOTPOL/POLTOl (bb,b)
      STRUCTURE IS  VEHICLE  CLASS,ROAD TYPE, POLLUTANT
      DIMENSION EFHV(4,4,b),POLHDG(b)
      DIMENSION SUMKK(b)

      EUUlVALENCE  (EN.FAC1 (1),EMFACT(1,1)),(EMFAC2(1),EMFACTI 1,2)),(EMFAC
      3U),Ei    ','b
      '7   ','8
                              ','9
                 ASSIGN  I/O  UNI?  NUMBERS
0 0 0 0 3 M 0 U
0 0003 V 0 (i
0 0 0 0 il 0 0 G
ooo D a i o o
00001200
0 o o o a 3 o o
ooooaaoo
OOOO^bOO
o o o o a o u o
0000/4700
o u o o a M o o
0 0 0 0 a 
-------
w
           C****PRlNlER
           C
                 IPRlNT=6
           C**** LUNtifANT  TU  USE  WITH HIGHWAY MOTOR VEHICLE  ALGORITHM
           C
           C***10000 MILES PER  UNIT  DIVIDED BY 4b3.6 GRAMS/POUND AMD
           C                  L UN VERT  TU TUNS
           C
C**** KLAD  IN  THE  EMIbSIOU FACTUR TABLES  FOK  THE  b POLLUTANTS
C     A!MU THt  HIGHWAY  MOTOR VEHICLE SOURCE  CATEGORIES
C     UNDER  IS  THE SAME  AS UN NEDS AREA SOURCE  KURM WHERE ZEROES  ARE
C   USED AS  FILLERS HJR  HIGHWAY MOTOR VEHICLE  CATEGORIES AND MEASURED
C   VEHICLE  MILES  CATEGORIES,
C
C
C****   fSP
C
      READ  (IREADR,100)  EMFAC1
C
C*****  StJtf
C
      KEAu  (1REAUR,100)  EMF-ACc!
C
C*****  iMUX
C
      Kt.AU  (IREADK, 1UO)  EMFAL.4
C
C*****  HL
C
      «EML>  ( IKE ADR, Km)  E'vifACa
C
C *****  C U
i) 0 0 0 / b 0 0
0000/bOu
0000/700
00 00 /HO i)
Ol)00 /900
00008000
OOOOrilOO
OOu(Mc!00
OOOOHiOu
OOOOH'400
OOOOribOo
OOOOtibOO
u 0 0 0 M / 0 0
00008800
0000^'hJO
00009uoO
00009100
00u09
-------
C
C
C
C
C
C
C
C
    READ (IREADR,100) EMFAC5

  THt FOLLOWING ARRAY CONfAINS  EMISSION  FACTORS IN GRAMS PER VEHICLE
  MlLt TKAVELLtD (VMT) BASED  UN VtHlCLh  CLASS AND ROAD CLASS.  THESE
   ARE READ FROM CARDS IN  THE FOLLOWING  ORDER (I,J,K)
                            I  =  1,4    (VEHICLE CLASS),
                            J  =  1,4    (ROAD  TYPE),
                            K  =  1,5    (POLLUTANT)

    READ UREADR,10U) EFHV
100 FORMAT (8F10.0)
C
C * * * * I K A N T -
C
C
C
C
           - SUBROUTINE UUTPT3  OUTPUT  CHOICE
             1 — IPP INPUT CARDS  OR
             2 -- COM INPUT CARDS  OR
             3 -- AUDM INPUT CARDS
C
C
C
C
C
C
C*
C

C
C
C
C
      KEAu (IREADR, 120)  IK A. NT
  120 FuKi'iAT  (15)

      REAU IN STATE  AuD  COUNIY  OF  INTEREST ,  NUMERIC STUDY AREA,  TOME
     NUiiUtK OF GRID  SuUARES,  IN THE COUNTY,  POLITICAL SUHf-' I v IS ION  (111
     INCLUDE  ON  IPP  CARDS) AND  ALPHANUMERIC  REGION NUMBER.
  **** SEE USERS MANUAL  FOR  DEFINITION OF THESE VARIABLES

  140 IF (YST ATE. NE. STATE. UK. JCUTY.NE. ICNTY) GO TO ISO

     IF NO! FIRST COUNTY, STORE  LAST-READ CAASE4 OUTPUT Jli FIRST
     LOCATION OF STORAGE.
      f( U = Y(NAREAS)
      AREM( 1 )=AREA(NARh As)
U U 0 1
0001
0 U 0 1
0001
0 0 0 1
0 0 U 1
fi U 0 1
0001
0 U 0 1
0001
(>(>() I
0 0 0 1
o 0 o 1
0001
0001
u 0 0 1
ON 01
0001
0 0 01
000 t
0001
0001
0001
0001
0001
u 0 0 1
0001
OOul
0001
0 0 U 1
0001
000 1
000 1
ooo i
i.l 0 0 1
0001
Ci 0 0 1
1 ^ U U
1300
1 '4 0 U
1500
1 6 0 0
1/00
1 b 0 C)
19UO
? 0 0 0
2100
t do (I
2300
2 a o o
2500
260 0
2 7 0 0
2^00
2^00
3000
3100
3200
3300
3 '4 00
3500
36 0 0
3 7 0 0
                                                                            4000
                                                                            4 1 0 0
                                                                            42 0 0
                                                                            /4 iO (i
                                                                            a 4 (} \)
                                                                            a 5 oo
                                                                            U b 0 i)
                                                                            H /UO
                                                                            a >'• 0 (j

-------
w
                UU 145 1=1,5b
            145 APPORT (1,1 )=APPURT(I,KiAREAS)
            150 CONIINUE
                HEAD (I RE ADR, 160) XSTATE, I CNT Y , X AQCR , NARE AS , CNT Y , KUUiM T Y , KST A TE,
               IH f ,1REGN
            160 FORMAT (F10.0,I10,F10.0,I10,bX,A4,2I5,9X,Al,7X,A3)
                IF (NAREAS.EU.O) GO  To  1480
          C
          C**** RLAu li\i HEADER FUR UUTPUT  TABLES
          C
                REAL) (IREADR,180) HDR
            180 FORMAT (20A4)
C**** KLAU IN COUNTY  TOTALS FOR EACH CATEGORY
C
      C«LL READ1
      IF  (1ERR.EQ.O)  GO  TO  200
C
C**** HAU A PROBLEM  1M READ1,  GET  OFF WITH DIAGNOSTIC  -lESSAGl
C
      GO  JO 1520
  200 CONTINUE
      rtRHL (4,220)  ni)R
  220 FORMAT  ('i'////,20A4)
C
C    DISPLAY FUELS  IfjPUT  DATA  FROM SUBRUOfliMt READ1
C
            260
               (FLTOIS(I),1=1,5b)
 FORMAT COFUEL TOTALS HF.AD  IN  FOLLOW  - (NOTE THAT RFADI ROUJINE
ULULATED THE LGT TRUCKS  CATLGORY  (NO.28)  MY APPORTIONING'/'  FRO
1GJ  t)UTY GAS (.JO. 27) AMI) HVY DUTY  GAS  TRUCKS ( NO. 29 ) ) ' // ( 1 OF 1 2 .
1
 rtRift (IPRI'JT, 12hO)
 rtKllh (IPRIUT,220) HDR
 xKilL (iPRIul ,2oO)
        ('0', 1 7X, 'CdUin Y-n.t LIE ARLA  SOURCE  DATA USED jr. CALCiH.AJJ
   000
   000
   000
IPO000
   000
   000
   0 0 0
   000
   000
   0 0 0
   0 0 0
   000
   OuO
   000
   000
   0 0 0
   000
   0 0 0
   000
   000
   0 u 0
   000
   0 0 C)
   liuO
   000
   0 0 0
   000
   0 0 0
   0 0 0
 CAOOO
i-l LOOO
1 ) ) 0 I.) 0
   u 0 0
   o o o
   non
   o o o
Mb 000
                                                                        1 4900
                                                                        15000
                                                                        15100
                                                                        15200
                                                                        15400
                                                                        15400
                                                                        I55oo
                                                                        15oOO
                                                                        15/00
                                                                        15HOO
                                                                        15900
                                                                        1 b 0 0 o
                                                                        1 b 1'J 0
                                                                        le>200
                                                                        16400
                                                                        1 b 4 0 0
                                                                        16500
                                                                        1 6 b U 0
                                                                        16/00
                                                                        1 t>H()o
                                                                                       1 7000
                                                                                       1/100
                                                                                       1 /200
                                                                                       1 7400
                                                                                       1 / a 0 u
                                                                                       1 /500
                                                                                       1 /ooo
                                                                                       1 / / 0 0
                                                                                       1 / O 0 U
                                                                                       1 /900
                                                                                       1 MI 00
                                                                                       1 MOo
                                                                                         -'in

-------
w
I
U)
          C
          C
          C
          C
          C
          C
          C
          C
          C
          C
          C
          C
               lEMlSSlUUS HY SOURCE CATEGORY  FOR  APPORT10NING'////3bX,'SULFOR COHTOOOlMoOO
               lc.NT:'//J                                                            000 1H 70(i
                rtKllE (1PR1NT,280) SC                                               1)0016800
            280 FORMAT (4bX , ' ArJT HRAC 11 E  COAL ' , 1 OX , ' = ' , F 1 0 . 1 , ' PERCENT '/4bX , 'HI TUf-1I 000 1 8900
               iNdUS COAL'/10X,' = ',F10.1,'  PERCENT '/4bX,'DISTILLATE OIL',11X,' = ',FOOD I 9000
               110.1,' PERCENT'/<4bX,'RtSIDUAL  OIL ' , 1 3X,' = ' ,F10.1, ' PERCENT'////)   00019100
                rtkllE (IPRINT,300) AC                                               00019200
            300 FORMAT (36X,'ASH  CONTENT:'//4bX,'ANTHRACITE  COAL ' ,1 OX,' = ',F10.1, '  00019300
               !PERCENT'/4bX,'BITUMINOUS  COAL',1 Ox,' = ',F10.1,'  PERCENT'///)        00019400
                WRITE (IPRINT,320)                                                  000l9bo()
            320 FORMA i (3ix, ******************************************************ouoi960o
               I*******'//)                                                         00019/00
                NKlTE (IPRINT,340) TllNSF IV, TONSMb, TONSAF ,DAYSF                      00019HOO
            340 FORMAT (36X , 'F ORES T MLDF IRES ' , I 3X ,' = ' , P 9. 1 , ' TONS PER ACRE'//, 3«>xOOo 1 9900
               1,'MANAGED UURNING',14X,'=',F9.1,' TONS  PER  ACRE '//, 3oX ,' AGRI COL .  F 000201)00
               1IELU BURNING',7X,*=',F9.1,*  TONS  PER ACRE'//,36X,'FRuST CONTROL '> 100020 1 00
               1X,'=',F9.1
                 UAYS  PEK  YLAR'///)
    fiXLlL UPRliMT»3bO)  CTYDtN
360 FuRMAT  (blX,'POPUl.AT ION  CODE  =  ',Al)

    REAL) IN WEIGHTED  APPORTIONING FACTORS OUTPUT FROM CAASL4
    On r-URMATTED  TAPE.

   COUNTIES SHOULD HE  IN  ORDER  HOT ALL DO NOT NECESSARILY HAVE  TO  HE
   PROCESSED DURING A  GIVEN  RUN.     FIND THIS COUNTY

400 READ (ITAPEN,420,END=1440)  STATE,JCNTY,DUMMY
420 PURi-iAl   (llX,F3.0,20A,Ib,/F2.0)
    II- Ibf A TE.NE.XSTATE.OR.1C MTY.ME.JCNT Y) GO TO 400

  FOUiiU COUNTY /JAuftD
0 0 0 2020 0
000203 U 0
0 0 020400
0 U 0 2 0 b 0 0
0 0 0 2 0 o 0 0
0 0 0 2 U / U 0
0 0 0 2 0 H 0 0
00020900
0002 1 oO (i
00u21100
00021200
0 0 0 2 1 3 0 U
00021400
00021SOO
no (i 21 boo
00021700
00021 MOO
000221"0
Ooi)222m;
   RLAu IN DATA FOR  ALL  (.RID  SUUARES THIS COUNTY

                                10(1),STATE,JCNTY,x(1),Y(T),AREA(I),(APUU022400

-------
M
          c
          c
          c
          c
          c
          c
          c
          c
          c
          C
          C
          C
          C
          C
          C
          C
          C
   1PURT(J,1),J=1,bb)
440 FORMAT (Ib,6X,F3.0,20X,Jb,23X,2F10.0,10X,F10.2,24El3.b,/,32E13 .b
    IF (STATE,EQ.XSTATE.AND.JCNTY.EN.ICNTY)  GO TO 480

    ENCOUNTERED NEXT COUNTY

    bACKSPACE ITAPEN
    BACKSPACE ITAPEN

  TOIAL GRID SQUARES

4bO IMAREAS=I-1
    GO TO b20
4ftO CONTINUE

    IF FELL THROUGH LOOP  THFN  DIMENSIONS  *ERE NOT ADEQUATE

    *RIIE (IPRINT,bOO) NDIM,STATE,JCNTY
boo FORMAT ('INDIM ^AS SET  TO',ib,bx,'buT MORE GRID SQUARES
   1AND CUUNTY = ',F10.0,I10,bX,'WERE  ENCOUNTERED'/'0 INCREASE
   1ESUUM1T JOH')
    EHDFILE ITAPEO
    GO 10 ib20
    CUNT1NUE

   SAVE YSTATE AND HCNTY  FOR NEXT COUNTY.

    STAIE=YSTATE
    JCNlY=HCNTY

    DEVELOP THE APPORTIONING FACTOR  SUMS  FOR EACH EMISSION CATEGORY
  THEoE SUMS ARE USED AS  THE DENOMINATORS FOR RATIOS 10 APPORTION
   FUELS AND EMISSIONS  INTO EACH GRID  SUOARt/SOURCE CATEGORY CMMri,

    DO bbO J=l,bb

    DO b'40 I = 1,NAREAS
                                                                                        MH>
          OOOP4000
          (10023100
(-Ok STATE
fJDIM AM)
 00023300
 o o o 2 3 a u o
 0002ibO()
 000236HO
 00023/00
 00023HUO
 00023^00
 0002^000
 0 0 02^1 U 0
 0002U2UO
 Od02 '4 300
R 0 0021 '4 0 0
 0002'lbOO
          0002^700
          0 0 0 <' U 8 0 0
          0 0 0 2 4 9 1 "/ ( i
          0002bOO»J
          0002S1 On
          0002b20u
          0 0 0 2 S 3 u 0
          0002SSOO
          OOo2bhO(j
          Oi)02b/0ii
                                                                                   0002V/IMI
                                                                                   UU02t-.OU>)
                                                                                   OOUc'b 1 00

-------
                 AP10T(J)=APTUT(J)+APPURT(J, I)
M
C
C
C
C
             540
             560
  580
  600
C
C
C

  620
  640
  660
C
C
C
C
C
C****
C
                 APPORTION THL FULLS  AND  OUTPUT TO TABLLS
                 CALCULATE HAT 10 UF  TOTAL  FOR COUNTY  IN  LACH GRID SUUARt

                 l>0  600  J=l,bh
                 UU  600  I = 1/NARLAS
                 If  IAPTOI (J).tJ.O.)  GO  TO 580
                 APUJLLCJr I)=APPORT(J, I ) /AP TOT ( J ) *KL TUTS ( J )
                 GO  !u t>00
                 APFULLCJ/ I)=0.
                                                                          0002^01)
                                                                          000'-tOO
                                                                          0 0 U £ 6 '-i (i 0
                                                                          OOOdboOO
                                                                          000?o7oO
                                                                          0 0 0  ^ 0 (i
                                                                          000? 7^00
                                                                          000^7J500
                                                                          OOG27'400
                                                                                       000^7 700
                                                                                       0 0 0 ? 7 h 0 0
                                                                                       OOOc?7MOO
    UUTPfl  ROUllNh FORMATS  OUTPUT

    CALL  UUTPT1 (APFUE.L, 1D/X, i, AREA^NDIM)
    PUKMAT  ('!')
    FUHMAI  (lOFlO.^)
    FORMAT  ('0')

    UUn CUMPUTL  T01AL LMISSIONS FOR THt. CUU'MTY  FOR fc ACM COLl.Ul Ai'JT ,  F I iK'000 9 / 0 0

-------
M
I
                 UU /GO J=l,<4
                 puLiuTU^)=
             700 CUMINUE
           C**** COMMERCIAL AND  INSTITUTIONAL HJtL
           C
                 UU 720 Ksl/S
                 uu /20 J=7,i2
                 HULIUT(J»K)=EMFACT(J,K)*FLTUTS(J)
             720 LUNUNUt
           C
           C**** TAKt CAKE OF  ASH  CONTENT AND 3ULFUK  CIJMtNT CASF.S
           C
           C      ASM FUK COMMtRCIAL  AND INSTITUTIONAL  (C&I)  COAL
           C
           C    SULt-UK FUrt C&I  FUt-LS
           C
                 uu
                 HULTUI (J» 1 )=POLTOT(J, i)*AC(K)
                 PuLFOT(J,2)=POLTUT(J,0
UOu 5 / oO
00 U
00 i) 5 500 0
00 u 44100
000 4 5^00
000 i3 4oo
00o35'-»00
00 a 4 3Si'0

-------
      HULlGT(JrK)=tMF ACT(J,M*FLTOTS(J)
  780
C**** H AC (UK FOR CUKK
C
      PUL TUTUS, l)=EMFACT(lb,l)*FLTUTS(lS)*At(2)
      PUL[UT(lb',2)=fcHFACT (15,2)*FL10TS(lb)*SC(2)
      UU  bOO K = 3,b
      PULTUT(lb,K)=tMFACT(lb,K)*FLTOTS(lb)
  BOO CU.YllUUt
      DO  620 J=16,20
      UU  tit?0 K=l/b
      HULTUI (J, K)=E.MFACT ( J , K ) *FL TUTS ( J )
             |L) ACtUUM  FOR SULF'UK CUNTE.UT
      HUL 1 U f U 6 ,iJ ) =POL T u T ( 1 6 , ^ J * SC ( 3 )
INCI.Nt KATID'-I  AND UPtN BURNING
       ACT ( J,K) *FLTU1S(J)

       HAVE  ZtKtJ (UK IJf-iOllF IMtU) tMISSIUi^i  FACIDWS
C
C**** UlM-bU
C
      UU  640
      DO  640
      PUL (Ul
  840 CUiM I
C*****  tut
C
C     Int  KLlLLOwlftC; CATEGuRlES AHti>  HA^DLtO Iu A  StPARAIt. AI.GUR1TMK
C  CuMolNlNii  FULL SALKS,  f'.RKS PtK GALLON, TYPL VtHICLK/  AivjJ) RCIAi.)  LL
C     bL I  VALUt TO ZtHO  HfkL
      UU  c>00  K=l»b
      L)U  UoO  J = c?7,(f4
      PUL10I (J,K)=0.
  H60 LUHfluUt
      PULIUI (3l»K)=0.
      UU  bttij  J = 43,4b
      POL Tut ( J, K)=i).
    00033n()u
    00033/00
    0 'S4M 00
    00043900
    0 0 0 V4 0 0 0
    00034100
    00034^00
    00034300
    0003440(1
    00»3tJbOO
    00034MM)
    00034/00
    00034HOO
    00034900
    u 0 0 3 b 0 0 o
    Oo03blOO
    0 o 0 3 Sf? 0 0
    000313300
    000 3^400
    0003S'jv)0
    0003bt-.()0
    0003b/UO
    OOu3bHOi!
    u003b'JOO
    O')03h(.i()0
    (MHi3r.lOO
    0003b3i'0
AbJJ . O-.Mi SbMO t)
    0004/100
    Ov'03 7fjun

-------
            880
            900
-P-
00
            920
          C
          C
          C

          C
          C
          C
          C
          C
          C
          C
          C
          C
            940
          C
          (.****
          C
          C
          C

          C
          c * * * *
          C

          c
          L * * * *
          C
CONTINUE
CuNflNUE
UU 960 K=l,b

Uf-f- HIGHWAY GAS

PULFUf (30,K)=EMFACT(30,H)*FLTOTS(50)

UltStL OFF HIGHWAY  (32),  DIESEL RAIL(33)
UlEbEL OFF-HIGHWAY  (3d),  DIESEL MAIL  (33),  AIRCRAFT (34, 35, So),
VELL
VESSELS (37, 38, 39, aO),  EVAPORATION  (41,42)

UU 920 J=32,42
PULIUT(J,K)=LMFACT(J,K)*FLTOTS(J)
 FUbHIVE LJUSF  CATEGORIES

UU 940 J=47,bl
PULTUJ (J,K)=FLK)TS(J)M MFACT (J,K)
CONTINUE

KUKLSI i>ILDURES

KEuUIKES  TUrJS/ACRt  CALCULATION

PULlUf (52,K)=FLlOTS(S^)*n)NSFir.*tMFACr (52,K)
HULTUI (!33,K)=FLTOr

AGRICULTURAL  flELD

PUL Illf (b4,K)=f Ll!iIS(b4)*T();JSAF *Ef1f ACT (b4,K)
0 003 7 30 u
0 0 0 3 1 '» 0 0
00037bOO
0003/600
0 U 0 3 / / 0 0
0 0037 B 0 0
U 0 0 3 7 9 0 0
0003MOOO
0003ttl do
0 0 0 .5 H 2 0 0
0003H300
0 0 0 3 H 4 0 0
Cui03h 7u(>
o o o :s H H o o
000 $8900
00039000
0 0 0 3 9 1 i> n
00039200
00059500
000494 0 0
o 00 5 V b 0 0
000.49 700
000 $9m>0
0 0 0 4 9 9 0 0
0 0 0 '» (• 0 0 u
00 OUu 1 0 0
oo o 4 a so i)
DOOM 040 0
0 0 I) U 0 S 0 0
000 '4 Ob On
uo 04 a I (i 0
0 0 0 '-> 0 rt 0 0

-------
M
           C**** FROST CONTROL
           C
                 PULIuT(b5,K)=FLTOTS(b5)*DAYSF*EMFACT(bb,K)
           C
           C**** STRUCTURED  FIRES
           C
                 POL TuT(b6,K)=FL TOTS (5>6)*EMF ACT(b6,K)
             960 CUi'JllUUE
               * NUn DEAL WITH  HIGHWAY  foil TDK VEHICLE SOURCES
                 fHESE CALCULATIONS  FULLUH THt EPA/NAD13 METHOD,  I.E.,  FULL  SALtS
                Aul) VEHICLE  CLASS  MPG  ARE USLO TU DEVELOP  TOTAL  VEHICLE  MILES
               TRAVELLED BY  6EHICLE  CLASS.  THE MEASURED VEHICLE  MILES REPORTED UN
               THE IMEDS AREA  SOURCE  FORM IS ONLY USED TO DETERMINE  RAUOS  BY  ROAD
               CLASS FUR THE  VMT CALCULATED USING SALES &  MPG.
C

C
C
C
C
C
C
C     CUNSIAuf USED  IN  CALCULATIONS
C         10000/Ubi.6*2000)   v-JHEKE 10000 CONVERTS  INPUT  DATA  TO  MILES
C                                    4S5.b CONVERTS  GRAMS  hj  POUNDS
C                                    2000  CONVERTS  POI.MDS  TO IONS
C  CONVEH = .011023  WAS SET  AT  START
C**** UbTAl.\i KAT10 FOR  EACH  VEHICLE CLASS,
C**** LGT VEH GAS —  13.S  MPG
C
c     FUELS REPORTED  in THOUSANDS OF GALLONS
c
c
           c
           C**** LGI  JRUCK GAS  --  11.h
           C
C** ** HV
C
                     VEH GAS  --  7.3
                                                                          00041100
                                                                          ()(j()i*\ t> 0 0
                                                                          00041300
                                                                          00041000
                                                                          U 0 ti '4 IbOO
                                                                          0 0041 1) 0 U
                                                                          0 0 0 4 1 / 0 0
                                                                          000416 0 0
                                                                          0004 I 9 DO
                                                                          0 0 0 4 ^ 0 0 0
                                                                          0 0 0 4 £ 1 0 0
                                                                          0 0 0 4 e? 1 0 0
                                                                          0 0 0  0 u
0 0 0 4 2 9 0 0
u 0 0 4 3 0 0 0
0 0 0 4310 0
00043200
000454 00
U 0 04341) 0
i/o 04 3bO 0
0 U 0 4 3 h 0 0
G 0 0 4 3 / u 0
0004 3600
00 04 3900
00044000
OuO'44 1 00
0 o i) a '•* 2 o 0
OoOu 4300
0 U 0 4 4 4 0 ')
00 1)4 4L)0 0
i)0 ii a 4(id (i

-------
w
i
Ul
o
c**** HVY  VEH DIESEL  --  b.*EPHV( l,.J,K)tRLf>T *EFHV(9iJO
  uooa 70iM)
  OOUM / 1 0(1
(, 1.0004 ft' (10
  OOU'4 / 300
  ouo '4 /a oo
  (Miu/4 7SOO
  00 ()a /(-.dd
  OLIO '4 / 700
                                                                              (M'M)'i HOI) I)
                                                                              0 O 0>4 "> 1 l) 0
                                                                              0 0 0<4^c'(l 0
                                                                            +KOO 0
-------
w
 I
Ul




C
C
C
C
C
C
C
C
C
C
C











C
C
C


C
C
C
C


lHUb*EF"HV(i, J,K)+RHDD*EF HV (4, J,K) )
1000 CuNliNUE
GO 10 1140
1020 CONTINUE
ALTERNATE METHOD -- MEASURED VEHICLE MILES ARE MISSING
ESTIMATE HILL BE FUR RURAL AND UKBAN ONLY BASED ON COUNTY DENSITY
(URBANIZATION ) CODE. IT TOO MAY BE MISSING, IF SO USE mJRST CASE
THAT CAN BE REPORTED, I.E., 9 INDICATING 90 PERCENT URBANIZATION.



BECAUSE OF AMBIGUITY OF BLANK AND ZERO READ rtlTH NUMERIC FORMA I I!
FURlKAN, CTYDEN k'-AS READ AS ALPHANUMERIC — DETERMINE BLANK, ZERO
THROUGH MINE.

UO 1080 ITOE=1,11
IF ICT YUEN.NE.TOF SUTOH ) GO TO 1080
IF (ITUE.NE.l) GO To 1060
C J YOEN=9.
f • H H t (!PRINT,10aO)
1040 FORMAT Cl MISSING COUNTY DENSITY CODE, USED 9')
oO 10 1100
1060 Cr YDEN=lTOE-2
oO 10 1100
1080 CONTINUE
1100 CON T li\iUE

PU IS FRACTION URbAh, Pit IS FRACTION RURAL

PU=CF YUEN/1.0D1
PH=1 . 0-HU

4b3.o * 2000 = 907200 CONVERTS GRAMS FO TONS
USE I'llLFS FROM MPG CALCULATIONS

IUT MsVLGTG-HLGlG + VHV YC.f VriVYi)
DU 1120 K=l,b
U 0 0 4 8 4 0 0
00048bOO
00048600
0 004870 0
0 0 0 4 fl rt 0 0
i.i o o u tt 9 0 u
0004900 0
000/49100
00049200
0 0 0 4 9 3 0 0
0 U 0 U94 0 o
\l(t 0 0 4 9bO 0
0 0 0 4 9 6 0 0
0 0 0^4 ^ / 0 U
000 a 98 00
00049900
OOObUOOO
UO Ob 01 00
0 0 0 S 0 2 0 o
OOOSO 500
0 0 0 b G -4 0 0
0 0 0 b 0 b o 0
00 Ob 0 oo 0
0 0 0 b U / 0 0
UOObObOO
0 0 0 b 0 9 0 0
00 Obi 000
00 Obi loO
0 CMJ b 1 ,' 0 0
oo Ob 1 .400
00 Ob 1400
0 0 0 b ) b o 0
Ooob 1 000
Oo oS 1 / a u
U 0 0 ^ pi u 0
1)0 Ob 1 900
000b20oo

-------
      PULIUT (<43»K) = 0.
      PUL10T (4b,K)=0.
     1 )*KhOG+EFHV(4,2,K)*RHDO)/9.0/2Db
      PULTUT(46,5)=TOTM1*PU* (EF HV ( 1 , 4 , K ) *RLOtEF- HV (2, a , K ) *RLD T t EKHV ( 3 ,
     l)*KhDGiEFHV(<4,4,K)*RHDI))/9.0/2Db
 1120 CONIINUE
 1140
C*** OUTPUT  THE  COUNTY EMISSION  TOTALS  FOR EACH SORUCE  CATEGORY AND
C   POLLUIANT
C
      UU  11HO  K=l,b
      SUMKK(KJ=0,0
      UU  UoO  J=l»bb
      SUMKK(K)=SUMKK(K)+POLTUT CJ» K)
 1160 CONTINUE
 1180 CUiMlIiMUL
               ^I^T/b^O)
                  ^I/lttO) h[)R
      r»KlTt  (1PRIN1 , 1200) PULHUl.CK), (POLTOT (J,K) , J=l,bb)
 1200 i-UKMAf  COTOTALS RY SUUHCE  CATEGORY I-UK PULLUIANT  ',Aa,'
     1  '/( 1 OF 10,3) )
      rtKUE  (IPRINT, 1220) POLHtU, (K ) , StJMKK ( K )
 1220 FuNMAF  ('OFOR  POLLLITAMT  '»Aa,'  TOTAL EM I SS I ili'!S= ' , F 'lb . 3 )
  00<)b2lUO
  00052200
  00 0524 00
, K 00052bO 0
      "'Hi IE  (IPRINT t 1260)
 1260 KJKKAT  (///' f- 00 1 NOTE: CA1EGOR1ES HY ROu IN SAME  OKuKR AS AhEA  S
     1HCE  ,^EUS  FORM  Ai\l> OUTPUT  TABLES')
C
C****  uun  APPORTION  IHF EMISSH'US  TO  EACH GRID SQUARE  1 <* FHE COOM I Y
C    ACCOKOi^b  TO APPORT JOMuf,  FACTORS CALCULATED hY  CAASE'i
C
C
C     b  POLLUTANTS bY b6 CAltl.OKlES X  NO'-iHEK Oh GRIU  SQUARES 1H1S  COiJi]
C
  00052700
  OOUbdBOO
  OOOb^VOO
  OOObiOOO
  OOObilOO
  OUObic>00
  OOObiSOO
  OtiOb.ibOO
  0005 i6 00
  fM)Ob3/00
  00053HOO
  OHOS 3'->Ou
  OOOb'JiM.iO
  00 Ob Ml On
  000b<4400
  OOOb'^jito
  ui>OV4iuH>
  OoObbOOti
  0 u 0 b b 1 0 0
  00ubb200
  OOOSb.SOO
  OOOSbMJU
  oodbbbOO
T Y (-0 u

-------
c
c
c
      UU  1580  K = l»b
      L>U  1500  J=l,bb
      PlurAL=POLTQT (J,K)
      UU  1500  I = 1,NARF.AS
      IF  (APTUT(J) .Elj.0.) (Hi  TO 1280

      FRACTION OY CATEGORY  AND  POLLUTANT PER  GRID SQUARE CALCULATION

      APFUEL(J,I)=PTOTAL*APPORT(J,I)/APIOT(J)
      UJ  IU  1500
 1280 APPUEL(J,I)=0.
 1300 CUNTIUUE
C
C****  NEED  fU SAVE FOR  IPP,  OR COM, UR AQOM
C
      OU  1540  I = l,NARl.AS
C
C    SUM  ALL  CATEGORIES  FOR LACH GRID SQUARE.  f-UR FACH POLLUTANT  PUR
C    OlSPtKSiUN  MQUEL ARtA  SuURCt PORHAf
C
      UU  15^0 J=l,bb
      bUM=3UMf APFUtL(J/
      CUnUNUt
      UUr IPP(I,K)=SUH
C
                                          L.AtitL  ACCORD! JG 1(1  PULLUTAfMf

                                                                   SOURCL
C     ijLJrt  UUTPUT APPIIH T 10'JED  EMISSION
C
C     RUUII-JE OOTP12 FORMATS  A':D PRINTS  TAbLF.3  OF E^I S3 lUUJj  BY
C   CAIEGUKf  AND GRID  SQUARE.    CALLED ONCE  FUR EACH POLLUTANl
C
      CALL OUFPT2(K, APFMELr I D, X , Y , AREA,WU1 -1)
 1380 CUu f Ii^UE
C
C**** InJrt  UUTPOT IPP,  OR  r.Df"i,  UR AljDfi CAR!)  IMAGES
                                                                            OOUSbVOd
                                                                            0 u 0 S h U 0 0
                                                                            0 0 0 b o I 0 0
0 0 U 5 o 3 u ()
                                                                            i) 005 Oh 00
U 00 b h b 0 0
000bb90 0
U 0 0 S ^ 0 0 U
00 Ob 7 1 (K)
00 Ob /c!0u
00 Ob 7 SO o
u 0 0 S / '4 0 u
OOOWbOO
00 OS /bOU
l) 0 0 S 7 / o 0
u u 0 b / a 0 d
0 0 0 b 7 9 u o
D 0 0 b H 0 u 0
    h 1 uo
       ) 0
0 0 0 '.) « > 0 0
0 0 0 ':> O '4 u 0
0 u 0 b * b u 0
0 it it b H o 0 '..i
0 u u b M / u 0
      00
                                                                             i Oub9UO o
                                                                                   Ou

-------
          C                                                                          OOOb9bOO
          C                                                                          0 0 0 b 9 b 0 0
          C     ROUUlvL  OUTPT3 FORMATS, PRINTS,  AND  PUNCHES DISPERSION  HO I) El.       OOOb'9700
          c     AREA  SOURCE:  INPUT DATA.
          c
                LALL  UUrPT3(OUT IPP, II', X, Y, AREA,ND1M, I»vAfJT )                          oOOMMHH)
          C                                                                          U0060100
          C**** L)U AE  HAVE  ANOTHER COUNTY                                           OOObO^OO
          C                                                                          0 0 0 b 0 3 (»0
                GO TO  1<40                                                            C u 060'400
           1U40 IUNUNUE                                                            OOObObOO
                n-RIlE  (IPRIMT , 1*460) XSTATE,ICNTY                                    OoObObuo
           1460 KJRMAI  C'OJUST HIT EM) OF FILE  ON  cAASE'4 OUTPUT TAPL  WHILL  TRYKIU ooobo/oo
               ITU PROCESS  FIPS  STATt ANo COUNTY NUMbER*,K10 . 0, I 10)                OOObOhOO
                GO TO  Ib"20                                                           00()bOcn)o
           U80 wRIIE  UPRI.NT, IbOO)                                                 OOoblOOu
           IbOO FORMAT  C'lNO MORE COUNTIES')                                        000oll')0
           Ib20 CONTINUE                                                            OOObl^OO
M               RtwlNU  ITAPEN                                                        OOOoiiOO
^               LiMUhlLE  ITAPEO                                                      OOObiauu
*"               «EM!NU  iTAPED                                                        ooobibuo
                RE f URN                                                               OOOb1600
                                                                                     00 Ob 1 /uii

-------
      bubhOUTINE READ1

 ***** ROUTINE READS FUEL TU1ALS FROM JOB INPUT STREAM CARDS
     AKLA SOURCE FURMAT FOR COUNTY, STATE, STUDY AREA (AQCR,
        uF INTEREST.
                                                           IN NEDS
                                                           AQMA,  ETC)
 ****CAKOS Al
      KL1URN3
            THROUGH A5 ONLY  ARE TO BE INPUT
            IERR  =0 FOR SUCCESSFUL READ
            IERR=1  FOR PROBLEMS.
      LUMMOlM/rtHICH/XSTATE,ICNT Y , XAQCR, CNT Y , NARE AS, HDR (20 ) , IPOL I T , IREGN
      COMMON /FUELS/KSTATe,KOUNTY,AQCR,YR,SC(4),AC(2),FLTOTS(56),CTYDEN,
     1TUU3FW,TUNSMB,TONSAF,DAYSF
      COMMON/IOUNIT/I READR,IT APET,ITAPEN,I TAPED,I PUNCH,1PRINT, I ERR
      DIMENSION ICARD(5)
      1EKR=0
C
C****   FUELS TOTALS TO BE READ IN FROM CARDS  ******
C
      HEAD UREADR,b020) LSTATE,LCNTY,AQCR,YR,SC,AC,(FLTOTS(I),Isi,6),
     HLARD(l), (FLTQTS(I),I=7,20),ICARD(2), (FLTOTS(I),1=21,27),
     2(FLfOT3(I),I=29,33),CTYDEN,ICARD(3),(FLTOTS(I),I=34,46),1CARD(4),
     3lFLTUrS(I),l=47,52),TONSFw,FLTOTS(53),TONSMB,FLTHTS(b4),TONSAF,
     4FL|OTS(bb),UAYSF,FLTOTS(56),ICARD(b)
 b020 FORMAT (I2,14,F3.0,F2.0,23X,4F2.1,2F3.1,F5.0,F6.0,F"b.O,F4.0,F5.0,
C
C
C
       F o . 0,F 5,0,F 4.0,2F 6.0,F b.0,F / .0,3F 6.0,2Fb.0,A 1,2X,II/
       F4.0,F6.0,Fb.O,2F4.0,F5.0,F4.0,F6.0,Fb.O,3F6.0,F7.0,2X,Il/
       F7.0,Fb.O,Fb.(),2F5.0,F7.0,F3.0,F6.0,F3,0,F6.0,F3.0,F4,0,F3.0,

    UU 100  I=l,b
]00 IF(ICARD(I).NE.I) GO TO 200

    LHtLK TO SEE IF COUNTY  IS IN SAME ORDER AS CALLING ROUTINE REQUEST

    lFU3UTt.E
-------
C                                                                       00003800
C**** UiL) NOT OBTAIN DATA FOR CORRECT COUNTY,  CARDS OUT OF ORDER,       00003900
C     Stf ERROR CONDITION,  PRINT DIAGNOSTIC MESSAGE, AND RETURN         00004000
C                                                                       00004100
      IEKH=i                                                            00004200
 501
                * «. • * • • — 4                                                             VVVV'tC.VV
                rtKi ft(IPRI NT, 5010)  KSTATE,LSTATt,KOUNIY,LCNTY,AQCR,XAQCR          00004300
              0  FORMAT('IPROBLEM  IN READ1,  STATE  =',   14,/'  COUNTY  =',215  /•  AQCR00004400
               l=',2Fb.O)                                                          00004500
                KhfuRN                                                             00004600
          C                                                                        00004700
          C    EKRUH  IN  SEQUENCE  ORDER  OF FUELS  TOTALS  CARDS,  PRINT  MESSAGE,  UUIT  00004800
          C                                                                        00004900
            200  EKK  =  i                                                            00005000
                •NKUt  (IPRINT,5000)  (1C ARD (I), 1 = 1, 5)                               00005100
          5000  KuRMAfClPROhLEM  IN READ1,  FUELS  CARDS  OUT OF  SEQUENCEV50X,'OROER00005200
               1  IS  ',212)                                                         00005300
                KElUKN                                                             00005400
          7000  CONTINUE                                                           00005500
                >-LlOTS(26)  =  F-LTOTS(27)  * .122 +  FLTOTSC29)  *  .273                 00005600
w               FL10fS(27)  =  f-LTOTS(27)  * .878                                     00005700
£               mulS(29)  =  FLTOTS(29)  * ,727                                     00005800
                KtTUKN                                                             00005900
                                                                                  00006000

-------
      bUbROUTINE OUfPTl (APFUEL,ID,X,Y,ARE A,NDIM)                        00000100
C                                                                        00000200
C     CAASE5 OUTPUT SUBROUTINE OUTPT1- OUTPUTS APPORTIONED FUEL  TOTALS   00000300
c     FKUM APPORTIONING OF COUNTY TOTALS TO SUB-COUNTY GRID SQUARES      oooooaoo
C                                                                        00000500
C**«* PLACE 45 GRID SQUARES ON EACH PAGE FOR EACH OF  THE 5 TABLES
                                                                   00000600
C
C
C
C
C
C
C
r.
C
C
C
C
C
C
 THE FIVE TABLES ARE REQUIRED TO ACCOMMODATE THE COLUMNS NECESSARY 00000700
 FOR ALL SOURCE CATEGORIES ASSOCIAIEU «ITH EACH GRID SUUARE        00000800
                                                                   00000900
 CUfiMUN/wHICH/XSTATE, ICNT Y, XAUCR, CN TY , NAREAS,        HDR(20)       00001000
1,1PULIT,IREGN                                                     00001100
 COMMON /FUELS/KSTATE,KOUNTY,AQCR,YR,SC(4),AC(2),FLTOTS(56),CTYDEN,00001200
1 HJNSFw, lONSMb, [ONSAF ,DAYSF
 LUMMUiM/lOUMT/IKEAUR»ITAPET, ITAPEN,! f APEO, I PUNCH, I PRINT , I ERR
 01 Mb MS I ON APFUEL(b6, NDIM)
 DIMENSION X(NUIM),Y (NDIM), AREA (NDIM), ID (NDIM)
 IHAbE =  0
 1 FAbLL=l

 iPUl  IS  FLAG FOR HEAptk RECORD ON OUTPUT TO INCIDACT THAT
 AHHUK HONED FUELS FOLLOW.

 iHUl  = 1
 1 1. N U = 0

 IbFAkf |0 JEND BRINGS THE ARRAY OUT IN SETS OF" 45 GRID SQUARES
 LAUH
     iLNU=13fAR f

     i'i AT iMUf BE
               REMAINING--CHF.CK IT

                 NAREAS)
     ltNU= MlNO
     1PAUE=IPAGE*1
  7S AtUlE(IPWIiMl»5000) HDR, ITABLbr IPAGfc
SOOO FUKi'iAl ('1 ',^OAa,^X, 'APPORTIONED FUELS, TABLE
                                                !
-------
M
I
Ln
00
             112/'0')                                                            00003800
       C                                                                        00003900
       C      lAbLL HEADINGS  AND  FORMATS  DEPENDENT  ON  rtHICH  SOURCE  CATEGORIES   00004000
       C       KJK THIS  TABLE                                                   00004100
       C                                                                        00004200
              bU  TU (100,200,300*400,500),ITABLE                                 00004300
          100  CONTINUE                                                           00004400
       C                                                                        00004500
       C****  UUTPUF GRID SQUARE  IDENTIFIERS  AND  FIRST  6  SOURCE  CATEGORIES      00004600
       C                                                                        00004700
              ".KITE (IPRINTfbiOO)                                                00004800
              UU  125 I=ISTART,1END                                               00004900
              *KI1E (IPRlNT,bilO)   1DU),  IREGN,  IPOLIT,  CNTY,  X (I) , Y ( I), AREA (I) 00005000
               (APFUELUf I), J = l»
                 lb,4XrA3,6X,Al,5X,AU,F9.1,F8.1,F9.2,F7.1,F9.1,2F10.1,FU.l,
             bU  fu bOO
        5110
  125

  200
C
C***** UUlPU! GRID SUUARE NUMBERS AND SUURCE CATEGORIES 7 THROUGH 20
C
      «KI IE(IPRINT,5200)
      UU 225 I=ISTART,IEND
      »vKHE(IPRINT,5210)  IDU), CN1Y, ( APFUEL ( J, I ) , J = 7, 20 )
 5210 K)KiViAF(l6,4X,A4,F8.1,F7.1,F9,l,F10.1,F9.1,F8.1,F7.1,F7.1,
     1 F7.1fFl0.1,Ml.l,F9.1,aF7.1)
  225 CUMI1NUE
      bU lu 600
  300 U
       C***** UUIPUT GRID SvJUAKfc NUMBERS AND SOURCE  CATEGORIES  21  THROUGH
       C
             •NX! (t(lPHINT,biOO)
              DO 325 I=ISIAKT,IEND
             .-Hi lt(IPRI'U,5310)  ID(I)r CNTY, ( APFUEL ( J , 1 ) , J = 2 1 , 33)
00005100
00005200
00005300
00005400
00005500
00005600
00005700
00005800
00005900
00006000
00006100
00006200
00006300
00006400
00006500
00006600
00006700
00006800
00006900
00007000
00007100
00007200
00007300
00007400

-------
rt
I
  325 CONTINUE                                                           00007500
      Gu TU 600                                                          00007600
  400 CONTINUE                                                           00007700
C                                                                        00007800
C***** UUTPUT GRID SQUARE NUMBERS AND SOURCE CATEGORIES 54 THROUGH 4b    00007900
C                                                                        00008000
      ••KITE (1PRINT,5400)                                                00008100
      UO 425 I=ISTART,IEND                                               00008200
      "KITE CIPRINT,5410) ID(I), CNTY, (APFUEL(J,I),J = 34,4b)             OOOOH300
  425 CONTINUE                                                           00008400
      GO TO 600                                                          00008500
  500 CUNflNUE                                                           00008faOO
C                                                                        00008700
C***** OUFPUT GRID SUUARE NUMBERS AND SOURCE CATEGORIES 47 THROUGH 5b    00008800
C                                                                        00008900
      HKIIE (IPRlNT,5bOO)                                                00009000
      UU 525 I=ISTART,IENP                                               00009100
      *»«iTE (1PRINT,5510) 1D(I)» CNTY, (APP UEL (J, I), J = 4 1, 52) / TONSFW,     00009200
     !AHKUtL(53,I)» TUNSMB, APF- UEL (54, I), TONSAF, APF UEL (55, I), OAYSF,    00009300
     2AP(-UEL(5b,I)                                                       00009400
  525 CONTINUE                                                           00009500
  bOO LUiMTlNUE                                                           00009bOO
C                                                                        00009700
C***** UPDATE TABLE NUMBER OF THIS SET (45 OR LESS) OF GRID  SQUARES      00009800
C                                                                        00009900
      1TADLE= ITABLE +1                                                  00010000
      IF (1TAHLE.LE.5J  GO TO 75                                         00010100
C                                                                        00010200
C***** UPUATE WHICH SET OF GKIU SQUARES TO OUTPUT, QUIT IF DONE          00010300
C                                                                        00010400
      IIAbLE= 1                                                          00010500
      U UAHEAS.EU.IEND)  Gd UJ 700                                     OOOlObOO
      i»0 TO 50                                                           00010700
  700 CUNUiMUE                                                           00010800
C                                                                        00010900
C**** UUTPlJf FORMATTED TAPE, v.HERE :                                      00011000
c    ALL ALPHANUMERICS ARE A4                                            00011100

-------
w
        c
        c
        c
        c
        c
        c
        c
        c
        c
        c
    ALL INTEGERS ARE no
    ALL KEAL*4 ARE E13.5
        C
        C
        c
     f-URMAFTED TAPE CONTAINS (INLY DATA, I.E., IT IS NOT A  'PRINT'  TAPE

     ftKHt HEADER RECORD ON OUTPUT;
                  NAREAS INDICATES HOW MANY RECORDS FOLLOW
                  If'UT INDICATES TYPE OF DATA, I.E., APPORTIONED
                       FUELS = 1, APPORTIONED EMISSIONS =  2

     ».HlTt(irAPtl),bObO) IREGN,KSTATE,KOUNTY,NAREAS,IPUT,TONSFW,TONSMB,
    1  TUNSAI-,DAYSf-
5050 KURMAT(1X,A4,I13,3I10,4E13.5)
     UU 750 1=1,NAREAS

     fcHUt RECORD ON OUTPUT TAPE FOR EACH GRID SQUARE

     AKITE(1TAPEO,5060) ID(I),X(I),Y(I),AREA(1),(APFUEL(J,I),J=l,56)
5060 f-UKMAT(I10,29El3.5,/,30E13.5)
     CONTINUE
     KEIUKN
                                                 0001
                                                 0001
                                                 0001
                                                 0001
                                                 0001
                                                 0001
                                                 0001
                                                 0001
                                                 0001
                                                 0001
                                                 0001
                                                 0001
                                                 0001
                                                 0001
                                                 0001
                                                 0001
                                                 0001
                                                 0001
                                                 0001
                                                 0001
                                                 0001
         5100 FUNMAT ( '0',68X, ****************** RESIDENTIAL FUEL ************** *000 1
             1**'/12X,'SOURCE', 10X,'POLIT',12X,'COORDINATES',13X,'ANTH.   BITUM.OOOI
             2   UIST.OIL   RES.OIL   NAT.GAS   WUODV12X,'NUMBER  REGION  JURIS0001
                CUUNTY   X(KM)
                      10E7FT4
  Y(KM)   (SO. KM)
10E2T'//)
                                         10E1T
10E1T
lOEaGALS
             1 **********************
             2A,'SUURCE',10X,'ANTH.
                                                                10E0001
                                                                   0001
  UKi'iATCO', 17X, ******* COMMERCIAL AND INSTITUTIONAL FUEL *******  0001
                        INDUSTRIAL FUEL ************************'/20001
                        bITUM.  DIST.OIL  RES.OIL  NAT.GAS  WOOD   0001
3ANTM,  bITUM.  COKE   DIST.OIL  RES.OIL  NAT.GAS  WOOD  PROC .GAS'/OOO 1
42A,'NUMHER  COUNTY  10E1T  10E1T   10E4GALS  10E4GAI.S IOE7FT3  10E0001
5^T  10E1T  10E1T  lOfclT   10E4GALS  10E4GALS 10E7FT3  10E2T  10E7FOOOI
6F3'//)                                                            0001
 FUHMAFCO',                                                       0001
1        16X,'* UN SITE INCINERATION *  ***** OPEN BURNING ****  ***0001
1******* GASOLINE FUEL **********  ******** DIESEL FljEL ******'/, 2X0001
2»'SOURCE',10X,'RESID.  INDUST.  C-INST.  RESID.  INOUST.  C-INST. 0001
1200
1300
1400
1500
1600
1700
1800
1900
2000
2100
2200
2300
2400
2500
2600
2700
2800
2900
3000
3100
3200
3300
3400
3500
3600
3700
3800
3900
4000
4100
4200
4300
4400
4500
4600
4700
4800

-------
           3 LF.VEH.  LT.TRUK  HV.VEH.  OFF HIWY  HV.VEH.  OFF HI«Y  R.LOCO', 00014900
           4/,
-------
       C                                                                        00000100
       C     LAAiihb OUTPUT SUBROUTINE OUTPT2 OUTPUTS APPORTIONED EMISSIONS      00000200
       C     I-ROM APPORTIONING OF COONTY TOTALS TO SUB-COUNTY GRID  SQUARES.     00000300
       C    K liM THE CALL LIST DETERMINES WHICH OF THE FIVE POLLUTANTS  IS  TO  BE00000400
       C     UUTPUT                                                             OOOOObOO
       t**** PLttCE 45 GRID SQUARES ON EACH PAGE FOR EACH OF THE b TABLES        00000600
       C    THE FIVE TABLES ARE REQUIRED TO ACCOMMODATE THE COLUMNS  NECESSARY   00000700
       C     FUK ALL SOURCE CATEGORIES ASSOCIATED WITH EACH GRID SQUARE         00000800
       C                                                                        00000900
             SUBROUTINE OUTPT2 (K,APFUEL,ID,X,Y,AREA,NDIM)                      00001000
             CUWMON/wHICH/XSTATE,ICNTY,XAQCR,CNTY,NAREAS,        HDR(20)        00001100
            1,IPUL1T,IREGN                                                      00001200
                    /FUELS/KSTATE,KOUNTY,AQCR,YR,SCU),AC(2),FLTOTS(b6),CTYDEN,OOOOl300
                   I,TONSMH,TONSAF,DAYSF                                         00001400
             UJMMON/10UNIT/IREADR,ITAPET,ITAPEN,ITAPEO,IPUNCH,IPR INT,I ERR       0000IbOO
             DIMENSION APFUEL(b6,NDIM)                                          00001600
             LUMiiUN /TUTPOL/POLTOT (b6,b)                                        00001700
             UI PENSION X(NDIM),Y(NDIM),AREA(NDIM),ID(NDIM)                      00001800
             UIMLNSION POLL(2b)                                                 00001900
M      C                                                                        00002000
^      C     PuLL ARRAY CONTAINS LABELS FOR THE FIVE POLLUTANTS,                00002100
M      C                                                                        00002200
             UATA PULL/'   C,'PART','ICUL','ATE)','    ','   (S','ULPH','UR D',00002300
            l'IUXl','DE) ','(0X1','OES ','OF N','ITRO','GEN)','   (','HYDR','OC00002400
            2AK','duNS',')    ','  (C','ARBO','N MO','NOXI','DE) '/              00002bOO
             IPAGL = 0                                                          00002600
       C                                                                        00002700
       C     iPUl USED IN OUTPUT TAPE HEADER RECORD TO INDICATE TYPE  OF         00002800
       C     UAU FOLLOWING.                                                    00002900
       C                                                                        00003000
             1PUI=2                                                             OOOOilOO
             **=*                                                               00003200
       C                                                                        00003300
       C     UUMMf VARIAHLt TO FILL RECORD LENGTH UN OUTPUT TAPE HEADER  RECORD  00003400
       C.                                                                        00003bOO
             UUM=0.                                                             00003600
             1 UtiLE = 1                                                         00003700

-------
CTi
OJ
                 it NO = 0
           c
           C**** SET PRUPER POLLUTANT HEADING
           C
                 KJ = K*5
                 KK = KJ-4
           C
                                                                         00005800
                                                                         00003900
                                                                         00004000
                                                                         OOOOMOO
                                                                         00004200
                                                                         00004300
                                                                         00004400
           C    ISTAHT fU IEND BRINGS THE ARRAY UUT  IN SETS  UP  45  GRID  SQUARES EACH00004500
           C                                                                        00004600
           C
           C
           C
   50 IblAKT = IEND t 1
      itNU = 1START +44

      MAY NUT BE 45 REMAINING,  CHECK  I!,

      ItUD = MINO(IEND,NAREAS)
      IPAbE = IPAGE + 1
   75 wKULUPRINTrSOOO) HDR , I T ABLE , I HAGE
 5000 PUKMAT C1'»^OA4,2X, 'APPORTIONED  EMISSIONS,  TABLE  ',11,',  PAGE
r.
c
c
fE  PULLUTANT LAbEL

FE(iPRlNF,5U01 )  (PULL (IK) , IK = KK,KJ J
           c
           c
           c
           c
 5001 KJKrtA|
      hr
-------
                                                        ( I ) , AREA ( I )
 5110

  125

  200
c
c** * *
c

 5200
1********** RESIDENTIAL FUEL *****************'/ 12X, 'NUMBER
2  JUKI3  CUUNTY   X(KM)   Y(KM)  (SQ.KM)   ANTH.    HITUM.
31L   RES. OIL   NAT. GAS   rtUODV/)
 UU 125 l=ISTAkT,I£ND
 k>KIIEUPRINT,5110) ID(I),IREGN,IPOLIT,CNTY,X(I),
1 , UPFUEL(Jf I),J = 1,6)
 PUKiiAfd IX, 1 6, ax, A3,6X,A1,
1 5X,A4,F9,1,F8.1,F9.2,F7,1,F9.1,2F10,1,F11.1,F8.1)
 CONTINUE
 UU lu 600
 CUNTlNUt
                                                              REGKJN00007SOO
                                                              DIST.000007600
                                                                    00007700
                                                                    00007800
                                                                    00007900
                                                                    00008000
                                                                    OOOOttlOO
                                                                    ooooeaoo
                                                                    00008300
                                                                    00008400
                                                                    00008SOO
                                                                    00008600
                                                                    00008700
 UU1HUT GRID SUUARE NUMBERS AND SOURCE CATEGORIES 7 THROUGH 20
                                                                    00008800
 M<1TE(1PRINT,S200)                                                 00008900
 KJKMATi'0',  ' SOURCE',lox,'****** COMMERCIAL AND INSTITUTIONAL  Fuoooo9ooo
?_tL *******  *********************** INDUSTRIAL FUEL ************ **00009100
 S210
2**********'/2X,'NUMBER
3UAT.GA3  rtOOU   ANTH.
4nUUD  PROC.GAS'//)
 UO 225 I=ISTART,IEND
 rt»
-------
                                             '000
SOL.PUR,  GAS.MKTD.  LTD.ACC.  RUR.RDS.  SUB.ROOO
      UU 3db I=ISTART,IEND                                              000
      KR1TE(1PRINT,5310) ID(I), CNTY, (APFUEL(J,I),J=21,33)             000
 5310 FURMAT(I6,4X,A4,F9.1,2Fe.l,F10.1,F8.1,5F9tl,F8.1,Fl1.1,F10.1)     000
  325 CUNIINUE                                                          000
      Gu TO oOO                                                         000
  MOO CONTINUE                                                          000
C                                                                       000
C**** OUTPUT GRID SQUARE NUMBERS AND SOURCE CATEGORIES 34  THROUGH 46    000
C                                                                       000
      *RIIE(IPRINT,5400)                                                000
 5400 FURMATCO',  ' SOURCE', 1 OX ,'****** AIRCRAFT ******   ********** VESOOO
           **********  *** EVAPORATION ***  ******* MEASURED VEHICLE MILOOO
         *******'/'  NUMBER  COUNTY  MILIT.  CIVIL  C(JMM"L.  BITUM. DE.OOO
     A ',
     3U1L  RES.OIL  GAS
     4US.  UKb.RDS,'//)                                                 000
      UU 4£b 1=ISTART,IEND                                              000
                          0(1), CNTY, (APFUEL(J,I),J=34,46)             000

      CONTINUE                                                          ooo
      GU TU 000                                                         000
      LONIINUE                                                          000
C                                                                       000
C**** UUTPUT GRID SQUARE NUMBERS AND SOURCE CATEGORIES 47  THROUGH 56    000
C                                                                       000
      AKlTE(IPRlNT,bbOO)                                                000
 5500 FUMAT ('0',2bX,'DIRT', 12X,'MISC.',4HX,'AGRICULTURAL   FROST CONTROOOO
     1L'/'   SOURCE',8X,'DIRT  RDS  AIR    CONSTR.  WIND     LAND    FORESOOO
     ?T ulLU FIRES  MANAGED bURNlNG  FIELD BURNING  ORCH,    DAYS   STRUOOO
     UL.V  NUMBER COUNTY TMVELEU STRIPS   ACRES  EROSION  TILLING  ACOOO
     5K BUKN   QUANT. ACK bUKN   QUANT ACR BURN QUANT  BURN.    FIRED  FOOO
     6l^Lb'//)                                                          000
      UU 'J^b I = ISTART, IEND                                              000
      »
-------
     1F9.1)
  525 CONTINUE
  600 CONTINUE
C
C**** UPDATE TAHLE NUMBER FUR THIS SET  (45 OR LESS) OF  GRJD  SQUARES
C
      IIAULE s ITA8LE t 1
      IF UTAbLE.LE.5 ) GO TO 75
C
C**** UPDATE wHICH StT OF GRID SQUARES  TO OUTPUT,  UUIT  If- DONE
C
      ITAbLE = 1
      IF(NAREAS.EQ.IEND) GO TO 700
      bO (0 50
  700 CUNFluUE
C
C**** UU1PUF FORMATTED TAPh, WHERE:
C    ALL ALHHANUHfcRlCS ARE A4
     ALL 1UIEGERS ARE I 10
     ALL KEAL*4 ARE E13.5
      FOKMATFED TAPE CONTAINS ONLY DATA, I.E.,  IT  is NOT  A  'PRINT'  TAPE

      rtKilE HEADER RECORD ON OUTPUT TAPE:
                   NAREAS 1ND1CAFES HOrt MANY RECORDS FOLLOW
                   IFHJT INDICATES TYPE OF DATA,  I.E., APPORTIONED
                        FUELS = 1, APPORTIONED  EMISSIONS  =  I

      •
-------
     rtKHhU fAPEO,b070)                                                00018600
    1               (PULTOT(J,K),J=l,b6)                                00018700
b070 FUKMAT (26tli.b»/,30E13.5)                                        0001B600
 eoo tu^riHut                                                          oooiavoo
     HtlUKN                                                            00019000
                                                                       00019100

-------
w
I
00
      SUBROUTINE OUTPT3 (OUTIPP,ID,X,Y,AREA,NDIM,IWANT)
C
C     ROUTINE OOTPUTS THE IPP AREA SOURCE INPUT CARDS, ONE  FOR  EACH
C     UH1D BOX, S02,SP,NOX,HC,AND CO  SUMMED THROUGH ALL CATEGORIES
C     f-UR EACH GRID SQUARE OR CDM AREA SOURCE INPUT CARD, ONE FOR  EACH
C     GKIU SQUARE, S02 AND SP, OR AQDM AREA SOURCE INPUT CARDS,  ONE  FOR
C     EACH GRID SQUARE, S02 AMD SP
C
C*****  CONVERT TONS/YR TO TONS/DAY
C
      DIMENSION OUTIPP(NDIM,5)
      CUMMON/wHICH/XSTATE,ICNTY,XAQCR,CNTY,NAREAS,        HDR(20)
     1,1HULIT,IREGN
      CUMfMJH /FUELS/KSTATE,KOUNTY,AUCR,YR,SC(<4) , AC (2) ,FLTOTS(56) ,CTYDEN
     1 KJNSFvY, rUNSMU,TUNSAF ,DAYSF
      CUMi«tUN/IOUNIT/IREADR,lTAPET, 1TAPEN,! T APEO, I PUNCH, I PR I NT, I ERR
                X(NUIHI),Y(ND1M),AREA(NDIM),ID(NDIM)
                FM](17)
      UAIA FMT/'(A3,', "'999','9",
     l',14,', '15,1' '
     2
              ,')
           ZEH01  /
           " V,ZER02/"'00'"/,ZER031/'"000'  /,ZER032/'"
                 ' /
3', "A"
                   , 4, 1',
                    'X,A1',
                    '/
','
                                      ','
                                                   ','
                                                                     ,',"0"',
C
C
C
C
C
C
C

C
c**** OUTPUT IPP CARD IMAGES
                        FYPE  Uf-  OUTPUT
               IF  i.-.AiMT  "  1 ROUTINE  OUTPUTS  THE  IPP  CARD IMAGES (NOX,  HC, AND CO
                «KL  PLACED I'M  UNUSED  COLUMNS  OF  THt IPP CARDS)
               IF  1,
-------
         c
         c
         c
M
           1000

           5010

           5006
oLT STACK HEIGHT TO 33FT. (APPROXIMATELY  10 METERS)

       = 33
          C
          C
          C
          C
          C
          C
*'
-------
w
I
c
C***
                K h K b J = X I 1
                bU IiJ bO

                btTAttM 10 AND 100  ( 2 DIGITS)
             10
C
C****
C
   30
C
C***
C
   40
             bO
                FMfU) = ZERG2
                FMflb) = BLANK
                Fill (o) = XI2
                bU T(J bO

                UtfiNEtN 100 AND  1000  (  3  DIGITS)

                H^I (a) = ZtROl
                FM (b) = BLANK
                Hvir(o) = XI3
                bU lu bO

                10UU OK GKLAItK  ( a DIGITS)
      f-'^I (4) = B
      Fi'iUbJ = BLAUK
      f- i"i I ( o ) = x I a
         liNUt
         It. (IPUNCH,PMT  )  IRhGN,ID(I)» IX, IY, IAREA, IPOLIT, I STACK,

                                                  IPOLI T,I STACK,
C
C
C
 bOOb



   99

  100
                »j«i rt(ipHiNT,5oob)  iKti,tvi, iDd) , ix, IY,
               lbU,SP,Xi>lU,MC,CO,ISTAlt,KfJUNTY
                ^UKi'1A[(lX,A4, '9999',I4,'0',l4,Ib,l4,lX,Al,l4,bF/f3,^Ib,t?X, 'A')

                xKJ.lt CA«f) lHA(..t  TO  TAPL

                .,hl ItdlAPfcu, f MT)   IF^Gii, ID(I), IX, I Y , 1 AKL A , IPUL I F, I STACK,
                          HC,C.U, ISFAU ,KQUNTY
                tiU I U 11 0
00007bOO
00007600
00007700
00007800
00007900
00006000
00008100
00008200
00008300
00008400
00008500
00008600
00008700
00008800
00008900
00009000
00009100
00009200
00009300
00009400
00009500
00009600
00009700
00009800
00009900
00010000
00010100
00010200
00010300
00010400
00010500
00010600
00010700
00010800
00010900
00011000
00011100

-------
M
I
          c****
          c
          c
          c
          c
           2000
           son
          c
          c
          c
c
c
c
           5021
          t
          C
          C
            200
          C
          c*** *
          c
      (JUFPUT COM INPUT CARD  IMAGtS
SET STACK HEIGHT TO  10 METERS

blAK = 10.0
LUiMV = 10,5
••HI FE(lPRIiMT,5010)
•M«l ftUPRlNT, 5011 ) HDR
|-UKMAT(20A4,5X, 'CDM  INPUT CARD  IMAGtS'///)
DU 200 I=1,NAREAS

btl CUUKDINATES AND  SIDt LENGTH  TU  INTEGER  METERS

IXIUKU = X(I) * 1000, -f  .5
IVtUKD = Y(1J * 1000, «•  ,S
IrtllM = SUHT(AKKAd)) *  1000. +  .5

LUNVLRf TUNS/YK TU GRAMS/SECOND

^ = UuTlPPCI, 1J/365, *  CtlNV
JU = UljriPP(I,2)/J65. *  CONV
                   IXCOKO»IYCUKU,I«ITH,SP,SI),STAK
                   rL(IPKIuT,b'02l ) IX CURD, I YCORD, Iwl TH, SP, S(J, ST AK
      -HI IE CAR!) IMAGE TU TAPE

      *i
-------
C
C
3000


5029

55
C
C
C


C
C
C

60
1

C,
C
C

C
C
C




5030

C
C
C

SET STACK HEIGHT TO 33FT (APPROXIMATELY 10 METERS)

STALK = 33.0
fcHIFt (IPRINT, 5010)
»'.K1TE(IPRINT,5029) HDR
FORMAT (20A4, 5X, 'AQDM INPUT CARD IMAGES'///)
t
-------
            300 LUnllNUE                                                           00018600
            1 10 LUM1NUE                                                           00018700
                KtiUKiNj                                                             00018800
                tut)                                                                00018900
UJ

-------
E-74

-------
                 APPENDIX F










GTGR TABLES AND FORTRAN SOURCE CODE LISTINGS




     DIRECT ACCESS FILE CREATION PROGRAM
                    F-l

-------
F-2

-------
oo ".ao coo  OOG ooo oco ooo ooo GOO coo: :ooo' ooo ooo ooo coo  "
2+2000571788-335175649+09^74767 + 3251093-03399+78420-0U54-0141
3+2003826922-435228392+100131775+3259317-04326+78591-006:-0143
4+2007090708-535439319+100289144+326839l'-04757+78782-0067-0145
5+2010364010-635807315+100446917+3278350-05194+739^4-0074-0146
6+2013647701-73633 302+100605135+3289179-05636+79227-0081-0148
7+2016942664-837017747+100763838+330"897-06084+79480-0083-0150
8+2020249795-93786115^ + 10r923070+3313517-06537 + 7975':-0;95-0 152
OOQOO ooo coo GOO ;oo oooo ooo-COG: ooo coo' co coo '.•jo:c^on co
2+2100542603-331846280+099966809+3407502-04Q58+77986-0052-0148
3+2103954311-431891128+100122943+3416063-04505+78152-0:59-0150
4+2107375029-532092284 + 10:j279430+3425523-04956+783C: 8-0:65-0151
5+2110805660-632450119+1OC436309+34358Q2-05413+78545-0072-0153
6+2114247119-732965047 + 100593622+3447180-'5876+78771-0079-0155
7+2117700331-833637521+100751409+3459400-06345+79019-0086-0157
8+2121'66233-934468037 + 100909712+3472563-06819+7928-3-0 093-0159
000 COO  00 ..CO "00 : 000 000 GOO 000  -00.000 GOO 0000 00' OOGO
2+2200505302-328360942+099-58538+3563023-04212+77532-0 50-0155
3+2204072691-428397064+100113760+3571912-04678+77693-0 57-0156
4+2207649438-52S5-:;i>576 + 10 0269323+3581738-05150+77874-0 064-0158
5+2211236484-628935838+10'425268+3592514-05627+73074-0070-0160
6+2214834786-729439253+100581635+3604250-06110+73295-0077-0162
7+2218445310-830099261+100738464+3616959-06o00+78537-0084-0164
8+2222069033-930916347+10C895796+3630653-07095+78799-0 91-0166
oooo 'GO ;GO~ ooo GOO coo ooo GOO :oo ooo ooo :^G*GGOG;OOO ;'~co
2+2300459578-324720543+099949965+3717617-04360+7'059-0049-0161
3+2304181717-424747618+1001G4235+372682:-04846+77214-005--0163
4+2307913548-524929124+100253335+3737005-053:7+7^389-0062-0165
5+2311656056-625265411+100413805+3743176-05835+77534-0G68-0167
6+2315410234-725756870+100569135+3760348-06328+77 9^-0^75-0169
7+2319177090-826403931+100725015+3773534-0684«+73034-0^82-0171
8+232 957644-927207063+100831335+3787746-07365+73290-0'89-0173
oooo coo ooo ooo coo ooo •ccooocc30ron oc" :oo "GO ooo ooo  ooo
2+2400405135-320926030+099941102+3S71245-04503+76566-0047-0168
3+2404281051-420943746+100 94380+383075:-05008+76716-0053-0169
4+2408166985-521114896+100247977+3891232-05519+76885-006'-0171
5+2412063958-621439820+100401933+3902337-06037+70074-006.-0173
6+2415973006-721918894 + 10'":556285+3915433-06560+7728.2-0 '73-0176
7+2419895175-822552536+100711075+392^082-07090+77511-008'-0178
8+2423331526-923341203 + 100866342+394379- -07627 + 77760-0 86-0130
000  03  00 -GO 000 OCO ' 000 ' 0 00^'' 000 0 000 •:• G j "00 "00 CO; -00
2+2500341683-31697833.°:+ 099931058+4023863-0464 0+76054-0 045-0174
3+2504370371-4169864 ..6 + 100084206+4033672-05165+76198-0051-0176
4+2508409384-517146902+100236762+404'i531-05695+763o 1-0 058-0178
5+251245978^-617460084+100339663+4056457-06232+76543-0064-0180
6+2516522659-717926356+100542948+4069464-06776+76745-0071-0182
7+252059^081-313546122+100696058+4083564-07326+76907-0^77-0185
8+2524690156-919319826+100850331+409877l-078o3+77209-0"84-0137
000' ' 0 " ? 0 ^ •' 0 0 0  .' 0 0  0 0 ' 0 G 0 1-00 ' "• 0 0 0 0  1' ". 0 " ^0 •">'~ " "' ~ " ' 0 '  " ' "'
2+2600268961-312873641+09^^22546+4175448-04771+75523-0043-0130
                                F-3

-------
3+2604449362-412376753 + 100073726+4185:. 34-05315+75661-0049-0182
4+2608640393-513026190+100225200+4196712-05865+75817-0055-0184
5+2612843155-613327265+100377008+4208997-06421+75903-0062-0187
6+2617058761-713780330 + 100529187+422.2402-06984 + 76189-0068-0189
7+2621288336-814385777+100681777+4236939-07554+76404-0075-0191
8+2625533021-915144034+100834816+4252623-08131+76639-0032-0194
oooo ooo'ceo ooo ooo::ooo ooo  oo "oo  'oo :oo^ooo^ooooocoooooo
2+2700186693-308627851+09* ^12877+4325947-04397 + 74973-0041-0186
3+2704517724-408615743+100062951+4336002-05459+75104-0047-0139
4+2708.^59674-508753846 + 100213306+4347783-06028+75255-0 r 53-0191
5+2713213681-609042462+100363982+4360418-06604+75424-006r-0193
6+2717580896-709481930 + 100515016+4374207-07186+75613-0 ^66-01^5
7+2721962485-810072627+100666446+4389167-07775+75821-0073-0198
8+2726359625-910814968 + 100818312+4': 05313-08372+76048-0j79-0200
oo ."oo oooo"00:0000JOQO:000^:00,"oo :oo.oco.:ao ooooco'roo:oc
2+2800094633-3042;?7120+099902963+4475327-05016+74M 04-0039-0 193
3+2804575169-404204527 + 100" 51893+4485938-05^-97+74529-0 045-0195
4+280906^90 -5043309°6+100201093+4497719-06185+74673-0051-0197
5+2813571000-604606814+100350598+4510681-06779+74836-0057-0199
6+2818088661-705032308+100500448+4524840-07381+75017-0064-0202
7+2822621084-805607833+100650630+4540209-07989+75218-0070-3204
8+2827169486-906333803+100801333+4556802-08606+75433-0077-0207
000''OGO OOO^COOQOOOOOOeOOOCO OQO< TOO  '•000000:300 300^033  00 0'
2+289^992543-299677583+099892813+4623551-05129+73817-0037-0199
3+2904621421-399644256+100040567+4634 06-05728+73936-0043-0201
4+2909261757-499758803 + 10 018<3573+46464o8-06334+74073-0 049-0203
5+2913914763-600021498+103336871+4659749-06^48+74228-0055-0206
6+2918581665-700432654+100485498+4674263-07568+74403-0061-02°8
7+2923263705-80"992618+100634494+4690026-08196+74596-0068-0211
8+2927962138-901701777+100783395+4707051-08331+74803-0074-0213
ooooo""oo-cooooooooooooooo  ooc.oco :oo ooo ooo ~co ^oo ^oo  ooo
2+29998 10196-294980416 + 099882453+4770582-05235+7321L-0034-0205
3+3004656218-394Q36116+100-28985+4731669-05853+73324-0040-0207
4+30:9443947-495038467+100175760+47939^7-0647 '+73454-0046-0209
5+3014244632-595287728+100322813+4807582-07109+73602-0053-0212
6+3019059535-695684198+100470181+4822438-07748+73769-0059-0214
7+3023889936-796228208 + 10 617902+4838579-08395+73955-0•• 65-0217
8+3028737128-896920132+100766013+4856022-09^49+74159-0071-0219
000 '000 OCQ^COO."" "0003000 'J000000""0n .000 ';OQC 000 000 '"00  '00  -
2+309'.'757380-290136828 + 099871333+4916385-05335+7258rl-0 032-0211
3+3104679311-390081333+10.017161+4927689-05970+72693-0038-0213
4+3109613183-490171227 + 10"1626 8+4940271-06o13 + 72817-0.4 t-0215
5+3114560233-590406757+100308440+4954146-07263+72958-0:57-0218
6+3119521911-690783206+100454512+4969328-07920+73117-0056-0220
7+312449^380-791315893+10060 921+4985332-03585+73295-0062-0223
8+3129494021-891990172 + 10- 747704+5003675-09259+73491-0 68-0226
oooooo~: GOO oooo ooo -:c "oooo  0:^. :oo ^oc-o .00 "~:~ :oo :~oo  '"o ~:
2+3190623897-235148068+099861119+5060923-05428+71947-003:-0217
3+3204690464-385081.165+1000 5108+5072430-06081+72045-0"36-0219
4+32097691°5-485158356 + 10i;149312+50852t52-06742 + 72161-00 42-0221
                            F-4

-------
5+3214861410-585379873+10029376o+5099402-07410+72295-0048-0224
6+3219968446-685745983+100438505+5114895-08035+72447-0054-0226
7+3225091654-786256990+100583566+5131747-08768+72617-0^60-0229
8+3230232399-886913233+100728984+5149074-09460+72805-0066-0232
O'JQOO GOG CCO' COO 000 QOO'.COO ' GGOOOQOOCOOO:, OGOOCOOOOQOO GOO 000
2+3299479559-280015417+099850176+5204161-05bl4+7128;:-0028-0222
3+3304689456-379936910+09°992841+5215S58-06185+71380-0033-0225
4+3309911724-480001166 + 100135706+5228905-06863+7148;--0039-0227
5+3315147720-580208401+100278806+5243315-07549+71615-0045-0230
6+3320398813-680558869+100422177+5259104-08242+71759-0051-0232
7+332566,. 392-781052856 + 10 0565853+5276287-0894+3+71920-0 057-0235
8+3330951858-831690688+100709870+5294832-09653+72100-0063-0238
orooo':oo•ococcGCOooQooeooocoG .000 coooooocooo ',-00 :GOOOOCO :coo
2+3399324194-274740192+099839068+5346064-05593+70612-0025-0228
3+3404676080-374649899+099980374+5357937-06281+70696-0031-0231
4+3410040529-474701002+100121865+5371194-06977+70798-0037-0233
5+3415418933-574893703+100263577+5385849-07680+70917-0042-0236
6+3420812698-675228240+100405543+5401918-08391+71053-0048-0238
7+3426223245-775704885+10054779Q+5419417-09110+71206-0 54-0241
8+3431652014-876323946+100690379+5438362-09837+71377-0060-0244
ooo'GoocGOO "CO ooo roo ooo ooo'ooooooo"ooo  oo" conooo::ooG'jo
2+3499157644-269323745+099827809+5486598-05665+69919-0023-0234
3+3504650142-369221497+099967721+5498632-06370+699^6-0028-0236
4+3510155382-469259245+10U07805+5512084-07083+70090-0034-0239
5+3515674788-569437175+100248093+5526969-07303+70201-0040-0241
6+3521209803-669755510+100383620+5543302-08531+70329-0046-024^
7+3526761831-770214505+100529420+556110j-09268+70474-0051-0247
8+3532332496-870814452+100670528+5580379-10013+70637-0057-0250
000 JOO "000 GOO COO OCO COO'GOO^OOO ' ?QO'QCO ~C0300000COOOCOC iQ
2+3598979766-263767463+099816412+5625730-05730+69209-0 20-0239
3+3604611465-363653106+099Q54898+5637910-06452+69279-0 26-0242
4+3610256070-463677310+10J093539+5651542-07181+69365-0032-0244
5+3615915039-563840248 + 10 0232370+56-30641-07919+69468-0 037-0247
6+3621589846-664142124+100371423+5683222-08664+69533-0043-0250
7+3627281982-764583180+100510733+5701302-09417+69725-0043-0253
8+3632992955-865163683+100650334+5720897-10180+69879-0 54-0256
000000 COCO C0000000000 r 0O000000 00 ' '". 00 ; GOO" 0 00 • : 0 0 ">•: 0 ^ ': 0 " :0
2+3698790428-258072765+099804393+5763425-05788+63433-0313-0245
3+3704559886-357946160+099941918+5775737-06526+68545-0023-0247
4+3710342397-457956649+100079084+5739534-07272+68624-0029-0250
5+3716139454-558104387+100216424+5804831-03026+68719-0034-0253
6+3721952564-658389565 + 100353970+5821643-08738+63830-004:--Q255
7+3727783251-758312407+100491756+5839983-09558+68959-0046-0258
8+3733633056-859373169+100629816+5859832-10337+69104-0051-0261
o o i 'i c o c o o o : G o : o o coo r, c o . o o o o: o o ~ o o o o o o o o o " o o : o o : G ? v :; o
2+3798589516-252241104+099793260+5899650-05838+67740-0016-0250
3+3804495255-352102127+099v28798+5912080-06593+67795-0021-0253
4+3810414181-452098742 + 10' C64456+5926026-07355+67866-0026-0255
5+3816347818-552231091+100200272+5941505-08125+67953-0032-0258
6+3822297707-652499349+100336277+5958532-08904+68056-0:37-0261
                               F-5

-------
7+ 3828265404-752903721 +100472506+5.977125-096^0+68176-0 043-0264
8+3834252483-8534444H6+100608990+5997300-10486+68312-0043-0267
0 0 0 0 0 G 0 0 G Q 0 0 C C 0 0:' 0 0 C "' 0 0 3 G Q 0 0 0 C C 0 0 0 0 0 0 C C Q 0 0 C 0 0 C 0 C 0 C 0 0 0 0 0; 0 0 0  0
2+3898376928-246273965+099781545+6034375-05881+66981-0013-0256
3+39044174-f 0-346122506+0999155-3+6046906-06552+67029-0. 18-0258
4+3910471256-446105107+10C049670+6060986-07430+67091-0024-0261
5+3916539934-546221893+100183929+6076630-08216+67170-0029-0263
6+3922625044-646473023+100318362+6093856-09011+67265-0034-0266
7+3928728178-746858686+100453000+6112679-09814+67376-0040-0269
8+3934850940-847379103+100587877+6133117-10626+67503-0045-0272
oooo"ooo 'co coo "oo -co ccc~"OocoooooooouCQooQc"0000:00000000
2+3998152580-24017286o+099769747+6167566-05916+66207-0011-0261
3+4004326324-340008831+099QQ2197+6180183-06703+66246-0016-0263
4+4010513474-439"77292+100034742+6194381-07497+66301-0021-0266
5+4016715618-540078357+100167413+6210175-03299+66372-0026-0269
6+4022934362-640312170 + 100300241+62.0.7582-09109+66458-0931-0272
7+4029171325-740678901 +10', 433257+6246618-09928+66560-0 137-0275
8+4035428147-841178756+100566493+6267301-10756+66678-0042-0278
ooocooooooo'ccoooooooooocoooooeoooooooo*00oooooooooGOOOO000:00
2+4097916401-233939355+099757835+6299192-05944+65417-00 8-0266
3+4104221803-333762666+09988J747+6311831-06746+65449-0013-0269
4+4110540699-43371687^+100 019689+6326181-0755'3+65496-0018-0271
5+4116874707-533802080+10'150740+6342108-08373+65558-0023-0274
6+4123225462-634018403 + 100281931+6359678-0919''+65636-0029-0277
7+4129594617-734365999+100413293+6378910-10034+65729-0034-0280
8+4135983842-834845056+10'544857+6399820-10878+65838-0039-0283
O'VooTCoo GOO coo ccococoocoo'1 :ooc.:ooc OQOQQOO "CO^OOOCCQOOCCOO
2+4197668334-227575014+099745975+6429223-05965+64611-0005-0271
3+4204103792-327385607+099875219+6441967-06781+64635-0011-0274
4+4210552815-427325473+100004526+6456353-07606+64674-0016-0276
5+4217017051-527394690+100133926+6472397-08439+64723-0^21-0279
6+4223498166-627593367+100263450+6490114-09280+64798-0026-0282
7+4229997843-727921641+100393127+6509523-10130+64832-0131-0285
8+42365l7783-323379682 + 100522983+6530642-109f:iO+64982-0 036-0288
ooo :ococ:coocooooccooooo :co"co: coo r:o:':o^ •:ooor:or.;oo'" "ocoo
2+4297408339-221081452+099734032+6557627-05977+63791-0003-0276
3+43039722 0-320879279+099861627+6570412-06809+63807-0008-0279
4+4310549720-420804723+099989270+6584868-07648+63838-0013-0281
5+4317142519-520857845 + 1001169<30+6601011-08496+63834-0.13-0284
6+4323752311-621038738+100244816+6618559-09353+63944-0023-0287
7+43J0380810-721347522+10Q372777+6638428-10218+64020-0028-0290
8+4337029747-821784348+100500905+6659736-11092+64110-0^33-0293
oo ooo:,GOO ocQ.'.coc oooococcooQ c;:ocooo ^oocoooo ":co""oo ooo ooo
2+4397136391-214460311+09^722071+6684377-05982+62956-0000-0281
3+4403827032-314245340+099847989+6697186-06323+62964-0005-0283
4+44105313:0-414156299+099^-73938+6711696-07683+62987-0 010-0286
5+4417250995-514193235+100099-47+6727922-08545+63024-0015-0289
6+4"23987752-614356223+l00226045+6745882-09416+63076-0020-0292
7+4430743343-714645365+1OC352262+6765593-10296+63143-0G25-0295
8+4437519527-815060796+100478626+6787073-11185+63224-0029-0298
                               F-6

-------
oooco 'coo .coo coo.ooc r.cococQ ;oo :c:  ^o.000:000 000:000 ceo.
2+4496852481-207713260+099710108+6809442-05979+62106+0002-0286
3+4503668188-307485474+099834319+6822.:59-06840+62107-0 003-0283
4+4510497576-407381904+099058545+6836807-07709+62122-0007-0291
5+4517342383-507402579+100082315+6853099-08585+62150-0012-0294
6+4524204362-607547558+100207157+6871154-09471+62194-0017-0297
7+4531085285-707816926+100331599+6890989-10365+62251-0022-0300
8+4537986940-808210798+100456170+6912622-11269+62323-0026-0303
ooooooooooooooooc: ooooooooooo coccoc  00:0000000:000: ::j:co"
2+4596556613-20084199^+099698159+6932793-05969+61243+0005-0290
3+4603495665-300601397+099820634+6945604-06844+61235+0000-0293
4+4610448406-400483268+099^43109+6960172-07726+61242-0005-0296
5+4617416601-500487624+100065611+6976514-08617+61262-0009-0298
6+4624402032-600614507+100188167+6994647-09517+61297-0014-0301
7+4631406498-700863986+100310807+7014588-10425+61345-0018-0304
8+4638431816-801236158+100433557+7036354-11343+61408-0023-0307
ooooo ooocoocooooooo ".oocooooooc:: oo:coo:  :ccoco"ccc" ::o:oooo
00000000 0000000 COO OGOOOOOOOOO COOrOOCOOGCOOQOeOOGCCO:!~'*00'0
3+4703309457-293594852+099806950+7067191-06839+60350+0003-0297
4+4710383785-393462150+099927646+7081764-07736+60348-OC02-0300
5+4717473586-493450147+100048352+7098139-08640+60360-0006-0303
6+4724580669-593558066+100169095+7116332-09554+60386-0011-0306
7+4731706862-693788359+100289904+7136360-10476+60425-0015-0309
ooooo :oo'cooc:oo coo"ooooooo:coo';:cccooo'cocooco?oc?::oo"cco':
ooooocoo3000~:cocoooo cocooo" OOOOCQC.OQCOCO; cc^o
oooooo coo'Qooooo:ooooooo.cooocco:ooo"cco::oooco:
3+4803109572-286467610+099793283+7186993-06827+59450+0005-0302
4+4810303694-386320339+099912172+7201555-07737+59441+0001-0305
5+4817513292-486291952+100031055+7217946-08655+59444-0003-0308
6+4824740201-586382456+100149958+7236181-09582+59461-0008-0310
7+4831986275-686591884+100268909+7256279-10518+59492-0012-0313
oo",ooo ooo :ooo. coocooooooo ooocooooooo loco ceo OGO:,-;O.::COOOGOO
00 000 000  OO^COOO.OOOOOOOOOOO 000 000 GOOOCOOOOOOOOOOO OOOOO
00° ooooooo ooo.ooooooooooo': ooo 0000000000:0000000 ooooocooooo
3+4902896035-279221469+099779649+7304984-06806+58538+00"8-0306
4+4910208131-379059649+099896704+7319518-07730+58520+00^4-0309
5+4917535689-479014871+100013737+7335907-08661+58515-0J01-0312
6+4924830570-579087125+100130773+7354168-09601+58523-0005-0315
7+4932244654-679276428+100247839+7374318-10550+58545-0009-0318
oo :ooo- 000:000: ooo:ooO' coocooo CCOGCOCOOOOOOOOCOOO-::OO:OOO;OCO
ooo:ooO' ooo .000000000000000 :OOO:COOCQOO-GOOOOODO:-OOCCQ:  ooc. :o
00 OOO-OOOOOOC 3000000COOOCOOO COOOOOOOCOOOOOO.-'COCOOCv'.CCOCOCC
3+5002668836-271858256+099766064+7421136-06778+57612+0011-0311
4+5010:97111-371681921+099881259+7435626-07714+57586+0007-0313
5+5017540765-471620761+ 0999("6416+7451997-08659+57573+00!: 2-0316
6+50250.01738-571674749 + 100111559 + 7470266-09612+57572-0002-0319
7+5032481935-6718438C4+100226714+7490449-10573+57585-00:6-0322
ooocooonooo'coo coo""GO coo ooo  ocoooo•,GC:OOG cco::oo  :oo co
oooo :co ooo 000,000 000:0000000 ooo coocooo:ooo:co>voO': ":::o
00'OOOOOOO "GCGQQOOCCGO 000:OOG CCOOGOO ,: 00 3300 ' CO:'.C J '• : ' J :• : ' C C •:
                              F-7

-------
3+5102428183-264379820+099752543+7535423-06741+56673+0013-0315
4+5109970663-364189024+099865854+7549854-07690+56639+0009-0318
5+5117528526-464111509+099979109 + 7566190-08647+56'.13 + 0005-0320
6+5125103684-564147231+100092333+7584449-09613+56609+00 1-0323
7+5132698071-664296173+100205552+7604648-10587+56612-00:3-0326
00000 000. OOOOOOOCOOOOOOO:000 OOOOOOOCQCOCOOOeOOG 3000QG9000 :
0000,000 coooooooooooooocooooooocoo:ocooooonooocoooo-oo GQOOCO
oeoo'ooo. oo'ooo. ooo ooo coo. OOO;QOOCOOO:GCO ooo ooo coooooo o
3+5202173999-256788039+099739103+7647821-06697+55722+0016-0319
4+5209828.1i37-356582849+099850503+7662175-07658+55680 + 0012-0322
5+5217498993-456489022+099961832+7678460-08628+55650+0008-0325
6+5225186406-556506498+100073113+7696692-09606+55633+00 4-0327
7+5232893033-656635240+100184370+7716889-10592+55627-00CC-0330
oooooo-0000000000000000000000:000  oooooo . oocooo'-oao  co:oac:
ooooooooo": oonooo-.-: oooooo :-a oooooo CG oo--GOO- oo"000-000 ooo .GOO
ooo'oooocoo.:oooooo coooooo 000:000 000:000:000 ooo GOO ooooao
3+5301906421-249084816+099725759+7758304-06645+54759+0019-0323
4+5309671694-348865317+099835225+7772566-07618+54709+0015-0326
5+5317452206-4^8755237+099944603+7783733-08600+54671+0011-0329
6+5325249918-548754501+100 53916+7806971-09590+54644+0007-0331
7+5333066811-648863055+100163188+7827148-10583+54630+00 3-0334
0:0000000000000000000000".0000000-:coonooooo00:000"ooocc-oo coo o
00000 "00 OOO'.OOOCOOO'000. 000 000:000 000 000 COO OOOC'OOOOOOOG
0000 000.GOO COOOOOO 0000000"0000000.GOOOQOO.00030000000-000:0
3+540162555L-241272077+099712528+7866849-06585+53784+0021-0327
4+5409499317-341038368+099820036+78U10 '3-07570+53726+0:17-0330
5+5417388220-4409121:3+09^927438+7897135-08563+53679+0014-0332
6+5425294252-540893218+10'1C34760+7915262-09565+53644 + 0010-0335
7+5433219414-640981613+100142023+7935401-10575+53621+0006-0338
oooo'ooooooo.0000000:000 ooocooo:coooooocooooooo ooooooooooooo
0000:000000000000000 oo  coooooo^oooooooooo: 000000:000-000 oo
oo"ooo ooo GOO JOG:ooo ooo ooo.ooo 0000000.0003000:000:0000000
3+5501331520-233351772+099699425+7973431-06517+52797+0024-0331
4+5509311800-333103970+099804950+7987461-07514+52731+0-20-0334
5+5517307109-432961632+09991035S+8003492-08519+52676+0016-0336
6+5^25319457-532924648+100015662+8021541-09532+52633+0013-0359
7+5533350869-6329°2930+100120893+8041624-10553+52600+0009-0342
OOOOGOO oooooooaoooooooooocoooo 00:000:000:0000000: oo 000:000
000000:0000000 .000.00000000000000000000000:00000000000000-000:
oooooooo 000:000 ooo joooooo'.ooo ooo.ocoooooco00:000-:JOOOCOO:G
3+5601024453-225325876+099686465+8078028-064^2+51798+0026-0335
4+5609109257-325064113+099789986+8091918-07449+51724+0023-0337
5+5617208963-424905802+099893370+8107831-08465+51662+0019-0340
6+562532560-?-524S50815+0999 6639+8125785-09490+51610+0 15-0343
7+5633461218-624899049+100099816+3145795-10522+51569+0012-0346
ooooo oooooooooo ooo? coi'coo^oo'ooo  . :oon. on: .00:000 GOO :oo::
00:0000000 000:000:000:000 coooooo 000,00000000000 coooooo coo
ooo'oooooo "cooooooTOOorooo'.ooo oooc?-:oo"ooo GOO JOO.GOO :oo::oo
3+5700704503-217196385+099673664+8130617-06358+50789+0029-0338
4+5708391317-316920810+09^775158+8194351-07377+50707+0025-0341
                                F-8

-------
5+5717Q93837-416746650 + 09'-:*376499+8210131-OS404+50636 + 0 022-0344
6+5725312766-516673764 + 099977709+82::7972-09439+50576 + 0018-0346
7+5733550524-616702031 + 100 •78310+8247892-10482+50526 + 01-15-0349
00000 0000000.000 OOOOOOOOOOQOOOOQGOOCQOGO00000000000000000000
ooooooo:ooocoooooocooo"ooo~:oo'ooo'  oo;-coo:ooo ~oo:ooc ooo ooo
oooocooo ooooooooooo ooo,oooooooooooooo"ooo0000:000"ooo.ooo;oo
3+5800371839-208965319+099661037+8281175-06267+49768+0032-0342
4+5808659624-308676094+099760482+8294738-07297+49679+0028-0345
5+5816962004-408486227+099859759+8310368-08335+49600+0025-0347
6+5825281055-508395563+099958889+8328082-09380+49532+0021-0350
7+5833618867-608403963+100057892+8347894-10434+49474+0018-0353
0000 000 .000 000 OOOCOOO.-0.00 .0000000000000000000 OOOOC030GOOGO
oooooooooooooooo"-:ooocoor;.>oocooooooo ooocooo .0000000 ooo oooco
ooooooooo  -oooooooooooooooobbooooo GOGOQOo'ooooooaooooooo" :ooco
3+5900026641-200634719+099648599+8379682-06169+48737+0034-0345
4+5908412837-300332022+099745975+8393059-07209+48640+0031-0348
5+5916813454-400126607+099843166+8408523-08257+48553+0027-0351
6+5925230585-50001S300+099940195+8426092-09313+48477+0 '24-0353
7+5933666344-600006949+100037080+8445779-10377+48410+0021-0356
00000 0000OOO'OOOOOOOOOOOOO0000000000 000000000000000OOOOOOOGO
000.0000000 000000000000000 OOOOOOGOOOOOOOOOOOO'OOO 000...000000
ooooooooooooooooo.oooooo'ooo".ooo 'ooo0000:000000oooooooo. 000:0
3+5999669105-192206647+09963636'.+8476116-06063+47696+0 036-0349
4+6008151634-291890672+099731651+8489291-07114+47591+0033-0351
5+6016648391-391669882+099826737+8504575-08171+47497+0030-0354
6+6025161492-491544086+09°921644+8521932-09237+47412+0027-0357
7+6033693068-591513116+100'16391+8541529-10311+47337+0023-0359
oooo ooooooo ooooooo ooocoooooooo oo 3300.jcooo'oo'ooo:: ooo cooo'co
OOOOOOOO0OOOC000'000.000 OOOCOOG OOOOOOOOOOOC000G0000000OOOOOO
0000000000000 OOOOOO '0000000000 000 000 OOO'OOOCOOO OOOOOOOOO
3+6099299445-183683185+099624351+8570457-05950+46644+0039-0352
4+6107876205-283354142+099717526+8583416-07010+46532+0036-0355
5+6116466987-383118165+099810486+8598503-08078+46430+0032-0357
6+6125073926-482975049+099903252+8615733-09153+46337+0029-0360
7+6133699173-582924610+099995842+8635122-10237+46254+0026-0363
000 000 000.000 000 GCCGOOC -OOOOGOOGOOO'.OOOOOOO 00000003000:00
OOCOOO'0000000 000 00000000000000000000000 0000000000^000  .00
oocooooooo ooooooo OOOOOOQOOOOOOOOOOO  00^000:000 ooo  .00.000
3+6198917885-175066437+09^612570+8662685-05830+45583+0041-0355
4+6207586756-274724549+099703614+8675414-06900+45464+0038-0358
5+6216269428-374473589+099794430+8690289-07977+45354+0^35-0360
6+6224968055-474313339+099885036+8707326-09061+45254+0032-0363
7+6233684805-574243598+099975450+8726540-10154+45162+0029-0366
oocooooooocooocooooooooooooooo.ooooooo GOOOOO GOO;ooo ooo  :oo:
ooo.-.oo ooo coooooo'.oooiooocoooooooooooooo: 000:000.000000  oo
00 000 0 COOOOOOOOO 0. 000 00 '^0000 0000000 OOO,: 000 "OOOTOOO OOOOOO GO 0
3+6298524667-166358525+09';601036+8752782-05703+44512 + 0044-0358
4+6307283510-266004030+099689932+8765265-06782+44386+0:41-0361
5+6316055918-365738308+099778585+8779913-07868+44269+0038-0363
6+6324844062-465561124+099867012+8796741-08962+44160+0035-0366
                               F-9

-------
7+6333650131-565472262+099955232+8815764-10063+44061+0032-0369
OOCOOOCOOO'^OOOOOOOOOOOOOOOOOO'iOOO'0000000000000000000. 000000 '0
oopoooooooooooooo?ooooopdoooocoooeoooooooooooooo:ooo^ooooooooo
ooooooo loooooopf'OOO'iOoobooooooooooe ooo 0:00:000 oo oo ooo oooooo ooo
3+6398120044-157561590+099589764+8840727-05568+43432+0046-0362
4+6406966701-257194741+099676493+8852950-06656+43299+0043-0364
5+6415826673-356914490+099762964+8867357-07751+43174+0040-0366
6+6424702148-456720589+099849195+8883961-08854+43058+0037-0369
7+6433595332-556612806+099935203+8902778-09964+42951+0034-0371
0000:0oooooonooooooooooo-oooooooooooooooooooooo:oooooooooooooo
000000000000000000:COOOOOO:OOOCOOO-00000000000000000000000000 •"
00000000000000" 00-000COOO'iQOO:OOOOOOO '00000000000000000000000
3+6497704286-148677793+099578768+8926504-05427+42343+0048-0364
4+6506636582-248298857+099663312+8938453-06524+42203+0045-0367
5+6515581926-348004326+099747584+8952603-07628+42071+0042-0369
6+6524542527-447793940+099831601+8968968-08739+41948+0040-0372
7+6533520606-547667450+099915380+8987563-09857+41833+0037-0374
00000'-'000000 r? 000000:OOOGOOOOOOOIOOOOOOO~000000:0000000:000000
000000?000COOOOOOO:OOOOOOO-000000000000000000*OOOO0000000:0000
OOOOO: OOOOOOOOOO1:. OOOOOO'lOOOOOOO: 0000000000 OOOOOOOO'^OOO OOOO GOO
3+6597277676-139709312+099568061+9010093-05279+41245+0050-0367
4+6606293416-239318568+099650403+9021755-06384+41098+0048-0370
5+6615321926-339010022+099732459+9035635-07496+40959+0045-0372
6+6624365430-438783396+099814245+9051746-08616+40829+0042-0374
7+6633426166-538638429+099895779+9070103-09743+40706+0040-0377
000000000:00000000000:ooooooo'oooooo^ooooooo:ooooooooooooooooo
ooocoooooooooooooooooo•ooooooooooooooo oooooooooooooooooooooo
0000000000000000:0000000-00000000000 oooooooooo : ooooooo :-oo oo oo
3+6696840508-130658342+099557656+9091479-05124+40139+0053-0370
4+6705937482-230256085+099637779+9102840-06238+39985+0050-0372
5+6715046933-329933800+099717603+9116435-07358+39840+0047-0375
6+6724171102-429691196+099797143+9132278-08486+39702+0045-0377
7+6733312243-529527997+099876415+9150382-09620+39572+0042-0379
000 •00000000000000"000' OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOCOOOOOO •
ooocoooooooooooooooooo:ooooooo:oooooooooo00000000:00000000000
ooo ^ooo:ooo.oooooooooo:ooo:000:0000000 ooooooo oooooo"ooooooo:
3+6796393093-121527094+099547567+9170644-04963+39025+0055-0373
4+6805569074-221113632+099625455+9181691-06085+38864+0052-0375
5+6814757226-320777901+099703030+9194988-07213+38712+0050-0377
6+6823959804-420519594+099780308+9210548-08348+38567+0047-0380
7+6833179081-520338423+099857304+9228385-09490+38430+0045-0382
ooooooo ooo'ooo oooooooooooooo0000:0000ooooooooooo-1 ooooooooooo
oooooooo  oooooo"000:0000000:oooooooooooooooooooooo:ooooooooooo
OOQOOO ;ooooooc.ooo-;ooo-:ooooooo 'oooooooooooooo^ooooooo ooooooooo
3+6895935753-112317799+099537807+9247572-04796+37902+0057-0375
4+6905188497-211893452+099613444+9258293-05925+37736+0054-0377
5+6914453093-311544578+099638755+9271278-07061+37577+0052-0330
6+6923731812-411270859+099763755+9286541-08203+37425+0:49-0382
7+6933026939-511071990+099838459+9304096-09353+37280+0047-0384
ooc ooo ..ooooooo -oocooo oooooooooooooo coooooo 000:000 ooo: 000:0
                             F-10

-------
00000 :noo.;ooo :ooo: coooooooooooooooooooooo 00000000000000:000-0
00000:000-ooo'ooooooooooooooo.0000000 ooooooo"oooooooo000000:0
3+6995468821-103032701+09952S388+9322.'48-04623 + 36772+0 059-0378
4+7004796071-202597802+099601758+9332629-05759+3660J+0056-0380
5+7014134839-302236104+099674791+9345290-06902+36434+0054-0382
6+7023487414-401947275+099747499+9360243-08052+36276+0052-0384
7+7032856093-501730999+099819897+9377502-09208+36124+0049-0387
ooooooooooo:ooovcoooooooooo •00000000000:0000000:00000000000000
oooo. ooo 'ooooooo ' ooooooooooo c oooo oo-I: ooooo o-~ ooo.: co oo oo oo oo oo oo
00000.:OOOCOOOOOOO:000:000000 '000^-000 "000 "000 : 000;. OOOO OOOO OOOOO
ooooo"000 ooo:ooocoooeooooooo:oo00000:00 .0000ooo:00000000000:0
4+7104392126-193228954+099590411+9404686-05587+35456+0058-0382
5+7113802782-292854763+099601150+9417009-06737+35284+0056-0384
6+7123226913-392551142+099731552+9431639-07893+35119+0054-0387
ooooooooooooooo"joo-jooo-'11}oo-ooo,ooooooocooo:-oooooooooo^oooo-ooo
ooooooooo0000:000-ooo00000000:000000000000000000000.:oo:ooooo
000' 000L: 000. 0000000000 "TOO : 000 .000 '000 'OOOJOOOOOOOOOOOCOOOOOOO
o oooo •:• ooo •'ooooooo cooo ooo ooooo •'•oo oo oo oooo ooo oo ooo ^ooo ooo oooco
000:000 'ooo:ooocooo':ooo OOOOOO.OOOOOOOOOOO-QOO, 000:000 :ooooooo
4+7203977009-183789195+099579414+9474'r49-05409+34306 + 0060-0385
5+7213457252-283402855+099647847+9486422-06565+34128+0058-0387
6+7222950627-383084772+099715929+9500715-07729+33956+0056-0389
00000:000:000 'ooooooo :oooooooooo: ooo -;QOOQOOO-.' ooo ooo ooo ooo ooooo
000000:0000000-0000000000000000000cooo'oooooooooo coo:oooooooo
ooooi--coo:ooo?ooo.:.oooooo:-ooO':ooooooo :ooo .ooooooo ooooooocooooo
0000000"000"-000:;OOOOOOOQOOO-' OOO'OOOOOOO OOOOOOO 00000000000000
oooooooooo "ooooooooooo"•000000:000::00^000:0000ooo 'ooooooo oooo
4+7303551076-174280825+099568780+9541904-05224+33149+0062-0387
5+7313098592-273882692+099634892+9553515-06388+32965+0060-0389
6+7322658884-373550490+099700643+9567459-07557+32787+0058-0391
OOOOO'OOOOOOO. OOOOOOOOOOOC0000000000'COOOOOO:00000000000OOOOOO
00"COOOOOOC :00-: OOOOOOOOOOOC.OOOOOOOOOOOOOOOO000OOOO00000 OOOO000
oo;iooooooo:ooooooo:oooooo:.coo'ooooooo ;ooo'ooooooo oooooooooooo
ooooooo ojoo oo 00:000:0 oo!'ooo. ooo oo oo ooo ooooooo oooooo: ".oooooo
ooooooooooooooooo :ooo:ooo ooo :ooooooo ooooooo ooooooo oooooooo
4+7403114695-164706160+099558521+9607039-05034+31985+0064-0389
5+7412727157-264296602+099622300+9618276-06204+31795+0062-0391
6+7422352028-363950635+099685705+9631853-07379+31611+0060-0393
oooooo "oooo ooo "oo oooooooooo oooooooooo 00000000:0 oo'.coooooo ooo
ooooooooo ooooooo oooooo:ooo"ooooooo 'ooo.ooo -000:000oooo.ooooo
00•• 00000000000"OOOOOOOOOOOOOOO00000000000: 000. 000 000 OOOCOOOO
ooooo "ooooooocooo :oooooo-::ooo. ooooooo^oooooooooo :oo -ooo :oooco
OOOO000COOO':000:000 OOOOOOO OOOOOOOOOOO 0000000000OOOO 000  000
4+7502668246-155067526+099548647+9669839-04339+30815+0060-0391
5+7512343316-254646922+099610080+9680692-06014+30620+0064-0393
6+7522030415-354287559+099671129+9693901-07196+30430+0062-0395
0000000000000:0000000:0000000000 ooo"ooo:ooo  0000000:0000000  o
00".000..'0000000OOOO 'OOOOOOO "00000000000000 "OOOOOOO 000OOOOOOOOO
OOCOOO"000:000  .'000000000000000 00000000000000 000 000 000 OOOO
ooooo :oo ooo ooooooo 'ooooooo'oooooooooooooooooooooo ooo ooooo
                               F-ll

-------
00000000 :0000003000000000000000000000020001'0000000000000000000
4+7602212121-145367263+099539170+9730294-04638+29639+0068-0393
5+7611947446-244936004+099598246+9740750-05819+29438+0066-0395
6+7621694411-344563623+099656926+9753575-07006+29243+0064-0397
00000000 'OOOi'OOOCOOOOOOOOOOOOOOOOOOOOQQOOOOOOOOOOOOOOOOOOO "000
0000000000000000':00000000000000000000000000 JOOOOOOOO0000000000
000000000000000000-OOOOOOOCOOOOOOOOOOOOOO000000000000000000000
oooooocooooooooooooooooooooooooooooooooooooooooonooo ^0000000:0
ooooooooooooooooooooooooonooooooocoooooogooooooooooooooooooooo
4+7701746721-135607723+099530100+9788391-04432+28457+0070-0395
5+7711539940-235166211+099586807+9798441-05619+28251+0068-0397
6+7721344396-334781203+099643109+9810869-06811+28051+0066-0398
000000 000000000000000000000000000 0000OOOOC 0000 0000000000000000
000000000000000000000000000000 JO000000000000000000000000000000
ooooooooooooooooonooooooo;:oooooo o: oo oooo;.; ooooooor ooooooooooooo
0000 JOOOOOOOOOOOOOO000000000000000000000000000OOOOC00000000000
OOOOOOOOOOOOOOOOOOOOOGOOOOOO0000000000000000000000000000000300
4+7801272459-125791270+099521447+9844120-04220+27270+0071-0397
5+7811121197-225339916+099575775+9853752-05413+27059+0069-0398
6+7820980760-324942682+099629687+9865774-06610+26853+0068-0400
000000:OOOOOOCQOOOOOOOOOOOOOOOOOC00000003000000000000000000000
oooooooooooooooocooooooooooooooo?ooooooooooooooooooooooooooooo
OOOOOCOOOOOOC 0000000000''0000000':00000000000000000000000000000
OOOOOO0000000000000000000000000000000000000000000000"000CO00CO
000000000000000000000000000000000000000000000"00000000000 0000
4+7900789757-115920277+099513221+9897469-04004+26078+0073-0398
5+7910691629-215459503+099565160+9906674-05202+25862+0071-0400
6+7920603906-315050455+099616672+9918279-06404+25651+0070-0402
ooooooooooooooooooooooooorooocoooooooooooooooooooooooooooooooo
OOOOOOOOOOOOO''000 000000000000000000000000000000000000000000000
ooooooooooonoooooooooooooooooooooo"ooo^ooooooooooo ooooooooooo
0000OOOOOOOOOOOOOOOOC0000000OOOOOOOC0000000000 .-000 'OOOOOOOOOOO
oooooo "ooooooooooocoooooo^oooooooooooooooooo.-ooo oooo oooooooooo
4+8000299047-105997129+09^505432+9948428-03784+24880+0074-0400
5+8010251659-205527367+099554972+9957197-04986+24660+0073-0401
6+8020214244-305106927+099604075+9968375-06193+24444+0071-0403
00000000000000000000000000000000000'^ 0000000000000000000000 0000
0000000:000000000000000000000000000000000000000000000000^ooo .0
                            F-12

-------
c      fhis PKOURAM WRITES UTM ZONE  TO  ZONE  TRANSFORMATION  TABLES  TO
C      DISK USING  FHE F-URTRAN DIRECT  ACCESS  I/O MtTHOD. THt  TABLES
C      LUVLh  UTM  ZONES UN THfc CLARKE  lfibt>  SPHEROID THAT SPAN  THt  U.S.
C      Tht.  jAbLtS  ARt ACCtSSLD WHEN  THE GTGR SUBROUTINE IS  CALLED  TO
C      FRMiMSFURfri  UTM COORDINATES FROM UNE  ZONE TO AN ADJACENT  ZONE.
C
      KtAL*6  HI
      utMUE  ULE  9(61, 768, L» UK)
C
C     FAtlLtS  ARE  CARD INPUT AUD WRITTEN  ON DISK.
C     CAHL)  COLUMN  UNE is SKIPPED.
C
      UU  10  JtiLUCK=l,M
      KtAU('j, 1000)  C(U1 (I, J), J = 1,B),I = 1 ,8)
      »vKilt  C9'JbLl)CK) HI
   10 LuixfliMiJE
      IJ !•> = 1
L
C     MbLES  ARE  READ f-ROM DISK AMD  PRINTED.
r
L
      UU  dO  JbLOCK=l,61
      KEttU  (y'JtiLOCK) Bl
      ..Kilt.  (o»2000)  ( tBl (I, J) ,J=1,8), ! = !,«)
 1000 t-UKr-'A r (lX,f 1 1 ,3,2F- t 0.3,f
  I

-------
                                   TECHNICAL REPORT DATA
                            (Please read Inunctions on the reverse before completing!
1. REPORT NO.

       EPA-450/3-78-010
                             2.
                                                           3. RECIPIENT'S ACCESSION-NO.
4. TITLE AND SUBTITLE
  Computer Assisted Area  Source Emissions (CAASE)
  Gridding Procedure  (Revised)
  UNIVAC lllO/EXEC 8  Version  User's Manual
             5. REPORT DATE

               Marrh 1Q7R
             6. PERFORMING ORGANIZATION CODE
7. AUTHOR(S)
  Richard C. Haws,  J.W. Dunn, III
  Richard E.  Paddock
                                                           8. PERFORMING ORGANIZATION REPORT NO.
9. PERFORMING ORGANIZATION NAME AND ADDRESS

  Research Triangle  Institute
  Research Triangle  Park,  North Carolina  27709
                                                           10. PROGRAM ELEMENT NO.
             11. CONTRACT/GRANT NO.
                                                              68-02-2501
12. SPONSORING AGENCY NAME AND ADDRESS
  Environmental Protection  Agency
  Research Triangle Park, North  Carolina  27711
                                                           13. TYPE OF REPORT AND PERIOD COVERED

                                                             Final  Ponnvf  _ March 1Q7R
                   tol
14. SPONSORING AGENCY CODE

         200/04
15. SUPPLEMENTARY NOTES
16. ABSTRACT
       Atmospheric  dispersion modeling programs  such  as the Climatological Dispersion
  Model (COM), Air  Quality Display Model  (AQDM), and  Implementation Planning  Program
  (IPP) are among the  most basic tools used  for  evaluation of air quality and State
  Implementation Plans (SIP's).  Since emissions data comprise the most important  input
  information for these models, any factor affecting  the availability and completeness
  of the emissions  data has a'significant impact on the results of the modeling  pro-
  grams.  Procedures for formatting emissions  from point sources are well defined,
  however area source  emission data present  problems.  Usually the smallest geographic
  unit for which accurate primary data are available  is the county.  These data  must be
  disaggregated and appropriately allocated  to smaller areas to provide an adequately
  detailed input.

       The Computer Assisted Area Source Emissions gridding programs with associated
  subroutines containing automated gridding  procedures provide an objective method for
  allocating county-level  data to grid squares selected on the basis of demographic
  features and sized to give appropriate detail  for input to air quality modeling
  programs.
17.
                                KEY WORDS AND DOCUMENT ANALYSIS
                  DESCRIPTORS
                                              b.lDENTIFIERS/OPEN ENDED TERMS  C.  COSATI Field/Group
 Modeling
 Area  Sources
 Emissions
 Gridding
13. DISTRIBUTION STATEMENT

  Release  Unlimited
19. SECURITY CLASS (ThisReport)
  Unclassified
              21. NO. OF PAGES

                        496
                                              20. SECURITY CLASS (Thispage)

                                                Unclassified
                                                                        22. PRICE
EPA Form 2220-1 (9-73)

-------