DOCUMENTATION FOR THE
NEW HIGHWAY FUEL CONSUMPTION MODEL
ENERGY AND ENVIRONMENTAL ANALYSIS, INC.
1111 North 19th Street
Arlington, Virginia 22209
(703)528-1900
-------
DOCUMENTATION FOR THE
NEW HIGHWAY FUEL CONSUMPTION MODEL
Prepared for:
Division of Conservation and Renewable Energy
Office of Policy, Planning, and Analysis
U.S. Department of Energy
Contract Number DE-AC01-79PE-70032
Transportation Support Services, Task 13
Prepared by:
Energy and Environmental Analysis, Inc.
1111 North 19th Street
Arlington, Virginia 22209
January 1982
-------
TABLE OF CONTENTS
1. INTRODUCTION
1.1 Background 1-1
1.2 Organization of Report 1-2
2. HFC MODEL STRUCTURE
2.1 Overview . . 2-1
2.1.1 Revised Framework 2-1
2.1.2 Model Capabilities 2-3
2.2 Program Structure 2-4
2.2.1 Source Code Description 2-6
2.2.2 Common Block Communication 2-7
2.2.3 State Variables and Scenario Parameters 2-8
2.2.4 Data Files 2-11
2.3 Model Algorithms 2-34
2.3.1 Base Year Initialization 2-35
2.3.2 Base Year Calibration 2-40
2.3.3 Updating State Variables 2-45
3. OPERATION AND MAINTENANCE
3.1 Model Operation 3-1
3.1.1 Executing the Model 3-1
3.1.2 Interactive Input 3-1
3.2 Program Maintenance 3-10
3.2.1 Program Editing 3-10
3.2.2 Program Compilation 3-10
3.2.3 PDS Compression 3-14.
3.3 Data File Editing 3-14
-------
TABLE OF CONTENTS (Continued)
Page
REFERENCES R-l
APPENDIX A: FORTRAN Source Code for the New Highway Fuel
Consumption Model ..... A-l
-------
1. INTRODUCTION
1.1 BACKGROUND
Over the past four years, the U.S. Department of Energy and its predecessor
agencies have developed data and analytical tools to evaluate trends in the
fuel consumption of the nation's vehicle fleet. Early phases of this work
centered largely on the influence of public programs and policies. Issues
of concern at that time included the setting of mandatory Corporate Average
Fuel Economy standards and the analysis of conservation proposals, e.g., to
accelerate the retirement of older, less efficient cars from the vehicle
fleet. Under the stimulus of higher fuel prices, marketplace forces have
had progressively greater influence on all components of fuel consumption,
including automotive technology, fleet fuel economy, and vehicle travel.
More recent phases of the DOE analysis have focused on tracking and eval-
uating the public and industry responses to these forces.
The Highway Fuel Consumption (HFC) model is a primary analytical tool in
this work, since it provides DOE the capability to evaluate the impacts
of private and governmental actions on trends in total highway fuel demand.
Originally developed for DOE as a light-duty vehicle fuel consumption model,
HFC was extended in previous work to include a medium- and heavy-duty truck
component. More recent modifications incorporated new analyses of techno-
logical variation in fuel economy shortfall and periodically have updated
the model's data files on sales, fuel economy, and miles of travel. The
fleet fuel consumption model has become a frequently used and updated ana-
lytical tool whose forecasts are circulated to over 70 organizations through
the DOE "Quarterly Reports." '
As a result of the progressive change in DOE analysis efforts and the con-
tinued growth of model capabilities, the HFC programming structure had be-
come cumbersome, inefficient, and unresponsive to new objectives. Therefore,
1-1
-------
a part of the work effort under Task 13 was allocated to the restructuring
of the HFC model.
The new Highway Fuel Consumption model, documented in this report, utilizes
a programming framework which achieves two primary design goals:
• To make efficient use of both computer system and user/analyst
resources
0 To allow flexibility for model updating which may be required
to support future DOE work.
New capabilities also have been added to the revised HFC model, including a
recent analysis relating passenger car scrappage to new car sales volumes
and an option to calibrate base year vehicle stock and fuel consumption to
published totals.
1.2 ORGANIZATION OF REPORT
An attempt was made during the programming of the new HFC model to provide
complete internal documentation of the program code, and it is likely that
user/programmers will find the model easy to understand. Therefore, the
emphasis of this external documentation is to assist the user/analyst in
understanding what the model does in forecasting fuel consumption and how
to operate it.
Section 2 (HFC Model Structure) presents a detailed narrative of program
and data file structures. Section 2.1 provides an overview of the new
model's framework and capabilities. Section 2.2 describes the FORTRAN
source code, the communication of information within the model, the vari-
ables and parameters which control the scenario forecast,1 and the loca-
tion and contents of the data files. Section 2.3 specifies the mathemati-
cal algorithms employed in the model's calculations and defines the fore-
cast options available to the user.
1-2
-------
Section 3 demonstrates the interactive execution of the HFC model under the
ISO operating system on the DOE/EIA IBM 3033 computer. Several ISO command
language procedures have been written to assist in maintaining the program
code. While not intended as a manual on the ISO system, the discussion in
this section provides general guidelines on manipulating the model and its
files.
1-3
-------
2. HFC MODEL STRUCTURE
2.1 OVERVIEW
This section describes the structure and methodology of the new Highway Fuel
Consumption Model. The overriding design principle was to develop a program-
ming structure which simulates the dynamics of the highway vehicle fleet.
In doing so, the existing program code was completely revised and the HFC
data files reorganized. Other changes were introduced, including new methods
of data file storage to simplify the periodic updating of the information,
and new interactive command procedures to permit easier and more efficient
maintenance of the program code.
As a result of these extensive changes, the new HFC model bears little re-
semblance to the computer program previously used. The user will notice few
of these changes, however. The interactive portion of program execution
asks many of the questions of the old HFC model, and the format of the fuel
consumption output table is unchanged. Most importantly, given a consistent
selection of base case scenario options, the old and new models produce
identical forecasts.
2.1.1 Revised Framework
The new HFC model treats fleet fuel consumption in a system dynamics frame-
work, i.e., it initializes the state variables describing the highway fleet
to base year values and then explicitly simulates year-to-year changes in
each. The variables defining fuel consumption (the system state) are:
• Stock -- number of vehicles in operation
• Efficiency -- on-road fuel economy
• Utilization — miles of travel per vehicle.
2-1
-------
Two additional state variables are required to complete the fleet profiles
produced by HFC:
• EPA efficiency — EPA fuel economy ratings
« Gasoline type -- unleaded versus leaded gasoline shares.
The first four state variables are disaggregated according to vehicle class,*
fuel type (gas or diesel), and vintage (age), while the fifth is disaggre-
gated only by vehicle class and vintage.
The old HFC model was designed to construct the fleet's state variables
independently for each year within a forecast scenario. This methodology
meant that no information was carried forward year-to-year and that fleet
parameters always were calculated from original model year data. For ex-
ample, the calculation of vehicles in operation applied net survival-by-
vintage probabilities to original (new vehicle) registrations. The number
of vehicles on the road declined with age for each model year because the
net survival curves declined. However, the old model did not explicitly
determine how many vehicles survived from one year to the next. Other fleet
descriptors (fuel economy, diesel penetration, etc.) also were independently
(re)constructed each year without carry-forward of information.
The new HFC differs significantly from its predecessor in the method of
representing year-to-year changes in the fleet, particularly with regard to
vehicle stock: state variables are updated annually to account for year-to-
year changes in the fleet, and the stored tables of model year data (fuel
economy, registrations, etc.) are accessed only for new vehicles. This
^Domestic passenger car.
Import passenger car.
Domestic light-duty truck, 0-6000 Ibs GVW.
Import light-duty truck, 0-6000 Ibs GVW.
Light duty truck, 6001-8500 Ibs GVW.
Light truck, 8501-10,000 Ibs GVW.
Medium-duty truck, 10,001-19,500 Ibs GVW.
Light-heavy duty truck, 19,501-26,000 Ibs GVW.
Heavy-heavy duty truck, >26,000 Ibs GVW.
2-2
-------
methodology therefore makes maximum use of information carry-forward and is
a more natural structure for simulating the forces which influence the vehi-
cle fleet.
For example, the gradual turnover of vehicle stock through scrappage and new
registrations is simulated in the new model by applying marginal survival
rates to the vintage years within the fleet. Age i vehicles become fewer
age i+1 vehicles in the following year, and other fleet descriptors of age
i vehicles are shifted to describe age i+1 vehicles. When the marginal
survival curves are calculated by differentiating the old model's net sur-
vival curves, the two methodologies are numerically equivalent and produce
the same fleet sizes. However, the new model's methodology offers much
greater flexibility in representing the fleet dynamics of vehicle aging
and scrappage.
2.1.2 Model Capabilities
The goals for the new model originally included maintaining existing analy-
tical capabilities. During the course of model design, however, two exist-
ing options (accelerated scrappage and fuel economy retrofit) were dropped
in favor of extending the capabilities in new areas.
The accelerated scrappage and retrofit options simulated potential federal
programs to increase fleet fuel efficiency by: (1) accelerating the retire-
ment of old, less efficient passenger cars; and (2) stimulating the market
penetration of improved tires and oils in passenger cars. The fuel savings
generated by these two programs have been analyzed in previous work efforts,
and the analytical capabilities were judged to be of reduced priority in
the current DOE agenda.
The additional capabilities incorporated in the new HFC model are:
• An option to modify fixed survival probabilities based on a
new relationship between sales and scrappage
• An option to calibrate base (first) year vehicle stock and
fuel consumption to published totals
2-3
-------
• The full integration of the technology-specific shortfall anal-
ysis with three alternative methods of estimating model year
fleet average EPA fuel economy.
As in the previous model, the user maintains control over basic parameters
of each scenario, such as its length in years, the frequency of output, the
vehicle class coverage of the fuel consumption table, the methodology of
estimating EPA and on-road fuel economy, the growth in VMT per vehicle, and
the method of calculating vehicle stock.
In addition to changes in the program code, the input data files have been
reorganized to rational, internally-documented formats. The new structures
incorporate the data used for the DOE Fourth Quarterly Report and provide ad-
ditional flexibility for extending the technology-specific information on fuel
economy and shortfall. Therefore, the revised data files maintain the current
level of model sophistication, while facilitating future modifications.
2.2 PROGRAM STRUCTURE
Techniques of structured programming were employed in developing the new
HFC model, which uses four major subroutines linked by common blocks to
accomplish its basic functions:
• Defining scenario parameters interactively
• Establishing base year fleet parameters
• Calculating fuel consumption and printing the output table
• Updating the fleet parameters annually.
As shown in Figure 2-1, two of the major subroutines also may call addi-
tional subroutines, depending on user options. Within this framework, the
main program controls the sequential calling of major subroutines but does
not perform substantive calculations related to the fuel consumption fore-
cast.
2-4
-------
FIGURE 2-1
OVERVIEW OF HIGHWAY FUEL
CONSUMPTION MODEL
Usef Intertact
to Define Sceurio
liiilii
User Specified
Shortfall?
Input Shortfall Coefficients
from Terraiiul
Calculate Fleet
Parameter! tor Base Year
Calculate and Print Fuel
Cosogpthx. Tabl.
Update Fleet
todeitYeir?
( ( Disc Oati FH»
C J Twminus
Decision Site
[ | Practising Slock
Oocufflait
2-5
-------
2.2.1 Source Code Description
The HFC program code is written in FORTRAN for the level G or H compilers.
The code is contained in the partitioned data set (PDS):
DSN = CN6824.RD1.HFC.FORTH
DSORG = PO
RECFM = FB
LRECL = 80
BLKSIZE = 6160
UNIT = DASD
VOL=SER = FEA025
and is listed in Appendix A of this report. Each member of the PDS is a
separate program entity — FORTRAN main program or subroutine -- which per-
forms one of the model functions. The members are described below in more
detail.
MAIN — The HFC main program which loads disk data files and
controls the sequence of subroutine calls. This member also
contains a block data subprogram which establishes and ini-
tializes the HFC COMMON blocks.
MAIN reads the basic HFC data on vehicle class sales, fuel
economy, and technology, the data describing technology-spe-
cific shortfall, and the vintage curves for net survival and
VMT per vehicle. These data files are read once per program
execution.
MAIN controls model execution through the sequence of subroutine
calls. It does not participate in the definition or execution
of a scenario and does not interact with the user.
SOLICT — The major subroutine which provides the user inter-
face for interactive definition of scenario parameters. SOLICT
will call subroutine USERSF to input shortfall coefficients from
the terminal, if the user-specified option is selected. SOLICT
also reads a VMT growth file, if the user chooses to grow VMT
per vehicle.
SOLICT directs all terminal output to FORTRAN (FTN) unit num-
ber 6, and expects terminal input from unit 5. VMT growth files
are allocated to units 22, 23, and 24 as noted on the interac-
tive prompt. SOLICT is buffered to reject user responses which
fall outside the range of valid options and to repeat the in-
teractive prompt.
2-6
-------
USERSF -- A minor (dependent) subroutine called from SOLICT
when the user-specified shortfall option is selected. The in-
terface accepts shortfall coefficients for four aggregate ve-
hicle groups (gas/diesel passenger cars/light trucks) over the
time period 1946 to 2000. USERSF echoes user input to permit
correction of keystroke errors.
INBASE — The major subroutine which initializes state variables
to their values in the user-selected base year. The algorithms
of INBASE are described in Section 2.3.1. INBASE performs no
input/output but may optionally invoke CALIBR to perform base
year calibration.
CALIBR -- A minor subroutine called from INBASE to execute the
calibration algorithm. When invoked during program execution,
CALIBR reads the calibration data file on FTN unit 1. The
calibration procedure is described in Section 2.3.2.
OUTPUT — The major subroutine which calculates fuel consump-
tion and writes the HFC output table. OUTPUT is called from the
main program for the base year and last year of each scenario,
and at annual increments determined interactively. OUTPUT
directs its output to FTN unit 8 which normally is allocated to
the terminal. Scenario output can be directed to a disk file
by allocating unit 8 to a data set with DCB attribute LRECL=133.
UPDATE — The major subroutine which updates state variables
annually, accounting for vehicle retirement and new registra-
tions. This subroutine performs no input/output. Its update
algorithms are described in Section 2.3.3.
PAGE — A minor utility subroutine which writes hex character 0C
to cause form feeding on most ASCII terminals. This function
provides aesthetic paging of output tables.
2.2.2 COMMON BLOCK Communication
The values of input data, the scenario parameters, and the state variables
are communicated to the major subroutines in labeled COMMON blocks CB01
through CB05. With the exception of PAGE (which is passed the output device
FTN number), the subroutines do not pass argument lists.
2-7
-------
Contents of the COMMON blocks are described below in functional terms. Since
these storage areas are shared by the major subroutines, they contain all of
the information available for use by the HFC model.
CB01 -- The values of the basic input data on new registrations,
fuel economy, technology penetration, shortfall, scrappage, VMT,
and gasoline fuel type for the nine vehicle classes.
CB02 -- The state variables specifying fleet fuel consumption
and the variables for marginal survival probability and VMT
growth.
CB03 — The parameters defining the scenario options specified
by the user.
CB04 -- Alphanumeric headings used for the output table.
CB05 — The matrix of user-specified shortfall coefficients and
the parameter defining the regression space used in shortfall
calculations.
COMMON blocks CB02 and CB03 are central to the operation of the HFC model
and are described below in detail. The variables of blocks CB01 and CB05,
which hold input data read from disk files or the terminal, are described
briefly in Section 2.2.4 (Data Files).
2.2.3 State Variables and Scenario Parameters
The new HFC model uses seven multi-dimensional arrays to hold the values of
the current system state and its rate of change. These are single-precision,
floating point (REAL*4) arrays defining fleet characteristics for 30 vintage
years (i = 1,...,30), two fuel types (j = 1 or 2, representing gas and diesel),
and nine vehicle classes (k = 1,...,9):
VEH (30,2,9): Vehicles in operation in units of millions of
vehicles.
LEADED (30,9): Leaded gasoline use (fractional market shares).
2-8
-------
VMT (30,2,9): Vehicle miles of travel in units of thousands of
miles per year. The current model's data files provide distinct
VMT curves for the following groups:
Passenger cars (k = 1,2)
- Light-duty trucks (k = 3,...,6)
Gasoline medium- and heavy-duty trucks (j = 1; k = 7,8,9)
Diesel medium- and heavy-duty trucks (j = 2; k = 7,8,9)
However, the model structure is designed to accommodate differ-
ent curves for each class and fuel type.
EPA (30,2,9): EPA fuel economy rating in miles per gallon.
Classes k = 6,7,8,9 do not have a standardized rating; the ar-
ray is equated to on-road fuel economy for these non-EPA classes.
RMPG (30,2,9): On-road fuel economy in miles per gallon.
MSURV (30,2,9): Marginal survival probability. The current
model's data files provide distinct survival curves for the
following groups:
Passenger cars (k = 1,2)
- Light trucks (k = 3,...,6)
Medium- and heavy-duty trucks (k = 7,8,9).
VMTGRO (26,9): VMT growth factors for the 26 scenario years
from 1975 through 2000. The entries for 1975 are absolute scale
factors to calibrate total VMT to FHWA data, while entries for
subsequent years are marginal (year-to-year) scale factors.
The base year values for these variables are established in subroutine INBASE,
as described in Section 2.3.1. New vehicles are characterized as i=l, and
the oldest vehicles in any vehicle class as i=30. Updating the state vari-
ables is performed by shifting entries for each i to the position for i+1,
after accounting for aging processes such as scrappage. The oldest vehicles
are dropped from the fleet, and new vehicles are entered at i=l. Following
each update, the variables in CB02 contain complete descriptions of the next
year's vehicle fleet.
2-9
-------
Ten variables are required to define the scenario options selected by the
user. These variables are used by the subroutines to control execution of
the program code and are available to all major subroutines through COMMON
block CB03:
BEGYR: Integer variable defining the oldest (or beginning)
model year present in the current fleet. Years 1946 through
2000 are numbered as 1,2,3,...,55.
ENDYR: Integer variable defining the most recent model year in
the fleet.
MPGOPT: Integer variable defining the user's selected option
for determining EPA mpg.
RODOPT: Integer variable defining the selected option for
calculating on-road mpg.
ADVANT: Real variable containing the diesel fuel economy ad-
vantage for option 1 in determining EPA mpg, e.g., 1.30 for
a 30 percent advantage.
SHORT: Logical variable with value .TRUE, if the user selects
the short-form output (passenger cars and light trucks only).
PAFRAC: Logical variable with value .TRUE, if user selects the
stock calculation relating total scrappage and new vehicle re-
gistrations .
CALIB: Logical variable with value .TRUE, if user selects op-
tional base year calibration.
GROW: Logical variable with value .TRUE, if user chooses to
grow VMT per vehicle.
PIND: Logical array of length 26 with elemental value .TRUE.
if the fuel consumption output is required for the associated
year (in the range 1975 through 2000).
2-10
-------
2.2.4 Data Files
The variables in COMMON blocks CB01 and CB05 store the input data of the HFC
model. These data are derived from resident disk data files (for CB01) or
from terminal I/O (for CB05). Users familiar with the previous HFC recognize
that the forecasting methodology largely is driven by its input data, which,
therefore, are central to successful operation of the model. Revisions to
the HFC model included reorganizing the data files, providing internal file
documentation, and placing associated files into generic PDS's.
2.2.4.1 Vehicle Class Data
The first category of input data is the compilation of annual new vehicle
registrations, fuel economy estimates, and technology penetrations by vehicle
class. The new HFC model organizes all such vehicle class data into members
of the following PDS:
DSN = CN6824.RD1.HFC.VEHCLS.DATA
DSORG = PO
RECFM = FB
LRECL = 132
BLKSIZE = 1320
UNIT = DASD
VOL=SER = FEA025
MEMBERS: DOMESTIC (k=l)
IMPORT (k=2)
DOMTRUCK (k=3)
IMPTRUCK (k=4)
TRK6T085 (k=5)
TRK85TEN (k=6)
MEDTRUCK (k=7)
LTHVYTRK (k=8)
HVHVYTRK . (k=9)
These data files are listed in Tables 2-1 through 2-9. The light-duty ve-
hicle classes (passenger cars and light-duty trucks below 8500 Ibs GVW)
have been characterized by extensive compilations of technology penetration
and fuel economy data. Less information is available on technology pene-
tration in the heavier classes, which have a slightly different file format.
2-11
-------
Table 2-1
, MFC.VEIICLS.DATA (Domestic)
VEHICLE CLASS: DOMESTIC CAR
YEAR SALES
10 X 6
XX. XX
1946 0.00
1947 0.00
1948 0.00
1949 0.00
1950 0.00
1951 5.71
1952 5.71
1953 5.71
1954 5.50
1955 7.11
1956 5.86
1957 5.73
1953 4.28
1959 5.42
1960 6.03
1961 5.48
1962 6.60
1963 7.17
1964 7.59
1965 3.74
1966 8.35
1967 7.58
1963 8.42
1969 8.46
1970 7.22
1971 8.46
fsj •—-..—-
| 1972 9.06
•— 1973 9.74
M 1974 7.41
1975 6.79
1976 8.30
1977 3.85
1978 9.00
1979 8.4
1980 6.46
1931 7.1
1932 8.2
1933 8.1
1 934 8 . 5
1 935 9 . 1
1 986 9 . 4
1937 9.3
1 938 9 . 3
1 939 9 . 3
1 990 9 . 2
1991 9.5
1992 9.7
1993 9.6
1 994 r1 . 6
1995 9.3
1996 10.0
1997 10.1
1 993 10.1
1 999 1 0 . 0
2000 10.0
EPA
GAS DIESL
MPG MPG
XX. XX XX. XX
16.0
16.0
16.0
16.0
16.0
16.0
16.0
16.0
16.0
16.0
15.9
15.8
15.7
15.6
15.5
15.4
15.4
15.4
15.4
15.4
15.0
14.6
14.2
14.1
14.1
13.7
13.6
13.3
12.8
14.8
16.5
17.20
18.69
19.09
20.97
23.31
24.55
26.29
27.86
29.64
30.68
31.35
33.01
34.15
35.28
35.28
35.23
35.28
35.28
35.23
35.28
35.23
35.28
35.23
35.28
DIESL LEAD CAS
MARKT MARKT ADJUST
PENTR PENTR FACTOR
.XXXX X.XXX XX. XXX
.0000
.0000
.0000
.0000
.0000
.0000
.0000
. 0000
.0000
.0000
.0000
. 0000
. 0000
.0000
.0000
.0000
.0000
. 0000
.0000
.0000
. 0000
.0000
.0000
.0000
.0000
.0000
. 0000
.0000
.0000
-0.012
-0.012
-0.012
-0.012
-0.012
-0.012
-0.012
-0.012
-0.012
-0.012
-0.012
-0.012
-0.012
-0.012
-0.012
-0.018
-0.018
-0.020
-0.022
-0.025
-0.034
-0.044
-0.051
-0.047
-0.048
-0.061
-0.061
-0.069
-0.072
.0000 0.003 -0.045
.0000 0.012 0.000
.0000 0. 0.000
.0064 0. 0.000
.0163 0. 0.000
.0460 0. 0.000
.0623 0. 0.000
.0950 0. 0.000
.1290 0. 0.000
.1700 0. 0.000
.1900 0. 0.000
.2300 0. 0.000
.2500 0. 0.000
.2700 0. 0.000
.2900 0. 0.000
.3100 0. 0.000
.3100 0. 0.000
.3100 0. 0.000
.3100 0. 0.000
.3100 0. 0.000
.3100 0. 0.000
.3100 0. 0.000
.3100 0. 0.000
.3100 0. 0.000
.3100 0. 0.000
.3100 0. 0.000
CONVN
AUTO
MPG
XX. XX
14.30
14.30
14.30
14.30
14.30
14.30
14.30
14.30
14.30
14.30
14.30
14.30
14.30
14.30
14.30
14.30
14.30
14.30
14.30
14.30
14.30
14.30
14.30
14.30
1 4 . 30
14.30
14.30
14.30
14.30
14.30
15.50
16.80
18.00
13.70
19.40
20.00
22.00
24.00
23.00
23.00
23.00
24 . 00
28.00
29 . 00
30.00
30.00
30.00
30.00
30 . 00
30.00
30 . 00
30 . 00
30 . 00
30 . 00
30 . 00
CONVN CONVN
HAN MAN
PRCNT MPC
X.XXX XX. XX
.284- 21.20
.286 21.20
.286 21.20
.286 21.20
.236 21.20
.286 21.20
.236 21.20
.286 21.20
.286 21.20
.236 21.20
.286 21.20
.236 21.20
.286 21.20
.286 21.20
.286 21.20
.259 21.20
.256 21.20
.237 21.20
.223 21.20
.194 21.20
.165 21.20
.133 21.20
.110 21.20
.098 21.20
.087 21.20
.089 21.20
.095 21.20
.066 21.20
.102 21.20
.084 21.20
.086 23.30
.043 25.50
.069 27.60
.103 28.50
.154 29.40
.167 30.30
.167 31 .20
.191 31.20
.250 32.60
.250 33.00
.231 28.00
.200 29.00
.400 30.00
.400 31 .00
.200 32.00
.200 32.00
.200 32.00
.200 32.00
.200 32.00
.200 32.00
.200 32.00
.200 32.00
.200 32.00
.200 32.00
.200 32.00
FWD FWD
BASE BASE
PRCNT MPG
X.XXX XX. X
.010 12.0
.010 12.0
.010 12.0
.010 12.0
.010 12.0
.010 12.0
.010 12.0
.010 12.0
.010 12.0
.010 12.0
.010 12.0
.010 12.0
.010 12.0
.010 12.0
.010 12.0
.010 12.0
.010 12. 0
.010 12.0
.010 12.0
.010 12.0
.010 12.0
.010 12.0
.010 12.0
.010 12.0
.010 12.0
.010 12.0
.010 12.0
.010 12.0
.010 12.0
.010 13.0
.012 14.0
.011 14.8
.021 27.2
.133 27.6
.227 23.0
.373 28.4
.470 29.5
.574 29.5
.711 30.0
.753 33.0
.831 33.2
.367 33.4
.932 33.5
.930 34.8
.923 36.0
.923 36.0
.928 36.0
.923 36.0
.923 36.0
.923 36.0
.923 36.0
.923 36.0
.923 36.0
.923 36.0
.9/3 36.0
FWD FWD DIESEL
ALT ALT ADJUST
PRCNT MPG FACTOR
X.XXX XX. XX XX. XXX
0.
0.
0,
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.00
0 . 00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0 . 00
0.00
0.00
0.00
0.00
0.00
0.00
0 . 00
0.00
0.00
0.00
0.00
0.00
0 . 00
0.00
0 . 00
0 . 00
0.00
0 . 00
DIESL
RWD
MPG
XX. XX
24.2
24.2
24.2
24.2
24.2
24.2
24.2
24.2
24.2
24.2
24.2
24.2
24.2
24.2
24.2
24.2
24.2
24.2
24.2
24.2
24.2
24.2
24.2
24.2
24.2
24.2
24.2
24.2
24.2
24.2
24.2
24.2
24.2
24.2
24.2
25.2
25.2
25.2
23.0
30.0
32.0
32.0
32.0
32 . 0
32.0
32.0
32 . 0
32.0
32 . 0
32.0
32 . 0
32 . 0
32 . 0
32.0
32 . 0
DIESL DIESL DIESL DIESL
FHD FWD ALT ALT
PRCNT MPG PRCNT MPG
X.XXX XX. XX X.XXX XX. XX
.000 .0 0.0
.000 .0 0.0
.000 .0 0.0
.000 .0 0.0
. 000 .0 0.0
.000 .0 0.0
.000 .0 0.0
.000 .0 0.0
.000 .0 0.0
.000 .0 0.0
.000 .0 0.0
. 000 .0 0.0
.000 .0 0.0
. 000 .0 0.0
.000 .0 0.0
.000 .0 0.0
. 000 .0 0.0
.000 .0 0.0
.000 .0 0.0
. 000 .0 0.0
. 000 .0 0.0
.000 .0 0.0
.000 .0 0.0
.000 .0 0.0
. 000 .0 0.0
. 000 .0 0 . O
. 000 .0 0.0
. 000 .0 0.0
.000 .0 0.0
. 000 .0 0.0
. 000 1.0 0.0
. 000 1.0 0.0
.000 45.70 0.0
.003 45.70 0.0
.029 45.70 0.0
.028 45.70 0.0
.063 35.00 0.0
. 1 00 35 .00 0 . 0
.145 35.00 0.0
.165 37.00 0.0
.215 39.00 0.0
.240 41 .00 0.0
.270 42.60 0.0
.290 44.10 0.0
.310 45.40 0.0
.310 45.40 0.0
.310 45.40 0.0
.310 45.40 0.0
.310 15.40 0.0
.0
.0
.0
.0
.0
.0
.0
.0
.0
.0
.0
.0
.0
.0
.0
.0
.0
.0
.0
.0
.0
.0
.0
.0
.0
.0
.0
.0
.0
.0
.0
.0
.0
.0
.0
.0
.0
.0
.0
.0
.0
.0
.0
.0
.0
.0
.0
.0
.0
.310 45.40 0.0 1 .0
.310 45.40 0.0 1 .0
.310 -15.40 0.0 1.0
.310 45.40 0.0 1 .0
.310 45.40 0.0 1 .0
.310 45.40 0.0 1.0
-------
Table 2-2
IIFC.VEIICLS.IIATA (Import)
VEHICLE CLASS: IMPORT CAR
YEAR
1946
1947
1948
1949
1950
1951
1952
1953
1954
1955
1956
1957
1953
1959
1960
1961
1962
1963
1964
1965
1966
1967
1968
1969
1970
1971
1972
1973
1974
1975
1976
1977
1978
1979
1980
1981
1982
1 933
1984
1985
1986
1937
1988
1989
1990
1991
1 992
1993
1994
1995
1996
1997
1993
1 999
2000
SALES
10 X 6
XX. XX
0.00
0.00
0.00
0.00
0.00
0.03
0.03
0.03
0.03
0.06
0.10
0.21
0.33
0.61
0.50
0.33
0.34
0.39
0.48
0.57
0.66
0.73
.00
.07
.24
.50
.55
.74
.33
.41
.45
.97
.95
2.3
2.3
2.5
2.4
2.4
2.5
2.6
2.7
2.7
2.7
2.7
2.7
2.7
2.7
2.7
2.3
2.8
2.8
2.8
2.8
2.9
2.9
EPA
GAS DIESL
MPG MPG
XX. XX XX. XX
37.0
37.0
37.0
37.0
37.0
37.0
37.0
37.0
37.0
37.0
35.6
34.3
33.0
31.7
30.4
30.7
30.9
31.3
31.7
32.1
30.3
29.6
23,4
27.9
27.2
24.0
22.5
22.6
21.5
23.3
25.39
27.59
26.57
26.16
28.05
29.77
31.13
32.60
34.21
34.81
35.23 .
36.21
37.10
33.14
39.20
39.20
39.20
39.20
39 . 20
39.20
39 . 20
39 . 20
39.20
39.20
39.20
DIESL LEAD
MARKT MARKT
PENTR PENTR
.XXXX X.XXX
.0000
.0000
. 0000
. 0000
.0000
.0000
. 0000
. 0000
.0000
.0000
.0000
.0000
. 0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.004
.003
.004
.005
.008
.
f
m
.
B
,
m
f
.
„
.
.01 .73
.013 .33
.013 .371
.0370 .712
.0511 .464
.0319 0.
.0278 0.
.0450 0.
.0660 0.
.0730 0.
.0340 0.
.1050 0.
.1130 0.
.1250 0.
.1420 0.
.1600 0.
. 1 600 0 .
.1600 0.
.1600 0.
.1600 0.
.1600 0.
.1600 0.
. 1 600 0 .
.1600 0.
. 1 600 0 .
. 1 600 0 .
GAS
ADJUST
FACTOR
XX. XXX
0.309
0.309
0.309
0.309
0.309
0.309
0.309
0.309
0.309
0.309
0.309
0.309
0.309
0.309
0.309
0.313
0.317
0.326
0.329
0.335
0.315
0.296
0.276
0.263
0.258
0.207
0.176
0.192
0.182
0.219
0.000
0.000
0.000
0.000
0.000
0.000
0.000
0.000
0.000
0.000
0.000
0.000
0.000
0.000
0.000
0.000
0.000
0 . 000
0.000
0.000
0.000
0.000
0.000
0.000
0 . 000
CONVN CONVN CONVN FUD FUD FUD FUD DIESEL
AUTO MAN MAN BASE BASE ALT ALT ADJUST
MPC PRCNT MPC PRCNT MPG PRCNT MPG FACTOR
XX. XX X.XXX XX. XX X.XXX XX. X X.XXX XX. XX XX. XXX
21.70 .800 23.00 .023 27.40 0.
21.70 .300 23.00 .023 27.40 0.
21.70 .800 23.00 .028 27.40 0.
21.70 .800 23.00 .023 27.40 0.
21.70 .800 23.00 .028 27.40 0.
21.70 .800 23.00 .023 27.40 0.
21.70 .800 23.00 .028 27.40 0.
21.70 .300 23.00 .023 27.40 0.
21.70 .800 23.00 .028 27.40 0.
21.70 .300 23.00 .023 27.40 0.
21.70 .800 23.00 .028 27.40 0.
21.70 .800 23.00 .028 27.40 0.
21.70 .800 23.00 .028 27.40 0.
21.70 .800 23.00 .028 27.40 0.
21.70 .800 23.00 .028 27.40 0.
21.70 .800 23.00 .023 27.40 0.
21.70 .800 23.00 .023 27.40 0.
21.70 .800 23.00 .023 27.40 0.
21.70 .800 23.00 .028 27.40 0.
21.70 .300 23.00 .028 27.40 0.
21.70 .800 23.00 .028 27.40 0.
21.70 .800 23.00 .028 27.40 0.
21.70 .800 23.00 .023 27.40 0.
21.70 .800 23.00 .028 27.40 0.
21.70 .800 23.00 .023 27.40 0.
21.70 .807 23.00 .045 27.40 0.
21.70 .313 23.00 .063 27.40 0.
21.70 .820 23.00 .030 27.40 0.
21.70 .849 23.00 .122 27.40 0.
21.70 .877 23.00 .164 27.40 0.
22.30 .734 23.80 .206 28.40 0.
22.90 .724 24.50 .320 29.30 0.
23.50 .724 25.30 .360 30.30 0.
23.80 .730 26.90 .370 30.50 0.
24.10 .733 28.50 .441 30.70 0.
24.50 .703 30.10 .473 31.00 0.
25.20 .716 31.30 .503 32.40 0.
25.90 .712 32.50 .525 33.80 0.
26.60 .684 33.60 .539 35.20 0.
27.30 .679 34.80 .568 36.60 0.
28.00 .690 36.00 .603 33.00 0.
28.50 .680 36.50 .635 39.00 0.
29.00 .651 37.00 .640 40.00 0.
29.50 .643 37.50 .699 41.00 0.
30.00 .636 33.00 .738 42.00 0.
30.00 .636 33.00 .733 42.00 0.
30.00 .636 33.00 .733 42.00 0.
30.00 .636 33.00 .738 42.00 0.
30.00 .636 33.00 .733 42.00 0.
30.00 .636 38.00 .733 42.00 0.
30.00 .636 33.00 .733 42.00 0.
30.00 .636 33.00 .733 42.00 0.
30.00 .636 33.00 .738 42.00 0.
30.00 .636 33.00 .733 42.00 0.
30.00 .636 33.00 .733 42.00 0.
0.00
0.00
0.00
0.00
0.00
0.00
0 . 00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0 . 00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0 . 00
0 . 00
0 . 00
0 . 00
0.00
0.00
0.00
0.00
0 . 00
DIESL
RUD
MPG
XX. XX
.0
.0
.0
.0
.0
.0
.0
.0
.0
.0
.0
.0
.0
.0
.0
.0
.0
.0
.0
.0
.0
.0
.0
.0
26.0
26.0
26.0
26.0
26.0
26.0
27.1
28.2
29.3
29.3
27.3
28.0
29.0
30.0
31.0
32.0
33.0
34.2
35.5
36.8
33.0
33 . 0
33.0
33.0
30.0
38.0
38 . 0
33.0
38 . 0
38.0
33 . 0
DIESL DIESL DIESL DIESL
FUD FUD ALT ALT
PRCNT MPG PRCNT MPG
X.XXX XX. XX X.XXX XX. XX
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
. 000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
. 000
.000
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0 .
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.006 44.20 0.
.023 44.20 0.
.027 44.20 0.
.010 40.60 0.
.016 40.60 0.
.020 41.70 0.
.035 42.30 0.
.035 43.30 0.
.040 44.90 0.
.055 46.00 0.
.070 47.00 0.
.080 43.00 0.
. 100 49.00 0.
. 120 SO. 00 0.
.120 50.00 0.
.120 50.00 0.
.120 50.00 0.
.120 50.00 0.
. 20 50.00 0.
. 20 50.00 0.
. 20 50.00 C.
. 20 50.00 0.
. 20 50.00 0.
. 20 5l>.0l> 0.
„
.
f
m
.
.
.
„
.
.
.
.
.
m
f
f
f
m
u
t
m
m
m
m
f
t
f
.
.
.
.
„
.
.
.
.
.
.
.
.
m
-------
Table 2-3
MFC. VHICI.S. DATA (DOWFRUCK)
VEHICLE CLASS: DOMESTIC TRUCK
YEAR SALES EPA DIESL LEAD GAS CONVN CONVN CONVN FMD FWD FMD FWD DIESEL DIESL DIESL DIESL DIESL DIESL
10 X 6 GAS DIESL MARKT MARKT ADJUST AUTO MAN MAN BASE BASE ALT ALT ADJUST RWD FWD FMD ALT f.LT
MPG MPG PENTR PENfR FACTOR MPG PRCNT MPG PRCNT MPG PRCNT MPG FACTOR MPC PRCNT MPG PRCNT MPG
XX. XX XX. XX XX. XX .XXXX
1946 0.00 14.7 .0000
1947 0.00 14.7 .0000
1943 0.00 14.7 .0000
1949 0.00 14.7 .0000
1950 0.00 14.7 .0000
1951 0.44 14.7 .0000
1952 0.44 14.7 .0000
1953 0.44 14.7 .0000
1954 0.41 14.7 .0000
1955 0.50 14.7 .0000
1956 0.49 14.7 .0000
1957 0.45 14.7 .0000
1958 0.33 14.7 .0000
1959 0.50 14.7 .0000
1960 0.52 14.0 .0000
1961 0.54 14.0 .0000
1962 0.62 14.0 .0000
1963 0.74 14.0 .0000
1964 0.84 14.0 .0000
1965 0.93 14.0 .0000
1966 0.95 14.0 .0000
1967 0.90 13.3 .0000
1968 1.05 12.9 .0000
1969 1.09 12.9 .0000
1970 0.93 12.7 .0000
1971 1.13 12.4 .0000
1972 1.32 11.9 .0000
1973 1.60 11.2 .0000
1974 1.43 11.0 .0000
.XXX XX. XXX XX. XX X.XXX XX. XX X.XXX XX. X X.XXX XX. XX XX. XXX XX. XX X.XXX XX. XX X.XXX XX. XX
0.000 14.00 .200 15.30 .000
0.000 14.00 .200 15.30 .000
0.000 14.00 .200 15.30 .000
0.000 14.00 .200 15.80 .000
0.000 14.00 .200 15.80 .000
0.000 14.00 .200 15.30 .000
0.000 14.00 .200 15.80 .000
0.000 14.00 .200 15.80 .000
0.000 14.00 .200 15.80 .000
0.000 14.00 .200 15.80 .000
0.000 14.00 .200 15.80 .000
0.000 14.00 .200 15.30 .000
0.000 14.00 .200 15.80 .000
0.000 14.00 .200 15.80 .000
0.000 14.00 .200 15.80 .000
0.000 14.00 .200 15.80 .000
0.000 14.00 .200 15.80 .000
0.000 14.00 .200 15.80 .000
0.000 14.00 .200 15.80 .000
0.000 14.00 .200 15.80 .000
0.000 14.00 .200 15.80 .000
0.000 14.00 .200 15.80 .000
0.000 14.00 .200 15.80 .000
0.000 14.00 .200 15.80 .000
0.000 14.00 .200 15.80 .000
0.000 14.00 .200 15.80 .000
0.000 14.00 .200 15.80 .000
0.000 14.00 .200 15.80 .000
0.000 14.00 .200 15.80 .000
1975 0.97 13.1 .0000 0. 0.000 14.00 .200 15.80 .000
1976 1.30 14.5 .0000 0. 0.000 14.90 .210 16.50 .000
1977 .33 14.10 .0000 0. 0.000 15.70 .220 17.30 .000
1978 .80 14.38 .0256 0. 0.000 16.60 .237 18.00 .000
.0 0.0
.0 0.0
.0 0.0
.0 0.0
.0 0.0
.0 0.0
.0 0.0
.0 0.0
.0 0.0
.0 0.0
.0 0.0
.0 0.0
.0 0.0
.0 0.0
.0 0.0
.0 0.0
.0 0.0
.0 0.0
.0 0.0
.0 0.0
.0 0.0
.0 0.0
.0 0.0
.0 0.0
.0 0.0
.0 0.0
.0 0.0
.0 0.0
.0 0.0
.0 0.0
.0 0.0
.0 0.0
.0 0.0
1979 .79 14.71 .0513 0. 0.000 15.60 .230 17.00 .000 1.0 0.0
1980 .61 17.04 .0900 0. 0.000 17.00 .371 19.00 .014 28.00 0.0
1981 .872 17.86 .1040 0. 0.000 18.50 .417 21.00 .020 28.00 0.0
1982 1.232 18.96 .1180 0. 0.000 19.40 .463 22.50 .060 29.00 0.0
1983 1.505 20.17 .1320 0. 0.000 20.20 .508 24.00 .070 30.00 0.0
1984 1.766 21.45 .1460 0. 0.000 21.10 .554 25.50 .090 31.00 0.0
1935 2.048 22.63 .1600 0. 0.000 22.00 .600 27.00 .100 32.00 0.0
1936 2.125 23.40 .1780 0. 0.000 22.40 .600 27.80 .100 33.00 0.0
1937 2.120 24.16 .1960 0. 0.000 22.30 .600 23.60 .100 34.00 0.0
1938 2.119 24.91 .2140 0. 0.000 23.20 .600 29.40 .100 35.00 0.0
1939 2.106 25.65 .2320 0. 0.000 23.60 .600 30.20 .100 36.00 0.0
1990 2.061 26.38 .2500 0. 0.000 24.00 .600 31.00 .100 37.00 0.0
1991 2.152 26.38 .2500 0. 0.000 24.00 .600 31.00 .100 37.00 0.0
1992 2.231 26.33 .2500 0. 0.000 24.00 .600 31.00 .100 37.00 0.0
1993 2.312 26.38 .2500 0. 0.000 24.00 .600 31.00 .100 37.00 0.0
1994 2.353 26.33 .2500 0. 0.000 24.00 .600 31.00 .100 37.00 0.0
1995 2.460 26.33 .2500 0. 0.000 24.00 .600 31.00 .100 37.00 0.0
1996 2.54026.33 .25000. 0.000 24.00 '.60031.00 .10037.000.0
1997 2.603 26.38 .2500 0. 0.000 24.00 .600 31.00 .100 37.00 0.0
1993 2.67326.38 .25000. 0.000 24.00 .60031.00 .10037.000.0
1999 2.667 26.38 .2500 0. 0.000 24.00 .600 31.00 .100 37.00 0.0
2000 2.731 26.33 .2500 0. 0.000 24.00 .600 31.00 .100 37.00 0.0
.0 0.00
.0 0.00
.0 0 . 00
.0 0.00
.0 0 . 00
.0 0.00
.0 0.00
.0 0.00
.0 0.00
.0 0.00
.0 0.00
.0 0.00
.0 0.00
.0 0.00
.0 0.00
.0 0.00
.0 0.00
.0 0.00
.0 0.00
.0 0.00
.0 0.00
.0 0.00
.0 0.00
.0 0.00
.0 0.00
.0 0.00
.0 0.00
.0 0.00
.0 0.00
.0 0.00
. 0 . 000
.0 .000
. 0 . 000
. 0 . 000
. 0 . 000
.0 .000
.0 .000
.0 .000
.0 .000
. 0 . 000
.0 .000
.0 .000
.0 .000
.0 .000
.0 .000
. 0 . 000
. 0 . 000
.0 .000
. 0 . 000
. 0 . 000
.0 .000
.0 .000
.0 .000
.0 .000
. 0 . 000
.0 .000
.0 .000
.0 .000
.0 .000
.0 .000
.0 0.00 1.0 .000
.0 0.00 1.0 .000
.0 0.00 18.8 .000
.0 0.00 19.3 .000
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
I. 0.
1. 0.
I. 0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
.0 0.00 22.0 .013 42. 0.
.0 0.00 22.3 .018 42. 0.
.0 0.00 23.6 .022 42. 0.
.0 0.00 24.4 .026 42. 0.
.0 0.00 25.2 .031 42. 0.
.0 0.00 26.0 .036 42. 0.
.0 0.00 27.0 .038 43.20 0.
.0 0.00 23.0 .041 44.40 0.
.0 0.00 29.0 .044 45.60 0.
.0 0.00 30.0 .047 48.00 0.
.0 0.00 31.0 .050 43. 0.
.0 0.00 31.0 .050 43.00 0.
.0 0.00 31.0 .050 43.00 0.
.0 0.00 31.0 .050 43.00 0.
.0 0.00 31.0 .050 43.00 0.
.0 0.00 31.0 .050 48.00 0.
.0 0.00 31.0 .050 48.00 0.
.0 0.00 31.0 .050 43.00 0.
.0 0.00 31.0 .050 43.00 0.
.0 0.00 31.0 .050 43.00 0.
.0 0.00 31.0 .050 48.00 0.
m
f
,
.
m
m
.
.
.
.
,
.
.
f
,
,
.
.
.
.
.
„
.
„
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
„
.
.
.
.
.
.
.
.
.
.
,
.
.
-------
Table 2-4
MFC.VEIICLS.DATA (1MPTRUCK)
VEHICLE CLASS: IMPORTED TRUCK
YEAR SALES EPA DIESL LEAD GAS CONVN CONVN CONVN FWD FHD FMD FWD DIESEL DIESL DIESL DIESL DIE3L DIESL
10 X 6 GAS DIESL MARKT MARKT ADJUST AUTO MAN MAN BASE BASE ALT ALT ADJUST RWD FWD FUD ALT ALT
MPG MPG PENTR PENTR FACTOR MPC PRCNT MPG PRCNT MPG PRCNT MPG FACTOR MPG PRCNT MPG PRCNT MPG
XX. XX XX. XX XX. XX .XXXX X.XXX XX. XXX XX. XX X.XXX XX. XX X.XXX XX. X X.XXX XX. XX XX. XXX XX. XX X.XXX XX. XX X.XXX XX. XX
1946 0.00 13.0 .0000
1947 0.00 13.0 .0000
1948 0.00 18.0 .0000
1949 0.00 18.0 .0000
1950 0.00 13.0 .0000
1951 0.00 13.0 .0000
1952 0.00 18.0 .0000
1953 0.00 13.0 .0000
1954 0.00 13.0 .0000
1955 0.00 18.0 .0000
1956 0.00 18.0 .0000
1957 0.00 18.0 .0000
1958 0.00 13.0 .0000
1959 0.01 13.0 .0000
I960 0.01 13.0 .0000
1961 0.00 13.0 .0000
1962 0.00 13.0 .0000
1963 0.00 18.0 .0000
1964 0.01 13.0 .0000
1965 0.01 18.0 .0000
1966 0.02 13.0 .0000
1967 0.02 18.0 .0000
1963 0.02 13.0 .0000
1969 0.03 18.0 .0000
1970 0.07 18.0 .0000
N> 1971 0.09 18.0 .0000
1 1972 0.15 18.0 .0000
JT .1973 0.25 18.0 .0000
1974 0.19 18.0 .0000
0.000 13.00 .800 21.00 .000
0.000 18.00 .300 21.00 .000
0.000 18.00 .800 21.00 .000
0.000 18.00 .800 21.00 .000
0.000 18.00 .800 21.00 .000
0.000 18.00 .800 21.00 .000
0.000 18.00 .800 21.00 .000
0.000 18.00 .800 21.00 .000
0.000 13.00 .800 21.00 .000
0.000 18.00 .80021.00 .000
0.000 18.00 .80021.00 .000
0.000 18.00 .800 21.00 .000
0.000 13.00 .800 21.00 .000
0.000 18.00 .800 21.00 .000
0.000 18.00 .800 21.00 .000
0.000 18.00 .800 21.00 .000
0.000 13.00 .800 21.00 .000
0.000 18.00 .800 21.00 .000
0.000 18.00 .800 21.00 .000
0.000 18.00 .300 21.00 .000
0.000 18.00 .800 21.00 .000
0.000 13.00 .800 21.00 .000
0.000 18.00 .800 21.00 .000
0.000 18.00 .800 21.00 .000
0.000 18.00 .300 21.00 .000
0.000 18.00 .80021.00 .000
0.000 18.00 .800 21.00 .000
0.000 18.00 .800 21.00 .000
0.000 13.00 .800 21.00 .000
1975 0.24 21.0 .0000 .95 0.000 18.00 .800 21.00 .000
1976 0.17 22.2 .0000 .76 0.000 19.70 .820 22.40 .000
1977 .31 24.20 .0000 .147 0.000 21.30 .913 23.80 .000
1978 .34 24.00 .0000 .039 0.000 23.00 .331 25.20 .000
1979 .43 24.00 .0000 .081 0.000 22.00 .871 24.10 .000
1930 .52 23.49 .0000 .047 0.000 21.00 .893 23.00 .000
1931 .452 23.71 .1220 .063 0.000 23.00 .900 26.00 .000
1932 .430 23.96 .0249 .075 0.000 23.20 .900 26.80 .000
1933 .321 24.21 .0332 .091 0.000 23.50 .900 27.50 .000
1934 .276 24.46 .0415 0. 0.000 23.80 .900 28.20 .000
1935 .291 24.71 .0500 0. 0.000 24.00 .900 29.00 .000
1986 .293 25.62 .0300 0. 0.000 24.40 .900 29.60 .000
1937 .299 26.61 .1100 0. 0.000 24.80 .900 30.20 .000
1933 .293 27.63 .1400 0. 0.000 25.20 .900 30.80 .000
1939 .302 23.32 .1700 0. 0.000 25.60 .900 31.40 .000
1990 .294 29.95 .2000 0. 0.000 25.60 .900 31.40 .000
1991 .305 29.95 .2000 0. 0.000 25.60 .900 31.40 .000
1992 .323 29.95 .2000 0. 0.000 25.60 .900 31.40 .000
1993 .327 29.95 .2000 0. 0.000 25.60 .900 31.40 .000
1994 .334 29.95 .2000 0. 0.000 25.60 .900 31.40 .000
1995 .349 29.95 .2000 0. 0.000 25.60 .900 31.40 .000
1996 .361 29.95 .2000 0. 0.000 25.60 .900 31.40 .000
1997 .363 29.95 .2000 0. 0.000 25.60 .900 31.40 .000
1993 .330 29.95 .2000 f). 0.000 25.60 .900 31.40 .000
1999 .379 29.95 .2000 0. 0.000 25.60 .900 31.40 .000
2000 .397 29.95 .2000 0. 0.000 25.60 .900 31.40 .000
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0 .
. 0 0 .
. 0 0 .
0.00 1.0 .000
0.00 1.0 .000
0.00 1.0 .000
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0 . 00
0.00
0.00
. 0 . 000
. 0 . 000
.0 .000
.0 .000
.0 .000
. 0 . 000
. 0 . 000
. 0 . 000
.0 .000
.0 .000
.0 .000
. 0 . 000
. 0 . 000
. 0 . 000
. 0 . 000
.0 .000
. 0 . 000
.0 .000
. 0 . 000
.0 .000
. 0 . 000
. 0 . 000
. 0 . 000
.0 .000
. 0 . 000
.0 .000
.0 .000
.0 .000
. 0 . 000
.0 .000
.0 .000
.0 .000
0.00 33.9 .000
0.00 34.3 .000
0.00 34.7 .000
0.00 35.2 .000
0.00 36.0 .000
0.00 36.3 .000
0.00 37.6 .000
0.00 38.4 .000
0.00 39.2 .000
0.00 39.2 .000
0.00 39.2 .000
0.00 39.2 .000
0.00 39.2 .000
0.00 39.2 .000
0.00 39.2 .000
0.00 39.2 .000
0.00 39.2 .000
0.00 39.2 .000
0.00 39.2 .000
0 . 00 39 . i . 000
.0 0. 1.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0 .
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0 .
.0 0 .
.0 0.
. 0 0 .
.0 0.
.0 0.
.0 o .
.0 0.
.0 0 .
.
.
f
f
.
.
,
.
.
.
.
.
.
.
.
.
.
.
B
r
.
.
n
f
.
.
,
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
,
.0 0. 1.
.0 0. 1.
-------
TABLE 2-5
IIPC.VFJICLS.DATA (TRK6 TO 85)
VEHICLE CLASS: TRUCK 6 TO 3.5 THOUS. LBS.
YEAR SALES EPA DIESL LEAD GAS CONVN CONVN CONVN FWD FHD FWD FWD DIESEL DIESL DIESL DIESL DIESL DIESL
»0 X 6 CAS DIESL MARKT MARKT ADJUST AUTO MAN MAN BASE BASE ALT ALT ADJUST RWD FWD FWD ALT ALT
MPG MPG PENTR PENTR FACTOR MPG PRCNT MPG PRCNT MPG PRCNT MPG FACTOR MPC PRCNT MPG PRCNT MPG
XX. XX XX. XX XX. XX .XXXX X.XXX XX. XXX XX. XX X.XXX XX. XX X.XXX XX. X X.XXX XX. XX XX. XXX XX. XX X.XXX XX. XX X.XXX XX. XX
1946 0.00 1J.3 .0000 1. 0.000 9.60 .250 10.60 .000
1947 0.00 11.3 .0000
1948 0.00 .3 .0000
1949 0.00 .3 .0000
1950 0.00 .3 .0000
1951 .093 .3 .0000
1952 0.107 .3 .0000
1953 0.107 .3 .0000
1954 .107 .3 .0000
1955 0.107 .3 .0000
1956 0.107 .3 .0000
1957 0.116 .3 .0000
1953 0.089 .3 .0000
1959 .116 11.3 .0000
1960 0.125 10.3 .0000
1961 0.116 10.3 .0000
1962 .143 10.8 .0000
1963 .169 10.8 .0000
1964 0.187 10.8 .0000
1965 0.223 10.3 .0000
1966 0.250 10.3 .0000
1967 .250 10.2 .0000
1968 .348 9.9 .0000
1969 0.372 9.9 .0000
1970 .373 9.8 .0000
K. 1971 .407 9.5 .0000
I 1972 .503 9.2 .0000
i-" 1973 .634 8.6 .0000
^ 1974 .563 8.5 .0000
1975 .810 10.8 .0000
1976 1.329 11.9 .0000
1977 1.600 11.60 .0000
1978 2.120 11.80 .0052
1979 1.520 12.11 .0050 <
1930 0.360 14.18 .0050
1931 0.351 14.97 .0030
1982 .834 15.84 .0430
1933 .732 16.66 .0620
0.000 9.60 .250 10.60 .000
0.000 9.60 .250 10.60 .000
0.000 9.60 .250 10.60 .000
0.000 9.60 .250 10.60 .000
0.000 9.60 .250 10.60 .000
0.000 9.60 .250 10.60 .000
0.000 9.60 .250 10.60 .000
0.000 9.60 .250 10.60 .000
0.000 9.60 .250 10.60 .000
0.000 9.60 .250 10.60 .000
0.000 9.60 .250 10.60 .000
0.000 9.60 .250 10.60 .000
0.000 9.60 .250 10.60 .000
0.000 9.60 .250 10.60 .000
0.000 9.60 .250 10.60 .000
0.000 9.60 .250 10.60 .000
0.000 9.60 .250 10.60 .000
0.000 9.60 .250 10.60 .000
0.000 9.60 .250 10.60 .000
0.000 9.60 .250 10.60 .000
0.000 9.60 .250 10.60 .000
0.000 9.60 .250 10.60 .000
0.000 9.60 .250 10.60 .000
0.000 9.60 .250 10.60 .000
0.000 9.30 .250 10.30 .000
0.000 9.00 .250 10.00 .000
0.000 8.40 .250 9.40 .000
0.000 8.30 .250 9.30 .000
0.000 10.60 .250 11.60 .000
0.000 11.30 .250 12.30 .000
0.000 11.40 .250 12.40 .000
0.000 12.20 .244 13.20 .000
). 0.000 13.10 .303 14.10 .000
0.000 13.90 .292 14.90 .000
0.000 14.70 .354 15.70 .000
0.000 15.40 .415 16.40 .000
0.000 16.20 .477 17.20 .000
1984 .670 17.47 .0310 0. 0.000 16.90 .538 17.90 .000
1985 .563 18.27 .1000 0. 0.000 17.70 .600 1C. 70 .000
1936 .586 18.86 .1200 0. 0.000 18.00 .600 18.70 .000
1987 .583 19.35 .1400 0. 0.000 18.40 .600 19.40 .000
1983 .577 19.94 .1600 0. 0.000 13.70 .600 19.70 .000
1939 .536 20.42 .1800 0. 0.000 19.10 .600 20.10 .000
1990 .571 20.98 .2000 0. 0.000 19.40 .600 20.40 .000
1991 .597 20.98 .2000 0. 0.000 19.40 .600 20.40 .000
1992 .624 20.98 , .2000 0. 0.000 19.40 .600 20.40 .000
1993 .636 20.98 .2000 0. 0.000 19.40 .600 20.40 .000
1994 .652 20.93 .2000 0. 0.000 19.40 .600 20.40 .000
1995 .674 20.93 .2000 0. 0.000 19.40 .600 20.40 .000
1996 .699 20.93 .2000 0. 0.000 19.40 .600 20.40 .000
1-V9 7 .713 20.93 .2000 0. 0.000 19.40 .600 20.40 .000
1998 .739 20.98 .2000 0. 0.000 19.40 .600 20.40 .000
1999 .736 20.93 .2000 0. 0.000 19.40 .600 20.40 .000
2000 .754 20.93 .2000 0. 0.000 19.40 .600 20.40 .000
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0 .
. 0 0 .
.0 0 .
.0 0.
. 0 0 .
. 0 0 .
. 0 0 .
. 0 0 .
0.00
0 . 00
0.00
0.00
0.00
0.00
0.00
0 . 00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
. 0 . 000
. 0 . 000
.0 .000
.0 .000
. 0 . 000
. 0 . 000
. 0 . 000
. 0 . 000
. 0 . 000
. 0 . 000
. 0 . 000
. 0 . 000
. 0 . 000
.0 .000
.0 .000
.0 .000
.0 .000
. 0 . 000
.0 .000
. 0 . 000
. 0 . 000
.0 .000
. 0 . 000
. 0 . 000
.0 .000
. 0 . 000
. 0 . 000
. 0 . 000
. 0 . 000
.0 .000
.0 .000
.0 .000
0.00 15.3 .000
0.00 15.7 .000
0.00 18.5 .000
0.00 19.4 .000
0.00 20.5 .000
0.00 21.7 .000
0.00 22.8 .000
0.00 23.3 .000
0.00 24.6 .000
0.00 25.2 .000
0.00 25.9 .000
0.00 26.5 .000
0.00 27.3 .000
0.00 27.3 .000
0.00 27.3 .000
0.00 27.3 .000
O.O'O 27.3 .000
0.00 27.3 .000
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0.
.0 0 .
. 0 0 .
.0 0 .
. 0 0 .
.0 0.
.0 0.
.0 0.
.0 0.
0.00 27.3 .000 1.0 0.
0.00 27.3 .000 1.0 0.
0.00 27.3 .000 1.0 0.
0.00 27.3 .000 1.0 0.
0.00 27.3 .000 ! .0 0.
m
m
f
r
.
.
.
f
m
.
.
,
m
.
.
.
m
r
r
.
.
.
.
.
.•
.
m
f
.
.
.
f
.
,
.
.
.
.
.
.
.
.
f
.
.
.
.
-------
Table 2-6
HFC. VEIICLS. DATA (TRK85TEN)
VEHICLE CLASS: TRUCK 8.5 TO 10 THOUS.
LBS.
YEAR
SALES
10 X 6
EPA
CAS
MPG
1946
1947
1948
1949
1950
1951
1952
1953
1954
1955
1956
1957
1 953
1959
1960
1961
1962
1963
1964
1965
1966
1967
1968
1969
1970
1971
1972
1973
1974
1975
1976
1977
1978
1979
1930
1981
1932
1933
1984
1985
1936
1937
1988
1989
1 990
1991
1 992
1993
1994
1995
1996
1997
1998
1 999
2000
XX. XX
.00
.00
.00
.00
.00
.012
.013
.013
.013
.013
.013
.014
.011
.014
.015
.014
.017
.021
.023
.027
.030
.030
.032
.038
.037
.043
.037
.036
.077
.090
.111
.230
.290
.280
.220
.223
.273
.242
.293
.310
.327
. 336
.325
.321
.321
.323
.341
.347
.354
.371
.384
.395
.336
.401
.411
XX
3
3
8
3
8
3
8
3
3
8
8
3
8
3
3
3
8
8
8
3
8
3
7
7
7
7
7
7
6
8
8
8
8
8
10
10
10
11
11
11
12
12
12
12
12
12
12
12
12
12
12
12
12
12
12
.XX
.6
.6
.6
.6
.6
.6
.6
.6
.6
.6
.6
.6
.6
.6
.3
.3
.3
.3
.3
.3
.3
.0
.3
.8
.7
.6
.4
.0
.9
.3
.9
.80
.90
.90
.00
.50
.97
.23
.49
.73
.00
.07
.22
.43
.62
.62
.62
.62
.62
.62
.62
.62
.62
.LZ
.62
DIESL
MPG
XX.
3.
8.
8.
3.
8.
3.
3.
3.
8.
8.
8.
3.
8.
8.
8.
8.
8.
8.
8.
8.
8.
8.
7.
7.
7.
7.
7.
7.
6.
8.
3.
8.
8.
3.
10.
10.
14.
14.
14.
15.
15.
15.
15.
16.
16.
16.
16.
16.
16.
16.
16.
16.
!6.
16.
16.
XX
6
6
6
6
6
6
6
6
6
6
6
6
6
6
3
3
3
3
3
3
3
0
8
8
7
6
4
0
9
3
9
80
90
90
00
50
26
60
94
25
60
69
89
22
41
41
41
41
41
41
41
41
41
41
41
DIESL LEAD
MARKT MARKT
PENTR PENTR
.XXXX X.XXX
.0000
. 0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
. 0000
.0000
.0000
.0000
.0000
.0000
. 0000
. 0000
.0000
. 0000
. 0000
. 0000
.0000
. 0000
.0000
. 0000
.0000
.0000
.0000
.0000
.0000
.0000
. 0000
.0000
.0000
. 0000
.0500
. 1 000
.
.
.
.
.
t
,
.
,
.
,
,
B
f
.
m
,
f
.
B
B
m
t
f
.
t
.1500 0.
.2000 0.
.2400 0.
.2800 0.
.3200 0.
.3600 0.
.4000 0.
.4000 0.
.4000 0.
.4000 0.
.4000 0.
.4000 0.
.4000 0.
.4000 0.
.4000 0.
.4000 0.
.4000 0.
-------
Table 2-7
MR:. VI-IICLS. DATA (MEDTRUCK)
VEHICLE CLASS: MEDIUM TRUCK
ISi
I—•
oo
TEAR
1946
1947
1948
1949
1950
1951
1952
1953
1954
1955
1956
1957
1958
1959
1960
1961
1962
1963
1964
1965
1966
1967
1963
1969
1970
1971
1972
1973
1974
1975
1976
1977
1978
1979
1980
1931
1932
1983
1984
1935
1936
1987
1933
1939
1990
1991
1992
1993
1994
1995
1996
1997
1993
1999
£000
SALES
10 X 6
XX. XX
.338
.430
.432
.255
.299
.338
.249
.228
.239
.264
.236
.196
.147
.202
.172
.141
.149
.153
.143
.153
.134
.096
.086
.086
.067
.082
.077
.066
.022
.020
.030
.026
.082
.023
.010
.031
.032
.034
.035
.036
.036
.035
.035
.036
.031
.032
.032
.032
.031
.031
.030
.031
.032
.031
. 03 1
EPA
GAS
MPG
XX. XX
7.00
7.00
7.00
7.00
7.00
7.00
7.00
7.00
7.00
7.00
7.00
7.00
7.00
7.00
7.00
7.00
7.00
6.50
7.30
6.40
6.70
7.30
7.00
7.30
7.40
6.90
7.30
7.20
7.20
7.20
7.40
7.50
7.60
7.70
7.70
7.80
7.90
8.00
8.10
8.10
8.10
8.10
8.10
3.10
8.10
8.10
8.10
3.10
8.10
3.10
3.10
8.10
8.10
3.10
8.10
DIESL
MPC
XX. XX
7.00
7.00
7.00
7.00
7.00
7.00
7.00
7.00
7.00
7.00
7.00
7.00
7.00
7.00
7.00
7.00
7.00
6.50
7.30
6.40
6.70
7.30
7.00
7.30
7.40
6.90
7.30
7.20
7.20
7.20
7.40
11.20
11.30
11.30
11.30
11.50
11.60
11.70
11.90
11.90
11.90
11.90
.90
.90
.90
.90
.90
.90
.90
. 90
.90
.90
1 .90
1 . 90
1 . 90
DIESL LEAD
MARKT MARKT
PENTR PENTR
.XXXX
.000
.000
.000
.000
.000
.000
.004
.001
.001
.000
.000
.000
.000
.000
.002
.002
.005
.004
.016
.020
.021
.012
.006
.003
.003
.005
.003
.005
.002
.008
.000
.000
.000
.000
.000
.03
.16
.24
.32
.40
.40
.40
.40
.40
.40
.40
.40
.40
.40
.40
.40
.40
.40
.40
.40
.XXX
m
f
f
,
.
.
.
m
m
.
.
.
.
.
f
.
.
B
.
f
m
f
t
.
m
.
f
t
f
f
.
B
.
.
m
f
f
f
n
m
t
f
m
,
.
n
m
f
m
m
m
-------
Table 2-R
MI'C.VnilCLS.DATA (I.TIIVYTRK)
VEHICLE CLASS: LIGHT-HEAVY TRUCK
N3
i—•
VO
YEAR
1946
1947
1948
1949
1950
1951
1952
1953
1954
1955
1956
1957
1958
1959
1960
1961
1962
1963
1964
1965
1966
1967
1968
1969
1970
1971
1972
1973
1974
1975
1976
1977
1978
1979
1980
1981
1982
1983
J984
1935
1936
1937
1933
1989
1990
1991
1992
1993
1994
1995
1996
1997
1998
1999
2000
SALES
10 X 6
XX. XX
.023
.037
.045
.020
.043
.072
.098
.080
.042
.038
.047
.044
.043
.056
.054
.058
.086
.098
.093
.093
.111
.108
.123
.126
.103
.111
.163
.180
.197
.140
.135
.149
.150
.135
.064
.073
.074
.068
.063
.068
.068
.067
.064
.067
.053
.053
.061
.062
.058
.057
.056
.053
.059
.053
. 053
EPA
GAS
MFC
XX. XX
6.00
6.00
6.00
6.00
6.00
6.00
6.00
6.00
6.00
6.00
6.00
6.00
6.00
6.00
6.00
6.00
5.70
6.60
6.20
6.10
6.20
6.00
6.00
6.10
5.70
5.60
5.80
5.60
5.40
5.60
5.50
5.60
5.70
5.70
5.70
5.80
5.80
5.90
6.00
6.10
6.10
6. 10
6.10
6. 10
6. 10
6.10
6.10
6.10
6. 10
6. 10
6. 10
6. 10
6. 10
6.10
6.10
DIESL
MPG
XX. XX
3.90
8.90
8.90
8.90
8.90
8.90
8.90
3.90
3.90
8.90
8.90
8.90
8.90
8.90
8.90
8.90
8.50
9.30
9.20
9.10
9.20
8.90
8.90
9.10
8.50
3.30
8.60
8.30
3.00
8.30
8.20
8.30
8.40
8.60
8.70
8.80
8.80
9.00
9.10
9.20
9.20
9.20
9.20
9.20
9.20
9.20
9.20
9.20
9.20
9.20
9.20
9.20
9 . 20
9.20
9.20
DIESL LEAD
MARKT MARKT
PENTR PENTR
.XXXX X.XXX
.000
.000
.000
.000
.000
.059
.008
.004
.003
.006
.013
.003
.001
.001
.002
.006
.029
.037
.068
.063
.049
.044
.035
.035
.031
.027
.020
.018
.014
.038
.050
.084
.092
.118
.199
.230
.347
.396
.419
.520
.52
.52
.52
.52
.52
.52
.52
.52
.52
.52
.52
.52
.52
.52
.52
.
.
.
.
.
.
f
f
.
B
.
m
m
m
.
.
.
m
m
.
.
m
,
m
f
f
.
m
.
f
f
m
f
f
.
f
m
f
f
.
m
f
f
t
f
f
.
m
.
f
m
m
.
.
-------
Table 2-9
IIPC.VEIICI.S.DATA (IWIIVYTRK)
VEHICLE CLASS: HEAVY-HEAVY TRUCK
l-o
I
to
o
YEAR
1946
1947
1948
1949
1950
1951
1952
1953
1954
1955
1956
1957
1958
1959
1960
1961
1962
1963
1964
1965
1966
1967
1968
1969
1970
1971
1972
1973
1974
1975
1976
1977
1978
1979
1980
1931
1932
1933
1934
1985
1986
1937
1983
1939
1 990
1991
1992
1 993
1994
1 995
1 996
1997
1998
1 999
2000
SALES
10 X 6
XX. XX
.013
.024
.020
.016
.028
.039
.043
.046
.028
.059
.070
.064
.054
.076
.062
.057
.074
.086
.037
.107
.126
.105
.120
.137
.126
.133
.165
.187
.180
.092
.119
.169
.196
.208
.193
.175
.215
.229
.239
.253
.276
.286
.235
.274
.344
.269
.263
.269
.279
. 290
. 305
.323
.342
.344
.344
EPA
CAS
MFC
XX. XX
4.90
4.90
4.90
4.90
4.90
4.90
4.90
4.90
4.90
4.90
4.90
4.90
4.90
4.90
4.90
4.90
4.90
4.90
4.70
.90
.70
.80
.70
.70
.70
4.70
4.60
4.60
4.50
4.60
4.70
5.00
5.10
5.20
5.30
5.40
5.50
5.60
5.70
5.80
5.80
5.80
5.80
5.30
5.80
5 . 80
5.30
5.80
5. SO
5 . 80
5.80
5.80
5.80
5.80
5 . 30
DIESL
MPG
XX. XX
4.90
4.90
4.90
4.90
4.90
4.90
4.90
4.90
4.90
4.90
4.90
.90
.90
.90
.90
.90
.90
.90
.70
.90
.70
.80
.70
.70
4.70
4.70
4.60
4.60
4.50
4.60
4.70
5.20
5.30
5.40
5.50
5.30
6.10
6.40
6.70
7.00
7.00
7 . 00
7.00
7.00
7.00
7.00
7.00
7 . 00
7 . 00
7 . 00
7 . 00
7 . 00
7 . 00
7 . 00
7 . 00
DIESL LEAD
MARKT MARKT
PENTR PENTR
.XXXX X.XXX
.000
.000
. 000
.000
.000
.251
.200
.182
.305
.247
.292
.326
.426
.429
.449
.427
.476
.496
.546
. 585
.612
.611
.647
.700
.699
.735
.765
.794
.739
.751
.843
.893
.879
.863
.890
.912
.934
.956
.973
.000
.0000
.0000
.0000
.0000
.0000
. 0000
. 0000
.0000
. 0000
. 0000
.0000
. 0000
. 0000
. 0000
.0000
.
.
B
f
,
u
,
f
.
.
B
f
f
f
m
t
f
.
.
B
t
t
m
m
„
.
,
n
t
^
.
f
.
.
,
-------
The vehicle class data files are structured with six header lines document-
ing file contents and column headings. The sixth header line marks the field
specifications (column position and length) in the FORTRAN FORMAT statements
used for data input. These column alignments must be observed in editing or
updating the files. As labeled in the left-most column, each data file line
represents one model year in the HFC's 55-year span.
Information in the first five data columns is common to all vehicle classes,
and is loaded into REAL arrays of dimension 55x9 (year by class):
SALES — New vehicle registrations.
GASMPG — EPA fuel economy for gasoline vehicles.
DSLMPG — EPA fuel economy for diesel vehicles.*
DSLPEN — Diesel penetration (sales fraction).
LEDPEN — Leaded gasoline penetration (sales fraction of gaso-
line vehicles).
The light-duty classes (k = 1,...,5) additionally are characterized by de-
tailed technology penetration and fuel economy estimates for gasoline and
diesel vehicles. These data originally were developed for the analysis of
technology-specific shortfall but optionally may be used to estimate fleet-
wide EPA fuel economy ratings. Data from the right-most 14 columns are
loaded into REAL arrays of dimension 55x5 (year x light-duty class):
GASADJ -- Adjustment factor for gasoline shortfall expressed as
an additive offset in gpm-ratio space.
AUTMPG — EPA fuel economy for conventional (rear-wheel drive)
gasoline vehicles with automatic transmission.
MANPCT -- Market penetration for conventional manuals expressed
as fraction of conventional gasoline vehicle sales.
MANMPG -- EPA fuel economy for conventional manuals.
^Average diesel EPA MPG currently is not compiled for the light-duty classes.
The model and data file structures provide for this future modification.
2-21
-------
BASPCT — Market penetration for front-wheel drive gasoline
vehicles, as a fraction of total gasoline sales.
BASMPG — EPA fuel economy for front-wheel drive gasoline ve-
hicles .
ALTPCT -- Market penetration of additional alternative gaso-
line technology as fraction of total gasoline sales (provided
for future expansion).
ALTMPG -- EPA fuel economy of alternative gasoline technology.
DSLADJ — Adjustment factor for diesel shortfall.
DRWMPG -- EPA fuel economy of rear-wheel drive diesels.
DFWPCT — Market penetration of front-wheel drive diesels, ex-
pressed as fraction of total diesel sales.
DFWMPG -- EPA fuel economy of front-wheel drive diesels.
DALPCT -- Market penetration of alternative diesel technology
as fraction of total.diesel sales (provided for future expan-
sion) .
DALMPG — EPA fuel economy of alternative diesel technology.
2.2.4.2 Technology Shortfall Data
A second generic PDS compiles the GPM-ratio shortfall coefficients by vehicle
technology for the five light-duty classes:
DSN = CN6824.RD1.HFC.TECHSF.DATA
DSORG = PO
RECFM = FB
LRECL = 132
BLKSIZE = 1320
UNIT = DASD
VOL=SER = FEA025
MEMBERS: DOMCAR (k=1)
IMPCAR (k=2)
DOMTRK (k=3)
IMPTRK (k=4)
TRK685 (k=5)
These data files are listed in Tables 2-10 through 2-14.
2-22
-------
Table 2-10
HFC. TEC1ISF. DATA (DOMCAR)
NJ
VEHICLE CLASS DOMESTIC CARS
FUEL TYPE J=l GAS
YEAR Al X Bl A2
B2
A3
B3
A4
B4
1975 1.0220
1976 1.0220
1977 1.0220
1978 1.0220
1979 .8870
1980 .8870
1931 .8870
1932 .8870
1983 .8870
1931 .8870
1935 .8870
VEHICLE CLASS
FUEL TYPE J=2
YEAR Al
1975 1.1870
1976
1977
1973
1979
1980
1931
1932
1983
1934
1935
.1870
.1370
.1870
.1370
.1870
.1370
.1870
.1370
.1370
.1370
.0098 .8630
.0093 .8630
. 0098 . 8630
.0098 .8630
.0121 .7140
.0121 .7140
.0121 .7140
.0121 .7140
.0121 .7140
.0121 .7140
.0121 .7140
DOMESTIC CARS
DIESEL
Y Bl A2
- . 0030
-.0030
-.0030
- . 0030
- . 0030
-.0030
-.0030
- . 0030
- . 0030
- . 0030
-.0030
.1870
.1370
.1870
.1370
.1870
.1870
.1870
.1870
.1870
.1870
.1370
.0100
.0100
.0100
.0100
.0141
.0141
.0141
.0141
.0141
.0141
.0141
.1000
.1000
.1000
.1000
. 1 000
.1000
.1000
.1000
.1000
.1000
.1000
B2 A3
-.0030
- . 0030
-.0030
-.0030
- . 0030
-.0030
-.0030
-.0030
-.0030
-.0030
-.0030
.0000
.0000
.0000
.0000
. 0000
.0000
.0000
. 0000
.0000
.0000
. 0000
.0000
. 0000
. 0000
. 0000
.0000
.0000
.0000
.0000
.0000
.0000
. 0000
.0000
.0000
.0000
. 0000
.0000
.0000
.0000
.0000
.0000
.0000
. 0000
B3 A4
.0000 .0000
.0000 .0000
.0000 .0000
.0000 .0000
.0000 .0000
. 0000 . 0000
.0000 .0000
.0000 .0000
.0000 .0000
.0000 .0000
.0000 .0000
.0000
.0000
. 0000
. 0000
. 0000
.0000
. 0000
.0000
.0000
.0000
.0000
B4
. 0000
. 0000
.0000
. 0000
.0000
.0000
. 0000
.0000
.0000
. 0000
. 0000
-------
Table 2-11
MFC. TECIISF. DATA (IMPCAR)
N3
N>
VEHICLE CLASS IMPORTED CARS
FUEL TYPE J=l GAS
YEAR AJ BI A2
B2
A3
B3
A4
1975 1.0220
1976 1.0220
1977 1.0220
1978 1.0220
1979 .8870
1930 .8370
1931 .8370
1982 .3370
1933 .8870
1984 .8370
1935 .8370
VEHICLE CLASS
FUEL TYPE J=2
YEAR Al
1975
1976
1977
1978
1979
1980
1931
1982
1983
1994
1935
.1870
.1370
.1870
.1870
.1370
.1870
.1370
.1870
.1870
.1870
.1370
.0098 .8630
.0098 .8630
.0098 .3630
.0098 .8630
.0121 .7140
.0121 .7140
.0121 .7140
.0121 .7140
.0121 .7140
.0121 .7140
.0121 .7140
IMPORTED CARS
DIESEL
Bl A2
-.0030
- . 0030
-.0030
-.0030
-.0030
-.0030
- . 0030
-.0030
- . 0030
-.0030
-.0030
.1370
.1870
.1870
.1870
.1870
.1870
.1870
.1370
.1870
.1370
.1870
.0100
.0100
.0100
.0100
.0141
.0141
.0141
.0141
.0141
.0141
.0141
.1000
.1000
.1000
.1000
.1000
.1000
.1000
. 1 000
.1000
.1000
.1000
B2 A3
-.0030
-.0030
- . 0030
-.0030
-.0030
-.0030
-.0030
-.0030
-.0030
- . 0030
- . 0030
.0000
.0000
.0000
.0000
.0000
. 0000
.0000
. 0000
.0000
.0000
. 0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
. 0000
.0000
.0000
. 0000
. 0000
.0000
.0000
.0000
.0000
.0000
.0000
. 0000 1 . 0000
B3 A4
.0000 .0000
.0000 .0000
.0000 .0000
.0000 .0000
.0000 .0000
.0000 .0000
.0000 .0000
.0000 .0000
.0000 .0000
.0000 .0000
.0000 .0000
.0000
. 0000
. 0000
.0000
.0000
. 0000
. 0000
.0000
.0000
. 0000
. 0000
B4
.0000
. 0000
.0000
.0000
. 0000
.0000
.0000
.0000
. 0000
.0000
. 0000
-------
Table 2-12
IIPC.TECIISF.DATA (DOHTRK)
Ni
Oi
VEHICLE CLASS DOMESTIC TRUCKS
FUEL TYPE J=l GAS
YEAR Ai Bl A2
B2
A3
B3
A4
1975
1976
1977
1978
1979
1930
1931
1932
1933
1984
1935
.2000
.2000
.2000
.2000
. 2000
.2000
.2000
.2000
.2000
.2000
.2000
VEHICLE CLASS
FUEL TYPE J=2
YEAR Al
1975
1976
1977
1978
1979
1980
1981
1982
1983
1984
1985
. 1 870
.1870
.1870
.1870
. 1 870
.1870
.1870
.1870
.1870
.1870
.1870
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.2000
.2000
.2000
.2000
.2000
.2000
.2000
.2000
. 2000
.2000
.2000
DOMESTIC TRUCKS
DIESEL
Bl A2
-.0030
-.0030
- . 0030
-.0030
-.0030
-.0030
-.0030
-.0030
-.0030
-.0030
- . 0030
.1870
.1870
.1870
.1870
.1870
.1870
.1870
.1870
.1870
.1870
.1870
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
. 0000
.1000
.1000
.1000
.1000
.1000
.1000
.1000
.1000
.1000
.1000
.1000
B2 A3
-.0030
- . 0030
-.0030
-.0030
-.0030
-.0030
-.0030
-.0030
-.0030
-.0030
-.0030
.0000
.0000
.0000
.0000
. 0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
. 0000
.0000
.0000
. 0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
. oo'oo
.0000
.0000
.0000
B3 A4
.0000 .0000
.0000 .0000
.0000 .0000
.0000 .0000
.0000 .0000
.0000 .0000
.0000 .0000
.0000 .0000
.0000 .0000
.0000 .0000
.0000 .0000
B4
.0000
.0000
.0000
.0000
.0000
.0000
.0000
. 0000
.0000
.0000
.0000
B4
. 0000
.0000
. 0000
. 0000
.0000
.0000
.0000
.0000
.0000
.0000
. 0000
-------
Table 2-13
IIFC.TECIISF.UATA (IMPTRK)
to
NJ
VEHICLE CLASS IMPORTED TRUCKS
FUEL TYPE J=l CAS
YEAR Al BJ A2
B2
A3
B3
1975 1.2000
1976
1977
1978
1979
1980
1981
1932
1983
1984
1935
.2000
.2000
. 2000
.2000
.2000
.2000
. 2000
. 2000
. 2000
.2000
VEHICLE CLASS
FUEL TYPE J=2
YEAR Al
1975
1976
1977
1978
1979
1980
1931
1992
1983
1934
1935
.1870
.1370
.1870
.1870
.1870
.1870
.1870
.1870
.1870
.1870
.1870
. 0000
.0000
.0000
. 0000
. 0000
.0000
.0000
.0000
.0000
.0000
.0000
.2000
.2000
.2000
.2000
.2000
.2000
.2000
.2000
.2000
.2000
.2000
IMPORTED TRUCKS
DIESEL
Bl A2
-.0030
-.0030
- . 0030
-.0030
-.0030
-.0030
-.0030
-.0030
-.0030
-.0030
-.0030
.1870
.1870
.1870
.1870
.1870
.1870
.1870
.1870
.1870
.1870
.1870
.0000
.0000
.0000
.0000
. 0000
.0000
.0000
.0000
.0000
. 0000
.0000
.1000
. 1 000
.1000
.1000
.1000
.1000
.1000
.1000
.1000
.1000
.1000
B2 A3
-.0030
-.0030
-.0030
- . 0030
-.0030
-.0030
-.0030
-.0030
-.0030
-.0030
-.0030
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
. 0000
.0000
.0000
.0000
. 0000
.0000
. 0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
B3 A4
.0000 .0000
.0000 .0000
. 0000 . 0000
. 0000 . 0000
.0000 .0000
. 0000 . 0000
.0000 .0000
.0000 .0000
.0000 .0000
.0000 .0000
.0000 .0000
B4
.0000
. 0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
. 0000
.0000
B4
.0000
.0000
.0000
. 0000
.0000
.0000
.0000
.0000
.0000
.0000
. 0000
-------
Table 2-14
IH-T.TRCIISF.nATA (TRK685)
NJ
to
VEHICLE CLASS 6-3.5 THOUS. LBS. TRUCKS
FUEL TVPE J=l GAS
YEAR Al Bl A2 B2
A3
B3
A4
1975
1976
1977
1978
1979
1980
1931
1932
1983
1934
1935
.2000
.2000
. 2000
.2000
.2000
.2000
.2000
.2000
.2000
.2000
.2000
VEHICLE CLASS
FUEL TYPE J = 2
YEAR Al
1975
1976
1977
1973
1979
1980
1981
1932
1933
1984
1935
.1370
.1370
.1870
.1870
.1870
.1870
.1870
.1870
.1870
.1870
.1870
. 0000
. 0000
. 0000
. 0000
. 0000
.0000
.0000
.0000
.0000
. 0000
.0000
.2000
.2000
.2000
.2000
.2000
.2000
.2000
.2000
.2000
.2000
.2000
6-8.5 THOUS. LBS.
DIESEL
Bl A2
-.0030
-.0030
-.0030
-.0030
-.0030
-.0030
- . 0030
-.0030
-.0030
-.0030
-.0030
.1870
.1870
.1870
.1870
.1870
.1870
.1870
.1870
.1370
.1370
.1870
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.1000
. 1 000
.1000
.1000
.1000
.1000
.1000
.1000
.1000
.1000
.1000
TRUCKS
B2 A3
-.0030
-.0030
-.0030
-.0030
-.0030
-.0030
-.0030
- . 0030
-.0030
-.0030
-.0030
.0000
. 0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
. 0000
.0000
. 0000
. 0000
.0000
.0000
.0000
. 0000
. 0000
.0000
. 0000
.0000
.0000
. 0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
B3 A4
.0000 .0000
.0000 .0000
.0000 .0000
. 0000 . 0000
.0000 .0000
.0000 .0000
. 0000 . 0000
.0000 .0000
.0000 .0000
.0000 .0000
.0000 .0000
.0000
. 0000
. 0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
B4
.0000
.0000
.0000
.0000
.0000
.0000
. 0000
. 0000
.0000
.0000
.0000
-------
The technology shortfall files are structured in dual blocks, one each for
gasoline and diesel vehicles. Coefficients A (intercept) and B (slope) of
the gpm-ratio regressions are specified for the 11 model years from 1975
through 1985. Pre-1975 shortfall is characterized by the 1975 coefficients
and post-1985 shortfall by the 1985 coefficients.
Numbered technologies are associated with those of the vehicle class data files
as follows:
Gasoline Technology
1 Conventional automatics
2 Conventional manuals
3 Front-wheel drive
4 Alternative gasoline
Diesel Technology
1 Rear-wheel drive
2 Front-wheel drive
3 Alternative diesel
4 (not used)
As seen in the tables, this format provides currently unused capacity for
year-by-year specification of individual technology shortfall trends. The
HFC model loads these data files into the following coefficient arrays of
dimension 11x2x5 (year x fuel type x light-duty class):
COEFA1 COEFB1
COEFA2 COEFB2
COEFA3 COEFB3
COEFA4 COEFB4
2.2.4.3 Vehicle Stock and Travel Data
The third generic PDS contains input data on vehicle retirement, VMT, VMT
growth rates, and optional base year calibration totals:
2-28
-------
DSN = CN6824.RD1.HFC.DATA
DSORG = PO
RECFM = FB
LRECL = 130
BLKSIZE = 1300
UNIT = DASD
VOL=SER = FEA025
MEMBERS: SCRAP
VMT
VMTGROW
VMTGROWA
VMT GROWS
CALIB
Tables 2-15 through 2-18 list these data files. (VMTGROWA and B are provided
for alternative scenarios of VMT growth. Currently, these files are dupli-
cates of the default growth file VMTGROW and are not listed.)
Survival and VMT vintage curves are specified by aggregate vehicle class
(passenger cars, light-duty trucks, and gasoline/diesel medium- and heavy-
duty trucks) and loaded into arrays:
SCRLDV (30,2) net survival curve (k=l,2)
SCRLDT (30,4) (k=3,...,6)
SCRMHD (30,2,3) (k=7,8,9)
VMTLDV (30,2) vintage VMT curves (k=l,2)
VMTLDT (30,4) (k=3,...,6)
VMTMHD (30,2,3) (k=7,8,9)
Note that the input data for medium- and heavy-duty truck classes are dis-
aggregated by fuel type, while data for other classes are independent of
fuel type.
VMT growth rates (Table 2-17), applied as scale factors to the VMT vintage
curves, are specified independently for each vehicle class for the period
1975 through 2000. The 1975 entries serve to calibrate VMT totals to FHWA
statistics, while the factors for subsequent years are annual (marginal)
growth rates. This data file is loaded into array VMTGRO (26,9) and is
applied to both gasoline and diesel VMT curves in each vehicle class.
2-29
-------
Table 2-15
MFC.DATA (SCRAP)
SURVIVAL RATES BY VEHICLE CLASS
AGE DOM CAR IMP CAR DOM TRK
I
U>
o
30
29
23
27
26
25
24
23
22
21
20
19
13
17
16
15
14
13
12
11
10
9
8
7
6
5
4
3
2
1
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.053
0.095
0.164
0.199
0.273
0.366
0.465
0.587
0.712
0.821
0.910
0.970
0.990
0.992
0.995
0.998
0.999
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.058
0.095
0.164
0.199
0.273
0.366
0.465
0.587
0.712
0.821
0.910
0.970
0.990
0.992
0.995
0.993
0.999
MED-TRUCK
1 TRK
0.0
0.0
0.0
0.0
0.0
0.010
0 . 020
0.030
0.050
0.080
0.140
0 . 200
O.Z60
0.320
0.330
0.441
0.502
0.573
0.645
0.710
0.771
0.825
0.862
0.897
0.925
0.946
0.966
0.983
0.999
1 . 000
IMP TRK
0.0
0.0
0.0
0.0
0.0
0.010
0.020
0.030
0.050
0.030
0.140
0.200
0.260
0.320
0.330
0.441
0.502
0.573
0.645
0.710
0.771
0.825
0.362
0.897
0.925
0.946
0.966
0.983
0.999
1.000
TRK 6-8.5
0.0
0.0
0.0
0.0
0.0
0.010
0.020
0.030
0.050
0.080
0.140
0.200
0.260
0.320
0.380
0.441
0.502
0.573
0.645
0.710
0.771
0.825
0.862
0.897
0.925
0.946
0.966
0.983
0.999
1 .000
TRK 8.5-10
0.0
0.0
0.0
0.0
0.0
0.010
0.020
0.030
0.050
0.080
0.140
0.200
0.260
0.320
0.380
0.441
0.502
0.573
0.645
0.710
0.771
0.825
0.862
0.897
0.925
0.946
0.966
0.988
0.999
1.000
G
0.007
0.010
0.017
0.027
0.040
0.050
0.060
0.075
0.090
0.110
0.130
0.160
0.200
0.240
0.280
0.340
0.420
0.500
0.570
0.640
0.700
0.750
0.795
0.830
0.830
0.920
0.950
0.979
0.990
1 . 000
D
0.007
0.010
0.017
0.027
0.040
0.050
0.060
0.075
0.090
0.110
0.130
0.160
0.200
0.240
0.230
0.340
0.420
0 . 500
0.570
0.640
0.700
0.750
0.795
0.830
0.830
0.920
0.950
0.979
0.990
1 . 000
LT-HVY -TRUCK
C
0.007
0.010
0.017
0.027
0.040
0.050
0.060
0.075
0.090
0.110
0.130
0.160
0.200
0.240
0.230
0.340
0.420
0.500
0.570
0.640
0.700
0.750
0.795
0.330
0.880
0 . 920
0.950
0.979
0.990
1.000
D
0 . 007
0.010
0.017
0.027
0.040
0 . 050
0.060
0.075
0.090
0.110
0 . 1 3l>
0 . 1 60
0.200
0.240
0.230
0.340
0.420
0.500
0.570
0.640
0.700
0.750
0 . 795
0 . 830
0.830
0.920
0.950
0.979
0.990
1.000
HVY-HVY -TRUCK
G
0.007
0.010
0.017
0.027
0.040
0.050
0.060
0.075
0 . 090
0.110
0 . 1 30
0.160
0 . 200
0.240
0.280
0,340
0.420
0.500
0.570
0.640
0.700
0.750
0.795
0 . 330
0 . 830
0.920
0.950
0.979
0.990
1.000
D
0 . 007
0.010
0.017
0.027
0.040
0.050
0 . 060
0.075
0.090
0.110
0 . 1 30
0.160
0.200
0.240
0.280
0.340
0.420
0.500
0.570
0.640
0.700
0.750
0.795
0.330
0 . 330
0.920
0.950
0.979
0.990
1 . 000
-------
Table 2-16
IIHC.DATA (VHT)
VINTAGE VMT BY VEHICLE CLASS
ISJ
I
U)
.MED-TRUCK
AGE
30
29
23
27
26
25
24
23
22
21
20
19
13
17
16
15
14
13
12
11
10
9
3
7
6
5
4
3
2
1
DOM CAR
0.0
0.0
0.0
0.0
0.0
3.300
3.300
3.300
3.300
3.300
3 . 300
3.300
3.300
5.900
5.900
5.900
6.700
6.700
6 . 000
7.000
7.000
10.000
9 . 900
12.400
10.500
1 1 . 300
12.000
12.200
13.500
16.200
IMP CAR
0.0
0.0
0.0
0.0
0.0
3.300
3.300
3.300
3.300
3.300
3.300
3 . 300
3.300
5.900
5.900
5.900
6.700
6.700
6 . 000
7.000
7.000
10.000
9.900
12.400
10.500
11.300
12.000
12.200
13.500
16.200
DOM TRK
0.0
0.0
0.0
0.0
0.0
1.900
2.400
3.100
3.600
3.900
4.100
4.500
4.900
5.500
4.300
5.100
5.300
5.800
6.700
7.100
7.400
7.300
3.500
9.000
9.600
10.800
1 1 . 800
13.500
14.300
13.800
IMP TRK
0.0
0.0
0.0
0.0
0.0
1.900
2.400
3.100
3.600
3.900
4.100
4.500
4 . 900
5.500
4.800
5.100
5.800
5.300
6.700
7.100
7.400
7.800
8.500
9.000
9.600
10.300
11 .800
13.500
14.300
13.300
TRK 6-8.5
0.0
0.0
0.0
0.0
0.0
1.900
2.400
3.100
3.600
3.900
4.100
4.500
4.900
5.500
4.800
5.100
5.300
5.800
6.700
7.100
7.400
7.800
8.500
9.000
9.600
10.800
11.300
13.500
14.300
13.800
TRK 3.5-10
0.0
0.0
0.0
0.0
0.0
1.900
2.400
3.100
3.600
3.900
4.100
4.500
4.900
5.500
4.300
5.100
5.800
5.800
6.700
7.100
7.400
7.300
8.500
9.000
9.600
10.800
11.300
13.500
1 4 . 300
13.800
G
0.330
0.930
.090
.210
.340
.490
.660
.340
2.040
2.260
2.510
2.790
3.090
3.430
3.800
4.220
4.630
5 . 200
5.760
6 . 400
7.100
7.830
8.740
9.700
10.770
11.950
13.250
14.710
16.320
18.100
D
.430
.430
.640
.720
.800
.970
2.210
2.460
2.620
2.950
3.200
3.530
3.770
4.100
5.080
5.820
6.560
7.540
8.860
10.660
12.960
15.740
18.530
20.600
22.300
23.620
24.760
25.340
25.750
26.240
LT-HVY
G
0.830
0.980
.090
.210
.340
.490
.660
.340
2.040
2.260
2.510
2.790
3.090
3.430
3.800
4.220
4.630
5.200
5.760
6.400
7.100
7.830
8.740
9.700
10.770
11.950
1 3 . 250
14.710
16.320
13.100
-TRUCK
D
.430
.480
.640
.720
.300
.970
2.210
2.460
2.620
2 . 950
3.200
3.530
3.770
4 . 1 00
5.030
5.820
6.560
7.540
8.860
10.660
12.960
15.740
18.530
20.600
22.300
23.620
24.760
25.340
25.750
26.240
HVY-HVY
G
.270
.390
.530
.630
.840
2.020
2.220
2.440
2.680
2.940
3.230
3.550
3.890
4.270
4.700
5.160
5.660
6.220
6.820
7.490
3.220
9.030
9.910
10.380
11.950
13.120
14.400
15.810
17.360
1 9 . 060
-TRUCK
D
3.710
4.120
4.570
5.060
5.610
6 . 220
6 . 900
7.640
8.470
9.390
10.400
1 1 . 540
12.300
14.180
15.710
17.420
19.310
21 .400
23.700
26.300
29.150
32.310
35.830
39.71 0
44.020
43.790
54 . 090
59.900
60.700
61 .500
-------
Table 2-17
III:C. DATA (VMTCROW)
Isj
OJ
N3
VMT GROWTH RATE TABLE
K = 1 2
1975
1976
1977
1973
1979
1980
1981
1932
1983
1934
1985
1936
1937
1983
1989
1990
1991
1992
1993
1994
1995
1996
1997
1993
1999
2000
.9749
.0307
.0115
.0247
.9383
.9848
.0016
.0080
.0051
.0060
.0081
.0094
.0100
.0082
.0031
.0034
.0083
.0084
.0081
.0030
.0078
.0030
.0080
.0079
.0081
.0031
.9749
.0307
.0115
.0247
.9383
.9843
.0016
.0080
.0051
.0060
.0031
.0094
.0100
.0082
.0081
.0034
.0033
.0084
.0081
. 0080
. 0073
.0030
.0030
.0079
.0081
.0031
.9321
.0621
.0082
.9535
.9640
.0019
.0102
.0120
.0132
.0140
.0137
.0130
.0129
.0100
.0130
.0103
.0102
.0085
.0031
.0069
.0066
.0059
.0052
.0047
.0047
.0043
.9321
.0621
.0082
.9535
.9640
.0019
.0102
.0120
.0132
.0140
.0137
.0130
.0129
.0100
.0130
.0103
.0102
.0085
.0031
.0069
.0066
.0059
.0052
.0047
.0047
.0043
.9321
.0621
.0082
.9535
.9640
.0019
.0102
.0120
.0132
.0140
.0137
.0130
.0129
.0100
.0130
.0103
.0102
.0085
.0081
.0069
.0066
.0059
.0052
.0047
.0047
.0043
.9321
.0621
.0082
.9535
.9640
.0019
.0102
.0120
.0132
.0140
.0137
.0130
.0129
.0100
.0130
.0103
.0102
.0035
.0081
.0069
.0066
.0059
.0052
.0047
.0047
.0043
1.0667
.0311
.9359
.9915
.9737
.9694
.9946
.9820
.9789
.9770
.9730
.971?
.9791
.9852
.9942
.9353
.0066
.0101
.0150
.0155
.0130
.0110
.0113
.0081
.0103
.0113
.0667
.0311
.9359
.9915
.9787
.9694
.9946
.9820
.9789
.9770
.9730
.9719
.9791
.9352
.9942
.9853
. 0066
.0101
.0150
.0155
.0130
.0110
.0113
.0031
.0103
.0113
.0667
.0311
.9359
.9915
.9787
.9694
.9946
.9320
.9789
.9770
.9730
.9719
.9791
.9352
.9942
.9353
.0066
.0101
.0150
.0155
.0130
.0110
.0113
.0031
.0103
.0113
-------
Table 2-18
MFC.DATA (CALIB)
HIGHWAY FUEL CONSUMPTION MODEL
BASE YEAR CALIBRATION DATA
BASE TEARs 1975
VEHICLES IN OPERATION
PASSENGER CARS: 95.241
TOTAL TRUCKS : 24.813
FUEL CONSUMED (X10*»? GALLONS)
CARS
-------
The base year calibration data file (Table 2-18) is read by subroutine CALIBR,
if the user chooses to calibrate base year vehicle stock and fuel consumption.
The calibration algorithm is described in Section 2.3.2.
2.2.4.4 User-Specified Shortfall
The HFC model provides the option to load shortfall coefficients at time of
execution. The user may choose either mpg- or gpm-space (1/mpg) coefficients
and will be asked to input coefficient pairs (slope and intercept) for four
aggregate vehicle groups:
• Gasoline passenger cars (k=l,2)
• Diesel passenger cars (k=l,2)
• Gasoline light-duty trucks (k=3,4,5)
• Diesel light-duty trucks (k=3,4,5).
These coefficients are stored in array USERCF (2,55,2,5) which, with the con-
trol variable GPM, comprises COMMON block C805. The array dimensions corres-
pond to intercept/slope x year x fuel type x light-duty class.
2.3 MODEL ALGORITHMS
The HFC's fuel consumption forecasts are influenced by user decisions that
determine the methods of calculating state variables. The user/analyst
gains flexibility in the conduct of analysis, but at the same time becomes
responsible for choosing the appropriate methodologies and understanding
their performance. This section details the model algorithms employed in
calculating and updating state variables.
i
In general, the specification of methodologies uses a notation which combines
the FORTRAN variable names found in the HFC program code with the following
subscript conventions:
• i denotes vehicle vintage
• I denotes model year associated with vintage i vehicles
2-34
-------
• j denotes fuel type
• k denotes vehicle class.
Parentheses are used in a FORTRAN-like manner to denote subscripting, while
brackets and true subscripts are used occasionally to indicate association
in a simpler manner. This notation conveys the mathematics of model metho-
dologies but does not attempt to specify the actual implementation of the
program code.
2.3.1 Base Year Initialization
The base year chosen by the user at time of execution determines the first
year for which fuel consumption calculations are performed. While the model
will accept base year values within the range 1975 through 1985, it currently
is configured for the 1975 base year of the previous HFC. Selection of other
base years generally will produce different forecasts of fleet stock, total
VMT, and fuel consumption; the user must carefully validate the model fore-
casts when changing this parameter.
2.3.1.1 Vehicle Stock
Fleet size and the age distribution of the vehicle stock are calculated in
the base year using the net survival curves read from HFC.DATA(SCRAP). This
methodology is identical to the approach used by the previous model for all
years:
VEH(i,j=l,k) = SALES (I,k) x (1 - DSLPEN(I,k)) x SURV[i,k]
VEH(i,j=2,k) = SALES(I,k) x DSLPEN(I,k) x SURV[i,k]
where the survival probability SURV is taken from:
SCRLDV(i.k)
SCRLDT(i,k)
SCRMHD(i,j,k)
depending on vehicle class.
2-35
-------
The marginal survival rates also are calculated during base year initiali-
zation for use in later updating:
MSURV(i=l,j,k) = 1.000
MSURV(i>l,j,k) = SURV[i,k]/SURV[i-l,k]
If the user selects the optional base year calibration, the arrays VEH and
MSURV will be reset before fuel consumption is calculated. This algorithm
is described in the following section.
2.3.1.2 EPA Fuel Economy
The new HFC provides three options for computing EPA fuel economy ratings
for the light-duty classes (k = 1,...,5). Option 1 is the. dies el advantage
methodology used in the previous model, in which gasoline EPA ratings are
read from the data files and diesel economy calculated at a fixed advantage:
EPA(i,j=l,k) = GASMPG(I,k)
EPA(i,j=2,k) = ADVANT x EPA(i,j=l,k)
Option 2 allows both gasoline and diesel economies to be read from the data
files:
EPA(i,j=l,k) = GASMPG(I.k)
EPA(i,j=2,k) = DSLMPG(I,k)
While the programming structure is In place for this option, the technical
analysis of aggregate diesel mpg has not been conducted. The option cur-
rently is not operative pending completion of the light-duty data files.
Option 3 utilizes the detailed projections of technology penetration and fuel
economy to calculate fleetwide aggregate gasoline and diesel economies. The
methodology is a harmonic average across technologies within fuel type. Mar-
ket penetrations as fractions of gasoline/diesel vehicle sales are calculated
as follows:
2-36
-------
Gasoline:
I. Conventional automatics:
g = [1 - MANPCT(I,k)] x [1 - BASPCT(I.k) - ALTPCT(I,k)]
2. Conventional manuals:
g2 = MANPCT(I,k) x [1 - BASPCT(I,k) - ALTPCT(I,k)]
3. Base FWD technology:
g3 = BASPCT(I,k)
4. Alternative FWD technology:
g4 = ALTPCT(I,k)
Diesel:
1. RWD diesel:
d = 1 - DFWPCT(I,k) - DALPCT(I,k)
2. FWD diesel:
d = DFWPCT(I.k)
3. Alternative diesel:
d = DALPCT(I,k)
The nonconventional (FWD) technology market shares are defined explicitly in
the data files, while conventional shares are calculated by remainder. Con-
ventional automatic and manual transmission shares for gasoline vehicles are
specified in the data as shares within the total conventional penetration.
If G. and D. are technology-specific gasoline and diesel fuel economies, then
the harmonic averages are:
EPA(i,j=l,k) = 1.0/Ug.yG..)
EPA(i,j=2,k) = 1.0/(Zd±/Di)
The fuel economy of non-EPA vehicle classes (k = 6,7,8,9) is characterized
by the separate estimates for gasoline and diesel vehicles contained in the
vehicle class data files. The HFC model always determines the EPA and on-
road fuel economy variables from these projections:
2-37
-------
EPA(i,j=l,k) = GASMPG(I.k)
EPA(i,j=2,k) = DSLMPG(I,k)
2.3.1.3 On-Road Fuel Economy
The new HFC model similarly provides the user with three options for com-
puting the on-road fuel economy of the light-duty classes. Each option is
a methodology for evaluating the shortfall relationship between EPA and on-
road fuel economy and can be combined with any of the EPA options described
above. The user is responsible for employing this latitude in a consistent
and meaningful manner.
Option 1 is the technology-specific shortfall methodology developed for the
previous model. It uses the market penetration and fuel economy data of
the detailed technology projections to evaluate a weighted shortfall rela-
tionship. Using the notation (g. ,G. ,d. ,D. ) from above and denoting the as-
sociated shortfall coefficients as (a.,b.), the on-road fuel consumption of
any one technology is :
1/RMPG. = a. /EPA. + b.
1111
Forming the technology-weighted harmonic averages gives:
Iw./RMPG. = Zw.a./EPA. + Zw.b.
i i 11 i 11
which defines aggregate coefficients:
Zw . a . /EPA .
A =
Zw./EPA.
B = Zw.b.
i i
satisfying the fleetwide relationship:
l/RMPGf = A/EPAf + B
The technology-specific option determines the aggregate coefficients (A,B)
for each vehicle class, year, and fuel type and applies these to calculating
on-road fuel economy from the EPA value:
2-38
-------
RMPG(i,j=l,k) = EPA(i,j=l,k)/(GASADJ(I,k) + A[i,j,k] + B[i,j,k] x EPA(i,j=l,
RMPG(i,j=2,k) = EPA(i,j=2,k)/(DSLADJ(I,k) + A[i,j,k] + B[i,j,k] x EPA(i,j=2,k))
The shortfall adjustment factors GASADJ and DSLADJ, contained in the vehicle
class data files, may be used to calibrate technology-specific shortfall to
historical trends. These degrees of freedom are provided to account for the
unavoidable imprecisions of the detailed technology penetration and fuel
economy estimates employed. Note that the aggregate shortfall relationships
may be evaluated at different EPA ratings from those predicted by the weighted
technology data, depending upon the chosen EPA option.
Option 2 allows the use of "user-specified" shortfall coefficients that are
input at the start of program execution. The user may select either mpg-
or gpm-space relationships, which result in different evaluations of on-road
fuel economy:
(MPG-space) RMPG = A + BxEPA
(GPM-space) RMPG = EPA/(A + BxEPA)
The coefficients (A,B) are stored in array USERCF as follows:
A[i,j,k] = USERCF(l,I,j,k)
B[i,j,k] = USERCF(2,I,j,k)
These coefficients are specific to gasoline/diesel passenger cars and light
trucks, so that classes k=l,2 and classes k=3,4,5 share common shortfall
parameters.
Option 3 specifies "no shortfall" for the light-duty classes. This results
in:
RMPG(i,j,k) = EPA(i,j,k)
which also is the identity used by convention for the heavier (non-EPA)
vehicle classes k=6,...,9.
2-39
-------
2.3.1.4 Vehicle Miles of Travel
The base year initialization also provides two methods for determining the
vintage VMT curves. Option 1 differs from Option 2 in scaling the base (in-
put) VMT curves by growth factors contained in the HFC.DATA(VMTGROW) files.
The base curves for Option 2 are loaded as follows:
VMT(i,j,k) = VMTxxx[i,j,k]
where the VMTxxx arrays depend upon vehicle class. Passenger car VMT curves
are stored in VMTLDV(30,2), light truck (k=3,...,6) curves in VMTLDT(30,4),
and medium- and heavy-duty truck (k=7,8,9) curves in VMTMHD(30,2,3). Note
that the HFC input data currently specify different VMT curves for gasoline
and diesel MHD trucks.
The growth factors of HFC.DATA(VMTGROW) have been specified to calibrate
VMT per vehicle to FHWA totals. The factor for 1975 is the absolute scale
factor needed to achieve this calibration and is stored in VMTGRO(l,k).
Under Option 1, the vintage VMT curves for base year 1975 are calculated as:
VMT(i,j,k) = VMTGRO(l,k) x VMTxxx[i,j,k]
For later base years, the algorithm cumulates the annual growth from 1975
levels to maintain the historical base year VMT calibration.
Selection of Option 1 for the EPA, on-road, and VMT methodologies will pro-
duce vehicle stock, fuel economy, and travel estimates consistent with the
BASE CASE scenario of the previous HFC model. Other selections generally
will not reproduce previous model runs. In addition, the user now may choose
to perform a base year calibration, which modifies the arrays VEH, VMT, and
MSURV as described below.
2.3.2 Base Year Calibration
The HFC originally was designed to be a policy analysis tool and not a fore-
casting model in the strictest sense. With increased sophistication of the
2-40
-------
model's fleet simulation, it is appropriate to implement an optional step
which calibrates base year values of vehicle stock and fuel consumption to
published (FHWA) totals. The calibration algorithm iteratively adjusts
vehicles in operation and the vintage VMT curves until five constraints are
met:
• Total passenger car fleet size
• Total truck fleet size
• Total fuel consumption by passenger cars
• Total fuel consumption by trucks
• Total diesel fuel consumption.
The 1975 calibration values for these five parameters are contained in data
file HFC.DATA(CALIB).
2.3.2.1 Stock Calibration
Net survival curves usually are estimated by comparing R.L. Polk data on
vehicles in operation to original new vehicle registrations. The curves
are associated with fleet size during specific years and may not precisely
replicate fleet size in the model's base year. The base year stock calibra-
tion is performed by iteratively adjusting total model year scrappage from
time of original (new vehicle) registration until the stock calibration total
is met.
Let N. and S. be, respectively, the number of vintage i vehicles on the road
and the number originally sold. Then, N. is related to total vehicles
dropped from the fleet through net scrappage, D., by:
N. = S. - D.
The true (unknown) numbers of vehicles in operation and total scrappage are:
N. = S. - D.
111
2-41
-------
with corresponding fleet sizes N=IN. and N=IN . The error in fleet predic-
tion is:
AN = N - N = ID - ID
which is redistributed by age in proportion to net model year scrappage.
The methodology derives a scale factor fi such that J2D. estimates D. under the
constraint N = IS - QED. . Substituting ftD into the equation for AN and
rearranging terms gives:
n = 1 + AN/ED
Note that this approach assumes that errors in vehicles in operation are
greater for older vehicles and that the error or uncertainty in model year
scrappage is proportional to the net model year scrappage.
When fleet size is under-predicted, the scale factor gives an exact (one-
step) correction for the reduced scrappage. Conversely, when scrappage must
increase to correct for over-prediction, the scale factor may cause greater
scrappage than original sales. In these circumstances, vehicles in opera-
tion is constrained to D
-------
HFC model. The model's base year estimate of MHD trucks is calculated using
survival rates which are drawn from relatively more recent data than those
used in the estimation of the LDT fleet. Therefore, the calibration algo-
rithm accepts the HFC's base year estimate of MHD trucks in operation. The
total truck calibration figure is reduced by the MHD truck estimate and
light-duty trucks are calibrated as described above to meet the adjusted
total. LDT marginal survival rates are recalculated; however, no modifica-
tions are made to MHD trucks as a result of the calibration.
2.3.2.2 Fuel Consumption Calibration
The HFC predictions for fuel consumption are calibrated by linearly scaling
the vintage VMT curves to meet the three specified fuel consumption constraints.
Although an exact analytical expression can be developed for the scale factor
satisfying each constraint, the calibration must iteratively adjust the VMT
curves to satisfy all three simultaneously.
The HFC model employs four distinct VMT curves:
• All passenger cars (k=l,2)
• All light-duty trucks (k=3,...,6)
• Gasoline MHD trucks (k=7,8,9)
• Diesel MHD trucks (k=7,8,9).
A fourth constraint is therefore needed; this is supplied by assuming that
gasoline and diesel MHD curves are in error by equal percentages. The ra-
tionale for this choice is that the curves have been derived from a common
source and can be expected to share similar biases. In fact, VMT by age of
vehicle is difficult to measure in absolute terms, particularly for these
classes.
Fuel consumption for an aggregate vehicle group (k=l,2; k=3,...,6; k=7,8,9)
is:
2-43
-------
VEH(i.j.k) x VMT(i.j.k)
RMPG(i,j,k)
and the appropriate VMT scale factor is:
n = Calibration total/FC
resulting in new vintage VMT curves:
VMT(i,j,k) = nVMT(i,j,k)
The iterative calculation proceeds in the following steps:
1. Correct the diesel calibration total for diesel use in classes
k = 1,...,6.
2. Scale MHD truck VMT for j=l and 2 according to the fl estimated
from the corrected diesel total.
3. Correct the truck calibration total for fuel use by classes
k=7,8,9, using the new VMT curves of Step 2.
4. Scale IDT VMT for j=l and 2 according to the fl estimated from
the corrected total.
5. Scale passenger car VMT for j=l and 2 according to the Q esti-
mated from the passenger car calibration total.
6. Repeat steps 1 through 5 until VMT curves change by less than
0.01 percent in each group or until five iterations have been
made.
This calibration procedure has converged rapidly to specified totals during
model validation. In general, the resulting shifts in passenger car VMT are
relatively small, while the changes introduced in truck VMT are larger. This
finding is in agreement with the expected accuracy of the vintage VMT data.
Note that the calibration procedure does not modify the fuel economy array.
In combination with the several possible methodologies for estimating on-road
fuel economy, the fuel consumption calibration will generate different VMT
curves satisfying the imposed aggregate constraints. Again, the user remains
responsible for selecting the model options in appropriate combinations.
2-44
-------
2.3.3 Updating State Variables
Subroutine UPDATE performs three types of updating in simulating the year-
to-year changes in the fleet:
• Vehicle stock calculation based on marginal survival rates and
new registrations
• Shifting of fuel economy and leaded gasoline penetration arrays
• Growth of the VMT array, if the growth option is selected by the
user.
Option 1 of the vehicle stock calculation uses a relationship between pas-
senger car scrappage and new registrations to modify the marginal survival
curve for classes k=l,2. Option 2 uses fixed marginal survival curves es-
tablished in the base year (and modified by the base year calibration, if
selected).
The relationship for passenger car scrappage based on sales reflects the de-
ferral of vehicle retirement during periods of reduced sales and the corres-
ponding increase in scrappage during times of high sales. Let PATOTL be the
passenger car fleet size predicted by current survival rates, SALES be new
passenger car registrations, and PASCRP be the predicted annual car scrappage.
Then, the expected scrappage is:
PASCRP1 = 0.483 x SALES + 0.027 x PATOTL
and the predicted scrappage is in error by:
fi = PASCRP'/PASCRP
The fl factor is used to correct the marginal survival curves by scaling the
probability of scrappage:
MSURV(i,j,k) = 1 - Q[l - MSURV(i,j,k)]
Given the survival curves for all classes, annual updating is specified as:
VEH(i,j,k) = MSURV(i,j,k) x
2-45
-------
with vehicles older than 30 years dropped from the fleet. VEH(i=l,j,k) is
calculated from sales and diesel penetration data as in the base year ini-
tialization.
The vehicle retirement/new registrations calculation simulates one process
of vehicle aging which is important in the HFC's fuel consumption forecasts.
It also is thought that on-road fuel economy may decline with vehicle age,
and that consumer fuel purchasing behavior may alter the leaded/unleaded
gasoline shares. These processes can be simulated in the update process but
are not implemented at this time pending development of the technical analysis.
Therefore, updating of the arrays EPA, RMPG, and LEADED is a simple two-step
process:
• Shift values for age i vehicles to the positions for age i+1,
dropping vehicles more than 30 years of age
• Replenish the array values in position i=l with new model year
data, using the algorithms described under the base year initi-
alization.
Finally, depending on user options, the update process will apply annual growth
factors to the VMT array. The factors are drawn from the VMTGRO array and used
to scale the vintage VMT curve by vehicle class:
VMT(i,j,k) = VMT(i,j,k) x VMTGRO(ii,k)
where ii = 1,...,26, corresponding to the years 1975,...,2000.
When base year calibration is not employed, the growth factors are specified
to calibrate total VMT to FHWA statistics for historical years. Different
VMT levels will occur in combination with the calibration option, but year-
to-year VMT trends will remain consistent.
2-46
-------
3. OPERATION AND MAINTENANCE
3.1 MODEL OPERATION
3.1.1 Executing the Model
The Highway Fuel Consumption Model is installed on the DOE computer system
under account 6824, USERID RD1. The HFC is an interactive model designed
to operate under TSO.
To access the model, the user must type EXEC HFC.MODEL. This command exe-
cutes a CLIST which allocates the several input data files and calls an
executable version of the-program. A copy of the CLIST is shown in Table
3-1. Nine of the data files in the CLIST contain information on sales, EPA
fuel economy, and technology market penetration by calendar year for each of
nine individual vehicle categories. These files are denoted by HFC.VEHCLS.
DATA (vehicle type). Five data files, denoted by HFC.TECHSF.DATA (vehicle type)
contain information on the model year and technology-specific fuel economy
shortfall coefficients for two categories of passenger cars and three classes
of light-duty trucks. An additional six files, denoted by HFC.DATA, incor-
porate information on vehicle scrappage by age, calibration data, annual VMT
per vehicle by age, and future trends in the growth of annual VMT per vehicle.
3.1.2 Interactive Input
When a session is initiated on TSO, the user must answer a series of questions
to specify the options selected for a particular model run. The user responds
to each question (?) with a numeric answer, followed by a carriage return (CR).
The discussion which follows presents each question to be answered by the
user, the alternative entries which can be made, and the effect of each op-
tion on the model run. A sample run is presented at the end of this section.
3-1
-------
TABLE 3-1
HFC.MODEL.CLIST
TERMINAL LINESIZE(133)
FREEALL
ALLOC DSN(HFC.DATA(CALIB78))
ALLOC DSN(*) FILE(FT05F001)
ALLOC DSN(*) FILE(FT06F001)
ALLOC DSN(-) FILE(FT08F001)
ALLOC DSN(HFC.VEHCLS.DATA(DOMESTIC))
ALLOC DSN(HFC.VEHCLS.DATA(IMPORT))
ALLOC DSN(HFC.VEHCLS.DATA(DOMTRUCK))
ALLOC DSN(HFC.VEHCLS.DATA(IMPTRUCK))
ALLOC DSN(HFC.VEHCLS.DATA(TRK6T085))
ALLOC DSN(HFC.VEHCLS.DATA(TRK85TEN))
ALLOC DSN(HFC.VEHCLS.DATA(MEDTRUCK))
ALLOC DSN(HFC.VEHCLS.DATA(LTHVYTRK))
ALLOC DSN(HFC.VEHCLS.DATA(HVHVYTRK))
ALLOC DSN(HFC.DATA(SCRAP))
ALLOC DSN(HFC.DATA(VMT))
ALLOC DSN(HFC.DATA(VMTGROW))
ALLOC DSN(HFC.DATA(VMTGROWA))
ALLOC DSN(HFC.DATA(VMTGROWB))
ALLOC DSN(HFC.TECHSF.DATA(DOMCAR))
ALLOC DSN(HFC.TECHSF.DATA(IMPCAR))
ALLOC DSN(HFC.TECHSF.DATA(DOMTRK))
ALLOC DSN(HFC.TECHSF.DATA(IMPTRK))
ALLOC DSN(HFC.TECHSF.DATA(TRK685))
CALL 'CN6824.RD1.HFC.LOADLIB(HFC)'
FILE(FT01F001)
FILE(FT11F001)
FILE(FT12F001)
FILE(FT13F001)
FILE(FT14F001)
FILE(FT15F001)
FILE(FT16F001)
FILE(FT17F001)
FILE(FT18F001)
FILE(FT19F001)
FILE(FT20F001)
FILE(FT21F001)
FILE(FT22F001)
FILE(FT23F001)
FILE(FT24F001)
FILE(FT31F001)
FILE(FT32F001)
FILE(FT33F001)
FILE(FT34F001)
FILE(FT35F001)
3-2
-------
SAMPLE RUN
SELECT REPORT TYPE
1 - LIGHT DUTY VEHICLES ONLY
2 - LIGHT AND HEAVY DUTY VEHICLES
?
Response: "1" produces model output data restricted to the two categories
of passenger cars and the four categories of light-duty trucks
"2" produces model output data for the six categories of cars and
light-duty trucks and the three categories of medium- and
heavy-duty vehicles
ENTER BASE YEAR AS 4-DIGIT NUMBER
?
Response: i.e., "1975." This is the first year of output data printed by
the model
SELECT REPORTING CHRONOLOGICAL OPTION
1 - BASE YEAR TO 2000 BY 5 YEAR INCREMENTS
2 - STARTING IN BASE YEAR AND USING ENDING AND INCREMENTATION VALUES
OF YOUR CHOICE
?
Response: "1" initializes the model run with the base year and produces out-
put through the year 2000 for each intervening year divisible
by 5
"2" allows the user to vary the chronological reporting output of
the model. If option "2" is selected, the user is subsequently
prompted for his/her desired ending year of output and incre-
menting value
SELECT ONE OF THE FOLLOWING METHODS FOR COMPUTING EPA MPG
1 - EPA ESTIMATES FROM DATA INPUT FILES WITH A DIESEL ADVANTAGE FACTOR
2 - EPA ESTIMATES FROM DATA INPUT FILES FOR BOTH GAS AND DIESEL
3 - HARMONIC AVERAGE OF TECHNOLOGY SPECIFIC FUEL ECONOMY ESTIMATES
?
Response: "1" computes new vehicle average EPA mpg by using estimates of diesel
penetration and the EPA fuel economy of the gasoline-fueled
cars in conjunction with an estimate of the EPA fuel economy
advantage of diesels vis-a-vis spark ignition engines. If this
option is selected, the user is then prompted for a value of the
diesel advantage factor
"2" computes new vehicle average EPA mpg using estimates of the EPA
fuel economy of the gasoline new car fleet, diesel penetration,
and the average EPA mpg of the diesel fleet. This option is
currently not operational since the data for new vehicle aver-
3-3
-------
age diesel vs. gasoline EPA mpg have not yet been input in the
data files
computes new vehicle EPA mpg by calculating the harmonic average
of the EPA fuel economy estimates for the 5 specific technolo-
gies identified in the input data (e.g., diesel FWD, carbureted
automatic RWD, carbureted manual RWD, diesel RWD, carbureted
FWD)
SELECT ONE OF THE FOLLOWING OPTIONS FOR DETERMINING ONROAD MPG
1 - HARMONIC AVERAGE OF TECHNOLOGY SPECIFIC FUEL ECONOMIES AND SHORTFALL
COEFFICIENTS
2 - HARMONIC AVERAGE OF TECHNOLOGY SPECIFIC FUEL ECON. AND "USER SUPPLIED"
SHORTFALL COEFFICIENTS
3 - NO FUEL ECONOMY SHORTFALL, I.E., EPA MPG = ONROAD MPG
?
Response: "1" onroad mpg computed using technology-specific mpg's and short-
fall coefficients contained in the input data files
"2" allows the user to override the shortfall coefficients in the
model with his/her own values. If this option is employed,
the user is then queried for the fuel economy shortfall regres-
sion space: 1-MPG (fuel economy space) or 2-GPM (fuel consump-
tion space). Subsequently, the user is asked to specify the
time period and shortfall coefficients separately for gasoline-
and diesel-fueled passenger cars and light-duty trucks. The
model echoes the user-specified values for each time period
and vehicle category and allows the user to correct his entries
before proceeding to the next step
"3" sets the on-road fuel economies equal to the EPA mpg values
DO YOU WISH TO GROW ANNUAL VMT PER VEHICLE?
1 - YES
2 - NO
?
Response: "1" allows the user to increase the values of annual VMT/vehicle by
age by a specified annual percentage growth from 1975 to 2000.
If option 1 is selected, the user is then prompted to select
one of three sets of annual VMT/vehicle growth rates which are
contained in the input data files
"2" calculates total VMT using input data on annual VMT/vehicle by
age which remain constant over the forecast period
DO YOU WISH TO PERFORM BASE YEAR CALIBRATION?
1 - YES
2 - NO
?
Response: "1" calibrates the model to actual data on fuel demand and cars and
trucks in operation in the base year
3-4
-------
"2" computes output for the base and subsequent years without refer-
ence to actual data
SELECT METHOD OF VEHICLE STOCK CALCULATION
1 - SCRAPPAGE BASED ON SALES
2 - SCRAPPAGE ONLY
?
Response: "1" calculates passenger car stock with the use of marginal survival
rates which are sensitive to shifts in new car registrations
"2" calculates passenger car stock with the use of marginal survival
rates which remain fixed at base year values throughout the
forecast period
DO YOU WANT TO CHANGE SCENARIO PARAMETERS?
1 - YES
2 - NO
?
Response: "1" allows the user to repeat entries for each of the scenario param-
eters from the beginning without having to re-execute the pro-
gram
"2" the program accepts all of the entries for each of the scenario
parameters listed above and proceeds to print out the model out-
put data
An example terminal session and model forecast are presented on following
pages.
3-5
-------
exec hfc.model
SAMPLC TERMINAL SESSION
WELCOME TO THE HIGHWAY FUEL CONSUMPTION MODEL
ALL RESPONSES MAY BE ENTERED IN FREE FORMAT FOLLOWING THE PROMPT
NOTE: OPTIONS APPEARING WITH A "»" SHOULD NOT BE SELECTED
SELECT REPORT TYPE
1 - LIGHT DUTY VEHICLES ONLY
2 - LIGHT AND HEAVY DUTY VEHICLES
ENTER BASE YEAR AS 4-DIGIT NUMBER
?
1975
SELECT REPORTING CHRONOLOGICAL OPTION
1 - 1975 TO 2000 BY 5 YEAR INCREMENTS
2 - STARTING IN 1975 AND USING ENDING YEAR AND INCREMENTATION VALUES OF YOUR CHOICE
OJ
ENTER 4-DICIT ENDING YEAR
?
1973
ENTER INCREMENT YEAR FACTOR AS INTEGER VALUE
?
1
SELECT ONE OF THE FOLLOWING METHODS FOR COMPUTING EPA MPG
1 - EPA ESTIMATES FROM DATA INPUT FILES WITH A DIESEL ADVANTAGE FACTOR
2 * EPA ESTIMATES FROM DATA INPUT FILES FOR BOTH GAS & DIESEL
3 - HARMONIC AVERAGE OF TECHNOLOGY SPECIFIC FUEL ECONOMY ESTIMATES
ENTER DIESEL ADVANTAGE FACTOR, E.G., 1.30
7
i.3
SELECT ONE OF THE FOLLOWING METHODS FOR DETERMINING OHROAD MPG
1 - HARMONIC AVERAGE OF TECHNOLOGY SPECIFIC FUEL ECONOMIES & SHORTFALL COEFFICIENTS
2 - HARMONIC AVERAGE OF TECH. SPECIFIC FUEL ECON. & "USER SUPPLIED" SHORTFALL COEFFICIENTS
3 - NO FUEL ECONOMY SHORTFALL, I.E., EPA MPG = ONROAD MPG
7
1
DO YOU WISH TO GROW ANNUAL VMT PER VEHICLE?
1 - YES
2 - NO
?
1
SELECT VMT GROWTH FILE
1 - DEFAULT (UNIT=22)
2 - ALTERNATE A (UNIT=23)
3 - ALTERNATE B
-------
DO YOU WANT TO PERFORM BASE YEAR CALIBRATION?
1 - YES
2 - NO
?
1
SELECT METHOD OF VEHICLE STOCK CALCULATION
1 - SCRAPPAGE BASED UPON SALES
2 - SCRAPPAGE ONLY
DO YOU WANT TO CHANGE SCENARIO PARAMETERS?
1 - YES
2 - NO
*** SCENARIO COMPLETE: STANDBY TO RECEIVE OUTPUT »**
U)
-------
* 1975 *
NEW
FLEET
CO
00
PA DOM
PA IMP
TOTAL PA
TRUCK DOM 0-6
TRUCK IMP 0-6
TRUCK 6-8.5
TOT LITETRUCK
TOTAL LDV
TRUCK 8.5-10.0
MED TRUCKS
LITEHVY TRUCKS
HVY HVY TRUCKS
TOT M&H TRUCKS
TOTAL TOTAL
PA DOM
PA IMP
TOTAL PA
TRUCK DOM 0-6
TRUCK IMP 0-6
TRUCK 6-8. 5
TOT LITETRUCK
TOTAL LDV
TRUCK 8.5-10.0
MED TRUCKS
LITEHVY TRUCKS
HVY HVY TRUCKS
TOT MSH TRUCKS
TOTAL TOTAL
EPA
MPG
14.80
23.35
15.79
13.10
21.00
10.80
12.59
15.20
8.30
7.20
5.70
4.60
5.01
13.92
EPA
MPC
16.50
25.47
17.41
14.50
22.20
11 .90
13.39
16.52
3.90
7.40
5.63
4.70
5.02
14.94
ROAD
MPG
13.30
17.62
13.89
10.92
17.50
9.00
10.49
13.23
8.30
7.20
5.70
4.60
5.01
12.32
NEW
ROAD
MPG
14.06
22.31
14.37
12.08
18.50
9.92
11.16
14.04
8.90
7.40
5.63
4.70
5.02
12.97
REGISTRATIONS EPA
(IN MILLIONS) MPG
GAS
6.783
1.394
8.177
0.970
0.240
0.810
2.020
10.197
0.090
0.020
0.135
0.023
0.177
10.465
DSL
0.0 13.97
0.014 24.31
0.014 14.31
0.0 12.34
0.0 18.66
0.0 9.59
0.0 11.71
0.014 14.27
0.0 7.57
0.000 7.04
0.005 5.30
0.069 4.64
0.075 5.07
0.089 12.92
REGISTRATIONS EPA
(IN MILLIONS) MPG
GAS
8.300
1.431
9.731
1.300
0.170
1.329
2.799
12.530
0.111
0.030
0.123
0.019
0.177
12.818
DSL
0.0 14.23
0.019 24.35
0.019 15.10
0.0 12.57
0.0 19.22
0.0 10.14
0.0 11.97
0.019 14.51
0.0 7.83
0.0 7.07
0.007 .5.77
0.100 4.64
0.107 5.05
0.126 13.13
ROAD
MPG
12.77
18.05
13.30
10.28
15.55
7.99
9.76
12.64
7.57
7.04
5.80
4.64
5.07
11.64
*
ROAD
MPC
12.91
18.56
13.43
10.47
16.01
8.45
9.98
12.73
7.83
7.07
5.77
4.64
5 . 05
11.77
REGISTRATIONS
(IN MILLIONS)
GAS DSL
83.143 0.0
12.044 0.049
95.192 0.049
13.832 0.0
1.071 0.0
5.002 0.0
19.905 0.0
115.097 0.049
0.564 0.0
1.302 0.009
1.472 0.045
0.433 1.028
3.262 1.032
113.923 1.131
1976 »
REGISTRATIONS
(IN MILLIONS)
GAS DSL
83.787 0.0
12.748 0.068
96.536 0.068
14.415 0.0
1.221 0.0
6.135 0.0
21.772 0.0
113.307 0.068
0.652 0.0
1.185 0.008
1.513 0.049
0.468 1.074
3 . 1 65 1.132
122.125 1.199
(IN BILLIONS)
874.99
135.66
1010.65
112.66
11.01
44.29
167.96
1178.62
5.03
8.42
15.29
46.04
69.75
(IN
DSL
0.0
0.023
0.023
0.0
0.0
0.0
0.0
0.023
0.0
0.016
0.085
8.959
9.060
1253.40 9.083
FLEET
(IN BILLIONS)
909.40
146.92
1056.32
123.04
12.89
59.15
195.08
1251.40
6.23
7.71
15.90
47.97
71.59
1329.21
(IN
DSL
0.0
0.031
0.031
0.0
0.0
0.0
0.0
0.031
0.0
0.013
0.097
9.409
9.519
9.551
BILLIONS
LEAD
60.670
7.161
67.831
9.949
0.700
5.544
16.194
84.025
0.665
1.180
2.550
0 . 963
4.693
89.387
BILLIONS
LEAD
54.474
7.429
61.903
9.343
0.770
7 . 000
17.113
79.016
0.796
1.07/
2 . 659
0.923
4 . 663
34.475
JEL CONSUMPTION
OF GALLONS)
UNLD TOTAL
7.826 68.496
0 . 330 7.515
8.156 76.010
1.008 10.957
0.003 0.700
0.0 5.544
1.016 17.209
9.172 93.219
0.0 0.665
0.0 1.196
0.0 2.635
0.0 9.927
0.0 13.753
9.172 107.642
JEL CONSUMPTION
OF GALLONS)
UNLD TOTAL
15.972 70.445
0.457 7.917
16.423 70.363
2.404 11.747
0.035 0.305
0.0 7.000
2.439 19.552
13.868 97.915
0.0 0.796
0.0 1.091
0.0 2.755
0.0 10.337
0.0 14.183
13.363 112.393
IN MILLIONS
OF
BARRELS/DAY
4.47
0.49
4.96
0.71
0.05
0.36
1.12
6.03
0.04
0.03
0.17
0.65
0 . 90
7.02
IN MILLIONS
OF
BARRELS/DAY
4.60
0.52
5.11
0.77
0.05
0.46
1.28
6 . 39
0.05
0.07
0.18
0.67
0.93
7.36
-------
NEW
* 1977 *
FLEET
U>
PA DOM
PA IMP
TOTAL PA
TRUCK DOM 0-6
TRUCK IMP 0-6
TRUCK 6-8.5
TOT LITETRUCK
TOTAL LDV
TRUCK 8.5-10.0
MED TRUCKS
LITEHVI TRUCKS
HVY HVY TRUCKS
TOT M8H TRUCKS
TOTAL TOTAL
PA DOM
PA IMP
TOTAL PA
TRUCK DOM 0-6
TRUCK IMP 0-6
TRUCK 6-8.5
TOT LITETRUCK
TOTAL LDV
TRUCK 8. 5- 10.0
MELi TRUCKS
L1TEHVY TRUCKS
HVY MVY TRUCKS
TOT MSH TRUCKS
TOTAL TOTAL
EPA
MPG
17.20
27.67
18.47
14.10
24.20
11.60
1 3 . 09
17.31
8.80
7.50
5.82
5.19
5.38
15.40
EPA
MPG
18.72
26.80
19.78
i4.47
24.00
11.81
13.10
18.17
8.90
7.60
5.94
5.29
5.57
15.94
ROAD
MPG
14.52
24.10
15.65
11.75
20.17
9.67
10.91
14.61
8.80
7.50
5.82
5.19
5.33
13.35
NEW
ROAD
MPG
15.66
23.57
16.66
12.07
20.00
9.85
10:92
15.27
3 . 90
7.60
5.94
5.29
5.57
1 3 . 80
REGISTRATIONS
UN MILLIONS)
GAS
8.850
1.944
10.794
0.880
0.310
1.600
2.790
13.534
0.280
0.026
0.136
0.013
0.131
14.045
DSL
0.0
0.026
0.026
0.0
0.0
0.0
0.0
0.026
0.0
0.0
0.013
0.151
0.163
0.139
REGISTRATIONS
(IN MILLIONS)
GAS
8.942
1.878
10.820
0.780
0.340
2.109
3.228
14.049
0.290
0.082
0.136
0.024
0.242
14.58)
DSL
0.058
0.072
0.130
0.020
0.0
0.011
0.032
0.161
0.0
0.0
0.014
0.172
0. 186
0.347
EPA
MPG
14.55
24.73
15.49
12.72
20.29
10.54
12.17
14.33
8.19
7.11
5.73
4.73
5.09
13.47
EPA
MPC
15.03
24.90
16.01
12.85
21.12
10.39
12.33
15.27
3.41
7.21
5.80
4.93
5.16
13.32
ROAD
MPG
13.09
19.31
13.75
10.60
16.91
8.78
10.14
13.00
8.19
7.11
5.78
4.73
5.09
12.02
*
ROAD
MPG
13.41
19.36
14.12
10.71
17.60
9.03
10.28
13.31
S.41
7.21
5.80
4.33
5.16
12.23
REGISTRATIONS
(IN MILLIONS)
GAS DSL
84.800 0.0
13.864 0.092
98.664 0.092
14.542 0.0
1.505 0.0
7.517 0.0
23.564 0.0
122.228 0.092
0.907 0.0
1.072 0.008
1.555 0.058
0.447 1.165
3.074 1.231
126.209 1.323
1978 «•
REGISTRATIONS
( IN MILLIONS)
GAS DSL
85.707 0.058
14.796 0.163
100.502 0.220
14.529 0.020
1.813 0.0
9.377 0.011
25.719 0.032
126.222 0.252
1.169 0.0
1.026 0.007
1.591 0.069
0.432 1.272
3.049 1.347
130.440 1.599
(IN BILLIONS)
935 . 00
162.64
1097.64
122.27
15.69
74.84
212.80
1310.44
9.18
6.39
15.22
47.63
69.24
1333.86
FLEET
(IN BILLIONS)
970.53
177.65
1148.18
113.75
17.76
90.90
222.40
1370. 58
il.6i
6.49
15.41
51.1 3
73.03
(IN
DSL
0.0
0.041
0.041
0.0
0.0
0.0
0.0
0.041
0.0
0.010
0.114
9.273
9.402
9.443
BILLIONS OF GALLONS) IN MILLIONS
OF
LEAD UNLD TOTAL BARRELS/DAY
47.713 23.697 71.415 4.66
7.809 0.572 3.422 0.55
55.527
3.232
0.733
8.521
17.436
73.013
1.121
0.883
2.522
0.802
4.213
73.347
24.269 79.837 5.21
3.306 11.538 0.75
0.195 0.923 0.06
0.0 8.521 0.56
3.501 20.987 1.37
27.770 100.824 6.53
0.0 1.121 0.07
0.0 0.898 0.06
0.0 2.636 0.17
0.0 10.080 0.66
0.0 13.615 0.39
27.770 115.560 7.54
(IN
DSL
0.043
0.075
0.113
0.014
0.0
0.009
0.024
0.142
0.0
0.003
0.139
9.841
9. 988
1455.22 10.130
BILLIONS OF GALLONS) IN MILLIONS
OF
LEAD UNLD TOTAL BARRELS/DAY
41.236 31.096 72.376 4.72
7.950 0.918 3.944 0.53
49.137
6.395
0.641
10.003
17.539
66.726
1 .330
0.892
2.519
0.754
4.165
72.271
32.014 31.319 5.30
3.708 10.617 0.69
0.363 1.009 0.07
0.0 10.012 0.65
4.076 21.633 1.41
36.090 102.953 6.72
0.0 1 . 330 0 . 09
0.0 0.900 0.06
0 .0 2 . 653 0.17
0.0 10. 595 0 . 69
0.0 14.153 0.92
36.090 113.491 7.73
-------
3.2 PROGRAM MAINTENANCE
The new HFC model makes extensive use of partitioned data sets (PDS's), which
offer two primary advantages:
• The user can group related programs or data files into a single
dataset
• PDS's make more efficient use of disk storage space than many
independent sequential data sets.
Because PDS's may be unfamiliar to HFC users, this section presents a brief
description of how to perform common program editing and maintenance func-
tions .
3.2.1 Program Editing
The TSO editor may be used to modify HFC source code by referencing the
HFC.FORTH member with its fully qualified name. In the example shown below,
user commands are typed in lower case, while system responses are in capi-
tal letters.
READY
edit 'cn6824.rdl.hfc.forth(calibr)'
ENTER DATA SET TYPE-
fortg
EDIT
[editing commands]
save
EDIT
end
READY
The source code members are stored in line numbered TSO format and may be
listed or modified using standard editor commands.
3.2.2 Program Compilation
The HFC model uses the following PDS libraries to store object code and load
modules:
3-10
-------
DSN = CN6824.RD1.HFC.OBMOD
DSORG = PO
RECFM = FB
LRECL = 80
BLKSIZE = 80
UNIT = DASD
VOL=SER=FEA025
MEMBERS: MAIN
SOLICT
USERSF
INBASE
CALIBR
OUTPUT
UPDATE
PAGE
DSN = CN6824.RD1.HFC.LOADLIB
DSORG = PO
RECFM = U
LRECL = 0
BLKSIZE = 4000
UNIT = DASD
VOL=SER=FEA025
MEMBERS: HFC
SOLICT
USERSF
INBASE
CALIBR
OUTPUT
UPDATE
PAGE
The library structure allows the independent compilation of any HFC sub-
program, its link-editing with dependent subroutines, and regeneration of the
executable HFC model with minimum redundant processing. Three TSO command
procedures are available to assist the user in updating these libraries.
Procedure HFC.COMP.CLIST invokes the FORTRAN G compiler to recompile a source
member and replace its entry in the object library with the updated version:
exec hfc.comp
ENTER POSITIONAL PARAMETER PGM
calibr
[FORTRAN COMPILER MESSAGES]
READY
3-11
-------
The positional parameter specifies the HFC.FORTH member name to be compiled.
Assuming that compilation is successful, the user must re-link the new object
module with any dependent subroutines and create a new load module. This
function is performed by procedure HFC.LOAD.CL1ST:
exec hfc.load
ENTER POSITIONAL PARAMETER PGM -
calibr
[LINK EDITOR MESSAGES]
READY
Successful operation of the link editor step is denoted by the message:
(member name) NOW REPLACED IN DATA SET -- AUTHORIZATION CODE IS 0.
In the above example, subroutine CALIBR is a dependent subroutine of INBASE.
As a result of the compile/link edit steps, the editing changes in CALIBR are
reflected in the CALIBR load module. However, these changes are not incor-
porated in the load module for INBASE, which was generated at an earlier
time using the old version of CALIBR. The changes are propagated in the sub-
routine hierarchy by re-executing the LOAD procedure for INBASE:
exec hfc.load
ENTER POSITIONAL PARAMETER PGM -
inbase
[LINK EDITOR MESSAGES]
READY
Figure 3-1 diagrams the hierarchy of program dependencies. Editing of the
lowest level of program code (USERSF or CALIBR) requires link-editing of the
modified program and the (major) subroutine above it. Modification of a
major subroutine requires only one link-edit step, which automatically re-
incorporates the current versions of dependent subroutines.
Regeneration of the executable model code is accomplished by the command pro-
cedure HFC.LINK.CLIST. This procedure is similar to HFC.LOAD but is written
to link the current object module for the MAIN program with all subroutines
and place executable member HFC in the load library:
3-12
-------
FIGURE 3-1
SUBROUTINE COMMUNICATIONS
MAIN PROGRAM
BLOCK
DATA
SOLICT
USERSF
INBASE
OUTPUT I I UPDATE
PAGE
-------
exec hfc.link
[LINK EDITOR MESSAGES]
READY
Note that this procedure does not prompt the user for a program name (posi-
tional parameter).
3.2.3 PDS Compression
The user normally will not be concerned with the contents of the object code
and load module libraries. However, PDS's require periodic compression to
free the unused space which can be caused by frequent updating of members.
Dataset HFC.COMPRSS contains a JCL stream which invokes the IBM utility
IEBCOPY to compress the PDS libraries used by HFC. This program can be exe-
cuted under SUPERWYLBUR by the command: RUN UNN FET FROM HFC.COMPRSS or
submitted to the batch machine under TSO by the command: SUBMIT HFC.COMPRSS.
PDS compression is a routine maintenance task which should be performed daily
during periods of intensive program or data file editing. Failure to compress
PDS's periodically can lead to inadequate free space, which will block the
user's attempt to save an edited program or data file until the compression
is performed.
3.3 DATA FILE EDITING
The editing of data files for the HFC model is commonly performed on the TSO
system. To edit a data file on TSO, the user must type EDIT, followed by
the fully qualified name of the data file, e.g.:
edit hfc.vehcls.data(domestic)
The computer then will respond with:
DATA SET HFC.VEHCLS.DATA(DOMESTIC) NOT LINE NUMBERED,
USING NONUM
EDIT
3-14
-------
Each line in a data file is prefixed either with a calendar year or a vehicle
age. Thus, even though the data files are not line-numbered, the data in each
line can be identified and edited easily. To edit a line(s), the user should
first type VERIFY. This commands the computer to print the entire line in
which a given data entry is changed. Once in the VERIFY mode, the user then
types FIND/year or age/. The computer then will print out the line of data
specific to the year or age requested, e.g.:
find /1980/
1980 6.46 20.97 .0494 0. 0.000 19.40
The CHANGE command is used to alter a value in a given line:
change /6.46/5.30/
where 6.46 = existing value
5.30 = new value
The computer then will verify that the change has been made by printing the
line in question, e.g.:
1980 5.30 20.97 .0494 0. 0.000 19.40
Upon completion of the data file editing, the user saves the updated file by
typing SAVE. The computer will prompt the user with EDIT, which should be
followed by the command END to terminate the editing session.
The user must exercise caution to ensure that the spacing between columns in
the data file is undisturbed during the editing process. Since the program
operates on data which are in a fixed format, any disturbance of the spacing
between columns in a data file will result in nonsensical output.
3-15
-------
REFERENCES
1. Energy and Environmental Analysis, Inc. "Light Duty Vehicle Fuel Con-
sumption Model: 1975-1986." Prepared for the U.S. Department of Energy.
April 28, 1978.
2. Energy and Evironmental Analysis, Inc. "The Highway Fuel Consumption
Model: Third Quarterly Report." Prepared for the U.S. Department of
Energy. January 27, 1981.
3. Energy and Environmental Analysis, Inc. "The Highway Fuel Consumption
Model: Fourth Quarterly Report." Prepared for the U.S. Department of
Energy. July 1, 1981.
4. Energy and Environmental Analysis, Inc. "The Highway Fuel Consumption
Model: Fifth Quarterly Report." Prepared for the U.S. Department of
Energy. November 30, 1981.
R-l
-------
APPENDIX A
FORTRAN SOURCE CODE FOR THE
NEW HIGHWAY FUEL CONSUMPTION MODEL
A-l
-------
8RD1.HFC.FORTH:MAIN - DEFAULT
FROM fcRDl.HFC.FORTH:MAIN ON CATALOG
CARD
1/184 184 LINES CURRENT=184
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
23.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
43.
49.
50.
51.
52.
53.
54.
55.
56.
C
HIGHWAY FUEL CONSUMPTION MODEL: DECEMBER 1981
ENERGY AND ENVIRONMENTAL ANALYSIS, INC.
PROGRAMMER: MIKE MOCHAN
DOE CONTRACT: DE-AC01-79PE-70032, TASK 13
MAIN PROGRAM FOLLOWS
REAL SALES(55,9),GASHPG(55,9),DSLMPG(55,9)IDSLPEN(55,9>,
& LEDPENtSS^t.GASADJlSS.SJ.AUTMPCISS.St.MANPCTfSS.S),
8 MANMPGI55,5),BASPCT(55,5)IBASMPC(55,5),ALTPCT<55,5>,
8, ALTMPC(55,5>,DSLABJ<55,5>,DRHMPG<55,5>,DFWPCT<55,5>,
& DFHMPG(55,5),DALPCT<53,5>,DALMPG(55,5),SCRLDV<30,2>,
& SCRLDT(30,4),3CRMHD < 30,Z,3),VMTLDV< 30,2),VMTLDT < 30,4 >,
& VMTMHD< 30,2,3),COEFA1(11,2,5),COEFB1(11,2,5),
& COEFA2(11,2,5),COEFB2(11,2,5),COEFA3(11,2,5),
& COEFB3<11,2,5),COEFA4 ,
•>•-riFfHMPG (-.1, K > . nFUPf T ! .J . K ) , liR.'lirc ' .J ,!•:). PAL POT (. I. \'. 1 ,1'iftt MPG (. I. V. > .
00001000
00002000
00003000
00004000
00005000
00006000
00007000
00008000
00009000
00010000
00011000
00012000
00013000
00014000
00015000
00016000
00017000
00018000
00019000
00020000
00021000
00022000
00023000
00024000
00025000
00026000
00027000
00028000
00029000
00030000
00031000
00032000
00033000
00034000
00035000
00036000
00037000
00038000
00039000
00040000
00041000
00042000
00043000
00044000
00045000
00046000
00047000
00048000
00049000
00050000
00051000
00052000
00053000
00054000
00055000
00056000
-------
59.
60.
61.
62.
63.
64.
65.
66.
67.
63.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
SO.
81.
82.
83.
84.
85.
86.
87.
83.
39.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
107.
103.
109.
110.
Ill .
112.
113.
14.
15.
16.
17.
18.
19.
120.
121.
122.
123.
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
r:
1000 FORMAT<5(/>,55(/,5X,F6.3,2(lX,F5.2),lX,F6.4,lX,F5.3,lXIF7.4,3(lX,
8.F5.2,1X,F5.3>,1X,F5.2,1X,F7.4,2(1X,F5.2,1X,F5.3>,1X,F5.2»
1010 CONTINUE
READ AND STORE HEAVY DUTY TRUCK VEHICLE DATA NEXT.
WHERE: UNIT=17=LITE-HVY-TRK, 1S=MED-HVY-TRK, 19=HVY-HVY-TRK
DO 1030 K = 6,9
UNIT = K + 10
READ(UNIT,1020)(SALES!J,K>,GASMPG,DSLPEN,
&LEDPEN,J=1,55)
1020 FORMAT(5(/),55(/I5X,F6.3,2(lX,F5.2),lX,FA.4llX,F5.3»
1030 CONTINUE
READ AND STORE SCRAPPAGE AND VMT DATA NEXT.
WHERE! UNIT=20=SCRAP, UNIT=21=VMT
READ(20,1035)
READ(21,1035)
1035 FORMAT(///>
DO 1050 J = 1,30
READ!20,1040) SCRLDV(J,1),SCRLDV,SCRLDT,SCRLDT,
RSCRLDT(J,3),SCRLDT(J,4>,(SCRMHD(J,1,K),SCRHHD(J,2,K),K=1,3)
1040 FORMAT(3X,12F10.3)
READ!21,1040) VMTLDVIJ,1>,VMTLDV(J,2>,VMTLDT(J,1),VMTLDT(J,2),
&VMTLDT(J,3),VMTLDT(J,4>,(VMTMHU(J,1,K),VMTMHD(J,21K),K=1,3)
1050 CONTINUE
READ AND STORE TECH SHORTFALL COEFFICIENTS FOR CLASSES 1-5
WHERE: UNIT=31=DOMCAR, 32=IMPCAR, 33=DOMTRK, 34=IMPTRK,
35=6-8.5TRK
DO 1070 K = 1,5
UNIT = K * 30
READ,COEFA2<1,J,K),
&COEFB2U,J,K),COEFA3(I,J,K),COEFB3(I,J,K),COEFA4II,J,K>,
?,COEFB4( I ,J,K),1 = 1,11 ),J=1,2)
1060 FORHAT(3(/),ll(/f4X,8F9.4)f5(/),ll(/,4X,8F9.4»
1070 CONTINUE
INITIALIZE FOR FIRST TIME THROUGH
1030 CONTINUE
CALL SUB TO SOLICIT INFO AND GENERATE SCENARIO
CALL SOL I CT( FIRST, 8,9999)
FIRST = .FALSE.
SKIP = .TRUE.
INITIALIZE FOR THE SELECTED BASE YEAR
CALL INBASE
IF INDICATED CALL SUB TO CALCULATE AND PRINT
0011101=1,26
IF (.NOT.PIND(I)) GO TO 1035
IFC5KIP) CALL PAGEI3)
SKIP = .NOT.SKIP
CALL OUTPUT
30 YEAR ARRAY UPDATE FOLLOWS, IT IS CALLED ONLY IF
THIiKE ARE REMAINING YEARS; 10 PF PRINTED
00059000
00060000
00061000
00062000
00063000
00064000
00065000
00066000
00067000
00063000
00069000
00070000
00071000
00072000
00073000
00074000
00075000
00076000
00077000
00078000
00079000
00080000
00031000
00032000
00083000
00034000
00085000
00036000
00087000
00088000
00089000
00090000
00091000
00092000
00093000
00094000
00095000
00096000
00097000
00098000
00099000
00100000
00101000
00102000
00103000
00104000
00105000
00106000
00107000
00108000
OOKWOO
00110000
00111000
00112000
00113000
00114000
00115000
00116000
00117000
00113000
00119000
00120000
00122000
00123000
001 24001''
-------
124.
125.
126.
127.
128.
129.
130.
131.
132.
133.
134.
135.
136.
137.
138.
139.
140.
141.
142.
143.
144.
145.
146.
147.
143.
149.
150.
151.
152.
153.
154.
155.
156.
157.
158.
159.
160.
161.
162.
163.
164.
165.
166.
167.
163.
169.
170.
171.
172.
173.
174.
175.
176.
177.
178.
179.
130.
181.
182.
183.
184.
C
1035 DO 1090 J = 1,26
IF ,
a MANMPG<55,5),BASPCT<55,5),BHSMPC<55,5>,ALTPCT<55,5>,
a ALTMPC<55,5),DSLADJ<55,5),DRWMPG<55,5>,DFWPCT<55,5>,
& DFWMPG(55,5>,DALPCT(55,5),DALMPG(55,5),SCRLDV(30,2),
a SCRLDT(30,4),SCRMHD<30,2,3),VMTLDV(30,2),VMTLDT(30,4),
a VMTMHD< 30,2,3), COEFA1 (1 1 ,2,5) ,COEFB1 ( 11,2,5),
6 COEFA2C 11, 2,5), COEFB2U 1,2 ,5),COEFA3( 11,2,5),
a COEFB3* 1 1 ,2,5) ,COEFA4( 11 ,2,5) ,COEFB4( 11,2,5) ,
a VEH(30,2,9),LEADED(30,9),VMT(30,2,9),EPA(30,2,9),
a RMPC< 30,2,9) ,MSURV<30,2, 9), VMTGROI 26,9), ADVANT,
a USERCF(2,55,2,5)
INTEGER I , J,K,L,UNIT,BECYR,ENDYR,VYR,FYR,LYR,
a MPGOPT,RODOPT,YR1ND(100>,GPM
LOGICAL PIND(26), SHORT, PAFRAC.CALIB, CROW
COMMON /CB01/ SALES, GASMPG.DSLMPC.DSLPEN,
a LEDPEN,GASADJ,AUTMPG,MANPCT,
a MANMPC,BASPCT,BASMPG,ALTPCT,
& ALTMPG,DSLADJ,DRWMPG,DFWPCT,
a DFWMPC,DALPCT,DALMPG,SCHLDV,
a SCRLDT,SCRMHD,VMTLDV,VMTLDT,
& VMTMHD,COEFA1,COEFB1 ,
& COEFA2,COEFB2,COEFA3,
a COEFB3,COEFA4,COEFB4
COMMON /CB02/ VEH, LEADED, VMT, EPA, RMPC.MSURV.VMTGRO
COMMON /CB03/ BEGYR.ENDYR, VYR,FYR,LYR,MPGOPT,RODOPT, YRIND, ADVANT
8 , SHORT, PAFRAC.CALIB, GROW, PIND
COMMON /CB04/ HD1 (4,9) ,HD2(4,5)
COMMON /CB05/ USERCF.GPM
DATA HD1 /'PA D' 'OM ' ' ' • f,'PA 1','MP ' ' ',' '
a 'TRUC' 'K DO' 'M 0-' '6 '.'TRUC'.'K IM' 'P 0-','6 '
a '1RLIC' 'K 6-' '8.5 ' ' 'f'TRUC','K 8.' '5-10','.0 '
a 'MED ' 'TRUC' 'KS • ' • , 'LITE' , 'HVY ' 'TRUC','KS '
a 'HVY ' 'HVY ' 'TRUC' 'KS '/,
& HD2 /'TOTA' «L PA' ' • • f,'TOT ','LITE' 'TRUC'.'K '
a 'TOT A' 'L LD' 'V ' ' ' , ' TOT ','MJ.H ' 'TRUC'.'KS '
a 'TOTA' 'L TO' 'TAL ' ' '/
END
I'U 1 t. 1'Ul".'
00 1 26000
00127000
00123000
00129000
00130000
00131000
00132000
00133000
00134000
00135000
00 1 36000
00137000
00133000
00139000
00140000
00141000
00142000
00143000
00144000
00145000
00146000
00147000
00143000
00149000
00150000
00151000
00152000
00153000
00154000
00155000
00156000
00157000
00158000
00159000
00160000
00161000
00162000
00163000
00164000
00165000
00166000
00167000
00163000
00169000
oo r/ oooo
00171000
00172000
00173000
00174000
00175000
00 1 76000
,00177000
,00173000
,00179000
,00180000
00181000
,00182000
, 00 1 83000
00134COO
001S5000
-------
&RB1.HFC.FORTH:SOLICT - DEFAULT
FROM &RD1.HFC.FORTH:SOLICT ON CATALOG
CARD
1/276 276 LINES CURRENT=276
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
33.
39.
40.
41.
42.
43.
44.
45.
46.
47.
43.
49.
50.
51.
52.
53.
54.
55.
56.
57.
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
i":
H
E
F
C
c
R
&
8,
&
&
&
&
&
&
&
8
8,
I
&
I
L
C
&
ft
8,
&
a
&
&
a
C
C
s
c
t
i
R
F
F
k
0010 f
a
«F
aC
C
T
0015 C
i:
HIGHWAY FUEL CONSUMPTION MODEL: DECEMBER 1981
ENERGY AND ENVIRONMENTAL ANALYSIS, INC.
PROGRAMMER: MIKE MOCHAN
DOE CONTRACT: DE-AC01-79PE-70032, TASK 13
SUBROUTINE SOLICT(FIRST,*>
REAL SALES(55,9)fGASMPG(55,9),DSLMPG(55,9),DSLPEN(55,9),
LEDPEN(55,9),CASADJ(55,5>,AUTMPG(55,5),MANPCT(55,5),
MANMPG<55,5),BASPCT<55,5>,BASMPC<55,5>,ALTPCT<55,5),
ALTMPC(55,5 >,DSLADJ< 55,5 >,DRMMPG(55,5),DFHPCT(55,5),
DFWMPG(55,5>,DALPCT(55,5),DALMPG(55,5),SCRLDV<30,2),
SCRLDT<30,4),SCRMHD<30,2,3),VMTLDV<30,2>,VMTLDT<30,4>,
VMTMHD< 30,2,3) ,COEFA1( 11,2,5),COEFB1U 1,2,5),
COEFA2(11,2,5),COEFB2(11,2,5),COEFA3(11,2,5),
COEFB3(11,2I5),COEFA4(11,2,5),COEFB4(11,2,5),
VEH(30,2,9),LEADED(30,9),VMT<30,2,9),EPA<30,2,9),
RMPG(30,2,9),MSURV<30,2,9),VMTGRO(26f9),ADVANT,
USERCF(2,55,2,5)
INTEGER !,J,K,L,R,UNIT,BECYR,ENDYR,VYR,FYR,LYR,
MPCOPT.RODOPT,YRIND(100),GPM
INTEGER VMTSET
LOGICAL PIND(26),SHORT,PAFRAC,CALIB,GROW,FIRST,LINE(133)
COMMON /CB01/ SALES,CASMPG.DSLMPG.DSLPEN,
LEDPEN,GASADJ,AUTMPC,MANPCT,
MANMPG,BASPCT,BASMPG,AL TPCT,
ALTMPG,DSLADJ,DRHMPG,DFWPCT,
DFWMPG,DALPCT,DALMPG,SCRLDV,
SCRLDT,SCRMHD,VMTLDV,VMTLDT,
VMTMHD.COEFAl,COEFB1,
COEFA2,COEFB2,COEFA3,
COEFB3,COEFA4,COEFB4
COMMON /CB02/ VEH,LEADED,VMT,EPA,RMPG,MSURV,VMTGRO
COMMON /CB03/ BEGYR.ENDYR,VYR,FYR,LYR,MPGOPT,RODOPT,YRIND,ADVANT
,SHORT,PAFRAC,CALIB,GROW,PIND
COMMON /CB05/ USERCF.CPM
DETERMINE WHETHER THIS IS THE FIRST INVOKATION
IF (.NOT.FIRST)
REWIND 50
REWIND SO
GOTO 0015
PRINT SESSION INITIALIZATION INFORMATION
WRITE(6,0010)
0010 FORMAT!///,IX,'WELCOME TO THE HIGHWAY FUEL CONSUMPTION MODEL',
/,1X,'ALL RESPONSES MAY BE ENTERED IN FREE FORMAT FOLLOWING THE
PROMPT',/,IX,'NOTE: OPTIONS APPEARING WITH A "*" SHOULD NOT BE
&CTED',///>
GOTO 0060
THE FOLLOWING SECTION IS FOR SUBSEQUENT SCENARIOS
CONTINUE
ftFri-RMIME IT FUR n--;rr< rn::-:|l>ns flt-lMTMFR
00001000
00002000
00003000
00004000
00005000
00006000
00007000
00003000
00009000
00010000
00011000
00012000
00013000
00014000
00015000
00016000
00017000
00018000
00019000
00020000
00021000
00022000
00023000
00024000
00025000
00026000
00027000
00028000
00029000
00030000
00031000
00032000
00033000
00034000
00035000
00036000
00037000
00038000
00039000
00040000
00041000
00042000
00043000
00044000
00045000
00046000
00047000
P00048000
;ELE00049000
00050000
00051000
00052000
00053000
00054000
00055000
00056001')
"FMARIO
-------
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
83.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
107.
108.
109.
110.
ill.
112.
113.
114.
115.
116.
117.
113.
119.
120.
121.
122.
C
i
i
i
I
I
C
C
C
C
C
C
C
C
1
(
1
C
C
C
C
C
C
C
C
C
C
C
C
0020 CALL PAGE(3)
0029 WRITE)6,0030)
0030 FORMAT(///,1X,'DO YOU WANT TO RUN ANOTHER SCENARIO?',/,4X,
Si'l - YES',/,4X, '2 - NO')
READ(5,*,ERR=0040) INPUT
IF (INPUT.EQ.l.OR.INPUT.EQ.2) GOTO 0050
0040 WRITE(6,0080)
GOTO 0029
0050 CONTINUE
BASED UPON THE ABOVE RESPONSE, INFORMATION WILL BE SOLICITED AND
AND A NEW SESSION STARTED OR CONTROL WILL RETURN TO THE MAIN
PROGRAM AT A POINT RESULTING IN ITS TERMINATION
IF (INPUT.EQ.l) GOTO 0060
IF (1NPUT.EQ.2) RETURN 1
INITIALIZE THE ARRAY CONTROLLING PRINTED OUTPUT
0060 DO 0070 I = 1,26
PIND(I) = .FALSE.
0070 CONTINUE
0030 FORMAT(/,1X,'»»* INVALID RESPONSE »**')
DETERMINE IF THE SHORT OR LONG TABLE IS TO BE PRINTED
1000 WRITE(6,1010)
1010 FORMAT!/,IX,'SELECT REPORT TYPE',/,4X,•1 - LIGHT DUTY VEHICLES',
8 ' ONLY',/,4X,'2 - LIGHT AND HEAVY DUTY VEHICLES')
READ(5,*,ERR=1020> INPUT
IK (INPUT.EQ.l.OR.INPUT.EQ.2) GOTO 1030
1020 WRITE(6,0030)
GOTO 1000
1030 IF (INPUT.EQ.l) SHORT = .TRUE.
IF (INPUT.EQ.2) SHORT = .FALSE.
SOLICIT FOR BASE YEAR OF MODEL RUN
1040 WRITE(6,1050)
1050 FORMAT(/,IX,'ENTER BASE YEAR AS 4-DIGIT NUMBER')
READ(5,*,ERR=1060) IBY
IF (IBY.GE.1975.AND.IBY.LE.1930) GOTO 1070
1060 WRITE(6,0080)
GOTO 1040
1070 BEGYR = (IBY - 1975) «• 1
ENDYR = BEGYR + 29
SOLICIT FOR REPORT YEARS
1080 WRITE(6,1090> IBY,IBY
1090 FORMAT,IX,'SELECT REPORTING CHRONOLOGICAL OPTION',/,4X ,
?. '1 - ',14,' TO 2000 BY 5 YEAR INCREMENTS',/,4X,'2 - STARTING',
fc ' IN ',14,' AND USING ENDING YEAR AND INCREMENTATION',
?. ' VALUES OF YOUR CHOICE')
READ(5,*,ERR=1100) INPUT
IF (INPUT.EQ.l.OR.INPUT.EQ.2) GOTO 1110
1100 WRITE(6,0030)
GOTO 1030
1110 IF
-------
1^4. J = J + j l
125. PIND(J) = .TRUE. 00144000
126. 1120 CONTINUE 00145000
127. PINO«2000-IBY)*1) = .TRUE. 00146000
123. GOTO 1210 00147000
129. C 00143000
130. C USER SPECIFIED OUTPUT YEARS ARE SET BELOW 00149000
131. C 00150000
132. 1130 WRITE(6,1140> 00151000
133. 1140 FORMAT(/,IX,'ENTER 4-DIGIT ENDING YEAR') 00152000
134. READ(5,*,ERR=1150) IEND 00153000
135. IF (IEND.GE.IBK.AND.IEND.LE.2000) GOTO 1160 00154000
136. 1150 WRITE<6,0080) 00155000
137. GOTO 1130 00156000
138. 1160 WRITE(6,1170) 00157000
139. 1170 FORMAT*/,IX,'ENTER INCREMENT YEAR FACTOR AS INTEGER VALUE') 00158000
140. READ(5,*,ERR=1180) INC 00159000
141. IF (INC.GE.LAND.INC.LE.<2000-IBY» GOTO 1190 00160000
142. 1130 URITE(6,0080> 00161000
143. GOTO 1160 00162000
144. 1190 PIND(l) * .TRUE. 00163000
145. J = 1 00164000
146. IFST = IBY + INC
147. IF(IFST.GT.IEND) CO TO 1201
143. DO 1200 I = IFST,IEND,INC 0016500
149. J = J + INC 00166000
150. PIND(J) * .TRUE. 00167000
151. 1200 CONTINUE 00168000
152. 1201 PIND«IEND-!8Y> + 1> = .TRUE. 00169000
153. C 00170000
154. C SOLICITATION FOR FUEL ECONOMY CREATION FOLLOWS 00171000
155. C 00172000
156. 1210 CONTINUE 00173000
157. 1220 WRITE(6,1230) 00174000
158. 1230 FORMAT(/,IX,'SELECT ONE OF THE FOLLOWING METHODS FOR COMPUTING EPA00175000
159. & MPG',/,4X,'l - EPA ESTIMATES FROM DATA INPUT FILES WITH A DIESEL 00176000
160. 6ADVANTACE FACTOR1,/,4X,'2 » EPA ESTIMATES FROM DATA INPUT FILES F000177000
161. &R BOTH GAS ft DIESEL',/,4X,'3 - HARMONIC AVERAGE OF TECHNOLOGY SPEC00178000
162. &IFIC FUEL ECONOMY ESTIMATES') 00179000
163. READ(5,»,ERR=1240) MPGOPT 00180000
164. IF (MPGOPT.GE.l.AND.MPCOPT.LE.3) GOTO 1250 00181000
165. 1240 WRITE(6,0080) 00182000
166. GOTO 1220 00183000
167. 1250 IF (MPGOPT.NE.l) GOTO 1290 00184000
168. C 00185000
169. C ADVANTAGE FACTOR IS SOLICITED NEXT 00186000
170. C 00187000
171. 1260 WRITE(6,1270) 00138000
172. 1270 FORMAT,IX,'ENTER DIESEL ADVANTAGE FACTOR, E.G., 1.30') 00109000
173. READ(5,»,ERR=1280) ADVANT 00190000
174. GOTO 1290 001911(00
175. 1280 WRITE(6,0030> . 00192000
176. GOTO 1260 00193000
177. C 00194000
173. C SOLICIT ONROAD FUEL ECONOMY INFO NEXT 00195000
179. C 00196000
180. 1290 WRITE(6,1300) 00197000
181. 1300 FORMAT!/,IX,'SELECT ONE OF THE FOLLOWING METHODS FOR DETERMINING 000198000
132. 6NROAD MPG',/,4X,'l - HARMONIC AVERAGE OF TECHNOLOGY SPECIFIC FUEL 00199000
183. ^ECONOMIES & SHORTFALL COEFFICIENTS',/,4X,'2 - HARMONIC AVERAGE OF 00200000
184. STECH. SPECIFIC FUEL ECON. & "USER SUPPLIED" SHORTFALL COEFFIC1ENTS00201000
185. £',/,4X,'3 - NO FUEL ECONOMY SHORTFALL, I.E., EPA MPG = ONROAD MPG'00202000
186. £> 00203000
137. READ(5,*,ERR=1310) RODOPT 00204000
188. IF (RODOPT.GE.l.AND.RODOPT.LE.3) GOTO 1315 00205000
13v. 1310 WRITE (6.0030) Oi"i'7.i~>60i'>0
-------
190.
191.
192.
193.
194.
195.
196.
197.
193.
199.
200.
201.
202.
203.
204.
205.
206.
207.
203.
209.
210.
211.
212.
213.
214.
215.
216.
217.
218.
219.
220.
221.
222.
223.
224.
225.
226.
227.
223.
229.
230.
231.
232.
233.
234.
235.
236.
237.
238.
239.
240.
241.
242.
243.
244.
245.
246.
247.
248.
249.
250.
251 .
252.
253.
254 .
C
C
C
C
C
C
C
C
C
C
C
C
C
C
GO 10 1290
1315 IF
1330 FORMAT!/,IX.'DO YOU WISH TO GROW ANNUAL VMT PER VEHICLE?',/,4X,
&'l - YES',/,4X,'2 - NO')
READ(5,»,ERR=1340) INPUT
IF (INPUT.EQ.l.OR.INPUT.EQ.2) GOTO 1350
1340 WRITE(6,0030)
GOTO 1320
1350 IF (INPUT.EQ.l) GROW = .TRUE.
IF (INPUT.EQ.2) GROW = .FALSE.
IF(.NOT.GROW) CO TO 1400
1355 MRITE(6,1360)
1360 FORMAT!/,IX,'SELECT VMT GROWTH FILE',
& /,4X,'l - DEFAULT (UNIT=22)',
« /,4X,'2 - ALTERNATE A « )
READ<5,*,END=1365,ERR=1365) VMTSET
IF! (l.LE.VMTSET .AND. VMTSET.LE.3) ) GO TO 1370
1365 WRITE16.0080)
GO TO 1355
1370 VMTSET = 21 * VMTSET
READ AND STORE VMT GROWTH RATES
REWIND VMTSET
READ(VMTSET,1371)
1371 FORMAT!///)
DO 1375 I = 1,26
READ!VMTSET, 1372MVMTGRO) I,K>, K=l ,9)
1372 FORMAT(4X,9(3X,F6.4)>
1375 CONTINUE
BASE YEAR CALIBRATION SOLICITATION FOLLOWS
1400 WR1TE16.1410)
1410 FORMAT!/,IX,'DO YOU WANT TO PERFORM BASE YEAR CALIBRATION?',
&/,4X,'l - YES',/,4X,'2 - NO')
READ!5,*,ERR=1420> INPUT
IF (INPUT.EQ.l.OR.INPUT.EQ.2) GOTO 1430
1420 WRITE(6,0030)
GOTO 1400
1430 IF (INPUT.EQ.l) CALIB = .TRUE.
IF (INPUT.EQ.2) CALIB = .FALSE.
DETERMINE HOW NUMBER OF VEHICLES IN FLEET ARE TO BE COMPUTED
1440 WRITE(6,1450)
1450 FORMAT!/,IX, "SELECT METHOD OF VEHICLE STOCK CALCULATION',/,4X,
S'l - SCRAPPACE BASED UPON SALES',/,4X,'2 - SCRAPPAGE ONLY')
fit AH (5, * , ERR- 1460) INPUT
IF (INPUT.EQ.l.OR.INPUT.EQ.2) GOTO 1470
00203000
00209000
) 00210000
00211000
00212000
00213000
00214000
00215000
00216000
00217000
00218000
00219000
00220000
00221000
00222000
00223000
00224000
00225000
00226000
00227000
00223000
00229000
00230000
00231000
00232000
00233000
00234000
00235000
00236000
00237000
00233000
00239000
00240000
00241000
00242000
00243000
00244000
00245000
00246000
00247000
00248000
00249000
00250000
00251000
00252000
00253000
00254000
00255000
00256000
00257000
00253000
00259000
00260000
00261000
00262000
00263000
00264000
00265000
00266OOO
00267000
00263000
00269000
00270000
00271000
O'X: ~1 ~:' i''n't
-------
257.
259.
25*?.
260.
261.
262.
263.
264.
265.
266.
267.
268.
269.
270.
271.
272.
273.
274.
275.
276.
UUIU 14111 UUi/JUUO
1470 IF (INPUT.EQ.l) PAFRAC = .TRUE. 00274000
IF (INPUT.EQ.2) PAFRAC = .FALSE. 00275000
: 00276000
: ALL NECESSARY INFORMATION OBTAINED, QUERY USER AND PROCEED 00277000
: 00273000
1474 CONTINUE 00279000
WRITE*6,1475) 00280000
1475 FORMAT(//,1X,'DO YOU WANT TO CHANGE SCENARIO PARAMETERS?', 00281000
& /,4X,'l - YES'./.^X.'Z - NO') 00282000
READ<6,*,ERR=1473) ICHANG 00283000
IF(O.LT.ICHANC .AND. ICHANG.LT.3) GO TO 1479 00234000
1478 WRITE<6,0080) 00235000
GO TO 1474 00236000
1479 CONTINUE 00287000
IF(ICHANG.EQ.l) GO TO 0029 00288000
WRITE<6,1480) 00289000
1480 FORMAT//,lX,'*»* SCENARIO COMPLETE: STANDBY TO RECEIVE OUTPUT »»00290000
&*') 00291000
RETURN 00292000
END 00293000
-------
&RD1. HFC. FORTH :USERSF - DEFAULT
FROM SRD1. HFC. FORTH :USERSF ON CATALOG
CARD
1/120 120 LINES CURRENT' 120
1.
2.
3.
4.
5.
6.
7.
3.
9.
10.
11.
12.
13.
14.
15.
16.
17.
19.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
33.
39.
40.
41.
42.
43.
44.
45.
46.
47.
43.
49.
50.
51.
52.
53.
54.
C
C
C
C
C
C
HIGHWAY FUEL CONSUMPTION MODEL: DECEMBER 1981
ENERGY AND ENVIRONMENTAL ANALYSIS, INC.
PROGRAMMER: ROBERT CRAUFORD
DOE CONTRACT: DE-AC01-79PE-70032, TASK 13
SUBROUTINE USERSF
INTEGER GO,GOTEST/2HGO/
INTEGER GPM
LOGICAL FIRST/.TRUE./
REALM SFHD2I2) /4HLDV:, 4HLDT:/, USERCF(2,55,2,5)
REAL*3 SFHDK4.2) /8HMPG SPAC, SHE:
8H A + B»E,
MPG=,
&
&
&
& SFHD3<2> /8HGASOLINE, 8HBIESEL /
COMMON /CB05/ USERCF.GPM
8HPA
8HGPH SPAC, SHE: MPG=,
8H EPA/(A*, 8HB»EPA) /,
IF(FIRST) CO TO 1
IF(.NOT.FIRST) CO TO 9000
(A) INITIALIZE COEFFICIENT ARRAY TO NO SHORTFALL
1 FIRST = .FALSE.
DO 030 1 = 1, 55
DO 020 J = 1, 2
DO 010 K « I, 5
USERCF(1,I,J,K) = CPM
USERCF(2,I,J,K> = 1.0 - CPM
010 CONTINUE
020 CONTINUE
030 CONTINUE
(B) WRITE HEADING & INSTRUCTIONS
WRITE (6, 100) (SFHD1
100 FORMAT! (//), 1 X, 'USER-SPECIFIED SHORTFALL INTERFACE',
/>,lX,4A3,
(//), IX,
/MX,
ENTER TIME PERIOD AND COEFFICIENTS (A,B)',
IN RESPONSE TO PROMPT (?), E.G., ',
1946 1975 1.00 0.85 (FREE FORMAT)',
IN RESPONSE TO ECHO, ENTER:',
CO -- TO COMPLETE ENTRY',
NOCO --TO REPEAT INPUT' )
(C)
INTERFACE SUPPORTS TWO AGGREGATE VEHICLE CLASSES (LDV.LDT)
AND GAS/DSL FUEL TYPES.
DO 5020 IK = 1, 2
DO 5010 J = 1, 2
WRITE(6,1010> SFHD2(IK>,SFHD3(J)
1010 FORMAH ),5X,lA4,lX,lA8)
WRITE(6,1011 )
1011 FGHMAT)
I: Mpl-R l/fi AMP F.i'-MO
00001000
00002000
00003000
00004000
00005000
00006000
00007000
00003000
00009000
00010000
00011000
00012000
00013000
00014000
00015000
00016000
00017000
00018000
00019000
00020000
00021000
00022000
00023000
00024000
00025000
00026000
00027000
00028000
00029000
00030000
00031000
00032000
00033000
00034000
00035000
00036000
00037000
00038000
00039000
00040000
00041000
00042000
00043000
U0044000
00045000
00046000
00047000
00048000
00049000
00050000
00051000
00052000
00053000
00054000
00055000
00056000
-------
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
69.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
30.
81.
32.
83.
84.
85.
86.
87.
83.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
107.
108.
109.
110.
111.
112.
113.
114.
115.
116.
117.
118.
119.
120.
2000 CONTINUE
READ<5,*> IYRF,IYRL,A,B
IF(ItRF.LT.1946) IYRF = 1946
IFUYRL.GT.2000) IYRL = 2000
IF(IYRF.GT.IYRL) GO TO 2050
D
MRITE<6,2020) IYRF,IYRL,A,B
2020 FORMAT*IX,'ECHO: ',2I5,2F10.2,' ?')
READ<5,2030,END=3000,ERR=3000) GO
2030 FORMAT(A2)
IF(GO.EQ.GOTEST) GO TO 3000
C
2050 CONTINUE
WRITE(6,2051)
2051 FORMAT(IX,'ENTRY NOT ACCEPTED: REPEAT')
GO TO 2000
C
D STORE IN MASTER COEFFICIENT ARRAY
C
3000 IF(IK.EQ.l) KF = 1
IFUK.EQ.l) KL = 2
IFUK.EQ.2) KF = 3
IFUK.EQ.2) KL = 5
D
DO 4010 IY = IYRF, IYRL
I = IY - 1945
C
DO 4000 K = KF, KL
USERCF(1,I,J,K) = A
U3ERCF(2,I,J,K) = B
4000
4010
C
C (D)
C
5010
C
5020
C
C
CONTINUE
CONTINUE
IFUY.LT.2000) GO TO 2000
TERMINATE CONTROL LOOPS ON FUEL TYPE AND AGGREGATE CLASSES
CONTINUE
CONTINUE
C
C (E)
C
C
9000
GPMLST = GPM
GO TO 10000
ALLOW USER TO RETAIN COEFFICIENTS FOR SECOND AND LATER
SCENARIOS
IF(GPMLST.NE.GPM) CO TO 1
WRITE(6,9010)
9010 FORMAT«//),1X,'DO YOU WISH TO MODIFY PREVIOUS COEFFICIENTS?',
a ( /),5X,'l - YES',(/),5X,'2 - NO')
READ(5,»,ERR=9000,END=9000) USROPT
C
10000
IF(USROPT.EQ.l) GO TO 1
RETURN
END
00059000
00060000
00061000
00062000
00063000
00064000
00065000
00066000
0006/000
00068000
00069000
00070000
00071000
00072000
00073000
00074000
00075000
00076000
00077000
00078000
00079000
00080000
00031000
00032000
00083000
00034000
00085000
00036000
00037000
00088000
00089000
00090000
00091000
00092000
00093000
00094000
00095000
00096000
00097000
00093000
00099000
00100000
00101000
00102000
00103000
00104000
00105000
00106000
00107000
00108000
00109000
00110000
00111000
00112000
00113000
00114000
00115000
00116000
00117000
00118000
00119000
00120000
-------
SRD1.HFC.FORTH:INBASE - DEFAULT
FROM 8RD1.HFC.FORTH:INBASE ON CATALOG
CARD
1/432 432 LINES CURRENT=482
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
C
C
C
C
C
HIGHWAY FUEL CONSUMPTION MODEL: DECEMBER 1931
ENERGY AND ENVIRONMENTAL ANALYSIS, INC.
PROGRAMMER: MIKE MOCHAN
DOE CONTRACT: DE-AC01-79PE-70032, TASK 13
SUBROUTINE INBASE
REAL SALES(55,9),GASMPG<55,9),DSLMPC<55,9),DSLPEN(55,9>,
8 LEDPEN(55,9),GASADJ(55,5>,AUTMPC(55,5),MANPCT(55,5>,
8 MANMPC(55,5>,BASPCT<55,5>,BASMPC<55,5>,ALTPCT<55,5>,
8 ALTMPG<55,5),DSLADJ<55,5>,BRWMPC(55,5>,DFWPCT<55,5>,
a DFHMPG(55,5),DALPCT(55,5),DALMPC<55I5),SCRLDV(30,2),
a SCRLDT(30,4),SCRMHD(30,2,3),VMTLDV(30f2)fVMTLDT<30,4)(
8 VMTMHDI30,2,3),COEFA1(11,2,5),COEFBK11,2,5),
8, COEFA2U 1,2,5), COEFB2U 1,2,5), COEFA3( 11,2,5),
& COEFB3(ll,2,5),COEFA4(li,2,5>,COEFB4(ll,2,S)l
8 VEH< 30,2,9),LEADEDOO,9), VMT< 30,2,9),EPAOO, 2,9),
a RMPGl30t2,9),MSURV(30,2,9),VMTGRO<26,9),ADVANT,
8 USERCF(2,55,2,5)
INTEGER I.J.K.L.n.UNIT.BEGYR.ENDYR.VYR.FYR.LYR,
a MPCOPT,RODOPT,YRINDUOO),CPM
LOGICAL PIND126),SHORT,PAFRAC,CALIB,CROH
COMMON /CB01/ SALES,GASMPC,DSLMPG,DSLPEN,
& LEDPEN,GASADJ,AUTMPG,MANPCT,
& MANMPG,BASPCT,BASMPG,ALTPCf,
a ALTMPG,DSLADJ,DRHMPG,DFMPCT,
& DFWMPG,DALPCT,DALMPG,SCRLDV,
8 SCRLDT,SCRMHD,VMTLDV,VMTLDT,
8 VMTMHD.COEFAl.COEFBl,
8 COEFA2,COEFB2,COEFA3,
8 COEFB3,COEFA4,COEFB4
COMMON /CB02/ VEH,LEADED,VMT,EPA,RMPC.MSURV,VMTCRO
COMMON /CB03/ BECYR.ENDYR,VYR,FYR,LYR,MPGOPT,RODOPT,YRIND,ADVANT
& ,SHORT,PAFRAC,CALIB,GROW,PIND
COMMON /CB05/ USERCF.GPM
CALCULATE THE NUMBER OF VEHICLES IN THE FLEET BY VEH CLASS AND BY
FUEL TYPE (GAS/DSL) FOR EACH YEAR WITHIN THE PRESCRIBED 30 YEAR
PERIOD.
L = 0
R = 31
DO 1020 I = BEGYR.ENDYR
00001000
00002000
00003000
00004000
00005000
00006000
00007000
00008000
00009000
00010000
00011000
00012000
00013000
00014000
00015000
00016000
00017000
00013000
00019000
00020000
00021000
00022000
00023000
00024000
00025000
00026000
00027000
00028000
00029000
00030000
00031000
00032000
00033000
00034000
00035000
00036000
00037000
00038000
00039000
00040000
00041000
00042000
00043000
00044000
DETERMINE THE RELATIVE POSITION OF THE ITH YR IN THE 30 YEAR ARRAY00045000
NOTE: SCRAPPAGE ALWAYS MOVES FROM YR 1 TO 30, REPRESENTED BY L 00046000
00047000
L = L + 1 00043000
R = R - 1
GAS IS HANDLED FIRST , FOLLOWED BY DSL (J=2).
DO 1010 J = 1,2
NOTE THAT GAS FLEET SHARE IS 1 MINUS DSL SHARE
IF
00049000
00050000
00051000
00052000
00053000
00054000
00055000
00056000
0'Xi 5 7 O 00
-------
58.
59.
60.
61.
t>2.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
73.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91 .
92.
93.
94.
95.
96.
97.
93.
99.
100.
101.
102.
103.
104.
105.
106.
107.
103.
109.
110.
111.
112.
113.
114.
115.
116.
117.
113.
119.
120.
121.
122.
1 ?:"< .
IF (J.Ep.Z) FACTOR = 0
C
C LOOP THRU ALL CLASSES WITH THE NEXT LOOP.
C
DO 1000 K = 1,9
C
C THE APPROPRIATE SCRAPPAGE FACTOR IS SELECTED NEXT BASED UPON THE
C VEH CLASS. FOR HEAVY TRUCKS, A GAS/DSL DISTINCTION IS ALSO MADE.
C
IF (K.LE.Z) SCRAP = SCRLDV(L,K)
IF (K.GT.2.AND.K.LE.6) SCRAP = SCRLDTIL, (K-2) )
IF (K.GT.6) SCRAP = SCRMHDIL, J, = LEDPENU.J)
1030 CONTINUE
1040 CONTINUE
C
C THE VMT 30 YEAR ARRAY MILL BE LOADED NEXT.
C
L = 0
R = 31
DO 1070 I = BEGYR,ENDYR
R = R - 1
L = L + 1
DO 1060 J = 1,2
DO 1050 K = 1,9
C
C SELECT APPROPRIATE CLASS ARRAY FROM ARRAYS HOLDING INPUT VMT
C
IF (K.LE.2) VMT(R,J,K) = VMTLDV(L,K)
IF (K.GT.2.AND.K.LE.6) VMT(R,J,K) = VMTLDT(L, (K-2) )
IF (K.GT.6) VMT(R,J,K> = VMTMHD(L, J, (K-6) )
1050 CONTINUE
1060 CONTINUE
1070 CONTINUE
C
C CALIBRATE BASE YEAR VMT, FIRST SET BASE YR VMT POINTER
C
IF(. NOT. GROW) GO TO 1078
VYR = ENDYR - 29
DO 1077 I = 1,30
DO 1076 J = 1,2
DO 1075 K = 1,9
DO 1074 IVYR = 1 , VYR
VMT(I,J,K) = VMT(I,J,K) * VMTGRCK IVYR,K)
1074 CONTINUE
1075 CONTINUE
1076 CONTINUE
1077 CONTINUE
f
UOOjBUUU
00059000
00060000
00061000
00062000
00063000
00064000
00065000
00066000
00067000
00068000
00069000
00070000
00071000
00072000
00073000
00074000
00075000
00076000
00077000
00078000
00079000
00080000
00031000
00032000
00083000
00084000
00085000
00086000
00087000
00083000
00089000
00090000
00091000
00092000
00093000
00094000
00095000
00096000
00097000
00093000
00099000
00100000
00101000
00102000
00103000
00104000
00105000
00106000
00107000
00103000
00109000
00110000
00111000
00112000
00113000
00114000
00115000
00116000
001 17000
00118000
00119000
00120000
00121000
00122000
00123000
-------
1Z4.
125.
126.
127.
123.
129.
130.
13J.
132.
133.
134.
135.
136.
137.
138.
139.
140.
141.
142.
143.
144.
145.
146.
147.
148.
149.
150.
151.
152.
153.
154.
155.
156.
157.
158.
159.
160.
161.
162.
163.
164.
165.
166.
167.
168.
169.
170.
171.
172.
173.
174.
175.
176.
177.
178.
179.
180.
181.
182.
183.
184.
185.
1S6.
137.
1 83 .
1 ::'• -
C
c
C
c
c
c
1078
C
C
C
1080
C
C
C
C
C
C
C
1090
1100
C
C
C
C
C
C
1110
c
c
c
c
1120
1130
C
C
C
C
C
c
1140
C
C
C
C
IN) 1 ItiLlit iHt bKrt hUtL tLUUuni HKHHIS I-UM LLno^tb i irmu •_•.
THREE OPTIONS ARE OPEN TO THE USER, MPGOPT CONTAINS SELECTED OPT#
WHERE: OPT01 = STRAIGHT EPA PLUS DSL ADVANTAGE,
OPT#2 = DIRECTLY OFF THE DATA FILES VIA COMMON BLK ARRAYS,
OPT*3 = USE TECH PENETRATION & FUEL ECONOMY EST.
GO TO (1080, 11 10,1 140) .MPCOPT
OPT#1 FOLLOWS.
CONTINUE
I DUMP = 1
R = 31
DO 1100 I = BEGYR,ENDYR
R = R -1
DO 1090 J = 1,5
SET GAS MPG.
EPA(R,1,J) = GASMPGd.J)
CALCULATE DIESEL MPG BY APPLYING ADVANTAGE FACTOR.
EPA(R,2,J) = EPA(R,1,J> « ADVANT
CONTINUE
CONTINUE
END OF THE MPG COMP FOR CLASSES 1-5, JUMP TO 6-9 NEXT.
GOTO 1230
OPT#2 FOLLOWS.
CONTINUE
R = 31
DO 1130 I = BEGYR,ENDYR
R = R - 1
DO 1120 J = 1,5
SET MPG FOR GAS THEN FOR DSL.
EPA(R,1,J> = GASMPG(I,J)
EPA(R,1,J) = DSLMPCII.J)
CONTINUE
CONTINUE
END OF THE MPG COMP. FOR CLASSES 1-5, JUMP TO 6-9 NEXT.
GOTO 1230
OPT#3 FOLLOWS.
CONTINUE
I DUMP = 2
R = 31
DO 1130 I = GEGYR.ENDYR
R = R - 1
DO 1170 J = 1,5
CHECK TO ENSURE THAT THE MARKET SHARES FOR CONVENTIONAL TECHS
ARE REASONABLE. IF NOT. PRINT A MSG TO DESIGNATED MSG FILE.
IF ( ( l-(DASPCT(I , J)tALTPCT( I ,J) M.LT.O)
; Wl'l IP ) »R|MD< I),.J
UU J il'fO <-'».'
00125000
00126000
00127000
00128000
00129000
00130000
00131000
00132000
00133000
00134000
00135000
00136000
00137000
00138000
00139000
00 1 40000
00141000
00142000
00143000
00144000
00145000
00146000
00147000
00148000
00149000
00150000
00151000
00152000
00153000
00154000
00155000
00156000
00157000
00158000
00159000
00160000
00161000
00162000
00163000
00164000
00165000
00 1 66000
00167000
00168000
00169000
00 1 70000
00171000
00172000
00173000
00174000
00175000
00176000
00177000
00 1 78000
00179000
00 1 80000
00181000
00 1 82000
00183000
00134000
00 1 35000
00136000
00137000
00 1 83000
00 1 3'yOOO
-------
190.
191.
192.
193.
194.
195.
196.
197.
193.
199.
200.
201.
202.
203.
204.
205.
206.
207.
208.
209.
210.
211.
212.
213.
214.
215.
216.
217.
218.
219.
220.
221.
222.
223.
224.
225.
226.
227.
223.
229.
230.
231.
232.
233.
234.
235.
236.
237.
233.
239.
240.
241.
242.
243.
244.
245.
246.
247.
243.
249.
250.
251 .
252.
253.
254 .
1150 FORMAT ( 1 X, 'EftHuK: CONV GttS HfcNIK < U IN ',11,' IN Vt.H tLttSB ',11)
IF <(1-(BASPCT(I,J>+ALTPCT .GE.O. AND. ( 1 - (BASPCTI I , J> +
SALTPCT(I,J)>).LT.<0.001»
&HRITE(50,1160)YRIND,J
1160 FORMAT (IX, 'WARNING: CONV GAS PENTR = 0 IN ',14,' IN VEH CLASS ',
£11 )
C
C A HARMONIC AVG MILL BE COMPUTED NEXT FOR GAS.
C
EPA(R,1,J) = 1.0/<(MANPCT(I,J>M1-(BASPCT
& * ( (1-MANPCT(I,J))*(1-(BASPCT(I,J)+ALTPCT(I ,J»)
& /AUTMPGU.JM
8 * (BASPCT(I,J)/BASMPG(I,J))
fe + /ALTMPGU,J»>
1170 CONTINUE
1180 CONTINUE
C
C A HARMONIC AVG MILL BE COMPUTED NEXT FOR DIESEL.
C
R = 31
DO 1220 I = BEGYR.ENDYR
R = R - 1
DO 1210 J = 1,5
C
C CHECK TO ENSURE THAT THE MARKET SHARES FOR CONVENTIONAL TECHS
C ARE REASONABLE . IF NOT, PRINT A MSC TO DESIGNATED MSG FILE.
C
IF (U^DFWPCTU.JKDALPCTU.jm.LT.O)
?.HRITE(50,1190)YRIND(I>,J
1190 FORMAT (IX, 'ERROR: CONV DIESEL PENTR < 0 IN ',14,' IN VEH CLASS ',
»I1>
IF ((1-(DFMPCT(I,J)+DALPCT( I, J) ) ) .CE.O. AND. ( 1-(DFHPCT( I , J>+
8DALPCT, J
1200 FORMAT! IX, 'WARNING: CONV DIESEL PENTR = 0 IN ',14, ' IN VEH CLAS
&S ',11)
EPA(R,2,J) = 1.0/M +DALPCT
C
1240 CONTINUE
1250 CONTINUE
1260 CONTINUE
C
C COMPUTE ONROAD FUEL ECONOMY NEXT.
C FIRST, DETERMINE WHICH OF THREE OPTIONS HAS BEEN CHOSEN.
C: WHERE: OPT01 = TECH SPECIFIC BASED ON COEF HELD IN ARRAY,
r OPI/I;-; - n*rp mTinrn corF RFAP AT RHMTJMF. .
OU1VUUOO
00191000
00192000
00193000
00194000
00195000
00196000
00197000
00193000
00199000
00200000
00201000
00202000
00203000
00204000
00205000
00206000
00207000
00208000
00209000
00210000
00211000
00212000
00213000
00214000
00215000
00216000
00217000
00218000
00219000
00220000
00221000
00222000
00223000
00224000
00225000
00226000
00227000
00223000
00229000
00230000
00231000
00232000
00233000
00234000
00235000
00236000
00237000
00238000
00239000
00240000
00241000
00242000
00243000
00244000
00245000
00246000
00247000
00248000
00249000
00250000
00251000
00252000
00253000
00254000
i~MY,TTify''!'00
-------
256.
257.
258.
259.
260.
261.
262.
263.
264.
265.
266.
267.
268.
269.
270.
271.
272.
273.
274.
275.
276.
277.
278.
279.
230.
231.
232.
283.
284.
285.
286.
287.
288.
239.
290.
291.
292.
293.
294.
295.
296.
297.
293.
299.
300.
301.
302.
303.
304.
305.
306.
307.
303.
309.
310.
31 1 .
312.
313.
314.
315.
316.
317.
318.
319.
320 .
..•:/ 1 .
C UPI#J = NU UlbUUUNI 1NU Uh bKH nKU.
C
GO TO (1270,1320,1330), RODOPT
C
C OPT#1 FOLLOWS.
C
1270 CONTINUE
R = 31
DO 1290 I = BEGYR.ENDYR
R = R - 1
C
C CREATE ONROAD HPG FOR GAS. NOTE 1975 SF COEFS ARE USED
C FOR ALL YEARS PRIOR TO 1975 AND 1985 VALUES ARE USED FOR ALL
C YEARS BEYOND 1985. THUS, YEARS ARE CONTROLLED BY VARIABLE 'L'.
C
IF (I.GE.30.AND.I.LE.40) L = (1-30) + 1
IF (I.LT.30) L = 1
IF (I.GT.40) L = 11
DO 1280 K = 1,5
C
C GAS SF MPC'S BY TECHNOLOGY ARE COMPUTED BASED ON COEFFICIENTS.
C
SFA1 = COEFA1(L,1,K)/AUTMPC
SFA3 = COEFA3(L,1,K)/BASMPGU,K>
SFA4 = COEFA4(L,1,K)/ALTMPG(I,K>
C
SFA = ( ( 1 -MANPCT ( I , K ) ) * ( 1 - ( BASPCT ( I , K ) +ALTPCT < I . K » > *SFA1 )
«, + (MANPCTS>»SFA2>
& +
8. +
C
SFB = « 1 -MANPCT ( I , K ) ) * ( 1 - ( BASPCT < I , K ) +ALTPCT ( I , K » ) *COEFB1 ( L , 1 ,
8 + (MANPCT(I,K)»(1-(BASPCT(I,K)*ALTPCT(I,K)»*COEFB2(L, 1,K»
& + (BASPCTU,K)*COEFB3
C
C TECH SPECIFIC EPA MPG IS REQUIRED TO COMPLETE COMPUTATION
C
IF (MPCOPT.EQ.3) GOTO 1271
EPAFLT = 1.0/«MANPCT+ALTPCTU,K)»
& /AUTMPC(I,K»
fc + (BA3PCT(I,K)/BASMPG(I,K»
& + (ALTPCT(I,K)/ALTMPG(I,K))>
GOTO 1272
1271 CONTINUE
EPAFLT = EPA(R,1,K>
1272 CONTINUE
C
SFA = SFA*EPAFLT
RMPG> 00288000
00289000
00290000
00291000
00292000
00293000
00294000
00295000
00296000
00297000
00293000
00299000
00300000
00301000
00302000
00303000
00304000
00305000
00306000
00307000
00303000
00309000
00310000
00311000
00312000
00313000
00314000
00315000
003 1 6000
00317000
00313000
00319000
00320000
0032 1000
-------
322.
323.
324.
325.
326.
327.
328.
329.
330.
331.
332.
333.
334.
335.
336.
337.
338.
33?.
340.
341.
342.
343.
344.
345.
346.
347.
343.
349.
350.
351.
352.
353.
354.
355.
356.
357.
358.
359.
360.
361.
362.
363.
364.
365.
366.
367.
368.
369.
370.
371.
372.
373.
374.
375.
376.
377.
373.
379.
330.
331.
382.
383.
384.
335.
: DSL SF MPG'S BY TECHNOLOGY ARE COMPUTED BASED ON COEFFICIENTS.
SFfll = COEFftl(L,2,K)/DRWMPG(I,K>
SFA2 = COEFA2(L,2,K)/DFWMPG(I,K>
SFA3 = COEFA3/DALMPG
SFA = <(1-(DFMPCT
fe + (DALPCT(I,K)»SFA3)
SFB = ((1-(DFWPCT(IIK)*DALPCT(I,K)))*COEFB1(L,2IK))
& * /DRWMPG(I,K»
& + (DFWPCTU,K)/DFWMPG = EPA
1300 CONTINUE
1310 CONTINUE
ONROAD MPG COMPLETE FOR CLASS 1-5, GOTO CALC FOR 6-9
GOTO 1370
OPTKI2 FOLLOWS.
1320 CONTINUE
R = 31
DO 1328 I = BEGYR, ENDYR
R = R - 1
DO 1326 J = 1, 2
DO 1324 K = 1,5
SFA = USERCF(1,I,J,K>
SFB = USERCF(2,I,J,K)
IF(GPM.EQ.O) RMPG(R,J,K) = SFA + SFB*EPA(R,J,K>
IF(CPM.EQ.l) RMPG = EPA/
-------
333.
339.
390.
391.
392 .
393.
394.
395.
396.
397.
398.
399.
400.
401.
402.
403.
404.
405.
406.
407.
408.
409.
410.
411.
412.
413.
414.
415.
416.
417.
418.
419.
420.
421.
422.
423.
424.
425.
426.
427.
428.
429.
430.
431.
432.
433.
434.
435.
436.
437.
433.
439.
440.
441.
442.
443.
444.
445.
446.
447.
443.
449.
450.
451.
452.
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
R = R - 1
DO 1350 J = 1,2
DO 1340 K = 1,9
RMPG(R,J,K) = EPA(R,J,K)
1340 CONTINUE
1350 CONTINUE
1360 CONTINUE
ONROAD MPG COMPLETE FOR CLASS 1-5, GOTO CALC FOR 6-9
CALC OF ONROAD MPG FOR CLASS 6-9 FOLLOWS
1370 CONTINUE
R = 31
DO 1400 I = BECrR.ENDYR
R = R - 1
DO 1390 J = 1,2
DO 1380 K = 6,9
RMPG(R,J,K) = EPA(R,J,K)
1380 CONTINUE
1390 CONTINUE
1400 CONTINUE
OPTIONAL BASE YEAR CALIBRATION STEP FOLLOWS..
IF <-NOT.CALIB) GO TO 1405
CALL CALIBR
MARGINAL SURVIVAL CALCULATIONS FOLLOW.
SET YEAR ONE TO 1.0 FIRST FOR ALL CLASSES.
1405 DO 1410 K = 1,9
MSURV(1,1,K> = 1.0
MSURV(1,2,K> = 1.0
1410 CONTINUE
LOOP THRU REMAINING 29 YEARS FOR ALL CLASSES.
R = 31
LSTYR = ENDYR - 1
DO 1440 I = BEGYR,LSTYR
R = R - 1
DO 1420 IK = 1,3
AGGREGATE INDIVIDUAL CLASSES INTO LDV, LDT, MHD
IF(IK.
IFUK.
IF(IK.
IFUK.
IFUK.
IFUK.
VEHL =
VEHP =
SALEL
SALEP
EO.
EQ.
EO.
EQ.
EQ.
EQ.
0.
0.
= 0
= 0
1)
1)
2>
2)
3>
3)
0
0
.0
.0
KF
KL
KF
KL
KF
KL
= 1
= 2
= 3
= 6
= 7
= 9
DO 1416 K = KF, KL
SALEL = SALEL + SALES(I+1,K>
SALEP = SALEP + SALES(I,K)
DO 1414 J = 1, 2
'-'Kill = '-.'Fill, f W-H(R-1 ...I.K)
uujtiy0t.it.>
00339000
00390000
00391000
00392000
00393000
00394000
00395000
00396000
00397000
00393000
00399000
00400000
00401000
00402000
00403000
00404000
00405000
00406000
00407000
0040SOOO
00409000
00410000
00411000
00412000
00413000
00414000
00415000
00416000
00417000
00418000
00419000
00420000
00421000
00422000
00423000
00424000
00425000
00426000
00427000
00423000
00429000
00430000
00431000
00432000
00433000
00434000
00435000
00436000
00437000
00433000
00439000
00440000
00441000
00442000
00443000
00444000
00445000
00446000
00447000
00443000
00449000
00450000
00451000
00452000
-------
tit.
455.
456.
457.
453.
459.
460.
461.
462.
463.
464.
465.
466.
467.
463.
46?.
470.
471.
472.
473.
474.
475.
476.
477.
478.
479.
480.
431.
482.
1414
1416
C
C
C
C
C
C
C
C
1417
1418
1419
C
C
1420
1440
VtHK = VtHK +• VtHIK,J,IM
CONTINUE
CONTINUE
SURV REMAINS AT ZERO UNLESS ONE OF THE FOLLOWING CONDITIONS
IS MET.
SURV = 0.0
IFISALEL.LT. 0.0001) CO TO 1417
TERM1 = VEHL/SALEL
IFISALEP.LT. 0.0001) CO TO 1417
TERM2 = VEHP/SALEP
IF1TERM1.LT. 0.0001) GO TO 1417
SURV = TERM2/TERM1
RESTORE MARGINAL SURVIVAL RATE
DO 1419 K = KF, KL
DO 1418 J = 1, 2
MSURV(R,J,K> = SURV
CONTINUE
CONTINUE
CONTINUE
CONTINUE
RETURN
END
»_»(.'•!•-'t W V
00455000
00456000
00457000
00453000
00459000
00460000
00461000
00462000
00463000
00464000
00465000
00466000
00467000
00468000
00469000
00470000
00471000
00472000
00473000
00474000
00475000
00476000
00477000
00478000
00477000
00430000
00481000
00432000
-------
«RD1.HFC.FORTH:CALIBR - DEFAULT
FROM &RD1.HFC.FORTH:CALIBR ON CATALOG
CARD
1/316 316 LINES CURRENT=316
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
33.
39.
40.
41.
42.
43.
44.
45.
46.
47.
43.
49.
50.
51.
52.
53.
54.
55.
56.
-.1.- .
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
HIGHWAY FUEL CONSUMPTION MODEL: DECEMBER 1931
ENERGY AND ENVIRONMENTAL ANALYSIS, INC.
PROGRAMMER: ROBERT CRAWFORD
DOE CONTRACT: DE-AC01 -79PE-70032, TASK 13
SUBROUTINE CALIBR
REAL LDVTOT , LDTTOT , LDDSL , MHDTOT , MHDDSL , MHDSTK
REAL SALES(55,9),GASMPC(55,9),DSLMPC(55,9),DSLPEN(55f9),
8 LEDPEN(55,9),GASADJ(55,5),AUTMPC(55I5),MANPCT(55,5>,
8 MANMPG(55,5),BASPCT(55,5),BASMPG(55,5),ALTPCT(55,5>,
8 ALTMPG(55,5>,DSLADJ(55,5),DRWMPG(55,5),DFHPCT(55,5),
8 DFWMPG(55,5),DALPCT(55,5>,DALMPG<55,5),SCRLDV(30,2),
& SCRLDT(30,4),SCRMHD(30,2,3)IVMTLDV(30,2>,VMTLDT(30,4),
8 VMTMHD(30,2,3),COEFA1(11,2,5),COEFB1(11,2,5),
8 COEFA2<11,2,5),COEFB2(11,2,5),COEFA3(11,2,5),
8 • COEFB3(ll,2,5),COEFA4(llf2,5),COEFB4(ll,2,5),
8 VEH(30,2f9),LEADED(30,9),VMT(30l2,9>IEPA(30,2,9),
8 RMPG(30t2I9),MSURV(30I2,9),VMTGRO(26,9),ADVANT,
8 USERCF<2,55,2,5>
INTEGER I,J,K,L,R,UNIT,BECYR,ENDYR,VYR,FYR,LYR,
8 MPGOPT,RODOPT,YRIND(100),GPM
INTEGER BASEYR, STEP
LOG I CAL P I ND < 26 ) , SHORT , PAFR AC , CAL I B , GROW
LOGICAL LDV, LOT ,MHD, FIRST/. TRUE./
COMMON /CB01/ SALES, CASMPG,DSLMPG,DSLPEN,
8 LEDPEN,GASADJ,AUTMPG,MANPCT,
8 MANMPG,BASPCT,BASMPC,ALTPCT,
8 ALTMPG,DSLADJ,DRWMPC,DFWPCT,
8 DFWMPC,DALPCT,DALMPG,SCRLDV,
8 SCRLDT,SCRMHD,VMTLDV,VMTLDT,
8 VMTMHD,COEFA1,COEFB1,
8 COEFA2,COEFB2,COEFA3,
8 COEFB3,COEFA4,COEFB4
COMMON /CB02/ VEH, LEADED, VMT, EPA, RMPC.MSURV, VMTGRO
COMMON /CB03/ BEGYR,ENDYR, VYR.FYR, LYR,MPCOPT,RODOPT, YRIND, ADVANT
8 ,SHORT,PAFRAC,CALIB,CROW,PIND
COMMON /CB05/ USERCF.GPM
BASE YEAR CALIBRATION
IF (.NOT. FIRST) GO TO 500
FIRST = .FALSE.
(A) READ CALIBRATION DATA FILE
READ(l.lOO) BASE YR,PASTK,TRKSTK,PACAL, TRKCflL, DIESEL
1 00 FORMAT < 3 ( / ) , 1 OX , 1 1 0 , < / / > , 2 ( 20X , F 1 0 . 3 , / > , ( / ) , 3 ( 20X , F 1 0 . 3 , / »
»*»»«»»»«»**<»*»»**»»t*»»»»»»»*»»*»*»»*»«-»»»»«»t»*»**»»**»»«-»*««-»»»»»
(B) PASSENGER CAR FLEET SIZE
(B.I) CALCULATE TOTAL PA FLEET SIZE PREDICTED BY HFC
500 STEP = 0
rr,i n.r = rt\-z\v.
00001000
00002000
00003000
00004000
00005000
00006000
00007000
00008000
00009000
00010000
00011000
00012000
00013000
00014000
00015000
00016000
00017000
00018000
00019000
00020000
00021000
00022000
00023000
00024000
00025000
00026000
00027000
00023000
00029000
00030000
00031000
00032000
00033000
00034000
00035000
00036000
00037000
00033000
00039000
00040000
00041000
00042000
00043000
00044000
00045000
00046000
00047000
00048000
00049000
00050000
00051000
00052000
00053000
00054000
OOOt-5oOO
00056000
r>0057i'H>0
-------
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
36.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
107.
108.
109.
110.
111.
112.
113.
1 1 &
11**.
115.
116.
117.
118.
119.
120.
121.
122.
1 '/. 3 .
1000 TOTFLT = 0.0
C
DO 1030 R = 1, 25
DO 1020 J = 1, 2
DO 1010 K = 1, 2
IF(VEH DETERMINE TOTAL SCRAPPAGE AND SCALE FACTOR
C
R = 31
DTOT = 0.0
DOTOT = 0.0
DO 1130 I = BEGYR, ENDYR
R = R - 1
IF(R.GT.25) GO TO 1130
DO 1110 K - 1, 2
VSUM = VEH(R,1,K) + VEH(R,2,K)
DVEH - SALESU.K) - VSUM
DTOT = DTOT + DVEH
IF ( VSUM. GT. 0.0001) DOTOT = DOTOT + DVEH
1110 CONTINUE
1130 CONTINUE
C
IF(DELFLT.GE.O) ALPHA = 1 - DELFLT/DTOT
IFIDELFLT.LT. 0.0001) ALPHA = 1. - 1 .0010»DELFLT/DOTOT
C
C (B.4) ADJUST VEHICLES IN OPERATION AND RETURN FOR ITERATION
C
R = 31
DO 1230 I = BEGYR, ENDYR
R = R - 1
IFIR.GT.25) GO TO 1230
DO 1220 K = 1, 2
SCRCAL = ALPHA* ( SALESU.K) - < VEH(R, 1 ,K)*VEH(R,2,K» )
IFfSCRCAL.GT. SALESU.K)) SCRCAL = SALESU.K)
DSLPCT = DSLPENU.K)
VEH(R.l.K) = U.O-DSLPCT)»(SALESU,K) - SCRCAL)
VEH
-------
124.
125.
126.
127.
123.
129.
130.
131.
132.
133.
134.
135.
136.
137.
138.
139.
140.
141.
142.
143.
144.
145.
146.
147.
148.
149.
150. •
151.
152.
153.
154.
155.
156.
157.
158.
159.
160.
161.
162. ,
163.
164.
165.
166.
167.
169.
169.
170.
171.
172.
173.
174.
175.
176.
177.
173.
179.
180.
131.
132.
133.
184.
135.
136.
137.
133.
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
2010
2020
2030
2100
2110
2120
2130
2210
2230
2320
2330
DO 2030 R = 1, 30
DO 2020 J = 1, 2
DO 2010 K = 7, 9
MHDSTK = HHDSTK + VEH(R,J,K>
CONTINUE
CONTINUE
CONTINUE
CALFLT = CALFLT - MHDSTK
(C.I) CALCULATE TOTAL LOT FLEET SIZE PREDICTED BY HFC
TOTFLT = 0.0
DO 2130 R = I, 25
DO 2120 J = 1, 2
DO 2110 K = 3, 6
IF(VEH(R,J,K).LT.0.0001) VEH(R,J,K> = 0.0
TOTFLT = TOTFLT + VEH(R,J,K)
CONTINUE
CONTINUE
CONTINUE
(C.2) DETERMINE NEEDED CHANGE IN FLEET SIZE
DELFLT = CALFLT - TOTFLT
IF(ABS(DELFLT).LT.0.0001) CO TO 5000
(C.3) DETERMINE TOTAL SCRAPPAGE AND SCALE FACTOR
R = 31
DTOT = 0.0
DOTOT = 0.0
DO 2230 I = BEGYR, ENDYR
R = R - 1
IF(R.CT.25> GO TO 2230
DO 2210 K = 3, 6
VSUM = VEH )
IF - SCRCAL)
VEH(R,2,K> = DSLPCT*(SALESd,K> - SCRCAL)
CONTINUE
CONTINUE
•5TFF - ^TFP
OU124UOU
00125000
00126000
00127000
00123000
00129000
00130000
00131000
00132000
00133000
00134000
00135000
00136000
00137000
00138000
00139000
00140000
00141000
00142000
00143000
00144000
00145000
00146000
00147000
00143000
00149000
00150000
00151000
00152000
00153000
00154000
00155000
00156000
00157000
00153000
00159000
00160000
00161000
00162000
00163000
00164000
00165000
00166000
00167000
00168000
00169000
00170000
00171000
00172000
00173000
00174000
00175000
00176000
00177000
00173000
00179000
00130000
00181000
00132000
00183000
00134000
00135000
00136000
00137000
00188000
Of) 1 fl'T'l'H'M'j
-------
ivu.
191.
192.
193.
191.
195.
196.
197.
193.
199.
200.
201.
202.
203.
204.
205.
206.
207.
203.
209.
210.
211.
212.
213.
214.
215.
216.
217.
218.
219.
220.
221.
222.
223.
224.
225.
226.
227.
223.
229.
230.
231.
232.
233.
234.
235.
236.
237 .
238.
239.
240.
241.
242. .
243.
244.
245.
246.
247.
243.
249.
250.
251 .
252.
253.
254.
IMSItf.LI . S) UU IU ilWO
C
C *»»»*»»**»»»#**»*»»****»»»»*»»»»»»»»»»»»******»**»****#»*»
C
C (D) CALIBRATE TO FUEL DEMAND TOTALS
C
C (D.I) TOTAL DIESEL DEMAND IS CALIBRATED BY ADJUSTING
C MHD TRUCK VMT CURVES
C
5000 MHD = .FALSE.
LOT = .FALSE.
LDV = .FALSE.
LDDSL =0.0
C
DO 5020 R = 1 , 30
DO 5010 K = 1, 6
1F(RMPG(R,2,K).LT.0.01) GO TO 5010
LDDSL = LDDSL + VMT(R,2,K)»VEH(R,2,K) /RMPG(R
5010 CONTINUE
5020 CONTINUE
C
CALDSL = DIESEL - LDDSL
MHDDSL =0.0
C
DO 5120 R = 1, 30
DO 5110 K = 7, 9
IF(RMPG(R,2,K).LT.0.01> GO TO 5110
MHDDSL = MHDDSL * VMT
5210 CONTINUE
5220 CONTINUE
5230 CONTINUE
C
C
C (D.2) TOTAL TRUCK FUEL DEMAND IS CALIBRATED BY
C ADJUSTING LDT VMT CURVES
C
6000 MHDTOT =0.0
C
DO 6020 R = 1, 30
DO 6010 K = 7, 9
DO 6005 J = 1 , 2
IF(RMPG(R,J,K).LT.0.01 ) GO TO 6005
MHDTOT = MHDTOT +• VMT(R, J,K) *VEH(R, J,K) /RMPG(R
6005 CONTINUE
6010 CONTINUE
6020 CONTINUE
C
CALTOT = TRKCAL - MHDTOT
LDTTOT = 0.0
C
DO fc 1 20 R = 1 , 30
,2,K)
,2,K>
,J,K)
»»*>*»»*»**
Wt VI.H.I01.I
00191000
00192000
00193000
00194000
00195000
00196000
00197000
00198000
00199000
00200000
00201000
00202000
00203000
00204000
00205000
00206000
00207000
00208000
00209000
00210000
00211000
00212000
00213000
00214000
00215000
00216000
00217000
00218000
00219000
00220000
00221000
00222000
00223000
00224000
00225000
00226000
00227000
00228000
00229000
00230000
00231000
00232000
00233000
00234000
00235000
00236000
00237000
00233000
00239000
00240000
00241000
00242000
00243000
00244000
00245000
00246000
00247000
00243000
00249000
00250000
00251000
00252000
00253000
00254000
-------
256.
257.
253.
259.
260.
261.
262.
263.
264.
265.
266.
267.
268.
269.
270.
271.
272.
273.
274.
275.
276.
277.
273.
279.
280.
281.
232.
283.
284.
285.
286.
287.
288.
239.
290.
291.
292.
293.
294.
295.
296.
297.
298.
299.
300.
301.
302.
303.
304.
305.
306.
307.
303.
309.
310.
311.
312.
313.
314.
315.
316.
6105
6110
6120
C
C
6200
C
6210
6220
6230
C
C
C
C
7000
C
7105
7110
7120
C
C
7200
C
7210
7220
7230
C
C
8000
C
C
C
9000
DO 6105 J = 1 , 2
IF(RMPG(R,J,K).LT.0.01) GO TO 6105
LDTTOT = LDTTOT + VMTIR, J,K)»VEH
CONTINUE
CONTINUE
CONTINUE
(D.3) LDV FUEL DEMAND IS CALIBRATED INDEPENDENTLY
FROM TRUCK CLASSES
CALTOT = PACAL
LDVTOT = 0.0
DO 7120 R = 1, 30
DO 7110 K = 1, 2
DO 7105 J = 1, 2
IF(RMPC(R,J,K).LT.0.01) GO TO 7105
LDVTOT = LDVTOT «• VMT(R, J,K)*VEH
CONTINUE
CONTINUE
CONTINUE
ALPHA = CALTOT/LDVTOT
IF( ABS(ALPHA-1.0).GT. 0.0001) CO TO 7200
LDV = .TRUE.
CO TO 8000
CONTINUE
DO 7230 R = 1 , 30
DO 7220 J = 1, 2
DO 7210 K = 1, 2
VMT(R,J,K> = ALPHA»VMT(R,J,K)
CONTINUE
CONTINUE
CONTINUE
STEP = STEP + 1
IF(MHD.AND.LDT.AND.LDV) GO TO 9000
IFISTEP.LT.5) GO TO 5000
RETURN
END
00257000
00258000
00259000
00260000
00261000
00262000
00263000
00264000
00265000
00266000
00267000
00268000
00269000
00270000
00271000
00272000
00273000
00274000
00275000
00276000
00277000
00278000
00279000
00230000
00231000
00282000
00283000
00234000
00285000
00286000
00237000
00283000
00289000
00290000
00291000
00292000
00293000
00294000
00295000
00296000
00297000
00298000
00299000
00300000
00301000
00302000
00303000
00304000
00305000
00306000
00307000
00303000
00309000
00310000
00311000
00312000
00313000
00314000
00315000
00316000
-------
aRDl.HFC.FORTH:OUTPUT - DEFAULT
FROM &RD1.HFC.FORTH:OUTPUT ON CATALOG
CARD
1/319 319 LINES CURRENT=319
1.
2.
3.
4.
5.
6.
7.
3.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
43.
49.
50.
51.
52.
53.
54.
55.
56.
57.
C
C HIGHWAY FUEL CONSUMPTION MODEL: DECEMBER 1931
C ENERGY AND ENVIRONMENTAL ANALYSIS, INC.
C PROGRAMMER: MIKE MOCHAN
C DOE CONTRACT: DE-AC01 -79PE-7003Z, TASK 13
C
SUBROUTINE OUTPUT
REAL SALES(55,9),GASMPG(55,9),DSLMPC<55,9)IDSLPEN(55,9)f
8 LEDPEN(55,9),GASADJ(55,5),AUTMPG(55,5)IMANPCT(55,5),
& MANMPC<55,5>,BASPCT<55,5),BASMPG<55,5>,ALTPCT<55,5>,
8 ALTMPG(55,5>,DSLADJ(55,5),DRMMPG(55,5),DFMPCT(55r5),
& DFWMPC<55,5>,DALPCT<55,5),DALMPG<55,5),SCRLDV<30,2>,
8. SCRLDT<30,4>,SCRMHD(30,2,3>,VMTLDV(30,2>,VMTLDT<30,4>,
«, VMTMHD(30,2,3),COEFA1(11,2,5>,COEFB1(11,2,5>,
& COEFA2(11,2,5),COEFB2(11,2,5),COEFA3(11I2,5),
& COEFB3I 11,2, 5), COEFA4U 1,2, 5),COEFB4( 11,2,5),
& VEH<30, 2,9), LEADED( 30,9), VMT<30,2,9),EPA< 30,2,9),
» RMPGt30,2,9>,M3URV(30,2,9),VMTGRO(26,9),ADVANT,
» USERCF(2,55,2,5)
INTEGER I , J,K,L,R,UNIT,BEGYR,ENDYR,VYR,FYR,LYR,
& MPGOPT,RODOPT,YRIND(100),GPM
LOGICAL PINDI26), SHORT, PAFRAC.CALIB.CROM .
COMMON /CB01/ SALES, GASMPG,DSLMPG,DSLPEN,
& LEDPEN,CASADJ,AUTMPC,MANPCT,
& MANMPC,BASPCT,BASMPG,ALTPCT,
& ALTMPC,DSLADJ,DRWMPG,DFWPCT,
S DFHMPC,DALPCT,DALMPG,SCRLDV,
& SCRLDT,SCRMHD,VMTLDV,VMTLDT,
& VMTMHD , COEFA1 , COEFB 1 ,
& COEFA2,COEFB2,COEFA3,
& COEFB3.COEFA4.COEFB4
COMMON /CB02/ VEH.LEADED, VMT,EPA,RMPC,MSURV,VMTGRO
COMMON /CB03/ BEGYR,ENDYR, VYR,FYR,LYR,MPGOPT,RODOPT, YRIND, ADVANT
8 ,SHORT,PAFRAC,CAL1B,CROM,PIND
COMMON /CB04/ HD1 (4,9) ,HD2(4,5)
COMMON /CB05/ USERCF.GPM
REAL NSBVMT(5),SUBVMT(5),NEMEFD(9),FLTEFD(9),NEMRFD(9),
8 FLTRFD(2,9),LEDRFD(9),UNLRFD(9),CDRFD(9),HSBRFD(9>,
& BBLDAY (9) ,SUBRFD(5,5) ,NSBEFD<5) ,SUBEFD(5) ,NEWEPG(9) ,
8 NEMRPG(9),FLTEPG(9),FLTRPC(9),NSBEPG(5),NSBRPC(5),
8 SUBEPG(5),SUBRPG(5),NEWREG<2,9),FLTREG(2,9) ,
& NSBREG(2,5),SUBREC(2,5) ,NEWVMT<9) ,FLTVMT(9)
C
C INITIALIZE VARIABLES
C
DO 600 I = 1,5
NSBVMT(I) = 0.0
SUBVMT(I) = 0.0
600 CONTINUE
DO 700 I = 1,9
NEWVMT (I =0.0
FLTVMTd = 0.0
NEWEFDU = 0.0
NEHRFtKI = 0.0
LEDRFDd = 0.0
FLTEFDd = 0.0
700 CONTINUE
00001000
00002000
00003000
00004000
00005000
00006000
00007000
00003000
00009000
00010000
00011000
00012000
00013000
00014000
00015000
00016000
00017000
00018000
00019000
00020000
00021000
00022000
00023000
00024000
00025000
00026000
00027000
00023000
00029000
00030000
00031000
00032000
00033000
00034000
00035000
00036000
00037000
00033000
00039000
00040000
0004 1 000
00042000
00043000
00044000
00045000
00046000
00047000
00048000
00049000
00050000
00051000
00052000
00053000
00054000
00055000
00056000
00057000
-------
ba.
59.
60.
61.
62.
63.
64.
65.
66.
67.
63.
6'?.
70.
71.
72.
73.
74.
75.
76.
77.
73.
79.
80.
81.
82.
83.
84.
85.
86.
87.
83.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
107.
108.
109.
110.
111.
112.
113.
114.
115.
116.
117.
113.
119.
120.
121 .
122.
i /. '• .
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
uu vuu i = i, -i.
DO 800 J = 1,9
NEWREG(I.J) = 0.0
FLTRECU.J) = 0.0
FLTRFDU.J) = 0.0
800 CONTINUE
900 CONTINUE
FIRST DETERMINE PROPER VMT GHD1TH RATE
CALCULATE VMT FOR ALL CLASSES WITHIN THE FLEET
DO 1020 I = 1,30
DO 1010 J = 1,2
DO 1000 K = 1,9
CALCULATE NEW REGISTRATION VMT FIRST
IF (I.EQ.l)
&NEWVMTIK) = NEWVMT(K) + VEH(1,J,K) * VMT(1,J,K>
FLTVMT(K) = FLTVMT(K) + VEHU,J,K> * VMT(I,J,K)
1000 CONTINUE
1010 CONTINUE
1020 CONTINUE
CALCULATIONS FOR VMT SUBTOTALS & TOTAL FOLLOWS
NSBVMT(l) = NEWVMT(l) + NEHVMT<2>
NSBVMT(Z) = NEWVMTO) * NEWVMT(4) + NEWVMTI5)
NSBVMTO) = NSBVMT(l) * NSBVMT(2)
NSBVMT(4) = NEWVMT(7) * NEWVMT(8> + NEUVMT49)
NSBVMT(S) = NEWVMT(6) + MSBVMT(3) + NSBVMTI4)
SUBVMT<1) = FLTVMT(l) + FLTVMT(2>
SUBVMTI2) = FLTVMTO) + FLTVMT(4) + FLTVMTI5)
SUBVMTI3) = SUBVMT(l) + SUBVMT<2)
SUBVMT<4) = FLTVMT(7) * FLTVMT(S) + FLTVMTI9)
SUBVMT(5> = FLTVHT(6) + SUBVMTO) + SUBVMTI4)
FLEET WIDE FUEL DEMAND CALCULATIONS FOLLOW
DO 1050 I = 1,30
DO 1040 J = 1,2
DO 1030 K = 1,9
CALCULATE NEW REGISTRATION FUEL DEMAND FIRST
IF (I.EQ.l) NEWEFD(K) - NEWEFD(K) +
& (VEH(1,J,K)*VMT(1,J,K»/EPA<1,J,K)
IF (I.EQ.l) NEWRFD(K) = NEWRFD(K) +
?, (VEH(1,J,K)*VMT(1 ,J,K) )/RMPG( 1, J,K>
FLTEFD(K) = FLTEFD(K) + (VEH(I,J,K)*VMT(I,J,K))
« /EPA(I,J,K)
FLTRFD(J,K) = FLTRFD(J.K) + (VEH(I,J,K)*VMT(I,J,K»
a /RMPG(I,J,K)
LEADED FUEL DEMAND IS BROKEN OUT NEXT FOR GASOLINE
IF (J.EQ.l) LEDRFD(K) = LEDRFD(K) * (LEADED)I,K) *
& (VEHI I,J,K)»VMT(I,J,K»/RMPG(I,JtK»
1030 CONTINUE
1040 CONTINUE
1050 CONTINUE
CALCULATE UNLEADED FUEL DEMAND & TOTAL DEMAND IN BBI./DAY
W I.' w« O (.'».'I.'
00059000
00060000
00061000
00062000
00063000
00064000
00065000
00066000
00067000
00068000
00069000
00070000
00071000
00072000
00073000
00074000
00075000
00076000
00077000
00073000
00079000
00080000
00081000
00082000
00083000
00084000
00035000
00086000
00037000
00088000
00089000
00090000
00091000
00092000
00093000
00094000
00095000
00096000
00097000
00098000
00099000
00100000
00101000
00102000
00103000
00104000
00105000
00106000
00107000
00103000
00109000
00110000
00111000
00112000
00113000
00114000
00115000
00116000
00117000
00113000
00119000
00120000
00121000
00122000
001 T'"?0''tO
-------
124.
125.
126.
127.
128.
129.
130.
131.
132.
133.
134.
135.
136.
137.
138.
139.
140.
141.
142.
143.
144.
145.
146.
147.
143.
149.
150.
151.
152.
153.
154.
155.
156.
157.
158.
159.
160.
161.
162.
163.
164.
165.
166.
167.
168.
169.
170.
171.
172.
173.
174.
175.
176.
177.
173.
179.
180.
181.
182.
183.
184.
135.
186.
187.
1 3* .
1 S'V .
1060
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
DO 1060 K = 1,V
UNLRFD(K) = FLTRFDd.K) - LEDRFD(K)
CDRFD(K) = FLTRFDd.K) + FLTRFO<2,K)
BBLDAY(K) = GDRFB(K) » 0.06523
CONTINUE
CALCULATE ONROAD FUEL DEMAND SUBTOTALS NEXT
NEW REGISTRATION ONROAD FUEL DEMAND FOLLOWS
NSBRFDd) = NEURFD(l) + NEURFD(2)
N3BRFDI2) = NEWRFDO) + NEWRFDI4) + NEURFD(S)
NSBRFDO) = NSBRFDd) + NSBRFD(2)
NSBRFDI4) = NEMRFD(7) + NEWRFDO) + NEWRFD(9)
NSBRFD(5> = NEWRFD<6) + NSBRFDO) + NSBRFDO)
FLEET WIDE SUBTOTALS FRO ONROAD FUEL DEMAND FOLLOW
SUBRFDd.l) = FLTRFD(2,1) + FLTRFD(2,2)
SUBRFD(1,2) = FLTRFDI2.3) + FLTRFD(2,4) + FLTRFD(2,
SUBRFD(1,3) = SUBRFDd.l) +• SUBRFDd,2)
SUBRFDd,4> = FLTRFD(2,7) + FLTRFD(2,8) + FLTRFD(2,
SUBRFDd,5) = FLTRFD(2,6) * SUBRFD(1,3) + SUBRFDd,
SUBRFD(2,1) = LEDRFDd) + LEDRFDI2)
SUBRFD(2,2) = LEDRFDO) + LEDRFDU) + LEDRFD(5>
SLIBRFD(2,3) * SUBRFD(2,1) +• SUBRFD(2,2)
SUBRFD(2,4) = LEDRFD(7) * LEDRFDO) + LEDRFD(9)
SUBRFD(2,5) = LEDRFD(6) 4- SUBRFD(2,3) + SUBRFD(2,4)
SUBRFD(3,1) = UNLRFDd) * UNLRFD(Z)
SUBRFD<3,2) = UNLRFDO) + UNLRFDJ4) + UNLRFD(5)
SUBRFD(3,3) = SUBRFD(3,1) + SUBRFD(3,2)
SUBRFD(3,4) = UNLRFD<7) * UNLRFD(8> + UNLRFDI9)
SUBRFD(3,5> = UNLRFD(6> * SUBRFD(3,3> t SUBRFD(3,4)
SUBRFD(4,1) = GDRFDd) + GDRFD(2>
SUBRFD(4,2) = CDRFDI3) + GDRFD(4) + GDRFDI5)
SUBRFD(4,3) = SUBRFD(4,1) + SUBRFD<4,2>
SUBRFD(4,4) = GDRFD(7) * GDRFDI8) + GDRFDI9)
SUBRFD(4,5) = GDRFDI6) * SUBRFD(4,3) + SUBRFD(4,4)
SUBRFD(5,1> = BBLDAYd) + BBLDAYI2)
SUBRFD(5,2> - BBLDAYI3) + BBLDAY<4) + BBLDAY(S)
SUBRFD<5,3) = SUBRFD(5,1) + SUBRFD(5,2)
SUBRFD(5,4) = BBLDAYI7) * BBLDAY(S) + BBLDAY(9)
SUBRFD(5,5) = BBLDAY(6) + SUBRFD(5,3) * SUBRFD(5,4)
CALCULATE EPA FUEL DEMAND SUBTOTALS NEXT
NEW REGISTRATIONS EPA FUEL DEMAND IS DONE FIRST
NSBEFDd) = NEWEFDd) + NEWEFD(2)
NSBEFD(2) = NEWEFDO) + NEWEFD(4> + NEUEFDI5)
NSBEFDI3) = NSBEFDd) * NSBEFDI2)
NSBEFD(4) = NEWEFD(7) + NEWEFDO) + NEWEFD(9)
NSBEFDI5) = NEWEFD(6) * NSBEFDO) * NSBEFDI4)
FLEET WIDE EPA SUBTOTALS FOLLOW NEXT
NOTE GAS & DSL ARE LUMPED TOGETHER.
SUBEFDd) = FLTEFDd) + FLTEFIK2)
SUBEFD(2) = FLTEFDI3) + FLTEFD(4) * FLTEFD(5)
SUBEFDO) = SUBEFDd) + 3UBEFD(2)
SUBEFD(4) = FLTEFD(7) + FLTEFDO) + FLTEFDI9)
SUBEFD(5) = FLTEFEK6) * SUBEFDO) <- SUBEFDI4)
CALCULATE EPA & ONROAD MPG FOR ALL CLASSES
no 10 7 0 K = i .•?
5)
9)
4)
00125000
00126000
00127000
00123000
00129000
00130000
00131000
00132000
00133000
00134000
00135000
00136000
00137000
00138000
00139000
00140000
00141000
00142000
00143000
00144000
00145000
00146000
00147000
00148000
00149000
00150000
00151000
00152000
00153000
00154000
00155000
00156000
00157000
00158000
00159000
00160000
00161000
00162000
00163000
00164000
00165000
00166000
00167000
00163000
00169000
00170000
00171000
00172000
00173000
00174000
00175000
00176000
00177000
00173000
00179000
00130000
00181000
00132000
00183000
00184000
00185000
00186000
00137000
00183000
001 xvOiX*
-------
190.
191.
192.
193.
194.
195.
196.
197.
198.
199.
200.
201.
202.
203.
204.
205.
206.
207.
208.
209.
210.
211.
212.
213.
214.
215.
216.
217.
218.
219.
220.
221.
222.
223.
224.
225.
226.
227.
223.
229.
230.
231.
232.
233.
234.
235.
236.
237.
233.
239.
240.
241.
242.
243.
244.
245.
246.
247.
243.
249.
250.
251.
252.
253.
254.
; ' •* • .
NEWEPG(K) = NEWVMT(K)/NEWEFLKK)
NEWRPG(K) = NEWVMT(K)/NEWRFD(K>
FLTEPG(K) = FLTVMT(K)/FLTEI/D(K)
FLTRPG(K) - FLTVMT (K)/CDRFS(K)
1070 CONTINUE
c O
C COMPUTE THE SUBTOTALS FOR EPA S, ONROAD MPG
C
NSBEPG(l) = (NEMVMT(1)+NEWVMT(2))/(NEMEFD(1)+NEWEFD(2> )
NSBRPG(l) = +NEMEFD<5)>
NSBRPG(2) - (NEMVMT(3)+NEUVMT<4>+NEWVMT(5»
& / (NEWRFD(3>+NEURFD(4)+NEURFD(5»
NSBEPCO) = (NEHVMT(1>+NEWVMT(2)+NEWVMT<3>+NEWVMT(4)+NEWVMT<5>>
& / (NEUEFD(1)+NEUEFD(2>+NEUEFD(3)+NEUEFD(4>+NEUEFD<5»
NSBRPG ( 3 ) = ( NEWVMT ( 1 ) +NEMVMT ( 2 > +NEMVMT ( 3 ) +NEMVMT ( 4 ) +NEWVMT ( 5 »
& / +NEURFD<2>+NEURFD<3>+NEURFD(4>+NEURFD(5»
NSBEPGI4) = (NEMVMT(7)+NEWVMT(8)+NEWVMT(9)>
& / (NEMEFD(7>+NEUEFD<8)+NEWEFB(9»
NSBRPG(4) - (NEWVMT (7>+NEWVMT(8)*NEWVMT<9»
fc / (NEURFD(7)+NEURFD(3>+NEURFD(9»
NSBEPG ( 5 > = ( NEHVMT ( 1 ) +NEU VMT < 2 ) +NEUVMT ( 3 ) +NEWVMT ( 4 ) +NEHVMT < 5 > +
& NEMVMT ( 6 ) +NEWVMT ( 7 > +NEWVMT ( 3 ) +NEWVMT ( 9 ) )
& / (NEMEFD(1>+NEUEFD(2>+NEMEFD(3>+NEMEFB(4>+NEUEFD(5>+
a NEWEFD(6)+NEUEFD(7>+NEUEFD(3>tNEUEFD<9»
NSBRPGI5) = (NEMVMT(1>+NEUVMT(2>+NEUVMT(3>+NEUVMT<4>+NEUVMT(5>+
t NEHVMT ( 6 ) +NEUVMT < 7 ) +NEUVMT ( 8 ) +NEWVMT ( 9 »
& / (NEHRFDU>+NEURFD<2>+NEMRFD<3)+NEURFD(4>+NEHRFD<5>+
& NEURFD(6>+NEURFD(7)+NEURFD(8>+NEURFD(9»
C
C FLEET WIDE TOTALS ARE COMPUTED NEXT FOR EPA «. ONROAD MPC
C
SUBEPG(l) = +FLTVMT(2»/(CDRFD(1)+GDRFD(2)>
SUBEPG(2) = (FLTVMT(3)+FLTVMT(4)*FLTVMT<5))
8 / (FLTEFD(3)*FLTEFD(4)+FLTEFD<5»
3UBRPG(2) = ( FLTVMT (3)+FLTVMT( 4 )+FLTVMT(5)>
& / +GDRFD<5»
SUBEPGI3) = +GDRFD(3>+GDRFD<4>+GDRFD(5>)
SUBEPG<4) = (FLTVMT(7)*FLTVMT(8)+FLTVMT(9)>
& / (FLTEFD(7)+FLTEFD(8)+FLTEFD(9»
SUBRPGI4) = +CDRFD(3)*GBRFD(9)>
SUBEPG(5> = (FLTVMT(l)+FLTVMT(2)+FLTVMT(3)+FLTVMT(4)+FLTVMT(5)t
& FLTVMT(6)+FLTVMT(7)+FLTVMT(8)+FLTVMT(9) >
?, / (FLTEFD(1)+FLTEFD(2>*FLTEFD(3)+FLTEFD(4>+FLTEFD(5) +
8, FLTEFB(6)tFLTEFD(7)+FLrEFD(3)+FLTEFD(9»
SUBRPG ( 5 > = ( FLTVMT ( 1 > +FLTVMT ( 2 > +FLTVMT ( 3 ) +FLTVMT ( 4 ) +FLTVMT ( 5 ) +
& FLTVMT(6)+FLTVMT(7)+FLTVMT(8)+FLTVMT(9)>
8 / (GDRFD(1)*GDRFD(2)*CDRFD(3)+GDRFD(4)+GDRFD(5)+
9, GDRFD(6>*GDRFD(7)+GDRFD(3>+GDRFD(9) )
C
C REGISTRATIONS FOR NEW VEHICLES AND THE FLEET ARE COMPUTED NEXT
C
DO 1100 I = 1 , 30
DO 1 090 J = 1 , 2
DO 1 030 K = 1 , 9
IF (I.EQ.l) NEWREG(J,K) = NEUREG(J,K) + VEH(1,J,K)
FLTREG(J,K) = FLTREG(J.K) + VEH(I,J,K)
1030 CONTINUE
1 090 CUNT I NUE
1 ji.io ruMI I Ml IK
wr/uoou
00191000
00192000
00193000
00194000
00195000
00196000
00197000
00193000
00199000
00200000
00201000
00202000
00203000
00204000
00205000
00206000
00207000
00208000
00209000
00210000
00211000
00212000
00213000
00214000
00215000
002 1 6000
00217000
00218000
00219000
00220000
00221000
00222000
00223000
00224000
00225000
00226000
00227000
00228000
00229000
00230000
00231000
00232000
00233000
00234000
00235000
00236000
00237000
00233000
00239000
00240000
00241000
00242000
00243000
00244000
00245000
00246000
00247000
00243000
00249000
00250000
00251000
00252000
00253000
00254000
On /S'", mi'}
-------
£b6.
257.
258.
251).
260.
261.
262.
263.
264.
265.
266.
267.
268.
26?.
270.
271.
272.
273.
274.
275.
276.
277.
278.
279.
280.
281.
282.
283.
284.
285.
286.
287.
283.
289.
290.
291.
292.
293.
294.
295.
296.
297.
298.
299.
300.
301.
302 .
303.
304.
305.
306.
307.
303.
309.
310.
311.
312.
313.
314.
315.
316.
317.
313.
3 1 9 .
C
C
C
C
C
C
C
C
C
CALCULATE TOTALS FOR NEW AND FLEET REGISTRATIONS
DO 1110 J = 1,2
NSBREGIJ, 1) = NEUREG(J,1) + NEWREG(J,2>
NSBREC(J,2) = NEHREG(J,3> + NEMREG(J,4)
NSBREGIJ, 3) = NSBREGIJ,!) + NSBREGIJ, 2)
NSBREC(J,4) = NEWREG(J,7> <• NEWREG(J,3)
NSBREG(J,5) = NEWREG(J,6)
SUBREG(J,1) = FLTREG(J.l)
SUBREG(J,2) = FLTREG(J,3)
SUBREG(J,3) = SUBREGIJ.l)
SUBREG
FLTREG(J,8> + FLTREG(J,9>
SUBREG(J,3) * SUBREG(J,4)
00257000
00253000
00259000
00260000
00261000
00262000
00263000
00264000
00265000
00266000
00267000
00268000
00269000
00270000
00271000
00272000
00273000
00274000
00275000
WRITE(8,1120)YRIND(ENDYR)
1120 FORMAT(2(/),60X,'» ',14,' *•,/,29X,'NEW,56X,'FLEET',/,
& 18X.23I•-•>,3X,84('-'>,/,18X,'EPA',4X,'ROAD •,3X,'REGISTRATIONS',00276000
8 4X,'EPA',4X,'ROAD',4X,'REGISTRATIONS',6X,'VMT'f5X,14('-•),'FUEL',00277000
8 ' CONSUMPTION',IOC-'),/,18X,'MPG',5X,'MPG',4X,'(IN MILLIONS)', 00278000
8 4X,'MPG',5X,'MPG',5X,'(IN MILLIONS)',IX,'(IN BULLIONS)',2X, 00279000
8 '(IN BILLIONS OF GALLONS)',3X,•IN MILLIONS',/,33X,13('-•), 00230000
8 14X.28C-'),40X,'OF',/,34X,'CAS',5X,'DSL',22X,'GAS',5X,'DSL',15X,00281000
8 'DSL',5X,'LEAD',4X,'UNLD',3X,'TOTAL*,1X,'BARRELS/DAY'/) 00282000
IEND = 9 00283000
IF (SHORT) IEND = 6 00284000
J = 0 00235000
DO 1160 K = 1,1END 00236000
1=1*1 00287000
IF (K.EQ.2.0R.K.EQ.5.0R.K.EQ.9) J = J * 1 00233000
WRITE(8,1130) (HD1(L,K>,L=1,4>,NEUEPG(K),NEURPG(K)INEUREG(1,K), 00239000
SNEWREG(2,K>, FLTEPG(K),FLTRPG(K),FLTREC(1,K),FLTREG(2,K),FLTVMT(K>00290000
8,FLTRFD(2,K),LEDRFD(K),UNLRFD(K)fCDRFD(K>,BBLDAY(K) 00291000
1130 FORMAT(lX,3A4,A3,F6.2,2X,F6.2,3XfF6.3,2X,F6.3,lX,F6.2r2X,F6.2, 00292000
S, 3X,F7.3,1X,F6.3,2X,F7.2,3X,4(F7.3,1X),F6.2) 00293000
00294000
THE FOLLOWING BRANCH HANDLES THE "TOT LITE TRUCK" LINE 00295000
00296000
IF (K.NE.5) GOTO 1140 00297000
WRITE(8,1130)(HD2(L,J>,L=1,4),NSBEPC(J),NSBRPG(J), 00298000
8 NSBREG(1,J),NSBREG(2,J),SUBEPG(J),SUBRPG(J), 00299000
8 SUBREG(1,J),SUBREG(2,J),SUBVMT(J>,(SUBRFD(L,J),L=1,5) 00300000
J = J + 1 00301000
1140 CONTINUE 00302000
IF (.NOT.) GOTO 1160 00303000
1150 FORMAT(1X,132('-')) 00304000
WRITE(8,1150) 00305000
WRITE(8,I130), 00306000
8 NSBREG(1,J),NSBREG(2,J),SUBEPG(J),SUBRPC(J), 00307000
8 SUBREG(1,J),SUBREG(2,J),SUBVMT(J>,(SUBRFDIL,J),L=1,5) 00303000
WRITE(8,1150) 00309000
1160 CONTINUE 00310000
IF <.NOT.SHORT) 00311000
8WRITE(8,1130)(HD2(L,5),L = 1,4),NSBEPC(5),NSBRPG15 >, 00312000
?. NSBREG (1,5), NSBREG (2,5 >, SUBEPG15), SUBRPG15), 00313000
8 SUBRECI1,5),SUBREG(2,5),SUBVMT(5),(SUBRFD(L,5),L=1,5) 00314000
K = 1 00315000
DO 3000 I = 1,30 00316000
3000 CONTINUE 00317000
RETURN 00318000
END 00319000
-------
&RD1.HFC.FORTH:UPPATE - DEFAULT
FROM 8.RD1 .HFC.FORTH:UPDATE ON CATALOG
CARD
1/305 305 LINES CURRENT=305
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
Id.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
33.
39.
40.
41.
42.
43.
44.
45.
46.
47.
43.
49.
50.
51.
52.
53.
54.
55.
C
C
C
C
C
C
HIGHWAY FUEL CONSUMPTION MODEL: DECEMBER 1931
ENERGY AND ENVIRONMENTAL ANALYSIS, INC.
PROGRAMMER: MIKE MOCHAN
DOE CONTRACT: DE-AC01-79PE-70032, TASK 13
HIT1NE UPDATE
SALES(55,9),GASMPG(55,9 >,
LEDPEN(55,9),CASADJ(55,5)
MANMPC<55,5),BASPCT(55,5)
8. COEFB3(11,Z,3),COEFA4(11,Z,5),CUtF B4(11,L,S),
f. VEH(30,2,9),LEADED(30,9),VMT(30,2,9),EPA(30,2I9)
8. RMPC(30,2,9),MSURV<30,2,9),VMTGRO<26,9),ADVANT,
£ USERCF(2,55,2,5)
INTEGER I,J,K,L,R,UNIT,BEGYR,ENDYR,VYR.FYR.LYR,
& MPGOPT,RODOPT,YRIND<100),GPM
LOGICAL PIND<26>.SHORT,PAFRAC.CALIB,GROW
COMMON /CB01/ SALES,CASMPG.DSLMPG,DSLPEN,
fr i rrriDC-M r»AC-Afk i Aii-runr- UAim^T
L PIND<26>.SHORT,PAFRAC.CALIB,GROW
/CB01/ SALES,CASMPG,DSLMPG,DSLPEN,
LEDPEN,GASADJ,AUTMPG,MANPCT,
MANMPG,BASPCT,BASMPG,ALTPCT,
ALTMPC,DSLADJ,DRWMPG,DFMPCT,
DFMMPG,DALPCT,DALMPG,SCRLDV,
SCRLDT.SCRMHD.VMTLDV.VMTLDT.
& VMTMHD,COEFA1,COEFB1,
£ COEFA2,COEFB2,COEFA3,
f. COEFB3,COEFA4,COEFB4
COMMON /CB02/ VEH,LEADED,VMT,EPA,RMPG,MSURV,VMTGRO
COMMON /CB03/ BEGYR,ENDYR,VYR,FYR,LYR,MPCOPT,RODOPT,YRIND,ADVANT
& ,SHORT,PAFRAC.CALIB,GROH.PIND
COMMON /CB05/ USERCF.GPM
INITIALIZE VARIABLES
DELTA =1.0
INCREMENT THE ENDING YEAR BY 1
ENDYR = ENDYR * 1
VYR = VYR + 1
CALCULATE NEW DISTRIBUTION OF VEHICLES WITHIN THE FLEET
MARGINAL SCRAPPAGE RATES MUST BE USED FOR YEARS 2 THRU 30.
DETERMINE IF PASSENGER CARS (CLASSES 1 & 2) ARE TO BE MODIFIED
AS A FRACTION OF NEW SALES OR IF STRAIGHT MARGINAL SCRAPPAGE
RATES ARE TO BE EMPLOYED.
IF (.NOT.PAFRAC) GOTO 1040
CALCULATE TOTAL PASSENGER CARS SCRAPPED
PATnTI - fiftl PS< FMI'iYR. M > '5AI FStEMPYR, ? )
00001000
00002000
00003000
00004000
00005000
00006000
00007000
00003000
00009000
00010000
00011000
00012000
00013000
00014000
00015000
00016000
00017000
00013000
00019000
00020000
00021000
00022000
00023000
00024000
00025000
00026000
00027000
00028000
00029000
00030000
00031000
00032000
00033000
00034000
00035000
00036000
00037000
00033000
00039000
00040000
00041000
00042000
00043000
00044000
00045000
00046000
00047000
00048000
00049000
00050000
00051000
00052000
00053000
00054000
00055000
00056000
up Of-7 000
-------
53.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
39.
90.
91.
92.
93.
94.
95.
96.
97.
93.
99.
100.
101.
102.
103.
104.
105.
106.
107.
103.
109.
10.
11.
12.
13.
14.
15.
16.
17.
18.
119.
120.
121.
122.
i :•. ? .
HHi>i:KH' = y.y
DO 1030 R = 2,30
DO 1020 J = 1,2
DO 1010 K = 1,2
PATOTL = PATOTL + VEHMR-1 ) , J,K) * MSURV(R,J,K)
PASCRP = PASCRP + VEH( »< 1 .0-MSURVIR, J,K»
1010 CONTINUE
1020 CONTINUE
1030 CONTINUE
C
C CALCULATE ACTUAL SCRAPPAGE BASED UPON FRACTION
C
ACTUAL = 0.483 * (SALESfENDYR, 1 ) * SALES(ENDYR,2) )
*, + .027*PATOTL
DELTA = ACTUAL/PASCRP
C
C NOTE: DELTA HAS BEEN INITIALIZED TO ONE, AND RETAINS
THIS
C VALUE UNLESS THE ABOVE SEQUENCE OF CODE HAS BEEN EXECUTED
C
1040 CONTINUE
R = 31
DO 1070 I = 2,30
R = R - 1
DO 1060 J = 1,2
DO 1050 K = 1,9
IF(K.LE.2> MSURV(R,J,K) = 1.0 - DELTA*! 1 .0-MSURV(R,J
IF(MSURV(R,J,K).LT.O.O) MSURV(R,J,K) = 0.0
VEH(R,J,K) = VEH«R-1>,J,K) » MSURV(R,J,K>
IFIK.LE.2 .AND. VEH(R, i , 1 ) .LT. 0.0001 ) MSURV(R,J,K) =
1050 CONTINUE
1060 CONTINUE
1070 CONTINUE
C
C CALCULATE CURRENT YEAR VEHICLES FOR ALL CLASSES.
C
DO 1080 K = 1,9
VEH(1,1,K) = SALES (ENDYR.K) * ( 1-DSLPEN(ENDYR,K»
VEH(1,2,K) = SALES(ENDYR,K> * DSLPEN! ENDYR.K)
1080 CONTINUE
C
C UPDATE LEAD FUEL PERCENTAGE ARRAY
C
R = 31
DO 2000 I = 2,30
R = R - 1
DO 1090 K = 1,9
LEADED(R.K) = LEADEDHR-1 > ,K>
1090 CONTINUE
2000 CONTINUE
C
C CALCULATE CURRENT YEAR LEADED PERCENTAGE.
C
DO 2010 K = 1,9
LEADED! 1,K) = LEDPEN(ENDYR.K)
2010 CONTINUE
C
C UPDATE EPA MPG ESTIMATES NEXT
C
R = 31
DO 2030 I = 2,30
R = R - 1
DO 2020 K = 1,9
EPA(R,1,K> = EPA! (R-1),1,K)
EPA(R,2,K) = EPA! (R-l) ,2,K>
2020 CONTINUE
VHixfi fOMTIMHI!
K > )
0.0
00059000
00060000
00061000
00062000
00063000
00064000
00065000
00066000
00067000
00068000
00069000
00070000
00071000
00072000
00073000
00074000
00075000
00076000
00077000
00078000
00079000
00030000
00081000
00082000
00033000
00034000
00035000
00036000
00037000
00083000
00039000
00090000
00091000
00092000
00093000
00094000
00095000
00096000
00097000
00093000
00099000
00100000
00101000
00102000
00103000
00104000
00105000
00106000
00107000
00103000
00109000
00110000
00111000
00112000
00113000
00114000
00115000
00116000
00117000
00113000
00119000
00120000
00121000
00122000
00123000
-------
li"».
125.
126.
127.
123.
129.
130.
131.
132.
133.
134.
135.
136.
137.
133.
139.
140.
141.
142.
143.
144.
145.
146.
147.
143.
149.
150.
151.
152.
153.
154.
155.
156.
157.
153.
159.
160.
161.
162.
163.
164.
165.
166.
167.
168.
169.
170.
171.
172.
173.
174.
175.
176.
177.
173.
179.
180.
131.
182.
1 83 .
134.
185.
136.
137.
1 33 .
L
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
CALCULATE CURRENT YEAR EPA ESTIMATES NEXT USING
SAME OPTION AS IN THE BASE CASE INITIALIZATION.
CLASSES 1 THRU 5 ARE DONE NEXT.
DO 2070 K = 1,5
GO TO (2040,2050,2060),MPGOPT
2040 CONTINUE
OPT=1=STRAIGHT EPA PLUS DSL ADVANTAGE FACTOR
EPA(1,1,K) = GASMPG(ENDYR,K)
EPA(1,2,K) = EPA(1,1,K> * ADVANT
GOTO 2070
2050 CONTINUE
OPT=2=DIRECTLY OFF DATA FILES VIA COMMON ARRAYS
EPA(1,1,K> = GASMPG(ENDYR.K)
EPA(1,2,K) = DSLMPC(ENDYR,K>
GOTO 2070
2060 CONTINUE
OPT=3=USE TECH PENTR. AND FUEL ECON EST.
I - ENDYR
EPA(1,1,K) = 1.0/«MANPCT+ALTPCT(I,K>»
S /MANMPGU,K»
S t ((1-MANPCT+DALPCT(I,K»)/DRWMPCU,K>>
& <• (DFMPCT(IIK)/DFHMPG(I,K))
& +
2070 CONTINUE
CALCULATE CURRENT YEAR EPA MPG FOR CLASSES 6 TO 9
DO 2080 K = 6,9
EPA(1,1,K> = GASMPG(ENDYR,K)
EPA(1,2,K> = DSLMPG(ENDYR,K>
2030 CONTINUE
CALCULATE ONROAD MPG FOR YEARS 2 THRU 30 FOR CLASSES 1-9
R = 31
DO 3000 I = 2,30
R = R - 1
DO 2090 K = 1,9
RMPC(R,1,K> = RMPG«R-1>,1,K)
RMPG(R,2,K) = RMPGI(R-l),2,K)
2090 CONTINUE
3000 CONTINUE
CALCULATE CURRENT YEAR ONROAD MPG ESTIMATES USING THE
SAME OPTION SELECTED IN THE BASE CASE INITIALIZATION
SUBROUTINE. CLASSES 1 THRU 5 ARE DONE NEXT.
DO 3040 K = 1,5
GO TO (3010,3020,3030),RODOPT
3010 CONTINUE
OPT=1=TECH SPECIFIC BASED ON COEF HELD IN ARRAY
0012400O
00125000
00126000
00127000
00128000
00129000
00130000
00131000
00132000
00133000
00134000
00135000
00136000
00137000
00133000
00139000
00140000
00141000
00142000
00143000
00144000
00145000
00146000
00147000
00148000
00149000
00150000
00151000
00152000
00153000
00154000
00155000
00156000
00157000
00158000
00159000
00160000
00161000
00162000
00163000
00164000
00165000
00166000
00167000
00163000
00169000
00170000
00171000
00172000
00173000
00174000
00175000
00176000
00177000
00173000
00179000
00180000
00181000
00182000
00133000
00184000
00135000
00136000
00137000
00183000
no) S'/rtnn
-------
191.
192.
193.
194.
195.
196.
197.
198.
199.
200.
201.
202.
203.
204.
205.
206.
207.
208.
209.
210.
211.
212.
213.
214.
215.
216.
217.
218.
219.
220.
221.
222.
223.
224.
225.
226.
227.
223.
229.
230.
231.
232.
233.
234.
235.
236.
237.
233.
239.
240.
241 .
242.
243.
244.
245.
246.
247.
243.
249.
250.
251.
252.
253 .
254.
. C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
Ih ( I .Gh.3U.HNU. 1 .Lk.) L = (1-JO) + 1
IF (I.LT.30) L = 1
IF (I.CT.40) L = 11
GAS SF MPC'S BY TECHNOLOGY ARE COMPUTED BASED ON COEFFICIENTS.
SFA1 = COEFA1
SFA2 = COEFA2(L,1,K>/MANMPG(I,K)
SFA3 = COEFA3
SFA4 = COEFA4
SFA = «1-MANPCT>»<1-+ALTPCT»*SFA1)
a + *<1-+ALTPCT
?, + (BASPCT(I,K)*SFA3)
* +
SFB = «1-MANPCT+ALTPCT
a <• (MANPCT(I,K)*(1-(BASPCT(I,K>+ALTPCT(I,K)»»COEFB2(L,1,K))
a + *COEFB4+ALTPCT+ALTPCTUfK»>
a /AUTMPG = EPA(1,1,K)/(SFA+(SFB»EPA(1,1,K))+GASADJ(I,K)>
1290 CONTINUE
ONROAD DSL MPG CALCULATIONS FOLLOW
DSL SF MPG'S BY TECHNOLOGY ARE COMPUTED BASED ON COEFFICIENTS.
3FA1 = COEFAHL,2,K>/DRWMPCU,K>
SFA2 = COEFA2(L,2,K)/DFWMPC(I,K>
SFA3 = COEFA3(L,2,K)/DALMPG(I,K)
SFA = «1-(DFWPCT(I,K)«-DALPCT< I,K)))*SFA1 >
& t (DFHPCTII,K)*SFA2)
8 + (DALPCT(I,K)»SFA3)
SFB = «1-(DFWPCT(I,K>+BALPCT»COEFB1(L,2,K»
& + (DFMPCT(I,K)«COEFB2(L,2,K»
& + (DALPCTtI,K)»COEFB3(L,2,K))
TECH SPECIFIC EPA DS.L MPC IS REQUIRED TO COMPLETE COMP
IF (MPGOPT.EQ.3) GOTO 1313
EPAFLT = 1.0/( (( 1-(DFMPCT(IIK)+DALPCT(I,K)))/DRWMPG(I,K»
8 * (BFHPCTII,K)/DFMMPG(I,K))
fc + (DALPCT(I,K)/DALMPG(I,K>»
GOTO 1311
1313 CONTINUE
EPAPLT = EPA(1,2,K>
1314 CONTINUE
uul v
00191000
00192000
00193000
00194000
00195000
00196000
00197000
00193000
00199000
00200000
00201000
00202000
00203000
00204000
00205000
(00206000
00207000
00203000
00209000
00210000
00211000
00212000
00213000
00214000
00215000
00216000
00217000
00213000
00219000
00220000
00221000
00222000
00223000
00224000
00225000
00226000
00227000
00223000
00229000
00230000
00231000
00232000
00233000
00234000
00235000
00236000
00237000
00238000
00239000
00240000
00241000
00242000
00243000
00244000
00245000
00246000
00247000
00243000
00249000
00250000
00251000
00252000
00253000
00254000
-------
256 .
257.
253.
259.
260.
261.
262.
263.
264.
265.
266.
267.
263.
269.
270.
271.
272.
273.
274.
275.
276.
277.
273.
279.
230.
281.
232.
233.
284.
285.
286.
287.
283.
289.
290.
291.
292.
293.
294.
295.
296.
297.
293.
299.
300.
301.
302.
303.
304.
305.
C
3020
C
C
C
C
C
C
C
3024
3026
C
3030
C
C
C
3040
C
C
C
3050
C
C
C
3060
3070
3080
3FA = SFA*EPAFLT
RMPG(1,2,K) = EPA(1,2,K>/(SFA-MSFB*EPA<1 ,2,K> KDSLADJI I ,!<> )
GOTO 3040
CONTINUE
OPT=2=USER-SPECIFIED SHORTFALL COEFFICIENTS
DO 3026 J = 1 , 2
DO 3024 K = 1,5
SFA = U3ERCF(1,ENDYR,J,K>
SFB = USERCF<2,ENDYR,J,K>
IF RMPG(1,J,K) = SFA * SFB»EPA( 1 , J,K)
IF(CPM.EQ.l) RHPGU.J.K) = EPA( 1 , J,K )/ = EPA(1,2,K>
CONTINUE
CALCULATE CURRENT YEAR ONROAD MPG FOR CLASSES 6-9
DO 3050 K = 6,9
RMPG(1,1,K) = GASMPC(ENDYR,K)
RMPG(1,2,K> = DSLMPG(ENDYR,K)
CONTINUE
UPDATE VMT ARRAY, NOTE: GROWTH IS USED ONLY IF SPECIFIED
FACTOR =1.0
DO 3080 I = 1,30
DO 3070 J = 1,2
DO 3060 K = 1,9
IF (GROW) FACTOR = VMTGROt VYR.K)
VMT(I,J,K) = VMT(I,J,K) * FACTOR
CONTINUE
CONTINUE
CONTINUE
RETURN
END
00257000
00258000
00259000
00260000
00261000
00262000
00263000
00264000
00265000
00266000
00267000
00263000
00269000
00270000
00271000
00272000
00273000
00274000
00275000
00276000
00277000
00273000
00279000
00280000
00281000
00282000
00283000
00234000
00235000
00236000
00287000
00288000
00289000
00290000
00291000
00292000
00293000
00294000
00295000
00296000
00297000
00293000
00299000
00300000
00301000
00302000
00303000
00304000
00305000
-------
&RD1.HFC.FORTH:PAGE - DEFAULT
FROM &RD1.HFC.FORTH:PAGE ON CATALOG
CARD
1/10 10 LINES CLIRRENT=10
1. SUBROUTINE PAGE(UNIT) 00001000
2. INTEGER UNIT 00002000
3. LOGICAL*! FF 00003000
4. DATA FF/ZOC/ 00004000
5. C 00005000
6. WRITEIUNIT.IOO) FF 00006000
7. 100 FORMAT(1A1) 00007000
8. C 00008000
9. RETURN 00009000
10. END 00010000
------- |