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
-------
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                                 .                    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
-------
&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 
-------
 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

-------