United States
Environmental Protection
Agency
Motor Vehicle Emission Lab
2565 Plymouth Rd.
Ann Arbor, Michigan 48105
EPA-460/3-81-004
Air
&EPA
Augmenting In-Use Fuel
Economy Data Bases With
Topographic, Demographic
and Climatic Data
-------
EPA 460/3-81-004
AUGMENTING IN-USE FUEL ECONOMY DATA BASES
WITH TOPOGRAPHIC, DEMOGRAPHIC AND CLIMATIC DATA
Prepared by
John Gins, Carol Furutani and George Rakuljic
Technology Service Corporation
Santa Monica, California 90405
Contract No. 68-03-2837
EPA Project Officer: Suzanne Loos
Prepared for:
ENVIRONMENTAL PROTECTION AGENCY
OFFICE OF AIR AND WASTE MANAGEMENT
OFFICE OF MOBILE SOURCE AIR POLLUTION CONTROL
EMISSION CONTROL TECHONOLOGY DIVISION
ANN ARBOR, MICHIGAN 48105
APRIL 1981
-------
This report is issued by the Environmental Protection Agency to disseminate 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, Motor Vehicle Emission Laboratory, Ann Arbor,
Michigan 48105, 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 Technology Service
Corporation, Santa Monica, California 90405, in fulfillment of Contract No. 68-03-2837. The
contents of this report are reproduced herein as received from Technology Service Corpora-
tion. The opinions, findings, and conclusions expressed are those of the author and not
necessarily those of the Environmental Protection Agency. Mention of company or product
names is not to be considered as an endorsement by the Environmental Protection Agency.
-------
CONTENTS
LIST OF TABLES v
Section
1. INTRODUCTION 1
1.1 GOALS OF THE TASK 1
1.2 PROBLEMS ENCOUNTERED 2
1.3 ACCOMPLISHMENTS 2
1-4 RECOMMENDATIONS 3
2. CONSTRUCTION OF THE TOPOGRAPHICAL AND METEOROLOGICAL FILES 5
2.1 KEYING THE DATA BY MONTH, ZIP CODE, AND TELEPHONE
AREA CODE 5
2.2 POPULATION DATA 7
2.3 TOPOGRAPHIC DATA 8
2.4 METEOROLOGICAL DATA 9
3. AUGMENTING IN-USE FUEL ECONOMY DATA BASES 13
3.1 AUGMENTATION SUBROUTINES 13
3.2 MAIN AUGMENTATION PROGRAM 14
3.3 IN-USE FUEL ECONOMY DATA BASES 15
3.4 THE AUGMENTED IN-USE FUEL ECONOMY DATA BASE 15
4. VEHICLE EXPOSURE REGIONS 18
4.1 PARAMETERS AND METHODOLOGY 18
4.2 DESCRIPTIONS OF THE 24 VEHICLE EXPOSURE REGIONS 21
Appendix
A Augmentation Data Formats ., , A-l
B Listing of AUGMENT, Subroutines GETDATI and DATOUT, and
Listing of FETCH B-l
C Format of Augmented Data File C-l
D Listing of XFORM Program , D-l
E Formats of Fuel Economy Fi 1 es E-l
F Format Changes in J.D.POWER Data Base F-l
iii
-------
LIST OF TABLES
Table
2.1 Scheme of Surface Landform Classification 10
2.2 Classes of Surface Landform 11
3.1 Number of In-Use Fuel Economy Data Records in the Augmented
Data Base 16
4.1 Descri ption of the Super-Parameters 20
4.2 Description of Topography and Meteorology in Region 01 22
4.3 Description of Topography, and Meteorology in Region 02 23
4.4 Description of Topography and Meteorology in Region 03 24
4.5 Description of Topography and Meteorology in Region 04 25
4.6 Description of Topography and Meteorology in Region 05 26
4.7 Description of Topography and Meteorology in Region 06 ........ 27
4.8 Description of Topography and Meteorology in Region 07 28
4.9 Description of Topography and Meteorology in Region 08 29
4.10 Description of Topography and Meteorology in Region 09 30
4.11 Description of Topography and Meteorology in Region 10 31
4.12 Description of Topography and Meteorology in Region 11 32
4.13 Description of Topography and Meteorology in Region 12 33
4.14 Description of Topography and Meteorology in Region 13 34
4.15 Description of Topography and Meteorology in Region 14 35
4.16 Description of Topography and Meteorology in Region 15 36
4.17 Description of Topography and Meteorology in Region 16 37
4.18 Description of Topography and Meteorology in Region 17 38
-------
LIST OF TABLES (Cont'd)
Table
4.19 Description of Topography and Meteorology in Region 18 39
4.20 Description of Topography and Meteorology in Region 19 40
4.21 Description of Topography and Meteorology in Region 20 41
4.22 Description of Topography and Meteorology in Region 21 42
4.23 Description of Topography and Meteorology in Region 22 43
4.24 Description of Topography and Meteorology in Region 23 44
4.25 Description of Topography and Meteorology in Region 24 45
A.I TOPO.FILE Format A-l
A.2 MET.FILE Format A-2
C.I Standardized Output Format C-l
C.2 Standardized Input Format for Data Base Augmentation -... C-2
E.I Input Format for FE.HS79 and FE.EF79 E-l
E.2 Input Format for FE.LA80 , E-l
E. 3 Input Format for FORD .,, E-2
E.4 Input Format for 6M75 E-2
E.5 Input Format For GM76 E-3
E.6 Input Format for J.D.POWER .., E-3
F.I Definition of Alpha Codes F-5
F.2 Make/Model Codes for J.D,POWER Data Base With Parallel
Codes for EEA and EPA F-6
-------
1. INTRODUCTION
The Control Technology Assessment and Characterization Branch (CTAB)
of the Environmental Protection Agency (EPA) has asked Technology Service
Corporation (TSC) to augment several in-use fuel economy (FE) data files
with information on the climatic, topographic, and demographic conditions
under which the in-use data were collected. This report describes the type
of variables and data sources added to the in-use data (Chapter 2); the
method for augmenting specific in-use data files (Chapter 3); and how the
appended data were analyzed to determine vehicle exposure regions (Chapter 4)
The remainder of this chapter describes the task goals (Section 1.1);
the problems encountered (Section 1.2); what this task accomplished (S,ec-
tion 1.3); and recommendations for data use and enhancement (Section 1.4).
1.1 GOALS OF THE TASK
This task had three goals, the major one being to assemble an augmen-
tation data base keyed to ZIP code and date. The parameters contained in
the augmentation data base are temperature, relative humidity, elevation,
local relief (surface landform), name of location, population count, popu-
lation density, and climatological data source.
The second goal was to provide CTAB with software that reads ZIP
code and date from a standard-format in-use file, fetches data from the
augmentation file, and adds the data to the in-use file. Augmentation of
seven files supplied by the CTAB was also to be performed.
In-depth information about the in-use fuel economy data is not
provided in this report.
-------
The third goal was to analyze the augmentation data base and
determine a small set of regions of common vehicle exposure, using topo-
graphy and winter and summer climatology as the key parameters.
1.2 PROBLEMS ENCOUNTERED
Although data were found for all augmentation parameters, the
following problems were encountered in incorporating the different in-use
data bases into one augmented data base:
• Augmentation- data formats. Most of the data used for
augmentation were not in a form that was machine-
readable. Except for temperature data, keypunching
into the computer was required.
• In-use data format. The data base provided by 0, D.
Power was in column-binary format—a most inconvenient
method of data coding that requires special computer
handling.
• Unwieldy data size. All required meteorological and
population data, and most topographical data, are on
computer tapes, but so numerous—4,500 tapes—that the
computer processing would have been prohibitively costly,
a Data base limits. The FORD-data base offered only tele-
phone area code as a location parameter, one found too
gross for determining population, climate, or topography.
ZIP-code data for the 10,630 subject vehicles in the
J.D.POWERi_data_base were obtained from the mailing
labels for 'the questionnairesT"
T.3 ACCOMPLISHMENTS
By making simplifying assumptions,. TSC collected and compiled sufficient
data for the data base augmentation, without having to perform undue computer
processing. A portable FORTRAN computer language subroutine called GTDATI was
developed to extract data from the file on the basis of the ZIP code or tele-
phone area code, and month "provided. These, data, along with fuel economy
-------
information and vehicle description, are written in a uniform format to a
file, using a subroutine called DATOUT. A program called AUGMENT reads
data from a standard format and uses GTDATI and DATOUT to create a stan-
dard output file.
Reformatting the different data bases (GM75, GM76, FORD79, FE.EF79,
FE.HS79, FE.LA80 and J.D.POWER) involved the writing of six different
computer subroutines (FE.HS79 and FE.EF79 have the same format) and use
of the GTDATI routine to create a single data file of augmented, in-use
fuel economy, in a standard format.
The J.D.POWER data base was converted to be readable by most
computers. From the mailing labels, ZIP codes were determined and merged
with J. D. Power data. Department of Energy (DOE) motor vehicle codes
were appended to the J. D. Power data, thus providing ready access by
the DOE in-use fuel economy system.
The 872 different ZIP codes were reduced to 24 vehicle exposure
i
regions that are parameterized by topography and winter and summer
climatology.
1.4 RECOMMENDATIONS
The augmentation data base can be improved by adding 1980 census
data, either by aggregating over ZIP code or by copying data from city
and county demographic data books. Also, certain sections of the country,
including parts of Wyoming and Montana, are underrepresented with meteoro-
logical data.
-------
The vehicle exposure regions provide mainly descriptions that
might not adequately explain statistical differences in in-use fuel
economy. A complete statistical discriminant analysis or decision-tree
analysis should be performed on the fully augmented data bases to deter-
mine whether the meteorological and topographical parameters help explain
differences in fuel economy that cannot be explained by vehicle charac-
teristics or driving habits alone.
The augmentation data describe the average exposure conditions
observed during in-use fuel economy data collection. Since the actual
meteorological conditions under which the fuel economy data were collected
cannot be determined easily, data should be used only in comparison with
similar data taken from the augmentation files.
It is strongly suggested that every effort be made to get the ZIP
code for the vehicle owner in future in-use fuel economy surveys, This
will allow the best possible use of the augmentation data base.
-------
2, CONSTRUCTION OF THE TOPOGRAPHICAL AND METEOROLOGICAL FILES
After discussions with the CTAB staff about the use of the augmented
data to be provided to them, TSC made some simplifying assumptions regard-
ing the augmentation. The major assumption is that the data provided are
typical of the population centers in that area covered by the first three
digits of a ZIP code. Using this assumption, elevation data at city hall
were selected if a city was completely contained within one ZIP code (e.g.,
Los Angeles, 900). The second assumption is that the monthly average ob-
served meteorological conditions are adequate for describing a vehicle's
exposure to the climate, an assumption that allows predictions about
future-year fuel economy as well as adequately relating to information
from a fuel economy survey.
As will become apparent in the following sections, these assump-
tions allowed us to derive adequately accurate data, using summary
information usually available on maps or in publications. To summarize
the huge amount of information contained in the basic data would have
required at least 50 times more time and money,
2.1 KEYING THE DATA BY MONTH, ZIP CODE, AND TELEPHONE AREA CODE
There are 872 three-digit ZIP codes (the first three numbers in
the five-digit code) excluding American Samoa and the military or govern-
ment ZIP codes. The area covered by the three-digit ZIP code of a
vehicle owner's address would likely cover the local vehicle-exposure
conditions. Exceptions could occur with vehicles commonly driven outside
-------
the owner's ZIP-code area. The three-digit ZIP code thus becomes our
primary index. The location names (i.e., city names) corresponding to
three-digit ZIP codes were determined from the U.S. Postal Service 1979
ZIP Code Directory.
When the ZIP code was not in a fuel economy data base, a telephone
area code usually was. Since 110 area codes are currently in use (as
opposed to 872 ZIP codes), the area code is of insufficient resolution for
accurately locating topographical or meteorological data. TSC has assigned
each area code a single associated ZIP code, selected by population weight-
ing alone. Thus, the most populated three-digit ZIP code in a telephone
area code will be assigned to a vehicle record that has only an 'area code
as an index. For example, the entire state of Utah has a single area code,
801, so that any vehicle with an area code of 801 would be given a ZIP
code of 840 for Salt Lake City, By necessity, this ignores a rural/urban
split (i.e., average of Utah is not Salt Lake City),,
The month has been designated the secondary, temporal index, It is
used to locate the specific average meteorological variables. The meteoro-
logical data comprise 30-year averages for 254 meteorological sites, Each
ZIP code has been assigned a meteorological site according to that siteks
location either in the ZIP code or in a bordering ZIP code. Two ZIP codes,
one in southwestern Oregon and one in the Mojave Desert of California, had
two meteorological sites. In each area, one site was in the mountains and
the other in an urban area. The urban site was used for the augmentation.
Los Angeles (900) has two meteorological sites, one downtown and the other
-------
at International Airport, which is on the coast. The downtown site was
used for ZIP 900; the airport site was used for the coastal ZIP codes in
its vicinity.
2.2 POPULATION DATA
Two types of population data were required for the augmentation
data base—population count and population density (population count per
square mile). The source of these data ts the 1970 U.S. census adjusted
for 1975.
Population data by city and county are available from the Census
Bureau in summary form in Population Data, PHC Series 1. The Census
Bureau has also compiled, for each state, demographic data for each ZIP
code, on 250 computer tapes. The cost of purchasing and processing so
many tapes was beyond the scope of this task,
TSC used population data for each city with unique three-digit ZIP
codes. When this technique was not feasible, we aggregated population data
from all those counties contained in a three-digit ZIP code. This method
of obtaining the population data yields only approximations of the popula-
tion for the ZIP codes, since the three-digit codes and most small towns,
small cities, and counties do not have the same borders. (ZIP codes and
census tracts are derived using separate political and geographical con-
siderations and cannot be expected to have congruent boundaries.) The amount
of time and money allocated to gathering population data was not adequate to
do as thorough a job as we desired. Although the population data are meant
to be representative of the three-digit ZIP code, aggregation of ZIP-code
population data presented in the data base should be made cautiously. A
-------
8
variable indicating how the population data were obtained is included in
the augmentation data set.
As another caution, we point out that the EPA-furnished fuel
economy surveys were taken in the late 1970s and no attempt has been made
to account for population changes since the 1975 approximations made by
the Census Bureau. Population data of a ZIP code, therefore, should be
used carefully and only with relation to other ZIP codes in the data base.
2.3 TOPOGRAPHIC DATA
Two types of topographic data were required for the augmentation
data base: elevation and surface landform (defined below), both of which
were chosen to be typical of the population center rather than a maximum,
minimum, or average of the general area for the three-digit code. For
example, the area for a three-digit code might encompass Mount Whitney,
which is both unpopulated and extremely different in both elevation and
landform from the surrounding population centers, and hence would not
offer representative values for either data type.
By concentrating on population centers we were able to obtain
approximate topographical data. The primary source of topographic data
is the United States Geological Survey, Besides paper maps, they offer
64-square-mile digitized maps on computer tape for two-thirds of the 48
contiguous states. This data base of approximately 3,000 tapes, 10 maps
per tape, will give accurate elevation profile data. By applying appro-
priate algorithms and a great amount of computer time, a better estimate
of surface landform and elevation could be derived for each threes-digit.
ZIP code. It was decided, however, that this method costs much more than
the contract funds would allow.
-------
Elevation is reported in feet and is usually the elevation of city
hall or a meteorological station (usually an airport) within the area
covered by the three-digit ZIP code, A few elevations had to be taken
from United States Geological Survey maps.
Surface landform is a measure of local surface character, e.g,,
hilly, flat, rather than elevation. These data were derived from Edwin H.
Hammond's maps in the U.S. Geological Survey's National Atlas of the United
States of America, sheets 61 and 62. If multiple surface landforms appeared
in the area covered by a three-digit ZIP code, the single most prevalent
surface landform in the area of a population center was chosen. Table 2,1
gives the breakdown of each of the three-digit alphanumeric codes used in
the database. Table. 2.2 lists the most common combinations,
2.4 METEOROLOGICAL DATA
Two types of meteorological data are given fn the data base:
temperature and humidity. Both types are monthly averages taken over 30
years of observations. Temperature, in degrees Fahrenheit, TS given as
three different values: average maximum temperature, average minimum
temperature, and average temperature. These values are described by the
National Weather Service as climatic normals,
Two values of humidity are given as average percent relative
humidity: morning and afternoon. Relative humidity is expressed as a
percentage measure of the amount of moisture in the air compared with the
maximum amount of moisture the air can hold at the same temperature. The
maximum values for relative humidity usually occur during early-morning
hours; the minimum values, in the afternoon.
-------
10
TABLE 2.1 SCHEME OF SURFACE LANDFORM CLASSIFICATION*
Slope (first Letter)
A More than 80% area gently sloping (8% slope or less)
B 5C%-801 of area gently sloping
C 20%-50%-of area gently sloping
D Less than 20% of area gently sloping
Local Relief (numeral)
1 0-100 foot difference**
2 100-300 foot difference
3 300-500 foot difference
4 500-1000 foot difference
5 1000-3000 foot difference
6 Over 3000 foot difference
Profile Type (second letter)
A More than 75% of gentle slope is in lowland
B 50%-75% of gentle slope is in lowland
C 50%-75% of gentle slope is on upland
D More than 75% of gentle slope is on upland
Taken from sheet 62 of the U.S. Geological Survey's National Atlas of the
United States of America, published in 1978.
f £t£
Difference refers to the number of feet between minimum elevation and
maximum elevation.
-------
11
TABLE 2.2 CLASSES OF SURFACE LANDFORM
Class Description
Al Flat plains
A2 Smooth plains
Bl Irregular plains, slight relief
B2 Irregular plains
B3C, B3D Tablelands, moderate relief
B4C, B4D Tablelands, considerable relief
B5C, BSD Tablelands, high relief
B6C., BSD - ~ - - Tablelands, very high relief _ ,
ASA, A3B, B3A7~B3B'~ ' Plains with hills
B4A, B4B Plains with high ..hi Us
B5A, B5B Plains with low mountains
B6A, B6B Plains with high mountains
C2 Open low hills
C3' Open hills
C4 Open high hills
C5 Open low mountains
C6 Open high mountains
D3 Hills
D4 High hills
D5 Low mountains
'D6 High mountains
Descriptions are those listed in the "Classes of Land-Surface Form"
legend on sheet 62 of the U.S. Geological Survey's National Atlas of the
United States of America, published in 1978.
-------
12
The source of the meteorological data is Comparative Climatic Data,
published by the Department of Commerce. The 254 meteorological sites
include all the major population centers, ZIP codes that could not be
matched exactly with a meteorological site were matched with the nearest
meteorological site. A six-digit site code is given with each ZIP code.
More detailed data, namely, hourly observations, can be obtained
from the National Climatic Center on tape for approximately 1,000 sites
from 1948 to 1978. Because averages were deemed sufficient for this
project, we concluded that only marginally better information would be
obtained by purchasing and processing extra meteorological tapes.
-------
13
3. AUGMENTING TN-USE FUEL ECONOMY'DATA ABASES
This chapter describes the two FORTRAN subroutines, GTDATI and
DATOUT, used to fetch augmentation data from the meteorological and topo-
graphical data bases, and how these routines were used to augment seven
in-use fuel economy data bases and create a single, augmented data file.
The program AUGMENT, which creates an augmented file from a standard
input format, is also described, in Section 3,2.
3.1 AUGMENTATION SUBROUTINES
As part of the deliverables for this contract, TSC developed two
FORTRAN subroutines to read the to-be-augmented FE files and the augmen-
tation data files and to write an output file with a single format. The
subroutine called GTDATI is used to read two augmentation files, MET,FILE
and TOPO.FILE. The format of these files is given in Appendix A, MET.FILE
contains the twelve monthly averages of the five meteorological parameters
discussed in Section 2.4 for each of• the 254 meteorological sites, TOPO.FILE
gives the location, elevation, surface landform, population, population
density, meteorological site, and vehicle exposure region for each of the
ZIP codes and telephone area codes.
GTDATI takes ZIP code or area code and month from the calling
routine and returns the appropriate meteorological and topographical data
to the calling routine; more details can be derived from the subroutine
listing in Appendix B. The GTDATI subroutine reads the two computer files
MET.FILE and TOPO.FILE into the program memory the first time this subroutine
-------
is called; the validity of the ZIP code or area code and the month is
determined; and the appropriate data are returned to the calling program.
A sample main program called FETCH has been provided with 6TDATI.
This program queries the terminal user for ZIP code, area code, and month,
and prints out the appropriate augmentation data. It allows manual look-
up of augmentation data for general use rather than mechanized augmentation
of large data bases.
DATOUT takes the vehicle and fuel economy information from the
in-use fuel economy data file, and the augmentation data, and writes the
combined information to an augmented file,in a single format. The source
listing of DATOUT is given in Appendix B; the output format is given in
Appendix C. DATOUT is a simple subroutine that only writes data,
3.2 MAIN AUGMENTATION PROGRAM
TSC was required to deliver an augmentation program that takes ZIP
code and month from a standard input format and creates an augmented file
having a standard output format. The program, AUGMENT, is listed in
Appendix B, The standard input format is given in Appendix C,
This program simply reads an input file that is in standard format,
uses GTDATI to obtain the augmentation data, and uses DATOUT to write
the augmented output file in a standard format, The input format is almost
identical to similar areas of the output format.
Since each of the data files that TSC was to augment had different
input formats, we used a program other than AUGMENT, That program, XFORM,
is listed in Appendix D« It contains examples of how- both GTDATI and
DATOUT are used.
-------
15
3.3 IN-USE FUEL ECONOMY DATA BASES
CTAB supplied TSC with seven in-use fuel economy data bases: GM75,
GM76, FORD79, FE.EF79, FE.HS79, FE,LA80, and J.D.POWER, Appendix E con-
tains formats for the seven data bases.
With the exception of the J, D, Power data, the data files offered
only minor problems to the augmentation process. The most serious problem
was the incompleteness of the data files with respect to the required
variables in the output file. TSC filled in as much of the missing data
as possible and feasible within contractual obligations and time limits,.
The J. D. Power data were furnished TSC in column-binary format,
which required extensive preprocessing before data augmentation could be
done. ZIP-code information had to be purchased separately from J, D, Power
before any data augmentation could be performed, A modified version of
the J. D. Power data in standard computer format is provided as a separate
file on the computer tape delivered to CTAB; the changes in format are
given in Appendix F. The J.D.POWER format was compiled by Energy and
Environmental Analysis, Inc. (EEA) for CTAB, under a previous contract
and is too lengthy to be included in this report.
3.4 THE AUGMENTED IN-USE FUEL ECONOMY DATA BASE
The result of augmenting the seven files discussed in the previous
sections is an output file of 27,454 records. The breakdown of that
number by separate file is given in Table 3.1, The record format of the
output file is given in Appendix C.
-------
16
TABLE 3.1 NUMBER OF IN-USE FUEL ECONOMY DATA RECORDS
IN THE AUGMENTED DATA BASE
Source File Number of Records File Number
3
1
4
5
2
6
7
GM75
GM76
FORD79
FE.EF79
FE.HS79
FE.LA80
J.D. POWER
OUTPUT
2,600
2,123
11,655
222
158
66
10, £30
27,454
-------
17
The available data for each vehicle have been translated into a
single set of codes used by CTAB (i.e., manufacturer codes in the differ-
ent files have been translated into standard Certification Division manu-
facturer codes). When data could not be obtained from an input record, a
missing-value code was entered in the appropriate area of the output
record. The translation codes or algorithms are listed with the file
formats in Appendix E.
-------
18
4. VEHICLE EXPOSURE REGIONS
The following sections detail the process of using topographic and
meteorological data parametrically to form 24 distinct regions of similar
vehicle exposure. The EPA allowed TSC the discretion of breaking states
into smaller regions, since the political boundaries of the states tend to
occur at major geographical features (e.g., the Ohio River), even though the
topography and climate can be the same on both sides of those features.
Twenty-four regions were considered to give a reasonable compromise of details
for describing the vast and varied topography and climate found in the United
States. A smaller number of regions could be made by combining some of these
24 regions, but the meteorological and topographical information would be lost.
4.1 PARAMETERS AND METHODOLOGY
The parameters used to determine the vehicle exposure regions were
surface landform, elevation, average summer temperature, average winter
temperature, average summer-morning humidity, average summer-afternoon
humidity, average winter-morning huTnidity, and average winter-afternoon
humidity. Summer values are averages of the June, July, and August
monthly averages, and winter values are the averages of the December,
January, and February monthly averages.
All data were taken from the topographical and meteorological data
base for each ZIP code. Governmental and military ZIP codes were not used
in the analysis. Since the data for each ZIP code were determined with
respect to the most likely occurrence at population centers within the
-------
19
geographical bounds of that ZIP code, aggregation of exposure regions did
not take into account topographic extremes (e.g., Death Valley), unless they
were population centers.
To determine the best way to group ZIP codes into similar topographic
and climatic regions, standard statistical techniques, i.e,, frequency
distributions and cross tabulations, were used, together with judgments made
by the author. The specific step-by-step procedure is outlined in the
following paragraphs. In general, each of the parameters listed at the
beginning of this section was broken down into small cells having similar
characteristics and equal frequencies of occurrence; the cells were then com-
bined into three "super-parameters": topography, temperature, and humidity.
Each of these super-parameters was in turn broken into small cells having
similar characteristics. Vehicle exposure regions were determined from
the combinations of these super-parameters, with judgment and geography
employed to merge regions with low frequencies of occurrence or physically
remote occurrences with other regions.
Elevation data were broken into the nine cells shown in Table 4,1.
Surface landform was also broken down into the same nine cells. (NOTE:
Open plains with hills includes all the varieties of open plains with low
hills and open plains with high hills.) The possible 81 combinations of
elevation and surface landform were joined into a single super-parameter
called topography, which has the seven cells described in Table 4,1.
A similar process was performed to create the temperature and humid-
ity super-parameters. Temperature has five cells; humidity, three. The
cells for each are also listed in-Table 4,1.
-------
20
TABLE 4.1 DESCRIPTION OF THE SUPER-PARAMETERS
SURFACE UNO FORM
Smooth plains
Irregular plains
Irregular plains with relief
Tablelands
Plains with hills
Plains with mountains
Open hills
Open mountains
Hills and mountains
Elevation, in feet
o
un
CM
1
o
1
2
2
4
6
6
6
6
6
0
0
LO
1
IT)
CM
1
2
2
4
6
6
6
6
6
0
LO
1 —
1
r.
0
uo
1
2
2
4
6
6
6
6
6
o
<->
a
,_-
in
r»-
i
2
2
4
6
6
6
6
6
a
un
CM
i
o
o
1—1
3
3
3
5
7
7
7
7
7
o
0
un
i
LO
CM
r~
3
3
3
5
7
7
7
7
7
a
0
un
C\J
i
0
LO
r—
3
3
3
5
7
7
7
7
7
S
o
LO
O
LO
CM
3
3
3
5
7
7
7
7
7
o
o
o
LO
A
3
3
3
5
7
7
7
7
7
TOPOGRAPHY
Cell
Number Description
1 Smooth plains <1000 feet
2 Irregular plains <1000 feet
3 Plains >1000 feet
4 Tablelands <1000 feet
5 Tablelands >1000 feet
6 Hills and mountains with associated elevation <_1000 feet
7 Hills and mountains with associated elevation >1000 feet
TEMPERATURE
Description
Cool summer, freezing winter
Cool summer, nonfreezing winter
Moderate summer, freezing winter
Definition
Average summer
Average winter
Average summer
Average winter
Average summer
Average winter
Moderate summer, nonfreezing winter Average summer
Average winter
Hot summer, nonfreezing winter
Average summer
Average winter
temperature <70°F
temperature <33°F
temperature <70°F
temperature >32°F
temperature >70°<80°F
temperature <33°F
temperature >70°<80°F
temperature >32°F
temperature >80°F
temperature >32°F
HLMIDITY
Description
Low humidity
High humidity
Mixed humidity
Definition
At least three average humidities
in lower quartile range
At least three average humidities
in higher quartile range
All the remaining combinations
-------
21
Out of a possible 105 combinations, 79 resulted from the grouping
of the three super-parameters. Many of these combinations contained
less than six three-digit ZIP codes. These "unique" combinations were
merged with combinations that had a larger number of ZIP codes but were
judged to be "close enough" in geographical location and similarity of
parameters. Such a judgment was made for each ZIP code that fell into
"unique" combinations. The final result was the 24 regions of similar
vehicle exposure, vehicle exposure regions, described in the following
section.
4.2 DESCRIPTIONS OF THE 24 VEHICLE EXPOSURE REGIONS
Regions 1 through 23 completely cover the 48 contiguous states and
Alaska; region 24 contains Hawaii, Puerto Rico, and the Virgin Islands.
Tables 4.2 through 4.25 contain statistical information (mean, standard
deviation, minimum, median, and maximum) on the elevation, temperature,
and humidity of each of the vehicle exposure regions. Tables 4.2 through
4.24 include a figure with points indicating the geographical placement of
the ZIP codes within each region.
Each table lists the variety and frequency of each surface landform
considered in the region, as well as how many of a stateKs ZIP codes are
listed in each region. The surface landform description on each table gives
the most frequent surface landform or the most frequent combination of
surface landforms in the region. Twelve separate states or territories
are completely encompassed by a single region. Three states, Virginia,
Missouri, and New York, are broken into seven regions. Most of the states
are divided into as many as three separate regions.
-------
22
TABLE 4.Z DESCRIPTION OF TOPOGRAPHY AND METEOROLOGY IN REGION 01
SURFflCE LRND FORM
STRTE RK 3. MR 4. ME 6, NH 1. NY 4
R2B 3. B2B 15
IRREGULRR PLRINS. SLIGHT RELIEF
ELEVRTION CFEET)
RVERRGE SUMMER TEMP.
RVERRGE WINTER TEMP.
SUM. MORN. HUMIDITY
WIN. MORN. HUMIDITY
SUM. RFTN. HUMIDITY
WIN. RFTN. HUMIDITY
MERN
167.167
65.222
79.389
75.333
57.222
63.944
STD OEV
166.751
4.453
8.597
4.692
.325
.981
3.
2.
MINIMUM
12.000
56.000
-7.000
67.000
65;000
4.709
47.
57.000
MEDIRN
78.000
65.500
23.333
80.864
76.500
57.833
61.750
MRXIMUM
453.000
69.000
29.000
89.000
78.
60.000
71.
-------
23
TABLE 4.3 DESCRIPTION OF TOPOGRAPHY AND METEOROLOGY IN REGION 02
SURFRCE LflNO FORM
STRTE Mfl 5. MD 8. NJ 11. NY B
fl2B 11. B2B 6. 82C 6. fll- 7
SMOOTH PLfllNS
MERN
ELEVRTION CFEETD 57.767
RVERRGE SUMMER TEMP. 73.333
RVERRGE WINTER TEMP. 32.367
SUM. MORN. HUMIDITY 74.733
YIN. MORN. HUMIDITY 70.567
SUM. RFTN. HUMIDITY 53.267
WIN. RFTN. HUMIDITY 57.567
STD DEV
40.756
1.516
.351
3.912
081
760
MINIMUM
6.000
70.000
30.000
72.000
65.000
0.504
52.
57.000
MEDIRN
44.000
73.600
32.333
72.765
72.125
52.731
57.618
MRXIMUM
152
74
000
000
34.000
81.000
73.000
57.000
58.000
-------
24
TABLE 4.4 DESCRIPTION OF TOPOGRAPHY AND METEOROLOGY IN REGION 03.
SURFRCE IRND FORM
R2C 1. 81C 1, B2C 19. Rl- 18
PLRINS
STRTE CR 10. DC 1. IL 1. KY 3. MO 1. MO 1. NC 8. TN 1. Vfl 13
MERIM
ELEVRTION CFEET) 183.154
flVERRGE SUMMER TEMP. 76.128
RVERRGE WINTER TEMP. HI.359
SUM. MORN. HUMIDITY 73.837
WIN. MORN. HUMIDITY 77.538
SUM. RFTN. HUMIDITY 49.974
WIN. RFTN. HUMIDITY 58.487
STO DEV
171.033
.821
.258
2.
4.
20.268
5.139
14.366
5.581
MINIMUM
10.000
64.000
33.000
33.000
57.000
21.000
47.000
MEDIRN
79.750
76.176
40.750
84.125
79.083
57.250
57.583
MRXIMUM
493.000
81.000
H9.000
90.000
84.000
69.000
67.000
-------
25
TABLE 4.5 DESCRIPTION OF TOPOGRAPHY AND METEOROLOGY IN REGION 04
SURFRCE LRNO FORM R2B 2. 828 19. B4B 1. C2B 1. B2C 16. C2C 2, Rl- 60
FLRT PLRINS
STRTE RL 8. RR 7. FL 18. Gfl 12. LR 13. MS 12. SC 6. TN 3. TX 22
MERN STD DEV
ELEVRTION CFEET) 168.950 137.845
RVERRGE SUMMER TEMP. 80.931 1.313
RVERRGE WINTER TEMP. 51.218 6.246
SUM. MORN. HUMIDITY 88.782 3.348
WIN. MORN. HUMIDITY 83.733 2.891
SUM. RFTM. HUMIDITY 58.733 3.789
WIN. RFTN. HUMIDITY 59.723 3.940
MINIMUM
2.000
78.000
41.000
80.000
78.000
50.000
53.000
MEDIRN
150.000
80.568
49.375
89.609
83.386
58.321
59.938
MRXIMUM
469.000
84.000
67.000
95.000
90.000
73,000
76.000
-------
26
TABLE 4.6 DESCRIPTION OF TOPOGRAPHY AND METEOROLOGY IN REGION 05
SURFRCE LflND FORM R2B 4, B2B 4, C3B i. B2C 10. fli- 12
PLRINS
STflTE DE 3, IL 1. IN 3, KY 4. MO 1. NJ 7, NY 7- PR 2
MERN
ELEVflTION CFEET) 214.032
RVERflGE SUMMER TEMP. 74.161
RVERflGE WINTER TEMP. 33.387
SUM. MORN. HUMIDITY 81.935
WIN. MORN. HUMIDITY 75.152
SUM. RFTN. HUMIDITY 57.290
WIN. RFTN. HUMIDITY 60.710
STD DEV
214.391
.864
.476
.802
.249
.466
1.
1.
4.
4.
2.
3.268
MINIMUM
13.000
72.000
30.000
75.000
68.000
54.
57.
MEDIRN
88.000
73.600
33.231
84.583
75.778
56.667
59.231
MRXIMUM
745.000
78.000
33.000
90.000
82.000
61.000
69.1
-------
27
TABLE 4.7 DESCRIPTION OF TOPOGRAPHY AND METEOROLOGY IN REGION 06
SURFRCE LRND FORM 82B 2. R2C It. B2C 13. C2C 1. Rl- 4
PLRINS
STRTE Ifl 6. IL 13. IN 10. MO 1. OH 4
MERN STO DEV MINIMUM MEDIRN MRXIMUM
ELEVRTION [FEET) 664.029 136.021 470.000 630.500 975.000
RVERRGE SUMMER TEMP- 72.618 1.371 70.000 73.000 74.000
RVERRGE WINTER TEMP. 27.382 2.570 19.000 26.500 30.000
SUM. MORN. HUMIDITY 84.500 1.237 83.000 84.500 87.000
WIN. MORN. HUMIDITY 79.912 0.830 76.000 80.017 81.000
SUM. RFTN. HUMIDITY 57.176 1.732 55.000 57.333 59.000
WIN. RFTN. HUMIDITY 68.941 1.254 67.000 68.833 73.000
-------
28
TABLE 4.8 DESCRIPTION OF TOPOGRAPHY AND METEOROLOGY IN REGION 07
SURFRCE LRND FORM
R2B 1. B2B 2. B2C 22. fli- 1
IRREGULRR PLRINS
STRTE RL 1. Gfl 6. NC 8, OK 6, SC 4, VR i
MERN
ELEVflTIDN CFEET] 983.385
RVERRGE SUMMER TEMP. 77.231
RVERRGE WINTER TEMP. 41.462
SUM. MORN. HUMIDITY 86.923
WIN. MORN. HUMIDITY 78.654
SUM. RFTN. HUMIDITY 56.962
WIN. RFTN. HUMIDITY 56.038
STD DEV
334.536
.632
.502
.058
.190
304
1.800
MINIMUM
490.000
74.000
37.000
82.000
72.000
52.000
52.000
MEDIRN
835.500
77.200
41.700
87.500
78.269
57.750
55.500
MRXIMUM
2094.000
80.000
48.000
90.000
84.000
61.000
58.000
-------
29
TABLE 4.9 DESCRIPTION OF TOPOGRAPHY AND METEOROLOGY IN REGION
SURFRCE LflNO FORM
R2B 4. B2B 13. R2C 4. B2C 5
IRREGULRR PLRINS
STRTE flR i. OK 7. TX 18
. HERN
ELEVRTION CFEET) 915.316
RVERRGE SUMMER TEMP. 82.692
RVERRGE WINTER TEMP. 46.385
SUM. MORN. HUMIDITY 82.423
WIN. MORN. HUMIDITY 78.269
SUM. RFTN. HUMIDITY 50.962
WIN. RFTN. HUMIDITY 56.577
STD OEV
560.271
.543
,109
.139
.933
831
3.890
MINIMUM
500.000
80.000
39.000
73.000
71.000
40.000
44.000
MEDIRN
676.000
83.214
46.786
83.071
79.000
52.300
57.875
MRXIMUM
2858.000
84.
53.
87.
81.
56.000
62. £
-------
30
TABLE 4.10 DESCRIPTION OF TOPOGRAPHY AND METEOROLOGY IN REGION 09
SURFRCE LRNO FORM R2B 10. B2B 33. 82C 2, fll- 5. B3B 1
IRREGULRR PLRINS
STRTE fll 13. MN 8. ND 3, NY 7, OH 6. PR 2. VI 12
MERN
ELEVRTION [FEET] 712.804
RVERRGE SUMMER TEMP- 67.980
RVERRGE WINTER TEMP. 21.137
SUM. MORN. HUMIDITY 83.216
WIN. MORN. HUMIDITY 77.725
SUM. RFTN. HUMIDITY 56.804
WIN. RFTN. HUMIDITY 69.922
STD DEV
132.193
1.827
.281
.792
.117
2.757
1.917
5.
1.
2.
MINIMUM
513.000
63.000
10.000
80.000
73.000
54.000
67.000
MEDIRN
672.500
68.353
23.600
83.094
77.667
56.125
69.464
MRXIMUM
1043.000
69.000
28.000
87.000
83.000
65.000
73.1
-------
31
TABLE 4.11 DESCRIPTION OF TOPOGRAPHY AND METEOROLOGY IN REGION 10
SURFRCE LRND FORM
R2B 7. 82B 2. R2C 8. B2C 27, fll- 7
IRREGULflR PLRINS
STRTE in 9, IL 12, IN 5, KS 8. KY 1, MI 3, MO 3, OH 7
MERN
ELEVRTION CFEET) 743.216
RVERRGE SUMMER TEMP. 73,216
RVERRGE WINTER TEMP. 27.314
SUM. MORN. HUMIDITY 82.392
WIN. MORN. HUMIDITY 77.255
SUM. RFTN. HUMIDITY 55.60s
WIN. RFTN. HUMIDITY 66.412
STD DEV
127.506
2.203
4.429
3.125
1.988
1.767
2.137
MINIMUM
500.000
70.000
19.000
76.000
74.000
50 . 000
61.000
MEDIRN
747.000
72.969
27.200
83.333
77.789
55.941
66.542
MRXIMUM
988.000
79.000
34.000
86.000
82.me
58.000
70.000
-------
32
TABLE 4.12 DESCRIPTION OF TOPOGRAPHY AND METEOROLOGY IN REGION 11
SURFRCE LRND FORM
STRTE MI 3. MN 6. ND 3. SD 1. VI 3
R2B 2. B2B 6, R2C 4, B2C 1. fll
IRREGULRR PLRINS
MERN
ELEVRTIDN CFEET) 1308.500
RVERRGE SUMMER TEMP. 66.125
RVERRGE WINTER TEMP. 13.375
SUM. MORN. HUMIDITY 83.688
WIN. MORN. HUMIDITY 75.625
SUM. RFTN. HUMIDITY 56.750
WIN. RFTN. HUMIDITY 69.875
STD DEV
163.832
.473
.161
.114
.579
328
2.187
MINIMUM
1038.000
62.000
6.000
77.000
73.000
47.000
67.000
MEDIRN
1346.000
67.167
12.000
84.667
75.250
55.500
69.500
MRXIMUM
.000
.000
1557.
69.
20.
88.
83.
63.000
75.000
-------
33
TABLE 4.13 DESCRIPTION OF TOPOGRAPHY AND METEOROLOGY IN REGION.12
SURFRCE IRNO FORM
R2B 6. B2B 3. R2C 2, B2C 12. fll- 3.
IRREGULRR PLRINS
R2- 1
STRTE IR 7- KS 6. MN 1. NE 9. 3D 4
MERNI
ELEVRTION CFEET) 1333.037
RVERRGE SUMMER TEMP. 74.222
RVERRGE WINTER TEMP- 23.889
SUM. MORN. HUMIDITY 82.481
WIN. MORN. HUMIDITY 78.333
SUM. RFTN. HUMIDITY 52.852
WIN. RFTN. HUMIDITY 65.481
STD OEV
237.643
. 736
.528
.101
.411
219
2.860
MINIMUM
1023.000
71.000
16.000
80.000
76.000
49.000
61.000
MEDIRN
1301.667
73.438
22.375
82.286
78.188
52.000
66.750
MRXIMUM
1932.000
79.000
33.000
86.000
81.000
58.000
69.000
-------
34
TABLE 4.14 DESCRIPTION OF TOPOGRAPHY AND METEOROLOGY IN REGION 13
SURFflCE LRNO FORM
B4R 2. C5R 4. 838
CSC 2. C4C 6. CSC
PLRINS WITH HILLS
li. B4B 5. C4B I. C5B 3. B4C 3.
1. 04- 1, D5- 3. D6- 1
STRTE flK 2. MR 7. ME 5. NH 8. NY 10. RI 2. VT 6. WV 3
MEflN
ELEVRTION CFEET) 100.372
flVERRGE SUMMER TEMP. 65.860
RVERRGE WINTER TEMP. 23.488
SUM. MORN. HUMIDITY 83.442
WIN. MORN. HUMIDITY 76.419
SUM. RFTN. HUMIDITY 58.372
WIN. RFTN. HUMIDITY 64.721
STO DEV
292.246
.068
,101
.503
,194
.665
4.
5.
5.
3.
5.
5.857
MINIMUM
23.000
47.000
6.000
75.000
72.000
54.000
57.000
MEDIRN
369.000
66.900
23.250
82.286
76.111
57.063
61.375
MRXIMUM
945.000
69.000
35.000
94.000
83.000
86.000
83.000
-------
35
TABLE 4.15 DESCRIPTION OF TOPOGRAPHY AND METEOROLOGY IN REGION 14
SURFRCE LRND FORM
B3R 5. B4R 4, 85fl 1. C5R 15.
LOW MOUNTRINS RND TRBLELRNDS
C3B 1, B3C 9, 05- 1. 06- 2
STflTE Cfl 25. OR 6. Wfl 7
ELEVRTION CFEET)
RVERflGE SUMMER TEMP-
RVERRGE WINTER TEMP-
SUM. MORN. HUMIDITY
WIN. MORN. HUMIDITY
SUM. RFTN. HUMIDITY
WIN. RFTN. HUMIDITY
MERN
195.553
63.500
47.000
66.474
72.789
58.684
67.684
STD DEV
373.163
3.152
6.555
6.829
10.395
11.060
6.882
MINIMUM
3.000
57.000
36.000
43.000
54.000
29.000
56.000
MEDIflN
92.167
62.500
49.167
67,100
76.045
60.500
66.500
MRXIMUM
1900.000
69.000
56.000
75.000
88.000
73.000
82.000
-------
36
TABLE 4.16 DESCRIPTION OF TOPOGRAPHY AND METEOROLOGY IN REGION 15.
SURFRCE LRNO FORM
B1R 3. BSfl 2, B6R 1,
BSD 1, D1- 3. D5- 1,
HILLS flND MOUNTRINS
C3fl 2. C5R 1. B5B 2, B1C 3.
06- 1. R3fl 1. R2B 1, R2C 6
STRTE Cfl 5. KY 3. NC 1, NM 12. OK 1. TN 2. TX 1. VR 3
MERN
ELEVRTION CFEET) 3263.853
RVERRGE SUMMER TEMP. 75.617
RVERRGE WINTER TEMP. 10.112
SUM. MORN. HUMIDITY 61.912
WIN. MORN. HUMIDITY 62.206
SUM. RFTN. HUMIDITY 12.588
WIN. RFTN. HUMIDITY 17.618
STD DEV
1793.931
2.509
5.611
26.370
15.681
16.101
10.591
MINIMUM
1050.000
71.000
37.000
18.000
13.000
13.000
31.000
MEDIRN
3116.500
7B.750
38.333
56.500
68.500
11.500
57.300
MRXIMUM
6976.000
79.
57.
96.000
85.000
62.000
63.1
-------
37
TABLE 4.17 DESCRIPTION OF TOPOGRAPHY AND METEOROLOGY IN REGION 16
SURFRCE LflND FORM 84R 5. C5R 8. B3B 16. 84B 1. C2B 4. C3B 6. C4B 3, B3C 16.
B2C 2. B1C 5. C2C 1. CSC 3. C4C 2, CSC 3. C3D 2. 03- 8. 04- 12. 05- 4
HILLS
STRTE CT 10, IN 2. KY 13, MR 1 . MD 4, MO 9. NJ 1. NY 13.
WV 7
ELEVRTION [FEET] .
RVERRGE SUMMER TEMP.
RVERRGE WINTER TEMP.
SUM. MORN. HUMIDITY
WIN. MORN. HUMIDITY
SUM. RFTN. HUMIDITY
WIN. RFTN. HUMIDITY
MEflN
72.505
30.218
81.881
75.386
55.455
62.178
STD OEV
290.812
.077
.565
.345
.010
MINIMUM
10.000
70.000
23.000
076
3.048
72.
65.000
52.000
57.000
OH 10. PR 29. VT 2,
MEDIRN
558.000
73.000
30.821
82.875
76.143
55.258
62.406
MflXIMUM
979.000
77.000
35.000
89.000
82.000
61.000
68.000
-------
38
TABLE 4.18 DESCRIPTION OF TOPOGRAPHY AND METEOROLOGY IN REGION 17
SURFflCE LRND FORM
B4R i. C5R 2. C3B 2. B2C
TRBLELRNIDS RND HILLS
1, B3C 3. C3C I. 04- 3
STRTE MN 1. Vfl 5, VI 3, WV 4
MERN STD DEV MINIMUM MEDIRN
ELEVRTION [FEET) 538.308 284.008 80.000 567.000
RVERRGE SUMMER TEMP. 71.923 1.801 68.000 72.778
RVERRGE WINTER TEMP. 28.846 7.669 16.000 32.833
SUM. MORN. HUMIDITY 87.154 2.794 81.000 87.917
WIN- MORN. HUMIDITY 78.615 1-660 75.000 79.000
SUM'. RFTN. HUMIDITY 57.538 1.450 54.000 57.571
WIN. RFTN. HUMIDITY 62.846 5.080 58.000 64,333
MRXIMUM
1112.
73.
35.000
90.000
80.000
59.000
73.
-------
39
TABLE 4.19 DESCRIPTION OF TOPOGRAPHY AND METEOROLOGY IN REGION 18
SURFRCE LRND FORM C5R 2. C5B 1. B3C 10. C1C 1. CSC 1. CIO 1. C5D 2.
01- 2. 05- i. D6- 2
TRBLELRNDS RND MOUNTRINS
STRTE ID 1. MT 1, NO 3. NY 1. PR 3. SO 1. VR 1. VT 1. WR 5. WV 6
MERN STO OEV MINIMUM MEDIRN MRXIMUM
ELEVRTION CFEET) 1611.391 179.970 636.000 1658.000 2372.000
RVERRGE SUMMER TEMP. 66.652 3.081 53.000 67.222 69.000
RVERRGE WINTER TEMP. 21.826 7.352 12.000 27.625 32.000
SUM. MORN. HUMIDITY 71.013 20.012 37.000 82.333 91.000
WIN. MORN. HUMIDITY 78.609 1.175 70.000 79.083 92.000
SUM. RFTN. HUMIDITY 50.261 13.512 27.000 57.000 65.000
WIN. RFTN. HUMIDITY 69.652 6.611 60.000 69.750 91.000
-------
40
TABLE 4.20 DESCRIPTION OF TOPOGRAPHY AND METEOROLOGY IN REGION 19
SURFRCE LRNO FORM
C5fl 4. B2B 1. B3B 1. C2B 3. C3B 2. C4B 2. C5B 1.
B3C 2. C3C 2. CUC 4.. CSC 1. BSD 3. BSD 2. C4D 2.
OPEN HILLS RND MOUNTRINS
STRTE IR 3. ID i. KS 2.
yn 2
MR 1. MO 5. MT 1. NJ 1. OH 2. OR 1. PR 10. SO 1. VR 1,
MEflN STD DEV MINIMUM MEDIRN
ELEVRTION CFEET) 1341.613 344.773 1000.000 1303.333
RVERRGE SUMMER TEMP. 72.419 2.754 70.000 71.333
RVERRGE WINTER TEMP. 29.774 4.924 16.000 29.250
SUM. MORN. HUMIDITY 76.452 16.745 37.000 83.688
WIN. MORN. HUMIDITY 76.484 2.204 70.000 76.444
SUM. RFTN. HUMIDITY 51.267 9.336 26.000 55.136
WIN. RFTN. HUMIDITY 64.233 4.384 55.000 S4.S25
MRXIMUM
2363
000
79.000
36.000
88.000
81.000
57.000
72.000
-------
41
TABLE 4.21 DESCRIPTION OF TOPOGRAPHY'AND METEOROLOGY IN REGION 20
SURFRCE LflND FORM
B5R 7- B6R 1. 838 1, B5B 1. C4B i. C6B 1. B3C 2.
04- i. 05- i
PLRINS WITH HIGH HILLS
STRTE RR 2. RZ 6. NV 2. TX 6
MERN STD DEV
ELEVRTION (FEET) 2003.438 997.493
RVERRGE SUMMER TEMP. 84.063 3.108
RVERRGE WINTER TEMP. 48.063 4.509
SUM. MORN. HUMIDITY 47.000 27.432
WIN. MORN. HUMIDITY 53.188 18.641
-SUM. RFTN. HUMIDITY 31.625 15.832
WIN. RFTN. HUMIDITY 38.875 12.759
MINIMUM
1027
000
80.000
41.000
19.000
37.000
14.000
28.000
MEDIRN
1407.500
84.167
46.250
30.500
42.000
25.500
30.500
MRXIMUM
3917.000
88.000
53.000
87.000
81.000
54.000
58.000
-------
42
TABLE 4.22 DESCRIPTION OF TOPOGRAPHY AND_METEOROLOGY IN REGION 21
SURFRCE LRND FORM R2R 1, B5R 2. B6R 1, C5R 1. CSR 3. B3B 5. BIB 1.
B5B 1. CBB 1. B2C 2. B3C 1. B1C 1. B5C 1. B6C 1. 05- 3. 06- 1
PLRINS WITH HILLS RNO MOUNTRINS
STRTE RZ 3. CO 1. ID 3, MT 8. NV 5. 3D 1, WV 2. WY 12
ELEVflTION [FEET) 1832.921 1197.269
RVERRGE SUMMER TEMP. 65.812 2 099
RVERflGE WINTER TEMP. 26.132 1 117
SUM. MORN. HUMIDITY 39.181 12>72
WIN. MORN. HUMIDITY 59.526 11.001
SUM. RFTN. HUMIDITY 32.658 8 681
WIN. flFTN. HUMIDITY 56.263 8 215
MINIMUM
2180.000
61.000
15.000
26.000
10.000
21.000
11.1
MEDIRN
1697.500
66.389
25.667
35.900
59.071
32.500
56.900
MflXIMUM
7711.1
69.!
31.000
89.000
80.000
60.000
75.000
-------
43
TABLE 4.23 DESCRIPTION OF TOPOGRAPHY AND METEOROLOGY IN REGION 22
SURFflCE LRNO FORM
B5R 2. B6R 6. 838 2. C6B 1, R2C 2. B3C 2.
CSC 2. CSC 1. CBC 1. D6- 5. B2B 5. B2C 2
PLRINS WITH MOUNTRINS
B4C 3.
STRTE RZ 2. CD 13. ID 2. KS 3. NE 4, NM 1. OR 3. UT 7
ELEVRTION CFEET)
RVERRGE SUMMER TEMP.
RVERRGE UINTER TEMP.
SUM. MORN. HUMIDITY
WIN. MORN. HUMIDITY
SUM. RFTN. HUMIDITY
WIN. RFTN. HUMIDITY
MEfiN
4312.343
71.
30.
.657
.743
39.857
60.200
30.543
55.457
STD DEV
1095.813
2.754
2. BBS
17.990
13.315
9.793
8.269
MINIMUM
2480.000
64.Z00
23.000
24.000
42.000
18.000
41.000
MEDIRN
4333.750
70.625
31.542
35.875
60.375
29.000
55.063
MRXIMUM
6520.000
77.000
38.000
84.000
86.000
51.000
68.000
-------
44
TABLE 4.24 DESCRIPTION OF TOPOGRAPHY AND METEOROLOGY IN REGION 23
SURFRCE LflND FORM
B3fl B. B4R 18. C3H 3. C4fl 4. C5FI 3. B3B 4, C3B 2.
MB 1. 82C 1. B4C 2. C3C 3
PLRINS WITH HILLS
STRTE RL 10, RR 4. CR IB, Gfi 1. MO 2. OK 3. TN 9, Vfl 3
ELEVRTION (FEET)
RVERRGE SUMMER TEMP.
flVERRGE WINTER TEMP.
SUM. MORN. HUMIDITY
WIN. MORN. HUMIDITY
SUM. RFTN. HUMIDITY
WIN. RFTN. HUMIDITY
75.
MEflN
537.229
.438
,125
.625
.563
.333
77.
70.
56.
56.917
STD
257,
3
7
14
13,
2
DEV
813
MINIMUM
542
270
028
571
5.511
13.
70
37
56,
50,
53
000
000
000
000
000
MEDIRN
607.833
,167
167
,700
.864
50.000
77.
42.
86.
78.
55.875
59.577
BSD 1,
MRXIMUM
907.000
80.000
57.000
90.000
83.000
60.000
65.
-------
45
TABLE 4.25 DESCRIPTION OF TOPOGRAPHY AND METEOROLOGY IN REGION 24
SURFRCE LRND FORM 86R 2. --- 4
PLfllNS WITH HIGH MOUNTRINS
STRTE HI 2. PR 3. VI 1
KERN STD DEV
ELEVRTION CFEET) 64.667 70.509
RVERRGE SUMMER TEMP. 79.833 2.401
RVERRGE WINTER TEMP. 73.833 1.835
SUM. MORN. HUMIDITY 76.167 5.529
WIN. MORN. HUMIDITY 79.500 1.225
SUM. RFTN. HUMIDITY 63.000 5.101
WIN. RFTN. HUMIDITY 63.500 2.345
MINIMUM
16.000
75.000
71.000
65.000
77.000
52.
61.
tIEDIRN
41.833
80.750
74.750
78.000
79.700
65.000
63.000
MRXIMUM
207.000
81.000
75.000
80.000
80.000
66.000
68.000
-------
A-l
Appendix A
AUGMENTATION DATA FORMATS
TABLE A.I TOPO.FILE FORMAT
VRRIflBLE FORMflT COLUMNS DESCRIPTION
STBTEM) 4fl4 1- 16 NRME OF THE STflTE
CITY(6) 6fl4 17- 40 NflME OF THE LOCflTION
ZIP 13 41- 43 FIRST THREE DIGITS OF THE ZIP CODE
BRER 13 46- 48 TELEPHONE RRER CODE
ELEV 18 49- 56 ELECTION
TOPOC3) 3R3 57- 65 SURFRCE LRNDFORM
POP 110 66- 75 POPULRTION COUNT
OENSI 110 76- 85 POPULflTION DENSITY
CENSUS 110 86- 95 POPULRTION SOURCE
1 - BOTH (POP. TOTRL HND POP. DENSITY)
VflLUES RRE FOR CITY (1975)
2 - BOTH VRLUES RRE FOR COUNTY IN UHICH THE
CITY IS LOCRTED (1975)
3 - TOTRL POP. = CITY (1970)
POP. DENSITY - COUNTY (1975)
4 - SHSfl ORTR (1975) HRD TO BE USED
NO OTHER DRTfl UHS RVRILRBLE
5 - NO CITY NfltlE
USED COUNTIES (1975) UITH CORRESPONDING
ZIP
6 - NO CITY NflriE
USED (1970) CITIES UITH
CORRESPONDING ZIP RND USED COUNTY POP
DENSITY FIGURES (1975)
ST R2 97- 98 STflTE RBBREVIRTION
MET 17 99-105 IIETEOROLOGICRL SITE NUMBER
(CORRESPONDS TO METSTR IN flET.FILE)
RZIP 14 106-109 THE ZIP CODE THRT RN flREfl CODE MflPS TO
TYPE 12 110-111 REGIONRL ZIP COOE=2, CITY ZIP CODE=1
REGION 13 112-114 VEHICLE EXPOSURE REGION
TABLE A.2 MET.FILE FORMAT
VRRIRBLE
TYPB
tIETSTH
UBRN
STRT
LOCRT(S)
DRTR (12)
FORMflT
R2
16
16
R2
5R4
1214
COLUMNS
1- 2
3- 8
9- 14
16- 17
19- 38
40- 87
DESCRIPTION
METEOROLOGICRL VRRIRBLE TYPE
ci=rmx TEMP,c2=MiN TEnp,c3=RVE TEHP
Hl=fln HUniDITY,H2=PH HUHIDITY
CLIMRTIC HETEOROLGICRL SITE NUMBER
UEBTHER SITE NUMBER (USED UITH TRPE DRTfl)
STRTE RBBREVIRTION OF MET SITE
LOCflTION OF I1ET SITE
MONTHLY RVERRGE METEOROLOGICRL VRLUES
-------
B-l
Appendix B
LISTING OF AUGMENT, SUBROUTINES 'GETDATr
AND DATCIOT. AND LISTING OF FETCH
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
c
c
c
c
c
c
c
c
PROGRPH flUGHENT 810318
MRIN ROUTINE FOR DRTR RETRIEVRL USING fl STRNDBRD FORMRT.
THIS ROUTINE RSSIGNS THE REQUIRED PRIDE FILES TO FORTRflN UNITS
RND RUGMENTS THE INPUT FILE
THE INPUT FILE HILL HRVE THE FOLLOWING STRNDflRD FORHRT:
VRRIRBLE FORMRT
MRNUF
MODEL (5)
INERUT
IDISPL
TRflNSM
OVRDRV
NCYLDR
CRRB
KLflSS
MODLYR
SflLES
CRRTRK
IZIP
14
5fl4
15
14
R2
Rl
13
IX, R2
13
13
1X.R1
R3
14
14X,I3
IPCTY 14
IRVGML 14
MPG(1)=CGUIDE F6.2
HPG(2)=HGUIDE F6.2
MPG(3)=CEMISS F8.2
MPG(4)«=HEMISS F6.2
MPG(5)=CQUEST F6.2
MPG(6)=HQUEST F6.2
MPG(7)=RQUEST F6.2
DESCRIPTION
MRNUFRCTURER CODE RS DEFINED BY
CERTIFICRTION DIVISION
I10DEL NRME PROP! INPUT FILE
INERTIR WEIGHT
CUBIC INCH DISPLRCEMENT
TRRNSniSSION VRLUE
OVERDRIVE VRLUE
NUMBER OF CYLINDERS
NUMBER OF BRRRELS IN CRRBURETOR
BODY CLRSS
MODEL YERR
SflLES CLRSS
VEHICLE CLflSS
FIRST THREE DIGITS OF THE ZIP CODE
MONTH OF THE YERR
PERCENT CITY DRIVING
RVERRGE DRILY MILERGE
CITY MPG FROM GUIDE BOOK
HIGHURY MPG FROM GUIDE BOOK
CITY MPG FROM EMISSIONS TEST
HIGHURY MPG FROM EMISSIONS TEST
CITY MPG FROM QUESTIONNflIRE
HIGHURY MPG FROM QUESTIONNRIRE
COMBINED MPG FROM O.UESTIONNRIRE
(fl-Z)
IMPLICIT INTEGER*4
RERL MPG
DIMENSION MODEL(S),TOPO(3>,STRTE(4),CITY(6),IJ<5),MPG<7)
C OPEN UNITS 13 RND 14
C UNIT 1 IS THE TERMINRL
CflLL FTNCMDCRSSIGN 13 TO MET.FILE ',22)
C RSSIGN MET.FILE TO UNIT 13
CflLL FTNCMDCRSSIGN 14 TO TOPO.FILE ',23)
C RSSIGN TOPO.FILE TO UNIT 14
C RSSIGN UNIT 5 TO THE INPUT FILE
C RSSIGN UNIT 12 TO THE OUTPUT FILE
NREC=0
WRITE (1,111)
111 FORI1RT<'ENTER fl SOURCE CODE NUMBER')
REflO
-------
B-2
701 FORnflTa4,lX,5R4,I5,I4,iX,fl2,fll,I3,.lX,fl2,I3,I3,lX,fll,
1 R3,I4,8X,6X,I3,I4,I4,7F6.2)
IR=0
CBLL GTDflTI(IZIP,IR,nONTHl,ISTfll,ISTR2,U,STRTE, CITY, ZIP, RRER,
1 ELEV,TOPO, POP, DENS, REGION, KODE)
CBLL DBTOUTC
fi NREC,ISOURC,MflNUF,l10DEL,INERI4T,IDISPL,TRRNSn,
1 OVRDRV,NCYLDR,CRRB,KLflSS,nODLYR,SRLES,CRRTRK, IZIP.POP,
2 DENS,t10NTHl, IPCTY, IfiVGnL,I1PG (1) ,«PG (2) , HPG (3) , flPG (4) , PIPG (5) , I1PG (
3 6),nPG(7),HU),U(2),U(3),U(4),!4(5),
4 ELEV,TOPO,STRTE, CITY, REGION)
19997 GO TO 19999
19998 CONTINUE
CflLL EXIT
END
SUBROUTINE GTDRTI (12, IR, III, JSTR1, JSTfl2,U,STRTE, CITY, ZIP, RRER,
1 ELEV, FHCTS, POP , DENS, REG ION, KODE)
C
C RETURN FIETEOROLOGICflL flND TOPOGRRPHICRL DRTR FOR ZIP CODE 12
C OR RREfl CODE IR FOR PIONTH III.
C
C KODE IS RETURN CODE, UITH ONE OF THE FOLLOUING VRLUES -
C
C 0 - RLL DflTfl RETURNED SUCCESSFULLY
C 1 - NO DRTR FOR SPECIFIED 2IP CODE OR RREfl CODE (NONE RETURNED)
C 2 - INVRLID 2IP CODE flND HRER CODE (NO DRTH RETURNED)
C 3 - INVRLID HONTH (TOPOGRRPHICRL DHTR ONLY RETURNED)
C 4 - NO (1ETEOROLOGICRL DRTR flVHILRBLE (TOPOGRRPHICRL DflTfl RETURNED)
C
IHPLICIT INTEGER*4 (R-2)
DlttENSION U(5),STRTE(4),CITY(6),FRCTS(3)
COnnON /BIG/ ISTfl(999),UERTH(12,5,254),ISTfll(254),ISTB2(2S4),
1 STflT(4,999),CIT(6,999),2I£999),flRE(999),ELE(999),FflCT(3,999),
2 PO (999) , DEN (999) , IZIP (999) , REG (999)
DflTR INIT/l/,BLflNK/' >/
IF (INIT.EQ.O) GO TO 1000
C INITIRLJZE LISTS
INIT=0
NZIP=908
NHET=254
00 100 1=1,999
ISTR (!)=-!
21 (!)=-!
RRE (!)=-!
ELE (!)=-!
REG(I)=-1
DENU)=-1
PO (!)=-!
10 CONTINUE
DO 20 J=l,3
FRCT(J,I)=BLRNK
20 CONTINUE
DO 30 J=l,4
STflT(J,I)=BLRNK
30 CONTINUE
DO 40 J=l,6
-------
B-3
C1T(J,I)-BLRNK
40 CONTINUE
100 CONTINUE
C REflD TOPOGRRPHICBL DRTR
00 400 I-i.NZIP
REBDU4,703)J,(STRT(K,J),K=l,4>,U:n(K,J),l<=.l,6>,ZI,
1 ELE(J),(FflCT(K,J),K«l,3>,PO(J>,DEN(J>,STC,ISTfl,REGU>
703 FORnnT(T41,I3,Tl,4fl4,6fl4,I3,2X,I3,4X>I4,3(2X,fll),2X,I8,2X,I8,
1 UX,fl2,iX,I6,I4,T113,I2)
400 CONTINUE
C REflD flETEOROLOGICPL DflTR
DO 500 Ul.NHET
RERDU3,704) (ISTR1(I),ISTR2(I), (UEHTHCK, J, D ,K=1,12) , J=l,5)
704 FORnflT(2X,I6,lX,I5,25X,12I4)
C CONVERT STPTION NUMBERS INTO POINTERS TO MET DRTR
DO 450 J=l,999
IF (ISTfl(J).EQ..ISTfll(I)) ISTRU)=I
450 CONTINUE
500 CONTINUE
C
1000 CONTINUE
C
JSTFU-0
JSTR2=0
DO 1010 1=1,5
1010 CONTINUE
00 1020 1=1,4
STflTE(I)=BLflNK
1020 CONTINUE
DO 1030 1=1,6
CITY(I)=BLflNK
1030 CONTINUE
ZIP=-1
flREfl=-l
ELEV=-1
REGION=-1
DO 1040 1=1,3
FflCTS
-------
B-4
STRTE(I)=STBT(I,JZ)
1150 CONTINUE
DO 1160 1=1,6
CITY(I)=CIT(I,JZ)
1160 CONTINUE
2IP=ZI
-------
B-5
701 FORHBTCI2,IB,14,1X.5R4,IS,I4,1X,R2,R1,I3,1X,R2,13,13,1X,R1,
1 R3,14,18,16,13,14,14,7F6.2,314,213,16,3 (IX,FID ,
2 1X,4R4,1X,6R4,I3)
RETURN
END
C PROGRRH FETCH 810219
C
C HfilN ROUTINE FOR OHTfl RETRIEVflL SUBROUTINE.
C
C THIS ROUTINE RSSIGNS THE REQUIRED PRIME FILES TO THE FORTRRN
C UNIT NUHBERS flND TESTS THE RETRIEVRL ROUTINE.
C
C THIS ROUTINE IS flN INTERACTIVE VRLIDflTION ROUTINE
C IF DRTfl IS IN THE STRNDRROIZED FORMflT USE THE PROGRRH RUG11ENT
inPLICIT INTEGER*4 (R-Z)
DIMENSION U <5),STRTE(4),CITY(6),FRCTS(3)
C RSSIGN THE TERMINflL TO UNIT 1
CflLL POPEN('nET.FILE',8,l,87,9,KOOEl)
C RSSIGN THE IIETEOROLOGICflL FILE TO UNIT 13
CflLL POPEN('TOPO.FILE',9,1,114,10,KODE2)
C HSSlGN THE TOPOGRBPHICRL FILE TO UNIT 14
IF (KOOElt*ODE2.GT.O> STOP 1
C LOOP
19999 CONTINUE
PRINT 701
701 FORHRTC/,' ENTER ZIP CODE, RREH CODE, flND rtONTH')
REflDa,*)IZ,IR,II1
C EXIT IF (IZ.EQ.O.RND.IR.EQ.O)
IF(IZ.En.O.HND.Ifl.EQ.O) GO TO 19998
CRLL GTDHTI(IZ,IR,in,ISTR1,ISTR2.U,STRTE,CITY,ZIP,flRER,
1 ELEV,FflCTS,POP,DENS,REGION,KODE)
PRINT 702,ISTR1,ISTR2,U,STRTE,CITY,ZIP,RREfl,ELEV,FRCTS,POP,DENS,
1 REGION,KOOE
702 FORnflT(/,'STRTION ID"S - ', IB, IB,/,'UERTHER -»,5I4,/,
1 'STRTE - ',4H4,' CITY - ',6R4,/,'ZIP - ',13,
2 ' flREfl CODE - ',13,/,'ELEVRTION - ',14,' TOPO FRCTORS - ',
3 3
-------
C-l
Appendix C
FORMAT OF AUGMENTED DATA FILE
TABLE C.I STANDARDIZED OUTPUT FORMAT
VARIABLE
ISOURC
NREC
riflNUF
MODEL (5)
INERUT
IOISPL
TRRNSH
OVRORV
NCYLDR
CRRB
KLRSS
HOOLYR
SflLES
CRRTRK
I2IP
I POP
IPDENS
nONTHI
IPCTY
invent
CGUIDE
HGUIDE
CEniSS
HEMISS
COUEST
HQUEST
flQUEST
ITT1PMX
ITHPMN
ITMPRV
IHUMRM
iHunpn
IELEV
TOPO(3>
STRTE (4)
CITY (6)
IREG
FORHHT
F2.0
F6.0
F4.0
5R4
F5.0
F4.0
f\2
HI
F3.0
IX, R2
F3.0
F3.0
1X.R1
fl3
F4.0
F8.0
F6.0
F3.0
F4.0
F4.0
F6.2
F6.2
F6.2
F6.2
F6.2
F6.2
F6.2
F4.0
F4.0
F4.0
F3.0
F3.0
F6.0
3R2
1X.4R4
1X.6R4
F3.0
CQLUnNS
1- 2
3- 8
9- 12
14- 33
34- 38
39- 42
44- 45
46- 46
47- 49
50- 52
53- 55
56- 58
59- 60
61- 63
64- 67
68- 75
76- 81
82- 84
85- 88
89- 92
93- 98
99- 104
105- 110
111- 116
117- 122
123- 128
129- 134
135- 138
139- 142
143- 146
147- 149
150- 152
153- 158
159- 164
165- 181
182- 206
207- 209
DESCRIPTION
SOURCE OF THE INPUT ORTfl (1=GM76,2=HS79,
3=GH75, 4=FORD79, 5=EF79, 6=LR80, 7=JO. POUER)
THE RBSOLUTE LOCRTION OF THE RECORD IN THE
SOURCE FILE
flRNUFRCTURER CODE RS DEFINED BY CERTIFICRTION
DIVISION
MODEL NflllE FROI1 INPUT FILE
INERTIR UEIGHT
CUBIC INCH DISPLRCEflENT
TRRNSniSSION VRLUE
OVERDRIVE VflLUE
NUMBER OF CYLINDERS
NUMBER OF BRRRELS IN CflRBURETOR
BODY CLRSS
MODEL YERR
SRLES CLRSS
-------
C-2
TABLE C.2 STANDARDIZED INPUT FORMAT FOR DATA BASE AUGMENTATION
VRRIHBLE FORMRT
MRNUF 14
MODEL (5)
INERUT
IDISPL
TRPNSH
OVRDRV
NCYLDR
CRRB IX
KLRSS
MOOLYR
SPIES IX
CRRTRK
I2IP
HONTH1 J.4X
IPCTY
IRVGML
HPG(1)=CGUIOE
5R4
15
14
R2
Rl
13
,R2
13
13
,fll
R3
14
,13
14
14
F6.2
I1PG(2)=HGUIDE F6.2
MPG(3)=CE!1ISS F6.2
MPG(4)=HEHISS F6.2
f1PG(5)=CQUEST F6.2
nPG(6)=HQUEST F6.2
!1PG(7)=flQUEST F6.2
DESCRIPTION
PIRNUFRCTURER CODE RS DEFINED BY
CERTIFICRTION DIVISION
HODEL NflflE FROO INPUT FILE
INERTIR WEIGHT
CUBIC INCH DISPLflCEMENT
TRRNSHISSION VRLUE
OVERDRIVE VRLUE
NUMBER OF CYLINDERS
NUI1BER OF BRRRELS IN CFIRBURETOR
BODY CLRSS
MODEL YEHR
SRLES CLRSS
VEHICLE CLRSS
FIRST THREE DIGITS OF THE ZIP CODE
ttONTH OF THE YERR
PERCENT CITY DRIVING
RVERflGE DRILY MILEHGE
CITY MPG FROn GUIDE BOOK
HIGHURY HPG FROM GUIDE BOOK
CITY I1PG FROM EMISSIONS TEST
HIGHURY tIPG FROM EHISSIONS TEST
CITY tIPG FROM QUESTIONNRIRE
HIGHURY flPG FROH QUESTIONNRIRE
COMBINED MPG FROM QUESTIONNRIRE
-------
D-l
Appendix D
LISTING OF XFORM PROGRAM
C PROGRRfl XFORH 810219
C
C HfllN ROUTINE FOR ORTR TRflNSFORnRTION SUBROUTINES.
C
C THIS ROUTINE flSSIGNS THE REQUIRED PRIME FILES TO FORTRflN UNITS
C NOTE:
C RND CflLLS THE TRRNSFORHTION ROUTINES FOR THE VRRIOUS DRTfl FILES.
C THE ROUTINES UERE WRITTEN USING R FORTRRN PREPROCESSOR CRLLED
C IFTRRN. THE IFTRRN STRTEflENTS RRE LEFT IN THE CODE RS COPIIIENTS.
C
IOPLICIT INTEGERS (I-N)
CINCL I.VBRS
COnnON/VRRS/NREC,ISOURC,I1RNUF,MODEL<5),INERUT,IOISPL,TRRNSH,
1 OVRORV,NCYLDR,CRRB,KLRSS,HOOLYR,SflLES,CflRTRK,IZIP,IPOP,
2 IPOENS,nONTHl,IPCTY,IRVGm.,CGUIDE,HGUIDE,CEI1ISS,HEI1ISS,
3 CaUEST,HQUEST,HQUEST, ITI1PHX, ITHPON, ITHPRV, IHUIIflfl, IHUHPH,
4 IELEV,TOPO(3>,STRTE (4), CITY <6>,IREG,PRINT
LOGICRL PRINT
PRINT=.FRLSE.
CflLL POPEN<'OUTPUT.FILE',11,2,209,8,KODEO>
C OPEN OUTPUT.FILE ON FORTRRN UNIT 6
CflLL POPEN('nET.FILE',8,l,87,9,KODEl)
C OPEN riET.FILE ON FORTRRN UNIT 5
CflLL POPEN('TOPO.FILE',9,1,U4,10,KOOE2>
C OPEN TOPO.FILE ON FORTRRN UNIT 5
IF (KODEO+KODE1+KODE2.GT.O) STOP 1
C LOOP
19999 CONTINUE
URITEC1, 7013
701 FORnflTC/,' ENTER OflTR BRSE NUHBER')
RERD(1,#)NB
C EXIT IF (NB.LE.O)
IF(NB.LE.O) GO TO 19998
GO TO (1,2,3,4,5,6,7),NB
1 CONTINUE
CflLL POPEN('Gn76.FILE',ll,l,106,7,KODE)
C OPEN GI176.FILE ON FORTRflN UNIT 5
IF (KODE.NE.O) STOP 2
CflLL XFORfll
CflLL PCLOS(7)
GO TO 10
2 CONTINUE
CflLL POPEN('FEEF.FILE',9,1,110,7,KODE)
C OPEN FEEF.FILE ON FORTRflN UNIT 5
IF
-------
D-2
4 CONTINUE
CBLL POPEN('FORD.FILE',3,1,62,7,KOOE)
C OPEN FORD.FILE ON FORTRRN UNIT 5
IF (KODE.NE.O) STOP 2
CflLL XFORFI4
CflLL PCLOSC7)
GO TO 10
5 CONTINUE
CflLL POPEN('FEHS.FILE',9,1,110,7,KODE)
C OPEN FEHS.FILE ON FORTRAN UNIT 5
IF (KODE.NE.O) STOP 2
ISOURC=5
CflLL XFORH5
CflLL PCLOSC7)
GO TO 10
6 CONTINUE
CflLL POPEN('Lfl.FILE',7,l,112,7,KODE)
C OPEN Lfl.FILE ON FORTRflN UNIT 5
IF (KODE.NE.O) STOP 2
CflLL XFORI16
CflLL PCLOS(7)
GO TO 10
7 CONTINUE
CflLL POPEN('RflKULJ>R2322>MULTI>OUTPUT',25,l,aO,7,KODE)
C OPEN RflKULJ>R2322>MULTI>OUTPUT ON FORTRflN UNIT 5
IF (KODE.NE.O) STOP 2
CflLL XFORPI7
CflLL PCLOS(7)
10 CONTINUE
WRITE(1, 771)NREC,NB
771 FORMflT(//,I6,' RECORDS TRRNSFORPIED FROM DflTfl BflSE',12)
C END LOOP
19997 GO TO 19999
19998 CONTINUE
CflLL PCLOS(8)
CflLL PCLOSO)
CflLL PCLOS(IO)
CflLL EXIT
END
SUBROUTINE GTDflTI(12,Ifl,in,JSTfll,JSTR2,U,STRTE,CITY,ZIP,flRER,
1 ELEV,FflCTS,POP,DENS,REGION,KODE)
C
C RETURN I1ETEOROLOGICRL flND TOPOLOGICflL OflTfl FOR ZIP CODE 12
C OR flREfl CODE IB FOR nONTH in.
C
C KODE IS RETURN CODE, WITH ONE OF THE FOLLOWING VRLUES -
C
C 0 - RLL OflTfl RETURNED SUCCESSFULLY
C 1 - NO ORTR FOR SPECIFIED ZIP CODE OR flREfl CODE (NONE RETURNED)
C 2 - INVRLID ZIP CODE FIND flREfl CODE (NO DflTfl RETURNED)
C 3 - INVRLID MONTH (TOPOLOGICflL DflTfl ONLY RETURNED)
C 4 - NO IIETEOROLOGICflL DRTR flVRILRBLE (TOPOLOGICflL DflTfl RETURNED)
C
II1PLICIT INTEGER*4 (fl-Z)
DIMENSION U(5),STRTE(4),CITY(6),FRCTS(3)
COMMON /BIG/ ISTfl(999>,UERTH(12,5,254),ISTfll(254>,ISTR2(254),
1 STflT(4,999),CIT(6,999),ZI(999),flRE(999),ELE(999),FflCT(3,999),
-------
D-3
2 PO (399) , DEN (999) , IZIP (999) , REG (999)
DflTfl INIT/l/,BLflNK/' V
IF (INIT.EQ.O) GO TO 1000
INITIfiLIZE LISTS
INIT=0
NZIP=908
NI1ET=254
DO 100 1=1,999
IZIP (!)=-!
ISTR(I)=-1
ZI (!)=-!
RREU)=-1
ELE (!)=-!
REGU)=-1
PO(I)=-1
10 CONTINUE
00 20 J=l,3
FRCT(J,I)=8LRNK
20 CONTINUE
DO 30 J=l,4
S"raT(J,I)=6LRNK
30 CONTINUE
DO 40 J=l,6
CIT(J,I)=8LflNIC
40 CONTINUE
100 CONTINUE
C RERD TOPOLOGICBL DRTR
00 400 I=1,NZIP
RERD(14,703)J, (STRTOC.J) ,K=1,4) , (CIT(K,J> ,K=1,6),ZI(J),RREU),
1 ELE (J) , (FRCT (K, J) , K=l, 3) ,PO U) , DEN (J) , STC, ISTR (J) , IZIP (J) , REG (J)
703 FORf1flT(T41,I3,Tl,4fl4,6R4,I3,2X,I3,4X,I4,3(2X,fll),2X,I8,2X,I8,
1 UX,fl2,lX,I6,I4,T113,I2)
400 CONTINUE
C REBD nETEOROLOGICRL DflTH
00 500 I=1,NI1ET
REflO (13,704) (ISTR1 (I) , ISTR2 (I) , (UEflTH (K, J, I) ,K=1, 12) , J=l,5)
704 FORnflT(2X,I6,lX,I5,25X,12I4)
C CONVERT STRTION NUrtBERS INTO POINTERS TO MET QflTfl
DO 450 J=l,999
IF (ISTRU).Ea.ISTfll(D) ISTfl(J) = I
450 CONTINUE
500 CONTINUE
C
1000 CONTINUE
C
JSTfll=0
JSTR2=0
DO 1010 1=1,5
1010 CONTINUE
DO 1020 1=1,4
STRTE(I)=BLRNK
1020 CONTINUE
DO 1030 1=1,6
CITY(I)=BLflNK
1030 CONTINUE
-------
D-4
ZIP=-i
PRER=-1
ELEV=-1
REGION=-1
00 1040 1=1,3
FRCTS(D=BLRNK
1040 CONTINUE
POP=-1
DENS=-1
KODE=-1
JZ=IZ
IF UZ.GT.O .flND. JZ. LE.999) GO TO 1100
C NO VflLID ZIP-CODE
IF (Ifl.GT.O .flND. Ifl. LE.999 .RND. IZIP(IR) .GT.O) GO TO 1070
C NO VRLID RRER-CODE
KODE=2
RETURN
C GET USING RREfl-CODE
1070 CONTINUE
JZ=IZIP(IR)
C GET USING ZIP-CODE (JZ)
1100 CONTINUE
C GET TOPOUOGICHL DRTR
DO 1150 1=1,4
STRTE(I)=STRTa,JZ)
1150 CONTINUE
DO 1160 1=1,8
CITY(I)=CIT(I,JZ)
1160 CONTINUE
ZIP=ZI(JZ)
HREfl=flRE (JZ)
ELEV=ELE (JZ)
REGION=REG(JZ)
DO 1170 1=1,3
FRCTS(I)=FRCTCI,JZ)
1170 CONTINUE
POP=PO(JZ)
DENS=DEN (JZ)
IF (STRTE(l).EQ.BLRNK) KODE=1
C GET HETEOROLOGICRL DRTR
IF (ISTR(JZ).LE.O .OR. ISTR (JZ) .GT. NZIP) GO TO 1300
IS=ISTR(JZ)
JSTR1=ISTR1(IS)
JSTR2=ISTR2(IS)
IF (in. GT.O .RND. IH. IE. 12) GO TO 1200
C INVRLID nONTH
DO 1190 1=1,5
1190 CONTINUE
IF (KODE.LT.O) KODE=3
RETURN
1200 CONTINUE
DO 1250 1=1,5
U(I)=UERTH(in,I,IS)
1250 CONTINUE
KOOE=0
RETURN
-------
D-5
1300 CONTINUE
C NO VRLID METEOROLOGICRL DRTfi
JSTfllaO
JSTR2=0
00 1350 1-1,5
1350 CONTINUE
IF (KOOE.LT.O) KOOE=4
RETURN
END
SUBROUTINE DRTOUT
C OUTPUT RECORD
IMPLICIT INTEGER** (I-N)
CINCL I.VRRS
COHMON/VHRS/NREC, ISOURC.MRNUF, MODEL (5) , INERUT, IDISPL,TRRNSI1,
1 OVRORV,NCYLDR,CRRB,KLflSS,MODLYR,SRLES,CRRTRK,IZIP,IPOP,
2 IPDENS, MONTH!, IPCTY, IRVGnL,CGUIDE,HGUIDE,CEMISS,HEMISS,
3 CQUEST,HO.UEST,flQUEST, ITMPMX, ITMPMN, ITMPRV, IHUMRM, IHUHPM,
4 IELEV,TOPO(3),STRTE(4),CITY(6),IREG,PRINT
LOGICRL PRINT
URITE (12, 701) ISOURC.NREC.riflNUF, MODEL, INERUT, IOISPL,TRRNSM,OVRDRV,
1 NCYLOR,CflRB,KLBSS,nODLYR,SflLES,CRRTRK,IZIP,IPOP,IPOENS,
2 HONTH1, IPCTY, IRVGnL,CGUIDE,HGUIDE,CEHISS,HE11ISS,CQUEST,
3 HQUEST,RQUEST, ITMPMX, ITMPMN, ITMPRV, IHUMRII, IHUHPH, IELEV,
4 TOPO,STRTE,CITY, IREG
701 FORnflT(I2,I6,I4,lX,5R4,I5,I4,lX,R2,fll,I3,lX,fl2,I3,I3,lX,Rl,
1 'LD',fll,I4,I8,IS,I3,I4,I4,7F6.2,3I4,2I3,I6,3(lX,fll),
2 1X,4R4,1X,6R4,I3)
IF (PRINT)
9URITEQ, 777) ISOURC,NREC,nflNUF,nODEL, INERUT, IDISPL,TRRNSn,OVRDRV,
1 NCYLDR,CflRB,KLRSS,nODLYR,SflLES,CflRTRK,IZIP,IPOP,IPOENS,
2 HONTH1, IPCTY, IRVGi1U,CGUIDE,HGUIDE,CEniSS,HEniSS,CQUEST,
3 HQUEST,RQUEST, ITHPHX, ITHPHN, ITIIPflV, IHUHRO, IHUHPII, IELEV,
4 IREG, TOPO.STRTE, CITY
777 FORf1RT(/, 'SOURCE =' , 12,' SEQ=',IB,' nflNUF=',I3,' P100EL = ' ,
1 5B4,' HEIGHT =',15,' CID =' , 14, /, 'TRRNS = ',R2,
2 ' OVRDRV = ',R1,' NCYL =',13,' CRRB = ',fl2,' CLRSS =',13,
3 ' YEHR =',13,' SRLE5 = ' ,fll,/, 'CRR/TRK = ',fll,
4 ' ZIP =',14,' POP =',18, ' DENS =',16,' Ml =' , 13,
5 ' PCTY =',I4,/, 'RVGHPD =',14,
6 ' CGUIDE =',F6.2,' HGUIDE =',F6.2,' CEHISS =',F6.2,
7 ' HEfllSS =',F6.2,/,'CQUEST =',F6.2,
8 ' HQUEST =',F6.2, ' RQUEST =' ,F6.2,' THRX=',I4,
9 ' THIN =',I4,/,'TRVG =',14,' HUOfln =',13,
fl » HUMPH =', 13,' ELEV=',I5,' REG=',I3,' TOPO = ' ,3(H1,1X) ,
B /,'STRTE = ',4R4,' CITY = ',6R4)
RETURN
END
SUBROUTINE POPEN (NRME, NC , flODE , NB , NFU , KODE)
C
C OPEN FILE NRI1ED 'NRflE' (NC CHRRflCTERS) FOR REflOING (MODE = 1),
C URITING (MODE=2), OR RERDING/URITING (HODE = 3), WITH RECORD
C LENGTH NB BYTES, ON PRII10S UNIT NUMBER NFU, RETURNING
C KODE - 0 IF SUCCESSFUL, = 1 IF NOT.
C
C PRIMOS UNIT=FORTRRN UNIT -4
IMPLICIT INTEGER*4 (I-N)
-------
D-6
INTEGER*2 MFU,NCS,NBS,NFUS
LOGICflL FLflG
DIMENSION NflMEU)
C INSERT SYSCOM>fl$KEYS,
NCS=INTS(NC)
NBS=INTS(NB)
NFUS=INTS(NFU)i4
KODE=0
nFU=NFU
FLflG=UNITOT(MFU)
C IF (.NOT.FLflG)
IF (.NOT.FLflG) GO TO 19997
19996 GO TO 19998
19997 CONTINUE
NCL=NCS
NU=(NC+3)/4
C IF tnODE.EQ.l)
IF(MODE.EQ.l) GO TO 19993
19992 GO TO 19994
19993 CONTINUE
FLflG=OPEN$fl (flSREflD+flSSRtlF, NflllE, NCS, MFU)
C OR IF (MOOE.EQ.2)
19991 GO TO 19995
19994 CONTINUE
IF(MODE.EQ.2) GO TO 19989
19988 GO TO 19990
19989 CONTINUE
FLflG=OPEN$fl (flSUR IT+fl$SflMF, NPI1E, NCS, HFU)
CflLL TRNCSfl(MFU)
C ELSE
19987 GO TO 19995
19990 CONTINUE
FLflG=OPENSfl (fi$RDUR+fl$SRHF, NRHE, NCS, I1FU)
C END IF
19995 CONTINUE
C IF (FLflG)
IF(FLflG) GO TO 19984
19983 GO TO 19985
19984 CONTINUE
CflLL RTTDEV(NFUS,INTS(7),HFU,NBS)
C ELSE
19982 GO TO 19986
19985 CONTINUE
KODE=1
C END IF
19986 CONTINUE
C END IF
19998 CONTINUE
19999 CONTINUE
RETURN
END
SUBROUTINE PCLOS(NFU)
C CLOSE FILE UITH PRIMOS UNIT NUMBER OF NFU
C
C PRinOS UNIT=FORTRflN UNIT -4
IMPLICIT INTEGERS (I-N)
INTEGER*2 (1FU
-------
D-7
LOGICRL OPN
CINSERT SYSCOn>fl$KEYS,
nFU = NFU
OPN = UNIT$fl( HFU )
IF( OPN ) CflLL CLOSSfK !1FU )
RETURN
END
SUBROUTINE XFORH1
C TRPNSFORfl GH7678 FILE
IMPLICIT INTEGER** CI-N)
DIHENSION CODE(100),HOOL15,100),IU(5)
CINCL I.VfiRS
COnnON/VflRS/NREC,ISOURC,HflNUF,MODEL (5),INERUT,IDISPL.TRRNSM,
1 OVRDRV,NCYLDR,CRRB,KLflSS,HODLYR,SRLES,CflRTRK,IZIP, IPOP.
2 IPDENS,nONTHl,IPCTY,IRVGnL,CGUIDE,HGUIDE,CEniSS,HEniSS,
3 COUEST.HQUEST.RQUEST, ITHPHX, ITTIPHN, ITTIPflV, IHUttfln, IHUHPfl,
4 IELEV,TOPO(3),STRTE(4))CITY(6),IREG)PRINT
LOGICRL PRINT
NREC=0
ISOURC=1
nRNUF=40
INERUT=-1
OVRDRV='l'
NCYLDR=-1
IPCTY=-1
CGUIDE=-1.
HGUIDE=-1.
CEniSS=-l.
HE?1ISS=-1.
CQUEST=-1.
HQUEST=-1.
CRRTRK='D'
KLRSS=-1
CflLL POPEN('nODEL.FILE',10,l,23,ll,KODE)
C OPEN HODEL.FILE ON FORTRRN UNIT 5
IF (KODE.NE.O) STOP 3
1=0
C LOOP
19399 CONTINUE
1=1+1
REflDClS,700,END=l)COOEU),U10DLCJ,I),J=l,S)
700 FORnflT(R2,lX,5R4)
C END LOOP
13997 GO TO 13399
13998 CONTINUE
1 CONTINUE
NnOOEL=I-l
IF (PRINT)
9 WRITE (1, 772)NHODEL
772 FORI1flT
-------
D-8
1 ID1,IY1,H2,ID2,IY2,IZIP
701 FORI1flT(R2,3X,Il,5X,I3,lX,Rl,fl2,4X,F5.2,8X,I5,i9X,6I2,23X,I3>
NREC=NREC+i
C FOR (1=1 TO NMODEL UHILE DIV.NE. CODEC!))
1=1
19991 GO TO 19992
19994 CONTINUE
1=1+1
19992 CONTINUE
IFU.GT. (NMODEU) GO TO 19993
IF(DIV.NE.CODEU)) GO TO 19990
19989 GO TO 19993
19990 CONTINUE
C END FOR
19988 GO TO 19994
19993 CONTINUE,
C IF (I.GT.NIIODEL)
IF(I.GT.NnODEL) GO TO 19985
19984 GO TO 19986
19985 CONTINUE
CflLL XniTR(-INTS(5),' ',HODEL)
C ELSE
19983 GO TO 19987
19986 CONTINUE
CflLL XniTR (INTS (5) , I10DL (1,1), MODEL)
C END IF
19987 CONTINUE
HODLYR=70+IY
CflLL GTDRTI(IZIP,0,HONTH1,JSTR1,JSTR2,IU,STRTE, CITY, ZIP, RRER,
1 IELEV,TOPO,IPOP,IPDENS,IREG,KODE)
mipnx=iu(i)
ITMPnN=Il4<2)
iHunpn=iu(5)
IflVG!1L=-l
C IF (HONTH1.GT.O '.HND. ID1.GT.O .flND. IY1.GT.O .flND. P12.GT.O .flNO.
C 1 ID2.GT.O .flND. IY2.GT.O)
IF(
*HONTH1.GT.O .flND. ID1.GT.O .flND. IY1.GT.O .flND. H2.GT.O .flND. ID2.
#GT.O .flND. IY2.GT.O
*) GO TO 19980
19979 GO TO 19981
19980 CONTINUE
Nl=JULflN4 010NTH1, ID1, 1900+IY1)
N2=JULflN4 (H2, ID2, 1900+IY2)
IF (N2.GT.N1) IflVGHL=IFIX(TOTI1/(N2-Nl))
IF (IflVGHL.GT.999) IflVGnL=-l
C END IF
19981 CONTINUE
19982 CONTINUE
C IF (STflTE(l).EQ.'CflLI')
IF(STnTE(l).EQ. 'CflLI') GO TO 19976
19975 GO TO 19977
19976 CONTINUE
SflLES='C'
C ELSE
-------
D-9
19974 GO TO 19978
19977 CONTINUE
SRLESa'F'
C END IF
19978 CONTINUE
C IF
IF
CINCL I.VflRS
COnnON/VRRS/NREC,ISOURC,HflNUF,nODEL(5),INERUT,IDISPL.TRflNSH,
1 OVRDRV,NCYLDR,CFIRB,KLRSS,nODLYR,SflL£S,CflRTRK, I2IP, IPOP,
2 IPOENS,nONTHl,IPCTY,IflVGHL,CGUIDE,HGUIDE,CEHISS, HEMISS,
3 caUEST,HQUEST,flQUEST, ITI1PI1X, ITHPttN, ITMPflV, IHUHRII, IHUnPM,
4 IELEV,TOPO(3),STRTE(4),CITY(6),IREG,PRINT
LOGICflL PRINT
DRTR IX/-1,' ', 140,'1 ', 140,'2 ', -1,' ', 231,'2 ', 250,'1 ',
I 260,'2 ', 262,'2 ', 350,'2 ', 350,'4 ', 400,'2 ',
2 400,'4 ', 454,'4 ', 455,'4 ', 500,'5 '/
DRTR XX/'fl2','R3','n3','n4','fl ','tt ','H5',' ',' '/
NREC=0
ISOURC=3
riflNUF=40
f10DLYR=75
CRLL XniTR(-INTS<5>,'
INERUT=-1
OVRDRV='l'
NCYLDR=-1
IPCTY=-1
CGUIDE=-1.
HGUIDE=-1.
CEniSS=-l.
HEniSS=-l.
COUEST=-1.
-------
D-10
HQUEST=-1.
CRRTRK='D'
KLflSS=-l
IF (PR INT)
9 URITEQ, 703)
703 FORI1RT(/,'DV 1ST FILL LST FILL I1IU HIL2 FE ENG X ZIP' ,/)
C LOOP
19999 CONTINUE
REfiD (11,701, ENO=10)DIV,l10NTHl,IDl,IYl,ri2,ID2,IY2,l1ILl,r!IL2,
1 flQUEST,IENG,IXI1, IZIP
701 FORI1flT(fl2,6X,6I2,2I5,lX,F5.2,24X,I2,7X,n,37X,I3)
NREC=NREC+1
C IF (IENG.GT.O .flND. IENG.LE.15)
IFdENG.GT.O .flND. IENG.LE.15) GO TO 19995
19994 GO TO 19996
19995 CONTINUE
IDISPL=IX(1,IENG)
CflRB=IX(2,IENG)
C ELSE
19993 GO TO 19997
19996 CONTINUE
IDISPL=-1
CflRB=' '
C END IF
19997 CONTINUE
C IF (IXn.GT.O .flND. IXn.LE.9>
IFdXn.GT.O .flNO. IXO.LE.9) GO TO 19990
19989 GO TO 19991
19990 CONTINUE
TRRNsn=xx(ixm
C ELSE
19988 GO TO 19992
19991 CONTINUE
TRRNSn=> '
C END IF
19992 CONTINUE
CflLL GTDflTI (IZIP, 0,HONTH1, JSTR1, JSTR2,IU,STRTE, CITY, ZIP, BREfl,
1 IELEV,TOPO,IPOP,IPDENS,IREG,KODE)
iTtipnx=iu a)
ITHPHN= 114(2)
iHunfln=iu(4)
iHunpn=iu(5)
IRVG!1L=-1
C IF (PIONTH1.NE.99 .flND. ID1.NE.99 .flND. IY1.NE.99 .flND. n2.NE.99
C 1 .flNO. ID2.NE.99 .flND. IY2.NE.39 .flND.
C 2 MONTH!. NE.O .flND. ID1.NE.O .flND. IY1.NE.O .flND. H2.NE.Q
C 3 .flND. ID2.NE.O .flND. IY2.NE.O .flND. HIL1.NE.O .flND.
C 4 niLl.NE. 99999 .flND. MIL2.NE.O .flND. HIL2.NE. 99999)
IF(
*MONTH1.NE.99 .flND. ID1.NE.99 .flND. IY1.NE.99 .flND. M2.NE.99 .flNO.
*ID2.NE.99 .flND. IY2.NE.99 .flNO. HONTH1.NE.O -flMD. ID1.NE.O .HND. I
*Y1.NE.O .flND. M2.NE.O .flND. ID2.NE.O .flND. IY2.NE.O .flNO. HIL1.NE.
*0 .flND. HIL1.NE. 99999 .flND. HIL2.NE.O .flND. HIL2.NE. 99999
*) GO TO 19985
13984 GO TO 19986
19985 CONTINUE
-------
D-ll
N1=.JULRN4 (MONTHl, ID1,1900+IY1)
N2-JULRN4 (02,ID2,1900+IY2)
TOTn=niL2-niLi
IF (N2.GT.N1) IfWGI1l.=.IFIX
IF (IRVGnL.GT.999) IRVGHLa-1
C END IF
19986 CONTINUE
19987 CONTINUE
C IF (STRTEU).Ea.'CRLI')
IF(STRTEU>.EQ.'CRU'> GO TO 19981
19980 GO TO 19982
19981 CONTINUE
SRLES-'C'
C ELSE
19979 GO TO 19983
19982 CONTINUE
SRLES='F'
C END IF
19983 CONTINUE
C IF ,>n '/
NREC=0
ISOURC=4
riPNUF=30
I10DLYR=79
CRLL XniTR(-INTS(5),' '.PIODED
INERUT=-JL
NCYLDR=-1
-------
D-12
CflRB=' '
CGUIDE=-1.
HGUIDE=-1.
CEflISS=-l.
HEniSS=-l.
CQUEST=-1.
HQUEST=-1.
CflRTRK='D'
KLflSS=-l
IF (PRINT)
9 URITEC1, 703)
703 FORf1flT(/,TIODEL CRP XMIS flVGFE % I1ILES 110 NDY HRER',/)
C LOOP
19999 CONTINUE
RERD(ll,701,ERR=9,END=iO>HODEL(l),l10DEL(2),ENG,XI1IS,flaUEST,IPCTY,
1 XniLES,nONTHl,NDRYS,IRREfl,OVD
701 FORnflT(5X,2R4,F3.1,2X,fl4,F5.1,I3,7X,F6.1,iX,I2,4X,I3,lX,I3,T21,fll)
NREC=NREC-t-l
IDISPL=61.04*ENG
C FOR (I = 1 TO 6 UHILE XHIS.NE.CODEC!,I))
I = 1
13994 GO TO 19995
19997 CONTINUE
I =1 +1
19995 CONTINUE
IF(I .GT. (6)) GO TO 19996
IF(XniS.NE.CODE(l,I)> GO TO 19993
19992 GO TO 1999E
19993 CONTINUE
C END FOR
19991 GO TO 19997
19996 CONTINUE
C IF (I.GT.6)
IFd.GT.6) GO TO 19988
19987 GO TO 19989
19988 CONTINUE
IF (PR INT)
9 URITEd, 771)NREC,XHIS
771 FORHRTC/' RECORD', 16,' UNKNOUN TRflNSHISSION CODE - ',fl4)
TRflNSn=' '
C ELSE
19986 GO TO 19990
19989 CONTINUE
TRRNSI1=CODE(2,I)
C END IF
19990 CONTINUE
C IF
-------
D-13
OVRDRV*'!'
C END IF
19985 CONTINUE
CfiLL GTDfiTI(0,IRRER,nONTHl,JSTRl,JSTR2,IU,STflTE.CITY.I2IP,flREn,
1 IELEV,TOPO,IPOP,IPDENS,IREG,KODE)
iTnpnx=iuu>
iTnpriN»iu(2>
ITHPRV»IU(3)
iHunfln=iu(4>
iHunpn=iu(5)
IRVGI1L=-1
C IF (NORYS.GT.O)
IF(NDRYS.GT.O) GO TO 19978
19977 GO TO 19979
19978 CONTINUE
IRVGnL=XnILES/NDflYS
IF (IRVGnL.GT.999) IHVGm.=-l
C END IF
19979 CONTINUE
19980 CONTINUE
C IF (STRTE(l).Ea.'CRLI»>
IFCSTRTECD.EQ.'CRLD GO TO 19974
19973 GO TO 19975
13974 CONTINUE
SRLES='C'
C ELSE
19972 GO TO 19976
13975 CONTINUE
SRLES='F'
C END IF
13976 CONTINUE
C IF (nOD(NREC,100).EQ.O)
IF(nOD(NREC,100).EQ.O) GO TO 19969
13968 GO TO 19970
19969 CONTINUE
IF (PR INT)
9 URITEd, 702)nODEL(l),110DEL(2),ENG,XI1IS,flaUEST,IPCTY,XniLES,
1 nONTHl,NOflYS,IflRER,OVD,IRVGI1L
702 FORnflT(/,2R4,F4.1,1X,R4,F6.1,I3,F7.1,1X,12,IX,13,IX,13,1X,R1,14)
C END IF
13970 CONTINUE
19971 CONTINUE
CRLL DflTOUT
C END LOOP
19967 GO TO 19999
19998 CONTINUE
10 CONTINUE
RETURN
9 CONTINUE
IF (PR INT)
9 URITEd, 702>nODEL(l),rtODEL(2),ENG,XmS,flQUEST,IPCTY,XniLES,
1 nONTHl,NDRYS,IflREfl,OVD,IflVGHL
RETURN
END
SUBROUTINE XFORMS
C NOTE THflT ZIP CODE VRLUES HERE INSERTED INTO THESE FILES USING THE
C EDIT COntlflND
-------
D-14
C TRRNSFORH EFHS FILE
inPLICIT INTEGERS (I-N)
DIHENSION IU(5),TCODE:(2,4),KCQOE(2,4>,nCODE(2,21>,ICOOE<2,6>
CINCL I.VRRS
COnnON/VRRS/NREC, ISOURC,l1flNUF,!10DEL(5), INERUT, IDISPL.TRRNSfl,
1 OVRDRV,NCYLDR,CflRB,KLflSS,nOOLYR,SRLES,CflRTRK,I2IP,IPOP,
2 IPOENS,l10NTHi,IPCTY,IBVGnL,CGUIDE,HGUIDE,CEniSS,HEniSS,
3 CaUEST,HQUEST,flQ.UEST, ITHPHX, ITtlPnN, ITnPflV,IHUHRI1, IHUPIPII,
4 IELEV,TOPO(3),STRTE(4),CITY(6),IREG,PRINT
LOGICRL PRINT
DRTR TCODE/'RUTOVH ', 'P1RN4','"*'. 'HflNS'/HS', 'MBN3','PI3V
DflTR KCODE/' HID',5, 'COUP',4, 'LRRG',S, 'SUBC',3/
DRTR CODE/' VU>,530,' RHC',10, 'RUDI',640, 'BUIC',40, 'CRDI',40,
1 'CHEV',40, 'CHRY',20, 'DRTS',380, 'DODG',20,
2 'FIRT',230, 'FORD',30, 'HOND',260, 'LINC',30,
3 'nflZD',560, TIERC',30, 'OLDS',40, 'PLYH',20,
4 'PONT',40, 'RENfl',430, 'TOYO',570, 'VOLV',600/
DRTH ICODE/' 0',-1, ' EQ',50, 'RCTY',100, 'MCTY',75,
1 'RHUY',0, 'HHUY',25/
NREC=0
CRLL XI1ITR(-INTS(5),' ',MODEL)
CRRTRKn'O'
OVRDRV='l'
IRVGnL=-l
C LOOP
19999 CONTINUE
REROUl,701,END=10,ERR=9)nflKE,nODLYR,IDISPL,CRRB,NCYLDR,XI1IS,
1 INERUT,nSI2E,CQUEST,HQUEST,HQUEST,I2IP,CEniSS,HEniSS,CGUIDE,
2 HGUIDE,IPCT,nONTHl
701 FORI1RT(15X,R4,3X,I2,4X,I3,4X,fll,5X,n,9X,fl4,8X, I4,20X,R4,3F6.0,/,
1 1X,I3,4X,F5.2,4X,F5.2,17X,F2.0,4X,F2.0,2SX,R4,3X,I2)
NREC=NREC+1
IF (CGUIDE.EQ.O) CGUIDE=-1.
IF (HGUIDE.EQ.O) HGUIDE=-1.
IF (CEHISS.EQ.O) CEHISS=-1.
IF (HEUISS.EQ.O) HEMISS=-1.
IF (CQUEST.EQ.O) COUEST=-1.
IF (HQUEST.EQ.O) HQUEST=-1.
IF (RQUEST.EQ.O) flQUEST=-l.
C FOR (I =. 1 TO 4 WHILE XIIIS.NE.TCODEd, I))
I = 1
19994 GO TO 19995
19997 CONTINUE
I =1 +1
19995 CONTINUE
IF(I .GT.(4)) GO TO 19996
IF GO TO 19993
19992 GO TO 19996
19993 CONTINUE
C END FOR
19991 GO TO 19997
19996 CONTINUE
C IF U.GT.4)
IFCI.GT.4) GO TO 19988
19987 GO TO 19989
19988 CONTINUE
IF (PRINT)
-------
D-15
9 URITEd, 771)NREC,XniS
771 FORORTC/' RECORD',16,' UNKNOUN TRRNSrtlSSION CODE - ',fl4)
TRRNSOo' '
C ELSE
13986 GO TO 19990
19989 CONTINUE
TRRNSn=TCODE (2,1)
C END IF
19990 CONTINUE
C FOR (I . 1 TO 4 UHILE I1SIZE.NE.KCODEU, I))
I = 1
19982 GO TO 19983
19985 CONTINUE
I =1 -hi
19983 CONTINUE
IF (I .GT. (4)> GO TO 19984
IF(riSIZE.NE.KCOOEd,I)) GO TO 19981
19980 GO TO 19984
19981 CONTINUE
C END FOR
19979 GO TO 19985
13984 CONTINUE
C IF (I.GT.4)
IF(I.GT.4) GO TO 1997S
13975 GO TO 19977
19976 CONTINUE
IF (PR INT)
9 URITEd, 772)NREC,nSIZE
772 FORflflTO" RECORD', 16,' UNKNOUN CLflSS CODE - ',fl4)
KLflSS=-l
C ELSE
19974 GO TO 19378
19977 CONTINUE
KLflSS=KCOOE(2,I)
C END IF
13978 CONTINUE
C FOR (I = 1 TO 21 UHILE HRKE.NE.nCODEd,I))
I = 1
19970 GO TO 19371
13373 CONTINUE
I =1 +1
13371 CONTINUE
IF(I .GT. (21)) GO TO 19372
IFdlRKE.NE.nCODEd,!)) GO TO 13969
13368 GO TO 13972
19969 CONTINUE
C END FOR
19367 GO TO 19373
13372 CONTINUE
C IF (I.CT.21)
IFd.GT.21) GO TO 19364
13363 GO TO 19965
19964 CONTINUE
IF (PRINT)
9 URITEd, 773)NREC,MflKE
773 FORriRT(/' RECORD', 16,' UNKNOUN PlflKE CODE - ',R4)
t1RNUF=-l
-------
D-16
C ELSE
19962 GO TO 19966
19965 CONTINUE
nflNUF=ncoDE(2,n
C END IF
19966 CONTINUE
C FOR (I = 1 TO 6 UHILE IPCT.NE. ICODEU,I»
I = 1
19958 GO TO 19959
19961 CONTINUE
I =1 +1
19959 CONTINUE
IF(I .GT.(6)) GO TO 19960
IF(IPCT.NE.ICODEU,I)) GO TO 19957
19956 GO TO 19960
19957 CONTINUE
C END FOR
19955 GO TO 19961
19960 CONTINUE
C IF (I.GT.6)
IFCI.GT.6) GO TO 19952
19951 GO TO 19953
19952 CONTINUE
IF (PRINT)
9 URITEd, 774)NREC,IPCT
774 FORMRTO" RECORD', IB,' UNKNOUN USRGE CODE - ',R4)
IPCTY=-1
C ELSE
19950 GO TO 19954
19953 CONTINUE
IPCTY=ICODE(2,I)
C END IF
19954 CONTINUE
CflLL GTDflTI(IZIP,0,f10NTHl,JSTRl,JSTfl2,IH,STflTE,CITY,ZIP,flRER,
1 IELEV,TOPO,IPOP,IPDENS,IREG,KOOE)
mipnx=iu(i)
ITMPnN=IU(2)
ITt1PflV=IU(3)
IHUnflH=IU<4)
IHUnPM=IU(5)
C IF (STRTE(l).EQ.'CPLI')
IF(STRTEd).Ea.'CRLI') GO TO 19947
19946 GO TO 19948
19947 CONTINUE
SRLES='C'
C ELSE
19945 GO TO 19949
19948 CONTINUE
SRLES='F'
C END IF
19949 CONTINUE
C IF (nOD(NREC,20).EQ.O)
IF(HOD(NREC,20).EQ.O) GO TO 19942
19941 GO TO 19943
19942 CONTINUE
IF(PRINT)
9 URITEd, 702)nRKE,nODLYR,IDISPL,CRRB,NCYLDR,XI1IS,
-------
D-17
1 INERHT,riSIZE,CQUEST,HaUEST,flQUEST, IZIP,CEniSS,HEMISS,CGUIDE,
2 HGUIDE,IPCT,MONTH!
702 FORriBT
-------
D-18
IF (HGUIDE.EQ.O) HGUIOE=-1.
IF (CEniSS.EQ.O) CEniSS=-l.
IF (HEniSS.EQ.O) HEniSS=-l.
IF (CaUEST.EQ.O) CQUEST=-1.
IF (HQUEST.EQ.O) HQUEST=-1.
IF (RQUEST.EQ.O) flQUEST=-l.
C FOR (I = 1 TO 4 UHILE XniS.NE.TCODECl,!))
I = 1
19994 GO TO 19995
19997 CONTINUE
I =1 +1
19995 CONTINUE
IF(I .GT. (4)) GO TO 19996
IF(XniS.NE.TCODEU,I)) GO TO 19993
19992 GO TO 19996
19993 CONTINUE
C END FOR
19991 GO TO 19997
19996 CONTINUE
C IF (I.GT.4)
IFU.GT.4) GO TO 19988
19987 GO TO 19989
19988 CONTINUE
IF(PR INT)
9 URITEd, 771)NREC,XHIS
771 FORI-lfm/' RECORD', 16,' UNKNOWN TRRNSI1ISSION CODE - %fl4)
TRRNSI1=' '
C ELSE
19986 GO TO 19990
19989 CONTINUE
TRRNSn=TCODE(2,I)
C END IF
19990 CONTINUE
C FOR (I = 1 TO 4 UHILE HSIZE.NE.KCOOEU, I))
I = 1
19982 GO TO 19983
13985 CONTINUE
I =1 +1
19983 CONTINUE
IF(I .GT.(4)) GO TO 19984
„ IFOISIZE.NE.KCOOEU,!)) GO TO 19981
19980 GO TO 19984
19981 CONTINUE
C END FOR
19979 GO TO 19985
19984 CONTINUE
C IF (I.GT.4)
IF(I.GT.4) GO TO 19976
19975 GO TO 19977
19976 CONTINUE
IF(PRINT)
9 URITEd, 772)NREC,t1SIZE
772 FORt1RT(/' RECORD',16,' UNKNOWN CLRSS CODE - ',fl4)
KLflSS=~l
C ELSE
19974 GO TO 19978
19977 CONTINUE
-------
D-19
KLflSS=.(CCODE(2,I)
C END IF
1S978 CONTINUE
C FOR (I = 1 TO 21 UHILE HflKE.NE.nCOO£d, I))
1 = 1
13970 GO TO 13971
19973 CONTINUE
I =1 +1
19971 CONTINUE
IF (I .GT. (21)) GO TO 19972
IF GO TO 19969
19966 GO TO 19972
19969 CONTINUE
C END FOR
19967 GO TO 19973
19972 CONTINUE
C IF (I.GT.21)
IFCI.GT.21) GO TO 19964
19963 GO TO 19965
19964 CONTINUE
IF (PR INT)
9 URITEd, 773)NREC,nmCE
773 FORHRT(/» RECORD', 16,' UNKNOWN llflKE CODE - ',(14)
nHNUF=-l
C ELSE
19962 GO TO 19966
19965 CONTINUE
HflNUF=nCODE(2,I)
C END IF
19966 CONTINUE
C FOR (I = 1 TO 6 UHILE IPCT.NE.ICODEd, I))
I = 1
19958 GO TO 19959
19961 CONTINUE
I =1 +1
19959 CONTINUE
IF(I .GT.(6)) GO TO 19960
IF(IPCT.NE.ICODE(!,!)> GO TO 19957
19956 GO TO 19960
13357 CONTINUE
C END FOR
19955 GO TO 13961
19960 CONTINUE
C IF (I.GT.6)
IF(I.GT.6) GO TO 19952
13351 GO TO 199S3
19952 CONTINUE
IF (PRINT)
9 URITEd, 774)NREC,IPCT
774 FOROflT(/' RECORD',16,' UNKNOUN USRGE CODE - >,fl4)
IPCTY=-1
C ELSE
19950 GO TO 19954
19953 CONTINUE
IPCTY=ICODEC2,I)
C END IF
13954 CONTINUE
-------
D-20
CPU GTDflTI(IZIP,0,nONTHl,JSTfll,JSTR2,IH,STRTE,CrrY,ZIP,RREfl,
1 IELEV, TOPO , IPOP , IPDENS , IREG , KODE)
mipnx=iu(i)
ITMPflV=IU(3)
iHunpn=iu(5)
C IF (STRTE(l).EQ.'CRLI')
IF(STRTEd).EQ.'CRLI') GO TO 19947
19946 GO TO 19948
19947 CONTINUE
SRLES='C>
C ELSE
19945 GO TO 19949
19948 CONTINUE
SRLES='F'
C END IF
19949 CONTINUE
C IF .EQ.O)
IF(HOD(NREC,20).EQ.O) GO TO 19942
19941 GO TO 19943
19942 CONTINUE
IF (PRINT)
9 WRITE <1, 702)nfiKE,nODLYR,IOISPL,CRRB,NCYLOR,XniS,
1 INERUT,nSIZE,CQ.UEST,HQUEST,F)Q.UEST,IZIP,CEniSS,HEI1ISS,CGUIDE,
2 HGUIOE,IPCT,f10NTHl
702 FORMfiT(/,fl4,lX, I2.1X, I3,lX,fU,lX, I1,1X,R4,1X, I4,1X,R4,3I3,
1 lX,I3,lX,F5,2,lX,F5.2,lX,F4.0,lX,F4.0,lX,f!4,lX,I2)
C END IF
19943 CONTINUE
19944 CONTINUE
CflLL ORTOUT
C END LOOP
19940 GO TO 19999
19998 CONTINUE
10 CONTINUE
RETURN
9 CONTINUE
IF (PRINT)
9 URITEd, 702)nRKE,nODLYR,IDISPL,CRRB,NCYLDR,XniS,
1 INERUT,HSIZE,CaUEST,HQUEST,flQUEST,IZIP,CEI1ISS,HEriISS,CGUIDE,
2 HGUIDE,IPCT,MONTH1
STOP 7
END
SUBROUTINE XFORM7
C TRRNSFORH J.D.POUERS FILE
IMPLICIT INTEGERS (I-N)
DIHENSION IU (5) , TCODE (2,4), KCODE (2,3), I1CODE (524) , ICODE (2, 12) ,
1 JCODE (2,24), JIIRN (1) , MPGR (3) , tIPG I (3) , MPGT (1)
CINCL I.VRRS
COnilON/VRRS/NREC, ISOURC,HRNUF, MODEL (5) , INERUT, IDISPL,TRRNSn,
1 OVRDRV,NCYLDR,CflRB,KLflSS,nODLYR,SRLES,CRRTRK,IZIP,IPOP.
2 IPOENS,I10NTH1,IPCTY, IHVGnL,CGUIDE,HGUIDE,CEniSS,HEniSS,
3 CQUEST,HQUEST,PQUEST, ITHPHX, ITMPHN, ITPIPRV, IHUIIflll, IHUflPH,
4 IELEV,TOPO(3),STRTE(4),CITY(6),IREG,PRINT
LOGICRL PRINT
DRTR TCODE/'l','fl ', '2','H3', '3','n4', '4','H5'/
-------
D-21
DRTfi KCODE/'1',4, '2',6, '3',8/
DRTR ICODE/U',5, '2',15, '3',25, H',35, '5',45, '6',55, '7',65,
1 '8>,75, '9',85, '0»,95, 'X',0, 'Y',-1/
ORTR JCDDE/'l ',500, '2 ',1500, '3 ',2500, '4 ',3500, '5 ',4500,
1 '6 ',5500, >7 ',6500, '8 ',7500, '9 ',8500, '0 ',9500,
2 'X ',10500, 'Y ',11500, ' 1',12500, ' 2',13500,
3 ' 3',14500, ' 4',15500, ' 5',18750, ' 6',21250,
4 ' 7',23750, ' 8',27500, ' 9',32500, ' 0',35000,
5 ' X',-365, ' Y',-365/
NREC.O
CflLL POPEN(»n.POUER',7,l,7,13,KODE)
C OPEN n.POUER ON FORTRRN UNIT 5
IF (KOOE.NE.O) STOP 8
C DO (1=1,524)
00 19999 1=1,524
REROU7,700)J,nCODE(I)
700 FORHFITa3,iX,I3>
IF U.NE. I) STOP 9
C END DO
19399 CONTINUE
CflLL PO.OSU3)
ISOUR&=7
KLRSS=-1
IDISPL=-1
CflRB=' '
OVRDRV='l'
INERUT=-1
CEf1ISS=-l.
HEfUSS=-l.
IFCPRINTi
9URITE(1, 770)
770 FORHRTCnY flflN HOOEL T C T CY CM HY HI % ZIP CGUID'
1 ,' HGUID f1',//0
OVRDRV='l'
C LOOP
13998 CONTINUE
REflOai,701,ENO=10,ERR=9)JHDLYR,jnPN,nODEL,ISTYLE,ICYL,TRRNI,
1 nPGR,iniL,JPCT, IZIP,CGUIDE,HGUIDE,I10NTH1
701 FORnRTa5X,fll,2X,fl3,26X,SR4,7X,3fll,/////,SOX,3fl2,7X,fl2,Rl,///,
1 9X,I3,1X,2F5.2,6X,I1)
NREC=NREC+1
IF(PRINT)
9URITEQ, 771)jnOLYR,jnflN,t10DEL,ISTYLE,ICYL,TRRNI,
1 HPGR, lOIL, JPCT, IZIP,CGUIDE,HGUIDE,f10NTHl
771 FORnRT(/,lX,fll,lX,R3,lX,5R4,3
-------
D-22
C ELSE
19988 GO TO 19996
19991 CONTINUE
HODLYRn-1
C END IF
19996 CONTINUE
DECODE <3,7772,JHflN,ERR=7771)II1flN
7772 FORMRTU3)
GO TO 7774
7771 It1RN=-l
7774 CONTINUE
C FOR (I = 1 TO 4 UHILE TRPNI.NE.TCODEU.D)
I = 1
19984 GO TO 19985
19987 CONTINUE
I =1 +1
19985 CONTINUE
IF(I .GT.(4)) GO TO 19986
IF(TRRNI.NE.TCODE(1,I)) GO TO 19983
19982 GO TO 19986
19983 CONTINUE
C END FOR
19981 GO TO 19987
19986 CONTINUE
C IF (I.GT.4)
IF(I.GT.4) GO TO 19978
19977 GO TO 13979
19978 CONTINUE
IF(PRINT)
9URITEC1, 776)NREC,TRflNI
776 FORI1RT(/' RECORD',16,' UNKNOWN TRRNSIIISSION CODE - ',RD
TRRNStb' '
C ELSE
19976 GO TO 19980
19979 CONTINUE
TRRNSn=TCODE(2,I)
C END IF
19980 CONTINUE
C IF USTYLE.EQ.' ')
IFdSTYLE.EQ.' ') GO TO 19973
19972 GO TO 19974
19973 CONTINUE
CRRTRK='0'
C ELSE
19971 GO TO 19975
19974 CONTINUE
CRRTRK='T'
C END IF
19975 CONTINUE
C FOR (I = 1 TO 3 WHILE ICYL.NE.KCODEd,!))
I = 1
19967 GO TO 19968
19970 CONTINUE
I =1 +1
19968 CONTINUE
IF(I .GT. (3)) GO TO 19969
IF (ICYL.NE.KCODECl,!)) GO TO 19966
-------
D-23
19965 GO TO 19969
19966 CONTINUE
C END FOR
19964 GO TO 13970
19969 CONTINUE
C IF U.GT.3)
IFd.GT.3) GO TO 19961
19960 GO TO 19962
19961 CONTINUE
IF (PR INT)
9URITEU, 7773)NREC,ICYL
7773 FORf1RT(/' RECORD', 16,' UNKNOWN CYLINDER CODE - >.fll)
NCYLDR=-1
C ELSE
19959 GO TO 19963
19962 CONTINUE
NCYLDR=KCOOE(2,I)
C END IF
19963 CONTINUE
C IF (IHRN.LT.l .OR. II1flN.GT.S24)
IFUnRN.LT.l .OR. IHflN.GT.524> GO TO 19956
19955 GO TO 19957
19956 CONTINUE
IF(PR INT)
9URITEU, 772)NREC,II1RN
772 FORHRT(/' RECORD', 16,' UNKNOWN HBNUF CODE - ',14)
f1RNUF=-l
C ELSE
19954 GO TO 19958
19957 CONTINUE
nflNUF=nCODE(II1RN)
C END IF
19958 CONTINUE
C FOR (I = 1 TO 12 WHILE JPCT.NE. ICODEd, I))
I = 1
19950 GO TO 19951
19953 CONTINUE
I =1 +1
19951 CONTINUE
IF(I .GT.(12)) GO TO 19952
IF (JPCT.NE. ICODEd,!)) GO TO 19949
19948 GO TO 19952
19949 CONTINUE
C END FOR
19947 GO TO 19953
19952 CONTINUE
C IF (I.GT.12)
IF(I.GT.12) GO TO 19944
19943 GO TO 19945
19944 CONTINUE
IF(PRINT)
gURITEd, 773)NREC,JPCT
773 FORMflT(/' RECORD',16,' UNKNOWN % CODE -',B2>
IPCTY=-1
C ELSE
19942 GO TO 19946
19945 CONTINUE
-------
D-24
IPCTY=ICOOE(2,I)
C END IF
19946 CONTINUE
C FOR (I * 1 TO 24 WHILE IHIL.NE.JCODEC1,I))
I = 1
19938 GO TO 19939
19941 CONTINUE
I =1 +1
19939 CONTINUE
IF(I .GT.(24)) GO TO 13940
IFUIIIL.NE.JCODEd,!)) GO TO 19937
19936 GO TO 19940
19937 CONTINUE
C END FOR
19935 GO TO 13941 •
19940 CONTINUE
C IF (I.GT.24)
IF(I.GT.24> GO TO 19932
19931 GO TO 19933
19932 CONTINUE
IF (PR INT)
SURITEd, 774)NREC,II1IL
774 FORftRTC/' RECORD', 16,' UNKNOWN PtlLEfiGE CODE - ',92)
IRVGI1U-1
C ELSE
19930 GO TO 19934
19933 CONTINUE
IRVGHL=JCODE(2,I)/365
C END IF
19934 CONTINUE
C DO (1=1,3)
DO 19929 1=1,3
HPGTU)=!1PGR.EO..'CRLIM GO TO 19926
19925 GO TO 19927
19926 CONTINUE
SRLES='C'
C ELSE
19924 GO TO 19928
-------
D-25
19927 CONTINUE
SflLES«'F»
C END IF
19928 CONTINUE
C IF (MOD(NREC,1000).EQ.O)
IF(nOO
-------
F-3
Col.
CARD
7
9
14
16
18
Zl
60
61
10
15
19
22
28
42
43
Length
VI
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
Contents
Reasons for Comparison
Reasons for not Comparing
Reasons for Opinion on Label
Reasons for Opinion on Label
Additional Information Desired
Source of Fuel Economy Information
Reasons for Actual MPG to be Lower
Reasons for Overstated EPA MPG
Reasons for not Comparing
Reasons for Opinion on Label
Additional Information Desired
Source Most Important
Sources to Locate Guide
Additional Information Needed for
EPA Guide-
II u II II it'
Changes/Notes
If blank refer to card 8 col 7
card 8 col 11
card 8 col 15
" " " " card, 8 col 19
" " " " card 8 col 23
" " " " card 8 col 35
1 card 8 col 47
11 " " " card 8 col 53
Alpha Codes found in this location: U,V,W
" " " R,S,T,V,W
" " " G,V,W
u ii ii it u n n
M,N,W
G,0,V
1 A,L,P,Q
CARD VII
12
14
15
16
18
19
23
27
74
2
1
4
4
1
3
3
3
1
Number of Vehicles and their Origin
n u u ii ii ii
Model Year Code
Model Year Code
Body Style
Model Code # of first Car
Model Code # of second Car
Model Code # of third Car
Demographic
If blank then no data or no multipunch
in column 14
If blank refer to column 12
If blank refer to card 8, col 59
" " " " card 8, col 63
Alpha Codes found in this location: F
Refer to code list in Table F.2
II II II M II II
tl II II II II II
Alpha codes: 3,R,S,V
-------
F-4
Col.
CARD
1
7
11
15
19
23
length
VIII
5
3
3
4
4
12
Contents
Chanaes/Notes
ADDITIONAL CARD FOR DECODED MULTI PUNCHES
Sequence Number
Reasons f or- Compari son
Reasons for not Comparing
Reasons for Opinion on Label
Reasons1 for Opinion on Label
Additional Information Desired
Decoded
11
ii
1C
Decoded
mu Iff punch-
II
It
H
multi punch
from card
" card
" card
" card
from card
6,
6,
6,.
6,
6,
col
col
col
col
col
7
9
14
16
18
35 12 Fuel Economy Information Source
47 6 Reasons for Actual MPG to
be Lower
53 6 Reasons for Overstated- EPA MPG
59 3 Model Year Code
63 4 Model Year Code
80 1 Card Number
listed in column binary format.
The following is the-column order-of
the characters: Y X 0 1 2 3-4 5 5 7 8 9
Decoded multipunch from card 6, col 21
listed in column binary format
column- order: YX0123456789
Multipunch from card 6, col 60 in column
binary format.column order: 1 23456
Multipunch from card 6, col 61
in colunnbinary format.
column order: 123456
Multipunch from card 7, col 15
" card 7. col 16
Always 8
CARD IX
6
10
14
19
24
30
80
5
3
3
F5.2
F5.2
F5.2
1
Sequence number
EEA Model number
First three digits of Zip Code
City MPG from Guide Book
Highway MPG from" Guide Book
Combined MPG from Guide Book
Month computed from Wave Number
Card 7 col. 78
Card number
000 is missing value code
-1.0 is missing value code
-1.0 is missing value code
-1.0 is missing value code
0 is missing either 1 for January (wave 1]
2 for February (wave 2), 4 for April
(wave 3)
Always 9
-------
F-5
TABLE F.I DEFINITION OF.ALPHA CODES
Alpha Codes
A
B
D
F
G
J
K
L
M
N
0
P
Q
R
S
T
U
V
w
Mu Hi punch
X 0
Y 1
1 8
7 8
X 2
3 6
2 7
2 6
1279
1 7
4 6
3 4
0 2
1 5
1 4
0 1
3 5
1 3
1 2
-------
F-6
TABLE F.2 MAKE/MODEL CODES TOR J,D,POWER DATA BASE
WITH PARALLEL CODES FOR EEA AND EPA
EER
939
282
165
194
001
046
104
262
173
205
002
166
003
004
071
123
085
136
136
086
174
087
007
048
263
264
088
264
088
072
050
264
008
137
089
124
073
265
009
211
089
137
073
124
TYPE*
S
S
S
U
S
S
U
S
S
U
S
S
S
S
S
U
5
U
U
S
S
S
3
S
S
U
S
U
S
S
S
S
S
U
S
U
S
U
S
S
S
U
S
U
JDP
238
293
006
006
007
012
012
015
237
303
303
306
316
317
019
019
020
021
023
023
024
025
026
027
030
032
032
033
033
034
035
036
039
040
040
041
041
042
042
045
046
046
047
047
EPR
000
090
010
010
010
010
010
010
010
640
640
640
120
120
040
040
040
040
040
040
040
040
040
040
040
040
040
040
040
040
040
040
040
040
040
040
040
040
040
040
040
040
040
040
rtflKE
RLFR ROriEO
flnC/RRtlBLER
flnC/RRMBLER
finC/RRMBLER
RflC/RflriBLER
PmC/RRIIBLER
flnC/RRHBLER
RnC/RfltlBLER
HUD I
RUDI
RUOI
BHU
snu
BUICK
BUICK
BUICK
BUICK
BUICK
BUICK
BUICK
BUICK
BUICK
BUICK
BUICK
CRDILLRC
CRDILLRC
CRDILLRC
CRDILLRC
CRDILLRC
CRDILLRC
CflOILLRC
CHEVROLET
CHEVROLET
CHEVROLET
CHEVROLET
CHEVROLET
CHEVROLET
CHEVROLET
CHEVROLET
CHEVROLET
CHEVROLET
CHEVROLET
CHEVROLET
flODEL
NO INFORHRTION
SPIDER
CONCORD
CONCORD
GREMLIN
PRCER
PRCER
OTHER/UNSPEC
SPIRIT DL
FOX
FOX
5000
3201
5301
CENTURY
CENTURY
ELECTRfl
ESTRTE UflGON
LE SRBRE
LE SRBRE
REGflL
RIVIERR
SKYHRUK
SKYLRRK
OTHER/UNSPEC
BROUGHRH
BROUGHRPI
OE VILLE
DE VILLE
EL OORRDO
SEVILLE
OTHER/UNSPEC
CflMRRO
CRPRICE
CRPRICE
CHEVELLE
CHEVELLE
CHEVETTE
CHEVETTE
CORVETTE
IflPRLfl
IMPDLfl
flflLIBU
flflLIBU
* TYPE CODES:
S=SEDRN, U=STRTION UflGON, P=PICKUP, V=VRN
-------
P-7
TABLE F,2r-Cont1nued
051
010
256
052
233
Oil
331
312
311
381
323
323
381
265
265
300
074
138
148
090
231
266
266
266
012
195
013
106
017
196
015
197
172
213
213
301
053
121
075
145
156
268
169
076
149
149
313
313
313
324
324
324
384
268
160
018
S
S
U
S
U
S
p
p
p
p
V
V
V
S
U
p
S
U
S
S
S
S
S
U
S
U
S
U
S
U
S
U
S
S
S
p
S
U
S
S
U
S
S
S
U
S
p
p
p
V
V
V
V
S
S
S
048
049
049
050
050
051
052
053
054
057
058
059
061
062
062
384
064
066
066
067
068
070
071
071
341
341
343
343
346
346
349
349
350
353
354
357
074
074
076
079
079
080
081
082
083
083
086
087
088
091
092
093
094
095
331
334
040
040
040
040
040
040
040
040
040
040
040
040
040
040
040
040
020
020
020
020
020
020
020
020
380
380
380
380
380
380
380
380
380
380
380
380
020
020
020
020
020
020
020
020
020
020
020
020
020
020
020
020
020
020
020
020
CHEVROLET
CHEVROLET
CHEVROLET
CHEVROLET
CHEVROLET
CHEVROLET
CHEVROLET
CHEVROLET
CHEVROLET
CHEVROLET
CHEVROLET
CHEVROLET
CHEVROLET
CHEVROLET
CHEVROLET
CHEVROLET
CHRYSLER
CHRYSLER
CHRYSLER
CHRYSLER
CHRYSLER
CHRYSLER
CHRYSLER
CHRYSLER
DfiTSUN
DflTSUN
ORTSUN
OflTSUN
DflTSUN
DfiTSUN
OflTSUN
DfiTSUN
OflTSUN
DflTSUN
DflTSUN
DRTSUN
DODGE
DODGE
DODGE
OODGE
DODGE
OODGE
OODGE
DODGE
DODGE
DODGE
DODGE
DODGE
DODGE
DODGE
DODGE
DOOGE
DOOGE
DODGE
DODGE
DODGE
HONTE CflRLO
NOVR
NOVfi
VEGfl
BLflZER
EL CflHINO
C-10 PICKUP
OTHER/UNSPEC PICKUP
G-10 VflN
G-20 VflN
OTHER/UNSPEC VflN
OTHER/UNSPEC
OTHER/UNSPEC
LUV
CORDOBfl
LE BflRON
LE BRRQN
NEWPORT
NEU YORKER
300
OTHER/UNSPEC
OTHER/UNSPEC
8-210
B-210
F-10
F-10
510
510
810
310
200SX
280Z
280ZX
PICKUP
flSPEN
flSPEN
CHRRGER
OIPLOriflT
DIPLOnflT
OODGE
HHGNUI1
tlONflCO
OUNI
OIINI
D-100 PICKUP
D-150 PICKUP
0-200 PICKUP
B-100 VHN
B-200 VflN
B-300 VflN
OTHER/UNSPEC VflN
OTHER/UNSPEC
CHRLLENGER
COLT 2-DOOR
-------
F-8
TABLE F.2—Continued
018
109
018
018
109
282
249
229
019
020
279
146
157
055
093
140
077
127
022
179
022
023
112
269
056
222
338
354
314
314
314
325
325
325
325
387
269
269
303
147
363
333
363
315
390
355
390
113
025
026
113
024
284
284
341
342
342
S
U
S
S
U
S
S
S
S
S
S
S
U
S
5
U
S
U
S
S
S
S
U
U
S
p
p
p
p
p
p
V
V
V
V
V
S
U
p
S
p
p
p
p
p
V
V
U
S
S
U
S
S
U
U
p
p
335
336
337
338
338
361
363
364
365
366
371
101
101
105
106
106
107
107
109
109
110
111
111
113
113
115
116
117
118
119
121
121
123
124
125
126
127
127
339
372
129
130
131
133
136
137
140
374
374
375
375
376
378
378
152
153
155
020
020
020
020
020
220
230
230
230
230
230
030
030
030
030
030
030
030
030
030
030
030
030
030
030
030
030
030
030
030
030
030
030
030
030
030
030
030
030
030
040
040
040
040
040
040
040
260
260
260
260
260
260
260
010
010
010
OODGE
DODGE
DODGE
DODGE
DODGE
FERRPRI
FIflT
FIflT
FIPT
FIflT
FIRT
FORD
FORD
FORD
FORD.
FORD
FORD
FORD
FORD
FORD
FORD
FORD
FORD
FORD
FORD
FORD
FORD
FORD
FORD
FORD
FORD
FORD
FORD
FORD
FORD
FORD
FORD
FORD
FORD
FORD
GHC
GttC
CMC
GI1C
GI1C
GHC
GtIC
HONOR
HONOR
HONOR
HONOR
HONOR
HONOR
HONOR
JEEP
JEEP
JEEP
COLT 4-DOOR
COLT HRGON
COLT HRTCHBRCK
COLT OTHER/UNSPEC
COLT OTHER/UNSPEC
FERRRRI
X 1/9
124
128
131
OTHER/UNSPEC
FRIRflONT
FRIRMONT
GRRNRDR
LTD
LTD
LTD II
LTD II
HUSTRNG (78)
MUSTRNG (79)
HUSTRNG II
PINTO
PINTO
THUNDERBIRD
THUNDERBIRD
XL
BRONCO
RflNCHERO
F-100 PICKUP
F-150 PICKUP
F-350 PICKUP
F-350 PICKUP
E-100 VRN
E-150 VfiN
E-250 VRN
OTHER/UNSPEC VRN
OTHER/UNSPEC
OTHER/UNSPEC
COURIER
FIESTfl
CflBRLLERO
jinnY
SPRINT
C-1500 PICKUP
OTHER/UNSPEC PICKUP
G-1500 VRN
OTHER/UNSPEC VRN
CIVIC
CIVIC
CIVIC CVCC
CIVIC CVCC
flCCORD
OTHER/UNSPEC
OTHER/UNSPEC
CHEROKEE
CJ-5
CJ-7
-------
F-9
TABLE F.2—Continued
341
342
035
079
188
999
030
153
031
031
304
062
062
062
062
062
027
114
180
080
270
036
203
270
270
057
158
170
270
270
028
252
252
142
142
081
159
142
098
271
271
063
032
100
142
098
271
271
272
272
272
151
151
082
150
150
064
U
P
S
S
S
S
S
U
U
S
P
S
S
S
S
S
S
U
S
S
S
S
U
S
U
S
U
S
S
U
S
S
S
S
U
S
U
U
S
S
U
S
S
S
U
S
S
U
S
S
S
S
S
S
U
S
S
160
160
162
163
164
165
388
388
392
393
338
409
410
411
413
416
167
167
168
171
173
174
174
175
175
176
179
179
180
180
327
418
419
182
182
183
183
185
185
188
189
189
190
191
193
193
195
195
426
427
432
437
438
200
201
201
207
010
010
030
030
030
030
560
560
560
560
560
200
200
200
200
200
030
030
030
030
030
030
030
030
030
030
030
030
030
030
030
305
305
040
040
040
040
040
040
040
040
040
040
040
040
040
040
040
400
400
400
410
410
020
020
020
020
JEEP
JEEP
LINCOLN
LINCOLN
LINCOLN
LINCOLN
MRZDR
MRZDR
MRZDR
MflZDR
MfiZDR
MERCEDES-BENZ
MERCEDES-BENZ
I1ERCEDES-BENZ
I1ERCEDES-BENZ
HERCEDES-BENZ
tIERCURY
MERCURY
HERCURY
MERCURY
MERCURY
MERCURY
MERCURY
MERCURY
MERCURY
MERCURY
MERCURY
MERCURY
MERCURY
MERCURY
MERCURY
I1G
MG
OLDSMOBILE
OLDSMOBILE
OLDSMOBILE
OLDSnOBILE
OLDSMOBILE
OLDSMOBILE
OLDSMOBILE
OLDSMOBILE
OLDSMOBILE
OLDSMOBILE
OLDSMOBILE
OLDSMOBILE
OLDSMOBILE
OLDSMOBILE
OLOSMOBILE
OPEL
OPEL
OPEL
PEUGEOT
PEUGEOT
PLYMOUTH
PLYMOUTH
PLYMOUTH
PLYMOUTH
OTHER/UNSPEC
OTHER/UNSPEC
CONTINENTRL
MRRK
VERSRILLES
OTHER/UNSPEC
GLC
GLC
RX-4
RX-7
PICKUP
280
300 •
300-0
450
OTHER/UNSPEC
BOBCRT
BOBCRT
CRPRI (1979 ONLY)
COUGflR
MRRflUDER
MRRQUIS
MRRQUIS
MERCURY
MERCURY
MONflRCH
ZEPHYR
ZEPHYR
OTHER/UNSPEC
OTHER/UNSPEC
CflPRI (1978 OR ERRLI
MIDGET
MGB
CUSTOM CRUISER
CUSTOM CRUISER
CUTLRSS
CUTLRSS
DELTR 88
DELTH 88
JETSTRR
OMEGR
OMEGR
STRRFIRE
TORONHDO
98
98
OTHER/UNSPEC
OTHER/UNSPEC
COUPE
SEDRN
OTHER/UNSPEC
504
504-0
FURY
HORIZON
HORIZON
VOLRRE
-------
F-10
TABLE F.2—Continued
131
335
330
273
273
326
033
305
034
118
144
102
144
102
036
083
066
144
144
083
132
163
035
274
067
274
253
253
253
283
187
283
259
190
259
163
163
037
037
119
119
119
344
037
119
038
039
120
040
121
155
164
346
317
275
275
275
U
P
V
S
U
V
S
P
S
U
U
S
U
S
S
S
S
S
U
S
U
S
S
U
S
S
S
S
S
S
S
S
U
S
S
S
S
S
S
U
S
U
P
S
U
S
S
U
S
U
U
S
P
P
S
V
U
207
208
209
210
210
210
300
300
218
218
219
219
220
220
222
223
224
225
225
228
228
229
232
234
234
235
442
445
446
452
458
459
463
465
467
470
471
473
474
474
475
475
476
477
477
480
481
481
482
482
483
483
484
486
487
487
487
020
020
020
020
020
020
020
020
040
040
040
040
040
040
040
040
040
040
040
040
040
040
040
040
040
040
420
420
420
430
430
430
470
470
470
490
490
660
660
660
660
660
660
660
660
570
570
570
570
570
570
570
570
570
570
570
570
PLYMOUTH
PLYMOUTH
PLYMOUTH
PLYMOUTH
PLYI10UTH
PLYI10UTH
PLYMOUTH
PLYMOUTH
PONTIRC
PONTIflC
PONTIflC
PONTIRC
PONTIflC
PONTIflC
PONTIflC
PONTIflC
PONTIflC
PONTIflC
PONTIflC
PONTIflC
PONTIflC
PONTIflC
PONTIflC
PONTIflC
PONTIflC
PONTIRC
PORSCHE
PORSCHE
PORSCHE
RENflULT
RENflULT
RENRULT
SflRB
SRflB
SRflB
SflPPORO
SflPPORO
SUBRRU
SUBRRU
SUBflRU
SUBRRU
SUBRRU
SUBflRU
SUBflRU
SUBRRU
TOYOTfl
TOYOTfl
TOYOTfl
TOYOTfl
TOYOTfl
TOYOTfl
TOYOTR
TOYOTfl
TOYOTfl
TOYOTfl
TOYOTfl
TOYOTfl
VOLflRE
TRRILDUSTER
VOYflGER
OTHER/UNSPEC
OTHER/UNSPEC
OTHER/UNSPEC
RRROU
flRROU
flSTRE
flSTRE
BONNEVILLE
BONNEVILLE
CflTflLINfl
CflTRLINR
FIREBIRD-TRRNS flM
GRflND flM
GRRND PRIX
GRRND SRFRRI UflGON
GRflND SRFRRI UflGON
LEMRNS
LEMflNS
PHOENIX
SUNBIRO
VENTURfl
VENTURfl
OTHER/UNSPEC
911
924
928
GOROINI
R-5 LE CflR
OTHER/UNSPEC
SONNET
99
OTHER/UNSPEC
2600
OTHER/UNSPEC
2-DOOR
4-OOOR
4-OOOR
UflGON
UflGON
BRflT
OTHER/UNSPEC
OTHER/UNSPEC
CELICfl
COROLLfl
COROLLfl
CORONR
CORONfl
CRESSIDfl
CRESSIDR
LflND CRUISER
PICKUP (HI-LUX)
OTHER/UNSPEC
OTHER/UNSPEC
OTHER/UNSPEC
-------
F-ll
TABLE F.2--Concluded
317 P 487 570 TOYOTfl OTHER/UNSPEC
254 S 492 305 TRIUOPH TR-4
254 S 493 305 TRIUMPH SPITFIRE
254 S 497 305 TRIUMPH OTHER/UNSPEC
041 S 506 590 VOLKSURGON BEETLE
042 S 507 590 VOLKSURGON DRSHER
122 U 507 590 VOLKSURGON DRSHER
043 S 509 590 VOLKSURGON RfiBBIT
044 S 510 590 VOLKSURGON SCIROCCO
241 U 513 590 VOLKSURGON BUS/STRTION URGON
353 S 513 590 VOLKSURGON BUS/STRTION URGON
241 U 514 590 VOLKSURGON OTHER/UNSPEC
276 S 514 590 VOLKSURGON OTHER/UNSPEC
068 S 521 600 VOLVO 240 SERIES
133 U 521 600 VOLVO 240 SERIES
069 S 522 GOO VOLVO 260 SERIES
134 U 522 600 VOLVO 260 SERIES
281 S 524 600 VOLVO OTHER/UNSPEC
281 U 524 600 VOLVO OTHER/UNSPEC
------- |