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)
------- |