-------
DISCLAIMER
Within this final MOBILE2 User's Guide, there are references to a new AP-42 document,
Compilation of Air Pollutant Emission Factors: Highway Mobile Sources, March 1981
(EPA 460/3-81 -005). This AP-42 document along with further background documentation
describing how the MOBILE2 emission factors were derived were not available at the time
this manual was released. Once these emission factor documents are available, the EPA
Regional Offices will be contacted and copies will be available through the National Technical
Information Service in Springfield, Virginia.
Additionally, EPA will not be responsible for the accuracy of MOBILE2 tapes that were
received from sources other than EPA In Ann Arbor or NTIS. Further, EPA will not be
responsible for the accuracy of MOBILE2 when modified by the user.
Agency
-------
ABSTRACT
This document is the USER'S GUIDE to MOBILE2. MOBILE2 is a computer
program that calculates emission factors for hydrocarbons (HC), carbon
monoxide (CO), and oxides of nitrogen (NOx) from highway motor vehicles.
The program uses the calculation procedures and emission factors
presented in Compilation of Air Pollutant Emission Factors: Highway
Mobile Sources, March 1981(EPA460/3-81-005).MOBILE2calculates
emission factors for eight individual vehicle types in three regions of
the country. MOBILE2 emission estimates depend on various ambient,
vehicle usage, and local conditions such as temperature, speed, mileage
accumulation and accrual distributions, vehicle-miles-traveled
distributions, etc. MOBILE2 will estimate emission factors for any
calendar year between 1970 and 2020, inclusive. The 20 most recent model
years are considered in operation in each calendar year. MOBILE2
supercedes MOBILE1. Compared to MOBILE1, MOBILE2 incorporates several
new options, calculating methodologies, emission factor estimates,
emission control regulations, and internal program designs. As such,
MOBILE2 should be easier to maintain, transport, alter, and comprehend.
-------
Requests for copies of MOBILE2, for additional
copies of this User's Guide, and for copies of
AP-42, should be directed to the following;
The National Technical Information Service (NTIS).
U. S. Pepartment of Commerce
Springfield, Virginia 22161
(703) 557-4650
Questions concerning MOBILE2, this User's Guide, or
AP-42 should be directed to the following:
Office of Mobile Source Air Pollution Control
Emission Control Technology Division
Test and Evaluation Branch
2565 Plymouth Road
Ann Arbor, MI 48105
Attn: MOBILE2
Telephone; (313) 668-4365
-------
TABLE OF CONTENTS
CHAPTER 1. GENERAL DESCRIPTION OF MOBILE2
1.0 INTRODUCTION , 1
1.1 MOBILE2 OVERVIEW .,.,.,,., , 1
1.2 MOBILE2 FEATURES 2
1.2.1 The MOBILE2 Vehicle Types
1.2.2 The MOBILE2 Pollutants
1.2.3 The MOBILE2 Regions
1.2.4 Calendar Years Allowed
1.2.5 Basic Exhaust Emission Rates
1.2.6 Additional HC Emissions
1.2,7 Idle Exhaust Emission Rates
1.2.8 MOBILE2 Travel Fractions
1.2.9 Speed/Temperature/Operating-Mode Correction Factors
1.2.10 Additional Light Duty Correction Factors
1.2.11 Credits for Inspection and Maintenance Programs
1.3 DIFFERENCES BETWEEN MOBILE2 AND MOBILE1
1.3.1 Data Input Differences
1.3.2 Output Differences
1.3.3 Internal Program Differences
CHAPTER 2. MOBILE2 INPUTS
2.0 INTRODUCTION 12
2.1 CONTROL SECTION 12
2.1.1 Input and Execution Flags
2.1.2 Flags Controlling Output
2.2 ONE-TIME DATA SECTION 21
2.2.1 One-Time VMT Mix
2.2.2 Mileage and Registration Distributions
2.2.3 Emission Factor Modification Data
2.2.4 Inspection/Maintenance Data
2.2,5 Average Trips per Day and Average Miles per Day
2.3 PARAMETER SECTION 27
2.3.1 Scenario Record
2.3.2 VMT Mix Record
2.3.3 Additional LOG Correction Factors Record
2.3.4 Additional HDV Correction Factor Record
2.4 SUMMARY OF MOBILE2 INPUT SEQUENCE , 31
-------
CHAPTER 3. MOBILE2 OUTPUT
3.0 INTRODUCTION , , 33
3.1 FORMATTED REPORT OUTPUT ,..., 33
3.1.1 Original (MOBILE1) Numeric Format (IFORM=0)
3.1.2 Original (MOBILE1) Descriptive Format (IFORM=1)
3.1.2 Expanded Numeric Format (IFORM=2)
3.1.4 Expanded 112-Column Descriptive Format (IFORM=3)
3.1.5 Expanded 80-Column Descriptive Format (IFORM=4)
3.2 DIAGNOSTIC MESSAGES , ,..,.,.. 37
3.2.1 FLAG (CONTROL Section) Record Diagnostics
3.2.2 VMT Mix Record Diagnostics
3,2.3 Mileage Accrual and Registration Distribution Diagnostics
3.2.4 Emission Factor Modification Diagnostics
3.2.5 Inspection/Maintenance Data Diagnostics
3.2.6 Trips/Day and Miles/Day Record Diagnostics
3.2.7 Scenario Record Diagnostics
3.2.8 Additional LD Correction Factor Record Diagnostics
3«2.9 Miscellaneous Data-Related Diagnostics
3,2.10 Internal Software Error Diagnostics
3.3 PROMPTING MESSAGES .,.,, 45
3.3.1 Title Record Prompt
3.3.2 14 Remaining Flag Prompts
3.3.3 VMT Mix Record Prompt
3.3,4 Mileage Accrual Prompts
3,3.5 Model Year Registration Data Prompts
3.3.6 Emission Factor Modification Data Prompts
3.3,7 I/M Parameter Record Prompt
3,3.8 Trips/Day and Miles/Day Record Prompts
3.3.9 Scenario Record Prompt
3.3.10 Additional LD Correction Factors Record Prompt
3.3.11 HD Correction Factors Record Prompt
CHAPTER 4. MOBILE2 EXAMPLES
4.0 INTRODUCTION , 49
4.1 MOBILE2 EXAMPLES , , 49
4.2 MOBILE! EXAMPLES THROUGH MOBILE2 ,,,, 99
CHAPTER 5. MOBILE2 IMPLEMENTATION AND POSSIBLE MODIFICATIONS
5.0 INTRODUCTION , , , 133
5.1 PROGRAM STORAGE REQUIREMENTS 133
5.2 PROGRAM EXECUTION TIME , , 133
-------
5.3 DEVIATIONS FROM FORTRAN STANDARD ANSI X3.9-1966 134
5.3.1 Array Dimensions
5.3.2 Character Data
5.3.3 Array Data Initialization
5.3.4 Non-Standard Characters
5.3.5 Input Error and End-of-File
5.3,6 Comment Lines
5.4 TYPICAL JOB STRUCTURE 135
5.5 STRUCTURAL DIFFERENCES BETWEEN MOBILE1 and MOBILE2 136
5.6 SPEED CORRECTION FACTOR COEFFICIENT PRECISION 136
5.7 RE-IMPLEMENTING MOBILE1 OPTIONS NOT IN MOBILE2 136
5.7.1 List Directed Input
5.7.2 Three Speed Input
5.7.3 Unformatted Output
5.8 POSSIBLE PROGRAM CHANGES , 138
5.8.1 Multiple Control Sections
5.8.2 Hardcoding Locality Specific Data
5.8.3 Single (Long) Record Numeric Output
5.8.4 Intermediate Altitude
5.8,5 Reducing Computer Resource Requirements
5.9 PROGRAM UPDATE INFORMATION 141
APPENDIX A. INTERNAL SOFTWARE DOCUMENTATION
A.O INTRODUCTION A-l
A.1 STANDARD VARIABLE NAMES , A-l
A. 2 PROGRAM COMMON , A-4
A. 3 MODULE DESCRIPTIONS , , A-50
A. 4 STRUCTURE CHART A-l08
APPENDIX B. PROGRAM SOURCE LISTING
APPENDIX C. USER INFORMATION AND PROGRAM ERRATA
-------
Chapter 1
GENERAL DESCRIPTION OF MOBILE2
1.0 INTRODUCTION
MOBILE2 is an integrated set of FORTRAN routines for use in the analysis
of the air pollution impact of highway mobile sources. The system has
been designed to provide the user with a flexible, yet easy to use,
analytical tool which can be utilized in a wide variety of air pollution
planning functions. MOBILE2 is an update of its predecessor MOBILE1.
This chapter gives an overview of MOBILE2; information it is based on,
how it was developed, its general features, and how it differs from
MOBILE1.
Explicit instructions on the usage of MOBILE2 are given in Chapter 2
(MOBILE2 Input), Chapter 3 (MOBILE2 Output), Chapter 4 (MOBILE2
Examples), and Chapter 5 (MOBILE2 Implementation and Possible
Modifications). This manual also has three appendices which are included
to facilitate the user in understanding and implementing the program:
Appendix A (Internal Software Documentation) which describes the MOBILE2
variables and software modules, Appendix B (MOBILE2 Source Listing), and
Appendix C (Program Errata).
1.1 MOBILE2 OVERVIEW
MOBILE2 began in the fall of 1978 when responsibility of developing
highway mobile source emission factors was transferred to the Office of
Mobile Source Air Pollution Control from the Office of Transportation and
Land Use Policy. The first step in the sequence of events to develop
MOBILE2 entailed becoming familiar with MOBILE1. This extensive review
of MOBILE1 took place in the summer of 1979. Development of MOBILE2
emission factor estimates and calculating methodologies began in the Fall
of 1979. In early 1980, MOBILE2 programming development began. MOBILE2
was created from MOBILE1; however, it had gone through 39 revisions
before the released version of MOBILE2 was ready. The low altitude
non-California emission factors were completed in July of 1980. These
were released publicly in October of 1980, after incorporation of several
regulation changes. In December of 1980, MOBILE2 was finalized. This
final version included the emission factors for three MOBILE2 regions and
I/M program credits. These MOBILE2 terms are explained in greater detail
in Section 1.2.
MOBILE2 computes emissions from highway motor vehicles utilizing the most
recent emission factors and calculating methodologies developed by the
United States Environmental Protection Agency. These factors and the
associated methodologies are published in the document Compilation of Air
Pollutant Emission Factors; Highway Mobile Sources, March 1981 (EPA
460/3-81-005). This document is the latest in a series of supplements
and appendices to AP-42, Compilation of Air Pollutant Emission Factors.
For ease of reference, the March, 1981, document for highway mobile
sources will hereafter be referred to as AP-42,
-------
-2-
'Ithough familiarity with the contents of AP-42 is not strictly required
for the use of MOBILE2, the prospective user is strongly advised to read
AP-42; as the unenlightened use of the program may produce results which,
while mathematically correct, are nevertheless inappropriate for the
particular application intended.
As explained in AP-42, MOBILE2 incorporates emission control regulations,
emission data, and calculating methodologies not accurately reflected in
MOBILE1. MOBILE2 incorporates the best information available at the time
of its release.
1.2 MOBILE2 FEATURES
As mentioned previously, MOBILE2 is a FORTRAN computer model that
estimates on-highway mobile source emissions. This section describes
these on-highway mobile sources, the pollutants, and several other
features available in MOBILE2.
1.2.1 The MOBILE2 Vehicle Types
Throughout this document, automobiles and light duty vehicles are
considered synonymous. The vehicle types for which MOBILE2 calculates
emissions are as follows:
Light Duty Gasoline Powered Vehicles (LDGV)
Light Duty Gasoline Powered Trucks with a gross vehicle weight (GVW)
rating less than 6,001 Ibs. (LDGT1)
Light Duty Gasoline Powered Trucks with a GVW rating between 6,001
and 8,500 Ibs. (LDGT2)
Light Duty Gasoline Powered Trucks with a GVW rating less than 8,501
Ibs. (LDGT)
Heavy Duty Gasoline Powered Vehicles (HDGV)
Light Duty Diesel Powered Vehicles (LDDV)
Light Duty Diesel Powered Trucks (LDDT)
Heavy Duty Diesel Powered Vehicles (HDDV)
Motorcycles (MC)
All Vehicle Types Combined (referred to interchangeably in the
MOBILE2 output as ALL VEH, ALL MODES and C.E.F. ALL VEH)
The LDGT vehicle type is a vehicle-miles-traveled (VMT) weighted average
of the LDGT1 and LDGT2 vehicle types. The "ALL VEH" vehicle type is a
VMT weighted average of eight individual vehicle types: LDGV, LDGT1,
LDGT2, HDGV, LDDV, LDDT, HDDV and MC.
-------
-3-
1.2.2 The MOBILE2 Pollutants
The three pollutants for which MOBILE2 computes emission estimates are as
follows:
hydrocarbons (HC)
carbon monoxide (CO)
oxides of nitrogen (NOx)
1.2.3 The MOBILE2 Regions
The MOBILE2 program computes emission estimates for three major regions:
Low Altitude (49-State or non-California) Regions
California (Low altitude) Regions
High Altitude (49-State or non-California) Regions
1.2.4 Calendar Years Allowed
MOBILE2 calculates emission estimates for January 1 of any calendar year
1970 through 2020. The emission estimate of each calendar year is
composed of the 20 most recent model years.
1.2.5 Basic Exhaust Emission Rates
The basic exhaust emission rates included in MOBILE2 are generated from
tests conducted on vehicles or engines under standardized test conditions
representative of urban type driving. As such, the basic exhaust
emission rates in MOBILE2 represent those standardized test conditions.
These conditions for the different vehicle types are summarized in Table
1.2.5A and are given in specific detail in various Codes of Federal
Regulations (CRF 40 Part 86, July 1, 1976, 1978, 1979, and 1980). As
seen in Table 1.2.5A, MOBILE2 assumptions deviate somewhat from the test
conditions. These deviations were required for ease of computations and
have a minuscule impact.
Further, the MOBILE2 basic exhaust emission rates assume that 1) air
conditioners are not in use, 2) vehicles are not towing trailers or
carrying extra loads, 3) no I/M program is in effect, and 4) owners
perform (or have performed) average maintenance on the vehicles.
1.2.6 Additional HC Emissions
MOBILE2 has three options specific to the calculation or output of HC
emissions. The user can request MOBILE2 to calculate either total or
non-methane HC emissions. In addition to the HC emissions MOBILE2
calculates (which include crankcase and evaporative HC emissions),
MOBILE2 has the capability to output crankcase and evaporative HC
emission factors for each vehicle type in units of gram/mile. The
crankcase and evaporative HC emission levels depend upon miles per day
and trips per day information. For each vehicle type, MOBILE2 has the
option for the user to input miles per day and trips per day information
representative of the particular area being analyzed.
-------
-4-
1.2.7 Idle Exhaust Emission Rates
As an option, MOBILE2 can generate idle exhaust emission factors for the
different vehicle types. These idle emission factors represent a vehicle
in a hot stabilized condition and are given in units of grams per minute.
-------
Table 1.2.5A
Basic Exhaust Emission Level
Standardized Test Conditions
Engine off period for cold start 12-36 hours
Engine off period for hot start
Engine off Ambient Temperature
NOx Corrected to Ambient Humidity 75
(grains of ^O/lb. dry air)
Average Trip Length
Average Trip Speed
Average Idle Percent of Trip
Average Percent VMT Cold Start
Average Percent VMT Stabilized
Average Percent VMT Hot Start
LDGV, LDGT1,
12-36 hours
10 minutes
68-86°F
75
7.5 miles
19.6 mph
18%
20.6%
52.1%
27.3%
& LDGT2 HDGV
12+ hrs1
20 minutes
68-86°F
N/A3
6.5 miles
19.9 mph
20 mph3
27%
14.3%
0%
86.7%
LDDV & LDDT
12-36 hours
10 minutes
68-86° F
N/A
7.5 miles
19.6 mph
18%
20.6%
52.1%
27.3%
HDDV
12+ hrs *
20 minutes
68-86 °F
N/A
6.4 miles
19.2 mph
20 mph3
37%
14.3%
0%
86.7%
MC
6-36 hours2
10 minutes
68-86°F
75
6.8-7.5 miles2
17.8-19.6 mph2
19 .63
18%
18. 3-20. 6%2
20. 63
52.1-57.5%2
52. 13
24. 2-27. 3%2.
27. 33
2
3
Optionally, this 12+ hour engine off time may be replaced by a
forced cool down procedure, whereby cool water is circulated through
the engine cooling system until the engine oil temperature is
between 68°F and 75°F.
Depending on engine size.
Assumed in MOBILE2.
-------
-6-
1.2.8 MOBILE2 Travel Fractions
To calculate the January 1 calendar year emissions for each vehicle type,
MOBILE2 appropriately weights the 20 most recent model years together.
These model year weights are known as the travel weighting fractions.
The travel weighting fractions for a given vehicle type are a
distribution of the total VMT driven by the vehicle type apportioned
among the 20 most recent model years. The travel fractions account for
both the January 1 registration and fleet annual mileage accumulation
rate distributions for the given vehicle type. Further, the expected
increase in diesel sales by model year are taken into account for the
light duty vehicle and truck fleets.
1.2.9 Speed/Temperature/Operating-Mode Correction Factors
Adjustments must be made to the basic exhaust emission levels to more
accurately estimate vehicle emissions when the user attempts to model
scenarios which do not conform to the basic test conditions given in
Table 1.2.5A. Therefore, MOBILE2 computes and applies correction factors
for speed, ambient temperature, and vehicle operating modes to reflect
the scenarios the user is analyzing. (The operating modes are the
percentage of the VMT driven by a vehicle type in a cold start,
stabilized, and hot start condition). These correction factors are
applied only to the basic exhaust emissions; not the crankcase and
evaporative HC emissions or the idle emissions.
1.2.10 Additional Light Duty Correction Factors
As an option, MOBILE2 allows the user to include the effect of four
"additional" correction factors for light duty gasoline powered vehicles
and trucks.
These correction factors are segregated from those described in the
previous section because they represent unique conditions which are often
not assumed in MOBILE2 applications.
These four factors for light duty gasoline powered vehicles and trucks
are as follows:
1) Air conditioning,
2) Extra load,
3) Trailer towing, and
4) NOx humidity (also applied to motorcycles).
These additional correction factors impact only the basic exhaust
emission levels.
1.2.11 Credits for Inspection and Maintenance Programs
MOBILE2 allows the user to apply Inspection and Maintenance (I/M) credits
to the basic exhaust emission levels. The emission reduction credits
attributable to an I/M program vary according to the type of program in
effect. The MOBILE2 I/M program credits depend upon the following six
factors:
-------
-7-
1) The estimated first year failure rate (stringency factor) for
the pre-1981 low altitude non-California LDGVs (or other vehicle
types with similar emission control technologies). The pre-1975
vehicles are defined as Technology I vehicles and 1975-1980
vehicles are defined as Technology II vehicles.
2) The success rate in identifying 1981 and later model year low
altitude non-California LDGVs operating under rich failure
conditions (the identification rate of Technology IV vehicles).
Technology III is not defined in MOBILE2 .
3) The vehicle types affected by the program: LDGV; LDGV & LDGT1;
LDGV & LDGT2; or LDGV, LDGT1, & LDGT2.
4) The calendar year being analyzed and the calendar year an I/M
program is implemented.
5) The presence or absence of an adequate mechanics training
program.
6) The model years involved in the I/M program.
1.3 DIFFERENCES BETWEEN MOBILE2 AND MOBILE1
MOBILE2 operates in a manner similar to MOBILE1. MOBILE2 was designed to
maintain input/output sequences that are as much as possible like the
previous model. MOBILE2 has several new options. Thus, most of the
differences between MOBILE2 and MOBILE1 are the result of including the
additional options. This section describes the most important
differences between MOBILE2 and MOBILE1. These differences fall into
three general categories: input, output, and internal.
1.3.1 Data Input Differences
Both MOBILE1 and MOBILE2 have three input sections. These sections are
mentioned here, but are defined in detail in Chapter 2. The three
sections are the CONTROL, ONE-TIME DATA and PARAMETER.
The CONTROL Section of MOBILE2 which impacts the input of data and output
of information, has been changed in 12 places as compared to MOBILE1.
Nine of these changes are a result of additional options available in
MOBILE2, The remaining three changes are a result of eliminating MOBILE1
options.
The three MOBILE1 options that are no longer available are the free
format (list-directed) input, the three speed input option, and the
unformatted output reports. These options were deleted from MOBILE2
because of problems or confusion that arose with MOBILE1. Although these
options are not available in the released MOBILE2 version, they can be
easily reinstated. The procedures required to reinstate the three
options are outlined in Chapter 5.
The new nine options in MOBILE2 that are not available in MOBILE1 are
discussed below.
-------
-8-
MOBILE2 permits a user to input the CONTROL Section information on three
records as an alternative to the MOBILE1 16 record CONTROL Section.
MOBILE2 also permits a user to define in the CONTROL Section the output
units where the formatted reports, diagnostic messagesj and prompting
messages are to be placed. Further, MOBILE2 has three new output formats
that can be selected in the CONTROL Section*
In the ONE-TIME DATA Section, three additional input options are
available. One record which defines the type of I/M program also enables
the user to change the basic MOBILE2 I/M vehicle types, identification
rate, and credits. Another option results from the use of the additional
correction factors which also permits the individual input of trailer
towing fractions for the LDGTs, and the dry and wet bulb temperatures for
the air conditioning usage fraction. The third additional option permits
the user to define the trips per day and miles per day characteristics
for each vehicle type.
The last input option available in MOBILE2 (that was not possible with
MOBILE1) is the input of eight speed values in the PARAMETER Section.
This option permits the user to define the average speed for each of the
eight vehicle types referred to in Section 1.2.1.
One final area (where MOBILE2 differs from MOBILE1) which impacts the
input of data is the addition of two new vehicle types in MOBILE2: LDDVs
and LDDTs. Because of these additional vehicle types, MOBILE1 input
streams may not be interchangeable with MOBILE2 input streams. If a user
wants to define the VMT mix, the registration distribution, or the
mileage accrual distribution in MOBILE2; the MOBILE1 input streams must
be altered to include the information for the two new vehicle types.
Further information on this topic is given in Chapter 2.
1.3.2 Output Differences
Both MOBILE2 and MOBILE1 have three distinct output sections. The
sections are discussed briefly here, but are described in detail in
Chapter 3. The three sections are reports of emission estimates,
diagnostic messages, and prompting messages. As mentioned in Section
1.3.1, MOBILE2 has the option to control the unit to which the output
sections are written; MOBILE1 does not have this capability.
There are four output report differences between MOBILE2 and MOBILE1.
Three of the differences result from the three additional MOBILE2 report
options. The fourth difference is with the unformatted reports. MOBILE2
does not have the unformatted report option, but it could be easily
reinstated as explained in Chapter 5.
The three additional output report options in MOBILE2 are different from
the MOBILE1 format reports in that LDDV, LDDT, and LDGT emissions are
displayed.
When input data problems occur, MOBILE2 will assist users in the
identification of the problems with diagnostic messages. The diagnostic
messages generated by MOBILE2 are significantly improved over those in
-------
-9-
MOBILE1. MOBILE2 has two basic types of diagnostic messages: error and
warning messages. Since MOBILE2 (unlike MOBILE1) verifies all input
values against allowable limits, MOBILE2 produces diagnostic messages
whenever a dubious input value is encountered* Further, depending on the
nature of the questionable data, MOBILE2 either prints an error or
warning message. An error will always result in the termination of
MOBILE2. A warning message is intended to draw the user's attention to
some characteristic of the conditions being modeled, in order that the
user may determine whether the conditions are those intended. A warning
will not terminate MOBILE2.
For users uncertain of the order of the input data, prompting messages
are an option. The prompting messages in MOBILE2 differ from those in
MOBILE1 primarily because additional options are available in MOBILE2.
MOBILE1 does not prompt for every input requirement, whereas MOBILE2
prompts for every input requirement. The prompting exception to both
programs is that neither prompts for the first record.
1.3.3 Internal Program Differences
Internally, MOBILE2 is significantly different from MOBILE1. As a result
of the differences, MOBILE2, compared to MOBILE1, should be more user
oriented, more flexible to use, easier to maintain, easier to transport
from one machine to another, and easier to understand. There are other
internal changes in MOBILE2 besides its flexibility, maintainability, and
transportability where it is improved over MOBILE1. MOBILE2 is expanded
in two areas and has calculation methodology changes in six areas
compared to MOBILE1.
A few general aspects that improve the MOBILE2's flexibility, maintain-
ability, and transportability are as follows: MOBILE2 has more
documentation included in the program, MOBILE2 is more structured than
MOBILE1, and MOBILE2 is closer to ANSI FORTRAN standards. Also, MOBILE2
internally uses four digit calendar and model year values as opposed to
the MOBILE1 index system.
The two areas referenced above where MOBILE2 is improved over MOBILE1 are
the expanded range of calendar years for which emission factors can be
calculated and the maximum number of emission rates possible for any
given pollutant/vehicle-type/region combination. MOBILE2 calculates
emission factors for any calendar year between 1970 and 2020, inclusive.
MOBILE1 calculates emission factors only through 1995. Also, MOBILE2
permits up to 15 emission rates per pollutant/vehicle-type/region
combination, whereas MOBILE1 permits up to 10.
MOBILE2 calculation procedures differ from MOBILE1 procedures primarily
in six areas: 1) MOBILE2 separates the MOBILE1 crankcase and evaporative
HC emissions into components (crankcase, diurna •, and hot soak losses),
2) MOBILE2 calculates emissions on a January 1 date as opposed to July 1,
3) the speed correction factor is applied to the entire trip cycle as
opposed to the three operating modes, 4) temperature effects are evident
on all three pollutants and operating modes in MOBILE2 as opposed to
MOBILE1 where only HC and CO on the cold start mode are affected, 5) the
MOBILE2 air conditioning usage is a function of a discomfort index as
-------
-10-
opposed to the user-estimated MOBILE1 input, and 6) no HDV power to
displacement correction factor is calculated or applied in MOBILE2.
As mentioned above, MOBILE2 is more structured than MOBILE1. To
illustrate how the MOBILE2 structure differs from the MOBILE1 structure,
each MOBILE1 subprogram is matched to its MOBILE2 counterparts. This
correspondence is made in Table 1.3.3A. As can be seen in this table,
there are significant differences in the structures of MOBILE2 and
MOBILE1.
One last difference between MOBILE2 and MOBILE1 is the inclusion of all
common areas in the MOBILE2 "MAIN" program. All common areas are not
included in the MOBILE1 "MAIN" program.
-------
-11-
MOBILE1
Subprogram
MAIN
INPUT
OUTPUT
EFCALX
BIGCFX
INITEX
TFCALX
SPFCLX
BEFGEN
GETCUM
EFALTX
CCEVAX
LDVIMX
ALUH
TRKOPC
BDSPD
BDMYMR
BDE123
BDI123
BDIM
Table 1.3.3A
MOBILE1 to MOBILE2 Subprogram Correspondence
MOBILE2 Analogous Subprogram(s)
MAIN, BD131, BD21
INPUT, QUITER, NEWDAT, YRTEST, CCEVAX
OUTPUT; OUTHDO.1,2,3,4; OUTDTO,1,2,3,4; OUTPOL; OUTIMP; OUTALT;
OUTMTH; OUTHDR
EFCALX
BIGCFX, BD14, BD15, ISSPTR, ISPPT8, BD17, IGPPRT, BD16
REGMOD, TFCALX, IGSFPT, BD20
SPFCLX
BEF, BEFIDL, BD7, IEXMPT
GETCUM
EFALTX
CCEVRT; HOTSOK, BD8, TPD, BD9, DIURNL, BD10, XMPD, BD11, CRANKC,
BD12
PCLEFT
ALUH, BD18, IGEPTR, BD19, IGUPTR, IGLPTR,IGTPTR
BD1
BD2
INDX3R, BD3, BD4
BD5
BD6
1 Note: MOBILE1 and MOBILE2 routine names beginning with "BD" refer to BLOCK
DATA modules.
-------
-12-
Chapter 2
MOBILE2 INPUT
2.0 INTRODUCTION
The reader is strongly encouraged to refer to the examples in Chapter 4_
when reading this chapter. The examples illustrate the use of MOBILE2's
options and data input requirements.
MOBILE2 utilizes one input data set that supplies program control
information and the data describing the scenarios for which emission
factors are to be calculated. The input data set consists of three
distinct sections: The CONTROL Section, the ONE-TIME DATA Section and
the PARAMETER Section.
The CONTROL Section is the part of the MOBILE2 input data that controls
the input, output and execution of MOBILE2. For example, the CONTROL
Section indicates if MOBILE2 will prompt for input, or analyze an
emission factor scenario with an inspection/maintenance program, or
analyze only non-methane hydrocarbons, or output the emission factors in
a format suitable for visual analysis, etc.
Certain parameters used in MOBILE2 calculations have internal default
values. The ONE-TIME DATA Section is the part of the MOBILE2 input data
set that allows the user to define parameter values different from those
assumed in MOBILE2 which will be used in the calculations of all
applicable emission factor scenarios. For example, in the ONE-TIME DATA
Section the vehicle-miles-traveled (VMT) mix, registration distributions^
and fleet mileage accumulation distributions can all be altered.
The PARAMETER Section is the part of the MOBILE2 input data set which
further describes the emission factor scenario being analyzed. For
example, the PARAMETER Section data includes the region of the country,
calendar year, speed, temperature, and possibly a specific VMT mix or
additional correction factors being stu4ied in the current analysis.
These three sections are described in greater detail in the remainder of
this chapter.
2.1 CONTROL SECTION
The CONTROL Section consists of 16 fields which are used for program
control. The values for the fields will be explained in later
subsections. The CONTROL Section is composed of two subsections:
1) Input and execution flags and 2) flags controlling output.
These 16 fields are referred to as FLAGS. With the exception of the
first and second fields, each flag contains a single digit value. These
flags are read in one of two input formats. The first format consists of
one field per record (I1,3A1/20A4/14(II/)). The second consists of one
field per record for the first two records but the remaining 14 single
digit fields are read from the third record (I1,3A1/20A4/14(I1,1X)),
-------
-13-
Each record of the CONTROL Section is required.
2.1.1 Input and Execution Flags
Records one through ten of the CONTROL Section are the input and
execution flags. These flags primarily control the input formats and
data requirements of MOBILE2. These ten factors are described below:
Record No. 1: IPROMT (controls input format and prompting)
IOUNEW (controls output unit numbers)
The Record No. 1 format is (II, 3A1).
The flag IPROMT controls two aspects of the input: 1) whether the user
wants prompting messages for interactive runs and 2) the arrangement of
input flags 3 through 16. The user may choose to enter these 14 input
flags on individual records (vertical format) or on one record
(horizontal format). MOBILE1 used only the vertical type of input format.
IPROMT should be set equal to 0 or 1 if the user desires vertical input.
Alternatively it should be set to 2 or 3 if the user desires horizontal
input. Setting IPROMT equal to 1 or 3 will make MOBILE2 print prompting
messages for the input; otherwise no prompting messages will appear. It
is suggested that a prompting option be used only if the user is
uncertain of the order of the input data. The IPROMT codes are
summarized in the following table:
IPROMT
0
1
2
3
Format
vertical
vertical
horizontal
horizontal
Prompting See Example^
no 1, 3, or 7
4, 6, or 8
2
no
yes
no
yes
The fields of IOUNEW on this first record control the unit devices desig-
nated for the various types of MOBILE2 output. There are three types of
output: 1) the estimated emissions reports, 2) diagnostic messages, and
3) prompting messages. MOBILE2 allows the user to specify separate out-
put unit devices for each type of output. MOBILE1 output was automati-
cally directed to a single output file. The MOBILE2 output units are
specified by three fields in IOUNEW as indicated below. If no values are
entered for the three fields, MOBILE2 will direct all output to unit 6.
IOUNEW
Field
1
2
3
Default
Unit
6
6
6
Unit
Contents
Formatted report output
Diagnostic messages
Prompting messages
Values of 1, 2, 3, 6, 7 and 8 are allowed by MOBILE2 for any IOUNEW
value. Values 4 and 5 are reserved as input device codes in MOBILE2 and
may not be used for any IOUNEW value. If an illegal or missing IOUNEW
value is encountered, MOBILE2 will revert to that unit's default value.
However, the user is warned that IOUNEW values considered valid for
MOBILE2 may not be appropriate for a given machine. All of the examples
-------
-14-
in Chapter 4 illustrate some aspect of the IPROMT flag with the IOUNEW
fields.
Record No. 2: PROJID (output title)
The Record No. 2 format is 20A4.
This record is printed at the top of the formatted emission output
report. The user may use up to 80 columns. The character string entered
on this record need not be left-justified. If the user does not want a
title, a blank record must be entered. See the examples in Chapter 4.
Record No. 3: INFLAG (controls READ statements)
The Record No. 3 format is 11.
INFLAG indicates the type of FORTRAN READ statement used by MOBILE2. The
value of 1 for this flag is used to perform all reads using the regular
FORTRAN fixed format. MOBILE1 had the option of list directed input.
This option has been eliminated from MOBILE2, but the flag is retained to
employ the MOBILE1 input sequence. See the example in Chapter 4.
Record No. 4: SPDFLG (controls speed inputs)
The Record No. 4 format is II.
SPDFLG is used to indicate whether the speed input in the PARAMETER
Section contains one average speed for all vehicle types or eight
different speeds; one for each vehicle type. Accordingly, the values for
this flag are either 0 or 2. See Example 5 in Chapter 4 for the eight
speed input option.
Record No. 5: VMFLAG (controls VMT inputs)
The Record No. 5 format is II.
VMFLAG is used to indicate whether the user is entering an estimated
vehicle-miles-traveled (VMT) mix or is using the VMT mix calculated by
MOBILE2. The VMT mix consists of a series of fractions that represent
the portion of the total VMT which is attributable to each of the eight
vehicle categories. The valid range of values for this flag are the
integer values of 0 through 2. See Examples 4 and 5 in Chapter 4. If
VMFLAG equals 0 the user takes no further action. If VMFLAG equals 1 the
user supplied VMT mixes are placed in the PARAMETER Section. If VMFLAG
equals 2 the user supplied VMT mix is placed in the ONE-TIME DATA Section.
Record No. 6: MYMRFG (controls annual mileage accumulation rate and
registration inputs)
The Record No. 6 format is II.
MYMRFG is used to indicate whether the user is entering estimated vehicle
registration and/or annual mileage accrual rate distributions or using
the MOBILE2 distributions. See Examples 4, 5 and 6 in Chapter 4. The
-------
-15-
data requirements of this flag are placed in the ONE-TIME DATA Section.
The values that are valid for the MYMRFG flag are 0, 1, 2, and 3. If
MYMRFG = 0, then no further action is taken by the user. If MYMRFG = 1,
2, or 3; then the user must supply the registration distributions, the
annual mileage accrual distributions, or both distribution sets;
respectively.
Record No. 7: ALTFLG (controls alternative basic exhaust emission rate
inputs)
The Record No. 7 format is II.
ALTFLG is used to indicate whether the user will modify any of the basic
exhaust emission rates used in the program. The possible input values
are 0 and 1. These values correspond to the use of the internal MOBILE2
emission rates or user supplied set of modified emission rates,
respectively. The data requirements for this flag are placed in the
ONE-TIME DATA Section.
Changes to the idle exhaust emission rates are not allowed with the use
of the ALTFLG, In fact, if the ALTFLG is employed to modify the basic
exhaust emission rates, the idle emission rates that correspond to the
altered pollutant, region, and vehicle-type will be zeroed. The idle
exhaust emission rates are assigned zero values to avoid possible
misinterpretation that might accompany the normal output of idle emission
factors (controlled by the IDLFLG flag; record No. 14). Since the basic
exhaust emission rates change, it is likely that the idle emission rates
would also change. However, the exact magnitude of the idle rate change
is unknown and therefore is not modeled in MOBILE2. Rather than output
the unmodified idle emission rates, MOBILE2 will output zero values. See
Example 2, 5 and 7 in Chapter 4.
Record No. 8; IMFLG (controls I/M credit inputs and usage)
The Record No. 8 format is II.
IMFLG is used to indicate whether the computed emission factors should
include credits for an Inspection and Maintenance (I/M) program. With
this flag the user may also indicate whether or not to alter any of the
following: the vehicle types affected by I/M, the Technology IV
identification rate, or the MOBILE2 I/M credits. See Examples 2, 5, and
6 in Chapter 4. The IMFLG flag has valid values of 0, 1, and 2. These
values correspond to a situation without an I/M program, a default
MOBILE2 type I/M program, and a user modified I/M program; respectively.
The data requirements for this flag are placed in the ONE-TIME DATA
Section and, if applicable, on input device unit 4. See Section 2.2.4
for additional information.
Record No. 9: ALHFLG (controls the inputs and usage of additional LD
correction factors)
The Record No. 9 format is II.
-------
-16-
ALHFLG is used to indicate whether the emission factor computation should
include the effects of the four "additional" correction factors for light
duty gasoline powered vehicles and trucks.
The meanings of the ALHFLG values are summarized below:
ALHFLG = 0 This value indicates that the user does not wish to apply
the "additional" correction factors.
ALHFLG = 1 This value indicates the use of the correction factors.
In this case the user supplies
1 air conditioning use factor;
3 extra load usage fractions (LDGV, LDGT1, LDGT2);
1 trailer towing fraction; and
1 humidity level,
ALHFLG = 2 This value indicates the use of the correction factors.
The user must supply
1 air conditioning use factor;
3 extra load usage fractions (LDGV, LDGT1, LDGT2);
3 trailer towing usage fractions (LDGV, LDGT1, LDGT2);
1 humidity level;
1 dry bulb temperature (used in calculation of the
frequency of air conditioner usage); and
1 wet bulb temperature (used in calculation of the
frequency of air conditioner usage).
The first two assignments of the ALHFLG flag are used in MOBILE2 as they
were in MOBILE1. The third value of the ALHFLG (ALHFLG=2) has been added
to MOBILE2 to calculate the air conditioning usage rate as a function of
ambient conditions (the dry and wet bulb temperatures).
If ALHFLG is equal to 1 or 2 each of the four correction factors is
always applied to all three light duty gasoline powered vehicle and truck
types: LDGV, LDGT1, and LDGT2. For motorcycles, only the humidity
correction is applied. None of these emission corrections are applied to
heavy duty vehicles or diesel vehicles. See Examples 4, 5 and 8 in
Chapter 4. The ALHFLG flag's data requirements must be placed in the
PARAMETER Section.
Record No. 10: TRKFLG (used only to maintain MOBILE1 input data sequence)
The Record No. 10 format is II.
In MOBILE1, TRKFLG indicated whether the emission factor computation for
heavy duty vehicles included the effect of the 'additional1 correction
factor based on the power/weight ratios of these vehicles. This
correction factor is no longer used. However, users must still submit
this record to preserve sequence compatibility with MOBILE1 input data.
If TRKFLG is set to 1, one line of dummy data must be entered in the
PARAMETER Section for each scenario to preserve the MOBILE1 record
sequence. The dummy data record may contain anything and will be
ignored. It is recommended that the user set the TRKFLG flag to 0 so no
data will be required in the PARAMETER Section. See Example 1 in
Chapter 4.
-------
-17-
Table 2.1.1A briefly describes the flags which control the input and
execution of the MQBILE2 program.
2.1.2 Flags Controlling Output
Records 11 through 16 of the input stream consist of a series of flags
that primarily control the form and content of the output from MOBILE2.
These records are described below:
Record No. 11; IFORM (controls output format)
The Record No. 11 format is II.
The flag IFORM indicates the structure of the formatted output which is
to be printed. The user may select an output data set that is primarily
numeric and therefore suitable for use as input to another program or an
output data set that is more suitable to visual analysis (descriptive).
Additionally, through the IFORM flag, the user selects which of the
vehicle types will be listed individually in the output. The user has
two options for the output of emissions by vehicle type: 1) output
includes LDGV, LDGT1, LDGT2, HDGV, HDDV, MC and ALL vehicle emissions
combined or 2) it includes all of the above plus LDDV, LDDT, and combined
LDGTs. In either case, the emission levels of the ALL vehicle combined
category are the VMT weighted combination of eight vehicle types: LDGV,
LDGT1, LDGT2, HDGV, LDDV, LDDT, HDDV and MC. A description of the output
structure associated with each value of the IFORM flag is given below.
Included in the description is the column width of the report.
IFORM Structure of Output See Example
0 Numeric; seven vehicle types in 132 columns 1
1 Descriptive; seven vehicle types in 80 columns 2 or 8
2 Numeric; ten vehicle types in 80 columns 3
3 Descriptive; ten vehicle types in 112 columns 4, 6, or 7
4 Descriptive; ten vehicle types in 80 columns 5
Record No. 12: PRTFLG (controls pollutant output)
The Record No. 12 format is II.
-------
-IB-
Table 2.1.1A
FLAGS CONTROLLING INPUT AND EXECUTION
Record
No
Variable
Name
Description
Format Value ACTION
Flag for prompting of input I1,3A1
Values for output units as follows:
1) X = Formatted reports unit.
2) Y = Diagnostic messages unit.
3) Z = Prompting messages unit.
IPROMT
IOUNEW
OXYZ - No prompting;
vertical format.
1XYZ - Program prompts
for input;
vertical format.
2XYZ - No prompting;
horizontal format.
3XYZ - Program prompts
for input;
horizontal format.
PROJID 80 characters for title used 20A4
as output header.
INFLAG Indicates formatted READ
II
1 - Formatted READ
SPDFLG Selects speeds for each
vehicle type.
II 0 - Input one speed for
all vehicle types. 1
2 - Input eight speeds;
one for each vehicle
type.l
VMFLAG Selects optional use of user II
supplied VMT mix among
vehicle types.
0 - Use MOBILE2 VMT mix.
1 - User supplies VMT
mix for each
scenario.l
2 - User supplies one
VMT mix for all
scenarios.^
MYMRFG Flag for optional input of
registration and/or mileage
accrual distributions.
II 0 - Use MOBILE2 registra-
tion and mileage accumula-
tion distributions.
1 - User supplies
mileage accumulation
distributions.^
2 - User supplies
registration
distributions.^
3 - User supplies
both distributions
r\
for all vehicle types.
ALTFLG Flag for optional modi-
fication of basic exhaust
emission rates by model year.
II 0 - Use MOBILE2 exhaust
emission rates.
1 - User modifies the
basic exhaust
emission rates.2
-------
-19-
Table 2.1.1A Continued
IMFLG Flag to^nclude Impact of
I/M program in calculations<
I
II 0 - No I/M program.
I - MOBILE2 supplied
I/M credits.2
2 - User modifies the
MOBILE2 I/M
9
program.
9 ALHFLG Flags optional use of four 11
special correction factors:
a) air conditioning; b) vehicle
load; c)trailer towing;
d) humidity(NOx only).
0
1
2
- No input values
required.
- Six input values
required. -*-
Ten input values
required. 1
10 TRKFLG Non-functional flag used to ~ II
maintain MOBILE1 input sequence.
0 - No further
information is
required,
1 - An addition line
is required.1
1 Input data must be placed in the PARAMETER Section.
2 Input data must be placed in the ONE-TIME DATA Section.
-------
-20-
PRTFLG is used to indicate which pollutants are to be printed on the
formatted output reports* If PRTFLG = 0, the emission factors are
printed for all three pollutants: HC, CO and NOx. If PRTFLG = 1, only HC
emissions are printed. If PRTFLG = 2, only CO emissions are printed. If
PRTFLG = 3, only NOx emissions are printed. See Examples 6, 7, and 8 in
Chapter 4.
Record No 13: ICEVFG (controls crankcase and evaporative HC input and
output)
The Record No. 13 format is II.
ICEVFG is used to indicate 1) whether the user wishes to enter trips per
day and miles per day information different than those in MOBILE2 and 2)
whether the user wants separate total crankcase and evaporative HC
emission factors to be printed. The HC emission factors printed in the
reports will always include the crankcase and evaporative HC emission
levels.
ICEVFG has four possible values that indicate the following:
ICEVFG = 0
a. No user input of trips per day and miles per day.
b. No additional crankcase and evaporative HC emission line printed.
See Examples 6 and 8 in Chapter 4.
ICEVFG = 1
a. No user input of trips per day and miles per day.
b« An additional crankcase and evaporative HC line printed.
See Examples 1, 2, or 4 in Chapter 4.
ICEVFG = 2
a. User supplies trips per day and miles per day.
b. No additional crankcase and evaporative HC line printed.
See Example 7 in Chapter 4.
ICEVFG = 3
a. User supplies trips per day and miles per day.
b. An additional crankcase and evaporative HC line printed.
See Examples 3 or 5 in Chapter 4.
If ICEVFG equals two or three then the trips per day and miles per day
information must be entered in the ONE-TIME DATA Section.
Record No. 14: IDLFLG (controls output of idle emission factors)
The Record No. 14 format is II.
IDLFLG is used to indicate whether or not idle emission factors
representing hot stabilized engine conditions are to be printed in
addition to the basic emission factors. If IDLFLG = 1, this option is
invoked. If IDLFLG=0, only the basic emission factors are printed. See
Examples 2, 4, 5, and 8 in Chapter 4.
-------
-21-
Record No, 15; NMHFLG (controls output of total or non-methane HC
emissions)
The Record No. 15 format is II,
NMHFLG is used to indicate whether total or non-methane HC emission
factors are to be generated and printed- If NMHFLG = 0, total HC
emissions are calculated and printed. If NMHFLG = 1, non-methane HC
emissions are calculated and printed. See Examples 2, 4, 5, and 8 in
Chapter 4.
Record No. 16; UNFFLG (used to maintain MOBILE1 input data sequence)
The Record No. 16 format is II,
The flag UNFFLG is non-functional in MOBILE2. UNFFLG was used in MOBILE1
to indicate whether the user desired an unformatted output data set to be
generated in addition to the formatted output data set. MOBILE2 provides
only formatted output reports, UNFFLG should always be set equal to
zero. See the examples in in Chapter 4,
Table 2.1.2A briefly describes the flags which control the MOBILE2 output.
2.2 ONE-TIME DATA SECTION
The ONE-TIME DATA Section contains information which, as the name
implies, is input only once to MOBILE2. This input information is used
to alter the internal MOBILE2 estimates to be locality dependent. For
example, a user can incorporate in this ONE-TIME DATA Section VMT,
mileage accural and/or registration distributions that are specific to
the area of concern. These records are optional; their use being
dictated by the values of some of the flags in the CONTROL Section. If
any of these records are included in the Input, they follow immediately
after the CONTROL Section in the order in which they are described below.
The ONE-TIME DATA Section will be included if one or more of the
following MOBILE2 options is selected:
1» The user wishes to supply a VMT mix which will be applied to all
emission factor calculations (VMFLAG=2).
2» The user wishes to use local mileage accumulation and/or
registration distributions (MYMRFG=1, 2, or 3).
3« The user wishes to modify the basic exhaust emission rates used
in the calculation of the emission estimates (ALTFLG=1).
4» The user wishes to include Inspection/Maintenance credits in the
emission factor calculations (IMFLG=1 or 2).
5. The user wishes to modify the average number of trips per day
and miles per day for the calculation of evaporative HC
emissions (ICEVFG=2 or 3).
In the ONE-TIME DATA Section, the data requirement order is the same
order as the associated flags in the CONTROL Section.
-------
-22-
TABLE 2.1.2A
FLAGS CONTROLLING OUTPUT
Record Variable
No
Name
Description
Format Value
ACTION
II 0 - Numeric output
(same as MOBILE1).
1 - Descriptive output
(same as MOBILE1).
2 - Numeric output;
emissions
additionally
listed for the
LDDV, LDDT and
combined LDGT
vehicle types.
3 - Descriptive output
in 112 columns;
emissions
additionally
listed for the
LDDV, LDDT and
combined LDGT
vehicle types.
4 - Descriptive output
in 80 columns;
emissions
additionally
listed for the
LDDV, LDDT and
combined LDGT
vehicle types.
11 IFORM Selects the structure of
formatted output report. All
output structures list
emissions for LDGV, LDGT1
LDGT2, HDGV, HDDV, MC and
ALL vehicle emissions combined.
12 PRTFLG Selects which pollutants
are included in output.
II 0 - HC, CO, and NOx.
1 - HC only.
2 - CO only.
3 - NOx only.
13 ICEVFG Controls user input of
trips/days and miles/day
and additional listing of
crankcase and evaporative
HC emissions.
II 0 - No user input; no
additional input.
1 - No user input;
additional output.
2 - User inputs-*-; no
additional output.
3 - User inputs-'-;
additional output.
14 IDLFLG Controls output of idle
emission factors.
II 0 - No idle output.
1 - Output idle
emission factors.
15 NMHFLG Selects total or non-methane
HC calculations and output.
II 0 - Total HC.
1 - Non-methane HC.
-------
-23-
Table 2.1-2A (Continued)
16 UNFFLG Flag no longer used except II 0 - Formatted output.
to maintain MOBILE1 input
record sequencing •
Data requirements must be placed in the ONE-TIME DATA Section.
-------
-24-
2.2.1 One-Time VMT Mix
If VMFLAG (Record No. 5) has the value 2, this record is required. It
contains the VMT mix that the user wishes to use. The record has the
format 8F4.3, where the eight values are the fractions of the total VMT
attributable to each of the eight vehicle types. The VMT fractions are
entered in the following order: LDGV, LDGT1, LDGT2, HDGV, LDDV, LDDT,
HDDV and MC. The eight fractions should sum to 1.0. See Example 5 in
Chapter 4.
If a different VMT mix is desired for each scenario or calendar year, the
VMFLAG should be assigned the value 1, and the VMT mixes should be
entered in the PARAMETER Section as described in Section 2.3.2.
2.2.2 Mileage and Registration Distributions
If MYMRFG (Record No. 6) has any of the values 1, 2, or 3, this group of
records is required. Depending upon which of the MYMRFG values is
assigned, the user must enter annual mileage accrual data, vehicle
registration data, or both. Each of these distributions is entered on 16
records, two records for each vehicle type, 10 years per record. The
order of vehicle types is LDGV, LDGT1, LDGT2, HDGV, LDDV, LDDT, HDDV and
MC. The format of each record is 10F5.3.
If MYMRFG = 1, the user must input the distribution of annual mileage
accrual rates for each of the eight vehicle types. As mentioned above,
the annual mileage accrual rates must be entered on 16 records; two for
each vehicle type. Further, the annual mileage accrual rates must be
divided by 100,000 miles. The first record of each vehicle type must
contain the annual rates of mileage accrual expressed in units of one
hundred thousand miles for model year indices 1 through 10. The second
record of each vehicle type must contain the same information for model
year indices 11 through 20+.
If MYMRFG = 2, the user must input the July 1 vehicle registration
distributions for each of the eight vehicle types. These registration
distributions must be entered on 16 records; two for each vehicle type.
The first record of each vehicle type must contain the registration
distribution for model year indices 1 through 10. The second record of
each vehicle type must contain the same information for model year
indices 11 through 20+. The 20 registration fractions for each vehicle
type should sum to 1.
IF MYMRFG = 3, the user must input both of the above distributions for
each vehicle type. For this situation, the entire set of 16 annual
mileage accumulation rate records precedes the 16 registration
distribution records.
If the MYMRFG flag is set to 1, 2, or 3; the mileage and/or registration
data for all eight vehicle types must be entered. If the user wishes to
input local data for fewer than the eight vehicle types, then the local
data (for the fewer number of vehicle types) must be supplemented with
the data listed in the BLOCK DATA 2 subroutine. Further, the LDGV and
LDDV registration distributions must equal each other for all 20 years.
-------
-25-
If they are not equal, MOBILE2 will produce an error message and the
program will terminate. The registrations of the LDGV and LDDV vehicle
types are grouped into one light duty vehicle (LDV) fleet. From this
combined LDV fleet, MOBILE2 separates the registrations of the diesel
powered from the gasoline powered vehicles by using the fleet sales
fractions (i.e., dieselization rates). Similarly, the LDGT1 and LDDT
registration distributions must be equal. No similar restrictions are
placed on the mileage accrual distributions. See Examples 4, 5, and 6 in
Chapter 4.
2.2.3 Emission Factor Modification Data
If ALTFLG (Record No. 7) has the value 1, the user is required to input
information describing how the basic emission rates are to be modified.
This option requires the user to input two types of records. The first
type consists of a single field which specifies the number of basic
exhaust emission rates that will be altered. An 12 format is used for
this first record. This record is immediately followed by a number of
records equal to that specified on the first record. Each record of the
second type contains the following information (the valid range of each
integer field is given in parenthesis):
I, Region code (1: Low altitude non-California, 2: California,
and 3: High altitude non-California).
2. Vehicle type code (1; LDGV, 2: LDGT1, 3: LDGT2, 4: HDGV,
5: LDDV, 6: LDDT, 7: HDDV, and 8: MC).
3. Pollutant code (1: HC, 2: CO, and 3: NOx).
4. First model year for which factors are to be modified
(51-99, 00-20; the last two digits of the model year).
5. Last model year for which factors are to be modified
(51-99, 00-20, but not less than the value in item 4 after
conversion to a four-digit year).
6. User specified zero mile emission level.
7. User specified emission deterioration rate.
The format of this type of record is 3(11,IX), 2(12,IX), F6.2, IX, F6.2.
Current program dimensions allow up to 15 basic emission rates (model
year groups) to be used for a given pollutant/region/vehicle-type
combination. The original equations incorporated within MOBILE2 take up
some of the 15 spaces. Users may enter alternative emission equations
into the remaining spaces. The number of alternative equations that can
be entered for any pollutant/region/vehicle-type combination is therefore
15 minus the original number. The maximum number of alternative
equations are given in Table 2.2.3A, If the user specifies a number of
alternative equations which exceeds the allowed dimensions, MOBILE2 will
not process the run stream since incorrect calculations would result.
MOBILE2 will identify all of the equations that exceed the allowed
dimensions. See Examples 2, 5,and 7, in Chapter 4.
-------
-26-
Table 2.2.3A
NUMBER OF ALTERNATIVE EQUATIONS THAT CAN BE ENTERED IN MOBILE2
BY POLLUTANT, REGION (LOW ALTITUDE/CALIFORNIA/HIGH ALTITUDE),
AND VEHICLE TYPE
Vehicle
Type H£ C0_ NOx
LDGV 7/5/3 6/5/3 8/6/4
LDGT1
LDGT2
HDGV
LDDV
LDDT
HDDV
MC
5/4/2
7/6/6
9/7/9
9/8/7
11/12/11
13/13/13
12/10/12
5/5/2
7/6/6
9/7/9
9/8/7
11/12/11
13/13/13
12/10/12
7/7/4
8/6/7
9/7/9
7/8/7
11/11/11
13/11/13
12/10/12
2.2.4 Inspection/Maintenance Data
If IMFLG (Record No, 8) has the value 1, the user must input one record
describing several Inspection/Maintenance program parameters. The five
required parameters are listed below followed by allowable ranges in
parentheses:
1. Last two digits of year of I/M program implementation (70-99,
00-20).
2. Stringency level of I/M program (10-50).
3. Mechanic training flag (IMTFLG), indicating whether mechanic
training is an integral part of the I/M program (0-No/l-Yes).
4. Earliest taodel year included in I/M program (51-99, 00-20),
5. Latest model year to be included in the I/M program (51-99,
00-20, but not earlier than value in item 4).
The last two items give the user the capability of excluding a specified
range of model years from the I/M program. If all years are included in
the program, the last two items should be given the values 51 and 20;
respectively.
The format of this record is 12,IX,12,IX,II,IX,12,IX,12. The I/M credits
incorporated into the emission factors under this option assume an annual
January 1 inspection cycle.
If IMFLG has the value of 2, the information above plus three additional
values must be given. The three additional pieces of information are as
follows:
6, The type of vehicles to be affected by I/M (0-3)
0 - LDGV.
1 - LDGV and LDGT1.
2 - LDGV and LDGT2.
3 - LDGV and LDGT1 and LDGT2.
7. The identification rate for Technology IV vehicles (50-90).
This rate is the assumed rate of identifying (correctly failing)
Technology IV vehicles operating in a rich failure condition-
Technology IV vehicles are typically 1981 and later Low altitude
-------
-27-
non-California model year LDGVs or other vehicle types with
equivalent technologies.
8. The new data flag which indicates whether or not alternative I/M
credits are used in the MOBILE2 analysis. If this flag has a
value greater than zero, new I/M credit data need to be supplied
on Unit 4. The new I/M credit data are generated from an I/M
applications simulation package. The possible values for the
alternative I/M data flag are as follows:
0 - No alternative I/M credits.
1 - Alternative Technology I and II I/M credits.
2 - Alternative Technology IV I/M credits.
3 - Alternative I/M credits for all Technologies.
The format of the entire record including these three additional values
is 12,, IX, 12, IX, II,IX, 12, IX, 12, IX, II, IX, 12, IX, II.
If IMFLG has the value of 1, MOBILE2 will assume that only LDGV's are
affected by I/M, that the identification rate of Technology IV vehicles
is 50, and that the new data flag is 0.
If users in a locality have an I/M program that cannot be simulated with
the existing I/M software in MOBILE2, they should contact the I/M Staff
of the U.S. EPA in Ann Arbor, Michigan, for alternate I/M credits. It is
recommended that users not alter the MOBILE2 I/M credits without the
guidance of the I/M staff. They support and maintain an I/M application
simulation package that will produce alternative I/M credits specific to
the user's locality. The simulation package produces the necessary
information that is used directly by MOBILE2. Therefore, users should
set the alternative I/M credit flag to zero until they have received
alternative I/M credits from the I/M staff.
See Examples 2, 5, and 6 in Chapter 4.
2.2.5 Average Trips per Day and Average Miles per Day
If ICEVFG (Record No. 13) is set equal to 2 or 3, the user must enter
records that contain the average trips per day and average miles traveled
per day for each vehicle type. These are used to calculate total
crankcase and evaporative HC emissions in grams per mile. This data
should be entered on two records. The first record must contain the
average number of trips per day for each of the eight vehicle types. The
second record must contain the average miles traveled per day for each of
the eight vehicle types. Both records have an "8F5.1" format and the
data should be entered for the vehicle types in the following order:
LDGV, LDGT1, LDGT2, HDGV, LDDV, LDDT, HDDV and MC. See Examples 3, 5,
and 7 in Chapter 4.
2.3 PARAMETER SECTION
This section contains one or more groups of records describing the
scenarios for which emission results are to be calculated. This section
of input data follows the ONE-TIME DATA Section, if it exists; otherwise,
it follows the CONTROL Section.
-------
-28-
The user can calculate emissions for one or more scenarios. Each
scenario is associated with one group of PARAMETER Section records.
The program terminates execution upon detecting an end-of-file condition.
Each group of PARAMETER Section records is composed of one to four
records, the number being determined by the values of certain flag values
in the CONTROL Section. The four possible records are as follows:
1. Scenario record (required).
2. VMT record (optional; required if VMFLAG = 1).
3. Additional LD correction factor record (optional; required
if ALHFLG = 1 or 2).
4, Additional HDV Correction Factor Record (optional, but not
recommended for use; required if TRKFLG = 1; see Section
2.3.4).
In the PARAMETER Section, the order of the optional records is the same
order as the associated flags in the CONTROL Section.
The PARAMETER Section records are described below.
2.3.1 Scenario Record
Each scenario record contains the seven values describing the scenarios
for which a set of emission factors is to be calculated.
-------
-29-
The seven fields comprising each scenario record are described below in
Table 2.3.1A.
Table 2.3.1A
DESCRIPTION OF FIELDS ON THE SCENARIO RECORD
Field Var. Description Format
Name
1 IREJN Specifies region for which 11
emission factors are to
be computed.
Allowed Values
1 = Low Altitude
(49-State).
2 = California
(Low altitude)
3 = High Altitude
(49-State).
CY
Last 2 digits of calendar
year for which emission
factors are to be calculated.
12
70 < = CY < = 99 or
00 < = CY < = 20
SPD The single average route F4.1
speed for which emissions
are bein& calculated. 1
or SPD(8) The separate average speeds 8(F4.1, IX)
for each of the eight vehicle
types^.
TAMB Ambient temperature, in
degrees Fahrenheit.
F4.1
5. < = SPD < = 55. mph
5. < = SPD < = 55. mph
0°. < = TAMB < = 110.'
PCCN Percent of VMT accumulated F4.1
in cold start mode by non-
catalyst equipped vehicle types.
0. < = PCCN < = 100.
PCHC Percent of VMT accumulated F4,l
in hot start mode by catalyst
equipped vehicle types.
0. < = PCHC < = 100.
PCCC Percent of VMT accumulated F4.1
in cold start mode by catalyst
equipped vehicle types.
0.< = PCCC.< = 100.
The one average speed input is required if SPDFLG = 0,
The eight average speed inputs are required if SPDFLG = 2.
-------
-30-
There is a one-column space between each of the above scenario fields.
As a result, the FORTRAN format for each scenario record is either (II,
IX, 12, 5(1X, F4.1)) or (II, IX, 12, 12(1X, F4.1)) depending upon the
SPDFLG option.
The user should note that the percentage of VMT accumulated in the hot
start mode by non-catalyst equipped vehicle types is not required for
input. MOBILE2 calculates this quantity from the three similar values
entered and equates it to the quantity PCHC + PCCC - PCCN. This
constraint equation assumes that the percentage of hot stabilized VMT is
equal for catalyst equipped and non-catalyst equipped vehicles. Other
constraints are that both quantities PCHC + PCCC and PCHC + PCCC - PCCN
must be in the zero through 100 percent range.
The user should not expect the sum of PCCN + PCHC + PCCC to equal 100%.
While it is true that %cold start VMT + %hot start VMT + %hot stabilized
VMT always equals 100% (and separately for catalyst equipped and
non-catalyst equipped vehicles), the three items PCCN, PCHC, and PCCC are
not equivalent to these variables.
Further, the user should be aware that the basic condition estimates for
these variables are representative of the average number of daily trips
per vehicle type. PCHC, PCCC, and PCCN are used in the calculation of
the speed/temperature/operating-mode correction factor for the LDVs,
LDTs, and MCs. It is assumed that LDDs and MCs are always non-catalyst
equipped.
VALUES MUST BE ENTERED FOR ALL FIELDS IN THE SCENARIO RECORD. THERE ARE
NO DEFAULT VALUES FOR THESE VARIABLES.
2.3.2 VMT Mix Record
If VMFLAG (Record No. 5) has the value 1, a VMT record is required
following each scenario record. It contains the VMT mix that the user
wishes to use for this scenario only. The record has the format 8F4.3,
the eight values are the fraction of the total VMT for each of the eight
vehicle types. The eight fractions should sum to 1. If the same VMT mix
is to be used for each scenario, VMFLAG should be set to 2 and the VMT
mix entered in the ONE-TIME DATA Section. See Section 2.2.1 above. Also
see Example 4 in Chapter 4.
2.3.3 Additional LOG Correction Factors Record
If ALHFLG (Record No. 9) equals 1 or 2; this record is required. One of
the following records is required for each scenario record.
ALHFLG = 1. The format of the additional LDV correction factor
record is 6F4.3. The six values to be supplied are as follows:
One air conditioning factor used to indicate whether or not air
conditioning effects are to be accounted for in the resulting
emission factors. If the factor entered is zero, then no air
conditioning correction factors are applied. If the factor
-------
-31-
entered is greater than zero (but must be less than or equal to
1.0), air conditioning correction factors are applied. In
MOBILE1 this factor is the percentage of A/C equipped vehicles
with A/C in use. However, MOBILE2 uses the input factor as a
yes or no condition switch and calculates the percentage in
use. The selection of an air conditioning correction factor is
handled this way to provide compatibility with MOBILE1 input
data.
Three extra load fractions (LDGV, LDGT1, and LDGT2). These
values are the fractions of each vehicle type with an extra 500
pound load. These fractions must be in the range of zero
through one.
One trailer towing fraction. This value is the fraction of
light duty vehicles and trucks towing a trailer. This fraction
must be in the range of zero through one.
One humidity value. This value is the absolute (specific)
humidity in grains of water per pound of dry air that is to be
modeled and must be in the range of 20 through 140.
ALHFLG = 2. The format of the record is (8F4.3.2F4.1). When ALHFLG
= 2, the inputs for the additional LD correction factor parameters
are the same as for ALHFLG = 1, except that there are separate
trailer towing fractions for LDGV, LDGT1, and LDGT2. Also, dry and
wet bulb temperatures are required. MOBILE2 calculates the A/C usage
fraction based on the ambient dry and wet bulb temperatures that are
input.
If the extra load or trailer towing parameters are set to zero, then
their respective correction factors will calculate to 1. If humidity is
set to 75, the humidity NOx correction factor will calculate to 1. See
Examples 4, 5, and 8 in Chapter 4.
2.3.4 Additional HDV Correction Factor Record
MOBILE2 does not calculate an additional HDV correction factor as does
MOBILE1. However, if TRKFLG (record No. 10) equals 1, a record is
required in the PARAMETER Section to preserve input sequence
compatibility with MOBILE1. Any data (or blank line) may be entered.
One of these records is required for each scenario record. This record
will not be used in MOBILE2 calculations, thus users should set TRKFLG to
0 to avoid this data requirement. See Example 1 in Chapter 4.
2.4 SUMMARY OF MOBILE2 INPUT SEQUENCE
Table 2.4.1A lists the input records for a MOBILE2 run, in the order
required by the program.
Records in parentheses are optional, and are required only if certain
flags are set. Records without parentheses are required.
-------
-32-
Table 2.4.1A
MOBILE2 INPUT RECORD SEQUENCE SUMMARY
INPUT RECORD SEQUENCE
IPROMT FLAG record
PROJ1D record
INFLAG FLAG1 record
SPDFLG FLAG1 record
VMFLAG FLAG1 record
MYMRFG FLAG1 record
ALTFLG FLAG1 record
IMFLG FLAG1 record
ALHFLG FLAG1 record
TRKFLG FLAG1 record
IFORM FLAG1 record
PRTFLG FLAG1 record
ICEVFG FLAG1 record
IDLFLG FLAG1 record
NHMFLG FLAG1 record
UNFFLG FLAG1 record
(1 VMT MIX record, required if VMFLAG = 2)
(16 MILEAGE ACCRUAL records, required if MYMRFG = 1 or 3)
(16 REGISTRATION DISTRIBUTION records, required if MYMRFG = 2 or 3)
(2-100 EMISSION FACTOR MODIFICATION records, required if ALTFLG = 1)
(1 I/M PARAMETER record, required if IMFLG = 1 or 2)
(1 TRIPS/DAY record, required if ICEVFG = 2 or 3)
(1 MILES/DAY record, required if ICEVFG = 2 or 3)
1 SCENARIO record
(1 VMT MIX record, required if VMFLAG = 1)
(1 LD ADDITIONAL CORK. FACTOR record, required if ALHFLG = 1 or 2)
(1 HD ADDITIONAL CORR. FACTOR record, required if TRKFLG = 1)
SECTION
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
ONE-TIME DATA
ONE-TIME DATA
ONE-TIME DATA
ONE-TIME DATA
ONE-TIME DATA
ONE-TIME DATA
ONE-TIME DATA
PARAMETER2
PARAMETER
PARAMETER
PARAMETER
These 14 flags are inputted on a single record if IPROMT = 2 or 3.
The sequence of records in the PARAMETER Section is repeated in order
for as many scenarios as the user requires.
-------
-------
-33-
Chapter 3
MOBILE2 OUTPUT
3.0 INTRODUCTION
MOBILE2 has three types of output: formatted reports, diagnostic messages
and prompting messages. Each of these output types are discussed within
this chapter.
Five types of formatted reports can be selected in MOBILE2. These
reports include the information necessary to identify the scenario being
studied and the calculated emission factors by vehicle type. The type of
formatted report that is output by MOBILE2 is controlled by the IFORM
flag in the CONTROL Section.
The diagnostic messages are used in MOBILE2 to identify dubious data.
Three types of diagnostics exist: errors, warnings, and comments. In all
cases, an error will terminate the program. Warnings and comments are
included for users to analyze the results given by MOBILE2.
Prompting messages are available from MOBILE2 depending upon the value
entered by the user for the IPROMT flag. These messages prompt the user
to insert the MOBILE2 input data in the proper sequence. There are two
basic types of prompting messages: for vertical data input and
hortizontal data input. Except for the data supplied in the CONTROL
Section, both types of prompting messages are identical.
3.1 FORMATTED REPORT OUTPUT
There are five different types of formatted output. The user specifies
which of the five is to be generated by choosing the IFORM value (Record
No. 11). If IFORM = 0 or 2, MOBILE2 generates a formatted data set
suitable for use as input to subsequent computer analysis ("numeric"
output). If IFORM = 1, 3, or 4, a more descriptive report is
generated. These latter three "descriptive" outputs are designed to
provide a well annotated record of the user's analysis.
If IFORM «= 0 or 1, MOBILE2 prints reports that are almost identical to
the MOBILE1 program. However, MOBILE2 reported emission values will
differ from MOBILEl's due to changes in calculations and emission
factors. When IFORM = 0 or 1, printed reports do not contain all the
information. Specifically, neither LDDV nor LDDT information is
displayed when IFORM = 0 or 1.
Expanded reports may be obtained by setting IFORM = 2, 3, or 4. The
expanded reports include a listing of LDDV and LDDT emission results as
well as a combined LDGT category results. Although individual light duty
diesel results are not printed for IFORM ™ 0 or 1, the "total" emissions
do include diesel emissions.
-------
-34-
3.1.1 Original (MOBILE1) Numeric Format (IFORM=0)
When IFORM=0, the original (MOBILE1) "numeric" format is generated, The
output consists of four heading records (to give minimal column
descriptions), followed by one record for each pollutant (selected by
PRTFLG) for each scenario, When 1CEVFG » 1 or 3 (print crankcase and
evaporative HC emissions) and PRTFLG » 0 or 1 (print HC), the evaporative
HC emission factor is printed with 'E' as the pollutant identifier (in
addition to the HC emission factors).
For example, if the user wishes to calculate emission results for 10
scenarios and wishes to output emission factors for all three pollutants,
there will be a total of 30 data records in the output data set for the
scenarios plus the four heading records. However, if the value of PRTFLG
(Record No. 12) is 2 (print CO only), for example, 14 records will be
printed for the 10 scenarios (the 10 scenarios plus four heading records).
Each numeric output record has 23 columns. These columns are described
below:
The record contains fields that correspond to (reading from left to
right) the region, the calendar year, three speeds (LDGV, HDGV and MC,
which will be identical if SPDFLG=0), the ambient temperature, the three
VMT cold/hot start percentages (PCCN, PCHC, and PCCC), pollutant code
('!' for HC, '2' for CO, '3' for NOx, and 'E1 for the crankcase and
evaporative HC emissions), the six composite emission factors (for the
six vehicle types; excluding the LDDV and LDDT emissions), six VMT
fractions, and the average emission factor for all vehicles combined
(including LDDVs and LDDTs). This record lists the data on the input
SCENARIO record, followed by six vehicle type emission factors, the VMT
mix, and the average combined emission factor for all eight vehicle
types. See Example 1 in Chapter 4.
3.1.2 Original (MOBILE1) Descriptive Format (IFORM«1)
The original "descriptive" format output data set is created if IFORM=1.
This data set is organized for easy visual analysis. The information
generated in this data set is described below:
The first line printed is the title provided by the user in the second
input record.
If ALTFLG-1, the output then contains a listing of the emission rate
modification information. This is described in detail later within this
subsection.
This is followed by a reminder that the HC emission factors include
crankcase and evaporative HC emission factors. The rest of the emission
report output consists of one or more sections, identical in format,
which are separated by dashed lines. Each section corresponds to one
calendar year of the emission output.
Each of these sections consists of two parts: the top part describes the
scenario for which emission factors are calculated; the bottom part
presents the calculated emission factors.
-------
-35-
The first line of the output describing the scenario lists the calendar
year, temperature, and VMT mix being modeled. If the user did not
include a VMT mix in the input data set, the calculated MOBILE2 VMT mix
is listed. The second line begins with the identification of the region
(49-State Low altitude, California, or 49-State High altitude). This is
followed by speed information. The speeds for LDGV, HDGV and MC are
separated by slashes. The speed for the HDGV speed correction
calculation is given again in parentheses. In the case of SPDFLGO, all
of these speed values are identical. The speed information is followed
by the operating mode VMT percentages from the SCENARIO record.
If the user has set either ALHFLG or IMFLG to be greater than 0,
additional lines follow describing input parameters associated with these
options.
The bottom part of each output section displays the computed emission
factors. The emission factors for the six vehicle types are listed in
the first six columns. Light duty diesel vehicles (LDDV) and light duty
diesel trucks (LDDT) are not printed. The next column contains the
average combined emission factor for all vehicles, which has been
calculated from the vehicle-specific emission factors and the VMT mix,
and includes LDDVs and LDDTs.
As mentioned above, if ALTFLG=1, the output begins (following the title)
with a listing of the emission rate modification information. The
modification information listed in this printed description is the same
data that the user included in the input data set. The columns labeled
"BASE" and "DR" refer to the new zero mile emission level and emission
deterioration rate; respectively. There is an additional column labeled
"ALTERED", which will have one of two entries: "YES" or "NO". If a
listed emission factor modification has the value "YES" in this column,
the modification was made and the new factor has been used in the MOBILE2
run. If a listed modification has the value "NO", the modification was
not made due to constraints on the size of internal program arrays.
See Examples 2 and 8 in Chapter 4.
3.1.3 Expanded Numeric Format (IFORM=2)
An expanded "numeric" format report is generated if IFORM = 2. The data
set consists of a title and twelve heading records (to give minimal
column descriptions), followed by a group of records for each pollutant
(selected by PRTFLG) for each scenario. Each group of records consists
of 3 lines of output. If PRTFLG = 0 or 1 and ICEVFG = 1 or 3, the
crankcase and evaporative HC emissions are displayed with "E" as the
pollutant number-
For example, if the user calculates emissions for 10 scenarios and prints
emissions factors for all three pollutants (PRTFLGO and ICEVFG = 0 or
2), 90 data records (excluding heading records) will be generated. On
the other hand; if PRTFLG equals 2, thirty data records (excluding
heading records) will be generated for 10 scenarios.
-------
-36-
The information printed on each record is described below.
Each record within the three record group is labeled either "A", "B", or
"C". The records contain the following fields, from left to right;
The "A" record contains the region, calendar year, eight vehicle speeds
(identical if SPDFLG = 0), ambient temperature, three cold/hot start VMT
percentages, and altitude;
The "B" record contains the pollutant code (1=HC, 2=CO, 3=NOx, and '£'
for the crankcase and evaporative HC emissions), nine calculated emission
factors (for the eight ordinary vehicle types plus the combined LDGT);
The "C" record contains the VMT mix, and the average emission factor for
all vehicles combined.
Thus, this record group lists the input data entered on the input
SCENARIO record, followed by the emission factors for nine vehicle types,
the VMT mix, and the average emissions for all vehicles combined. See
Example 3 in Chapter 4.
3.1.4 Expanded 112-Column Descriptive Format (IFORM=3)
A "descriptive" format output data set is created if IFORM = 3. This
data set is organized for easy visual analysis. The information
generated in this data set is much the same as that given when IFORM = 1,
with two basic exceptions: 1) the arrangement of the output is different
and 2) the combined LDGT category as well as the LDDV and LDDT emissions
are listed.
The first line printed is the identifying title assigned by the user in
the second Input record.
If ALTFLG=1, the output then contains a listing of the emission rate
modification information. This is described later within this subsection.
This emission rate modification information is followed by a note
reminding the user that HC emission factors include crankcase and
evaporative HC emissions. The rest of the output consists of one or more
sections of emission results with appropriate headings. Each section
corresponds to a given calendar year; successive sections are separated
by dashed lines.
Each of these sections consists of two parts: the top part describes the
scenario for which emission factors are calculated; the bottom part
presents the calculated emission results.
The first line of the descriptive portion of the output lists the
calendar year, region, altitude, ambient temperature, and the cold/hot
start VMT percentages used in the scenario. As an option (ALHFLG=2), the
next line can list the A.C, usage fraction, the dry/wet bulb
temperatures, and the absolute humidity. A further option may be
selected such that the next five to fourteen lines contain the I/M
program information. These optional lines depend on the flag IMFLG.
-------
-37-
If an I/M program has been specified (IMFLG = 1 or 2), five lines are
produced which display (line 1) the starting year of the I/M program and
the vehicle types affected, (line 2) the stringency level and mechanic
training indicator, (line 3) the model years affected by the I/M program,
and (lines 4&5) the Technology IV identification rate.
If the user has supplied new I/M credits (IMFLG=2 and NUDATA= 1, 2, or
3), then zero to nine text lines input by the user on unit 4 will be
displayed.
The columns in the succeeding lines are organized by vehicle type. In
some instances, column entries will be blank indicating that the
parameters are not applicable to certain vehicle types. Each additional
line lists the values of one parameter. The lines are arranged in the
following sequence; vehicle speeds, VMT mix, extra load usage fractions,
trailer towing usage fractions, basic exhaust emission factors> and idle
emission factors. The extra load and trailer towing lines are both
optional. They are listed only when ALHFLG= 1 or 2. The emissions
listed are those selected by the flags: PRTFLG, ICEVFG, IDLFLG, and
NMHFLG.
As mentioned above, if ALTFLG = 1, the output begins (after the title)
with a listing of the emission rate modification information. The
printed description consists of the same data the user included in the
input data set. The columns labeled "BASE" and "DR" refer to the new
zero mile emission level and emission deterioration rate; respectively.
See examples 4, 6, and 7 in Chapter 4.
3.1.5 Expanded 80-column Descriptive Format (IFORM=4)
An 80-column "descriptive" format output data set is produced if
IFORM=4. This data set is organized for easy visual analysis on a
terminal which only permits 80-column output. The information generated
in this data set is identical to the output generated when IFORM=3;
except the width and placement of ambient temperature and cold/hot-start
percentages are changed. These values are printed on the line following
the "CAL YEAR" line. See Example 5 in Chapter 4.
3.2 DIAGNOSTIC MESSAGES
This section describes the MOBILE2 diagnostic messages. Running MOBILE2
can result in three types of diagnostic messages: (1) error messages,
(2) warning messages, or (3) comments. Appendix A will describe the
program variables given in the diagnostics messages.
Error messages indicate either invalid input data were entered into
MOBILE2, or MOBILE2 attempted to perform invalid operations. All error
messages are prefixed by "***ERROR;". If a number follows "***ERROR:",
it is the value read by MOBILE2 for the variable in error (the variable
name is also printed). If the error message is due to an input value
that is an out of bounds, the range of acceptable values is also
printed. An error will stop a MOBILE2 run.
-------
-38-
Warning messages indicate that MOBILE2 input data caused an operation not
necessarily intended by the user. However, the situation is not serious
enough to be labeled an error. Nonetheless, users should examine the
warning messages to ascertain the conditions that were modeled.
Comments are a type of warning message that are printed for the user's
information. Neither a warning nor a comment will stop a MOBILE2 run.
The following is a list of the individual error, warning, and comment
messages. Since most messages refer to user-input values, the messages
are mostly grouped by input record type.
3.2.1 FLAG (CONTROL Section) Record Diagnostics
El. "ERROR: 'value of IPROMT1 OUT OF BOUNDS FOR FLAG IPROMT
PROMPT/MODE TYPE (0 to 3) MUST BE CORRECTED BEFORE YOUR NEXT RUN."
This message appears if IPROMT does not equal 0, 1, 2, or 3. This
correction must be made before the program will proceed.
E2. "YOU MUST CORRECT ALL FLAGS BEFORE YOU RUN AGAIN."
This message appears if there is an error in reading the CONTROL flags.
It should appear after a list indicating which flags are in error (see
E3). The flags in error must be corrected before the program will
continue.
E3. "ERROR: 'value of flag' OUT OF BOUNDS FOR FLAG 'name of flag'"
This error message precedes the E2 message and program termination.
This message will appear for each flag which is in error. The number
appearing after "ERROR;" is the value of the flag read by the program.
The allowable flag values are listed in the CONTROL Section (2.1). Each
of these messages indicate the value falls outside of the valid bounds
for that flag.
Wl. "WARNING: FLAG TRKFLG IGNORED. "TRKOPC" NO LONGER USED."
TRKFLG is a flag used in MOBILE1 to indicate whether to consider a
power/CID correction factor for heavy duty vehicles. This correction
factor is not used in MOBILE2. Setting TRKFLG = 0 will eliminate this
warning. See Section 2.1,1.
W2. "WARNING: FLAG UNFFLG IGNORED. NO FILE WILL BE WRITTEN"
This message is printed if UNFFLG does not equal 0. UNFFLG Is the flag
used in MOBILE1 to print an unformatted output. This option is not
available in MOBILE2. Setting UNFFLG = 0 will eliminate this warning.
See Section 2.1.2.
Cl. "COMMENT: CURRENT OUTPUT UNIT NUMBERS ARE
IOUUNF = 'unformatted unit'
IOUREP = 'formatted report unit1
IOUERR = 'error/warning/comment unit'
IOUASK = 'prompt message unit'
This message appears whenever any of the default output units numbers are
changed,.
-------
-39-
3.2.2 VMT Mix Record Diagnostics
E4. "ERROR: 'value of VMTMIX(I)' OUT OF BOUNDS FOR VMTMIX (0. TO 1.)"
This message is printed if a value of VMTMIX(I) (vehicle-miles-traveled
fraction for vehicle type I) is not between 0, and 1. See Section 2.2.1.
E5. "ERROR: 'Value of VMTMIX SUM' SUM OF VMTMIX IS NOT EQUAL TO 1.
This message is printed if the sum of VMTMIX(I) over all vehicle types is
not equal to 1. Since each VMTMIX(I) represents the fraction of total
miles that vehicle type I contributes to the total vehicle-miles-traveled
by the fleet, the sum of these fractions should equal 1. See Section
2.2.1.
E6. "ERROR: THERE ARE NO SALES FOR VEHICLE 'vehicle name' "
It is assumed that no significant number of LDDVs exist before 1975.
Similarly, no LDDTs are assumed prior to 1978. This message is printed
if the user inputs a positive VMT fraction for LDDVs or LDDTs for
calendar years in which they are assumed to be virtually nonexistent.
E7. "ERROR: EFRETM < =0. AND VMTMIX > 0, FOR VEHICLE 'vehicle name'"
No emissions exist for the named vehicle type which is a non-zero member
of the total vehicle fleet mileage.
E8. "ERROR: IDLRTM < =0. AND VMTMIX > 0. FOR VEHICLE 'vehicle name'"
No idle emissions exist for the named vehicle type which is a non-zero
member of the total vehicle fleet mileage.
3.2.3 Mileage Accrual and Registration Distribution Diagnostics
E9. "ERROR: 'value of SAVMYM(I.J)' NEGATIVE MODEL YEAR MILEAGE"
This message is printed if the user supplied mileage accural data for
model year I and vehicle type J is negative. See Section 2.2.2.
E10. "ERROR: 'value of SAVMYR(I,J)' NEGATIVE MODEL YEAR REGISTRATION"
This message is printed if the model year registration fraction is
negative. Since this number represents the fraction of all vehicles in
the fleet of a given age, it should be between 0 and 1; inclusive. See
Section 2.2.2.
Ell, " ERROR: MYR OF LDDV NOT EQUAL TO LDGV FOR IDX = 'value of IDX'"
For description see E12.
E12. "ERROR: MYR OF LDDT NOT EQUAL TO LDGT1 FOR IDX = 'value of IDX'"
Messages Ell and E12 will appear if the user entered a different
registration distribution for LDGVs and LDDVs or for LDGT1 and LDDTs.
The registration mix for the total LDV (or LOT) fleet is to be input
twice for the gasoline powered and diesel powered vehicles (or trucks).
MOBILE2 has an internal function that apportions total registrations into
the separate gasoline and diesel powered groups. Thus, it is assumed in
MOBILE2 that LDDs will replace some of their LOG counterparts and will be
used in the same way. See Section 2.2.2.
W3. "WARNING: 'value of SAVMYR' REGISTRATION WITH ZERO MILEAGE"
See description in W4,
-------
-40-
W4. "WARNING: 'value of SAVMYM' MILEAGE WITH ZERO REGISTRATION"
One of the two preceding messages is printed if, for a given vehicle age,
vehicles either do not accumulate mileage, yet make up a fraction of the
fleet, or do not make up a fraction of the fleet but accumulate mileage.
If a mileage accrual value or a registration fraction is zero, both
should be zero. See Section 2.2.2.
W5. "WARNING: 'value of MYRSUM' MYR SUM NOT = 1. (WILL NORMALIZE)"
This message is printed if the sum of model year registration fractions
for a given vehicle type do not sum to 1. If the model year age
registration fractions do not sum to 1, MOBILE2 will normalize the
fractions so that they will. See Section 2.2.2.
3.2.4 Emission Factor Modification Diagnostics
E12. "ERROR: 'value of NEWFAC' OUT OF BOUNDS FOR (1 to 130 PAIRS)"
This message is printed if the number of emission rate modifications is
not between 1 and 100. MOBILE2 is limited to handle a maximum of 99
modifications. See Section 2.2.3.
E13. "ERROR: 'value of IRGALT' OUT OF BOUNDS FOR ALTEQU REGION (1,2,3
ONLY)"
The region entered for an alternate emission equation can be specified as
1, 2 or 3 only. It is independent of the region entered in the SCENARIO
record. See Section 2.2.3.
E14. "ERROR: 'vehicle type code' OUT OF BOUNDS FOR VEHICLE TYPE (1 TO 8)"
This message is printed if the vehicle type in the emission rate
modification section is not equal to 1, 2, 3, 4, 5, 6, 7, or 8. MOBILE2
has eight vehicle types. These types and their corresponding codes are:
(1) light duty gasoline powered vehicles, (2) light duty gasoline powered
trucks I (0 - 6,000 Ibs. GVW), (3) light duty gasoline powered trucks II
(6,001 - 8,500 Ibs. GVW), (4) heavy duty gasoline powered vehicles,
(5) light duty diesel powered vehicles, (6) light duty diesel powered
trucks, (7) heavy duty diesel powered trucks, and (8) motorcycles. See
Section 2.2.3.
E15. "ERROR:'pollutant code' OUT OF BOUNDS FOR POLLUTANT (1 TO 3)"
This message is printed if the code for pollutant on the emission rate
modification input section is not equal to 1, 2, or 3. MOBILE2 considers
only 1 for hydrocarbons, 2 for carbon monoxide, and 3 for oxides of
nitrogen. See Section 2.2.3.
E16. "ERROR: 'value of MYFRST or MYLAST' OUT OF BOUNDS FOR YEAR (1951 TO
2020)"
This message is printed if the code, corresponding to the first or last
model year to have altered emission rates is not between 51 and 99 or 00
and 20 (corresponding to years 1951-2020), See Section 2.2.3.
E17. "ERROR: LAST YEAR CANNOT BE LESS THAN FIRST YEAR"
This message is printed if the first model year to have its emission
rates altered is less than the last model year to be altered. See
Section 2.2.3.
-------
-41-
E18. "ERROR; 'value of BASNEW1 INTERCEPT MUST BE POSITIVE"
This message is printed if a new zero mile emission level is negative or
zero. See Section 2.2.3.
E19. "ERROR: EQUATION 'number of equation' CAUSES MORE THAN 15 ALLOWED
FOR ANY 1 REG/MODE/POL."
When emission rate modifications are made, no more than 15 modified
emission equations may be input for any region, vehicle type, and
pollutant combination. See Section 2.2.3.
E20. "ERROR: EFRETM > 0. AND GSF=0. FOR VEHICLE 'vehicle name'"
This error message will be printed if the named vehicle type has a
positive emission factor and a zero fleet sales fraction.
E21. "ERROR: IDLRTM > 0, AND GSF=0. FOR VEHICLE 'vehicle name'"
The named vehicle type has a positive idle emission and a zero fleet
sales fraction.
W6. "WARNING: 'value of DELNEW' NEGATIVE SLOPE FOR AGEING VEHICLE"
This message is printed if the value for the exhaust deterioration rate
is negative. A negative deterioration rate implies improving emissions
with increasing mileage accumulation* See Section 2.2.3.
W7. "WARNING: EQUATION 'equation number' ZEROES ALL IDLE COEFFICIENTS
(and TOTAL) FOR IR = 'region', IV = 'vehicle', IP = 'pollutant'".
All alternative emission equations cause the program to zero all idle
emission equations corresponding to the region, vehicle type, and
pollutant modified.
3.2.5 Inspection/Maintenance Data Diagnostics
E22. "ERROR: 'value of ICYIM' OUT OF BOUNDS FOR YEAR (1970 TO 2020)"
This message is printed if the code indicating the year in which an I/M
program is to begin does not fall between 70 and 99, or 00 and 20 (years
1970 to 2020). See Section 2.2.4.
E23. "ERROR: 'value of ISTRIN' OUT OF BOUNDS FOR STRINGENCY (10 TO 50)"
This message is printed if the stringency of the I/M program is not
between 10 and 50; inclusive. See Section 2.2.4.
E24. "ERROR: 'value of IMTFLG' OUT OF BOUNDS FOR MECHANICS TRAINING (0
TO 1)"
This message is printed if the value for the mechanics training flag,
IMTFLG, is not equal to 0 or 1. See Section 2.2.4.
E25. "ERROR; 'value of MODYR1' OUT OF BOUNDS FOR MODYR1 (1951 TO 2020)"
This message is printed if the code representing the first model under an
I/M program is not between 51 and 99, or 00 and 20 (years 1951 and
2020). These years are the limits set by MOBILE2. See Section 2.2.4.
E26. "ERROR: 'value of MODYR2' OUT OF BOUNDS FOR MODYR2 (1951 TO 2020)"
This message is printed if the code representing the last model year
under an I/M program is not between 51 and 99, or 00 and 20 (years 1951
to 2020). See Section 2.2.4.
-------
-42-
E27. "ERROR: MODYR1 CANNOT BE GREATER THAN MODYR2"
This message is printed if the first model year in an I/M program is
greater than the last model year in an I/M program. See Section 2.2.4.
E28. "ERROR: 'Value of ILDT1 OUT OF BOUNDS FOR VEHICLE TYPE (0 TO 3)"
Value for the vehicle types to which I/M is applied is not between 0 and
3. See Section 2.2.4.
E29. "ERROR: 'Value of IOPTN' OUT OF BOUNDS FOR OPTION (50 TO 90)"
Value of the I/M identification rate for Technology IV vehicles is not
between 50 and 90. See Section 2.2.4.
E30. "ERROR: 'Value of NUDATA' OUT OF BOUNDS FOR NEW DATA FLAG (0 TO 3)"
Value of the NUDATA flag (the flag from the I/M parameter record that
indicates whether or not new I/M credits will be read from unit IOUIMD)
is not 0, 1, 2, or 3. See Section 2.2.4,
E31. "ERROR WHILE READING UNIT IOUIMD (NEW) I/M CREDITS. RUN ABORTED."
This message appears if any error occurs while reading the new I/M credit
data from unit IOUIMD (Unit 4). If this message is printed, check
subroutine NEWDAT and Section 2.2.4 to confirm that data are being read
correctly.
3.2.6 Trips/Day and Miles/Day Record Diagnostics
E32. "ERROR: 'value for USRTPD' AVERAGE TRIPS/DAY CANNOT BE NEGATIVE"
This message is printed if the user supplied trips per day is negative.
See Section 2.2.5.
E33. "ERROR: 'value of USRMPD' AVERAGE MILES/DAY CANNOT BE NEGATIVE"
This message is printed if the user supplied miles per day is not
positive. See Section 2,2.5.
3.2.7 Scenario Record Diagnostics
Individually, errors described below will not cause the program to stop
but will void analysis of the scenario associated with the error and all
subsequent scenarios. If one of these messages appears, the error must
be corrected for that scenario. If more than 50 of these errors occur
the program run will stop.
E34. "ERROR: 'region code' OUT OF BOUNDS FOR REGION (1, 2, 3, 5 ONLY)"
This message is printed if the region chosen in the scenario record is
not equal to 1, 2, or 3. See Section 2.3.1, Note: Do not use region 5.
It is intended to be used for evaluated altitude, but MOBILE2 software
does not currently support this option.
E35. "ERROR 'value of CY' OUT OF BOUNDS FOR YEAR (1970 TO 2020)"
This message is printed if the calendar year to be evaluated is not
between 1970 and 2020, inclusive. (This is a limitation of MOBILE2.)
See Section 2.3.1.
-------
-43-
E36. "ERROR: 'value of SPD(I)' SPEED MUST BE POSITIVE"
This message is printed if the value for average speed is not positive.
See Section 2.3.1.
E37. "ERROR: 'value of TAMB1 VALID TEMPERATURE IS 0-110 DEC (F)"
This message is printed if the temperature value does not fall between 0
and 110°F. These limits correspond to the limits of the temperature
correction factor. See Section 2.3.1.
E38. "ERROR: 'value of PCCN' OUT OF BOUNDS FOR PCCN (0. TO 100.)"
This message is printed if the input value for percentage of miles
traveled in the cold start mode for non-catalyst vehicles is not in the
0-100% range. See Section 2.3,1.
E39. "ERROR: 'value of PCHC1 OUT OF BOUNDS FOR PCHC (0. TO 100.)"
This message is printed if the input value for percentage of miles
traveled in the hot-start mode for catalyst vehicles is not in the 0-100%
range. See Section 2.3.1.
E40. "ERROR: 'value of PCCC1 OUT OF BOUNDS FOR PCCC (0. TO 100.)"
This message is printed if the input value for percentage of miles
traveled in the cold-start mode for catalyst vehicles is not in the
0-100% range. See Section 2.3.1.
E41, "ERROR: 'value of sum PCHC + PCCC' OUT OF BOUNDS ( 0. < = PCHC +
PCCC < = 100.)"
The sum of the cold/hot start VMT percentages for vehicles with catalytic
converters must lie in the range of 0 to 100 percent. See Section 2.3.1.
E42. "ERROR: 'value of sum PCHC + PCCC - PCCN1 OUT OF BOUNDS (0. < =PCHC
+ PCCC - PCCN < = 100.)"
The sum of the cold/hot start VMT percentages for vehicles with catalytic
converters less that of the non-catalytic converter equipped vehicles
must lie in the range of 0 to 100 percent. See Section 2.3.1.
E43. "ERROR: 'value of ALT' OUT OF BOUNDS FOR ALTITUDE (-200 TO 10,000
ft.)"
The altitude entered must lie between 200 feet below and 10,000 feet
above mean sea level. See Section 2.3.2. Note: This message would only
occur if the user inputs region 5. Region 5 for intermediate altitude is
currently not supported by MOBILE2.
W8. "WARNING: 'value of SPD' SPEED REDUCED TO 55 M.P.H. MAXIMUM"
This message appears if the value for speed is greater than 55. MOBILE2
limits the speed to 55 mph, and sets values greater than 55 to 55 mph.
Speed correction factor equation coefficients are only valid in the range
of 5 mph through 55 mph See Section 2.3.1,
W9. "WARNING: 'value of SPD' SPEED INCREASED TO 5 M.P.H. MINIMUM"
This message is printed if the average speed is less than 5 mph. An
average speed of less than 5 mph is assumed to be unlikely, and the value
is be set to 5 mph. Speed correction factor equation coefficients are
only valid for speeds of 5 mph through 55 mph. See Section 2,3.1.
-------
-44-
3.2.8 Additional LD Correction Factor Record Diagnostics
E44. "ERROR: 'value of AC1 OUT OP BOUNDS FOR AC (0. TO 1.)"
The air conditioning input vaL ue that indicates whether the A/C
correction factor is used must range from zero to one. See Section 2,3.3.
E45. "ERROR: 'value of XLOAD(I)' OUT OF BOUNDS FOR EXTRA LOAD (0, TO 1.)"
Extra load usage fraction for each vehicle type must range from zero to
one. See Section 2,3.3.
E46. "ERROR: 'value of TRAILR(I)' OUT OF BOUNDS FOR TRAILERS (0. TO 1.)"
Trailer towing usage fraction for each vehicle type must range from zero
to one. See Section 2.3.3.
E47. "ERROR: 'value of ABSHUM' OUT OF BOUNDS FOR HUMIDITY (20. TO 140,)"
Absolute humidity (grains/pounds) must range from 20 to 140. See Section
2.3.3.
E48. "ERROR: WB TEMP CANNOT BE GREATER THAN DB TEMP"
Wet bulb temperature must be less than or equal to the dry bulb
temperature. See Section 2.3.3.
C2. "COMMENT: A/C CORRECTION FACTOR WILL BE CALCULATED .
VALUE OF INPUTTED AC USAGE PARAMETER IS IGNORED."
This message appears if a value for air conditioning usage other than
zero is entered. The air conditioning usage is a function of the
temperature. Therefore, the A/C usage calculated in MOBILE2 may vary
from the value read.
3.2.9 Miscellaneous Data-Related Diagnostics
E49. "EXCESS DATA ERRORS PREVENT FURTHER ANALYSIS"
This message should be the last of a list of 50 or more messages. The
other messages should be analyzed to determine the problems causing the
errors and corrected,
3.2.10 Internal Software Error Diagnostics
E50. "ERROR: 'error code value' UNKNOWN"
This message should only be printed when there is an unspecified or
unrecognized internal software error,
E51. "ERROR: 'default value of named function' DEFAULT USED FOR 'year'
IN FUNCTION 'function name'"
This message indicates a default exit has been taken which implies that
one or more of the internally associated year/data pairs is in error.
The program must be corrected and re-compiled before another run. See
Appendix A.
E52. "ERROR; DEFAULT USED FOR 'year' IN INDEX FUNCTION 'index function
I "
name'
This message indicates a default exit has been taken which implies that
one or more of the associated year/years's position pairs is in error.
The program must be corrected and re-compiled before another run. See
Appendix A.
-------
-45-
3.3 PROMPTING MESSAGES
If IPROMT=1 or IPROMT=3, the user is prompted for input data in the order
needed by MOBILE2. Prompting messages are written to unit 6 by default,
unless the user redefines the prompting message unit (see Section
2.1.1). The first record (IPROMT and IOUNEW assignment record) is not
prompted.
The prompt for each record type is described below. Refer to Chapter 2
for a detailed discussion of the prompted values.
3.3.1 Title Record Prompt
The title record is prompted for by:
"ENTER PROJECT I.D.:"
3.3.2 14 Remaining Flag Prompts
If
IPROMT=1
prompted for
"ENTER
"ENTER
"ENTER
"ENTER
"ENTER
"ENTER
"ENTER
"ENTER
"ENTER
"ENTER
"ENTER
"ENTER
"ENTER
"ENTER
(vertical format), the 14 remaining CONTROL SECTION flags are
individually, with the prompts:
INFLAG:"
SPDFLG:"
VMFLAG:"
MYMRFG : "
ALTFLG:"
IMFLG:"
ALHFLG:"
TRKFLG:"
I FORM:"
PRTFLG;"
ICEVFG;"
IDLFLG;"
NMHFLG;"
IJNFFLG;"
If IPROMT=3 (horizontal format), the 14 remaining CONTROL SECTION flags
are prompted for on one record with the single prompt:
"ENTER INFLAG, SPDFLG, VMFLAG, MYMRFG, ALTFLG, IMFLG, ALHFLG,
TRKFLG, IFORM, PRTFLG, ICEVFG, IDLFLG, NMHFLG, & UNFFLG"
3.3.3 VMT Mix Record Prompt
The eight VMT values are prompted for by
"ENTER VMT SPLIT;"
3.3.4 Mileage Accrual Prompts
If MYMRFG=1 or 3, 16 mileage accrual records are individually prompted
for by:
-------
-46-
"ENTER MYM AGES
"ENTER MYM AGES
"ENTER MYM AGES
"ENTER MYM AGES
"ENTER MYM AGES
"ENTER MYM AGES
"ENTER MYM AGES
"ENTER MYM AGES
"ENTER MYM AGES
"ENTER MYM AGES
"ENTER MYM AGES
"ENTER MYM AGES
"ENTER MYM AGES
"ENTER MYM AGES
"ENTER MYM AGES
"ENTER MYM AGES
1-10
11-20
1-10
11-20
l-io
11-20
1-10
11-20
1-10
11-20
1-10
11-20
1-10
11-20
1-10
11-20
FOR
FOR
FOR
FOR
FOR
FOR
FOR
FOR
FOR
FOR
FOR
FOR
FOR
FOR
FOR
FOR
LDGV:"
LDGV:"
LDGT1:"
LDGT1 ; "
LDGT2 ; "
LDGT2 ; "
HDGV : "
HDGV:"
LDDVj"
LDDV."
LDiJT : "
LDDT:"
HDDV:"
HDDV ; "
MC;"
MC : "
3.3.5 Model Year Registration Data Prompts
If MYMRFG = 2 or 3,
prompted for by:
"ENTER MYR AGES
"ENTER MYR AGES
"ENTER MYR AGES
"ENTER MYR AGES
"ENTER MYR AGES
"ENTER MYR AGES
"ENTER MYR AGES
"ENTER MYR AGES
"ENTER MYR AGES
"ENTER MYR AGES
"ENTER MYR AGES
"ENTER MYR AGES
"ENTER MYR AGES
"ENTER MYR AGES
"ENTER MYR AGES
"ENTER MYR AGES
16 model year
1-10
11-20
1-10
11-20
1-10
11-20
1-10
11-20
1-10
11-20
1-10
11-20
1-10
11-20
1-10
11-20
FOR
FOR
FOR
FOR
FOR
FOR
FOR
FOR
FOR
FOR
FOR
FOR
FOR
FOR
FOR
FOR
registration records are individually
LDGV ; "
LDGV ; "
LDGT1 : "
LDGT1:"
LDGT2 ; "
LDGT2 : "
HDGV;"
HDGV;"
LDDV : "
LDDV:"
LDDT:"
LDDT:"
HDDV:"
HDDV : "
MC:"
MC:"
3.3.6 Emission Factor Modification Data Prompts
If ALTFLG-1, the number of alternate emission rates to be input is
prompted for by:
"ENTER NO. OF NEW E.F. INTERCEPT/SLOPE PAIRS (12)"
Each emission rate is then prompted for by:
"ENTER REGION, VEH. TYPE, POLLUTANT, FIRST MY,
LAST MY, NEW INTERCEPT (A), AND NEW SLOPE (B)"
-------
-47-
3.3.7 I/M Parameter Record Prompt
If IMFLG=1, five I/M parameters are prompted for by:
"ENTEk YEAR I/M BEGINS, STRINGENCY, M.T, FLAG,
FIRST MODEL YEAR AND LAST MODEL YEAR OF PROG. BENEFITS"
If IMFLG=2, eight I/M parameters are prompted for by:
"ENTER YEAR I/M BEGINS, STRINGENCY, M.T, FLAG,
FIRST MODEL YEAR AND LAST MODEL YEAR OF PROG. BENEFITS
VEH. TYPE, OPTION, AND NEWDATA FLAG"
I/M credit data from unit 4 are not prompted for.
3.3.8 Trips/Day and Miles/Day Record Prompt
If ICEVFG = 1 or 2, trips/day for the 8 vehicle types are prompted for by:
"ENTER AVERAGE TRIPS/DAY"
and miles/day for the 8 vehicle types are prompted for by:
"ENTER AVERAGE MILES/DAY"
3.3.9 Scenario Record Prompt
If SPDFLG =0, 7 parameters are prompted for by
"ENTER REGION, CY, SPD(l), TAMB, PCCN, PCHC, PCCC:"
while if SPDFLG=2, 14 parameters are prompted for by
"ENTER REGION, CY, SPD(8), TAMB, PCCN, PCHC, PCCC:".
The number following "SPD" in the prompt is the number of speed val ues to
input.
3.3.10 Additional LD Correction Factors Record Prompt
If ALHFLG =1, 6 values are prompted for by:
"ENTER AC, XLOAD(3), TRAILR(l), ABSHUM",
while if ALHFLG=2, 10 values are prompted for by:
"ENTER AC, XLOAD(3), TRAILR(3), ABSHUM, DBTEMP, WBTEMP".
The numbers in parentheses in the prompts represent the number of val ues
of the particular parameter to be input.
3.3.11 HP Correction Factors Record Prompt
If TRKFLG=1, 4 power/weight correction factors for HDVs will be prompted
for by:
-------
-48-
"ENTER HGWGT, HDWGT, HGCID, HDCLD (VALUES WILL BE IGNORED)"
It is recommended that TRKFLG = 0 always be used.
-------
-49-
Chapter 4
MOBILE2 EXAMPLES
4.0 INTRODUCTION
This chapter contains several examples of MOBILE2 input streams and
resulting outputs. The examples serve only to illustrate the various
options and do not necessarily represent any "real world" situations.
Each example begins with an image of the input records. Below each input
data set is an 80-column "ruler" to indicate the position of the fields
within the record. Identifying comments have been placed in columns 81
and beyond of each record. Following the 80-column ruler is a discussion
of the input, followed by the MOBILE2 outputs.
The first part of this chapter contains eight MOBILE2 examples. The
second part contains the thirteen examples from the MOBILE1 User's Guide,
modified as necessary to run through MOBILE2.
4.1 MOBILE2 EXAMPLES
Eight MOBILE2 examples are provided on the following pages. Each
legitimate value of a CONTROL flag is exercised in at least one example.
-------
-------
4.1.1 MOBILE2 EXAMPLE
Input
0
Record ( 8O co 1 Limns )
I PROMT
MOBILE2 EXAMPLE #1
1
O
O
0
O
O
0
1
0
O
1
O
O
0
1 7O
1 1 .
1 85
1 1 .
2 85
1 1
3 85
1 1 .
1 OO
1 1 .
+
5.O
1 1 .
15 O
11
15. O
1 1 .
15 .O
1 1 .
55. O
1 1 .
. . . . 1
JNFLAG
5PDFLG
VMFLAG
MYMRFG
ALTFLG
IMFLG
ALHFLG
TRKFLG
IFORM
PRTFLG
ICEVFG
1DLFLG
NMHFLG
UNFFLG
O.O O.O 1OO. O.O
11. 11.
50. O 37. 1 5O.O 5O.O
11. 11 .
5O.O 37 . 1 5O.O 5O.O
11. 11.
5O.O 37 . 1 5O.O 5O.O
11 . 11.
110. 74 2 O.O 1OO.
11 . 11.
....-»-. ...2. ... + .. ..3 ...+ .. .4. ...+.. ..5. ...+.. ..6. .+ ... .7 .... + ...
Example 1 uses a "vertical" input format witnout prompting (1PROMT=O) and
a numeric output format for 6 vehicle types (LDDs not included, IFORM^O).
All default output units are used since no values for IOUNEW are given
This example prints total crankcase and evaporative HC emissions (ICEVFG=1).
HC emission factors include methane (NMHFLG=O).
An additional record for the HDV power/weight correction factor (TRKFLG=1)
is required and is placed after each scenario record. This correction factor
is no longer used, though the data requirement has been retained to enable
MOBILE 1 run streams to be used in MOBILE2 The contents of the record are
ignored Since the TRKFLG flag is non-zero, a warning message is produced.
Descr ipt ion
FLAG
TITLE
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
SCENARIO
HDV P/W CORR
SCENARIO
HDV P/W CORR
SCENARIO
HDV P/W CDRR
SCENARIO
HDV P/W CDRR
SCENARIO
HDV P/W CORR
.FACTORS
.-FACTORS
.FACTORS
.FACTORS
.FACTORS
(IGNORED)
(IGNORED)
(IGNORED)
(IGNORED)
(IGNORED)
Sect ion
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
PARAMETER
PARAMETER
PARAMETER
PARAMETER
PARAMETER
PARAMETER
PARAMETER
PARAMETER
PARAMETER
PARAMETER
t_n
O
4.1.1 MOBILE2 EXAMPLES Input
-------
WARNING: FLAG TRKFLG IGNORED. "TRKQPC" NO LONGER USED.
MOBILE2 EXAMPLE #1
R P
E SPEEDS AMB. 0 COMPOSITE EMISSION FACTORS VEHICLE MIX C.E F.
G CY LD HD MC TMP COLD/HOT START L LDV LOT 1 LDT2 HDG HDD MC LDV LOT 1 LDT2 HOG HDD MC ALL V'EH
1 70 5.O/ 5.O/ 5.O O O.O 1OO.O 0.0 E 3.69 3.99 4.16 6.91 O.O 1.86 O.786 O 083 O O47 O O42 O O33 O OO9
1 70 5.0/ 5.0/ 5.0 0 0.0 1OO.O O.O 1 31.OO 30.08 39.10 103.17 8.49 35.62 0.786 O.083 O.O47 O.O42 O O33 O.OO9 33.63
1 70 5.0/ 5.O/ 5.O O O.O 100.0 0.0 2 258.84 250.09 285.G1 874 22 35.01 1O2.51 0 786 O.083 O.O47 O.O42 O.O33 O. OO9 276 37
1 7O 5 O/ 5.O/ 5.O 0 O.O 100.0 O.O 3 8.OO 8.O1 12.86 11.90 40.29 0.58 0 786 O.O83 O.O47 O O42 O. O33 O. OO9 9 39
1 85 15.0/15.0/15.0 50 37.1 50.0 50.0 E 0.44 O.52 0.33 2.68 O.O 2 25 0 750 O 079 O.046 O.O42 0 033 O. O09
1 85 15.O/15.O/15.O 5O 37.1 5O.O 50.0 1 6.43 6.99 5.16 14.19 5.35 9 54 O.75O O.O79 O.O46 O.O42 O. O33 O. OO9 € 51
1 85 15.0/15 .O/15.O 5O 37.1 50.0 50.0 2 71.97 73.88 51 .09 251.44 17.42 44 .02 0.750 0.079 O.046 O.O42 0 033 0 OO9 73 86
1 85 15.O/15.O/15.O 50 37.1 50.0 50.0 3 2.21 2.72 2 42 10.48 28.74 O 90 O.75O O.O79 O.O46 O.O42 O.O33 O. OO9 3 44
2 85 15.O/15.O/15.O 50 37.1 50.0 5O.O E O.41 O.48 O.18 0.51 O.O 1 63 0 75O O.079 O.O46 O.042 O.O33 O OO9
2 85 15.0/15.0/15.0 5O 37.1 50.0 5O.O 1 5.11 5.56 4.O1 8.75 5.1O 7 89 O 75O O.O79 0 046 O.O42 O.O33 0. OO9 5 1O
2 85 15.O/15.O/15.O 5O 37.1 50.0 50.O 2 57.12 61.47 49.27 238.68 17.42 4O.84 O.75O O.O79 O.O46 0.O42 O.O33 O.OO9 61 OS
2 85 15 O/15.O/15.0 5O 37.1 50.0 50.0 3 1 83 2.17 1 89 6.87 19.99 0 85 0 750 0.079 0.046 0 042 O.033 O.O09 2.64
3 85 15.O/15.O/15 0 50 37.1 5O.O 5O.O E O.54 O.66 0.43 3 48 O.O 2.92 O.75O O.O79 O.O46 O.O42 O.O33 O OO9
3 85 15 .O/15.0/15.O 5O 37.1 50 O 50.0 1 7.50 8.18 5.75 18.33 10.88 12 .09 0.750 0 O79 O.046 O.O42 O O33 O. OO9 7.83
3 85 15.O/15 O/15 O 5O 37.1 5O.O 5O.O 2 1OO.19 97 O2 63.36 4O5.58 28.25 62.13 O 75O O.O79 O.O46 O. O42 O.O33 O.OO9 1O4 48
3 85 15.0/15.0/15.0 5O 37.1 50. O 50.0 3 1.76 2.19 2 . O9 8 .05 28.74 O . 54 0.75O 0. O79 O. O46 O.O42 O.O33 O. OO9 2 94
1 O 55 .0/55 .O/55.O 1 1O 74.2 O.O 1OO.O E O 10 0.11 O.O9 0 24 O.O 2.26 O.631 O.O67 O.O46 0.042 O.O33 O.OO9
1 O 55.0/55.O/55.O 11O 74.2 O.O 1OO.O 1 1.O8 O.85 O.79 1.42 1.65 4.79 0 €31 O. O67 O.D46 O O42 O.O33 O. OO9 1 . OO
1 O 55 .0/55.0/55.O 11O 74.2 O O 1OO.O 2 13.78 7.72 6.04 26.69 6.59 9.59 O.631 0.067 0 O46 O.O42 O.O33 O. O09 11.13
1 O 55.0/55.O/55.O 11O 74.2 O.O 100.0 3 1.36 0.93 O.79 2.66 8.68 1.28 O.631 O. O67 O.O46 0.042 O.O33 O.OO9 1.61
4 1.1 MOBILES EXAMPLE/C1 Diagnostic and Report Output
-------
4.1.2 MOBILE2 EXAMPLE H 2
Input
2
Record
MOBILE2
1
0
O
0
(8O columns)
EXAMPLE #2
1 1 0
0 1 0
1 1
1 0
1O
1
1
1
1
1
1
1
1
1
1
85
1
1
2
3
1
3
3
3
4
4
4
5
5
5
e
1
2
3
1
2
3
1
2
3
1
44
7O
85
85
85
OO
-4-
51
51
51
51
51
51
51
51
51
51
0
5 .
15.
15
15.
55.
00
OO
00
OO
OO
00
OO
00
OO
OO
75 90
O O.O
O 5O.O
O 5O.O
0 5O.O
O 1 1O.
. 1 . . .
1 .OO
1 .OO
1 .OO
1 .OO
1 .OO
1 .00
1 .00
1 .OO
1 .OO
1 .OO
O.O
37 . 1
37 . 1
37. 1
74.2
+ . . .2
0.
O
0.
O.
O.
O.
O.
0
0
O.
100
5O.
5O
50.
O
00
OO
OO
OO
OO
OO
OO
00
00
OO
. O.O
O 5O.O
0 50.0
0 5O.O
0 1OO.
. + . . . .3 . .->-.. .4 . . .-+ . . . 5 ... -t- . .
.6 +
Example 2 uses "horizontal" input format without prompting (IPROMT-2) and
a descriptive output for 6 vehicle types (LDDs excluded, IFORM=1). All
defaults output units are used since no values for IOUNEW are given.
Input options are as follows:
alternate basic emission rates (ALTFLG=1)
I/M program in effect, using MOBILE2 I/M credits (IMFLG=1)
These option require data inputs
The following output options are in effect:
print total crankcase and evaporative HC emissions (ICEVFG=1)
print idle emissions (IDLFLG=1)
print non-methane HC emissions (NMHFLG=1)
Warning messages are generated to indicate that idle emission rates are
zeroed for the corresponding basic emission rates.
Descr ipt ion
IPROMT FLAG
TITLE
FLAGS
ALTERNATE BASE
ALTERNATE BASE
ALTERNATE BASE
ALTERNATE BASE
ALTERNATE BASE
ALTERNATE BASE
ALTERNATE BASE
ALTERNATE BASE
ALTERNATE BASE
ALTERNATE BASE
ALTERNATE BASE
I/M DATA
SCENARIO
SCENARIO
SCENARIO
SCENARIO
SCENARIO
EMISSION
EMISSION
EMISSION
EMISSION
EMISSION
EMISSION
EMISSION
EMISSION
EMISSION
EMISSION
EMISSION
RATES
RATES
RATES
RATES
RATES
RATES
RATES
RATES
RATES
RATES
RATES
.8
Sect ion
CONTROL
CONTROL
CONTROL
ONE-TIME
ONE-TIME
ONE-TIME
ONE-TIME
ONE-TIME
ONE-TIME
ONE-TIME
ONE-TIME
ONE-TIME
ONE-TIME
ONE-TIME
ONE-TIME
PARAMETER
PARAMETER
PARAMETER
PARAMETER
PARAMETER
4.1.2 MOBILE2 EXAMPLES Input
-------
WARNING:
WARNING:
WARNING:
WARNING:
WARNING:
WARNING:
WARNING:
WARNING:
WARNING-
WARNING:
EQUATION
EQUATION
EQUATION
EQUATION
EQUATION
EQUATION
EQUATION
EQUATION
EQUATION
EQUATION
1
2
3
4
5
6
7
8
9
1O
ZEROES
ZEROES
ZEROES
ZEROES
ZEROES
ZEROES
ZEROES
ZEROES
ZEROES
ZEROES
ALL
ALL
ALL
ALL
ALL
ALL
ALL
ALL
ALL
ALL
IDLE
IDLE
IDLE
IDLE
IDLE
IDLE
IDLE
IDLE
IDLE
IDLE
COEFFICIENTS
COEFFICIENTS
COEFFICIENTS
COEFFICIENTS
COEFFICIENTS
COEFFICIENTS
COEFFICIENTS
COEFFICIENTS
COEFFICIENTS
COEFFICIENTS
(AND
(AND
(AND
(AND
(AND
(AND
(AND
(AND
(AND
(AND
TOTAL)
TOTAL)
TOTAL)
TOTAL)
TOTAL)
TOTAL)
TOTAL)
TOTAL)
TOTAL)
TOTAL)
FOR
FOR
FOR
FOR
FOR
FOR
FOR
FOR
FOR
FOR
IR=1 .
IR= 1
IR= 1 ,
IR= 1 ,
IR=1 ,
IR=1 ,
IR=1 ,
IR=1 .
IR=1 ,
1R=1 ,
IV = 3.
I V = 3
IV = 3,
I V = 4 ,
I V = 4 ,
IV = 4,
IV=5,
IV = 5.
IV = 5.
IV=6,
IP=1
IP = 2
IP = 3
IP=1
IP = 2
IP = 3
IP= 1
IP = 2
IP = 3
IP=1
MOBILE2 EXAMPLE #2
EMISSION FACTOR MODIFICATION PROFILE:
REGION VEH. POLLUTANT FIRST MY LAST MY
BASE
DR
ALTERED
1
1
1
1
1
1
1
1
1
1
3
3
3
4
4
4
5
5
5
6
1
2
3
1
2
3
1
2
3
1
1951
1951
1951
1951
1951
1951
1951
1951
1951
1951
2000
2OOO
2000
20OO
2OOO
20OO
2OOO
20OO
20OO
2000
1
1
1
1
1
1
1
1
1
1
.00
.00
.00
.00
.00
.00
.00
.00
.00
.00
0
0.
o
0
o.
0
o.
0.
0.
0.
.0
.0
.0
.0
.0
o
.0
0
0
0
YES
YES
YES
YES
YES
YES
YES
YES
YES
YES
*NON-METH HC EMISSION FACTORS INCLUDE EVAP. HC EMISSION FACTORS
VEH. TYPE: LDV LOT 1 LDT2 HDG HDD MC
CAL. YEAR: 1970 TEMP: O.O(F) O.786/0.083/0.O47/0.O42/O.033/O.OO9
REGION: 49-STATE 5.0/ 5.0/ 5.O MPH ( 5.0) O.O/1OO.O/ O.O
LDGV I/M PROGRAM STARTING IN 1985
STRINGENCY LEVEL 44% MECH.TRAINING: NO
I/M PROGRAM BENEFITS APPLY ONLY TO MODEL YEARS 1975 THROUGH 1990
ATTENTION: THE DEFAULT VALUE OF 50% FOR TECHNOLOGY 4
1/M IDENTIFICATION RATE HAS BEEN LEFT UNCHANGED.
COMPOSITE EMISSION FACTORS (GM/MILE)
NON-METH HC
*EVAP HC
EXHAUST CO
EXHAUST NOX
LDV
29.08
3 .69
258.84
8 OO
LDT1
28.26
3.99
250. O9
8. O1
LDT2
7.51
4. 16
2.99
2.32
HDG
11 .25
S.91
3.31
1 .34
HDD
8. 15
O.O
35.O1
4O.29
MC ALL MODES
33 60 26.61
1 86
1O2.51 226.61
O.58 8.45
NM-IDLE HC
IDLE CO
IDLE NOX
HOT STABILIZED IDLE EMISSION FACTORS (GM/MIN)
1 .34
16.42
0.11
1 29
16.O7
O 12
O.O
0.0
0.0
0.0
O.O
0.0
O.35
O.89
O.92
2 07
4.47
O.O1
O O
0.0
O.O
VEH. TYPE: LDV LOT 1 LDT2 HDG HDD MC
CAL. YEAR: 1985 TEMP- 5O.O(F) O.750/0.O79/0.046/0.O42/0.O33/0.OO9
REGION: 49-STATE 15.O/15.O/15.0 MPH (15.O) 37.1/ 5O.O/ 5O.O
LDGV I/M PROGRAM STARTING IN 1985
STRINGENCY LEVEL 44% MECH.TRAINING: NO
I/M PROGRAM BENEFITS APPLY ONLY TO MODEL YEARS 1975 THROUGH 1990
ATTENTION: THE DEFAULT VALUE OF 50% FOR TECHNOLOGY 4
I/M IDENTIFICATION RATE HAS BEEN LEFT UNCHANGED.
4.1.2 MOBILE2 EXAMPLES Diagnostic and Report Output
-------
COMPOSITE EMISSION FACTORS (GM/MILE)
LDV LTJT 1
NON-METH HC
*EVAP HC
EXHAUST CO
EXHAUST NOX
NM-IDLE HC
IDLE CO
IDLE NOX
5
0
71
2
53 6
44 O
97 73
21 2
23
52
88
72
HOT STABILIZED
O
9
O
52 O
55 6
18 O
38
49
O7
LDT2
2
0
2
1
IDLE
0
0
O
57
33
68
11
HDG
4
2
1
O
EMISSION
0
0
O
0
0
O
07
68
43
99
HDD
5. 13
O.O
MC
8.96
2 .25
17.42 44.02
28.74
O 9O
ALL MODES
5
-
61
2
.24
O9
.98
FACTORS (GM/MIN)
0
0
0
O.35
0 89
O.92
0.78
2.57
O.O4
0
0
O
.0
.0
O
VEH. TYPE: LDV LOT 1 LDT2 HDG HDD MC
CAL. YEAR: 1985 TEMP: 50.O(F) O.750/0.O79/O.046/0.O42/O.O33/O.OO9
REGION: CALIF. 15.O/15.O/15,O MPH (15.0) 37 1/ 50-O/ 5O.O
LDGV I/M PROGRAM STARTING IN 1985
STRINGENCY LEVEL 44% MECH.TRAINING: NO
I/M PROGRAM BENEFITS APPLY ONLY TO MODEL YEARS 1975 THROUGH 199O
ATTENTION: THE DEFAULT VALUE OF 50% FOR TECHNOLOGY 4
I/M IDENTIFICATION RATE HAS BEEN LEFT UNCHANGED.
COMPOSITE EMISSION FACTORS (GM/MILE)
LDV
NON-METH HC:
*EVAP HC:
EXHAUST CO:
EXHAUST NOX:
4
O
57
1 .
30
41
. 12
.83
LDT1
4.79
O.48
61 .47
2. 17
HOT STABILIZED
NM-IDLE HC :
IDLE CO:
IDLE NOX:
0.
2
O
.24
.72
.05
0.27
5.82
0.07
LDT2
3.
O
49
1
IDLE
O.
4
O
.26
. 18
.27
.89
HDG
8
O.
238.
6
EMISSION
. 18
.38
.02
0
7.
0.
.14
.51
.68
.87
HDD
4
O
17
19
FACTORS
.39
.23
.04
O
0
0
.90
O
MC
7.36
1 .63
.42 4O.84
.99
(GM/MIN)
.32
.89
.60
O.85
O.G7
2.50
O.O4
ALL MODES
4.
—
61 .
2 .
O.
3.
O.
35
--
08
64
24
O7
07
VEH. TYPE: LDV LOT 1 LDT2 HDG HDD MC
CAL. YEAR: 1985 TEMP: 5O.O(F) O.750/O.O79/0.O46/O.O42/O.O33/O.OO9
REGION: HI-ALT. 15.O/15.O/15.O MPH (15.0) 37.1/ 5O.O/ 5O.O
LDGV I/M PROGRAM STARTING IN 1985
STRINGENCY LEVEL 44% MECH.TRAINING: NO
I/M PROGRAM BENEFITS APPLY ONLY TO MODEL YEARS 1975 THROUGH 199O
ATTENTION: THE DEFAULT VALUE OF 50% FOR TECHNOLOGY 4
I/M IDENTIFICATION RATE HAS BEEN LEFT UNCHANGED.
COMPOSITE EMISSION FACTORS (GM/MILE)
LDV LOT 1
NON-METH HC : 6
*EVAP HC
EXHAUST CO
EXHAUST NOX
NM-IDLE HC
IDLE CO
IDLE NOX
0
1OO
1
41 7
54 O
19 97
76 2
29
66
02
19
HOT STABILIZED
O
8
O
39 O
15 6
O6 0
37
79
04
LDT2
5
O
63
2
IDLE
O
3
0
13
43
36
O9
HDG
17
3
405
8
EMISSION
22
59
05
O
8
0
23
48
58
05
HDD
1O.45 1
O.O
MC
1 .36
2.92
28.25 62 . 13
28.74
O 54
ALL MODES
6
-
1O4
2
.85
.48
.94
FACTORS (GM/MIN)
61
07
O4
O.8O
1 .39
O.92
O.95
2.76
O.O2
0
7
O
.40
.24
.09
VEH. TYPE: LDV LOT 1 LDT2 HDG HDD MC
CAL. YEAR: 2OOO TEMP:11O.O(F) O.631/O.O67/0.O46/0.O42/0.O33/O.OO9
REGION: 49-STATE 55.0/55.O/55.O MPH (55.O) 74.2/ 0.0/1OO.O
LDGV I/M PROGRAM STARTING IN 1985
STRINGENCY LEVEL 44% MECH TRAINING: NO
4 1.2 MOBILE2 EXAMPLE02 Diagnostic and Report Output (cont.)
-------
I/M PROGRAM BENETITS APPLY ONLY TO MODEL YEARS 19T5 THROUGH 199O
ATTENTION: THE DEFAULT VALUE OF 5O% FOR TECHNOLOGY 4
I/M IDENTIFICATION RATE HAS BEEN LEFT UNCHANGED.
COMPOSITE EMISSION FACTORS (GM/MILE)
LDV LOT 1
NON-METH HC
*EVAP HC
EXHAUST CD
EXHAUST NOX
NM-IDLE HC
IDLE CO
IDLE NDX
0
0
12
1
72 O
10 0
79 i
36 0
65
1 1
72
33
HOT STABILIZED
0
6
0
24 O
77 1
14 O
07
39
02
LOT 2
O
0.
0.
O.
IDLE
0.
0.
O.
83
09
83
92
HOG
0
0
O
0
EMISSION
0
0
0
0
0
0
48
24
69
66
FACTORS
O
O
0
HDD MC ALL MODES
1 .58 4
O.O 2
6.59 9
8.68 1
(GM/MIN)
O.26 O
0.89 2
0.23 0
59
26
59
28
76
50
04
O
-
9
1
O
O
0
.75
. 1 1
.52
.0
.O
.O
4.1.2 MOBILE2 EXAMPLES Diagnostic and Report Output (cont )
-------
4.1.3 MDBILE2 EXAMPLE ft 3
Input Record (8O columns)
Descript ion
O666
MOBILE2
1
0
0
O
O
O
O
O
2
O
3
0
0
0
3.1 3
31.1 26
1 70 5.
1 85 15.
2 85 15.
3 85 15.
1 00 5B.
+
IPROMT,IOUNEW( 1) . . .IOUNEW(3)
EXAMPLE #3
INFLAG
SPDFLG
VMFLAG
MYMRFG
ALTFLG
IMFLG
ALHFLG
TRKFLG
I FORM
PRTFLG
ICEVFG
IDLFLG
NMHFLG
UNFFLG
. 1 3. 1 1O.O O.O 1.0 1 .O 1.0
.3 33.7 1OO. O.O 1.O 1.O 1.O
0 O.O O.O 1OO. 0.0
O 5O.O 37. 1 50.0 50. O
O 50 0 37 1 50.0 50.0
O 5O.O 37. 1 5O.O 5O.O
O 110 74.2 O.O 100.
. 1 ....+ ... .2. ...+ ... .3. ...-»-. . .4. . .H
FLAG
TITLE
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
TRIPS/DAY
MILES/DAY
SCENARIO
SCENARIO
SCENARIO
SCENARIO
SCENARIO
i- . . . .5. . . .4- .. .6. ...-(- . .7 . . . .-t-. . , .8
Sect ion
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
ONE-TIME
ONE-TIME
PARAMETER
PARAMETER
PARAMETER
PARAMETER
PARAMETER
Example 3 uses the "vertical" input format without prompting (IPROMT=O) and
a numeric output format for 9 vehicle types (including a combined LDGT group,
IFORM=2). Output units are assigned in IOUNEW and are set to the default
values.
Ln
ON
The input option used in this example is to supply data for average number of
trips per day and average miles travelled per day. These values are used in
the crankcase and evaporative HC emission calculations which are printed in
the output (ICEVFG=3). HC emission factors include methane (NMHFLG=O).
-------
COMMENT: CURRENT OUTPUT UNIT NUMBERS ARE IOUUNF=9 IOUREP=6 IOUERR=6 IDUASK=6
MOBILES EXAMPLE #3
C R
0 E
D G CY
*CODE A*
VEHICLE SPEEDS
AMB.
TMP
COLD/HOT START
ALT.
C P *CDDE B*
O O COMPOSITE EMISSION FACTORS
D L LDGV LDGT1 LDGT2 LDGT HDGV LDDV LDDT HDDV MC
C "CODE C*
0
D LDGV LDGT1
A 1
B E
C O
A 1
B 1
C O
A 1
B 2
C O
A 1
B 3
C 0.
A 1
B E
C O
A 1
B 1
C O
A 1
B 2
C 0
A 1
B 3
C O
A 2
B E
C O
A 2
B 1
C O
A 2
B 2
C 0
A 2
B 3
C 0
A 3
B E
C 0
A 3
B 1
7O
3
.786
7O
31
. 786
7O
258
.786
70
8
.786
85
0
. 75O
85
6
. 75O
85
71
.750
65
2
. 75O
85
O
.750
85
5
. 75O
85
57
. 75O
85
1
. 75O
85
O
.750
85
7
5.O/ 5
.72 4
0.083
5.0/5
.02 3O
0.083
5.O/ 5
LDGT 2
.O/ 5
.01
0.047
.O/ 5
. 11
O.O47
.O/ 5
VEHICLE MIX C.E.F.
HDGV LDDV LDDT HDDV MC ALL VEH
.O/ 5.
4 . 18
0.042
.O/ 5.
39. 12
O.O42
.O/ 5.
.84 25O.O9 285.61
O.O83
5.0/5
.OO 8
O.083
15.0/15
.44 0
O.O79
15.0/15
.44 7
O.O79
15.0/15
.97 73
O.079
15.0/15
.21 2
O.O79
15.0/15
O.O47
.O/ 5
.01
O.047
.0/15
.52
O.046
.0/15
.OO
O O46
.0/15
.88
O.O46
.0/15
.72
O.046
.0/15
.41 O.48
0.079
15.O/15
.11 5
O.O79
15 0/15
. 12 61
O.079
15.0/15
.83 2
O.O79
15.0/15
0.046
.0/15
.56
O.046
.0/15
.47
O.O46
.0/15
. 17
O.046
.0/15
.55 O.66
0.079
15.O/15
.51 8
O.O46
.0/15
. 18
O.O42
.O/ 5.
12.86
O.O42
-O/15.
O.33
O.O42
.0/15.
5. 16
O.042
.0/15.
51 .09
0.042
.0/15.
2.42
O.O42
.O/15.
O. 18
O.042
.0/15.
4.02
O.042
.0/15.
49 .27
0.042
.0/15.
1 .89
O.042
.0/15.
0.43
O.O42
.0/15.
5.76
O/ 5.O/ 5.0/ 5
4 . O7 5 . 25
0.0 0.0 0
O/ 5.O/ 5.0/ 5
33.35 1O1 .51
O.O O.O 0
O/ 5,0/ 5.0/ 5
262.85 874.22
O.O O.O O
O/ 5.0/ 5.O/ 5.
9.75 11. 9O
0.0 O.O 0
O/15.O/15.O/15
O.45 1 .33
O.O36 O.O05 0
0/15.O/15.O/15
6.32 12.84
O.O36 O.OO5 O
O/15.O/15.O/15
65.48 251 .44
0.036 O.005 O
0/15. O/15. 0/15
2.61 1O. 48
O.036 O.O05 0
O/15.O/15 .0/15
0.37 O.25
0.036 O.O05 O
O/15. 0/15. 0/15.
4.99 8.49
O.036 O.O05 0
O/15.O/15.0/15
56.97 238.68
0.036 O.O05 0
O/15.O/15.0/15
2.O7 6.87
O.036 O.OO5 0
O/15.O/15.O/15
O.58 1.73
O.036 O.005 0
O/15.0/15.O/15
7.29 16 58
.0/5.0 O O.O
O.O 0.0 0.
.033 0.009
.O/5.O O 0.0
0.0 O.O 8
O33 O.OO9 33.67
.O/5.O O O.O
0.0 0.0 35
.033 O.009 276.37
.O/ 5.0 0 O.O
O.O O.O 4O
.033 0.009 9.39
. 0/15.O 50 37.1
O.O O O O
.033 0.009
.O/15.O 5O 37. 1
O.73 1.32 5
.033 O.OO9 6.59
.O/15.0 5O 37. 1
2.74 4.23 17
.033 O.O09 73.86
.O/15.0 50 37.1
1.42 2.45 28
.033 O.O09 3.44
.O/15.0 50 37.1
O.O 0.0 0
.033 O.O09
.O/15.0 50 37.1
O.73 O.82 5
.033 O.O09 5. 18
.0/15.0 50 37.1
2.74 2.81 17
.033 0-O09 61 .08
.0/15.0 50 37.1
1.31 1 .76 19
.033 O.OO9 2.64
.O/15.O 5O 37. 1
O.O O.O O
.033 O.OO9
.0/15.0 50 37.1
1.O6 2.37 10
10O
.0
100
.49
1OO
.01
1OO
.29
50
.0
50
.35
50
.42
50
.74
50
.0
50
. 1O
50
.42
50
.99
50
.0
5O
.88
.O
1 1
.0
45
.0
1O2
-O
O
.0
16
.0
23
.0
44
.0
0
.0
11
.0
17
.0
40
.0
0.
.0
2O
.O
29
O.
.58
O.
.34
0.
.51
O.
.58
50.
.02
5O
.31
5O.
,O2
50.
.90
5O.
.66
50.
.92
50.
.84
50.
.85
5O.
.83
5O.
.99
O
0
O
O
O
0
0
0
0
0
0
0
0
O
50O
50O
5OO
50O
5OO
50O
5OO
500
5OO
5OO
500
5OO
5500
55OO
Ln
—I
4.1.3 MOBILE2 EXAMPLE03 Diagnostic and Report Output
-------
C O.75O O.O79 O.O46 O.042 0.036 0.OO5 O.O33 O.OO9 7.93
A 3 85 15.O/15.O/15.O/15.0/15.0/15.O/15.0/15.0 5O 37.1 5O. O 5O. O 55OO.
B 2 1OO.19 97 02 63.36 84 61 4O5.58 3.91 5.94 28 25 62.13
C 0.75O O.O79 O.O46 O.O42 O.036 0.OO5 O O33 0.OO9 1O4.48
A 3 85 15.O/15.0/15.0/15.0/15.0/15.O/15.0/15.0 50 37.1 5O.O 50 O 55OO.
B 3 1.76 2.19 2.09 2.15 8.O5 1.42 2.45 28.74 O 54
C 0.750 O.O79 O.O46 0.042 O.O36 O.OO5 O.033 O.OO9 2.94
A 1 0 55.O/55.O/55.O/55.O/55.O/55.O/55.O/55.O 110 74.2 O.O 1OO.O 50O.
B E 0.10 0.11 0.09 0.10 0.12 0.0 0.0 O.O 16.13
C O.631 O.O67 O.O46 O.O42 O.153 O.O18 0 033 0.O09
A 1 O 55.O/55.O/55.O/55.O/55.O/55.O/55.O/55.0 11O 74.2 O 0 1OO.O 50O.
B 1 1.09 0.85 0.79 O.82 1.30 0.36 0.61 1.65 18.66
C O.631 O.O67 O.O46 O.O42 O.153 O.O18 O.O33 O.OO9 1.13
A 1 O 55.0/55.O/55.O/55.0/55.O/55.0/55.0/55.O 110 74.2 O.O 1OO.O 5OO.
B 2 13.78 7.72 6.O4 7.O3 26.69 1.21 1 92 6.59 9.59
C O.631 O.O67 O.O46 O.O42 O.153 O.O18 0.033 O.OO9 11.13
A 1 O 55.0/55.O/55.O/55.O/55.O/55.O/55.O/55.O 110 74.2 O.O 1OO.O 5OO.
B 3 1.36 O.93 O.79 0.87 2.€6 1.44 1 39 8.68 1 28
C 0.631 0.067 0.046 O.042 0.153 0.018 0.033 0.009 1.61
Ln
OO
4 1.3 MOBILE2 EXAMPLES Diagnostic and Report Output (cont )
-------
4 1.4 MOBILE2 EXAMPLE H 4
Input
Record (8O columns)
17 IPROMT.IOUNEW( 1 )
MOBILE2 EXAMPLE #4
1 INFLAG
O SPDFLG
1 VMFLAG
1 MYMRFG
0 ALTFLG
O IMFLG
1 ALHFLG
O TRKFLG
3 IFORM
0 PRTFLG
1 ICEVFG
1 IDLFLG
1 NMHFLG
0
.OBO
.OBO
.050
.O5O
050
.OBO
.OBO
.050
.050
050
.050
.OBO
O5O
050
O5O
.O5O
UNFFLG
,O5O
.O5O
.OBO
.OBO
.050
.OBO
.050
.OBO
.050
050
.O5O
.050
.O5O
.050
.OBO
OBO
.050
.OBO
.050
-OBO
.OBO
.OBO
.OBO
.O5O
.050
.050
.050
.O5O
.O5O
.OBO
.O5O
.050
.OBO
.OBO
.050
.O5O
.O5O
.OBO
.050
.OBO
.050
.OBO
.OBO
.050
.050
.050
.OBO
.OBO
O50
.050
.O5O
OBO
.050
.050
.050
.050
.050
050
O50
050
.OBO
.OBO
-O50
050
.050
OBO
050
.050
.050
.OBO
.050
OBO
.050
050
.050
050
.050
.050
.OBO
.OBO
.OBO
.O5O
.050
.OBO
.050
.OBO
.050
.O5O
.050
OBO
O50
.050
.O5O
.OBO
.050
.050
.050
.050
.OBO
.OBO
.O5O
.O5O
.OBO
.050
.050
05O
050
.050
.050
.050
.O5O
.O5O
.OBO
.OBO
.050
.050
050
OBO
.O5O
.OBO
.050
.OBO
.OBO
.050
.OBO
OBO
OBO
05O
.O5O
.O5O
OBO
.OBO
.050
.OBO
.O5O
.050
050
.050
050
.050
.O5O
.050
.OBO
.OBO
1 70 5.O 8O 0 O.O 10O. O.O
. 784 . O84 . O47 . O42 . OOO . OOO O35 . OO8
.100.050.070.090.04060.0
1 85 15.0 8O.O 37.1 5O.O 50.O
.782.O82.O47.O42.OO2.001.O35 OO9
1OO.O5O.O7O.O90.04O6O.O
2 85 15.0 8O.O 37.1 5O.O 50.O
.20O.2OO.2OO.2OO.2OO.OOO.OOO.OOO
.1OO.OBO.O7O.O9O.O4OGO.O
3 85 15.O 8O.O 37 1 5O.0 50.O
.7OO.O75.O4O.O15.O15.O35 12O.OOO
.1OO.O5O.O7O.O9O.O4O60 O
1 OO 55.O 8O.O 74.2 00 100
7OO.075.04O.O15.015.035 120.OOO
.1OO.OBO.O70.090.04O60 0
1
4 1.4 MOBILE2 EXAMPLES Input
Descr ipt ion
Sect Ion
FLAG
TITLE
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
MYM
MYM
MYM
MYM
MYM
MYM
MYM
MYM
MYM
MYM
MYM
MYM
MYM
MYM
MYM
MYM
LDGV
LDGV
LDGT1
LDGT1
LDGT2
LDGT2
HDGV
HDGV
LDDV
LDDV
LOOT
LDDT
HDDV
HDDV
MC
MC
AGES
AGES
AGES
AGES
AGES
AGES
AGES
AGES
AGES
AGES
AGES
AGES
AGES
AGES
AGES
AGES
1-10
1 1-2O
1-1O
1 1-2O
1-10
1 1-2O
1-1O
1 1-20
1-10
1 1-2O
1-1O
1 1-2O
1-10
1 1-2O
1-1O
11-2O
SCENARIO
VMT MIX
LD ADDITIONAL CORRECTION
SCENARIO
VMT MIX
LD ADDITIONAL CORRECTION
SCENARIO
VMT MIX
LD ADDITIONAL CORRECTION
SCENARIO
VMT MIX
LD ADDITIONAL CORRECTION
SCENARIO
VMT MIX
LD ADDITIONAL CORRECTION
FACTORS
FACTORS
FACTORS
FACTORS
FACTORS
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
ONE-TIME
ONE-TIME
ONE-TIME
ONE-TIME
ONE-TIME
ONE-TIME
ONE-TIME
ONE-TIME
ONE-TIME
ONE-TIME
ONE-TIME
ONE-TIME
ONE-TIME
ONE-TIME
ONE-TIME
ONE-TIME
PARAMETER
PARAMETER
PARAMETER
PARAMETER
PARAMETER
PARAMETER
PARAMETER
PARAMETER
PARAMETER
PARAMETER
PARAMETER
PARAMETER
PARAMETER
PARAMETER
PARAMETER
.8
-------
Example 4 uses a "vertical" input format with prompting (IPROMT=1) and a
wide descriptive format for 9 vehicle types (including a combined LDGT
group, IFORM=3). The formatted reports are sent to unit 7 (IOUNEWM)=7).
All other outputs are sent to their default units. As can be seen in the
output, all prompting and diagnostic messages are printed separate
from the formatted output report.
The input options used in this example are:
user supplied VMT mix for each scenario (VMFLAG=1)
- use of four additional correction factors for light-duty vehicles and
trucks. The user supplies one factor for air conditioning use,
three usage fractions for vehicles with extra load (LDGV, LDGT1, LDGT2),
one usage fraction for LDGVs and LDGTs towing a trailer, and one humidity
level (ALHFLG=1)
user supplied annual mileage accumulation rates for twenty years and
eight vehicle types (MYMRFG=1)
The output options used in this example are:
print total crankcase and evaporative HC emissions (ICEVFG=1)
print idle emission factors (IDLFLG=1)
print non-methane HC emissions (NMHFLG=1)
4.1.4 MOBILE2 EXAMPLES Input (cont.)
-------
ENTER PROJECT ID:
MOBILE2 EXAMPLE #4
COMMENT: CURRENT OUTPUT UNIT NUMBERS ARE IOUUNF=9 IOUREP=7 IOUERR=6 IOUASK=6
ENTER INFLAG:
ENTER SPDFLG:
ENTER VMFLAG:
ENTER MYMRFG:
ENTER ALTFLG:
ENTER IMFLG:
ENTER ALHFLG:
ENTER TRKFLG:
ENTER I FORM:
ENTER PRTFLG:
ENTER ICEVFG:
ENTER IDLFLG:
ENTER NMHFLG:
ENTER UNFFLG:
ENTER MYM
ENTER MYM
ENTER MYM
ENTER MYM
ENTER MYM
ENTER MYM
ENTER MYM
ENTER
ENTER
ENTER MYM
ENTER MYM
ENTER MYM
ENTER
ENTER
ENTER MYM
ENTER MYM
WARNING
WARNING
WARNING
WARNING
WARNING
WARNING
WARNING
WARNING
WARNING
MYM
MYM
MYM
MYM
AGES 1-
AGES 11
AGES 1-
AGES 11
AGES 1-
AGES
AGES
AGES
AGES
AGES
AGES
AGES
AGES
AGES
AGES
AGES
0.500E-
0.500E-
0.500E-
O.5OOE-
0.500E-
0.500E-
0.5OOE-
0.500E-
0.500E-
1O FOR LDGV:
-20 FOR LDGV:
1O FOR LDGT1:
-2O FOR LDGT1:
10 FOR LDGT2:
-2O FOR LDGT2:
1O FOR HDGV:
-20 FOR HDGV:
1O FOR LDDV:
-20 FOR LDDV:
1O FOR LDDT:
-20 FOR LDDT:
1O FOR HDDV:
-2O FOR HDDV:
1O FOR MC:
-2O FOR MC:
01 MILEAGE WITH
01 MILEAGE WITH
O1 MILEAGE WITH
O1 MILEAGE WITH
O1 MILEAGE WITH
O1 MILEAGE WITH
O1 MILEAGE WITH
01 MILEAGE WITH
O1 MILEAGE WITH
ZERO
ZERO
ZERO
ZERO
ZERO
ZERO
ZERO
ZERO
ZERO
REGISTRATION
REGISTRATION
REGISTRATION
REGISTRATION
REGISTRATION
REGISTRATION
REGISTRATION
REGISTRATION
REGISTRATION
ENTER REGION, CY,SPD(1),TAMB,PCCN,PCHC,PCCC :
ENTER VMT SPLIT-
ENTER AC.XLOAD(3),TRAILR(1),ABSHUM
COMMENT: A/C CORRECTION FACTOR WILL BE CALCULATED.
VALUE OF INPUTTED AC USAGE PARAMETER IS IGNORED.
ENTER REGION, CY,SPD(1),TAMB,PCCN,PCHC,PCCC:
ENTER VMT SPLIT:
ENTER AC,XLOAD(3),TRAILR(1).ABSHUM
4.1.4 MOBILE2 EXAMPLE/M Prompting and Diagnostic Output
-------
COMMENT: A/C CORRECTION FACTOR WILL BE CALCULATED.
VALUE OF INPUTTED AC USAGE PARAMETER IS IGNORED.
ENTER REGION, CY,SPD(1),TAMB,PCCN,PCHC,PCCC:
ENTER VMT SPLIT:
ENTER AC,XLOAD(3),TRAILR(1),ABSHUM
COMMENT: A/C CORRECTION FACTOR WILL BE CALCULATED
VALUE OF INPUTTED AC USAGE PARAMETER IS IGNORED.
ENTER REGION, CY,SPD(1),TAMB,PCCN,PCHC,PCCC •
ENTER VMT SPLIT:
ENTER AC,XLOAD(3),TRAILR(1),ABSHUM
COMMENT: A/C CORRECTION FACTOR WILL BE CALCULATED.
VALUE OF INPUTTED AC USAGE PARAMETER IS IGNORED.
ENTER REGION, CY.SPD(1),TAMB,PCCN,PCHC,PCCC :
ENTER VMT SPLIT:
ENTER AC.XLOADO) ,TRAILR( 1 ), ABSHUM
COMMENT: A/C CORRECTION FACTOR WILL BE CALCULATED.
VALUE OF INPUTTED AC USAGE PARAMETER IS IGNORED.
ENTER REGION. CY,SPD(1),TAMB,PCCN,PCHC,PCCC:
4.1.4 MOBILE2 EXAMPLE04 Prompting and Diagnostic Output (cont )
-------
MOBILE2 EXAMPLE #4
*NON-METH HC EMISSION FACTORS INCLUDE EVAP HC EMISSION FACTORS
CAL . YEAR: 197O
REGION: 49-STATE LOWALT
VEH. TYPE LDGV
VEH. SPEEDS
VMT MIX
EXTRA LOAD
TRLR IN TOW
COMPOSITE Ef
NON-METH HC
*EVAP HC
EXHAUST CO
EXHAUST NOX
HOT STABILi;
NM-IDLE HC
IDLE CO
IDLE NOX
5
O
O
0
.O
784
.050
.040
MISSION FACTORS
26
3
278
5
?ED IDLE
1
14
0
CAL. YEAR: 1985
.79
.97
LDGT1
5.0
O.O84
0.070
O.O4O
(GM/MILE)
27.54
4.5O
.77 287. 8O
.82
5.93
EMISSION FACTORS
.25
.95
1 1
1 . 25
15.04
0.11
LDGT2
5.0
0.047
0.09O
0.04O
35.51
4 .77
335.37
9.36
(GM/MIN)
1 .55
19.02
0 08
REGION: 49-STATE LOWALT
VEH. TYPE LDGV
VEH SPEEDS
VMT MIX
EXTRA LOAD
TRLR IN TOW
COMPOSITE El
NON-METH HC
*EVAP HC
EXHAUST CO
EXHAUST NOX
HOT STABILI
NM-IDLE HC
IDLE CO
IDLE NOX
15
O
0
O
MISSION
3
0
55
2
ZED IDLE
O
7
0
CAL. YEAR: 1985
.0
.782
.050
.O4O
FACTORS
.80
.54
.69
.43
LDGT1
15.0
O.082
O.O7O
O.O4O
(GM/MILE)
4.99
0.75
64.31
3.11
EMISSION FACTORS
38
.24
. 16
0.39
6 .83
0.08
REGION: CALIF.
VEH. TYPE LDGV
VEH. SPEEDS 15
VMT MIX O
EXTRA LOAD 0
TRLR IN TOW 0
COMPOSITE EMISSION
NON-METH HC 2
*EVAP HC 0
EXHAUST CO 42
.0
.200
.O5O
.O4O
FACTORS
93
.50
.20
LDGT1
15 0
O. 2OO
0 070
0 04O
(GM/MILE)
3.9O
0 69
52 . 71
LDGT2
15.0
O.O47
O.O90
O.O4O
4.28
O.52
49.01
2.91
(GM/MIN)
0.27
3.75
0 06
LOWALT .
LDGT2
15.0
O.20O
0 O9O
0.04O
2 .85
0.27
45.94
ALT:
AC (DB/WB)
LDGT
30. 4O
4.6O
3O4.B7
7. 16
1 .36
16.47
O. 1O
ALT:
AC (DB/WB)
LDGT
4.73
0.66
58.74
3.04
0.35
5.71
0.07
ALT:
AC (DB/WB)
LDGT
3 37
0.48
49 33
5OO . FT
: O 9 ( 85
HDGV
5.O
O.O42
63.84
7 57
7O1 14
7 71
2 24
23 72
O.O4
5OO. FT.
: O.9 ( 85
HDGV
15. O
O.O42
13.57
2.97
227 81
9.62
0.65
7 20
O.O6
500. FT
: 0.9 ( 85
HDGV
15 0
0 2OO
8 49
0 82
215 8O
TAMB:
.O/ 75. O)
LDDV
5.O
O.O
O.O
O.O
O.O
0.0
O.O
O.O
0.0
TAMB
.O/ 75.0)
LDDV
15 O
O.OO2
O.61
0.0
2.53
1 .32
0.03
O. 16
O. 13
TAMB
.O/ 75 0)
LDDV
15.0
O.2OO
O 61
0 0
2.53
8O.O(F) O.O/1OO.O/
ABSHUM: 6O.OO
LDDT
5.O
0.0
0.0
0.0
O.O
0.0
O.O
O.O
O.O
8O.O(F)
HDDV
5.0
O.O35
6.67
O.O
29.72
36.54
O 35
0 7O
O.92
37.
MC
5.O
O.OO8
34.52
1 .86
12O 69
0.50
2 57
4.76
O.01
1/ 5O.O/
O.O
ALL VEH.
28. 17
289.95
7.11
1 .28
14 94
O 13
50.0
ABSHUM: 6O.OO
LDDT
15.0
O.OO1
1 .05
0.0
3.87
2.29
O O9
O.32
0 33
8O.O(F)
HDDV
15.0
O.O35
4.20
O.O
14.79
26. O6
0.35
O.7O
O.92
37 .
MC
15 0
O.OO9
1 1 .08
2. 19
43.56
0.84
1 41
3.25
O.O3
1/ 5O O/
ALL VEH.
4 .40
61 .61
3.62
O 40
6.75
0. 17
5O.O
ABSHUM: 60 00
LDDT
15 0
O O
0 0
0.0
0.0
HDDV
15 0
O.O
O O
0.0
O O
MC
15 .O
O O
O 0
0 0
O.O
ALL VEH.
3 75
7 1 .83
ON
U)
4.1.4 MOBILE2 EXAMPLES Report Output
-------
EXHAUST NOX:
2.06
2.59
2.42
2.50
7.06
1 21
0 O
O.O
O O
3.O7
HOT STABILIZED IDLE EMISSION FACTORS
NM-IDLE HC
IDLE CO
IDLE NOX
CAL. YEAR-
VEH TYPE
VEH. SPEEDS
VMT MIX
EXTRA LOAD
TRLR IN TOW
COMPOSITE EH
NON-METH HC
*EVAP HC
EXHAUST CO
EXHAUST NOX
HOT STABILi;
NM-IDLE HC
IDLE CO
IDLE NOX
CAL. YEAR:
VEH. TYPE
VEH. SPEEDS
VMT MIX
EXTRA LOAD
TRLR IN TOW
0. 19
2.44
O.05
0.27
5.36
O.O7
(GM/MIN)
O.20
4 .24
O 03
1985 REGION: 49-STATE HIALT.
LDGV
15.0
O.7OO
0.050
O.040
MISSION FACTORS
4.66
0.68
84.52
1 .79
LDGT1
15. O
0.075
O.O7O
O.040
(GM/MILE)
€. 16
O.95
91 .33
2 .29
'.ED IDLE EMISSION FACTORS
0.32
6.82
O.O5
O.39
7. 16
O.O4
LDGT2
15.0
O 040
O 09O
0.04O
4 95
O.67
64.91
2.27
(GM/MIN)
0.29
4 .24
0.05
2OOO REGION: 49-STATE LOWALT
LDGV
55. 0
0.700
O.O50
O.O40
COMPOSITE EMISSION FACTORS
NON-METH HC
•EVAP HC
EXHAUST CO
EXHAUST NOX
O.55
0. 10
16.39
2.99
LDGT1
55.0
0.075
0.070
O.040
(GM/MILE)
O.5B
O. 11
10.49
2.21
HOT STABILIZED IDLE EMISSION FACTORS
NM-IDLE HC
IDLE CO
IDLE NOX
0. 14
3.91
0.11
O.O5
O.99
O.O2
LDGT2
55. O
0.040
O.O90
O.O40
0.51
0.09
8.37
1 .94
(GM/MIN)
O.04
0.67
O.02
0.24
4.80
O.O5
ALT:
AC (DB/WB)
LDGT
5.74
O.85
82. 14
2.29
O.35
6. 14
O.04
ALT:
AC (DB/WB)
LDGT
0 55
O. 1 1
9.75
2.11
O O5
0 88
O.O2
0 45
6 87
O.O5
5500
: O.9
HDGV
15.0
O.O15
17 87
3.86
392.30
6.95
O.69
7 97
O O4
5OO.
• O.9
HDGV
55.0
0.015
0 74
0.30
14 29
4.03
0 13
1 .08
O O1
0 03
O. 16
O. 12
FT TAMB
( 85. O/ 75. O)
LDDV
15. O
O.O15
O.94
0.0
3 74
1 .32
0.05
0.24
0. 13
FT TAMB
( 85. O/ 75.0)
LDDV
55 O
0.015
O 28
0 0
1 07
1.21
O 03
O. 18
0. 12
0.0
0 0
O O
8O.O(F)
0
0
O
ABSHUM-
LDDT
15. O
O.O35
2 O6
0.0
5.64
2.29
O. 18
0 47
O 33
80.O(F)
O
O
0
37. I/
6O OO
HDDV
15
0
9
O
25
26
O
1
O
ABSHUM •
LDDT
55.0
0.035
O.47
O.O
1 70
1 .21
O. 10
0 34
O. 16
0
12O
52
0
62
O6
80
20
92
74 2/
60.00
HDDV
55
O
1
0
5
7
0
0
O
O
120
23
0
59
30
26
70
24
0 0
O.O
O.O
50. O/ 50.
MC ALL
15. O
O O
O.O
O.O
0.0
O.O
O.O
O.O
O.O
0.0/100.
MC ALL
55. O
0 0
0.0
0.0
0.0
0.0
0.0
O.O
O O
O.23
3.82
O.O6
0
VEH
5.42
77.82
4.85
O.38
5.76
O. 17
0
VEH.
0.63
13.56
3 34
0. 14
2 95
0 12
4.1 4 MOBILE2 EXAMPLE04 Report Output (cont.)
-------
4.1.5 MOBILE2 EXAMPLE M 5
Input Record (8O columns)
Descr ipt ion
Sect Ion
3ABC
MOBILE2 EXAMPLE
1 2 2 2 1 2 2 O
#5
40311
200. 20O 2O0.2OO 20O
. 100
.020
. 1OO
.020
. 1OO
.O2O
. 10O
.O2O
. 1OO
,O2O
. 100
.O2O
. 1OO
.O2O
. 1OO
.020
.050
.020
.050
O2O
.050
.020
.050
.O2O
-O5O
.O2O
.050
.O2O
O5O
.020
.050
.020
. 100
.020
. 100
.O2O
. 1OO
.O2O
. too
.020
. 1OO
.O2O
1OO
.O2O
. 1OO
.O2O
. 1OO
.020
.050
.020
.050
.O2O
O50
.O2O
.O5O
.020
.050
.O2O
.050
.020
O5O
.020
-O5O
.020
O
. ooo . ooo . ooo
. 100
.020
. 1OO
O2O
. 1OO
.O2O
100
.020
. 100
.020
. 100
020
1OO
.020
. 1OO
.020
.050
.020
.050
.020
.050
.020
.O5O
O2O
.050
.O2O
.050
.O2O
.050
.020
.O5O
.020
. 100
.O2O
. 100
.020
100
.020
. 10O
02O
100
.020
. 100
.O2O
1OO
.020
. 1OO
O2O
050
.020
.050
.020
050
.020
.050
.020
.050
.020
.050
.020
.050
.020
.050
02O
. 10O .
.020 .
. 1OO
.O2O .
. 100 .
.O2O .
. 100
.O2O
. 1OO .
.O2O
. 1OO .
02O .
. 1OO .
.O2O .
. 1OO .
.020 .
050
070
O5O
070
050
O7O
O50
O7O
O50
O7O
050
070
05O
070
O5O
O7O
1O
1
1
1
1
1
1
1
1
1
1
3 1
3 2
3 3
4 1
4 2
4 3
5 1
5 2
5 3
6 1
85 44
1
3. 1
31.1
75
51 OO
51 OO
51 OO
51 00
51 OO
51 OO
51 00
51 OO
51 OO
51 00
0 75
3. 1
26 3
5.0
1 .
1 .
1
1 .
1 .
1 .
1 .
1 .
1 .
1
9O 1
3 1
33.7
5.0
OO
00
OO
.00
OO
OO
,00
OO
OO
OO
60 0
10. O
1OO.
5 0
O.OO
o.oo
O 00
0 OO
o.oo
o.oo
0 00
o.oo
0.00
o.oo
o.o
o.o
5.0
1 O
1 .O
5 0
1 .O
1 .0
5.0
1 O
1 .O
5.0
5.0 80
.0
0.0 100. 0.0
. 1OO.O5O.O7O.O9O.O4O.O30.O2O6O.O8O.O75 O
1 85 5 O 15.O 25.O 35.0 45.0 55.0 50.O 20.O 8O.0 37.1 50.O 5O.0
.1OO.O5O.O7O.O9O.O4O.030 0206O.O8O.075.O
2 85 5.O 15.O 25.O 35 0 45 0 55.O 5O O 2O.O 8O.0 37.1 50 O 50.0
10O.O50.07O.09O.O40.O30.02O6O.080.075 O
3 85 5 O 15 0 25.0 35.O 45.O 55 0 50.O 2O.O 8O.0 37 1 5O.O 5O.O
.1O0.05O.O7O.O9O.O4O.O30.02O60 O80.075.O
1 OO 55.O 55.O 55.O 55 0 55 O 55.0 55.O 55 0 8O.O 74 2 O O 1OO.
.10O.O50.070.O9O O40.O30 O2060.08O.075 O
FLAG
TITLE
FLAGS
VMT MIX
MYR LD V AGES 1-1O
MYR LD V AGES 11-2O
MYR LD T1 AGES 1-1O
MYR LD-.T1 AGES 11-20
MYR LDGT2 AGES 1-10
MYR LDGT2 AGES 11-20
MYR HDGV AGES 1-10
MYR HDGV AGES 11-2O
MYR LD V AGES 1-1O
MYR LD V AGES 1 1 -2O
MYR LD TJ AGES 1-1O
MYR LD T1 AGES 11-2O
MYR HDDV AGES 1-1O
MYR HDDV AGES 11-20
MYR MC AGES 1-1O
MYR MC AGES 11-2O
ALTERNATE BASIC EMISSION
ALTERNATE BA3IC EMISSION
ALTERNATE BASIC EMISSION
ALTERNATE BASIC EMISSION
ALTERNATE BASIC EMISSION
ALTERNATE BASIC EMISSION
ALTERNATE BASIC EMISSION
ALTERNATE BASIC EMISSION
ALTERNATE BASIC EMISSION
ALTERNATE BASIC EMISSION
ALTERNATE BASIC EMISSION
I/M DATA
TRIPS/DAY
MILES/DAY
SCENARIO
LD ADDITIONAL CORRECTION
SCENARIO
LD ADDITIONAL CORRECTION
SCENARIO
LD ADDITIONAL CORRECTION
SCENARIO
LD ADDITIONAL CORRECTION
SCENARIO
LD ADDITIONAL CORRECTION
RATES
RATES
RATES
RATES
RATES
RATES
RATES
RATES
RATES
RATES
RATES
FACTORS
FACTORS
FACTORS
FACTORS
FACTORS
CONTROL
CONTROL
CONTROL
ONE-TIME
ONE-TIME
ONE-TIME
ONE-TIME
ONE-TIME
ONE-TIME
ONE-TIME
ONE-TIME
ONE-TIME
ONE-TIME
ONE-TIME
ONE-TIME
ONE-TIME
ONE-TIME
ONE-TIME
ONE-TIME
ONE-TIME
ONE-TIME
ONE-TIME
ONE-TIME
ONE-TIME
ONE-TIME
ONE-TIME
ONE-TIME
ONE-TIME
ONE-TIME
ONE-TIME
ONE-TIME
ONE-TIME
ONE-TIME
ONE-TIME
PARAMETER
PARAMETER
PARAMETER
PARAMETER
PARAMETER
PARAMETER
PARAMETER
PARAMETER
PARAMETER
PARAMETER
1
.6 . .
4.1.5 MOBILE2 EXAMPLES Input
-------
Example 5 uses a "horizontal" input format with prompting (IPROMT=3) and an
SO column wide descriptive format for 9 vehicle types (including a combined
LDGT group, IFORM=4). The formatted results and messages are sent to their
default values since "A", "B", and "C" are illegal values for IOUNEW(1),
IOUNEW(2), and IOUNEWO). The output unit numbers are displayed in the
output.
The input options used in this example are:
eight average speeds, one per vehicle type (SPDFLG=2)
one-time user supplied VMT mix (VMFLAG=2)
— user supplied annual vehicle registration distribution for twenty years
and eight vehicle types (MYMRFG=2)
user supplied alternative basic emission rates (ALTFLG=1)
- a LDGV and LDGT1 I/M program with a 6O percent Technology IV
identification rate (IMFLG=2)
the use of four additional correction factors for light duty vehicles and
trucks. The user supplies one factor for air conditioning use, three
extra load usage fractions (LDGV, LDGT1, LDGT2), three usage fractions
for vehicles towing a trailer (LDGV, LDGT1, LDGT2), one humidity level,
one dry bulb temperature, and one wet bulb temperature (ALHFLG=2)
user supplied trips/day and miles/day (ICEVFG=3).
The output options used in this example are:
print total crankcase and evaporative HC emissions (TCF_VFG=3)
print idle emission factors (IDLFLG=1)
print non-methane HC emissions (MMHFLG=1)
4.1.5 MOBILE2 EXAMPLES Input (cont.)
-------
ENTER PROJECT ID:
ENTER INFLAG, SPDFLG, VMFLAG, MYMRFG, ALTFLG, IMFLG, ALHFLG.
TRKFLG, IFDRM, PRTFLG, ICEVFG, IDLFLG, NMHFLG, & UNFFLG
ENTER VMT SPLIT:
ENTER MYR
ENTER MYR
ENTER MYR
ENTER MYR
ENTER MYR
ENTER MYR
ENTER MYR
ENTER MYR
ENTER MYR
ENTER MYR
ENTER MYR
ENTER MYR
ENTER MYR
ENTER MYR
ENTER MYR
ENTER MYR
WARNING-
WARNING:
WARNING:
WARNING:
WARNING:
WARNING:
WARNING-
WARNING-
WARNING:
1O FOR LDGV:
-2O FOR LDGV:
10 FDR LDGT1:
-2O FOR LDGT1:
1O FOR LDGT2:
-2O FOR LDGT2:
10 FOR HDGV:
-2O FOR HDGV:
1O FDR LDDV:
-2O FOR LDDV:
1O FOR LDDT:
-2O FOR LDDT:
10 FOR HDDV:
-2O FOR HDDV:
1O FOR MC:
-2O FOR MC:
O1 REGISTRATION
01 REGISTRATION
01 REGISTRATION
O1 REGISTRATION
O1 REGISTRATION
O1 REGISTRATION
O1 REGISTRATION
O1 REGISTRATION
0.7OOE-01 REGISTRATION
AGES
AGES
AGES
AGES
AGES
AGES
AGES 1-
AGES 11
AGES
AGES
AGES
AGES
AGES
AGES
AGES
AGES
O.2OOE-
O.2OOE-
0.200E-
0.200E-
O.2OOE-
O.2OOE-
O 2OOE-
0.200E-
1-
1 1
1-
1 1
1-
1 1
1-
11
WITH
WITH
WITH
WITH
WITH
WITH
WITH
WITH
WITH
ZERO
ZERO
ZERO
ZERO
ZERO
ZERO
ZERO
ZERO
ZERO
MILEAGE
MILEAGE
MILEAGE
MILEAGE
MILEAGE
MILEAGE
MILEAGE
MILEAGE
MILEAGE
ENTER NO. OF NEW E.F. INTERCEPT/SLOPE PAIRS (12)
ENTER REGION,VEH. TYPE,POLLUTANT,FIRST MY,
LAST MY,NEW INTERCEPT (A), AND NEW SLOPE (B)
ENTER REGION,VEH. TYPE,POLLUTANT,FIRST MY,
LAST MY,NEW INTERCEPT (A), AND NEW SLOPE (B)
ENTER REGION,VEH. TYPE,POLLUTANT,FIRST MY,
LAST MY,NEW INTERCEPT (A), AND NEW SLOPE (B)
ENTER REGION,VEH. TYPE,POLLUTANT,FIRST MY,
LAST MY,NEW INTERCEPT (A), AND NEW SLOPE (B)
ENTER REGION,VEH. TYPE,POLLUTANT,FIRST MY,
LAST MY,NEW INTERCEPT (A), AND NEW SLOPE (B)
ENTER REGION,VEH. TYPE,POLLUTANT,FIRST MY,
LAST MY,NEW INTERCEPT (A), AND NEW SLOPE (B)
ENTER REGION,VEH. TYPE,POLLUTANT,FIRST MY,
LAST MY,NEW INTERCEPT (A), AND NEW SLOPE (B)
ENTER REGION,VEH. TYPE,POLLUTANT,FIRST MY,
LAST MY,NEW INTERCEPT (A), AND NEW SLOPE (B)
ENTER REGION,VEH. TYPE,POLLUTANT,FIRST MY,
LAST MY,NEW INTERCEPT (A), AND NEW SLOPE (B)
ENTER REGION,VEH. TYPE,POLLUTANT,FIRST MY,
LAST MY,NEW INTERCEPT (A), AND NEW SLOPE (B)
CT-
—j
WARNING-
WARNING:
WARNING:
WARNING:
WARNING:
EQUATION
EQUATION
EQUATION
EQUATION
EQUATION
WARNING: EQUATION
WARNING: EQUATION
1 ZEROES ALL IDLE COEFFICIENTS (AND TOTAL) FOR IR=1, IV=3. IP=1
2 ZEROES ALL IDLE COEFFICIENTS (AND TOTAL) FOR IR=1, IV=3, IP=2
3 ZEROES ALL IDLE COEFFICIENTS (AND TOTAL) FOR IR=1, IV=3, IP=3
4 ZEROES ALL IDLE COEFFICIENTS (AND TOTAL) FOR IR=1, IV=4. IP=1
5 ZEROES ALL IDLE COEFFICIENTS (AND TOTAL) FOR IR=1. IV=4, IP=2
6 ZEROES ALL IDLE COEFFICIENTS (AND TOTAL) FOR IR=1, IV=4, IP=3
7 ZEROES ALL IDLE COEFFICIENTS (AND TOTAL) FOR IR=1, IV = 5, IP=1
4 1.5 MOBILE2 EXAMPLES Prompting, Diagnostic, and Report Output
-------
WARNING: EQUATION 8 ZEROES ALL IDLE COEFFICIENTS (AND TOTAL) FOR IR=1, IV=5, IP=2
WARNING: EQUATION 9 ZEROES ALL IDLE COEFFICIENTS (AND TOTAL) FOR IR=1, IV = 5. IP=3
WARNING. EQUATION 10 ZEROES ALL IDLE COEFFICIENTS (AND TOTAL) FOR IR=1, IV=s! IP=1
ENTER YEAR I/M BEGINS, STRINGENCY, M.T FLAG,
FIRST MODEL YEAR AND LAST MODEL YEAR OF PROG. BENEFITS
VEH.TYPE.OPTION,AND NEWDATA FLAG
ENTER AVERAGE TRIPS/DAY
ENTER AVERAGE MILES/DAY
ENTER REGION, CY,SPD(8),TAMB,PCCN.PCHC,PCCC:
ENTER AC,XLOAD(3),TRAILR(3),ABSHUM,DBTEMP , WBTEMP
COMMENT: A/C CORRECTION FACTOR WILL BE CALCULATED.
VALUE OF INPUTTED AC USAGE PARAMETER IS IGNORED.
MOBILE2 EXAMPLE #5
EMISSION FACTOR MODIFICATION PROFILE:
REGION VEH. POLLUTANT FIRST MY LAST MY
BASE
DR
ALTERED
1 3
1 3
3
4
4
4
5
5
5
6
1
2
3
1
2
3
1
2
3
1
1951
1951
1351
1951
1951
1951
1951
1951
1951
1951
2OOO
2OOO
2OOO
2OOO
2OOO
2OOO
2000
2000
2000
2000
1 .00
1 .OO
1 .OO
1 .00
1 .OO
1 .OO
1 .OO
1 .00
1 .OO
1 .00
O.O
O.O
0 0
O.O
O.O
0.0
o o
0.0
0 0
O.O
YES
YES
YES
YES
YES
YES
YES
YES
YES
YES
ON
00
*NON-METH HC EMISSION FACTORS INCLUDE EVAP. HC EMISSION FACTORS
CAL. YEAR: 1975 REGION: 49-STATE LOWALT. ALT: BOO. FT
TAMB: 8O.O(F) O.O/100.0/ O.O
AC (DB/WB): O.7 ( 80.O/ 75.0) ABSHUM: GO OO
LDGV, LDGT1 I/M PROGRAM STARTING IN 1985
STRINGENCY LEVEL 44% MECH.TRAINING: NO
1/M PROGRAM BENEFITS APPLY ONLY TO MODEL YEARS 1975 THROUGH 1990
ATTENTION: THE DEFAULT VALUE OF 5O% FOR TECHNOLOGY 4
I/M IDENTIFICATION RATE HAS BEEN CHANGED TO 6O%
VEH.
VEH
VMT
EXT.
TRLR
TYPE:
SPD . :
MIX :
LOAD:
TOW:
LDGV
5
0
0
0.
.0
.200
O5O
.040
LDGT1
5
O
0.
0.
.O
.2OO
.070
.030
LDGT2
5
O
O.
0.
.O
.200
.090
,O2O
LDGT
COMPOSITE EMISSION FACTORS (GM/MILE)
NO-MTH HC: 23 38 22.55 7.19 14.87
*EVAP HC- 2.46 2.67 3.73 3.20
EXHST C0:284.35 265.52 4.O4 134.78
EXHST NOX: 5 15 4.96 1.43 3.20
HDGV
5.0
O 2OO
6.09
3.17
2.88
0.87
LDDV
5 O
O.2OO
1 62
O.O
3.42
1 .70
LDDT
5.0
0.0
0.0
0.0
O.O
0.0
HDDV
5.0
O O
O 0
0.0
O 0
O.O
MC ALL VEH
5 O
O.O
0 0
00
O.O 112
00 2
12. 17
O4
82
HOT STABILIZED IDLE EMISSION FACTORS (GM/MIN)
4.1.5 MOBILE2 EXAMPLE*5 Prompting, Diagnostic, and Report Output (cont.)
-------
NM-ID
IDLE
IDLE
HC:
CO:
NOX:
1 . 14
16 €9
O. 14
1 .07
16 1O
O. 13
O.O
O 0
O.O
0.0
O O
O O
0.0
0 0
O.O
0 0
0 0
O O
0.0
O.O
O.O
0 O
O O
O 0
0 0
O O
O O
0 0
O 0
O.O
ENTER REGION. CY,SPD(8 ) ,TAMB.PCCN,PCHC,PCCC:
ENTER AC,XLOAD(3),TRAILR(3 ) ,ABSHUM,DBTEMP,WBTEMP
COMMENT: A/C CORRECTION FACTOR WILL BE CALCULATED.
VALUE OF INPUTTED AC USAGE PARAMETER IS IGNORED.
CAL YEAR- 1985 REGION: 49-STATE LOWALT. ALT BOO FT.
TAMB: 8O.O(F) 37.1/ 50.O/ 50.O
AC (DB/WB): O.7 ( 8O.O/ 75.O) ABSHUM SO OO
LDGV, LDGT1 I/M PROGRAM STARTING IN 1985
STRINGENCY LEVEL 44% MECH TRAINING- NO
I/M PROGRAM BENEFITS APPLY ONLY TO MODEL YEARS 1975 THROUGH 1990
ATTENTION: THE DEFAULT VALUE OF 5O% FOR TECHNOLOGY 4
I/M IDENTIFICATION RATE HAS BEEN CHANGED TO 6O%
VEH. TYPE
VEH. SPD.
VMT MIX
EXT. LOAD
TRLR TOW
COMPOSITE
NO-MTH HC
*EVAP HC
EXHST CO
EXHST NOX
LDGV LDGT1 LDGT2 LDGT
5.O 15.0 25. O
O 200 O.20O 0.2OO
O.O50 O.O7O O.O90
O.O40 O.030 0 020
EMISSION FACTORS (GM/MILE)
13 .23 5 64 2 . 14 3 89
0.61 0.67 1.09 0.88
2OO.59 68 77 1 33 35 05
2.56 3. O2 1.44 2.23
HOT STABILIZED IDLE EMISSION FACTORS
NM-ID HC
IDLE CO
IDLE NOX
O61 O.44 O.O O.O
1O 58 711 0 O O.O
018 O.O7 OO OO
HDGV
35
0
2
1
O
1
O
2OO
1 1
68
57
13
LDDV
45
O
O
0
0
1
O
2OO
56
0
68
O6
LDDT
55. O
0.0
O.O
0.0
O 0
O.O
HDDV
50
0
O
0
O
0
O
O
O
0
O
O
MC
20 O
0 O
0 O
0.0
O.O
O.O
ALL
4
--
54 .
1 .
VEH
74
--
39
84
(GM/MIN)
O
O
O
0
O
O
0
O
O
O
O
0
0 0
O.O
O O
O
0
O
O
0
0
O 0
O.O
O.O
0.
O.
O
O
O
0
ENTER REGION, CY,SPD(8 ),TAMB,PCCN,PCHC,PCCC•
ENTER AC,XLOAD(3),TRAILR(3),ABSHUM,DBTEMP,WBTEMP
COMMENT- A/C CORRECTION FACTOR WILL BE CALCULATED
VALUE OF INPUTTED AC USAGE PARAMETER IS IGNORED
CAL. YEAR- 1985 REGION. CALIF. LOWALT. ALT. BOO
TAMB- 80 0(F) 37.1/ 50 O/ 5O 0
AC (DB/WB)- O 7 ( 8O.O/ 75 O) ABSHUM BO OO
LDGV, LDGT1 I/M PROGRAM STARTING IN 1985
STRINGENCY LEVEL 44% MECH.TRAINING. NO
I/M PROGRAM BENEFITS APPLY ONLY TO MODEL YEARS 1975 THROUGH 199O
ATTENTION- THE DEFAULT VALUE OF 50% FOR TECHNOLOGY 4
I/M IDENTIFICATION RATE HAS BEEN CHANGED TO 60%
VEH TYPE:
VEH. SPD
VMT MIX.
EXT LOAD
TRLR TOW
LDGV LDGT1 LDGT2
50 15 O 25.0
O 2OO 0.200 0 2OO
O O50 O O70 O.090
O.O40 O O30 O 020
FT
LDGT HDGV LDDV LDDT HDDV
35.0 45.O 55.O BO O
0.2OO O.2OO O 0 0 O
MC ALL VEH
20.O
0 O
COMPOSITE EMISSION FACTORS (GM/MILE)
4 1.5 MOBILES EXAMPLE05 Prompting, Diagnostic, and Report Output (cont )
-------
NO-MTH HC
*EVAP HC
EXHST CO
EXHST NOX
HOT STAB 11
NM-ID HC
IDLE CO
IDLE NOX
1O. 31
O.56
164.22
2. 12
4.43
O.62
58.43
2.49
3.80
O.49
47.84
4.13
4.11
0.55
53. 14
3.31
.IZED IDLE EMISSION FACTORS
O.32
3.86
O.O5
O.32
6 .40
O.O8
O.46
8.25
O.O4
0.39
7.32
O.O6
3.11
O.35
110.94
8.47
(GM/MIN)
0.51
9.O4
O.O4
0
0
1
1
0
0
0
30
O
01
14
03
19
14
0
0
O
0
O
0
o
0
0
0
o
0
o
0
0
o
0
o
o
0
0
0
o
0
o
0
o
o
0 0
0 0
0 0
0.0
o.o
o.o
o.o
4.39
76.49
3.67
O.33
5.55
O.O7
ENTER REGION, CY,SPD(8),TAMB,PCCN.PCHC,PCCC:
ENTER AC,XLOAD(3),TRAILR(3),ABSHUM.DBTEMP,WBTEMP
COMMENT: A/C CORRECTION FACTOR WILL BE CALCULATED.
VALUE OF INPUTTED AC USAGE PARAMETER IS IGNORED.
CAL. YEAR: 1985 REGION: 49-STATE HIALT. ALT: 55OO. FT.
TAMB: BO.O(F) 37.1/ 5O.O/ 50.O
AC (DB/WB): O.7 ( 8O.O/ 75.O) AB5HUM: 6O.OO
LDGV, LDGT1 I/M PROGRAM STARTING IN 1985
STRINGENCY LEVEL 44% MECH,TRAINING: NO
I/M PROGRAM BENEFITS APPLY ONLY TO MODEL YEARS 1975 THROUGH 199O
ATTENTION: THE DEFAULT VALUE OF 50% FOR TECHNOLOGY 4
I/M IDENTIFICATION RATE HAS BEEN CHANGED TO 6O%
VEH. TYPE:
VEH. SPD. :
VMT MIX:
EXT. LOAD:
TRLR TOW:
COMPOSITE
NO-MTH HC:
*EVAP HC :
EXHST CO:
EXHST NOX :
: LDGV LDGT1 LDGT2 LDGT
: 5.O 15. O 25. O
: O.20O 0.200 0.2OO
: O.05O O.O7O O . O9O
: 0.040 0.030 0.020
EMISSION FACTORS (GM/MILE)
: 14.53 6.50 6.74 6.62
: O.76 O 84 1.41 1.12
: 237. 75 86.99 75.54 81.27
: 2.O9 2.42 3.55 2.98
HOT STABILIZED IDLE EMISSION FACTORS
NM-ID HC:
IDLE CO:
IDLE NOX:
: O.48 O.43 O.61 0.52
: 8 96 7.25 8.63 7.94
: O.O6 O.O4 O.O5 O . O5
HDGV
35
O.
7.
2.
187.
8.
.O
.2OO
.20
. 18
54
38
LDDV
45
0
0
0
1
1
.O
.200
.45
.0
.49
.21
LDDT
55
O
O
O
0,
0.
.O
.0
.0
.O
.O
.O
HDDV
5O
O
0
0
O
O.
.0
.0
0
o
.0
.0
MC
20. o
o.o
o.o
0.0
0.0
o.o
ALL VEH
7.O8
1 17.86
3.53
(GM/MIN)
0.
10.
0.
.79
07
04
0
0,
0
.05
.27
. 15
O.
0.
O.
,O
.0
.O
o.
0.
o.
,o
.0
o
o.o
0.0
o.o
0.47
7.04
O.O7
ENTER REGION, CY,SPD(8).TAMB.PCCN,PCHC.PCCC:
ENTER AC,XLOAD(3),TRAILR(3),ABSHUM.DBTEMP,WBTEMP
COMMENT: A/C CORRECTION FACTOR WILL BE CALCULATED.
VALUE OF INPUTTED AC USAGE PARAMETER IS IGNORED.
CAL. YEAR: 2OOO REGION: 49-STATE LOWALT. ALT- 5OO.
TAMB: 80.O(F) 74.2/ 0.0/1OO.O
AC (DB/WB): O.7 ( 80.O/ 75.0) ABSHUM: 60.00
LDGV, LDGT1 I/M PROGRAM STARTING IN 1985
STRINGENCY LEVEL 44% MECH.TRAINING: NO
I/M PROGRAM BENEFITS APPLY ONLY TO MODEL YEARS 1975 THROUGH 199O
ATTENTION: THE DEFAULT VALUE OF 5O% FOR TECHNOLOGY 4
I/M IDENTIFICATION RATE HAS BEEN CHANGED TO 60%
VEH. TYPE: LDGV LDGT1 LDGT2
LDGT
HDGV
LDDV
LDDT
HDDV
FT.
MC
ALL VEH
4.1.5 MOBILE2 EXAMPLES Prompting, Diagnostic, and Report Output (cont.)
-------
VEH. SPD.: 55 O 55.0 55.O 55.0 55.0 55.0 55 O 55.0
VMT MIX: O.2OO O.20O O.2OO 0.2OO O.2OO 0.0 O.O O.O
EXT. LOAD: O.O50 O.O70 O.090
TRLR TOW: O.O4O O.O3O O.O2O
COMPOSITE EMISSION FACTORS (GM/MILE)
NO-MTH HC: O.59 O.55 0.54 0.55 0.38 0.60 O.O O.O O.O O.53
*EVAP HC: O.1O O.11 O.O9 O. 10 O.1B O.O O.O O.O O.O
EXHST CO: 21.39 11.44 1.05 6.25 0.58 0.76 O.O O.O O.O 7 .05
EXHST NOX: 3.89 2.56 2.14 2.35 1.31 1.36 O.O O.O O.O 2.25
HOT STABILIZED IDLE EMISSION FACTORS (GM/MIN)
NM-ID
IDLE
IDLE
HC:
CO:
NOX:
O.26
7.49
0.15
O.O8
1 .59
O.O2
0.0
0.0
O.O
0.0
0 0
0.0
0.0
0.0
0.0
O.O
0.0
O.O
0.0
0.0
0.0
0 0
O.O
0.0
0 0
O.O
0.0
0.0
O.O
O.O
ENTER REGION, CY,SPD(8),TAMB,PCCN.PCHC.PCCC:
4.1.5 MOBILES EXAMPLE05 Prompting, Diagnostic, and Report Output (cont )
-------
-------
4.1.6 MOBILE2 EXAMPLE ft 6
Input Record (80 columns)
1578 IPROMT,IOUNEW( 1 ) . . .
MOBILE2 EXAMPLE #6
1 INFLAG
0 SPDFLG
0 VMFLAG
3 MYMRFG
0 ALTFLG
2 IMFLG
O ALHFLG
0 TRKFLG
3 I FORM
2 PRTFLG
0 ICEVFG
O IDLFLG
0 NMHFLG
0
75
1
1
2
3
1
IOUNEW(3)
UNFFLG
05O
O5O
O50
O50
050
O50
O50
050
O5O
050
O5O
O5O
050
O5O
O5O
O5O
1OO
O2O
10O
020
1OO
O2O
1OO
02O
1OO
O2 O
1OO
02O
100
O2 O
10O
020
34
7O
85
85
85
OO
.O5O
.050
.O5O
.050
.O5O
.050
.O5O
.O5O
O5O
.O5O
.050
.O5O
.050
O5O
O5O
.050
.O5O
.020
.O5O
.O2O
.O5O
.020
.O5O
.020
.O5O
O2O
.O5O
.020
.050
020
.050
.020
O 75
5.O
15. O
15 0
15 0
55 O
.050
.O5O
.O5O
.050
.050
.050
.050
.O5O
.050
.O5O
.O5O
.050
.050
.O5O
.O5O
.O5O
. 1OO
.O2O
1OO
.020
. 1OO
.O2O
. 1OO
.020
. 1OO
.020
100
.020
. 100
O20
. 1OO
.020
9O 0
O.O
5O O
5O.O
5O.O
1 1O
.050
.O5O
.O5O
.050
.O5O
.O5O
.O5O
.O5O
.O5O
.O5O
.O5O
.O5O
.050
.O5O
.O5O
.O5O
.O5O
.050
.050
.050
.O5O
050
.050
.O5O
O5O
050
.O5O
O5O
.O5O
050
.O5O
.O5O
,O5O
. 1OO
.O2O .020
.O5O
.020
.050
.O2O
.050
O20
.O5O
O20
.050
.020
,O50
.020
.050
.020
5O 3
O.O
37. 1
37 . 1
37. 1
74.2
. 1OO
O2O
. 1OO
O2O
. 1OO
.020
. 1OO
020
1OO
O20
. 100
.020
1OO
.020
100.
5O O
50 0
50.0
O.O
.050
.O5O
.050
.050
.O5O
.O5O
O5O
.050
.050
.O5O
.O5O
.050
.O5O
.O5O
.O5O
.050
.O5O
.O2O
.050
.020
.O5O
.020
O5O
.O2O
.050
.O2O
.O5O
.020
.050
.O2O
.O5O
.O2O
0.0
5O.O
5O.O
50.0
1OO
.050
O50
.050
050
.050
.O5O
.O5O
O5O
.050
.O5O
O5O
.050
.050
.050
.050
.O5O
. 10O
.020
. 100
.020
1OO
.O2O
. 1OO
.020
. 100
.020
. 1OO
02O
.100
.020
1OO
.020
.050
.050
.050
.050
.050
.050
.050
.050
.050
.050
050
.050
.050
05O
.050
.050
.050
.020
.050
.020
.050
.020
.050
02O
050
.020
.050
.020
.050
020
.050
.020
.050
.050
.050
.050
.050
.050
.O5O
.050
.050
.O5O
.050
.O5O
.050
.O5O
.050
.050
. 1OO
.020
. 100
020
. 10O
.020
. 100
.020
. 1OO
.O2O
. 100
.020
. 100
02O
. 1OO
.020
.050
.O5O
.050
.050
.050
.O5O
.050
.050
.050
05O
050
.050
.050
O5O
.050
.050
.050
.070
.050
.070
.050
.070
.O5O
.070
.O5O
.070
.050
.070
.050
.070
O5O
.070
Description
FLAG
TITLE
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
MYM LDGV
MYM LDGV
MYM LDGT1
MYM LDGT 1
MYM LDGT2
MYM LDGT2
MYM HDGV
MYM HDGV
MYM LDDV
MYM LDDV
MYM LOOT
MYM LDDT
MYM HDDV
MYM HDDV
MYM MC
MYM MC
MYR LDV
MYR LDV
MYR LDT1
MYR LDT1
MYR LDGT2
MYR LDGT2
MYR HDGV
MYR HDGV
MYR LDV
MYR LDV
MYR LDT1
MYR LDT1
MYR HDDV
MYR HDDV
MYR MC
MYR MC
I/M DATA
SCENARIO
SCENARIO
SCENARIO
SCENARIO
SCENARIO
AGES
AGES
AGES
AGES
AGES
AGES
AGES
AGES
AGES
AGES
AGES
AGES
AGES
AGES
AGES
AGES
AGES
AGES
AGES
AGES
AGES
AGES
AGES
AGES
AGES
AGES
AGES
AGES
AGES
AGES
AGES
AGES
1-1O
11-2O
1-10
11-2O
1-1O
1 1-2O
1-1O
1 1-2O
1-10
1 1-2O
1-10
11-2O
1-10
11-2O
1-10
1 1-2O
1-1O
1 1-2O
1-10
1 1-2O
1-10
1 1-2O
1-1O
1 1-2O
1-1O
1 1-2O
1-10
11 -20
1-10
11-20
1-1O
1 1-2O
Section
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
ONE-TIME
ONE-TIME
ONE-TIME
ONE-TIME
ONE-TIME
ONE-TIME
ONE-TIME
ONE-TIME
ONE-TIME
ONE-TIME
ONE-TIME
ONE-TIME
ONE-TIME
ONE-TIME
ONE-TIME
ONE-TIME
ONE-TIME
ONE-TIME
ONE-TIME
ONE-TIME
ONE-TIME
ONE-TIME
ONE-TIME
ONE-TIME
ONE-TIME
ONE-TIME
ONE-TIME
ONE-TIME
ONE-TIME
ONE-TIME
ONE-TIME
ONE-TIME
ONE-TIME
PARAMETER
PARAMETER
PARAMETER
PARAMETER
PARAMETER
—I
N5
.. +. .1 ...+ ...2. .+. ..3 ..
4 1 6 MOBILE2 EXAMPLES Input
.5
. . . .7
-------
Example 6 uses the "vertical" input format with prompting (IPROMT=1), and a
wide (112 column) descriptive output format for 9 vehicle types, including
a combined LDGT group (IFORM=3). The formatted reports are sent to unit
6 (default) since "5" is the input unit and therefore illegal for the
reports. The diagnostic messages are sent to unit 7 [IOUNEW(2 ) =7], and
prompting messages sent to unit 8 [IOUNEW(3)=8]. The output units are
displayed on the unit 7 output.
The input options used in this example are:
user supplied annual mileage accumulation rates and annual vehicle
registration distribution for twenty years and eight vehicle
types (MYMRFG=3)
user supplied I/M credits for the pre-1981 model year LDGVs (see unit A
input) and a 75 percent Technology IV identification rate (IMFLG=2).
Only CO emissions are printed for this example (PRTFLG=2).
4.1.6 MOBILE2 EXAMPLES Input (cont.)
-------
MOBILE2 EXAMPLES I/M Credits Inputted from Unit 4
Input Record (8O columns)
Description
9
SAMPLE
TEXT --
(YOU
MAY
INSERT
ZERO
TO
NINE
72-CHARACTER-LINES
OF
THIS DATA IS INCLUDED FOR COMPLETENESS
OF THE EXAMPLE ONLY. USERS SHOULD
CONTACT THE U.S. EPA I/M STAFF FOR
ACCURATE ESTIMATES OF ALTERNATE I/M
CREDITS FOR THEIR SITUATION.
TEXT)
0
0
O
0
0
0
o
o
0
o
o
o
o
o
o
0
o
o
o
0
0
o
0
o
0
o
o
0
o
0
o
0
o
0
0
0
0
o
o
0
0
o
o
0
0
0
0
0
0
0
0
o
o
o
o
0
o
0
o
0
0
o
o
o
0
o
o
0
o
0
0
0
0
0
0
0
o
o
o
o
4-
o
o
o
0
0
o
0
o
0
o
0
0
0
0
0
0
o
o
o
o
o
o
0
o
0
o
o
o
0
o
o
0
0
0
o
0
0
o
o
o
o
0
o
o
0
o
0
o
0
o
0
o
o
o
0
0
o
o
o
o
o
0
0
0
0
o
o
0
0
0
o
0
0
o
0
o
0
o
o
0
1
o
0
o
0
0
o
o
o
o
o
0
o
o
o
0
0
o
0
0
0
0
0
0
o
0
o
o
0
0
0
o
0
0
0
0
0
0
0
0
0
+
O
O
0
0
0
O
O
O
O
0
o
o
0
0
0
0
o
0
o
o
0
o
o
o
0
o
o
o
o
o
o
0
o
o
o
o
0
o
o
0
0
0
0
o
0
0
0
o
0
0
0
o
0
0
0
0
o
0
o
o
0
o
0
o
0
o
0
0
o
o
o
o
o
o
0
o
0
o
0
o
T
0
o
o
o
0
0
0
o
0
o
o
0
0
o
o
o
o
0
o
0
0
0
o
0
o
o
o
0
o
0
o
0
0
0
0
0
0
o
0
o
o
0
o
0
0
0
0
0
0
0
0
o
0
o
o
o
o
0
o
0
0
0
0
o
0
o
o
0
0
0
o
0
o
0
0
0
0
0
o
0
4-
0
0
0
0
0
0
o
o
0
0
0
0
0
o
o
0
0
0
o
0
0
o
0
o
0
o
o
0
o
0
o
0
0
o
o
0
0
o
o
o
?
0
0
o
0
o
0
o
o
o
0
0
0
0
0
0
0
0
o
o
0
o
o
0
o
0
o
o
o
0
0
o
0
0
o
0
0
o
o
o
0
0
o
o
0
o
o
o
0
0
0
0
0
0
o
o
0
o
o
o
o
0
0
0
o
0
0
o
o
0
o
o
0
o
o
o
o
0
0
0
0
+
0
0
o
0
0
0
0
0
0
o
o
0
o
0
o
0
o
o
0
o
0
0
0
o
0
0
o
o
0
o
o
0
o
o
o
o
o
o
o
0
0
0
o
0
0
0
0
0
o
o
0
0
0
0
o
0
0
0
o
0
0
o
0
0
0
o
o
0
o
0
0
0
o
0
0
0
0
o
0
o
4
0
0
0
0
o
o
o
o
0
0
0
o
0
0
0
0
o
0
o
0
0
o
o
0
0
o
o
0
0
0
o
o
o
0
0
o
0
o
0
o
+
o
0
0
o
o
0
0
o
0
0
o
o
0
0
0
0
o
0
0
0
0
0
o
o
0
0
o
0
o
0
o
o
o
o
0
0
0
0
0
0
0
0
0
o
0
0
0
o
0
o
0
o
0
0
o
o
o
o
o
o
0
o
0
o
0
0
o
0
o
0
0
0
0
0
0
0
0
o
o
o
^
o
0
o
0
0
0
0
o
0
o
0
0
0
0
o
0
0
0
o
0
o
o
0
0
o
o
o
0
o
0
o
0
0
0
0
0
o
o
o
o
o
0
o
0
0
0
o
o
0
o
0
0
0
0
0
0
o
o
o
o
o
0
0
0
0
o
0
o
0
0
0
0
0
0
o
0
0
o
o
0
+ . . . .6. .
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
.. + ... .7. ...+ ... .8
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
4 1.6 MOBILE2 EXAMPLE*6 I/M Credit Input
-------
MOBILE2 EXAMPLE06 I/M Credits Inputted from Unit 4 (cont.)
Input Record (8O columns)
Description
0 8
3 19
2 2O
2 21
2 22
2 22
2 23
1 23
1 24
1 24
1 24
1 25
1 25
1 25
1 26
1 26
1 26
1 26
1 0
0 O
0 8
3 21
2 22
2 23
2 24
2 24
2 25
1 25
1 26
1 26
1 27
1 27
1 27
1 28
1 28
1 28
1 29
1 29
1 O
O 0
O O
0 0
O 0
0 0
0 0
O O
0 O
0 0
0 0
0 0
+
18
17
17
18
18
19
19
2O
2O
2O
21
21
22
22
23
23
24
0
0
0
20
18
18
19
2O
2O
21
21
22
22
23
23
24
24
25
25
26
O
O
O
O
O
O
0
O
O
O
0
0
0
2O
27
28
29
30
30
31
32
32
33
34
35
36
37
38
39
0
0
0
0
21
28
29
29
30
3O
31
32
32
33
34
35
36
37
38
39
0
0
0
0
0
0
0
0
O
0
O
0
0
0
1
25
22
23
23
24
25
26
26
27
28
29
30
31
33
34
0
O
0
0
O
26
23
23
23
24
25
25
26
27
28
29
3O
31
33
34
O
0
0
O
O
O
O
O
O
O
O
0
0
O
0
^
24
3O
31
32
33
34
35
36
37
38
39
4O
41
42
0
O
O
0
0
0
25
30
31
31
32
33
34
35
36
38
39
41
42
43
0
O
0
0
O
O
0
0
O
0
O
O
0
0
0
0
k
28
24
25
26
27
28
29
3O
31
32
34
35
37
O
O
0
0
0
0
O
28
24
25
25
26
27
28
30
31
32
34
36
37
0
0
O
0
0
0
O
0
0
0
0
0
0
0
0
0
0
7
26
32
33
34
35
37
38
39
40
41
43
44
O
O
O
O
0
0
0
0
26
31
32
33
34
35
37
38
4O
42
43
45
0
0
O
O
0
0
0
0
0
0
O
0
0
0
0
0
0
0
30
26
27
28
29
31
32
34
35
36
38
O
0
O
0
O
O
0
O
0
29
25
26
27
28
3O
31
33
35
37
38
0
O
O
0
O
0
0
0
0
O
O
O
0
O
O
0
0
0
0
+
28
33
34
36
38
4O
41
42
43
45
O
O
0
O
O
0
0
0
0
O
27
32
33
34
36
38
4O
42
44
45
0
0
O
0
0
0
0
O
0
0
O
0
0
0
O
0
0
0
0
0
3
31 29
27 35
29 37
3O 38
32 40
34 43
35 44
37 45
38 0
0 0
0 0
O 0
0 0
0 O
0 0
0 0
O 0
0 0
0 0
0 0
30 28
27 34
28 35
29 37
31 39
33 41
35 43
37 46
39 O
0 0
0 0
O O
O 0
0 0
0 0
O O
0 0
0 0
0 0
0 0
O O
O 0
O O
0 0
0 O
O O
0 0
O O
0 0
0 0
+
33
29
31
33
35
37
39
0
0
0
0
0
O
O
O
0
0
0
0
0
32
28
30
32
34
36
38
0
0
0
O
O
O
O
O
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
31
38
4O
42
44
46
0
O
0
0
O
O
0
O
0
O
0
0
0
O
30
36
38
40
43
45
0
0
O
0
0
O
O
0
0
O
0
O
0
0
O
O
O
O
O
0
0
0
0
0
4
36
32
35
37
39
O
0
0
O
O
0
O
0
0
O
0
0
O
O
0
34
31
33
35
38
O
0
0
O
O
0
0
0
O
0
0
0
O
0
0
O
0
O
0
0
0
0
O
0
0
^
34
41
43
46
0
0
0
0
0
0
O
0
0
0
O
O
O
O
0
0
33
39
41
44
O
O
0
0
O
0
0
0
0
0
0
0
0
O
0
0
0
0
0
0
O
0
0
O
0
0
39
36
38
0
O
O
0
O
O
0
0
O
0
0
0
O
O
0
0
0
37
34
37
O
O
O
O
0
O
0
0
O
O
O
0
O
0
0
0
0
O
O
0
O
O
0
0
0
0
0
5
38
45
O
0
O
O
0
0
O
O
0
O
0
0
O
0
O
O
O
0
36
42
0
O
O
O
0
O
O
O
0
0
0
0
0
O
0
O
0
0
O
O
O
0
O
0
0
0
0
0
43
0
O
O
O
0
0
0
0
O
0
0
0
0
O
O
0
0
0 ,
0
40
O
0
0
0
0
0
0
O
O
0
O
O
O
0
O
0
O
O
O
O
O
O
0
O
O
0
O
0
0
+. . . .6. .
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
..+....7....+ ...8
I
I
I
I
I
I
I
I
I
I
I
I
1
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
11
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
4.1.6 MOBILE2 EXAMPLES I/M Credit Input (cont.)
-------
MOBILE2 EXAMPLE/C6 I/M Credits Inputted from Unit 4 (cont.)
Input Record (8O columns)
Description
o
0
o
o
o
0
0
0
0
o
0
o
0
o
o
0
0
0
o
0
0
o
0
o
o
o
0
0
o
o
o
o
0
o
0
0
o
o
0
o
o
0
o
o
o
o
0
o
0
0
o
o
o
o
o
o
o
0
0
o
0
o
o
o
o
0
o
o
o
0
0
o
o
o
o
0
o
o
0
o
o
o
0
o
o
o
0
0
0
o
o
0
o
o
o
o
0
o
o
o
+
o
o
o
o
o
o
o
o
o
o
o
o
0
0
o
0
o
o
o
0
o
o
o
o
0
o
o
o
0
o
0
0
0
0
o
o
0
o
0
o
o
0
0
0
o
o
o
o
o
o
o
0
o
0
o
o
o
o
0
o
o
o
0
0
o
0
o
o
o
0
0
o
0
o
o
o
o
o
0
0
o
o
0
o
0
o
o
o
0
o
o
0
o
0
o
o
o
o
0
o
1
o
o
o
0
o
o
o
0
0
0
0
o
0
0
o
0
o
o
o
0
o
o
o
o
o
0
o
o
o
o
o
o
0
o
0
0
o
o
0
o
o
0
o
0
o
o
o
o
0
o
-1-
0
0
o
0
o
o
o
o
0
0
0
o
0
0
o
0
o
o
o
0
o
o
0
o
0
0
0
o
0
0
0
o
0
o
0
o
o
o
0
0
o
0
o
0
o
o
0
o
0
o
0
0
o
0
0
0
o
o
o
o
0
o
o
0
o
0
0
o
o
0
0
o
o
0
0
0
o
0
0
0
o
0
0
o
0
0
0
o
0
o
0
0
o
0
o
o
0
o
0
o
?
0
o
o
0
0
0
o
0
o
o
0
o
o
0
o
0
0
0
o
0
0
o
0
o
0
0
0
o
0
0
o
o
0
o
0
0
0
o
0
o
0
0
o
o
o
o
0
o
0
o
0
0
o
0
0
0
o
o
0
o
0
o
o
0
o
0
o
o
o
0
0
o
0
o
0
0
o
o
0
0
o
0
0
o
0
0
0
o
0
o
0
0
o
o
o
o
0
o
0
o
4-
0
0
0
0
o
o
o
o
0
0
0
o
0
0
o
0
0
0
o
0
o
o
0
o
0
0
0
0
0
0
0
0
0
o
0
0
o
o
0
0
o
0
o
o
o
o
0
o
0
0
3
0
0
o
0
0
0
0
0
o
o
0
0
o
o
o
0
o
0
o
0
o
o
0
0
0
0
0
0
0
o
0
0
0
o
0
o
o
0
0
0
o
0
o
0
o
o
0
o
0
0
0
0
0
0
0
0
0
o
0
0
0
0
o
0
0
0
0
0
o
0
0
o
0
0
0
o
0
0
0
o
0
o
0
0
0
0
o
o
0
0
0
0
0
o
o
o
0
o
0
o
4-
0
0
o
0
0
0
o
0
0
o
0
0
0
0
0
0
0
0
o
0
o
o
0
0
0
o
0
0
0
0
o
0
0
0
0
0
0
0
0
0
0
0
o
0
o
o
0
o
0
0
0
0
o
0
0
0
o
0
0
o
0
o
o
o
0
0
0
0
0
0
o
o
0
o
0
0
o
o
0
o
o
0
0
o
0
0
o
o
o
o
0
0
o
0
o
o
0
o
0
o
4
o
0
o
0
0
0
0
0
0
o
0
o
o
o
0
0
0
0
o
0
0
o
0
0
0
0
0
o
0
o
o
0
0
o
0
0
o
o
o
0
o
0
o
0
o
0
0
0
0
o
+
o
0
o
0
0
0
o
0
0
o
0
o
o
o
o
0
0
0
o
0
0
o
0
o
0
0
o
o
0
o
o
o
o
o
0
0
0
o
0
o
0
0
0
0
o
o
0
0
0
o
0
0
o
0
0-
0
o
0
0
o
0
0
o
o
0
0
0
0
o
0
0
o
0
o
0
0
o
o
0
o
o
0
0
0
0
o
o
o
0
0
0
0
0
0
o
0
0
0
0
0
s
o
0
0
0
0
0
o
0
0
o
0
o
0
o
0
o
0
0
0
0
0
o
0
0
0
0
0
0
0
o
0
o
0
o
0
0
o
o
0
0
0
0
o
0
o
o
0
0
0
o
o
0
0
0
0
0
o
0
0
o
0
o
o
0
o
0
0
0
o
0
0
o
0
o
0
0
0
0
0
0
o
0
o
o
0
0
o
o
o
o
0
0
o
o
o
0
0
0
0
o
+. . . .6. .
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
TECHNOLOGY I AND
TECHNOLOGY I AND
TECHNOLOGY I AND
TECHNOLOGY I AND
TECHNOLOGY I AND
TECHNOLOGY I AND
TECHNOLOGY I AND
TECHNOLOGY I AND
TECHNOLOGY I AND
TECHNOLOGY I AND
TECHNOLOGY I AND
..+... .7. ...+... 8
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
—I
ON
4 1.6 MOBILE2 EXAMPLES I/M Credit Input (cont.)
-------
MOBILE2 EXAMPLES I/M Credits Inputted from Unit 4 (cont.)
Input Record (8O columns)
o
o
o
0
o
o
0
0
o
o
0
o
o
0
0
0
0
o
o
0
0
o
0
o
o
o
0
0
o
o
o
0
o
0
0
o
0
o
0
0
o
0
0
0
o
o
0
o
0
0
13
o
o
0
o
o
o
o
o
o
o
o
0
o
0
0
0
o
o
0
13
o
o
o
o
o
0
0
o
o
0
0
o
0
o
o
0
o
0
0
o
0
0
0
o
o
0
o
0
0
+
27
0
o
0
o
0
0
0
0
o
o
o
0
o
0
0
0
0
o
0
28
o
o
o
0
o
0
0
o
0
0
0
o
0
0
o
0
o
0
0
0
0
0
o
o
0
0
o
0
o
29
o
o
o
o
o
0
0
0
o
0
o
0
o
0
0
0
0
o
0
29
0
0
0
o
o
0
0
o
0
o
0
o
0
0
0
0
o
0
0
0
o
o
0
o
0
0
0
0
0
1
34
o
0
o
o
0
0
0
o
o
0
0
0
o
o
o
0
0
0
0
34
0
o
0
o
o
0
0
0
0
o
0
o
o
o
0
0
o
0
0
o
0
o
0
o
o
0
o
o
o
+
33
o
o
o
0
0
0
0
o
o
0
o
0
0
o
0
0
0
o
0
33
o
o
0
o
o
0
o
o
o
o
0
o
o
0
o
0
o
0
0
0
0
o
o
o
o
0
o
0
o
37
o
o
0
0
o
0
0
o
o
0
o
0
o
o
0
0
0
o
0
37
o
o
0
o
o
0
0
0
o
o
0
o
o
0
o
0
o
0
0
0
0
o
o
o
0
0
0
0
o
?
35
o
0
o
0
o
0
o
0
o
0
o
0
0
o
0
0
0
o
o
35
o
o
o
o
o
0
o
0
o
o
0
o
o
0
o
0
o
0
0
0
0
o
o
o
o
o
0
0
o
39
o
o
o
0
o
0
o
0
o
0
o
o
0
o
o
0
0
o
0
39
o
o
o
0
o
o
o
0
0
o
0
o
o
0
o
0
o
0
0
0
0
o
0
o
0
0
0
0
o
+
37
o
0
0
0
0
o
o
0
o
0
o
o
0
o
o
0
0
0
o
37
o
0
o
o
o
0
0
0
o
o
0
o
o
0
o
0
o
0
o
0
0
0
0
o
0
0
0
0
0
n
41
o
0
o
o
0
0
0
0
o
0
0
0
o
o
o
0
0
0
0
41
0
o
o
0
o
0
0
0
0
0
0
o
0
0
0
0
0
0
o
0
0
0
0
0
0
0
0
0
o
I
39
o
o
0
o
0
0
0
o
0
0
o
o
o
0
0
0
o
0
o
39
o
0
o
0
o
0
o
0
0
0
0
0
0
o
0
0
o
0
o
0
0
0
0
0
0
0
0
o
o
+
43
o
0
o
o
0
0
o
0
o
0
0
0
0
0
0
o
o
0
0
43
0
0
o
0
o
0
o
0
0
0
o
o
o
o
o
0
0
0
o
0
0
0
0
o
0
0
0
0
0
41
0
o
0
o
0
0
0
0
o
o
0
0
o
0
0
0
o
0
0
41
0
0
o
0
o
0
o
0
0
o
0
0
0
0
o
0
o
o
0
0
0
0
0
o
o
0
0
0
0
4
45
o
o
0
o
o
0
0
o
0
0
0
o
o
0
0
0
o
o
o
45
o
0
o
0
o
0
o
o
0
0
0
0
o
o
o
0
0
0
0
0
0
0
0
0
0
0
0
0
0
+
43
o
o
0
o
o
0
0
0
0
o
0
0
0
0
0
0
o
o
0
43
0
0
o
0
o
0
0
o
0
o
0
0
o
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
o
47
0
0
0
o
o
0
0
o
0
o
o
0
o
0
0
o
0
o
0
47
o
0
o
0
0
0
o
0
0
0
0
0
o
0
o
0
0
0
0
0
0
0
0
o
0
0
0
0
o
s
45
o
o
0
o
0
0
0
0
0
o
o
0
o
0
0
o
o
o
0
46
o
0
o
0
o
0
0
0
0
o
o
0
o
0
o
0
o
0
o
0
o
0
0
0
o
0
0
0
o
49
o
0
o
0
0
0
0
o
o
0
o
0
0
0
0
0
o
o
o
49
o
0
o
0
0
0
0
o
0
o
o
o
o
0
o
0
0
0
0
0
0
0
0
0
0
0
0
o
o
+. . . .6. ...+.. . .7 . ...+..
Descr iption
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
4.1.6 MOBILE2 EXAMPLE06 I/M Credit Input (cont.)
-------
MOBILE2 EXAMPLES I/M Credits Inputted from Unit 4 (cont )
Input Record (80 columns)
Descr ipt ion
0
0
0
0
0
0
o
0
0
0
o
o
o
o
0
o
0
o
o
0
0
0
o
0
0
0
0
o
0
o
0
0
0
0
o
0
o
0
o
o
0
o
o
0
0
0
o
0
0
o
0
o
0
0
o
0
o
o
0
o
o
o
o
o
0
o
o
o
0
0
o
0
o
o
o
o
0
0
0
o
o
0
0
0
o
0
o
0
o
0
o
o
o
o
0
o
o
0
o
o
+
0
o
0
0
o
0
o
o
0
o
o
o
o
o
0
o
0
o
o
0
o
0
o
o
0
0
o
0
0
o
o
0
0
o
o
0
o
o
o
o
0
0
o
0
o
0
o
o
o
o
0
o
0
0
o
0
o
o
0
o
o
o
0
o
0
o
0
o
0
o
o
0
o
0
0
0
0
0
o
o
o
0
o
o
o
0
o
o
o
o
o
o
o
o
0
o
o
o
o
o
1
0
o
0
o
o
0
o
0
0
o
o
o
o
0
0
0
o
o
o
0
o
0
o
0
o
0
0
0
0
o
0
0
o
o
o
0
o
o
0
o
o
o
0
o
0
o
o
o
o
o
+
0
o
0
o
o
0
o
o
0
o
o
o
0
0
0
0
o
o
o
o
o
0
o
0
o
0
0
0
o
o
0
0
o
0
o
0
o
o
0
o
o
o
o
o
o
0
o
0
o
o
0
o
o
o
o
0
o
0
o
o
o
o
o
o
0
o
0
o
0
0
o
0
o
o
o
0
0
0
o
o
0
0
o
0
o
0
o
0
0
0
0
o
o
o
o
0
o
o
o
0
0
0
o
0
0
0
0
o
o
0
o
o
o
o
0
0
o
o
o
o
o
o
0
o
0
o
0
0
0
o
o
0
0
0
0
0
0
o
o
0
0
0
o
o
0
o
0
o
0
0
0
0
o
0
0
0
0
o
o
0
0
0
o
o
0
0
0
0
o
0
0
0
0
0
0
o
0
0
0
o
o
0
0
o
0
0
o
o
0
0
o
0
o
o
0
o
0
o
0
o
o
4-
0
o
o
0
o
0
o
o
0
o
o
o
o
0
0
o
o
o
o
o
0
o
o
0
o
0
0
o
o
o
o
o
0
0
o
o
o
0
o
o
0
o
o
0
o
0
o
0
o
o
?
0
o
0
0
0
0
o
o
0
o
0
o
0
o
0
0
0
o
o
o
0
0
0
0
o
o
0
o
o
o
o
o
o
o
o
0
o
0
o
0
0
o
o
0
0
o
o
0
o
o
0
o
o
0
o
0
o
0
0
o
o
o
o
0
0
0
o
o
o
0
0
0
o
0
0
0
0
0
o
o
o
0
0
0
o
0
o
o
o
0
o
o
0
0
o
0
o
0
o
o
+
0
0
0
o
o
0
o
0
0
o
o
o
o
0
0
0
o
o
0
0
o
o
o
0
0
0
0
0
0
o
o
0
0
0
o
0
o
o
o
o
0
0
0
0
0
o
0
0
o
0
0
o
0
o
0
0
o
0
o
o
0
o
o
0
0
0
o
o
o
o
0
o
o
0
0
o
o
o
0
0
o
o
0
o
o
0
o
o
0
0
0
o
0
0
o
o
o
0
o
0
4
0
o
0
0
0
0
0
0
0
0
0
0
o
o
0
0
o
o
o
o
0
0
o
o
o
o
0
o
0
0
o
o
0
o
o
0
o
o
0
0
o
o
o
o
o
o
o
0
o
0
+
0
o
0
0
o
0
o
0
0
0
0
o
o
0
0
o
o
o
o
o
0
o
o
0
o
o
0
o
0
0
0
o
o
o
o
0
0
o
o
0
o
o
0
0
o
o
o
0
0
0
o
o
0
o
0
0
o
0
o
0
o
o
0
0
o
o
0
o
o
0
0
0
0
0
o
o
o
0
0
o
o
0
0
0
0
0
0
0
0
0
o
o
0
0
0
0
o
0
o
0
^
o
o
0
o
0
0
o
0
o
0
o
0
0
o
0
o
o
0
0
0
0
o
o
o
o
0
o
o
0
o
o
0
0
o
o
0
0
o
0
o
0
o
0
0
0
0
0
0
o
o
0
o
0
0
0
0
0
0
o
0
o
o
0
o
0
o
o
0
o
0
0
0
o
o
o
o
o
0
0
o
o
0
o
0
o
0
o
0
o
0
o
o
o
0
0
0
o
o
o
o
.+. . . .6.
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
..+ . . .7 . ...+.. . .8
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
1
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
00
4.1 6 MOBILE2 EXAMPLES I/M Credit Input (cont.)
-------
MOBILE2 EXAMPLE06 I/M Credits Inputted from Unit 4 (cont.)
Input Record (8O columns)
DescrIpt ion
0 4
O 13
0 14
O 14
0 15
0 15
O 15
O 16
O 16
0 17
O 17
0 17
O 18
O 18
O 18
O 18
0 19
O 19
O O
O O
O 5
O 17
O 17
O 18
O 19
0 19
O 2O
O 2O
O 21
O 21
0 22
O 22
O 22
O 23
O 23
0 23
O 24
O 24
O O
0 0
0 0
0 0
0 0
O O
O 0
O O
O O
0 O
0 0
O O
-t-
12 13
8 24
9 26
9 28
10 29
10 31
1 1 33
12 34
12 35
13 37
13 38
14 39
14 4O
15 42
15 42
16 43
16 0
O O
0 0
0 0
15 15
1 1 26
1 1 28
12 30
13 31
13 33
14 35
15 37
16 38
16 4O
17 41
17 42
18 44
19 45
19 46
20 47
20 0
0 0
O 0
0 0
0 0
O 0
O 0
O 0
0 0
0 0
0 0
0 0
0 0
0 0
. . . 1 .
21 19
16 3O
18 32
19 33
21 35
23 37
24 38
26 4O
27 41
29 43
31 44
32 45
34 47
35 48
37 O
O 0
0 0
O O
0 0
O O
22 21
17 31
19 33
21 35
22 37
24 39
26 41
28 42
3O 44
31 45
33 47
35 48
36 50
38 51
39 O
0 0
O O
0 0
0 0
0 0
0 0
0 0
0 0
0 0
0 0
0 0
O O
0 0
0 0
0 0
..•*-..
27 24
21 35
23 37
24 38
26 40
28 41
3O 43
32 44
33 45
35 47
37 48
38 49
4O O
0 0
0 0
0 0
0 0
0 0
O 0
O O
28 25
22 36
24 38
26 4O
28 41
30 43
31 45
33 46
35 48
37 49
39 51
41 52
43 0
0 0
0 O
0 0
O O
0 0
0 0
O 0
0 0
0 0
0 O
O 0
0 0
0 0
0 O
0 0
0 0
0 0
.2. . .
31 29
25 39
27 41
29 42
31 44
33 45
34 47
36 48
38 49
40 50
41 O
0 0
0 0
0 0
0 0
0 0
0 0
0 0
O 0
0 0
33 3O
26 41
28 42
3O 44
32 46
34 47
36 49
38 5O
40 52
42 53
44 O
O O
O 0
0 0
0 0
0 0
0 0
0 0
0 0
0 0
0 0
0 0
0 0
0 O
0 0
0 0
0 0
0 0
0 0
O O
-*-....
36 33
30 43
32 45
33 46
35 48
37 49
39 5O
40 51
42 0
0 0
O O
0 0
0 0
0 0
O O
0 0
O 0
0 0
0 0
0 0
37 34
31 45
33 46
35 48
37 49
39 51
41 52
42 54
44 O
0 0
O 0
O O
0 0
O O
0 0
0 0
0 0
0 0
O O
0 0
0 0
O 0
O O
0 O
0 0
0 0
0 0
0 0
0 0
0 0
3 . . . .+
41 37
34 47
36 49
38 5O
40 51
42 52
43 0
0 0
O O
0 0
0 0
O 0
O O
O O
0 0
0 0
O 0
O O-
0 0
O 0
42 39
35 49
37 50
39 52
41 53
43 54
45 0
O O
0 0
O O
0 0
0 0
0 0
0 0
0 O
0 0
0 0
0 0
O O
0 0
0 0
0 O
0 0
0 0
0 0
0 0
0 0
0 0
0 0
0 0
. . .4.
45
39
41
42
44
0
0
0
O
0
O
O
0
O
0
0
O
0
0
O
46
4O
42
44
46
O
0
O
0
0
0
O
0
0
O
0
O
0
O
O
0
0
0
0
0
0
0
0
0
O
J
42 49
51 43
52 45
54 O
0 0
0 0
0 0
0 0
0 0
0 0
0 0
0 O
0 0
O O
0 0
0 0
0 0
0 0
0 0
0 0
43 5O
52 44
53 46
55 O
0 0
O 0
0 0
0 0
0 0
0 0
0 0
0 0
0 0
0 0
O 0
0 0
0 0
0 0
0 0
0 0
0 0
0 0
0 0
0 O
0 0
0 0
0 0
0 0
0 0
0 0
H. . . .5
46
55
0
O
0
O
0
0
O
0
O
O
0
O
0
0
O
0
O
O
47
55
0
O
0
0
0
O
0
O
0
O
0
O
O
0
O
0
O
0
0
O
O
O
0
0
0
0
O
0
52
O
O
0
0
0
O
O
0
0 .
O
O
O
0
0
0
O
O
O
0
53
0
O
0
0
0
O
0
0
0
O
0
0
0
O
0
0
0
O
0
O
O
O
0
0
0
O
0
0
0
+ ... .6. ...+ ... .7 . .
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
.. + ... .8
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
AND II
AND II
AND II
AND II
AND II
AND II
AND II
AND II
AND II
AND II
AND II
AND II
AND II
AND II
AND II
AND II
AND II
AND II
AND II
AND II
AND 11
AND II
AND 11
AND II
AND II
AND II
AND II
AND II
AND II
AND 11
AND II
AND II
AND 11
AND II
AND 11
AND II
AND II
AND II
AND II
AND II
AND II
AND II
AND II
AND II
AND II
AND II
AND II
AND II
AND 11
AND II
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
1/M
I/M
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
4 1.6 MOBILE2 EXAMPLES I/M Credit Input (cont.)
-------
MOBILE2 EXAMPLE06 I/M Credits Inputted from Unit 4 (cont.)
Input Record (8O columns)
o
o
0
o
0
o
o
o
0
0
o
0
o
0
0
0
0
o
0
o
0
o
0
o
0
0
0
o
o
o
o
o
o
o
0
0
o
o
o
0
o
0
0
0
0
0
c
0
o
o
o
0
o
0
0
o
o
0
0
0
o
0
0
o
0
o
o
o
o
o
o
o
o
o
0
0
0
0
o
0
o
o
o
0
o
0
o
o
o
0
0
0
0
0
0
o
0
0
0
0
0
0
0
0
0
o
o
o
0
0
0
0
o
o
0
o
0
0
0
o
0
0
0
0
0
0
0
0
0
o
0
0
0
o
0
0
0
0
0
0
0
o
0
o
0
o
0
0
0
0
0
0
o
o
0
0
o
0
o
0
o
o
o
o
0
o
0
o
0
o
0
0
0
0
o
0
0
0
0
o
0
o
0
0
0
0
o
0
o
0
0
0
0
0
0
0
0
0
o
o
o
0
o
o
0
o
0
0
o
o
o
0
o
0
0
0
0
o
o
o
0
0
0
o
0
0
o
0
0
o
o
0
o
0
0
0
0
0
0
o
0
o
0
o
0
0
0
0
0
0
0
o
o
o
0
0
o
0
o
o
o
0
o
0
0
o
0
o
0
0
0
o
o
0
0
0
0
o
0
o
0
o
o
o
0
0
o
0
0
o
0
o
0
0
0
o
o
0
0
0
o
o
0
0
0
0
0
0
o
0
o
0
o
0
0
o
0
o
o
0
0
0
0
0
0
0
0
o
o
o
0
o
o
o
0
0
0
0
o
0
0
0
0
0
0
o
o
0
0
o
o
0
0
o
0
o
0
0
o
0
o
0
o
0
0
0
0
o
0
0
o
0
0
0
0
0
o
0
0
0
0
0
0
0
0
0
o
0
o
0
0
0
0
o
0
o
0
o
o
o
o
o
o
0
0
o
o
o
o
0
0
0
0
o
0
o
0
o
0
0
o
0
0
0
0
0
o
0
0
0
0
0
0
0
0
0
o
o
0
0
0
0
0
o
0
o
o
0
o
0
0
0
0
0
0
0
0
0
0
0
o
o
0
0
0
0
0
o
0
o
0
0
o
0
0
0
0
0
0
o
0
o
0
o
0
0
0
o
o
0
0
0
o
o
0
o
0
0
0
0
o
o
0
0
0
0
0
0
0
0
o
o
o
0
0
0
0
o
o
o
0
0
0
0
0
0
o
0
0
o
0
0
0
o
0
0
0
0
o
0
0
0
0
o
0
0
0
o
0
0
o
o
o
0
0
o
0
o
0
0
o
0
o
o
0
o
0
o
0
o
0
0
o
0
0
0
o
0
0
0
0
0
0
0
0
0
0
o
o
0
0
0
o
0
0
0
0
0
0
0
o
0
o
o
0
0
o
0
0
0
0
0
0
0
0
0
0
o
0
0
0
0
0
o
0
0
o
0
0
o
0
0
0
0
0
0
o
0
o
0
0
0
0
o
0
0
o
0
0
0
0
o
o
o
0
o
o
0
0
o
o
0
0
o
0
o
0
o
o
o
o
0
o
o
o
0
0
o
o
o
0
o
o
o
0
0
o
0
o
o
o
o
0
o
0
o
o
o
o
0
0
o
o
o
0
0
0
0
o
0
o
0
0
0
0
0
0
o
0
0
0
o
0
0
0
0
0
0
0
0
0
o
0
0
0
0
o
0
o
o
o
o
0
o
0
o
0
o
o
0
0
o
0
0
0
0
0
0
o
o
o
0
o
0
0
o
0
o
o
0
o
0
0
0
0
0
o
0
o
0
o
0
0
0
0
0
0
0
0
0
0
o
0
o
0
o
o
0
0
0
0
o
0
0
0
0
0
0
o
0
o
0
0
0
0
o
0
o
o
0
0
0
0
0
0
0
o
0
0
o
o
0
0
0
0
0
0
0
0
0
0
0
0
o
0
0
o
0
0
0
o
o
0
0
0
0
0
0
o
0
0
0
o
o
0
o
0
o
0
0
0
0
0
0
0
0
0
0
0
o
o
0
0
0
0
0
0
0
o
0
0
0
0
o
0
o
o
0
o
0
0
0
0
o
0
0
0
o
o
0
o
o
o
o
0
o
0
o
0
o
0
0
0
0
o
0
o
0
0
0
o
0
0
0
0
0
0
o
o
o
0
o
0
o
0
0
0
0
0
0
.2
1 6 MOBILE2 EXAMP|_E<*6 I'M Credit Input (cont )
Descript1on
TECHNOLOGY I
TECHNOLOGY I
TECHNOLOGY I
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY I
TECHNOLOGY I
TECHNOLOGY I
TECHNOLOGY I
TECHNOLOGY I
TECHNOLOGY I
TECHNOLOGY I
TECHNOLOGY I
TECHNOLOGY I
TECHNOLOGY I
TECHNOLOGY I
TECHNOLOGY I
TECHNOLOGY I
TECHNOLOGY I
TECHNOLOGY I
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY I
TECHNOLOGY 1
TECHNOLOGY I
TECHNOLOGY I
TECHNOLOGY I
TECHNOLOGY I
TECHNOLOGY I
TECHNOLOGY I
TECHNOLOGY I
TECHNOLOGY I
TECHNOLOGY I
TECHNOLOGY I
AND II
AND II
AND II
AND II
AND II
AND II
AND II
AND II
AND II
AND II
AND II
AND II
AND II
AND II
AND II
AND II
AND II
AND II
AND II
AND II
AND II
AND II
AND II
AND II
AND II
AND II
AND II
AND II
AND II
AND II
AND II
AND II
AND II
AND II
AND II
AND II
AND II
AND II
AND II
AND II
AND II
AND II
AND II
AND II
AND II
AND II
AND II
AND II
AND II
AND II
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
CO
o
8
-------
MOBILE2 EXAMPLES I/M Credits Inputted from Unit 4 (cont.)
Input Record (8O columns)
Descript ion
o
0
o
0
0
0
0
o
o
0
o
0
o
0
0
o
o
0
o
o
o
o
o
o
o
0
o
0
0
o
o
o
0
o
0
o
o
0
o
0
o
o
0
o
o
o
0
0
0
0
7
o
0
o
0
o
0
o
o
0
0
o
o
o
o
o
o
0
o
0
8
o
o
o
o
0
0
0
0
o
o
o
0
0
0
0
o
0
o
0
0
0
o
o
o
o
0
0
0
0
+
21
0
0
o
n
o
0
o
o
o
o
o
o
o
o
0
o
o
o
0
25
o
0
o
o
0
o
0
0
o
o
o
0
0
0
o
0
0
o
0
0
0
o
o
0
o
0
0
o
0
20
0
o
o
o
0
0
o
0
o
0
0
o
0
0
0
0
o
0
o
24
o
0
o
o
0
0
0
0
0
0
0
0
o
0
0
o
0
o
0
o
0
o
o
0
o
0
0
0
0
1
28
o
o
0
0
o
0
o
o
0
o
0
0
o
o
0
0
0
o
o
33
o
o
0
o
o
0
0
o
0
0
o
0
o
0
o
o
0
0
0
o
o
o
0
0
o
0
0
0
0
+.
26
o
0
0
0
0
o
o
0
o
0
o
o
o
o
0
0
0
0
o
30
0
o
o
o
0
o
0
o
0
0
0
0
o
0
o
0
0
0
0
o
o
o
0
0
o
0
0
0
o
33
0
0
o
0
0
0
o
0
o
0
0
o
0
0
o
0
0
0
o
37
0
0
o
0
o
o
0
o
0
0
o
0
o
o
o
0
0
0
0
o
o
o
0
0
o
o
o
o
o
?
3O
0
0
o
Q
0
o
o
0
o
0
0
o
0
0
0
0
o
0
o
33
o
0
0
0
0
o
0
o
0
0
o
0
o
o
o
0
0
o
0
0
0
o
0
0
o
0
0
0
0
36
0
0
o
o
0
0
0
0
0
o
0
o
0
0
o
o
o
0
o
40
o
o
0
0
0
o
0
o
o
0
o
o
0
o
o
o
0
o
0
0
0
o
o
0
o
o
0
o
0
+
33
o
0
o
o
o
0
o
0
0
o
0
o
o
0
o
o
o
0
o
36
o
o
0
o
0
o
0
o
0
0
o
o
o
o
o
o
0
o
0
0
0
0
o
0
o
0
0
o
0
q
39
o
0
0
0
o
0
o
o
0
0
0
o
0
0
o
o
o
0
o
42
0
o
o
0
0
0
0
o
0
o
0
0
o
0
0
o
0
0
0
0
o
0
o
0
o
o
0
o
0
36
0
0
0
0
0
0
o
o
o
0
0
o
0
0
o
0
o
0
0
39
o
0
0
o
0
0
0
0
0
0
0
0
o
0
o
o
0
o
0
0
0
o
o
0
o
0
0
o
o
4-
41
0
0
0
0
o
0
0
0
0
o
0
0
0
0
0
0
0
0
0
45
o
o
0
o
0
0
0
0
o
o
o
0
o
0
o
o
0
0
0
o
0
0
o
0
o
o
0
0
o
38
0
0
o
0
0
o
o
0
0
0
o
0
0
o
0
0
0
o
o
42
o
0
o
0
0
o
0
0
o
o
o
o
o
0
o
0
0
o
0
0
0
0
o
0
0
0
0
o
0
4
44
0
o
0
0
o
o
o
0
o
0
0
0
0
o
0
0
0
0
o
47
o
o
o
o
o
0
0
0
o
o
o
o
0
0
o
o
0
0
0
0
0
0
o
0
0
0
0
0
o
4-
41
0
0
o
0
0
0
o
0
0
o
0
0
0
o
0
0
0
0
o
45
0
0
o
0
o
0
0
0
0
0
0
0
0
0
0
0
0
o
0
0
0
0
o
0
0
0
0
0
0
46
o
0
o
0
0
0
0
0
0
o
0
o
0
o
o
0
o
0
o
50
o
0
o
0
o
o
o
0
0
0
o
o
o
0
o
0
o
o
0
o
o
0
o
o
o
0
o
0
0
Cj
44
o
0
0
o
0
0
0
0
0
o
0
o
0
0
0
o
o
0
0
47
o
0
o
0
o
o
o
o
0
0
o
o
0
0
o
0
0
0
b
0
0
o
o
o
o
0
o
0
0
49
o
0
0
o
o
0
0
o
0
o
0
o
0
0
o
o
o
0
o
52
o
0
o
0
o
o
o
0
0
0
o
0
o
0
o
0
o
0
0
0
o
o
o
0
o
0
o
0
0
+. . . .6. .
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
..+... .7. ...+... .8
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
AND
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
II
11
II
II
II
II
II
II
II
II
II
II
II
II
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
1/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
I/M CREDITS
00
4.1.6 MOBILE2 EXAMPLES I/M Credit Input (cont.)
-------
MOBILE2 EXAMPLE06 I/M Credits Inputted from Unit 4 (cont.)
Input Record (8O columns)
Description
o
0
o
o
o
o
o
o
o
0
o
o
o
0
o
0
o
o
o
o
0
o
0
o
o
o
o
o
0
17
0
o
0
o
0
o
0
0
o
o
o
o
o
o
o
o
o
o
o
o
o
0
0
o
0
o
o
o
o
o
9
o
0
0
0
0
o
o
o
o
0
o
o
0
o
0
o
0
o
17
0
o
o
0
0
o
0
0
o
0
o
o
o
o
o
o
o
o
o
o
+
o
0
o
o
o
0
o
o
o
o
26
0
o
o
o
0
o
0
0
o
0
o
o
0
o
o
o
0
o
18
0
o
o
o
0
o
0
0
o
o
o
o
o
o
0
o
o
o
o
o
0
0
o
o
o
o
o
o
o
o
24
o
0
o
0
0
o
0
o
0
0
o
o
o
o
o
o
0
o
18
0
o
0
o
0
o
0
0
o
0
0
0
o
0
0
o
o
o
o
o
1
o
0
0
o
o
o
o
o
o
0
29
o
o
o
o
0
o
o
0
o
o
o
0
0
o
o
o
0
o
18
0
0
o
o
0
o
o
0
o
0
o
o
o
o
o
o
o
o
o
o
-f
o
0
0
o
o
0
0
o
0
0
27
o
o
o
0
0
o
o
o
0
o
o
o
o
o
o
o
0
0
18
0
0
o
o
0
o
0
0
o
0
o
0
o
o
o
o
o
o
0
o
o
o
o
o
o
o
o
o
o
o
30
o
0
o
0
0
0
o
o
o
0
o
0
0
o
0
o
0
o
19
0
o
o
o
0
o
0
o
o
0
0
0
o
o
0
o
o
0
o
o
?
0
0
o
0
0
o
o
o
o
0
29
o
0
0
0
0
0
o
0
0
0
o
0
0
0
o
0
0
0
19
0
o
0
0
0
o
0
0
o
0
0
0
o
0
o
0
o
o
o
o
o
0
0
0
0
o
0
o
o
o
31
o
0
o
0
0
o
o
0
0
0
o
0
o
o
o
o
0
o
20
0
o
o
0
0
0
0
0
o
0
o
0
o
o
0
o
0
0
o
o
+
0
0
o
0
o
o
o
o
o
0
30
o
0
o
0
0
0
0
0
0
0
o
0
o
o
o
o
0
o
19
0
o
o
0
0
0
0
0
o
o
o
0
o
o
0
o
o
o
o
o
0
0
0
o
o
o
o
o
o
0
31
o
0
o
0
0
o
o
0
0
0
o
0
o
o
o
o
o
o
21
0
0
o
o
o
0
0
0
o
o
o
0
o
o
o
o
o
o
o
o
1
0
0
0
o
o
0
o
o
0
0
30
o
0
o
0
0
0
0
0
0
0
0
0
o
0
o
0
0
0
20
0
0
0
0
0
0
o
0
o
o
o
0
o
o
o
0
0
o
o
0
-t-
0
0
0
o
o
0
o
o
o
0
32
o
0
0
0
0
0
0
o
0
0
o
0
o
o
o
0
0
0
22
0
0
0
0
0
o
0
0
o
o
o
0
o
o
o
o
0
o
o
0
o
0
o
o
o
o
o
o
o
o
31
o
0
o
0
0
0
o
o
0
0
o
o
0
o
o
0
0
o
22
0
o
o
0
o
0
o
o
o
o
o
0
o
0
o
0
0
o
o
o
4
o
0
0
o
o
o
o
o
o
o
32
o
0
o
0
0
0
o
o
o
0
o
0
o
o
o
0
0
o
24
0
0
o
0
0
0
0
o
0
o
o
0
o
0
0
0
0
o
0
0
^
o
0
0
o
0
0
0
o
0
o
31
o
0
o
0
0
o
o
0
0
0
o
0
o
0
0
0
0
o
24
0
o
0
o
0
o
o
o
0
o
o
0
o
0
0
o
0
o
0
o
o
0
o
0
o
o
o
0
o
o
32
0
0
o
0
0
o
o
0
o
0
o
o
o
0
o
0
0
o
28
0
o
0
0
o
0
0
o
0
0
o
0
o
o
0
o
0
o
o-
0
s
o
0
o
0
o
o
o
0
0
0
31
o
0
o
0
0
0
0
0
0
0
o
0
o
0
o
0
0
o
9
0
o
0
o
o
0
0
0
0
o
o
0
o
0
0
0
0
o
0
0
0
0
0
o
o
o
o
o
o
o
32
o
0
o
0
0
o
o
0
o
0
0
0
o
0
0
0
o
o
0
0
o
0
o
0
o
o
o
0
o
o
0
0
0
0
o
0
o
0
0
+ . . . .6. .
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
..+... .7. ...+.. . .8
I /
I 1
I t
I t
I /
I /
I /
I /
I /
I /
IV
IV
IV
IV
IV
IV
IV
IV
IV
IV
IV
IV
IV
IV
IV
IV
IV
IV
IV
IV
IV
IV
IV
IV
IV
IV
IV
IV
IV
IV
IV
IV
IV
IV
IV
IV
IV
IV
IV
IV
iND ]
VND ]
VND 1
VND ]
VND I
WD 1
kND 1
VND I
VND 1
IND ]
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
I/M
tl I/M CREDITS
[I I/M CREDITS
[I I/M CREDITS
[I I/M CREDITS
[I I/M CREDITS
tl I/M CREDITS
tl I/M CREDITS
tl I/M CREDITS
[I I/M CREDITS
tl I/M CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
00
NJ
4.1.6 MOBILE2 EXAMPLES I/M Credit Input (cont.)
-------
MOBILE2 EXAMPLE06 I/M Credits Inputted from Unit 4 (cont.)
Input Record (8O columns)
O
OOOOOOOOOOOOOOOO
OOOOOOOOOOOOOOOOOOO
ooooooooooooooooooo
0
O
0
0
0
O
O
0
0
O
0
O
O
O
O
0
O
0
0
O
O
0
O
O
O
O
O
O
O
O
O
O
0
O
O
O
O
0
0
O
0
O
0
O
0
O
O
0
O
O
O
O
O
O
O
0
0
0
0
O
0
O
0
0
O
O
0
O
0
O
0
0
0
0
0
0
0
O
O
O
0
O
O
O
0
0
0
0
0
0
O
0
0
0
+
0
O
O
0
O
0
O
O
0
0
O
O
O
O
O
O
O
O
O
0
O
0
0
O
O
O
0
O
O
O
O
O
O
O
O
O
O
O
O
O
0
O
O
O
O
0
O
0
O
O
O
O
O
O
O
0
0
O
O
O
O
O
O
0
O
O
O
O
O
O
0
O
O
0
O
O
O
0
0
0
O
O
O
O
O
O
O
O
O
O
0
0
O
O
1 .
0
O
0
O
O
0
O
O
0
O
0
O
0
O
O
O
O
O
O
0
0
0
O
0
0
0
0
O
O
O
O
0
0
0
O
O
O
O
0
0
0
O
0
0
0
O
0
+
0
O
0
O
O
0
O
O
O
O
O
O
O
O
O
O
O
O
0
O
O
O
O
O
O
O
0
O
O
0
O
0
O
O
O
O
O
O
0
O
0
O
O
0
O
0
0
0
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
0
O
O
O
O
0
O
O
O
O
O
O
O
0
O
O
O
O
O
O
0
O
O
O
O
O
0
O
O
7
0
O
0
O
O
0
O
O
0
O
O
O
0
O
O
O
O
O
0
O
O
0
O
O
O
O
0
O
O
0
O
0
0
0
O
O
0
0
0
O
0
O
O
0
O
O
O
0
O
O
O
O
O
O
O
O
O
O
0
O
O
O
O
O
O
0
O
O
0
O
0
O
O
O
O
O
O
O
O
O
0
O
O
O
O
0
O
O
O
O
0
0
O
O
+
0
O
O
O
O
0
O
0
O
O
O
0
O
O
O
0
O
O
0
0
O
0
O
0
O
O
O
O
0
0
0
0
0
0
O
O
O
O
0
O
O
O
0
0
O
0
0
?
0
O
O
0
O
O
O
0
O
O
O
O
0
O
O
O
O
O
0
O
0
0
0
O
O
O
0
O
O
O
0
0
0
0
O
0
O
O
O
O
0
O
0
0
0
O
0
0
0
0
O
0
0
0
0
O
0
0
0
0
O
0
0
0
0
0
O
0
0
O
O
0
0
0
0
0
0
0
0
0
0
O
O
O
0
0
O
0
O
0
0
0
O
O
+
0
0
O
0
0
0
0
0
O
0
0
O
O
O
0
O
O
0
0
0
O
0
O
0
O
O
0
O
O
O
O
0
O
O
O
O
O
0
O
O
O
0
O
O
O
0
O
0
O
O
0
O
O
O
0
O
O
O
0
O
O
O
0
0
O
0
O
O
0
O
0
O
O
0
0
O
0
0
0
O
0
O
0
0
O
0
0
0
0
0
0
O
O
O
4
0
0
0
O
O
0
0
O
O
O
O
0
O
O
0
O
0
0
0
0
O
0
O
0
O
O
0
O
O
O
O
O
O
O
0
0
O
O
O
O
O
O
0
O
O
0
O
+
0
0
0
0
O
0
O
0
O
O
O
0
O
O
0
O
O
0
0
O
O
0
O
O
O
O
0
O
O
O
0
O
O
0
O
O
0
O
0
O
0
O
0
O
O
0
0
0
0
0
O
0
0
O
0
O
O
O
O
O
O
0
O
O
O
O
0
0
0
O
0
O
O
O
O
O
0
0
0
0
0
O
0
0
O
0
O
O
O
O
O
O
O
O
•i
0
0
O
0
O
0
0
0
O
O
0
O
O
O
0
O
O
O
O
0
O
0
O
0
O
O
0
O
O
0
O
0
O
0
O
O
0
O
0
O
0
O
0
O
O
0
0
0
O
0
O
0
O
O
O
O
O
O
O
O
O
O
O
O
O
O
0
0
0
O
O
O
O
O
O
O
O
0
O
O
O
O
0
O
O
0
O
O
0
O
O
O
0
O
+....6 ...+... .7 ....+....
Description
TECHNOLOGY IV I/M CREDITS
TECHNOLOGY IV I/M CREDITS
TECHNOLOGY IV I/M CREDITS
TECHNOLOGY IV I/M CREDITS
TECHNOLOGY IV I/M CREDITS
TECHNOLOGY IV I/M CREDITS
TECHNOLOGY IV I/M CREDITS
TECHNOLOGY IV I/M CREDITS
TECHNOLOGY IV I/M CREDITS
TECHNOLOGY IV I/M CREDITS
TECHNOLOGY IV I/M CREDITS
TECHNOLOGY IV I/M CREDITS
TECHNOLOGY IV I/M CREDITS
TECHNOLOGY IV I/M CREDITS
TECHNOLOGY IV I/M CREDITS
TECHNOLOGY IV I/M CREDITS
TECHNOLOGY IV I/M CREDITS
TECHNOLOGY IV I/M CREDITS
TECHNOLOGY IV I/M CREDITS
TECHNOLOGY IV I/M CREDITS
TECHNOLOGY IV I/M CREDITS
TECHNOLOGY IV I/M CREDITS
TECHNOLOGY IV I/M CREDITS
TECHNOLOGY IV I/M CREDITS
TECHNOLOGY IV I/M CREDITS
TECHNOLOGY IV I/M CREDITS
TECHNOLOGY IV I/M CREDITS
TECHNOLOGY IV I/M CREDITS
TECHNOLOGY IV I/M CREDITS
TECHNOLOGY IV I/M CREDITS
TECHNOLOGY IV I/M CREDITS
TECHNOLOGY IV I/M CREDITS
TECHNOLOGY IV I/M CREDITS
TECHNOLOGY IV I/M CREDITS
TECHNOLOGY IV I/M CREDITS
TECHNOLOGY IV I/M CREDITS
TECHNOLOGY IV I/M CREDITS
TECHNOLOGY IV I/M CREDITS
TECHNOLOGY IV I/M CREDITS
TECHNOLOGY IV I/M CREDITS
TECHNOLOGY IV I/M CREDITS
TECHNOLOGY IV I/M CREDITS
TECHNOLOGY IV I/M CREDITS
TECHNOLOGY IV I/M CREDITS
TECHNOLOGY IV I/M CREDITS
TECHNOLOGY IV I/M CREDITS
TECHNOLOGY IV I/M CREDITS
TECHNOLOGY IV I/M CREDITS
TECHNOLOGY IV I/M CREDITS
TECHNOLOGY IV I/M CREDITS
8
oo
LO
4 1.6 MOBILE2 EXAMPLE/C6 I/M Credit Input (cont.)
-------
MOBILE2 EXAMPLES I/M Credits Inputted from Unit 4 (cont.)
Input Record (SO columns)
0
o
0
o
0
0
o
0
o
o
0
o
0
o
o
0
o
0
0
0
+
0
o
0
0
0
0
0
0
0
o
0
o
o
o
0
0
o
0
0
o
1 .
0
o
0
o
0
0
o
0
0
o
-f
0
o
o
o
0
0
o
0
0
o
0
o
o
o
0
0
o
0
o
o
.2.
0
o
o
o
0
0
0
0
o
o
o
o
o
0
0
0
o
0
0
0
•f
0
o
o
0
0
o
0
o
o
0
?
0
o
o
0
o
0
0
0
o
0
o
0
o
0
0
o
0
0
0
o
+
0
0
0
o
0
0
o
o
0
o
o
0
0
o
0
0
o
o
0
o
4
o
o
0
0
0
0
0
0
0
0
+
o
o
0
0
0
0
0
0
0
o
0
o
0
o
0
0
o
0
0
o
s
0
o
0
0
0
0
o
0
0
o
0
0
0
0
0
0
0
0
0
o
.+ ... .6. ...+... .7. ...+....
Description
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
TECHNOLOGY
8
IV I/M
IV I/M
IV I/M
IV I/M
IV I/M
IV I/M
IV I/M
IV I/M
IV I/M
IV I/M
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
CREDITS
4.1.6 MOBILE2 EXAMPLE06 I/M Credit Input (cont.)
-------
ENTER PROJECT ID:
MOBILE2 EXAMPLE H
ENTER INFLAG:
ENTER SPDFLG:
ENTER VMFLAG:
ENTER MYMRFG:
ENTER ALTFLG:
ENTER IMFLG:
ENTER ALHFLG:
ENTER TRKFLG:
ENTER I FORM:
ENTER PRTFLG:
ENTER ICEVFG:
ENTER IDLFLG:
ENTER NMHFLG-
ENTER
ENTER
ENTER
ENTER
ENTER
ENTER
ENTER
ENTER
ENTER
ENTER
ENTER
ENTER
ENTER
ENTER
ENTER
ENTER
ENTER
ENTER
ENTER
ENTER
ENTER
ENTER
ENTER
ENTER
ENTER
ENTER
ENTER
ENTER
ENTER
ENTER
ENTER
ENTER
ENTER
UNFFLG:
MYM
MYM
MYM
MYM
MYM
MYM
MYM
MYM
MYM
MYM
MYM
MYM
MYM
MYM
MYM
MYM
MYR
MYR
MYR
MYR
MYR
MYR
MYR
MYR
MYR
MYR
MYR
MYR
MYR
MYR
MYR
MYR
AGES
AGES
AGES
AGES
AGES
AGES
AGES
AGES
AGES
AGES
AGES
AGES
AGES
AGES
AGES
AGES
AGES
AGES
AGES
AGES
AGES
AGES
AGES
AGES
AGES
AGES
AGES
AGES
AGES
AGES
AGES
AGES
A _
1 1
1-
11
1 -
1 1
1-
11
1-
1 1
1-
1 1
1-
1 1
1-
1 1
1-
1 1
1-
1 1
1-
1 1
1-
1 1
1-
1 1
1-
1 1
1-
1 1
1-
11
-10 FOR LDGV:
1-2O FOR LDGV:
-10 FOR LDGT1:
1-2O FOR LDGT1:
-10 FOR LDGT2:
1-2O FOR LDGT2:
-10 FOR HDGV:
11-2O FOR HDGV:
1-1O FOR LDDV:
11-20 FOR LDDV:
1-10 FOR LDDT:
11-2O FOR LDDT:
1-10 FOR HDDV:
11-2O FOR HDDV:
1-10 FOR MC:
11-2O FOR MC:
1-10 FOR LDGV:
11-2O FOR LDGV:
1-10 FOR LDGT1:
11-20 FOR LDGT1:
1-10 FOR LDGT2:
11-20 FOR LDGT2:
1-10 FOR HDGV:
11-20 FOR HDGV:
-1O FOR LDDV:
1-2O FOR LDDV:
-10 FOR LDDT:
1-2O FOR LDDT:
-10 FOR HDDV:
1-2O FOR HDDV:
1-1O FOR MC:
11-20 FOR MC:
ENTER YEAR I/M BEGINS, STRINGENCY, M.T. FLAG,
FIRST MODEL YEAR AND LAST MODEL YEAR OF PROG BENEFITS
VEH.TYPE,OPTION,AND NEWDATA FLAG
ENTER REGION, CY,SPD(1),TAMB,PCCN,PCHC,PCCC:
4.1.6 MOBILE2 EXAMPLE#6 Prompting Output
00
-------
ENTER REGION, CY,SPD(1),TAMB,PCCN,PCHC,PCCC:
ENTER REGION, CY,SPD(1),TAMB,PCCN.PCHC,PCCC:
ENTER REGION, CY,SPD(1),TAMB,PCCN,PCHC,PCCC:
ENTER REGION, CY,SPD(1),TAMB,PCCN,PCHC,PCCC:
ENTER REGION, CY,SPD(1),TAMB.PCCN,PCHC,PCCC:
00
4.1.6 MOBILE2 EXAMPLE//6 Prompting Output (cont.)
-------
MOBILE2 EXAMPLE
-------
MOBILE2 EXAMPLE *6
* TOTAL HC EMISSION FACTORS INCLUDE EVAP. HC EMISSION FACTORS
CAL. YEAR: 1970 REGION: 49-STATE LOWALT. ALT: 50O. FT.
LDGV I/M PROGRAM STARTING IN 1975
STRINGENCY LEVEL 34% MECH.TRAINING: NO
I/M PROGRAM BENEFITS APPLY ONLY TO MODEL YEARS 1975 THROUGH 1990
ATTENTION: THE DEFAULT VALUE OF 5O% FOR TECHNOLOGY 4
I/M IDENTIFICATION RATE HAS BEEN LEFT UNCHANGED.
SAMPLE TEXT -- (YOU
MAY
INSERT
ZERO
TO
NINE
72-CHARACTER-LINES
OF
TEXT)
TAMB: O.O(F)
O O/1OO.O/ O.O
VEH. TYPE:
VEH. SPEEDS:
VMT MIX:
LDGV
5.0
0.765
LDGT1
5.0
O.O96
LOGT2
5.0
0.042
LDGT
COMPOSITE EMISSION FACTORS (GM/MILE)
EXHAUST CO: 24O.13 24O 13 293.9O 256.61
HDGV
5.O
0.035
819.76
LODV
5.O
0.0
O.O
LDDT
5.O
0.0
O O
HDDV
5.O
O.007
3O O2
MC
5.0
O.O54
125.77
ALL VEH.
254.9O
CAL. YEAR: 1985 REGION: 49-STATE LOWALT. ALT: 5OO. FT.
LDGV I/M PROGRAM STARTING IN 1975
STRINGENCY LEVEL 34% MECH.TRAINING: NO
I/M PROGRAM BENEFITS APPLY ONLY TO MODEL YEARS 1975 THROUGH 199O
ATTENTION: THE DEFAULT VALUE OF 50% FOR TECHNOLOGY 4
I/M IDENTIFICATION RATE HAS BEEN LEFT UNCHANGED.
SAMPLE TEXT -- (YOU
MAY
INSERT
ZERO
TO
NINE
72-CHARACTER-LINES
OF
TEXT)
TAMB: 5O.O(F)
37.1/ 50.O/ 5O.O
00
CD
VEH. TYPE:
VEH. SPEEDS:
VMT MIX:
LDGV
15.0
O 739
LDGT1
15 O
O.O93
LDGT2
15.0
O.O42
LDGT
HDGV
15 0
O.O35
LDDV
15 0
O.O26
LDDT
15.0
O OO3
HDDV
15.0
O OO7
MC
15.0
O.O54
ALL VEH.
COMPOSITE EMISSION FACTORS (GM/MILE)
EXHAUST CO 63.86 81.39 97.58
86 47
27O 87
2 54
3 88
14 .94
65 16
72. O8
CAL. YEAR: 1985 REGION: CALIF. LOWALT. ALT: 5OO. FT.
LDGV I/M PROGRAM STARTING IN 1975
STRINGENCY LEVEL 34% MECH TRAINING: NO
I/M PROGRAM BENEFITS APPLY ONLY TO MODEL YEARS 1975 THROUGH 199O
ATTENTION. THE DEFAULT VALUE OF 50% FOR TECHNOLOGY 4
I/M IDENTIFICATION RATE HAS BEEN LEFT UNCHANGED.
SAMPLE TEXT -- (YOU
TAMB• SO 0(F)
37.1/ 50.O/ 5O.O
4.1.6 MOBILE2 EXAMPLE*6 Report Output
-------
VEH. TYPE:
VEH. SPEEDS-
VMT MIX:
MAY
INSERT
ZERO
TO
NINE
72-CHARACTER-LINES
OF
TEXT)
LDGV
15.O
O.739
LDGT1
15.0
O.O93
LDGT2
15.0
O.O42
COMPOSITE EMISSION FACTORS (GM/MILE)
EXHAUST CO: 52.67 66.81 84.11
LDGT
72.23
HDGV
15.O
O O35
252 41
LDDV
15.0
O.O26
2.54
LDDT
15.0
O OO3
2.60
HODV MC ALL VEH.
15.O 15.0
O.OO7 O.O54
14 .94
63.41
61.14
CAL. YEAR: 1985 REGION: 49-STATE HIALT. ALT: 55OO. FT
LDGV I/M PROGRAM STARTING IN 1975
STRINGENCY LEVEL 34% MECH.TRAINING: NO
I/M PROGRAM BENEFITS APPLY ONLY TO MODEL YEARS 1975 THROUGH 199O
ATTENTION: THE DEFAULT VALUE OF 5O% FOR TECHNOLOGY 4
I/M IDENTIFICATION RATE HAS BEEN LEFT UNCHANGED.
SAMPLE TEXT -- (YOU
MAY
INSERT
ZERO
TO
NINE
72-CHARACTER-LINES
OF
TEXT)
TAMB: 5O.O(F)
37.1/ 5O O/ 5O.O
00
VEH. TYPE:
VEH. SPEEDS:
VMT MIX:
LDGV
15.0
O.739
LDGT1
15.0
O.O93
LDGT2
15.0
O.O42
LDGT
COMPOSITE EMISSION FACTORS (GM/MILE)
EXHAUST CO: 86.77 1O9.85 127.85 1 15.5O
HDGV
15.0
0.035
454 75
LDDV
15.0
O.O26
3.87
LDDT
15.0
O.OO3
5.89
HDDV MC ALL VEH
15 O 15.0
O.OO7 O.O54
25.77
77.93
1OO.18
CAL. YEAR: 2OOO REGION: 49-STATE LOWALT. ALT: 5OO FT.
LDGV I/M PROGRAM STARTING IN 1975
STRINGENCY LEVEL 34% MECH.TRAINING: NO
I/M PROGRAM BENEFITS APPLY ONLY TO MODEL YEARS 1975 THROUGH 1990
ATTENTION: THE DEFAULT VALUE OF 5O% FOR TECHNOLOGY 4
I/M IDENTIFICATION RATE HAS BEEN LEFT UNCHANGED.
SAMPLE TEXT — (YOU
MAY
INSERT
ZERO
TO
NINE
72-CHARACTER-LINES
OF
TEXT)
TAMB:11O.O(F)
74.2/ O.O/1OO.O
VEH TYPE•
VEH. SPEEDS-
VMT MIX:
LDGV
55.0
0.63O
LDGT1
55.0
O.O79
LDGT2
55.0
0.042
LDGT
HDGV
55 O
O O35
LDDV
55 0
0. 135
LDDT
55 O
0.017
HDDV
55.0
O.O07
MC
55.0
0.054
ALL VEH.
4 1.6 MOBILE2 EXAMPLES Report Output (cont.)
-------
COMPOSITE EMISSION FACTORS (GM/MILE)
EXHAUST CO: 10.O6 7.54 7.54 7 54 36 51 1 O8 1.71 5 65 12 33 9.42
4.1.6 MOBILE2 EXAMPLES Report Output (cont.)
-------
-------
4 1.7 MOBILE2 EXAMPLE It 7
Input Record (SO columns)
O123 IPROMT , IOUNEW( 1 ) . . .
MOBILE2 EXAMPLE #7
1 INFLAG
O SPDFLG
O VMFLAG
O MYMRFG
1 ALTFLG
O IMFLG
0 ALHFLG
O TRKFLG
3 IFORM
3 PRTFLG
2 ICEVFG
0 IDLFLG
O NMHFLG
O UNFFLG
IOUNEW(3)
1O
1
1
1
1
1
1
1
1
1
1
1
1
5
6
6
6
7
7
7
8
8
8
3.
31
70
85
3
1
2
3
1
2
3
1
2
3
1
1
51
51
51
51
51
51
51
51
51
51
3
26
5.
15
00
OO
OO
OO
OO
OO
OO
OO
00
OO
. 1 3
.3 33
O O.
O 5O.
3
1
1
1
1
1
1
1
1
1
. 1
.7
O
0
.00
OO
.OO
.00
.OO
.00
.00
.00
.00
.00
10.
100
0.0
37 1
O.
0.
O.
O.
00
00
00
OO
o.oo
o.oo
0.
O.
O.
O.
O O
. O
100
50.
OO
OO
00
OO
.0 1 .O
.0 1 .0
0.0
0 50.0
1 .O 1.0
1 .O 1 .O
Descript ion
Secti on
2 85 15.O 5O.O 37.1 50.O 50.0
3 85 15.O 5O.O 37.1 5O.O 50.O
1 OO 55.O 11O. 74.2 O O 1OO.
1 .
FLAG
TITLE
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
ALTERNATE
ALTERNATE
ALTERNATE
ALTERNATE
ALTERNATE
ALTERNATE
ALTERNATE
ALTERNATE
ALTERNATE
ALTERNATE
ALTERNATE
TRIPS/DAY
MILES/DAY
SCENARIO
SCENARIO
SCENARIO
SCENARIO
SCENARIO
BASIC
BASIC
BASIC
BASIC
BASIC
BASIC
BASIC
BASIC
BASIC
BASIC
BASIC
EMISSION
EMISSION
EMISSION
EMISSION
EMISSION
EMISSION
EMISSION
EMISSION
EMISSION
EMISSION
EMISSION
RATES
RATES
RATES
RATES
RATES
RATES
RATES
RATES
RATES
RATES
RATES
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
ONE-TIME
ONE-TIME
ONE-TIME
ONE-TIME
ONE-TIME
ONE-TIME
ONE-TIME
ONE-TIME
ONE-TIME
ONE-TIME
ONE-TIME
ONE-TIME
ONE-TIME
PARAMETER
PARAMETER
PARAMETER
PARAMETER
PARAMETER
. .8
Example 7 uses a "vertical" input format without prompting (IPROMT=O) and a 112
column wide descriptive format for 9 vehicle types, including a combined
LDGT group (IFORM=3). The formatted reports are sent to unit 1 [IOUNEW(1)=1].
the diagnostic messages are sent to unit 2 [lOUNEWt2)=2], and the prompting
messages, if there were any. would be sent to unit 3 [IOUNEW(3)=3]
The output units are displayed in the unit 2 output.
The input options used in this example are-
alternative basic emission rates (ALTFLG=1)
user supplied average trips/day and miles/day for crankcase and
evaporative HC emission calculations (ICEVFG=2)
Only HC emission factors are printed (PRTFLG=1).
HC emission factors include methane (NMHFLG=0).
4 1 7 MOBILE2 EXAMPLE*? Input
-------
MOBILES EXAMPLE #7
COMMENT
WARNING
WARNING
WARNING
WARNING
WARNING
WARNING
WARNING
WARNING
WARNING
WARNING
CURRENT OUTPUT UNIT NUMBERS
EQUATION
EQUATION
EQUATION
EQUATION
EQUATION
EQUATION
EQUATION
EQUATION
EQUATION
EQUATION
1
2
3
4
5
6
7
8
g
10
ZEROES
ZEROES
ZEROES
ZEROES
ZEROES
ZEROES
ZEROES
ZEROES
ZEROES
ZEROES
ALL
ALL
ALL
ALL
ALL
ALL
ALL
ALL
ALL
ALL
IDLE
IDLE
IDLE
IDLE
IDLE
IDLE
IDLE
IDLE
IDLE
IDLE
ARE IOUUNF=9
COEFFICIENTS
COEFFICIENTS
COEFFICIENTS
COEFFICIENTS
COEFFICIENTS
COEFFICIENTS
COEFFICIENTS
COEFFICIENTS
COEFFICIENTS
COEFFICIENTS
IOUREP=1 IOUERR=2 IOUASK=3
(AND TOTAL) FOR IR=1, IV=5, IP=3
(AND TOTAL) FOR IR=1. IV=6, IP=1
(AND TOTAL) FOR IR=1. IV=6, 1P=2
(AND TOTAL) FOR IR=1, IV=6, IP=3
(AND TOTAL) FOR IR=1. IV=7, IP=1
(AND TQT&L) FOR TP=I, IV=7, IP = 2
(AND TOTAL) FOR IR=1, IV=7, IP=3
(AND TOTAL) FOR IR=1, IV=8, IP=1
(AND TOTAL) FOR IR=1, IV=8, IP=2
(AND TOTAL) FOR IR=1, IV = 8, IP=3
4.1.7 MOBILE2 EXAMPLE*? Diagnostic Output
-------
MOBILE2 EXAMPLE #7
EMISSION FACTOR MODIFICATION PROFILE-
REGION VEH. POLLUTANT FIRST MY LAST MY
BASE
OR
ALTERED
1 5
1 6
1 6
1 6
1 7
1 7
1 7
1 8
1 8
1 8
3
1
2
3
1
2
3
1
2
3
1951 2OOO 3.OO O.O YES
1951 2OOO 1 .00 0 O YES
1951 20OO 1.OO O.O YES
1951 20OO 1.00 0.0 YES
1951 20OO 1.0O O.O YES
1951 20OO 1.00 O.O YES
1951 20OO 1 OO O.O YES
1951 20OO 1.00 O.O YES
1 95 1 20OO 1 . OO O.O YES
1951 20OO 1.OO O.O YES
* TOTAL HC EMISSION FACTORS INCLUDE EVAP . HC EMISSION FACTORS
CAL. YEAR: 197O
VEH. TYPE:
VEH. SPEEDS:
VMT MIX:
REGION: 49-STATE LOWALT .
LDGV
5.O
O.786
COMPOSITE EMISSION FACTORS
EXHAUST NOX:
CAL. YEAR: 1985
VEH. TYPE:
VEH. SPEEDS:
VMT MIX:
8.OO
LDGT1
5 0
O.O83
(GM/MILE)
8.01
LDGT2
5.0
O.O47
12.86
REGION: 49-STATE LOWALT.
LDGV
15. O
0.750
COMPOSITE EMISSION FACTORS
EXHAUST NOX:
CAL. YEAR: 1985
VEH. TYPE:
VEH. SPEEDS:
VMT MIX-
2.21
LDGT1
15 O
0.079
(GM/MILE)
2 .72
REGION: CALIF.
LDGV
15. O
O.75O
COMPOSITE EMISSION FACTORS
EXHAUST NOX :
CAL. YEAR: 1985
VEH. TYPE
VEH. SPEEDS
VMT MIX
1 .83
LDGT1
15 O
O.O79
(GM/MILE)
2 . 17
LDGT2
15.0
O.O46
2 42
LOWALT
LDGT2
15.0
O.O46
1 .89
REGION: 49-STATE HIALT .
LDGV
15.0
O.75O
COMPOSITE EMISSION FACTORS
EXHAUST NOX
1 .76
LDGT1
15.0
O.O79
(GM/MILE)
2 . 19
LDGT2
15. O
O.O46
2.O9
ALT: 5OO. FT.
LDGT HDGV
5.0
O.O42
9.75 11.90
ALT- 5OO. FT.
LDGT HDGV
15. O
0.042
2 61 1O 48
ALT: 5OO FT
LDGT HDGV
15 O
O.042
2.O7 6.87
ALT- 55OO. FT
LDGT HDGV
15. O
O.O42
2 15 8 O5
TAME:
LDDV
5
O
0
O
O
0
TAMB
LDDV
15
O
3
O
O36
73
TAMB
LDDV
15
0
1
0
036
31
TAMB
LDDV
15
O
1
0
036
42
O.O(F)
LDDT
5.O
0.0
0.0
50.0(F)
LDDT
15. O
0 OO5
1 . 24
5O.O(F)
LDDT
15. O
O.OO5
1 .76
50 0(F)
LDDT
15 0
O OO5
2 . 45
O
HDDV
5
0
1
O
033
57
37
HDDV
15
0
1
O
O33
12
37
HDDV
15
O
19
O
O33
99
37
HDDV
15
0
28
0
033
74
0/100 O/
MC
5.O
O.OO9
2.45
1/ 5O.O/
MC
15 O
O.O09
1 .08
1/ 5O O/
MC
15.0
O OO9
O.85
1/ 5O O/
MC
15.0
O.OO9
O 54
0.0
ALL VEH.
8.13
5O O
ALL VEH.
2.61
5O 0
ALL VEH
2.64
5O.O
ALL VEH.
2 94
CAL YEAR: 2000 REGION: 49-STATE LOWALT.
4.1.7 MOBILE2 EXAMPLE/*? Report Output
ALT: 5OO FT
TAMB-110 0(F)
74 2/ 0 0/100 0
-------
VEH. TYPE: LDGV LDGT1 LDGT2 LDGT HDGV LDDV LDDT HDDV MC ALL VEH
VEH SPEEDS: 55 O 55.0 55 .0 55.0 55.0 55.0 55 O 55.0
VMT MIX: O.631 O.O67 O.O46 O O42 O.153 O.O18 O.O33 O.OO9
COMPOSITE EMISSION FACTORS (GM/MILE)
EXHAUST NOX • 1 . 36 O.93 O.79 O.87 2.66 4.O8 1.36 1.20 1.51 1.77
4 1 7 MQBILE2 EXAMPLE-" Report Output (cent
-------
4.1.8 MOBILE2 EXAMPLE tt B
Input Record (8O columns)
1677 IPROMT,IOUNEW(1)...IOUNEW(3)
MOBILES EXAMPLE #8
1 INFLAG
O SPDFLG
O VMFLAG
O MYMRFG
O ALTFLG
0 IMFLG
2 ALHFLG
O TRKFLG
1 I FORM
1 PRTFLG
O ICEVFG
1 IDLFLG
1 NMHFLG
O UNFFLG
1 75 5.O 8O.O O.O 10O. O.O
. 10O.O5O.O70.09O.O40.O3O.O206O.O80.075.O
1 8O 19.6 BO.O 20.6 27.3 2O.6
.1OO.O5O.O7O O9O.O4O.030.O2O6O.O80.075.0
1 85 15.O 8O.O 50.O 5O.O 50.O
. 1OO.O5O.O7O.O9O.O4O.O3O.O2O60.O80 075.O
1 90 35.O 8O.O BO.O 20 0 8O.O
.1OO.O5O.O7O.O9O.O40.O3O.O2O6O O8O.075.O
1 95 45.0 8O O 9O.O 10.0 90.O
. 1OO.05O.O7O.O9O.O4O.030.O2060.O80 075. O
1 OO 55 O 8O O 1OO. O.O 10O.
.100.05O 070.09O.O40.03O O2O60.080.075 0
....-*-.... 1 ... +....2... +....3... + . .4. ..+ ... 5. . + ...6
Example 8 uses a "vertical" input format with prompting (IPRQMT=1) and a
descriptive format for 6 vehicle types (LDDs are excluded. IFORM=1)
The formatted reports are sent to unit 6 [IOUNEW(1)=6], the diagnostic
and prompting messages are sent to unit 7 [IOUNEW(2)-IOUNEW(3)=7].
The output units are displayed on the unit 7 output.
Four additional light-duty correction factors are used as an input option
(ALHFLG=2)
The output options used are:
print only HC emissions (PRTFLG=1)
print idle emissions (IDLFLG=1)
print non-methane HC emissions (NMHFLG=1).
Descr ipt ion
Sect ion
FLAG
TITLE
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
SCENARIO
LD ADDITIONAL CORRECTION FACTORS
SCENARIO
LD ADDITIONAL CORRECTION FACTORS
SCENARIO
LD ADDITIONAL CORRECTION FACTORS
SCENARIO
LD ADDITIONAL CORRECTION FACTORS
SCENARIO
LD ADDITIONAL CORRECTION FACTORS
SCENARIO
LD ADDITIONAL CORRECTION FACTORS
. . .7. ..+... .8
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
PARAMETER
PARAMETER
PARAMETER
PARAMETER
PARAMETER
PARAMETER
PARAMETER
PARAMETER
PARAMETER
PARAMETER
PARAMETER
PARAMETER
4 1 8 MOBILE2 EXAMPLES Input
-------
ENTER PROJECT ID:
MOBILE2 EXAMPLE #8
COMMENT: CURRENT OUTPUT UNIT NUMBERS ARE IOUUNF=9 IOUREP=6 IOUERR=7 IOUASK=7
ENTER INFLAG-
ENTER SPDFLG:
ENTER VMFLAG:
ENTER MYMRFG:
ENTER ALTFLG:
ENTER IMFLG:
ENTER ALHFLG:
ENTER TRKFLG:
ENTER IFORM:
ENTER PRTFLG:
ENTER ICEVFG:
ENTER IDLFLG-
ENTER NMHFLG-
ENTER UNFFLG:
ENTER REGION. CY , SPD( 1) , TAMB , PCCN . PCHC ,PCCC :
ENTER AC.XLOADO) .TRAILRO) . ABSHUM , DBTEMP , WBTEMP
COMMENT: A/C CORRECTION FACTOR WILL BE CALCULATED.
VALUE OF INPUTTED AC USAGE PARAMETER IS IGNORED.
ENTER REGION, CY , SPD( 1 ), TAMB , PCCN, PCHC , PCCC :
ENTER AC.XLOADO) .TRAILRO) , ABSHUM. DBTEMP, WBTEMP
COMMENT: A/C CORRECTION FACTOR WILL BE CALCULATED.
VALUE OF INPUTTED AC USAGE PARAMETER IS IGNORED.
ENTER REGION, CY , SPD( 1 ), TAMB , PCCN, PCHC , PCCC :
ENTER AC.XLOADO), TRAILRO) . ABSHUM . DBTEMP , WBTEMP
COMMENT: A/C CORRECTION FACTOR WILL BE CALCULATED.
VALUE OF INPUTTED AC USAGE PARAMETER IS IGNORED.
ENTER REGION, CY , SPD( 1 ), TAMB . PCCN. PCHC , PCCC :
ENTER AC.XLOADO) .TRAILRO) , ABSHUM . DBTEMP , WBTEMP
COMMENT: A/C CORRECTION FACTOR WILL BE CALCULATED
VALUE OF INPUTTED AC USAGE PARAMETER IS IGNORED.
ENTER REGION, CY , SPD( 1 ), TAMB , PCCN , PCHC , PCCC :
ENTER AC.XLOADO), TRAILRO) , ABSHUM , DBTEMP , WBTEMP
COMMENT- A/C CORRECTION FACTOR WILL BE CALCULATED.
VALUE OF INPUTTED AC USAGE PARAMETER IS IGNORED.
ENTER REGION. CY , SPD( 1 ), TAMB , PCCN, PCHC , PCCC :
ENTER AC.XLOADO) .TRAILRO) , ABSHUM , DBTEMP , WBTEMP
COMMENT: A/C CORRECTION FACTOR WILL BE CALCULATED.
VALUE OF INPUTTED AC USAGE PARAMETER IS IGNORED
ENTER REGION, CY . SPD( 1 ), TAMB , PCCN , PCHC , PCCC :
4.1 8 MOBILE2 EXAMPLES Prompting and Diagnostic Output
-------
MOBILE2 EXAMPLE #8
*NON-METH HC EMISSION FACTORS INCLUDE EVAP. HC EMISSION FACTORS
VEH. TYPE: LDV LDT1 LDT2 HOG HDD MC
CAL. YEAR: 1975 TEMP- 8O.O(F) O.786/O.O83/O.O47/O.O42/0.O33/0.O09
REGION: 49-STATE 5 .0/ 5.O/ 5.0 MPH ( 5.0) O.O/1OO.O/ 0 O
AC: 0.70 XLOAD: 0.05 0.07 0.09 TRAILR: 0.04 ABSHUM: 60.00
COMPOSITE EMISSION FACTORS (GM/MILE)
LDV LDT1 LDT2 HDG HDD MC ALL MODES
NON-METH HC: 22.20 21.52 29.82 51 08 8.15 31.51 23.33
HOT STABILIZED IDLE EMISSION FACTORS (GM/MIN)
NM-IDLE HC: 1 .09 1.02 1.17 1.46 O.35 2.07 1 . OS
VEH. TYPE: LDV LOT 1 LDT2 HDG HDD MC
CAL. YEAR: 198O TEMP: 80.0(F) 0.781/0.083/0.047/0 O42/0.033/0.009
REGION: 49-STATE 19.6/19.6/19.6 MPH (19.6) 2O 6/ 27.3/ 2O.6
AC: O.70 XLOAD: O. O5 0.07 O.09 TRAILR- O. O4 ABSHUM: 6O. OO
COMPOSITE EMISSION FACTORS (GM/MILE)
LDV LDT1 LDT2 HDG HDD MC ALL MODES
NON-METH HC: 4.83 4.95 5.82 15.86 4.28 7.92 5.33
HOT STABILIZED IDLE EMISSION FACTORS (GM/MIN)
NM-IDLE HC: 0.78 O.69 0.70 1.02 0.35 1.38 O.76
VEH. TYPE: LDV LDT1 LDT2 HDG HDD MC
CAL. YEAR: 1985 TEMP: 8O.O(F) O 750/0.O79/0 O46/O.O42/O.O33/O.OO9
REGION: 49-STATE 15.0/15.0/15.0 MPH (15.O) 5O.O/ 5O.O/ 5O.O
AC: O 7O XLOAD: 0.05 O. O7 0.09 TRAILR: O. O4 ABSHUM 6O. OO
COMPOSITE EMISSION FACTORS (GM/MILE)
LDV LDT1 LDT2 HDG HDD MC ALL MODES
NON-METH HC: 4.53 5. OS 3.80 12.52 5.13 8.12 4 78
HOT STABILIZED IDLE EMISSION FACTORS (GM/MIN)
NM-IDLE HC: O.52 0.38 0.21 0.58 O.35 O.78 O.48
VEH. TYPE: LDV LOT 1 LDT2 HDG HDD MC
CAL. YEAR: 199O TEMP: 8O.O(F) O.693/O O73/0.O46/O.O42/O.O33/O.OO9
REGION- 49-STATE 35.O/35.0/35.O MPH (35.0) 80.O/ 20.O/ 8O.O
AC: O.70 XLOAD: 0.O5 0 07 O.09 TRAILR. O.O4 ABSHUM: 60.OO
COMPOSITE EMISSION FACTORS (GM/MILE)
LDV LDT1 LDT2 HDG HDD MC ALL MODES
NON-METH HC: 1.39 1.70 1 O3 2.61 2.30 5.74 1.42
HOT STABILIZED IDLE EMISSION FACTORS (GM/MIN)
NM-IDLE HC: 0.34 0 19 0.09 0. 3O O.29 O 76 0.28
VEH TYPE: LDV LOT 1 LDT2 HDG HDD MC
CAL. YEAR. 1995 TEMP- 8O.O(F) O.647/O O69/O.O46/O O42/0 O33/O.OO9
REGION. 49-STATE 45.O/45.0/45.O MPH (45.0) 90.O/ 1O.O/ 90 O
4.1 8 MOBILE2 EXAMPLES Report Output
-------
AC: O.7O XLOAD: O. O5 O.O7 O. O9 TRAILR: 0.04 ABSHUM • 6O. OO
COMPOSITE EMISSION FACTORS (GM/MILE)
LDV LDT1 LDT2 HDG HDD MC ALL MODES
NON-METH HC: 0.78 O.88 O.61 1.27 1.79 5.37 O.82
HOT STABILIZED IDLE EMISSION FACTORS (GM/MIN)
NM-IDLE HC: O.25 O.1O O.O6 O.22 O.27 0. 76 0.21
VEH. TYPE: LDV LOT 1 LOT 2 HDG HDD MC
CAL. YEAR: 2OOO TEMP: 8O.O(F) 0.631/O.O67/0.O46/O.O42/0.O33/O.OO9
REGION: 49-STATE 55.0/55.0/55.0 MPH (55.O)1OO.O/ O.O/1OO.O
AC: O.7O XLOAD: O.05 O.O7 O.O9 TRAILR: 0.04 ABSHUM: 6O.OO
COMPOSITE EMISSION FACTORS (GM/MILE)
LDV LDT1 LDT2 HDG HDD MC ALL MODES
NON-METH HC- O.62 0.56 0.49 O.89 1.58 5.26 0.66
HOT STABILIZED IDLE EMISSION FACTORS (GM/MIN)
NM-IDLE HC: 0.24 O. O7 0.05 0. 2O O.26 O 76 O.19
4.1.S MOEILE2 EXAMPLES Report Output (cont.)
-------
-99-
4.2 ' MOBILE1 EXAMPLES THROUGH MOBILE2
To illustrate that MOBILE2 input streams and output reports are similar
to those of MOBILE1, the thirteen MOBILE1 examples (from the MOBILE1
User's Guide) were run through MOBILE2. These examples are provided on
the following pages.
Each example contains an image of the input stream, a description of any
changes needed to allow the input to run through MOBILE2, and the
generated output. The input streams as displayed have had the necessary
changes made. The user is referred to the MOBILE1 User's Guide for an
image of the input streams in their original MOBILE1 format.
A MOBILE1 input data set will have to be modified before being fed into
MOBILE2 if any of the following options are used:
1. The list-directed (free format) option (INFLAGO) as in Example 1 of
the MOBILE1 User's Guide.
2. The three speed input option (SP3FLG=1) as in Examples 3 and 13 of
the MOBILE1 User's Guide.
3. The user supplied VMT option (VMFLAG=1 or 2) where LDDV and LDDT VMT
fractions must be included (as in Examples 4, 5, and 13 of the
MOBILE1 User's Guide).
4. The user supplied annual mileage accumulation rate option (MYMRFG-1
or 3) where LDDV and LDDT annual mileage accumulation rates must be
included (as in Examples 6, 8, and 13 of the MOBILE1 User's Guide).
5. The user supplied July 1 registration mix option (MYMRFG=2 or 3)
where again LDDV and LDDT information must be included (as in
Examples 7,8, and 13 of the MOBILE1 User's Guide).
-------
-------
4.2.1 MOBILE 1 EXAMPLE H 1
Input Record (SO columns)
Descrjpt ion
0
EXAMPLE
1
0
0
O
O
0
0
O
O
O
O
O
0
0
1 7O 19
+
I PROMT
1: LIST-DIRECTED INPUT
INFLAG
SPDFLG
VMFLAG
MYMRFG
ALTFLG
IMFLG
ALHFLG
TRKFLG
IFORM
PRTFLG
ICEVFG
IDLFLG
NMHFLG
UNFFLG
.6 75.0 2O. 6 27.3 20 . 6
. . 1 . . .. + ... .2 . ...+ .. . .3 . . +....4..
FLAG
TITLE
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
SCENARIO
.. + ... .5. ...-•-. ..€.... + .. .7.. . + ....8
Sect Ion
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
PARAMETER
MOBILE2 does not have the list-directed input option. Therefore, this
example did not run. However, MOEILE2 can be easily modified to accept the
list-directed input option. To run this example on MOBILE2 the scenario
record was changed to correspond to the formatted input format
(11,1X,I2,5(1X.F4. 1 )) , and the INFLAG flag was changed to 1
o
o
4 2.1 MOBILE1 EXAMPLE*! Input
-------
EXAMPLE 1: LIST-DIRECTED INPUT
R
E !
G CY LD
SPEEDS AMB
HD MC TMP COLD/HOT START
P
0
L
COMPOSITE EMISSION FACTORS
LDV LDT1 LDT2 HDG HDD MC
VEHICLE MIX C .E F .
LDV LDT1 LDT2 HDG HDD MC ALL VEH
1 70 19.6/19.6/19.6 75 20.6 27 3 20.6 1 11.30 11.24 13.88 28 05 4.45~ 11.23 0 786 O 083 O.O47 O O42 0.033 O OO9~" 1-1.~89*
1 7O 19.6/19.6/19.6 75 20.6 27.3 2O.6 2 86.14 82.61 96 65 27O.O8 13.43 35.79 O.786 O.083 O 047 O.O42 O.033 O.OO9 91 19
1 7O 19.6/19.6/19.6 75 20.6 27.3 20.6 3 3.69 3.75 5 5fi 8.85 25.80 O.24 O 786 O.O83 O O47 O O42 O.033 O.OO9 4 7O
4.2.1 MOBILE 1 EXAMPLE*! Output
-------
4.2.2 MOBILE 1 EXAMPLE H 2
Input Record (8O columns)
0
EXAMPLE
1
O
O
O
O
0
0
0
1
O
O
O
0
0
1 7O 19
....+..
I PROMT
2: FORMATTED INPUT
INFLAG
SPDFLG
VMFLAG
MYMRFG
ALTFLG
IMFLG
ALHFLG
TRKFLG
IFORM
PRTFLG
ICEVFG
IDLFLG
NMHFLG
UNFFLG
.6 75. O 20.6 27.3 2O 6
1 + 2 •*• 3 *-... .4. ...-»-. ...5. .. + ... 6. .. + ....
Description
FLAG
TITLE
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
SCENARIO
Sect Ion
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
PARAMETER
.8
MOBILE2 ran this example without any modification.
O
ho
4.2.2 MOBILE1 EXAMPLES Input
-------
EXAMPLE 2: FORMATTED INPUT
* TOTAL HC EMISSION FACTORS INCLUDE EVAP. HC EMISSION FACTORS
VEH TYPE: LDV LOT 1 LDT2 HDG HDD MC
CAL. YEAR. 197O TEMP: 75.O(F) 0.786/O O83/O.O47/O.O42/O O33/O.OO9
REGION: 43-STATE 19 6/19 6/19.6 MPH (19 6) 2O 6/ 27 3/ 20.6
COMPOSITE EMISSION FACTORS (GM/MILE)
LDV LDT1 LDT2 HDG HOD MC ALL MODES
TOTAL HC: 11 3O 1 1 24 13 88 28 05 4 45 11.23 11.89
EXHAUST CO: 86.14 82 61 96.65 270 08 13 43 35 79 91 19
EXHAUST NOX • 3.69 3.75 5 56 8 85 25.80 O.24 4 7O
O
OJ
422 MOBILE1 EXAMPLE*? Output
-------
4.2.3 MOBILE1 EXAMPLE H 3
Input Record (8O columns)
O
EXAMPLE
1
0
0
O
0
0
O
O
1
O
O
0
O
O
1 81 16
1 82 16
1 83 16
1 84 16
1 85 16
.4-
I PROMT
3: 3-SPEED INPUT
INFLAG
SPDFLG
VMFLAG
MYMRFG
ALTFLG
IMFLG
ALHFLG
TRKFLG
IFORM
PRTFLG
ICEVFG
IDLFLG
NMHFLG
UNFFLG
.O 75 .O 20.6 27. 3 2O . 6
.0 75.0 20 6 27.3 20.6
,O 75.0 20.6 27.3 20.6
. O 75 .O 2O. 6 27 .3 2O. 6
.O 75. O 20.6 27.3 2O . 6
. 1 . . .+....2... +....3....+ ..4..
Descr ipt
FLAG
TITLE
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
SCENARIO
SCENARIO
SCENARIO
SCENARIO
SCENARIO
.+ ...5. . + . . G ....+. . 7. ...+.. . .8
Sect i on
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
PARAMETER
PARAMETER
PARAMETER
PARAMETER
PARAMETER
MOBILE2 does not have the three-speed input option. Therefore, this example
did not run. MOB1LE2 no longer operates with bag speed correction factors.
Instead, either one average speed for all vehicles or eight average speeds
(one for each vehicle type) must be supplied on the scenario record However.
MOBILE2 was originally set up for a three-speed input option and can easily
be converted for this option. A word of caution must be given to users who
implement the three speed option The speeds are not bag speeds as defined in
MOBILE 1. The three speeds correspond to (1) the LDVs and LDTs (both
diesel-powered and gasoline powered), (2) the HDVs, and (3) MCs.
To run this example, SPDFLG was set to zero, and the bag 1 and bag 3 speeds
(26.O mph) were removed.
4.2.3 MOBILE1 EXAMPLES Input
-------
EXAMPLE 3: 3-SPEED INPUT
* TOTAL HC EMISSION FACTORS INCLUDE EVAP HC EMISSION FACTORS
CAL. YEAR: 1981
REGION: 49-STATE
VEH. TYPE: LDV LOT 1 LDT2 HDG HDD MC
TEMP: 75.O(F) 0.777/O.O82/O.O46/O O42/O O33/O.OO9
16.O/16.O/16.O MPH (16.0) 2O.6/ 27.3/ 2O . 6
COMPOSITE
TOTAL HC:
EXHAUST CO:
EXHAUST NOX:
LDV
5. 17
51 .72
2 51
LDT1
5.41
51 .06
2.77
EMISSION
LDT2
5.31
46.35
2.96
FACTORS (GM/MILE)
HDG
18.72
288.66
9.65
HDD
5.13
16.41
28 .OO
MC
8.36
31 .68
O 58
ALL MODES
5.75
59.53
3.67
CAL. YEAR: 1982
REGION: 49-STATE
VEH. TYPE: LDV LOT 1 LDT2 HDG HDD MC
TEMP: 75.0(F) 0 773/0 O82/0.046/O.O42/O.O33/O,OO9
16.O/1S.O/16 O MPH (16.O) 20.6/ 27.3/ 2O.6
TOTAL HC:
EXHAUST CO:
EXHAUST NOX:
COMPOSITE EMISSION FACTORS (GM/MILE)
LDV LDT1 LDT2 HDG HDD MC ALL MODES
4.68 4.97 4.33 17.45 5.13 7 . 6O 5. 2O
47.4O 47.85 39 25 281.28 16.41 28.88 55.O1
2.29 2.68 2.66 9.67 28.OO O.67 3.47
VEH. TYPE: LDV LOT 1 LDT2 HDG HDD MC
CAL. YEAR: 1983 TEMP: 75.0(F) O 766/0.O81/O.O46/O.042/O.O33/O.OO9
REGION: 49-STATE 16.O/16.O/16.O MPH (16.O) 20.6/ 27.3/ 2O.6
COMPOSITE EMISSION FACTORS (GM/MILE)
TOTAL HC:
EXHAUST CO:
EXHAUST NOX:
LDV
4.28
44.OO
2. 12
LDT1
4.59
44.81
2.59
LDT2
3 78
35 09
2.51
HDG
16 . 13
273.03
9.67
HDD
5. 13
16.41
28. OO
MC
7.O9
26.99
0.72
ALL MODES
4 75
51 .24
3.32
O
Ol
CAL. YEAR: 1984
REGION: 49-STATE
VEH TYPE: LDV LOT 1 LDT2 HDG HDD MC
TEMP: 75.O(F) 0 758/0.O80/O.046/O.O42/O O33/O.OO9
16.O/16 O/16.0 MPH (16.O) 2O.G/ 27.3/ 2O.6
COMPOSITE EMISSION FACTORS (GM/MILE)
LDV LDT1 LDT2 HDG HDD MC ALL MODES
TOTAL HC: 3.91 4.23 3 27 14.89 5 13 6 85 4.33
EXHAUST CO: 40.60 41 58 30 76 264.91 16.41 25 71 47.49
EXHAUST NOX: 2. OO 2.48 2.32 9.68 28 . OO 0.76 3.21
CAL. YEAR: 1985
REGION: 49-STATE
VEH. TYPE: LDV LOT 1 LDT2 HDG HDD MC
TEMP: 75 O(F) O.750/O.O79/O.046/O.O42/O.O33/O.OO9
16.0/16.0/16.0 MPH (16.O) 2O.6/ 27.3/ 20.6
COMPOSITE EMISSION FACTORS (GM/MILE)
LDV LDT1 LDT2 HDG HDD MC ALL MODES
TOTAL HC- 3.56 3.87 2.78 12.57 5 13 6 72 3.89
EXHAUST CO: 37.43 37 75 25 8O 225.18 16 41 24 86 42 56
EXHAUST NOX- 1 89 2 31 2.O1 1O.17 28.OO O 78 3 1O
4 2.3 MDRTLEI FVAMDLE*3 Output
-------
4.2.4 MOBILE1 EXAMPLE H 4
Input Record (SO columns)
Descr iption
o
EXAMPLE
1
O
1
0
0
o
0
o
1
o
o
o
o
o
1 7O 19
.760 O3O
1 79 19.
.74O.O35
....+...
IPROMT
4: USER-SUPPLIED VMT MIX
INFLAG
SPDFLG
VMFLAG
MYMRFG
ALTFLG
IMFLG
ALHFLG
TRKFLG
IFORM
PRTFLG
ICEVFG
IDLFLG
NMHFLG
UNFFLG
6 75. O 2O. 6 27.3 2O.6
. O40 . O8O .OOO . OOO . O80 . O 1O
6 75. O 20.6 27.3 2O.6
.O45.O85.OOO.OOO.O85.O10
. 1 ....+... 2. . +. . . .3 .. + ,.. .4. .
FLAG
TITLE
FLAG
TLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
SCENARIO
VMT MIX
SCENARIO
VMT MIX
+ 5 + .6 ...+.... 7 ....+... .8
MOBILE2 did not run this example MOBILE2 incorporates two new vehicle types
into the emission factor calculations: LDDVs and LDDTs. As a result, vehicle
miles travelled (VMT) fractions for the two new vehicle types had to be
included to make this example run successfully Further, VMT fractions of
zero must be entered prior to 1975 for LDDVs and prior to 1978 for LDDTs.
Sales prior to those years were considered insignificant If the VMT
fractions prior to those years are not zero, an error will result and
MOBILE2 will terminate. The VMT mix fractions must be entered in the
following order for the vehicle types: LDGV, LDGT1, LDGT2, HDGV. LDDV,
LDDT, HDDV, and MC.
Sect ion
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
PARAMETER
PARAMETER
PARAMETER
PARAMETER
4 2.4 MOBILE1 EXAMPIE#4 Input
-------
EXAMPLE 4: USER-SUPPLIED VMT MIX
* TOTAL HC EMISSION FACTORS INCLUDE EVAP. HC EMISSION FACTORS
CAL. YEAR: 197O
REGION: 49-STATE
VEH. TYPE: LDV LOT 1 LDT2 HDG HOD MC
TEMP: 75.O(F) O.76O/O.O3O/O-O40/O O8O/O O8O/O.Q1O
19.6/19.6/19.6 MPH (19.6) 2O.6/ 27.3/ 2O.6
COMPOSITE EMISSION FACTORS (GM/MILE)
TOTAL HC:
EXHAUST CO:
EXHAUST NOX:
LDV
11 .30
86. 14
3.69
LDT1
11 .24
82.61
3.75
LDT2
13.88
96.65
5.56
HDG
28.05
270.08
8.85
HDD
4.45
13.43
25.80
MC
1 1 23
35 79
O 24
ALL MODES
12. 19
94.85
5.91
CAL. YEAR: 1979
REGION: 49-STATE
VEH. TYPE: LDV LOT 1 LDT2 HDG HDD MC
TEMP: 75.0(F) 0.740/O.O35/0.045/O O85/O.O85/O.01O
19.6/19.6/19.6 MPH (19.6) 2O.6/ 27.3/ 2O 6
COMPOSITE EMISSION FACTORS (GM/MILE)
LDV LDT1 LDT2 HDG HDD MC ALL MODES
TOTAL HC: 5.55 5.75 8.21 18.50 4 45 9.44 6.73
EXHAUST CO: 51.84 5O.94 61.34 251.70 13.43 31.91 65.76
EXHAUST NOX: 3.O1 3.29 4.56 9.98 25.80 O.39 5.60
4.2.4 MOB 11
EXAMPLC#4 Output
-------
4.2.5 MOBILE1 EXAMPLE H 5
Input Record (SO columns)
Descript ion
Sect ion
O I PROMT
EXAMPLE 5- USER-SUPPLIED ONE-TIME VMT MIX
1 INFLAG
0 SPDFLG
2 VMFLAG
O MYMRFG
0 ALTFLG
0 IMFLG
O ALHFLG
0 TRKFLG
1 IFORM
0 PRTFLG
O ICEVFG
0 IDLFLG
O NMHFLG
O UNFFLG
.803.058.058.O45.OOO.OOO.O31.OO5
1 70 19.6 75.O 2O.6 27.3 2O.6
1 79 19.6 75.0 20.6 27.3 20.6
FLAG
TITLE
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
VMT MIX
SCENARIO
SCENARIO
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
ONE-TIME DATA
PARAMETER
PARAMETER
1 .
MOBILE2 did not run this example successfully. LDD data had to be
added to the VMT mix record. See the MOBILE1 Example # 4 comments.
O
oo
4.2.5 MOBILE1 EXAMPLES Input
-------
EXAMPLE 5: USER-SUPPLIED ONE-TIME VMT MIX
* TOTAL HC EMISSION FACTORS INCLUDE EVAP. HC EMISSION FACTORS
CAL. YEAR: 197O
REGION: 49-STATE
VEH. TYPE: LDV LDT1 LDT2 HOG HDD MC
TEMP: 75.0(F) 0. 803/O.058/0.058/O.O45/O O31/O-OO5
19.6/19.6/19.6 MPH (19.6) 2O 6/ 27.3/ 2O.6
COMPOSITE
TOTAL HC:
EXHAUST CO:
EXHAUST NOX :
LDV
1 1 .30
86. 14
3.69
LDT1
1 1 .24
82 .61
3.75
EMISSION
LDT2
13.88
96 65
5.56
FACTORS (GM/MILE)
HDG
28.05
270.08
8.85
HDD
4 .45
13 43
25. SO
MC
1 1 23
35.79
O.24
ALL MODES
1 1 .99
92.31
4.70
CAL. YEAR: 1979
REGION: 49-STATE
VEH. TYPE: LDV LDT1 LDT2 HDG HDD MC
TEMP: 75.O(F) 0 803/O.O58/0.O58/O 045/O.031/O.OO5
19.6/19 6/19.6 MPH (19.6) 2O.6/ 27 3/ 2O 6
COMPOSITE EMISSION FACTORS (GM/MILE)
LDV LDT1 LDT2 HDG HDD MC ALL MODES
TOTAL HC: 5.55 5.75 8.21 18.5O 4 45 9 44 6.29
EXHAUST CO- 51 84 50 94 61.34 251.70 13.43 31 91 60.05
EXHAUST NOX: 3.01 3.29 4 56 9.98 25 8O O.39 4.13
4.2 5 MOBILEi EXAMPLE,^ output
-------
4.2.6 MOBILE 1 EXAMPLE H 6
Input Record (80 columns)
Description
0 I PROMT
EXAMPLE 6: USER-SUPPLIED MILEAGE ACCRUAL
1 INFLAG
O SPDFLG
O VMFLAG
1 MYMRFG
O ALTFLG
O IMFLG
0 ALHFLG
0 TRKFLG
1 IFORM
O PRTFLG
O ICEVFG
O IDLFLG
O NMHFLG
O
1
1
1
1
1
DATA
FLAG
TITLE
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
UNFFLG
. 159 15O
.OG7 ,O66
.159 15O
.067 O66
.157 157
.071 O66
. 19O . 19O
.078 .070
. 159 . 15O
.067 . O6G
. 159 . 150
.067 O66
.736 736
.346 .338
02O1 .O251
O135 O132
83 5 O
83 1O. O
83 15.0
83 2O. O
83 25.0
. .+ . . .1
. 14O 131
.062 .059
140 .131
.062 .059
.141 . 126
O63 .O6O
. 179 . 165
O63 .059
. 140 . 131
.062 .059
. 14O 131
.062 .059
.699 .633
.331 .324
.O2O7 .O185
.O129.O127
75. O 20.6
75. O 2O. 6
75. O 20.6
75. O 2O. 6
75. O 2O. 6
....+... .2
122 . 1 13
O55 .051
122 113
.055 .051
113 1O2
O55 .052
150 135
.053 O49
.122 113
.055 O51
122 113
.055 O51
566 . 5OO
309 .287
.0172.0162
.0125 0123
27 3 20.6
27 3 2O 6
27 3 20.6
27 . 3 2O. 6
27.3 2O. 6
. . . .+ . . .3
103
05O
. 1O3
.050
.094
O5O
. 120
.047
. 1O3
.050
. 1O3
.O5O
.456
257
.0155
.0122
.094
.047
094
.047
086
.047
. 1O6
.046
.094
.047
094
.047
.412
.213
.0149
.0121
.085
.044
.085
.044
.080
.044
.095
O44
.085
O44
.085
O44
.382
. 184
.O143
.O12O.
.076
.044
.076
O44
.075
.041
.086
O42
.076
O44
.076
O44
360
. 154
O139
.01 19
FLAG
MYM
MYM
MYM
MYM
MYM
MYM
MYM
MYM
MYM
MYM
MYM
MYM
MYM
MYM
MYM
MYM
LDGV
LDGV
LDGT1
LDGT1
LDGT2
LDGT2
HDGV
HDGV
LDDV
LDDV
LDDT
LDDT
HDDV
HDDV
MC
MC
AGES
AGES
AGHS
AGES
AGES
AGES
AGES
AGES
AGES
AGES
AGES
AGES
AGES
AGES
AGES
AGES
1-1O
11-2O
1-1O
11-20
1-10
11-2O
1-10
1 1-2O
1-10
11-2O
1-1O
1 1-2O
1-10
1 1-2O
1-1O
1 1-2O
SCENARIO
SCENARIO
SCENARIO
SCENARIO
SCENARIO
+
. . .4
+
. . . .5. . . . + .
..6 ...+.. 7... +.. .8
Sect Ion
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
ONE-TIME DATA
ONE-TIME DATA
ONE-TIME DATA
ONE-TIME DATA
ONE-TIME DATA
ONE-TIME DATA
ONE-TIME DATA
ONE-TIME DATA
ONE-TIME DATA
ONE-TIME DATA
ONE-TIME DATA
ONE-TIME DATA
ONE-TIME DATA
ONE-TIME DATA
ONE-TIME DATA
ONE-TIME DATA
PARAMETER
PARAMETER
PARAMETER
PARAMETER
PARAMETER
MOBILE2 did not run this example because annual mileage accumulation rates
were missing for the LDDV and LDDT vehicle types
This example was run by supplying annual mileage accumulation rate distributions
for the two LDD vehicle types.
426 MOBILE1 EXAMPLES Input
-------
WARNING:
WARNING:
WARNING:
WARNING:
WARNING:
WARNING:
WARNING:
WARNING:
WARNING:
0.
O.
0.
0.
O.
0.
O.
0.
0.
132E-O1
129E-O1
127E-01
125E-O1
123E-01
122E-O1
121E-O1
120E-O1
1 19E-O1
MILEAGE
MILEAGE
MILEAGE
MILEAGE
MILEAGE
MILEAGE
MILEAGE
MILEAGE
MILEAGE
WITH
WITH
WITH
WITH
WITH
WITH
WITH
WITH
WITH
ZERO
ZERO
ZERO
ZERO
ZERO
ZERO
ZERO
ZERO
ZERO
REGISTRATION
REGISTRATION
REGISTRATION
REGISTRATION
REGISTRATION
REGISTRATION
REGISTRATION
REGISTRATION
REGISTRATION
EXAMPLE 6: USER-SUPPLIED MILEAGE ACCRUAL DATA
* TOTAL HC EMISSION FACTORS INCLUDE EVAP. HC EMISSION FACTORS
CAL. YEAR: 1983
REGION: 49-STATE
VEH. TYPE: LDV LOT 1 LDT2 HDG HDD MC
TEMP: 75.0(F) 0.746/0.O91/0.050/O O43/0.037/O.009
5.O/ 5.O/ 5 O MPH ( 5.O) 2O 6/ 27 3/ 2O.6
COMPOSITE
TOTAL HC:
EXHAUST CO:
EXHAUST NOX:
LDV
10.25
12O. 13
1 .86
LDT1
12. 13
136.83
2 4O
EMISSION
LDT2
1O. 46
11O.95
2 27
FACTORS (GM/MILE)
HDG
34 18
625.55
8.71
HDD
8.71
35.77
40 83
MC
18 72
99 82
0 69
ALL MODES
1 1 25
136.56
3.66
CAL. YEAR: 1983
REGION- 49-STATE
VEH. TYPE: LDV LDT1 LDT2 HDG HDD MC
TEMP: 75.0(F) 0.746/0.091/O.O50/0 043/O.O37/0.OO9
1O.O/1O.O/10.O MPH (1O.O) 20 6/ 27.3/ 2O 6
COMPOSITE
TOTAL HC:
EXHAUST CO:
EXHAUST NOX:
LDV
5 67
6O.89
1 85
LDT1
6 75
69 38
2.38
EMISSION
LOT 2
5.62
54 79
2 3O
FACTORS (GM/MILE)
HDG
23.55
416.19
9.15
HDD
6.84
24 66
33.87
MC
1O.95
48.73
O 62
ALL MODES
6 5O
73.61
3 41
CAL. YEAR: 1983
REGION: 49-STATE
VEH. TYPE: LDV LOT 1 LDT2 HDG HDD MC
TEMP- 75.O(F) O.746/0 O91/O.O5O/O O43/O.O37/O OO9
15.O/15.O/15.0 MPH (15.0) 20 6/ 27.3/ 2O 6
COMPOSITE
TOTAL HC:
EXHAUST CO:
EXHAUST NOX:
LDV
4 . 18
43.29
2.OO
LDT1
5.OO
49. 16
2.56
EMISSION
LDT2
4.O5
37.95
2.48
FACTORS (GM/MILE)
HDG
17. 14
292.55
9.6O
HDD
5.49
17 80
29. 12
MC
8.33
32 02
O 63
ALL MODES
4.8O
52. 12
3.38
CAL. YEAR: 1983
REGION: 49-STATE
VEH. TYPE: LDV LOT 1 LDT2 HDG HDD MC
TEMP: 75 O(F) O.746/0.O91/O.O5O/0.O43/O.O37/O.OO9
20.O/20.0/20.0 MPH (2O.O) 20.6/ 27.3/ 2O.6
COMPOSITE
TOTAL HC:
EXHAUST CO-
EXHAUST NOX:
LDV
3 45
34 94
2 21
LDT1
4 14
39.59
2 84
EMISSION
LDT2
3.30
30 09
2 73
FACTORS (GM/MILE)
HDG
13. 17
217.27
10.04
HDD
4.50
13 .44
25.94
MC
7 . 13
24 45
O.68
ALL MODES
3.92
41.17
3.48
CAL. YEAR: 1983
REGION: 49-STATE
VEH. TYPE: LDV LOT 1 LDT2 HDG HDD MC
TEMP: 75.O(F) 0.746/0.O91/O.O5O/O 043/O O37/0.009
25.O/25.O/25.O MPH (25.O) 20.6/ 27.3/ 2O.6
COMPOSITE EMISSION FACTORS (GM/MILE)
4 2.6 MOBIIF1 EXAMPLES Output
-------
TOTAL HC:
EXHAUST CO:
EXHAUST NOX:
LDV
2.94
28.78
2 .44
LDT1
3.54
32.65
3.12
LDT2
2 79
24.58
2 99
HDG
1O. 63
170.48
1O. 48
HDD
3.78
10 62
23.94
MC
6.4O
19.93
O.75
ALL MODES
3.32
33.53
3.62
4.2.6 MOBILE1 EXAMPLES Output (cont.)
-------
-------
4.2.7 MOBILE1 EXAMPLE H 7
Input Record (8O columns)
Description
O I PROMT
EXAMPLE 7: USER-SUPPLIED VEHICLE REGISTRATION
1 INFLAG
0 SPDFLG
0 VMFLAG
2 MYMRFG
O ALTFLG
0 IMFLG
0 ALHFLG
0 TRKFLG
1 IFORM
O PRTFLG
0 ICEVFG
0 IDLFLG
0 NMHFLG
0
1
1
1
1
1
DATA
UNFFLG
. O75 . 1O7
.039 027
. O6 1 . O95
.036 .024
. O37 O7O
.044 .032
.037 .O7O
. O44 .032
.075 .107
.039 ,O27
. O6 1 . O95
.036 .024
.077 . 135
.025 .015
.105 .225
. OO8 . OO5
83 5.O
83 1O. 0
83 15.0
83 2O O
83 25. O
...+.... 1
. 1O7 . 1O6
.018 .014
.094 .103
.O3O .028
.078 .O8G
.038 .036
O78 .086
.038 .036
. 1O7 . 106
.018 .014
.094 . 1O3
.030 .028
. 134 .131
.013 .011
.206 .149
.013 .0
75. O 2O. 6
75 O 20.6
75.0 20.6
75. O 2O. 6
75. O 2O. 6
.... + ... .2
. 1OO .092
. OO9 . O06
.083 .076
.026 .024
.075 O75
.034 O32
.075 O75
.034 .032
.100 .092
OO9 . OO6
.083 .076
.026 .024
. O99 . O9O
.010 OO8
.097 .062
.0 .O
27.3 2O. 6
27.3 2O. 6
27.3 20.6
27.3 2O. 6
27.3 2O. 6
....+... .3.
O85
005
.076
.022
.075
.030
.075
.O3O
085
.OO5
.076
.022
.082
.OO7
.046
.O
.077
.005
.063
.020
068
O2 8
.068
.028
.077
.005
.063
.020
062
.006
.033
.0
.066
.005
.054
.018
.059
.026
.059
.026
.066
.005
.054
.018
.045
005
O29
.0
.052
.004
.043
.016
.053
024
O53
.024
.052
.004
.043
.016
.033
004
.023
.0
FLAG
TITLE
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
MYR
MYR
MYR
MYR
MYR
MYR
MYR
MYR
MYR
MYR
MYR
MYR
MYR
MYR
MYR
MYR
LDV ,
LDV ,
LDT1,
LDT1 ,
LDT2.
LDT2,
HDG ,
HOG ,
LDV ,
LDV ,
LDT1,
LDT1,
HDD ,
HDD ,
MC
MC
AGES
AGES
AGES
AGES
AGES
AGES
AGES
AGES
AGES
AGES
AGES
AGES
AGES
AGES
AGES
AGES
1-1O
11-2O
1-1O
1 1-20
1-1O
1 1-20
1-10
1 1-20
1-10
1 J-20
1-1O
1 1-2O
1-10
1 1-2O
1-10
1 1-20
SCENARIO
SCENARIO
SCENARIO
SCENARIO
SCENARIO
+
. . 4.
+
. . .5. ..+... .6. .
. + . . . .7 . ... + .. . .8
Because of the two new vehicle types (LDDVs and LDDTs), MOBILE2 could not
initially run this example. By incorporating the vehicle registration mix
distributions for the two vehicle types, this example could be run. However,
the LDDV registration mix distribution must equal the LDGV registration
mix distribution Similarly, the LDDT registration mix distribution must
equal the LDGT1 registration mix distribution. Further information
is available in section 2.2.2
Sect ion
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
ONE-TIME DATA
ONE-TIME DATA
ONE-TIME DATA
ONE-TIME DATA
ONE-TIME DATA
ONE-TIME DATA"
ONE-TIME DATA
ONE-TIME DATA
ONE-TIME DATA
ONE-TIME DATA
ONE-TIME DATA
ONE-TIME DATA
ONE-TIME DATA
ONE-TIME DATA
ONE-TIME DATA
ONE-TIME DATA
PARAMETER
PARAMETER
PARAMETER
PARAMETER
PARAMETER
4 2.7 MOBILE1 EXAMPLE*? Input
-------
WARNING:
WARNING:
WARNING:
WARNING:
WARNING:
WARNING:
WARNING:
WARNING:
0.999
0.992
0.999
O.992
0.992
1 .OO
0 . SOOi
0. 13OI
MYR SUM NOT
MYR SUM NOT
MYR SUM NOT
MYR SUM NOT
MYR SUM NOT
MYR SUM NOT
O.5OOE-O2 REGISTRATION
13OE-O1 REGISTRATION
= 1 (WILL
= 1. (WILL
= 1. (WILL
' 1. (WILL
= 1. (WILL
= 1. (WILL
WITH ZERO
WITH ZERO
NORMALIZE)
NORMALIZE)
NORMALIZE)
NORMALIZE)
NORMALIZE)
NORMALIZE)
MILEAGE
MILEAGE
EXAMPLE 7: USER-SUPPLIED VEHICLE REGISTRATION DATA
* TOTAL HC EMISSION FACTORS INCLUDE EVAP. HC EMISSION FACTORS
CAL. YEAR: 1983
REGION: 49-STATE
VEH TYPE: LDV LOT 1 LDT2 HOG HDD MC
TEMP: 75.O(F) 0.778/0.O8O/O.034/O.O37/O O34/O.O11
5.O/ 5.O/ 5.O MPH ( 5.0) 2O.6/ 27.3/ 20.6
COMPOSITE
TOTAL HC:
EXHAUST CO-
EXHAUST NOX :
LDV
9 .85
1 15. O3
1 .82
LDT1
1 1 .59
129.36
2 .36
EMISSION
LDT2
21 .02
218.48
3.48
FACTORS (GM/MILE)
HDG
38.68
665.92
8.73
HDD
8 34
34 .51
39.94
MC
14 .54
87.04
O.81
ALL MODES
1 1 22
134 . 17
3.48
CAL. YEAR: 1983
REGION: 49-STATE
VEH. TYPE: LDV LDT1 LDT2 HDG HDD MC
TEMP: 75.O(F) O.778/0.O80/O.O34/O O37/O.O34/O.O11
1O.O/10.O/1O.O MPH (10.O) 20.6/ 27.3/ 20.6
COMPOSITE
TOTAL HC:
EXHAUST CO:
EXHAUST NOX:
LDV
5.45
58.41
1 .82
LDT1
6.48
65.90
2.33
EMISSION
LDT2
1 1 .42
1O6. 19
3.46
FACTORS (GM/MILE)
HDG
26.56
443.05
9. 17
HDD
6.55
23.79
33. 13
MC
8 83
41 82
O 73
ALL MODES
G.48
72.06
3.25
CAL. YEAR: 1983
REGION: 49-STATE
VEH. TYPE: LDV LOT 1 LDT2 HDG HDD MC
TEMP- 75.O(F) O.778/0.O8O/0 034/0.O37/O.034/0.011
15.O/15.O/15.0 MPH (15 0) 20.6/ 27.3/ 2O.6
COMPOSITE
TOTAL HC:
EXHAUST CO:
EXHAUST NOX:
LDV
4.02
41 .65
1 .97
LDT1
4.81
46. 8O
2.50
EMISSION
LDT2
8.30
71 .27
3.63
FACTORS (GM/MILE)
HOG
19.26
31 1 43
9 62
HDD
5.26
17. 17
28.48
MC
6 9O
27. 14
0 75
ALL MODES
4.78
51 .03
3 23
CAL YEAR: 1983
REGION: 49-STATE
VEH TYPE. LDV LOT 1 LDT2 HDG HDD MC
TEMP: 75.O(F) O 778/0.08O/O O34/O.O37/0 O34/O.O11
20.O/2O.O/2O.O MPH (20.0) 20.6/ 27.3/ 2O 6
COMPOSITE
TOTAL HC-
EXHAUST CO:
EXHAUST NOX-
LDV
3 32
33.67
2. 18
LDT1
4 OO
37.76
2 77
EMISSION
LDT2
6 .84
55 32
3 89
FACTORS (GM/MILE)
HDG
14.73
231 .29
1O. 06
HDD
4 31
12.97
25.37
MC
6. O1
20.43
O 81
ALL MODES
3 91
4O.37
3.33
CAL. YEAR: 1983
REGION: 49-STATE
VEH TYPE- LDV LOT 1 LDT2 HDG HDD MC
TEMP: 75.O(F) O 778/0.080/O 034/O 037/O O34/O O11
25.O/25.O/25 O MPH (25.0) 20 6/ 27.3/ 20 6
LDV
COMPOSITE EMISSION FACTORS (GM/MILE)
LDT1 LDT2 HDG HDD
MC
ALL MODES
4.2.7 MOBILE1 FXAMPIF#7 Output
-------
TOTAL HC
EXHAUST CO
EXHAUST NOX
2
27
2
83
75
4O
3.44
31 .22
3.O4
5
45
4
90
12
16
11 .84
181 .49
1O. 50
3.62
1O. 25
23.41
5
16
O
47
36
9O
3
32
3
31
90
49
427 MOBILE 1 EXAMPLE*? Output (cont.)
-------
-------
4.2.8 MOBILE) EXAMPLE » 8
Input Record (8O columns)
0 IPROMT
EXAMPLE 8: USER-SUPPLIED MILEAGE ACCRUAL & REGISTRATION DATA
1 INFLAG
0 SPDFLG
O VMFLAG
3 MYMRFG
O ALTFLG
0 IMFLG
O ALHFLG
O TRKFLG
1 I FORM
0 PRTFLG
0 ICEVFG
0 IDLFLG
O NMHFLG
O UNFFLG
159 .15O .14O
. O67 . O66 .062
.159 .15O .14O
.067 .066 .062
157 .141
Descr iptIon
. 157
.071
. 190
.078
159
.067
. 159
.067
.736
.346
131 .122 .113 .1O3 094
O59 O55 .051 O50 047
131 .122 .113 103 .094
.059 .055 .051 O50 .047
.126 .113 .102 .094 ,O86
O5O .047
12O .1O6
.066 .063 O6O .055 .052
.19O .179 165 15O 135
.O7O .063 .059 .053 ,O49 047 .046
.15O 14O .131 .122 .113 1O3 .094
.066 .062 .059 .055 O51 .O5O 047
15O .14O .131 .122 .113 .1O3 .094
.066 .062 .059 O55 .O51 O5O .047
.736 .699 .633 .566 .5OO 456 .412
.338 .331 .324 .3O9 287 257 .213
O201.O251.02O7.0185 0172.O162.O155 0149.
.O135.O132.O129.O127 O125.O123.0122 O121
.075 . 1O7 1O7 . 1O6 .1OO .092 085 .077
.039 O27 .018 O14 .009 .OO6 .OO5 . OO5
.061 ,O95 .094 1O3 .O83 O76 .076 .063
.036 .024 .030 .028 O26 .024 .022 .020
.037 .O7O .078 .086 O75 .075 O75 .068
.044 .032 O38 .036 .034 O32 O3O 028
.037 .070 .078 O86 O75 O75 .075 068
.044 .032 ,O38 .036 O34 .032 .O3O .028
.075 1O7 107 1O6 1OO .092 085 .077
.039 .027 O18 .014 .OO9 .006 . OO5 . OO5
.061 .095 .094 .1O3 .083 O76 O76 063
.036 .024 .O3O .028 O26 O24 .022 .02O
O77 .135 .134 .131 .099 .O9O O82 .062
.025 .015 O13 .011 01O O08 OO7 .006
.105 .225 2O6 149 .097 .062 046 .033
.008 .005 .013.O .0 O 0 .0
1 83 5.O 75 O 20.6 27 3 2O.6
1 83 1O.O 75.O 2O.6 27.3 2O.6
1 83 15 0 75.0 2O 6 27.3 20.6
1 83 2O O 75.0 20.6 27.3 20.6
1 83 25.O 75 O 20.6 27.3 2O.6
.085
.044
.085
.044
.080
.044
.095
.044
O85
.044
O85
.044
.382
. 184
O143.
O1 20.
.066
.005
O54
.018
.059
.026
059
O26
.066
.005
.054
.018
O45
.OO5
.029
0
.076
.044
.076
.044
.075
.041
.086
.042
.076
.044
076
O44
.360
. 154
0139
O119
.052
.004
043
.016
O53
O24
.053
.024
052
.OO4
.043
.016
.033
.OO4
.023
.O
FLAG
TITLE
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
MYM
MYM
MYM
MYM
MYM
MYM
MYM
MYM
MYM
MYM
MYM
MYM
MYM
MYM
MYM
MYM
MYR
MYR
MYR
MYR
MYR
MYR
MYR
MYR
MYR
MYR
MYR
MYR
MYR
MYR
MYR
MYR
LDV
LDV
LDT1
LDT1
LDT2
LDT2
HDG
HDG
LDV
LDV
LDT1
LDT1
HDD
HDD
MC
MC
LDV
LDV
LDT1
LDT1
LDT2
LDT2
HDG
HDG
LDV
LDV
LDT1
LDT1
HDD
HDD
MC
MC
,AGES
.AGES
.AGES
.AGES
.AGES
.AGES
.AGES
.AGES
.AGES
.AGES
.AGES
.AGES
.AGES
.AGES
.AGES
.AGES
.AGES
.AGES
.AGES
.AGES
.AGES
.AGES
.AGES
.AGES
, AGES
.AGES
.AGES
.AGES
.AGES
.AGES
.AGES
.AGES
1-1O
1 1-2O
1-10
11-20
1-1O
11-2O
1-1O
1 1-2O
1-10
1 1-2O
1-10
1 1-2O
1-10
1 1-2O
1-10
1 1-2O
1-1O
1 1-20
1-10
1 1-20
1-10
1 1-2O
1-10
1 1-2O
1-10
1 1-20
1-10
11-2O
1-10
11-20
1-10
1 1-20
SCENARIO
SCENARIO
SCENARIO
SCENARIO
SCENARIO
Sect ion
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
ONE-TIME DATA
ONE-TIME DATA
ONE-TIME DATA
ONE-TIME DATA
ONE-TIME DATA
ONE-TIME DATA
ONE-TIME DATA
ONE-TIME DATA
ONE-TIME DATA
ONE-TIME DATA
ONE-TIME DATA
ONE-TIME DATA
ONE-TIME DATA
ONE-TIME DATA
ONE-TIME DATA
ONE-TIME DATA
ONE-TIME DATA
ONE-TIME DATA
ONE-TIME DATA
ONE-TIME DATA
ONE-TIME DATA
ONE-TIME DATA
ONE-TIME DATA
ONE-TIME DATA
ONE-TIME DATA
ONE-TIME DATA
ONE-TIME DATA
ONE-TIME DATA
ONE-TIME DATA
ONE-TIME DATA
ONE-TIME DATA
ONE-TIME DATA
PARAMETER
PARAMETER
PARAMETER
PARAMETER
PARAMETER
1 .
3. .
.6.
.7. .
4.2.8 MOBILE1 EXAMPLES Input
-------
The LDDV and LDDT vehicle types prevented this example from running through
MOBILE2 See comments for the mileage accumulation rate distribution
in section 4.2.S and comments for the vehicle registration mix distribution
i n sect ion 4 2.7.
1.2.3 MOBILE1 EXAMPLES Input (cent.)
-------
WARNING:
WARNING:
WARNING:
WARNING:
WARNING:
WARNING:
WARNING:
WARNING:
WARNING:
WARNING:
WARNING:
WARNING:
WARNING:
O
O
0
O
0
O
O
0
0
0
0
O
.999
.992
.999
.992
.992
1 .00
. 127E-01
. 125E-O1
. 123E-01
. 122E-01
.121E-O1
. 120E-01
. 1 19E-O1
MYR SUM
MYR SUM
MYR SUM
MYR SUM
MYR SUM
MYR SUM
MILEAGE
MILEAGE
MILEAGE
MILEAGE
MILEAGE
MILEAGE
MILEAGE
NOT =
NOT =
NOT =
NOT =
NOT =
NOT =
WITH -i
WITH t
WITH i
WITH 2
WITH 2
WITH 2
WITH 2
1 .
1 .
1 .
1 .
1 .
1 .
rER
!ER
!ER
!ER
!ER
!ER
!ER
(WILL NORMALIZE)
(WILL NORMALIZE)
(WILL NORMALIZE)
(WILL NORMALIZE)
(WILL NORMALIZE)
(WILL NORMALIZE)
ZERO REGISTRATION
ZERO REGISTRATION
ZERO REGISTRATION
ZERO REGISTRATION
ZERO REGISTRATION
ZERO REGISTRATION
ZERO REGISTRATION
EXAMPLE 8: USER-SUPPLIED MILEAGE ACCRUAL & REGISTRATION DATA
* TOTAL HC EMISSION FACTORS INCLUDE EVAP. HC EMISSION FACTORS
CAL. YEAR: 1983
REGION: 49-STATE
VEH. TYPE: LDV LDT1 LDT2 HOG HDD MC
TEMP: 75.0(F) 0.763/O.089/0.036/0.037/0.O38/O.010
5.O/ 5.O/ 5.0 MPH ( 5.O) 2O.6/ 27.3/ 2O.6
COMPOSITE
TOTAL HC:
EXHAUST CO:
EXHAUST NOX:
LDV
9.27
1O7.O6
1 .75
LDT1
12.O9
134.33
2.38
EMISSION
LDT2
21 .24
221 .81
3.48
FACTORS (GM/MILE)
HDG
38.51
666.71
8.74
HDD
8.54
35. 19
40.42
MC
16.32
92 . 18
O.75
ALL MODES
10.87
128.86
3.61
CAL. YEAR: 1983
REGION: 49-STATE
VEH. TYPE: LDV LOT1 LDT2 HDG HDD MC
TEMP: 75.0(F) O.763/O.O89/0.036/O.O37/O.O38/O.010
10.O/1O.O/1O.O MPH (10.0) 2O.6/ 27.3/ 2O.6
00
COMPOSITE
TOTAL HC:
EXHAUST CO:
EXHAUST NOX:
LDV
5. 13
54.69
1 .75
LDT1
6.75
68. SO
2.35
EMISSION
LDT2
1 1 .52
1O7.79
3.46
FACTORS (GM/MILE)
HDG
26.44
443.57
9. 18
HDD
6.71
24.26
33.53
MC
9.73
44 .77
O.68
ALL MODES
6.29
69.68
3.35
CAL. YEAR: 1983
REGION: 49-STATE
VEH. TYPE: LDV LOT 1 LDT2 HDG HDD MC
TEMP: 75.0(F) 0.763/0.O89/O.036/O.037/O.038/O.O1O
15.0/15.0/15.0 MPH (15.0) 2O.6/ 27.3/ 20.6
COMPOSITE
TOTAL HC:
EXHAUST CO:
EXHAUST NOX :
LDV
3.79
39.29
1 .90
LDT1
5.00
48.75
2.53
EMISSION
LDT2
8.37
72.36
3.63
FACTORS (GM/MILE)
HDG
19. 17
3 1 1 . 80
9.63
HDD
5.38
17.51
28.83
MC
7 .50
29.31
O.69
ALL MODES
4.65
49.56
3.32
CAL. YEAR: 1983
REGION: 49-STATE
VEH. TYPE: LDV LOT 1 LDT2 HDG HDD MC
TEMP: 75.O(F) 0.763/0.O89/O.O36/O.O37/O.O38/0.O1O
20.O/20.0/20.0 MPH (2O.O) 2O.6/ 27.3/ 2O.6
COMPOSITE
TOTAL HC:
EXHAUST CO:
EXHAUST NOX:
LDV
3. 12
31 .92
2.11
LDT1
4. 15
39 39
2.8O
EMISSION
LDT2
6.89
56. 18
3 89
FACTORS (GM/MILE)
HDG
14.65
231 .56
10.07
HDD
4.41
13.22
25.67
MC
6.48
22 27
0.75
ALL MODES
3.80
39.28
3.4O
VEH. TYPE. LDV
4.2.8 MOBILE 1 EXAMPLES Output
LDT1 LDT2 HDG
HDD
MC
-------
CAL. Y€AR: 1983 TEMP: 75.O(F) O.763/O.O89/O.036/O O37/0.O38/O.O10
REGION: 49-STATE 25.O/25.O/25.O MPH (25.O) 2O.6/ 27.3/ 20.6
COMPOSITE EMISSION FACTORS (GM/MILE)
LDV LDT1 LDT2 HOG HDD MC ALL MODES
TOTAL HC: 2.66 3.56 5.93 11.77 3.7O 5 86 3.21
EXHAUST CO: 26 35 32.56 45.SO 181.70 10.45 18.O3 32.O4
EXHAUST NOX: 2.33 3.08 4.16 1O.51 23.69 O.83 3.54
4.2.8 MOBILE1 EXAMPLES Output (cont.)
-------
4.2.9 MOBILE1 EXAMPLE H 9
Input
Record
(8O columns)
O IPROMT
EXAMPLE 9: EMISSION
1 INFLAG
O SPDFLG
O VMFLAG
O MYMRFG
1 ALTFLG
O IMFLG
O ALHFLG
0 TRKFLG
1 IFORM
0 PRTFLG
O ICEVFG
O IDLFLG
0 NMHFLG
O UNFFLG
FACTOR MODIFICATION DATA
4
1
1
1
1
1
1
1
1
1
1
1
1 1
1 1
1 2
1 2
78
79
80
81
82
83
84
. . . +
BO 82
83 95
BO 8O
81 85
15. O 75
15.0 75
15.0 75
15.0 75
15.0 75
15. O 75
15. O 75
. . . . 1 . .
1
0
18
2
.O
.0
.0
.0
.0
.0
.O
+
. 13
. 13
.60
. 1O
2O.
20.
20.
20.
2O.
20.
2O.
6
6
6
6
e
6
6
O
0
2
3
27
27
27
27
27
27
27
2. .
.23
.46
. 8O
.OO
.3
.3
.3
.3
.3
.3
.3
+
20.
2O.
20
20
20
20
20.
.6
.6
6
.€
.6
.6
.6
. .3. ...+... .4 . ...+..
Descr ipt 1on
FLAG
TITLE
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG '
FLAG
FLAG
ALTERNATE BASIC
ALTERNATE BASIC
ALTERNATE BASIC
ALTERNATE BASIC
ALTERNATE BASIC
SCENARIO
SCENARIO
SCENARIO
SCENARIO
SCENARIO
SCENARIO
SCENARIO
.5. . . .+. . . .6. . . .+ . . .7 ....+... .8
EMISSION RATE
EMISSION RATE
EMISSION RATE
EMISSION RATE
EMISSION RATE
Section
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
ONE-TIME DATA
ONE-TIME DATA
ONE-TIME DATA
ONE-TIME DATA
ONE-TIME DATA
PARAMETER
PARAMETER
PARAMETER
PARAMETER
PARAMETER
PARAMETER
PARAMETER
to
O
The example ran in MOBILE2 without any modification.
4.2.9 MOBILE 1 EXAMPLE#9 Input
-------
WARNING: EQUATION 1 ZEROES ALL IDLE COEFFICIENTS (AND TOTAL) FOR IR=1. IV=1, IP=1
WARNING: EQUATION 2 ZEROES ALL IDLE COEFFICIENTS (AND TOTAL) FOR IR=1 IV=1 IP=1
WARNING: EQUATION 3 ZEROES ALL IDLE COEFFICIENTS (AND TOTAL) FOR IR=1, IV=1, IP=2
WARNING: EQUATION 4 ZEROES ALL IDLE COEFFICIENTS (AND TOTAL) FOR IR=1, IV=1. IP = 2
EXAMPLE 9: EMISSION FACTOR MODIFICATION DATA
EMISSION FACTOR MODIFICATION PROFILE:
REGION VEH. POLLUTANT FIRST MY LAST MY BASE
DR
ALTERED
1 1
1 1
1 1
1 1
* TOTAL
CAL. YEAR:
REGION- 49-
1 198O 1982 1.13 O.23 YES
1 1983 1995 0.13 0.46 YES
2 198O 1980 18.60 2 . 8O YES
2 1981 1985 2.10 3.0O YES
HC EMISSION FACTORS INCLUDE EVAP . HC EMISSION FACTORS
1978
STATE
VEH. TYPE:
TEMP: 75.0(F)
15.O/15.O/15.0 MPH (
COMPOSITE EMISSION
LDV
TOTAL HC:
EXHAUST
EXHAUST
CO:
NOX:
7
69
3
. 16
.79
.01
LDT1
7.35
67.76
3. 18
LDT2
11 .02
86.62
4.69
VEH. TYPE:
CAL. YEAR:
REGION:
1979
TEMP: 75.0(F)
49-STATE
LDV
TOTAL
EXHAUST
EXHAUST
HC:
CO:
NOX:
6
65
2
.56
.25
.81
15.O/15.O/15.
COMPOSITE
LDT1
6.75
63.44
3.O5
O MPH (
EMISSION
LDT2
9.9O
79. O6
4.29
VEH. TYPE:
CAL. YEAR:
REGION:
49-
198O
STATE
TEMP: 75.O(F)
15.0/15.0/15.
LDV
TOTAL
EXHAUST
EXHAUST
HC:
CO:
NOX:
6
60.
2.
01
.72
65
COMPOSITE
LDT1
6. 14
58.05
2.86
O MPH (
EMISSION
LDT2
7.31
61 .31
3.46
LDV LDT1 LOT 2 HDG HDD MC
O . 785/O O83/0 . O47/0 . O42/O . O33/O . O09
15.0) 2O. 6/ 27. 3/ 20.6
FACTORS (GM/MILE)
HDG
24.55
331 .85
9.61
LDV
0 783/0
15.0) 2O
FACTORS
HDG
23.97
331 .61
9.57
LDV
O.781/O
15.O) 2O
FACTORS
HDG
21 .68
318.54
9.56
HDD
5.35
17.42
28.74
LDT1 LOT 2
.O83/O. 047/0
-6/ 27. 3/ 20
(GM/MILE)
HDD
5.35
17.42
28.74
MC
13.33
43 83
O.23
HDG
ALL MODES
8
79
4
HDD
.08
.36
.20
MC
.O42/O. 033/0. OO9
.6
MC
11.13
39.97
O.37
LDT1 LDT2 HDG
.O83/0.047/O
.6/ 27. 3/ 2O
(GM/MILE)
HDD
5.35
.O42/O
.6
MC
9.78
17.42 37.64
28.74
O 46
ALL MODES
7
74
4
HDD
.45
.95
.01
MC
.O33/O.OO9
ALL MODES
6.
69.
3.
72
.37
83
CAL. YEAR: 1981
REGION: 49-STATE
VEH. TYPE: LDV LOT 1 LDT2 HDG HDD MC
TEMP: 75.O(F) O.777/0.082/O.O46/O.O42/0.O33/O.OO9
15.0/15.O/15.O MPH (15.O) 20.6/ 27.3/ 2O.6
COMPOSITE
TOTAL HC:
EXHAUST CO:
EXHAUST NOX:
LDV
5.55
56.29
2.47
LDT1
5.64
53.73
2.72
EMISSION
LDT2
5.56
49.06
2.91
FACTORS (GM/MILE)
HDG
19.84
3O7 . 7 1
9.56
HDD
5.35
17.42
28.74
MC
8.69
33.72
O.58
ALL MODES
6. 13
64.28
3.65
CAL. YEAR: 1982
VEH. TYPE: LDV LOT 1 LDT2 HDG HDD MC
TEMP: 75.0(F) 0.773/0.082/O.O46/0.O42/O.033/O.O09
4.2.9 MOBILE1 EXAMPLES Output
-------
REGION: 49-STATE 15.O/15.O/15.0 MPH (15.O) 20.G/ 27.3/ 20.6
COMPOSITE EMISSION FACTORS (GM/MILE)
TOTAL HC:
EXHAUST CO:
EXHAUST NOX:
LDV
5. 13
5O.96
2.25
LDT1
5. 19
50.30
2.63
LOT 2
4.53
41 .44
2.61
HOG
18.49
299 . 84
9.58
HDD
5.35
17.42
28.74
MC
7 .88
3O.79
O.66
ALL MOOES
5.63
58. 9O
3.46
CAL. YEAR: 1983
REGION: 49-STATE
VEH. TYPE: LDV LOT 1 LDT2 HOG HDD MC
TEMP: 75.O(F) O.766/O.081/O.O46/0.O42/O O33/O.OO9
15.0/15.0/15.0 MPH (15.0) 2O.6/ 27.3/ 2O.6
COMPOSITE
TOTAL HC:
EXHAUST CO:
EXHAUST NOX :
LDV
4.76
46.56
2.O8
LDT1
4.79
47.07
2.54
EMISSION
LDT2
3.96
36 98
2.47
FACTORS (GM/MILE)
HOG
17.O7
291 .OS
9.59
HDD
5.35
17.42
28.74
MC
7. 34
28. 8O
0.71
ALL MODES
5.20
54.28
3.31
CAL. YEAR: 1984
REGION: 49-STATE
VEH. TYPE: LDV LOT 1 LDT2 HDG HDD MC
TEMP: 75.O(F) 0.758/O.O8O/O.046/O.O42/O.033/O.OO9
15.O/15.O/15.0 MPH (15.0) 2O.6/ 27.3/ 20.6
COMPOSITE EMISSION FACTORS (GM/MILE)
LDV LDT1 LDT2 HDG HDD MC ALL MODES
TOTAL HC: 4.36 4.42 3.42 15.75 5.35 7 .09 4.74
EXHAUST CO: 43.O3 43.63 32.35 282.39 17.42 27.44 5O.35
EXHAUST NOX: 1.96 2.43 2.28 9.59 28.74 O.75 3.19
4 2.9 MOBILE1 EXAMPLES Output (cont.)
-------
-------
4.2.10 MOBILE1 EXAMPLE H 10
Input Record (8O columns)
This example ran in MOBILE2 without any modification.
Descript ion
o
EXAMPLE
1
0
0
0
0
1
0
0
1
0
0
o
0
o
79 SO 1
1 75 23
1 8O 23
1 85 23
-4-
IPROMT
1O: LDV INSPECTION/MAINTENANCE
INFLAG
SPDFLG
VMFLAG
MYMRFG
ALTFLG
IMFLG
ALHFLG
TRKFLG
I FORM
PRTFLG
ICEVFG
IDLFLG
NMHFLG
UNFFLG
68 99
. O 75. O 2O 6 27 . 3 2O . 6
O 75.0 2O. 6 27 .3 2O.6
.O 75. O 2O. 6 27.3 2O. 6
. . 1 . . .. + ... .2. ...+ .. ..3... + - .4.. . + ... .5. ...+ .. 6 .. H
FLAG
TITLE
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
LDV I/M DATA
SCENARIO
SCENARIO
SCENARIO
>• .7.... + ... 8
Sect ion
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
ONE-TIME DATA
PARAMETER
PARAMETER
PARAMETER
NS
u-
4.2. 1O MOBILE1 EXAMP'.E/MO Input
-------
EXAMPLE 10: LDV INSPECTION/MAINTENANCE
* TOTAL HC EMISSION FACTORS INCLUDE EVAP. HC EMISSION FACTORS
VEH. TYPE: LDV LDT1 LDT2 HOG HDD MC
CAL. YEAR: 1975 TEMP: 7S.O(F) O.786/O.083/O.O47/O.O42/O.O33/O.OO9
REGION: 49-STATE 23.O/23.O/23.O MPH (23.O) 2O.6/ 27.3/ 2O.6
LDGV I/M PROGRAM STARTING IN 1979
STRINGENCY LEVEL 3O% MECH.TRAINING: YES
I/M PROGRAM BENEFITS APPLY ONLY TO MODEL YEARS 1968 THROUGH 1999
ATTENTION: THE DEFAULT VALUE OF 50% FOR TECHNOLOGY 4
I/M IDENTIFICATION RATE HAS BEEN LEFT UNCHANGED.
COMPOSITE
TOTAL HC :
EXHAUST CO :
EXHAUST NOX:
LDV
7.33
59.66
3.86
LDT1
7.35
56.47
3.81
EMISSION
LDT2
B.85
60.07
5.7O
FACTORS (GM/MILE)
HOG
17.66
212.79
1O.49
HDD
3.94
11 .36
24.29
MC
10.24
31 .95
O.25
ALL MODES
7.75
64. OO
4.86
VEH. TYPE: LDV LOT 1 LDT2 HDG HDD MC
CAL. YEAR: 1980 TEMP: 75.0(F) 0.781/0.083/0.047/0.O42/0.033/0.009
REGION: 49-STATE 23.0/23.O/23.0 MPH (23.0) 20.6/ 27.3/ 20.6
LDGV I/M PROGRAM STARTING IN 1979
STRINGENCY LEVEL 3O% MECH.TRAINING: YES
I/M PROGRAM BENEFITS APPLY ONLY TO MODEL YEARS 1968 THROUGH 1999
ATTENTION: THE DEFAULT VALUE OF 5O% FOR TECHNOLOGY 4
I/M IDENTIFICATION RATE HAS BEEN LEFT UNCHANGED.
COMPOSITE
TOTAL HC:
EXHAUST CD:
EXHAUST NOX:
LDV
3.87
34 O4
3.O3
LDT1
4.74
41 .04
3.29
EMISSION
LDT2
5.43
41 .36
3.89
FACTORS (GM/MILE)
HDG
14.29
2O3. 19
10.27
HDD
3.94
1 1 .36
24.29
MC
7.67
25.72
0.52
ALL MODES
4.47
41 .05
4.O6
VEH. TYPE: LDV LOT 1 LDT2 HDG HDD MC
CAL. YEAR: 1985 TEMP: 75.O(F) 0.75O/0.079/O.046/O.O42/O.O33/O.OO9
REGION- 49-STATE 23.0/23.0/23.0 MPH (23.0) 20 6/ 27.3/ 2O 6
LDGV I/M PROGRAM STARTING IN 1979
STRINGENCY LEVEL 30% MECH.TRAINING: YES
I/M PROGRAM BENEFITS APPLY ONLY TO MODEL YEARS 1968 THROUGH 1999
ATTENTION: THE DEFAULT VALUE OF 50% FOR TECHNOLOGY 4
I/M IDENTIFICATION RATE HAS BEEN LEFT UNCHANGED.
COMPOSITE EMISSION FACTORS (GM/MILE)
LDV LDT1 LDT2 HDG HDD
TOTAL HC: 1.84 3 .02 2.14 8.97 3.94
EXHAUST CO: 16.39 28.61 19.32 153.11 11.36
EXHAUST NOX: 2.19 2.67 2.32 10.82 24.29
MC ALL MODES
5.71 2.29
17.37 22.47
0 89 3.27
4.2.1O MOBILE 1 EXAMPLE/MO Output
------- OCR error (C:\Conversion\JobRoot\0000043E\tiff\2000DG9Q.tif): Unspecified error
-------
COMMENT:
A/C CORRECTION FACTOR WILL BE CALCULATED
VALUE OF INPUTTED AC USAGE PARAMETER IS IGNORED.
EXAMPLE 11: ADDITONAL LDV CORRECTION FACTORS
* TOTAL HC EMISSION FACTORS INCLUDE EVAP. HC EMISSION FACTORS
CAL. YEAR: 1975
REGION: 49-STATE
AC: O.9O XLOAD:
VEH. TYPE: LDV LOT 1 LDT2 HDG HDD MC
TEMP: 75.O(F) 0.786/0.083/O.047/0.042/O.O33/0.OO9
23.O/23 O/23.0 MPH (23.O) 2O.6/ 27 3/ 20.6
0.08
O.12 O.14 TRAILR:
O.O9 ABSHUM: 83.OO
COMPOSITE
TOTAL HC:
EXHAUST CO:
EXHAUST NOX:
LDV
7.59
71 .58
4.24
LDT1
7 61
67 .50
4 O6
EMISSION
LDT2
9.20
7O.87
6.08
FACTORS (GM/MILE)
HDG
17.66
212 .79
10.49
HDD
3.94
1 1 .36
24.29
MC
1O. 24
31 .95
0 24
ALL MODES
7.99
74 78
5.20
COMMENT: A/C CORRECTION FACTOR WILL BE CALCULATED.
VALUE OF INPUTTED AC USAGE PARAMETER IS IGNORED.
VEH TYPE- LDV LOT 1 LDT2 HDG HDD MC
CAL. YEAR: 1980 TEMP: 75 O(F) O. 781/0.083/0.047/0.042/0 O33/O.O09
REGION- 49-STATE 23.O/23.O/23.0 MPH (23.0) 20.6/ 27.3/ 2O 6
AC: O.9O XLOAD.
O.08
O 12
O.14 TRAILR-
O.O9 ABSHUM: 83.OO
COMPOSITE
TOTAL HC:
EXHAUST CO:
EXHAUST NOX:
LDV
4.78
54.02
3.41
LDT1
4.94
52.00
3.54
EMISSION
LDT2
5.72
5O.71
4.23
FACTORS (GM/MILE)
HDG
14.29
203. 19
1O. 27
HDD
3.94
1 1 36
24 29
MC
7 .67
25.72
0.5O
ALL MODES
5 21
57 98
4 40
COMMENT- A/C CORRECTION FACTOR WILL BE CALCULATED.
VALUE OF INPUTTED AC USAGE PARAMETER IS IGNORED
VEH TYPE: LDV LDT1 LDT2 HDG HDD MC
CAL. YEAR: 1985 TEMP: 75 0(F) O.75O/0 079/O.O46/0.042/O O33/O.OO9
REGION: 49-STATE 23.O/23.O/23.0 MPH (23.0) 20.6/ 27.3/ 20.6
AC: O 90 XLOAD:
O.O8
O 12
O. 14 TRAILR-
O.O9 ABSHUM- 83.OO
COMPOSITE
TOTAL HC:
EXHAUST CO:
EXHAUST NOX:
LDV
2.90
38.81
2.49
LDT1
3. 17
37 .77
2.88
EMISSION
LDT2
2.25
25.29
2 51
FACTORS (GM/MILE)
HDG
8.97
153. 1 1
10.82
HDD
3 94
1 1 36
24.29
MC
5.71
17 .37
O.86
ALL MODES
3.11
40.29
3.53
4911
MDRTLF1 FVAMPLF*11 niitnut
-------
4.2.12 MOBILE 1 EXAMPLE H 12
Input Record (SO columns)
Description
0
EXAMPLE 1
1
O
0
0
0
O
0
1
1
0
0
0
0
0
1 75 23. O
25OO44OOO
1 8O 23. O
25OO44OOO
1 85 23.0
25OO44OOO
+
I PROMT
2: ADDITONAL HDV CORRECTION FACTORS
INFLAG
SPDFLG
VMFLAG
MYMRFG
ALTFLG
IMFLG
ALHFLG
TRKFLG
I FORM
PRTFLG
ICEVFG
IDLFLG
NMHFLG
UNFFLG
75. O 2O. 6 27.3 2O. 6
35O. 555.
75. O 2O. 6 27.3 2O. 6
35O. 555.
75.0 2O. G 27.3 2O. 6
35O. 555.
1. ... + .. .2. . . .+. . . .3. . . .+. ..4. ..+... .5. ...+ ... .6. . +
FLAG
TITLE
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
SCENARIO
HD POWER/WT CORR.
SCENARIO
HD POWER/WT CORR.
SCENARIO
HD POWER/WT CORR.
. 7. ..+... .8
FACTOR
FACTOR
FACTOR
Sect ion
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
PARAMETER
PARAMETER
PARAMETER
PARAMETER
PARAMETER
PARAMETER
This example ran in MOBILE2 without any modification.
4.2.12 MOBILE1 EXAMPLE,* 12 Input
-------
WARNING: FLAG TRKFLG IGNORED.
"TRKOPC" NO LONGER USED.
EXAMPLE 12: ADDITONAL HDV CORRECTION FACTORS
* TOTAL HC EMISSION FACTORS INCLUDE EVAP. HC EMISSION FACTORS
CAL. YEAR: 1975
REGION: 49-STATE
VEH TYPE: LDV LOT 1 LDT2 HOG HDD MC
TEMP: 75.0(F) 0.786/0.083/0.047/0.042/0.033/0.009
23.O/23.O/23.O MPH (23.O) 2O.G/ 27.3/ 2O.6
COMPOSITE
TOTAL HC:
EXHAUST CO:
EXHAUST NOX:
LDV
7.33
59.66
3.86
LDT1
7.35
56.47
3.81
EMISSION
LDT2
8.85
6O.O7
5.70
FACTORS (GM/MILE)
HOG
17.66
212.79
1O.49
HDD
3.94
11 .36
24.29
MC
1O. 24
31 .95
O.25
ALL MODES
7.75
64. OO
4.86
CAL. YEAR: 198O
REGION: 49-STATE
VEH TYPE: LDV LOT 1 LDT2 HDG HDD MC
TEMP: 75.O(F) 0.781/O.O83/O.O47/0.O42/0.033/0.O09
23.0/23.0/23.0 MPH (23 O) 2O.6/ 27.3/ 20.6
COMPOSITE EMISSION FACTORS (GM/MILE)
TOTAL HC:
EXHAUST CO:
EXHAUST NOX:
LDV
4 57
42. O1
3.O3
LDT1
4.74
4 1 .04
3 29
LOT 2
5.43
41 36
3 89
HDG
14.29
2O3. 19
1O. 27
HDD
3.94
1 1 .36
24.29
MC
7 67
25.72
O.52
ALL MODES
5. O2
47 27
4 O6
CAL. YEAR: 1985
REGION: 49-STATE
VEH. TYPE- LDV LOT 1 LDT2 HDG HDD MC
TEMP: 75.O(F) 0.75O/O.O79/O.O46/O O42/O.O33/O.OO9
23.O/23 0/23 0 MPH (23.O) 2O.6/ 27.3/ 2O 6
K5
00
COMPOSITE EMISSION FACTORS (GM/MILE)
LDV LOT 1 LDT2 HDG HDD MC ALL MODES
TOTAL HC: 2.76 3.02 2.14 8 97 3.94 5.71 2 99
EXHAUST CO: 28.5O 28.61 19.32 153.11 11.36 17 37 31.56
EXHAUST NOX: 2.19 2.67 2.32 10.82 24.29 O 89 3.27
4.2.12 MOBILE1 EXAMPLE/M2 Output
-------
4.2.13 MOBILE1 EXAMPLE H 13
Input Record (8O columns)
Descript ion
1 I PROMT
EXAMPLE 13: ALL
1 INFLAG
0 5PDFLG
1 VMFLAG
2 MYMRFG
1 ALTFLG
1 IMFLG
1 ALHFLG
1 TRKFLG
1 I FORM
1 PRTFLG
1 ICEVFG
1 IDLFLG
1 NMHFLG
O
4
1
1
1
1
79
FLAGS SET
UNFFLG
O75
O39
O61
O36
O37
044
O37
O44
075
O39
O61
O36
O77
O25
1O5
OO8
1 1
1 1
1 2
1 2
3O
. 1O7
.027
.095
.024
.O7O
.032
.O7O
.032
. 107
.027
.095
.024
. 135
.015
.225
.OO5
SO 82
83 95
SO SO
81 85
1 68
.107
.018
.094
.030
.078
.038
.078
.038
. 107
.018
.094
030
. 134
.013
.206
.013
1
0
18
2
99
. 106
.014
. 1O3
.028
.086
.036
.086
.036
. 106
.014
. 1O3
.028
. 131
.011
. 149
.O
. 13
. 13
.60
. 1O
. 1OO
.009
.083
.026
.075
.034
.075
.034
. 100
.OO9
.083
.026
.099
.010
.097
.O
0.23
O.46
2.8O
3.OO
.092
.OO6
.076
.024
.075
.032
.075
.032
.092
.OO6
.076
O24
.O9O
OO8
.062
.O
.085
.005
O76
.022
.075
.O3O
.075
O3O
085
.005
.076
.022
.082
OO7
.046
O
.077
.005
.063
.020
.068
.028
.068
028
.077
.005
.063
.020
.062
.006
.033
.0
.066
.OO5
.054
.018
.059
.026
.059
.026
.066
.005
.054
.018
.045
.OO5
.029
.O
.052
.OO4
.043
.016
.053
.024
.053
.024
.052
.OO4
.043
.016
.033
.OO4
.023
.O
1 75 23.O 75.O 2O 6 27.3 2O.6
.657.O83.O57.115 OOO.OOO.O79.OO9
0.4O .08 .12 .14 .09 83.
250O44OOO 35O. 555.
1 SO 23.O 75.O 2O.6 27.3 2O . 6
.657.083.057.115.000 000.079.OO9
0.4O .08 12 .14 .09 83.
250O44OOO 35O. 555.
1 85 23.O 75.O 2O.6 27.3 2O 6
.657.083.057.115 OOO OOO.079 OO9
0 4O .08 .12 .14 .09 83.
25OO44OOO 35O. 555.
....+. ..1....+....2. .+.. .3...
FLAG
TITLE
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
FLAG
MYR
MYR
MYR
MYR
MYR
MYR
MYR
MYR
MYR
MYR
MYR
MYR
MYR
MYR
MYR
MYR
LDV
LDV
LDT1
LDT1
LOT2
LDT2
HDG
HDG
LDV
LDV
LDT1
LDT1
HDD
HDD
MC
MC
.AGES
.AGES
.AGES
.AGES
.AGES
.AGES
.AGES
.AGES
.AGES
.AGES
.AGES
.AGES
.AGES
.AGES
.AGES
.AGES
1-10
1 1-20
1-1O
1 1-20
1-1O
11-2O
1-10
1 1-2O
1-10
11-2O
1-1O
1 1-2O
1-10
1 1-2O
1-10
1 1-2O
ALTERNATE BASIC EMISSION RATES
ALTERNATE BASIC EMISSION RATES
ALTERNATE BASIC EMISSION RATES
ALTERNATE BASIC EMISSION RATES
ALTERNATE BASIC EMISSION RATES
LDV I/M DATA
SCENARIO
VMT MIX
ADDITIONAL LD CORR. FACTORS
HD POWER/WT CORR FACTOR
SCENARIO
VMT MIX
ADDITIONAL LD CORR. FACTORS
HD POWER/WT CORR. FACTOR
SCENARIO
VMT MIX
ADDITIONAL LD CORR. FACTORS
HD POWER/WT CORR FACTOR
.8
Sect ion
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
CONTROL
ONE-TIME DATA
ONE-TIME DATA
ONE-TIME DATA
ONE-TIME DATA
ONE-TIME DATA
ONE-TIME DATA
ONE-TIME DATA
ONE-TIME DATA
ONE-TIME DATA
ONE-TIME DATA
ONE-TIME DATA
ONE-TIME DATA
ONE-TIME DATA
ONE-TIME DATA
ONE-TIME DATA
ONE-TIME DATA
ONE-TIME DATA
ONE-TIME DATA
ONE-TIME DATA
ONE-TIME DATA
ONE-TIME DATA
ONE-TIME DATA
PARAMETER
PARAMETER
PARAMETER
PARAMETER
PARAMETER
PARAMETER
PARAMETER
PARAMETER
PARAMETER
PARAMETER
PARAMETER
PARAMETER
MOBILE2 could not run this example until modifications were made to (1) the VMT
fractions and vehicle registration mix distributions for the LDDVs and LDDTs
and (2) the three speed bag inputs. Also, the UNFFLG flag was changed to 0.
See sections 4.2.3, 4.2 6, and 4.2.7 for further explanation
4.2.13 MOBILE1 EXAMPLE013 Input
-------
ENTER PROJECT ID:
ENTER INFLAG:
ENTER SPDFLG:
ENTER VMFLAG:
ENTER MYMRFG:
ENTER ALTFLG:
ENTER IMFLG:
ENTER ALHFLG:
ENTER TRKFLG:
WARNING: FLAG TRKFLG IGNORED.
ENTER IFORM:
ENTER PRTFLG:
ENTER ICEVFG:
ENTER IDLFLG:
ENTER NMHFLG:
ENTER UNFFLG:
"TRKOPC" NO LONGER USED
ENTER MYR
ENTER MYR
WARNING:
ENTER MYR
ENTER MYR
WARNING:
ENTER MYR
ENTER MYR
ENTER MYR
ENTER MYR
ENTER MYR
ENTER MYR
WARNING:
ENTER MYR
ENTER MYR
WARNING:
ENTER MYR
ENTER MYR
WARNING:
ENTER MYR
ENTER MYR
WARNING:
WARNING:
WARNING:
AGES 1-
AGES 11
O.999
AGES 1-
AGES 11
O.992
AGES 1-
AGES 11
AGES 1-
AGES 11
AGES 1-
AGES 11
0.999
AGES 1-
AGES 11
O.992
AGES 1-
AGES 11
0.992
AGES 1-
AGES 11
1 .00
O.BOOE-i
O. 130E-I
1O FOR LDGV:
-2O FOR LDGV:
MYR SUM NOT = 1. (WILL NORMALIZE)
1O FOR LDGT1:
-2O FOR LDGT1:
MYR SUM NOT = 1. (WILL NORMALIZE)
10 FOR LDGT2:
-20 FOR LDGT2:
1O FOR HDGV:
-20 FOR HDGV:
10 FOR LDDV:
-2O FOR LDDV:
MYR SUM NOT
10 FOR LOOT:
-2O FOR LDDT:
MYR SUM NOT
1O FOR HDDV:
-2O FOR HDDV:
MYR SUM NOT
1O FOR MC:
-2O FOR MC:
MYR SUM NOT
O2 REGISTRATION
O1 REGISTRATION
1. (WILL NORMALIZE)
1. (WILL NORMALIZE)
1. (WILL NORMALIZE)
1. (WILL NORMALIZE)
WITH ZERO MILEAGE
WITH ZERO MILEAGE
LO
O
ENTER NO. OF NEW E.F. INTERCEPT/SLOPE PAIRS (12)
ENTER REGION.VEH. TYPE,POLLUTANT,FIRST MY,
LAST MY,NEW INTERCEPT (A), AND NEW SLOPE (B)
ENTER REGION,VEH. TYPE,POLLUTANT,FIRST MY.
LAST MY.NEW INTERCEPT (A), AND NEW SLOPE (B)
ENTER REGION,VEH. TYPE,POLLUTANT,FIRST MY,
LAST MY,NEW INTERCEPT (A), AND NEW SLOPE (B)
ENTER REGION,VEH. TYPE,POLLUTANT,FIRST MY,
LAST MY,NEW INTERCEPT (A), AND NEW SLOPE (B)
WARNING: EQUATION 1 ZEROES ALL IDLE COEFFICIENTS (AND TOTAL) FOR IR= 1 ,
WARNING: EQUATION 2 ZEROES ALL IDLE COEFFICIENTS (AND TOTAL) FOR IR=1.
WARNING: EQUATION 3 ZEROES ALL IDLE COEFFICIENTS (AND TOTAL) FOR IR=1,
IV=1 ,
IV=1 ,
WARNING- EQUATION 4 ZEROES ALL IDLE COEFFICIENTS (AND TOTAL) FOR IR=1, IV=1,
ENTER YEAR I/M BEGINS, STRINGENCY, M.T. FLAG,
FIRST MODEL YEAR AND LAST MODEL YEAR OF PROG. BENEFITS
IP= 1
IP = 2
4.2.13 MOBILE1 EXAMPLE013 Output
-------
ENTER REGION. CY,SPD(1),TAMB,PCCN,PCHC,PCCC:
ENTER VMT SPLIT:
ENTER AC,XLOAD(3),TRAILR(1),ABSHUM
COMMENT: A/C CORRECTION FACTOR WILL BE CALCULATED.
VALUE OF INPUTTED AC USAGE PARAMETER IS IGNORED
ENTER HGWGT.HDWGT.HGCID.HDCID (VALUES WILL BE IGNORED)
EXAMPLE 13: ALL FLAGS SET
EMISSION FACTOR MODIFICATION PROFILE:
REGION VEH. POLLUTANT FIRST MY LAST MY BASE DR ALTERED
1 1 1 1980 1982 1 13 0.23 YES
1 1 1 1983 1995 0.13 O.46 YES
1 1 2 1980 1980 18 60 2.80 YES
1 1 2 1981 1985 2.1O 3.00 YES
*NON-METH HC EMISSION FACTORS INCLUDE EVAP. HC EMISSION FACTORS
VEH. TYPE: LDV LOT 1 LDT2 HDG HDD MC
CAL. YEAR: 1975 TEMP: 75.O(F) O.657/O.O83/O.O57/O 115/O 079/0.OO9
REGION: 49-STATE 23.O/23.0/23.0 MPH (23.O) 2O.6/ 27.3/ 2O.6
AC: O.90 XLOAD: O.OB O.12 O 14 TRAILR- O. O9 ABSHUM- 83.OO
LDGV I/M PROGRAM STARTING IN 1979
STRINGENCY LEVEL 3O% MECH.TRAINING: YES
I/M PROGRAM BENEFITS APPLY ONLY TO MODEL YEARS 1968 THROUGH 1999
ATTENTION: THE DEFAULT VALUE OF 50% FOR TECHNOLOGY 4
I/M IDENTIFICATION RATE HAS BEEN LEFT UNCHANGED.
COMPOSITE EMISSION FACTORS (GM/MILE)
LDV LOT 1 LDT2 HDG HDD MC ALL MODES
NON-METH HC: 6.78 7.22 11 48 18.18 3.72 9.68 8.18
*EVAP HC: 1.96 2.43 3 8O 4.84 O.O 1.86
HOT STABILIZED IDLE EMISSION FACTORS (GM/MIN)
NM-IDLE HC: O.O 1 .03 1.43 1.66 O.35 2.04 O.O
ENTER REGION, CY,SPD(1),TAMB,PCCN,PCHC.PCCC :
ENTER VMT SPLIT:
ENTER AC,XLOAD(3),TRAILR(1).ABSHUM
COMMENT: A/C CORRECTION FACTOR WILL BE CALCULATED.
VALUE OF INPUTTED AC USAGE PARAMETER IS IGNORED.
ENTER HGWGT.HDWGT.HGCID.HDCID (VALUES WILL BE IGNORED)
VEH. TYPE: LDV LDT1 LDT2 HDG HDD MC
CAL. YEAR: 198O TEMP: 75.O(F) O.657/0.083/O.O57/O.115/O.O79/O.OO9
REGION: 49-STATE 23.0/23.O/23.O MPH (23.0) 2O.6/ 27.3/ 20 6
AC: O.9O XLOAD- 0.08 0.12 0.14 TRAILR. 0.09 ABSHUM: 83.00
LDGV I/M PROGRAM STARTING IN 1979
STRINGENCY LEVEL 3O% MECH.TRAINING - YES
I/M PROGRAM BENEFITS APPLY ONLY TO MODEL YEARS 1968 THROUGH 1999
4 2.13 MOBILE 1 EXAMPLE/MS Output (cont.)
-------
ATTENTION: THE DEFAULT VALUE OF 50% FOR TECHNOLOGY 4
I/M IDENTIFICATION RATE HAS BEEN LEFT UNCHANGED.
NON-METH HC:
*EvAP HC:
COMPOSITE EMISSION FACTORS (GM/MILE)
LDV LDT1 LDT2 HDG HDD MC
3.46 4.63 8 74 14 94 3.72 6 72
1 .02 1 .32 251 3 84 O.O 2 O7
ALL MODES
5.23
NM-IDLE HC:
HOT STABILIZED IDLE EMISSION FACTORS (GM/MIN)
O.O O.69 1.15 1.18 O.35 1.20
O.O
ENTER REGION, CY.SPD(1),TAMB , PCCN.PCHC,PCCC:
ENTER VMT SPLIT:
ENTER AC,XLOAD(3),TRAILR(1),ABSHUM
COMMENT: A/C CORRECTION FACTOR WILL BE CALCULATED.
VALUE OF INPUTTED AC USAGE PARAMETER IS IGNORED.
ENTER HGWGT.HDWGT.HGCID.HDCID (VALUES WILL BE IGNORED)
VEH. TYPE: LDV LOT 1 LDT2 HDG HDD MC
CAL. YEAR: 1985 TEMP: 75.0(F) 0.657/0.O83/O 057/O.115/O.O79/O.OO9
REGION: 49-STATE 23.0/23.O/23.O MPH (23.O) 2O.6/ 27.3/ 2O . 6
AC- O.90 XLOAD: O.O8 O.12 O.14 TRAILR- OO9 ABSHUM: 83.OO
LDGV I/M PROGRAM STARTING IN 1979
STRINGENCY LEVEL 3O% MECH.TRAINING: YES
I/M PROGRAM BENEFITS APPLY ONLY TO MODEL YEARS 1968 THROUGH 1999
ATTENTION: THE DEFAULT VALUE OF 5O% FOR TECHNOLOGY 4
I/M IDENTIFICATION RATE HAS BEEN LEFT UNCHANGED
U)
r-o
NON-METH HC:
*EVAP HC:
COMPOSITE EMISSION FACTORS (GM/MILE)
LDV LDT1 LDT2 HDG HDD MC
1 63 2 92 4.81 1O.08 3.72 5.26
O.37 O.53 1.O2 2 99 O.O 2.25
ALL MODES
3.O9
NM-IDLE HC:
HOT STABILIZED IDLE EMISSION FACTORS (GM/MIN)
O.O O.38 0 61 0.73 O.35 0-74
0.0
ENTER REGION. CY,SPD(1),TAMB,PCCN,PCHC.PCCC:
4 2.13 MOBILE1 EXAMPLE#13 Output front )
-------
-133-
Chapter 5
MOBILE2 IMPLEMENTATIONS AND POSSIBLE MODIFICATIONS
5.0 INTRODUCTION
This chapter contains information that may be useful to users interested
in MOBILE2's computer resource requirements, to users implementing
MOBILE2 on their own computer systems, and to users who are considering
making some of the usual software changes.
5.1 PROGRAM STORAGE REQUIREMENTS
The variety of computers and system configurations in use prohibits a
precise statement of main storage requirements on each system.
Nevertheless, the following should reflect MOBILE2's requirements on most
systems. On EPA's Washington computer, an IBM 370/158 Mod I, MOBILE2
requires 201 Kilobytes of main storage (using the standard convention of
1 Kilobyte = 1024 bytes). This is 51,400 32-bit memory words.
A major effort has been made to reduce memory requirements. MOBILE1
required about 50,000 memory words; much of this was used by several
large arrays. AS MOBILE1 evolved into MOBILE2, program enhancements
increased array requirements dramatically, until finally, MOBILE2
required about 150,000 words. This was considered excessive. An
examination determined that many arrays were unnecessary because a
function subprogram could be written to determine uhe value needed.
Other arrays were identified that could be reduced or eliminated. These
changes reduced the program to its present size.
5.2 PROGRAM EXECUTION TIME
MOBILE2 requires more time to process scenario records than does
MOBILE1. This was expected due to changes made in reducing memory
requirements. The following table provides a comparison of the execution
time required by MOBILE1 and MOBILE2 to process input data containing
varying numbers of scenarios.
Average
Execution Time
(CPU Seconds)
MOBILE1 MOBILE2
M2/M1
Average
Time per Scenario
(CPU Seconds)
MOBILE1 MOBILE2
Number of
Scenarios
2
10
20
50
250
These estimates were generated on an AMDAHL 470/V8 computer.
Users who run MOBILE2 on a commercial time sharing system should expect
MOBILE2 to cost more to run than MOBILE1. When MOBILE2 arrays were
expanded, the program size increased by a ratio exceeding 1:3. As a
0.167
0.326
0.518
1.121
5.024
0.216
1.046
2.085
5.298
26.087
1.3
3.2
4.0
t.7
5.2
0.084
0.033
0.026
0.022
0.020
0.108
0.105
0.104
0.106
0.104
-------
-134-
crude approximation, one might expect time sharing cost to be
proportional to the product of program size and execution time. If we
assume MOBILE2 computational enhancements increase execution time by a
ratio of about 2:3, we would expect MOBILE2 to cost four to five times as
much to run as MOBILE1.
The trade-off of execution time for memory decreased program size by a
ratio of about 3:1. Execution time, however, increased by a ratio of
about 1:5. From this, one would expect the present version of MOBILL2 to
cost five to six times as much to run on a time sharing system as
MOBILE1. However, when MOBILE2 was actually run on a time sharing
system, we found MOBILE2 performed somewhat better than this when the
number of scenarios was small and performed slightly worse when the
number was large.
5.3 DEVIATIONS FROM FORTRAN STANDARD ANSI X3.9-1966
Users who wish to run MOBILE2 on other computers may need to change the
program because of FORTRAN compiler incompatibilities. This section
lists known deviations of MOBILE2 from the FORTRAN language standard ANSI
X3.9-1966 published by the American National Standards Institute. Most
conversion problems will be included in this list.
5.3..1 Array Dimensions
Some MOBILE2 arrays are defined to have four or five dimensions; the ANSI
standard permits a maximum of three.
5.3.,2 Character Data
Hollerith data is defined in MOBILE2 format statements by means of single
quotation marks, while the ANSI standard requires use of the nH format
specification.
MOB1LE2 stores four characters in integer variables and array elements
(A4 format). The ANSI standard only guarantees that one character can be
stored in an integer variable (Al format); therefore, MOBILE2 may be
incompatible with some computer systems in this respect.
MOBILE2 assigns initial values of character data in integer data
statements by means of single quotation marks. Again, the ANSI standard
requires use of the nH format specification.
5.3.3 Array Data Initialization
MOBILE2 uses implied do-loops to initialize arrays in data statements.
The ANSI standard requires that programs specify and initialize
individual array elements. Each array element must be identified by
means of an explicit subscript.
5.3.4 Non-Standard Characters
MOBILE2 uses some characters undefined in the ANSI standard. These
include the single quotation mark('), double quotation mark("), pound
sign (#), semicolon (;), and colon(:)«
-------
-135-
5.3.5 Input Error and End-of-File
MOBILE2 uses the ERR= option in READ statements to process input
conversion errors and the END= option to process an end-of-file. Neither
option is supported by the ANSI standard.
5.3.6 Comment Lines
MOBILE2 has comment lines interspersed with the continuation lines of
data initialization statements. The ANSI standard states that comment
lines may not be followed by continuation lines.
5.4 TYPICAL JOB STRUCTURE
Since job control language (JCL) is highly system dependent this manual
does not provide examples. The general requirements for running a job
are outlined here. Most users should have little difficulty implementing
JCL to perform similar functions.
The simplest job structure for most systems is illustrated below:
JCL to sign on the computer system
JCL to compile MOBILE2 FORTRAN source code
MOBILE2 FORTRAN source code
JCL to assign MOBILE2 I/O, catalog (link edit), and run MOBILE2
MOBILE2 input data
MOBILE2 uses I/O device numbers stored in common IOUCOM. MOBILE2 I/O
device assignments are:
4 = user-supplied inspection/maintenance credits (IOUIMD)
5 = general input data (IOUGEN)
6 = formatted reports (IOUREP)
6 = diagnostic messages (IOUERR)
6 = input prompting messages (IOUASK)
Users can change these device numbers by modifying source code data
statements initializing common IOUCOM in Block Data Subprogram 21 or by
assignment in IOUNEW (see Section 2.1.1).
The job structure illustrated above does not read user-supplied
-------
-136-
inspection/maintenance credits. Users can read inspection/maintenance
credits by entering the data from another I/O device such as a disc file
or magnetic tape. Alternately, users can merge the inspection/
maintenance credits with other input and change the inspection/
maintenance input device number from 4 to 5. Another useful change
(especially for IFORM = 0 or 2) might alter IOUREP from 6 to some other
unused unit number. Also, see Section 2.1.1.
5.5 STRUCTURAL DIFFERENCES BETWEEN MOBILE1 AND MOBILE2
MOBILE2 is a direct descendant of MOBILE1 that evolved through numerous
small changes. Users will nevertheless notice that liOBILE2 is
considerably different from MOBILE1, They will naturally have different
opinions about the merit of some of the structural changes. We have
attempted to make changes that provide major improvements and have tried
to minimize disadvantages.
High priority has been given to 1) reducing MOBILE2 memory requirements
and 2) simplifying data structures. We believe many users will need to
run MOBILE2 on small computers and memory is usually the most limited
resource. The result of the memory reduction effort was discussed in
Section 5.1 above.
MOBILE1 data structures are complicated. Most MOBILE1 and MOBILE2 data
arrays contain subscripts that are complicated functions of calendar
years or model years. MOEILE1 was based on a design that emphasized
calculating subscripts at all program levels and working directly with
the subscripts. MOBILE2 works directly with the calendar and model
years. The MOBILE2 structure increases the number of subprograms and
lines of source code. However, the code and arrays are nox-7 simpler. The
new structure is directly responsible for the memory reduction.
We have not tried to preserve the historical internal structure and logic
of MOBILE1. MOBILE1 was complicated, making it difficult to determine
whether the program was performing correctly. We beLieve that monitoring
the performance of MOBILE2 will be easier.
5.6 SPEED CORRECTIONS FACTOR COEFFICIENT PRECISION
The speed correction factor coefficients in MOBILE SOURCE EMISSION
FACTORS, March 1978 (EPA-400/9-78-005), and used in MOBILE1 are expressed
"tofive significant digits. Subsequently, we learned six significant
digit values were available. The six-digit values have been used in
MOBILE2.
5.7 RE-IMPLEMENTING MOBILE1 OPTIONS NOT IN MOBILE2
As mentioned in Chapter 1, there are three MOBILE1 options that are no
longer available in MOBILE2. These are the free format (list-directed)
input, the three speed input option, and the unformatted output reports.
Re-implementing these options is not difficult, as the program already
contains much of the necessary code.
-------
-137-
5.7.1 List Directed Input
The free format, or list directed, input option may be implemented by
modifying subroutine INPUT. Generally, there are two READ statements in
routine INPUT for each record. The first is of the form "IF(INFLAG.EQ.O)
READ(IOUGEN,..." and the second is of the form "IF(INFLAG.EQ.l)
READ(10UGEN,,..". Currently in MOBILE2, both READ statements are
identical; that is, they both reference a labelled FORMAT statement and
support fixed format input. The user wanting the free format option
should modify the "IF(INFLAG.EQ.O) READ..." statements to support this
type of input. This is usually done by replacing the FORMAT statement
label by an asterik(*).
In the few cases where there is only one READ for a record (such as user
supplied mileage accrual, registration mix, trips/day, or miles/day), the
user can add the free format READ statement, and make each READ
conditional upon the value of INFLAG,
5.7.2 Three Speed Input
The user can reimplement the three speed input option by modifying
routine INPUT. INPUT currently allows only the values 0 (l~speed input)
or 2 (8-speed input) for SPDFLG, The user should change two validation
checks in INPUT to legalize the value 1 for SPDFLG. That is, the two
occurences of "IF(SPDFLG.NE.O.AND.SPDFLG.NE.2) CALL QUITER..." should be
changed to "IF(SPDFLG.LT.O.OR.SPDFLG.GT,2) CALL QUITER...". This is all
that has to be done. There is a READ statement already in the program to
handle 3~speed input.
The program then applies the first input speed to vehicle types LDGV,
LDGT1, LDGT2, LDDV, and LDDT; the second input speed to HDGV and HDDV;
and the third input speed to MC.
NOTE; This is different from the intention of 3-speed input as used in
MOBILE1. In MOBILE1, the 3 speeds represented 3 bag speeds for vehicle
types LDGV, LDGT1, LDGT2, and MC. In MOBILE2 there are no individual bag
speeds; the 3 speeds represent the average speeds for 3 classes of
vehicle types: LD, HD and MC. Also note that no additional capability is
provided to the user with this option.
5.7.3 Unformatted Output
The user will have to add WRITE statements to the output routines if
(s)he wants an unformatted output file to be written.
The device number for the unformatted output unit defaults to 9, and is
stored in the variable IOUUNF in COMMON/IOUCOM/. The user may override
this default by inputting a device number in column 5 of of the first
input record (the IPROMT record, on which the I/O unit defaults may be
overridden). So long as the device number does not conflict x«Lth the
other device numbers used by the program (IOUIMD, IOUGEN, IOUREP, IOUERR
and IOUASK; with defaults of 4, 5, 6, 6, and 6 respectively), the value
of IOUUNF will be changed to the user's input value. If there is a
device number conflict, the value of IOUUNF will be set to zero.
-------
-138-
5.8 POSSIBLE PROGRAM CHANGES
This section describes some of the more common changes that users might
make to their copy of the MOBILE2 program.
The changes mentioned here are suggestions for (a) user convenience
(multiple control sections, hardcoding locality-specific data),
(b) program enhancements (single record numeric output, evaluation of
intermediate altitude emission factors), and (c) reducing compuLer
resource requirements.
5.8.1 Multiple CONTROL Sections
The control flags and one-time data are input exactly once into MOBILE2.
Since these values, once read in, cannot be altered, users must make
multiple runs of MOBILE2 if they want to change values of control flags
or one-time data. Multiple runs incur the additional overhead of loadin^
the program each time and can be inconvenient to the user. Because of
this, the user may want to change MOBILE2 to be capable of "starting
over" with a new input stream upon some input cue. One method of doing
this is described below. This approach has not been completely verified.
New CONTROL Sections would be entered after MGBILE2 has read one or more
scenarios. Therefore, it is necessary to find a way of indicating thau
the program is to stop reading scenario records and begin reading CONTROL
records. A simple way of doing this is to modify the program to look for
a special value in the scenario record. For example, a literal value of
"FLAG" could be used in columns 77 - 80.
Users would need to add a statement to subroutine INPUT immediately
following the statements that read scenario records. This statement
would cause a subroutine exit if the special value were found.
The MAIN program would also need to be modified. Users would need to
insert a statement immediately following the second call to INPUT In
MAIN. This statement would check for the special value and branch back
to the beginning of MAIN if it were present.
We do not know whether repeating initialization steps causes problems.
Usei's must determine this for themselves. Users should realize that new
CONTROL Section data modifies all previous Control Section data. MOBILE2
does not revert to an original ("clean") version whenever new CONTROL
Section data is entered (for example, user supplied mileage accrual,
registration, or alternate emission rates remain and replace the MOBILE2
values).
5.8.2 Hardcoding Locality Specific Data
Users who plan to run a very large number of MOBILE2 data sets, and who
wish to override the MOBILE2 default conditions with their own locality
specific data in each data set, could consider modifying the BLOCK DATA
routines and replacing the MOBILE2 data with their own data.
-------
-139-
5.8.3 Single (Long) Record Numeric Output
Users may wish to print a single line of numeric output to a file or
tape. This can be done by setting the report format code IFOKM to 2 and
changing subroutine OUTDT2. The slash V carriage controls must be
deleted from format statements 100 and 300. The line tables 'A', 'B',
and 'G1 are no longer needed and can be deleted from the format
statements.
The column headers for OUTDT2 are printed by subroutine OUTHD2. Of
course, these will no longer line up with the columns if users change
OUTDT2. Users can delete the OUTHD2 call from OUTPUT if the column
headers are not desired. Alternatively, with a little more effort, users
can change the OUTHD2 header formats.
If this method is used to print a single line of numeric output, each
line will exceed 132 characters (to about 200, depending on the specific
changes).
5.8.4 Intermediate Altitude
Users who wish to model non-California conditions at altitudes other than
the standard 500 ft. low altitude or 5500 ft. high altitude conditions
may alter the program to do so. The program is already set up to do much
of the work. Intermediate altitude is handled as follows:
(1) The user inputs '5' as the region on the scenario record.
MOBILE2 allows this and expects the next record to contain the
altitude in an F6.0 format.
(2) The altitude must be between -200 ft. and 10,000 ft.
(3) Subroutine EFCALX will then calculate emission rates for both
low and high altitude. The user must modify EFCALX by adding
the intermediate altitude calculation methodology following
statement 330.
(4) The output routines do not need to be modified.
5.8.5 Reducing Computer Resource Requirements
Users who wish to reduce MOBILE2's memory requirements can do so
basically by removing arrays, or portions of arrays, which are not useful
for their specific analyses.
The most significant reductions are:
1. Eliminate unnecessary regions. Many of the arrays contain data
for three regions (low altitude non-California, high altitude
non-California, and California). Users not requiring all three
regions could downgrade the "region" dimension of the arrays,
eliminate portions of the BLOCK DATA routines, and make
appropriate indexing changes.
-------
-140-
Eliminating one region would reduce MOBILE2's array requirements
by 3,358 memory words.
2. Eliminate I/M credits. Users who do not need to include I/M
effects in their analyses can eliminate BLOCK DATA 6 and its
common area, COMMON/IMCRED/ (9,500 integer values). Routines
PCLEFT and NEWDAT could also be eliminated.
A less drastic reduction can be made by eliminating unneeded
portions of the I/M credit arrays.
3. Any other useless arrays, or portions thereof, could be
eliminated.
4. Use halfword integer arrays. All the integer arrays in COMMON
areas are fullword integers. This is because halfword integers,
or INTEGER*2, are not an ANSI FORTRAN standard, and we wanted
MOBILE2 to be compatible with as many systems as possible.
These integer arrays contain over 13,500 words of either 2-digit
I/M credits or 4-digit model years. If the user has the
halfword option available, and if the user's word length is such
that a halfword can store a 4-digit integer, then changing the
integer arrays from fullwords to halfwords can recoup nearly
7,000 words of memory.
Users who wish to reduce MOBILE2's run time can do so in the following
manners:
1. To reduce the overhead associated with subroutine calls,
routines which are called from only one or two places could be
deleted and their logic moved in-line into the calling routine.
This is particularly true of the pointer functions, which
typically contain very few lines of code. Examples are:
(a) The logic of INDX3R could be moved into routines EFCALX and
EFALTX.
(b) CCEVRT could contain the logic of HOTSOK, CRANKC, DIURNL,
XMPD, and TPD.
(c) BEF and BEFIDL could be placed in-line in EFCALX
(d) BEF could check for the necessity of calling PCLEFT. (check
IMFLG, etc.).
(e) IGLPTR, IGTPTR, IGEPTR, IGUPTR could be placed in ALUH.
(f) ISPPTR, ISPPT8, IGPPTR could be coded in BIGCFX.
2. Any or all multi-dimensional arrays may be converted to single
dimension arrays in the executable code (not necessarily in the
block data subprograms). For any converted array, the user must
then compute the required subscript to extract the correct data
value. This method gains little, if any, run time when the
available FORTRAN compiler globally optimizes code.
-------
-141-
3. If the user typically runs MOBILE2 with the PRTFLG value greater
than zero (to select only one pollutant to output), then the
computational logic could be changed to evaluate only the
selected pollutant. It currently evaluates all pollutants.
Approximately 15-20% of the total run time is expended to
evaluate one pollutant.
4. Computational code may be converted to assembly language
mnemonics with an extended FORTRAN which permits an in-line
assembly drop-in to be interspersed with the ordinary FORTRAN
statements. Depending on the optimizing capabilities of the
available FORTRAN compiler, this method can reduce the run time
by 10% to 50%.
5. The user could tailor the program to their specific usage.
Unneeded options could be eliminated. Input and output could be
modified. The consideration of hard-coding locality specific
data has already been mentioned.
5.9 PROGRAM UPDATE INFORMATION
EPA expects MOBILE2 to undergo future revision to correct any possible
errors, improve program performance, and incorporate changes in the
methodology. Users who wish to submit changes or corrections can mail
these to the EPA Motor Vehicle Emission Laboratory in Ann Arbor at the
address given at the end of this section.
A list of program errors and User Guide corrections will be compiled and
periodically distributed to EPA Regional offices. We do not currently
intend to support a user mailing list for automatic distribution of these
corrections. Users should contact their regional offices from time to
time. Users, who wish to do so, may submit the following Update Request
form. In the event that a mailing list is assembled, they will be
included and sent any published changes to MOBILE2.
-------
Mail to:
-142-
MOBILE2 UPDATE REQUEST
Office of Mobile Source Air Pollution Control
Emission Control Technology Division
Test and Evaluation Branch
2565 Plymouth Road
Ann Arbor, Michigan 48105
Attention: MOBILE2
Name and Address of User:
CITY STATE
ZIP
Name and telephone numbers of individual(s) we may need to reach to
respond to questions:
MOBILE2-1
-------
APPENDIX A - Internal Software Documentation
A-1
A.O INTRODUCTION
This appendix describes standard MOBILE2 variable names, MOBILE2
program common, MOBILE2 software modules (main program,
subroutines, function subprograms, and block data subprograms),
and a MOBILE2 structure chart.
Variables and arrays are described in detail. This appendix
describes the name, type, dimension, format, and description of
variables and arrays. In addition, subprogram arguments are
identified as inputs or outputs of the function or subroutine.
Variable and array data types are indicated as I for integer and
R for real. The format of the information stored in the
variable or array is indicated to be I for integral, R for real
(floating point), and A (A1 or A4) for character. This appendix
also describes the relationship of variables and arrays that
occupy equivalent memory, along with the logical meaning of
array subscripts.
A.1 STANDARD VARIABLE NAMES
Standard names have been adopted for several MOBILE2 variables.
Whenever MOBILE2 software or documentation uses a standard name,
users should refer to the explanation below for a description of
the variable.
VARIABLES:
NAME
IV
TYPE DIM FMT DESCRIPTION
I I An integer variable used as a
vehicle type code/index. Codes
used are as follows:
1 = LDGV = Light duty gasoline
powered vehicle.
2 = LDGT1 = Light duty gasoline
powered truck 1.
3 = LDGT2 = Light duty gasoline
powered truck 2.
4 = HDGV = Heavy duty gasoline
powered vehicle.
5 = LDDV = Light duty diesel
powered vehicle.
6 = LDDT = Light duty diesel
powered truck.
7 = HDDV = Heavy duty diesel
powered vehicle.
8 = MC = Motorcycle.
9 = LDGT = Combined light duty
gasoline powered trucks.
STANDARD VARIABLE NAMES
-------
APPENDIX A - Internal Software Documentation
A-2
IP
IR
ICY
MY
IDX
JDX
IG
An integer
pollutant
used are as
variable used as a
index/code. Codes
fo11ows:
1 = hydrocarbon (HC).
2 = carbon monoxide (CO).
3 = oxides of nitrogen (NOx).
An integer variable used as a
region index/code. Codes used
are as follows:
1 = Low altitude 49-State.
2 = Low altitude California.
3 = High altitude 49-State.
An integer
contains the
calendar year,
variable that
value of the
An integer variable that
contains the value of the model
year.
An integer variable that
contains the value of 20 plus
the model year (MY) minus the
calendar year (ICY). IDX
increases in the same direction
as model year. IDX is used as a
model year index, IDX has a
value of 20 when the model year
equals the calendar year.
An integer
contains the
calendar year
model year (MY
variable that
value of the
(ICY) minus the
plus 1. JDX has
a value of 1 when the model year
equals the calendar year, 2 when
the model year equals the
calendar year minus 1, and so
on. JDX = 21 - IDX . JDX
increases in the same direction
as vehicle age.
An integer variable that
contains a model year group
subscript. This document uses
IG in several places as a
generic variable to illustrate
correspondence between group
subscripts in data arrays and
their associated index arrays.
STANDARD VARIABLE NAMES
-------
APPENDIX A - Internal Software Documentation A-3
Group subscripts may have
different values in unrelated
arrays even though both arrays
are documented by means of IG.
Coefficient arrays are organized
into "groups" to conserve
memory. Coefficient arrays are
usually functions of model year.
Most coefficient values are used
for more than one year. It is
often economical to store each
value once and create a
secondary index that defines the
"group" of valid years that
apply to a coefficient. The
index array is used to determine
the group subscript of the
coefficient array.
STANDARD VARIABLE NAMES
-------
APPENDIX A - Internal Software Documentation A-4
A.2 PROGRAM COMMON DESCRIPTION
Limitations of time and manpower made it impossible to specify
and initialize individual array elements in data statements.
MOBILE2 initializes most arrays by means of "implied do-loops".
Because many FORTRAN implementations restrict the number of
continuation lines in one statement, many MOBILE2 arrays are too
large to be initialized from a single data statement.
Equivalent arrays are defined to support data initialization.
Each equivalent array corresponds to a logical subdivision of a
major array and is small enough to be initialized by means of a
single data statement. We believe that this approach will
produce code that is easy to comprehend and maintain.
STANDARD VARIABLE NAMES
-------
APPENDIX A - Internal Software Documentation
A-5
COMMON NAME:
ACOM
DESCRIPTION: Common area used to store speed correction
factor coefficients for motorcycles and light duty gasoline
powered vehicles and trucks. Group subscript IG is identical to
the model year group subscripts determined by functions IG =
ISPPT8(MY,IR,IP) for motorcycles and IG = ISPPTR(MY,IR,IVG) for
the other vehicle types.
FORTRAN DEFINITION:
COMMON/ACOM/AIN1,AIN2,AIN3
or
COMMON/ACOM/AIN
VARIABLES AND ARRAYS:
NAME TYPE DIM
FMT
AINU,IG,IP)
R 6*18*3 R
AINKI.IG)
R 6*18
AIN2U.IG)
R 6*18
AINSd.IG!
COMMON ACOM
DESCRIPTION
Speed correction factor
coefficients. Alternative names
for AIN are AIN1, AIN2, and
AIN3. The first subscript I
refers to the coefficients of
the 6 terms of the 5th degree
polynomial that determines the
speed correction factor.
Hydrocarbon speed correction
factor coefficients. Array
element AIN1(I,IG) occupies
memory equivalent to
AIN(I,IG,1). Arrays A11 and
A12, equivalent to AIN1, are
used to initialize AIN1 in a
block data subprogram.
Carbon monoxide speed correction
factor coefficients. Array
element AIN2(I,IG) occupies
memory equivalent to
AIN(I,IG,2). Arrays A21 and
A22, equivalent to AIN2, are
used to initialize AIN2 in a
block data subprogram.
-------
APPENDIX A - Internal Software Documentation A-6
6*18 R Oxides of nitrogen speed
correction factor coefficients.
Array element AIN3(I,IG)
occupies memory equivalent to
AIN(I,IG,3). Arrays A31 and
A32, equivalent to AIN3, are
used to initialize AIN3 in a
block data subprogram.
COMMON ACOM
-------
APPENDIX A - Internal Software Documentation
A-7
COMMON NAME:
ALTCOM
DESCRIPTION:
emission rates.
Common area used to store modified basic exhaust
FORTRAN DEFINITION:
COMMON/ALTCOM/INTALT,R4ALT.MODFLG,NEWFAC
VARIABLES AND ARRAYS:
NAME TYPE DIM
FMT
INTALT(5,N)
I 5*100 I
R4ALT(2,N)
R 2*100 R
MODFLG(N
I 100
NEWFAC I
DESCRIPTION
The first subscript refers to
the region, vehicle type,
pollutant, first model year, and
last model year; respectively,
for each basic exhaust emission
rate to be modified. The second
subscript is a counter to allow
up to 100 modified basic exhaust
emission rates to be entered.
The first subscript refers to
the zero mile emission level and
emission deterioration rate,
respectively, of each basic
exhaust emission rate that is
entered.
Flag which indicates whether the
modified basic emission rate was
used or not.
Number of zero mile level and
emission deterioration rate
pairs to be entered.
COMMON ALTCOM
-------
APPENDIX A - Internal Software Documentation A-8
COMMON NAME: ALTEQU
DESCRIPTION: A common area used to store the maximum number of
emission equations for each region, pollutant, and vehicle-type
combination.
FORTRAN DEFINITION:
COMMON/ALTEQU/MAXEQU
VARIABLES AND ARRAYS:
NAME TYPE DIM FMT DESCRIPTION
MAXEQU I I A variable that contains the
maximum number of basic exhaust
and idle emission rates (model
year groups) for each vehicle
type/region/pollutant
combination. The value stored
in this variable equals the
dimension of the first subscript
of arrays BASE3R, DEL3R, IDLB3R,
IDEL3R, and INDXYR. In MOBILE2,
MAXEQU contains the value of 15.
COMMON ALTEQU
-------
APPENDIX A - Internal Software Documentation
A-9
COMMON NAME:
ALUCOM, ALUPTR
DESCRIPTION: Common ALUPTR is used in subroutine ALUH by
functions IGEPTR, IGUPTR, IGLPTR, and IGTPTR to calculate group
subscripts into arrays in common ALUCOM. Group subscripts are
determined by the functions as follows:
IGE = IGEPTR(MY,IVP,IR)
IGU = IGUPTR(MY,IVP,IR)
IGL = IGLPTR(MY,IVP,IR)
IGT = IGTPTR(MY,IVP,IR)
FORTRAN DEFINITION:
COMMON/ALUCOM/ACEQIP,ACCF,XLCF,TWCF
COMMON/ALUPTR/IGEYRS,IGUYRS,IGLYRS,IGTYRS
VARIABLES AND ARRAYS:
NAME
TYPE DIM
FMT
ACEQIP(IGE,IVP,IR
R 8*3*3
ACCF(I,IP,IGU,IVP,IR)
R 2*3*2*3*3
R
XLCF(IP,IGL,IVP,IR)
R 3*6*3*3 R
TWCF(IP,IGT,IVP,IR)
R 3*6*3*3 R
DESCRIPTION
An array used to store the
fraction of light duty gasoline
powered vehicles or trucks
equipped with air conditioning.
The first subscript corresponds
to the model year group. The
second corresponds to the
vehicle type (1=LDGV, 2=LDGT1,
3=LDGT2). The third corresponds
to the three regions.
array used to store air
An
condi tioning
coefficients
subscript
coefficients
the linear
determines
factor.
correction factor
The first
refers to the
of the 2 terms of
equation that
the correction
An array used to store extra
load correction factor
coefficients.
An array used to store trailer
towing correction factor
COMMON ALUCOM, ALUPTR
-------
APPENDIX A - Internal Software Documentation
A-10
IGEYRSdGE.IVP.IR)
I 8*3*3 I
IGUYRSdGU.IVP.IR)
I 2*3*3 I
IGLYRSdGL.IVP.IR)
I 6*3*3
IGTYRSdGT.IVP.IR)
I 6*3*3
coefficients.
An integer array that contains
the last model year for each
coefficient group in ACEQIP.
An integer array that contains
the last model year for each
coefficient group in ACCF.
An integer array that contains
the last model year for each
coefficient group in XLCF.
An integer array that contains
the last model year for each
coefficient group in TWCF.
COMMON ALUCOM, ALUPTR
-------
APPENDIX A - Internal Software Documentation
A-11
COMMON NAME:
BASECM
DESCRIPTION: Common area used to store the basic exhaust zero
mile emission levels (grams/mile). Function INDX3R can be used
to obtain the group subscript IG = INDX3R(MY,IP,IV,IR) for array
BASECM.
FORTRAN DEFINITION:
COMMON/BASECM/BASE49,BASECA,BASEHI
or
COMMON/BASECM/BASE3R
VARIABLES AND ARRAYS:
NAME TYPE DIM FMT
DESCRIPTION
BASE3R(IG,IP,IV,IR)
R 15*3*8*3
R
BASE49(IG,IP,IV)
R 15*3*8 R
BASECA(IG,IP,IV)
R 15*3*8 R
BASEHKIG.IP.IV)
R 15*3*8 R
Basic exhaust
1 eve 1s,
zero mile emission
An array used
exhaust zero
levels for the
State region.
BASE49(IG,IP,IV
equivalent
BASE3R(IG,IP,IV
and B42
are used
to store basic
mile emission
Low alti tude 49-
Array element
occupies memory
to
1 ) . Arrays B41
equivalent to BASE49,
to initialize BASE49 in
a block data subprogram.
An array used to store basic
exhaust zero mile emission
levels for the Low altitude
California region. Array
element BASECMIG,IP,IV)
occupies memory equivalent to
BASE3R(IG,IP,IV,2). Arrays BC1
and BC2, equivalent to BASECA,
are used to initialize BASECA in
a block data subprogram.
An array used to store basic
exhaust zero mile emission
COMMON BASECM
-------
APPENDIX A - Internal Software Documentation A-12
levels for the High altitude 49-
State region. Array element
BASEHI(IG,IP,IV) occupies memory
equivalent to
BASE3R(IQ,IP,IV,3). Arrays BH1
and BH2, equivalent to BASEHI,
are used to initialize BASEHI in
a block data subprogram.
COMMON BASECM
-------
APPENDIX A - Internal Software Documentation A-13
COMMON NAME: BEFGCM
DESCRIPTION: Common area used to store the fractional
contribution of non-methane hydrocarbon to the total hydrocarbon
basic and idle emission rates.
FORTRAN DEFINITION:
COMMON/BEFGCM/EXMETH,IEXMYR
VARIABLES AND ARRAYS:
NAME TYPE DIM FMT DESCRIPTION
EXMETH(IG,IV,IR)
R 3*8*3 R An array used to store the
fractional contribution of non-
methane hydrocarbon to the total
hydrocarbon basic and idle
emission rates.
IEXMYR(IG,IV,IR)
I 3*8*3 I An array used to store the last
model year of each EXMETH
coefficient group.
COMMON BEFGCM
-------
APPENDIX A - Internal Software Documentation
A-14
COMMON NAME: CEVCOM
DESCRIPTION: Common area used to store user supplied trips per
day and miles per day.
FORTRAN DEFINITION:
COMMON/CEVCOM/USRTPD.USRMPD
VARIABLES AND ARRAYS
NAME TYPE DIM FMT
USRTPD(IV)
R 8 R
USRMPD(IV)
R 8 R
DESCRIPTION
User supplied trips per day,
User supplied miles per day,
COMMON CEVCOM
-------
APPENDIX A - Internal Software Documentation
A-15
COMMON NAME:
CUMCOM
DESCRIPTION: Common area used to store cumulative vehicle
mileage for twenty model years up to and including the calendar
year.
FORTRAN DEFINITION:
COMMON/CUMCOM/CUMMIL
VARIABLES AND ARRAYS:
NAME TYPE DIM
FMT
DESCRIPTION
CUMMIL(dDX.IV)
R 20*8
A real array used to store
cumulative vehicle mileage (in
miles) for twenty model years up
to and including the calendar
year.
COMMON CUMCOM
-------
APPENDIX A - Internal Software Documentation
A-16
COMMON NAME:
DELCOM
DESCRIPTION: Common area used to store the basic exhaust
emission deterioration rates (grams/mile/10,000 miles).
Function INDX3R can be used to determine the group subscript IG
= INDX3R(MY,IP,IV,IR) for array DELCOM.
FORTRAN DEFINITION:
COMMON/DELCOM/DEL49,DELCA,DELHI
or
COMMON/DELCOM/DEL3R
VARIABLES AND ARRAYS:
NAME TYPE DIM FMT
DESCRIPTION
DEL3R(IQ,IP,IV,IR)
R 15*3*8*3
R
DEL49(IG,IP,IV)
R 15*3*8 R
DELCA(IG,IP,IV)
R 15*3*8 R
DELHKIG.IP.IV)
R 15*3*8 R
COMMON DELCOM
Basic exhaust
deterioration rates.
emission
An array used to store the basic
exhaust emission deterioration
rates for the Low altitude 49-
State region. Array element
DEL49(IG,IP,IV) occupies memory
equivalent to DEL3R(IG,IP,IV , 1 ) .
Arrays D41 and D42, equivalent
to DEL49, are used to initialize
DEL49 in a block data
subprogram.
An array used to store the basic
exhaust emission deterioration
rates for the Low altitude
California region. Array
element DELCA(IG,IP,IV) occupies
memory equivalent to
DEL3R(IG,IP,IV,2). Arrays DC1
and DC2, equivalent to DELCA,
are used to initialize DELCA in
a blocK data subprogram.
An array used to store the basic
exhaust emission deterioration
-------
APPENDIX A - Internal Software Documentation A-17
rates for the High altitude 49-
State region. Array element
DELHI(IG,IP,IV) occupies memory
equivalent to DEL3RiIG,IP,IV.3) .
Arrays DH1 and DH2, equivalent
to DELHI, are used to initialize
DELHI in a block data
subprogram.
COMMON DELCOM
-------
APPENDIX A - Internal Software Document a t i on
A-18
COMMON NAME:
FLGCOM
DESCRIPTION: Common area FLGCOM contains input/output flags.
FORTRAN DEFINITION:
COMMON/FLGCOM/ALTFLG.VMFLAG.ALHFLG.IRDFLG.SPDFLG.NMHFLG.IDLFLG,
MYMRFG,IMFLG,ICEVFG,PRTFLG,IFORM,MDEFLG
VARIABLES AND ARRAYS:
NAME TYPE DIM
FMT
DESCRIPTION
ALTFLG I
VMFLAG I
ALHFLG I
IRDFLG I
SPDFLG I
NMHFLG I
IDLFLG I
MYMRFG I
IMFLG I
ICEVFG I
Controls the modification of the
basic exhaust emission rates.
Selects optional use of user
supplied VMT mix among vehicle
types.
Flags optional use of correction
factors for air conditioning,
extra loading, trailer towing,
and NOx humidity.
Flag set to 0 when all data has
been input or an end-of-file
reached.
Selects use of the different
average vehicle speed options.
Selects the calculations of
total or non-methane HC emission
factors.
Flags optional output of idle
emission factors.
Flags optional user supplied
registration and/or mileage
accrual data.
Flags optional existence of
inspection/maintenance program.
Controls optional listing of
crankcase and evaporative HC
emission factors and/or input of
COMMON FLGCOM
-------
APPENDIX A - Internal Software Documentation A-19
user supplied trips per day and
miles per day data.
PRTFLG I -- I Select the pollutant results to
be output.
I FORM I I Flags output report format.
MDEFLG I I Flags "vertical" or "horizontal"
input of other flag values.
COMMON FLGCOM
-------
APPENDIX A - Internal Software Documentation
A-20
COMMON NAME:
GPCCOM
DESCRIPTION Common area used to store RIPSTWXN bag term
coefficients. Array GPACOF contains the Bipb and Dipb AP-42
RIPSTWXN normalization coefficients. Array GPBCOF contains
speed correction factor coefficients for heavy duty and diesel
powered vehicles. The model year group subscripts IG are
determined by using function IG = IGPPTR(MY,IP,IREJN,IV}. The
vehicle type subscript IVG is stored in array element IVPTRG(IV)
in common IVPCOM. The first subscripts of GPACOF (IC1) and
GPBCOF (IC2) have the following correspondence with AP-42:
IC1
1
2
3
4
5
6
7
8
AP-42 Coefficient
Bip1
Dip1
Bip2
Dip2
Bip3
Dip3
BipO
DipO
IC2
1
2
3
AP-42 Coefficient
A
B
C
FORTRAN DEFINITIONS
COMMON/GPCCOWI/GPACOF , GPBCOF
VARIABLES AND ARRAYS
NAME TYPE DIM
FMT
GPACOF(IC1,IG.IP,IVG)
R 8*9*3*6 R
GPBCOF(IC2,IG,IP,IVB)
R 3*3*3*4 R
DESCRIPTION
A real array
RIPSTWXN
coefficients
selected by IVG.
used to store
normalization
for vehicles
A real array used to store speed
correction factors for vehicles
COMMON GPCCOM
-------
APPENDIX A - Internal Software Documentation
A-21
selected by IVB.
Equivalent arrays are used to initialize GPACOF and GPBCOF in
block data subprograms. The last character of the name of the
array used to initialize GPACOF refers to the pollutant number
("1" - "3") and the second to the last digit refers to the
vehicle type number. Thus, GPAC23 defines data for vehicle type
2 (LDGT1) and pollutant 3 (NOx). The last character of arrays
used to initialize GPBCOF refers to the vehicle number. Thus,
GPBC06 initializes data for vehicle type 6 (LDDT).
COMMON GPCCOM
-------
APPENDIX A - Internal Software Documentation
A-22
COMMON NAME:
GSrCOM
DESCRIPTION Common area used to store the diesel or gasoline
sales fraction of each vehicle type by model year. The group
subscript, IG, of array GSF can be determined by using function
IG = IGSFPT(MY,IV,IR).
FORTRAN DEFINITIONS
COMMON/GSFCOM/MAXGSF,GSF,IGSFYR
VARIABLES AND ARRAYS
NAME TYPE DIM FMT
DESCRIPTION
MAXGSF I
GSFdG.IV, IR)
R 18*8*3 R
IGSFYRdG, IV, IR)
R 18*8*3 R
An integer variable that
contains the dimension of group
subscript IG in arrays GSF and
IGSFYR.
A real array used to store the
diesel or gasoline sales
fraction of each vehicle type by
model year.
An integer array
the last model
model year group
used to store
year of each
in array GSF.
COMMON GSFCOM
-------
APPENDIX A - Internal Software Documentation
A-23
COMMON NAME:
HOTCOM,TPDCOM,DIUCOM,XMPCOM,CRACOM
DESCRIPTION: Common areas used to store crankcase and
evaporative HC emission data. These common areas are used with
functions HOTSOK, TPD, DIURNL, XMPD, and CRANKC to replace
common area CEVCOM from the original MOBILE 1 program. All of
these common areas have a similar structure. The beginning of
the common area contains a variable that stores the maximum
number of model year groups in common data and index arrays.
Following this is a data array, and last an index array. The
data and index arrays hava a similar structure. The first
subscript of each array is a group subscript (IG), the second is
a vehicle type subscript (IV), and the third is a region
subscript (IR). For a particular model year, vehicle type, and
region, the group subscript IG is the minimum value of IG that
satisfies the following relation:
MODEL YEAR < INDEX ARRAY(IG,IV,IR).
The group subscript dimension of each array is stored in the
associated variable with a name that begins with "MAX". For a
given model year, vehicle type, and region; the five functions
HOTSOK, TPD, DIURNL, XMPD, and CRANKC use an index array to
locate the corresponding value in a data array, which is then
returned to the calling program.
The following table lists
area, plus array dimensions:
variables and arrays in each common
COMMON NO.GROUPS DATA ARRAY
HOTCOM MAXHOT
TPDCOM MAXTPD
DIUCOM MAXDIU
XMPCOM MAXXMP
CRACOM MAXCRA
HOTVAL(6,8,3
TPDVAL(2,8,3
DIUVAL(6,8,3
XMPVAL(2,8,3
CRAVAL(3,8,3
INDEX ARRAY
IHOTYS(6,8,3;
ITPDYS(2,8,3;
IDIUYS(6,8,3:
IXMPYS(2,8,3;
ICRAYS(3,8,3
The variables that contain the number of groups are integer,
data arrays are real, and index arrays are integer. All index
arrays contain four-digit model years that define the latest
valid year for a group.
Array HOTVAL contains hot soak HC emission data (gm/trip),
TPDVAL contains trips per day, DIUVAL contains diurnal HC
emission data (gm/day), XMPVAL contains miles per day, and
CRAVAL contains crankcase HC emission data (gm/mi).
Each of these arrays is initialized in a block data subprogram.
COMMON HOTCOM,TPDCOM,DIUCOM,XMPCOM, and CRACOM
-------
APPENDIX A - Internal Software Documentation A-24
FORTRAN DEFINITION:
COMMON/HOTCOM/MAXHOT,HOTVAL,IHOTYS
COMMON/TPDCOM/MAXTPD,TPDVAL,ITPDYS
COMMON/DIUCOM/MAXDIU.DIUVAL.IDIUYS
COMMON/XMPCOM/MAXXMP,XMPVAL,IXMPYS
COMMON/CRACOM/MAXCRA.CRAVAL.ICRAYS
COMMON HOTCOM.TPDCOM.DIUCOM.XMPCOM, and CRACOM
-------
APPENDIX A - Internal Software Documentation
A-25
COMMON NAME:
IDLBCM
DESCRIPTION: Common area used to store the zero mile idle
emission levels (grams/minute). Function INDX3R can be used to
determine group subscripts IG=INDX3R(MY,IV,IP,IR) for array
IDLB3R.
FORTRAN DEFINITION:
COMMON/IDLBCM/IDLB49,IDLBCA,IDLBHI
or
COMMON/IDLBCM/IDLB3R
VARIABLES AND ARRAYS:
NAME TYPE DIM FMT
•IDLB3R(IG,IP,IV,IR)
R 15*3*8*3
IDLB49(IG,IP,IV)
R 15*3*8 R
IDLBCA(IG,IP,IV)
R 15*3*8 R
IDLBHKIG.IP.IV)
R 15*3*8
COMMON IDLBCJVI
DESCRIPTION
The zero mile idle emission
levels. Equivalent names for
IDLB3R are IDLB49, IDLBCA, and
IDLBHI.
An array used to store the zero
mile idle emission levels for
the Low altitude 49-State
region. Array element
IDLB49(IG,IP,IV) occupies memory
equivalent to
IDLB3R(IG,IP,IV,1). Arrays IB41
and IB42, equivalent to IDLB49,
are used to initialize IDLB49 in
a block data subprogram.
An array used to store the zero
mile idle emission levels for
the Low altitude California
region. Array element
IDLBCA(IG,IP,IV) occupies memory
equivalent to
IDLB3R(IG,IP,IV,2). Arrays IBC1
and IBC2, equivalent to IDLBCA,
are used to initialize IDLBCA in
a block data subprogram.
An array used to store the zero
-------
APPENDIX A - Internal Software Documentation A-26
mile idle emission levels for
the High altitude 49-State
region. Array element
IDLBHI(IG,IP,IV) occupies memory
equivalent to
IDLB3R(IG,IP,IV,3). Arrays IBH1
and IBH2, equivalent to IDLBHI,
are used to initialize IDLBHI in
a block data subprogram.
COMMON IDLBCM
-------
APPENDIX A - Internal Software Documentation
A-27
COMMON NAME:
IDLDCM
DESCRIPTION:
deterioration
INDX3R can be
INDX3R(MY,IV,IP,IR)
Common area used to store idle emission
rates (grams/minute/10,000 miles). Function
used to determine group subscripts IG =
for array IDEL3R.
FORTRAN DEFINITION:
COMMON/IDLDCM/IDEL49,IDELCA,IDELHI
or
COMMON/IDLDCM/IDEL3R
VARIABLES AND ARRAYS:
NAME
TYPE DIM
FMT
IDEL3R(IG,IP,IV,IR)
R 15*3*8*3
IDEL49(IG,IP,IV)
R 15*3*8 R
IDELCAUG.IP, IV)
R 15*3*8 R
IDELHKIG.IP.IV)
R 15*3*8
DESCRIPTION
Idle
rates.
IDEL3R
IDELHI
emission deterioration
Equivalent names for
are IDEL49, IDELCA, and
An array used to store idl.e
emission deterioration rates for
the Low
region.
IDEL49(IG,IP
equivalent
altitude 49-State
Array element
,IV) occupies memory
to
IDEL3R(IG,IP,IV,1). Arrays IL41
and IL42, equivalent to IDEL49,
are used to initialize IDEL49 in
a block data subprogram.
An array used to store idle
emission deterioration rates for
the Low altitude California
region. Array element
IDELCAfIG,IP,IV) occupies memory
equivalent to
IDEL3R(IG,IP,IV,2). Arrays ILC1
and ILC2, equivalent to IDELCA,
are used to initialize IDELCA in
a block data subprogram.
An array used to store idle
COMMON IDLDCM
-------
APPENDIX A - Internal Software Documentation A-28
emission deterioration rates for
the High altitude 49-State
region. Array element
IDELHI(IG,IP,IV) occupies memory
equivalent to
IDEL3R(IG,IP,IV,3). Arrays ILH1
and ILH2, equivalent to IDELHI,
are used to initialize IDELHI in
a block data subprogram.
COMMON IDLDCM
-------
APPENDIX A - Internal Software Documentation
A-29
COMMON NAME
IMCOM
DESCRIPTION: Common area used to store inspection/maintenance
information.
FORTRAN DEFINITION:
COMMON/IMCOM/ICYIM,ISTRIN,IMTFLG.MODYR1.MODYR2,1 LOT,IOPTN,NUDATA
NLINES,STRING
VARIABLES AND ARRAYS:
NAME TYPE DIM FMT
ICYIM I -- I
ISTRIN I -- I
IMTFLG
MODYR1
MODYR2
ILDT
IOPTN
NUDATA
NLINES
I
I
I
I
I
I
I
I
I
I
I
I
I
I
STRING(18,9)
R 18*9 18A4
DESCRIPTION
Calendar year that I/M begins
(1970 < ICYIM < 2020).
(Also ISTRN) - Stringency of I/M
program for Technology I and II
(10 < ISTRIN £ 50).
Mechanic training flag (0 = no,
1 = yes).
Earliest model year included in
.the I/M program.
Latest model year included in
the I/M program.
Vehicle types to be affected by
the I/M program.
Optional identification rate for
Technology IV vehicles (50 thru
90).
New I/M credit data flag (0 thru
3).
Number of descriptive text lines
associated with the new data (0
thru 9).
I/M descriptive text lines (0
thru 9 lines of text, 0 thru 72
characters per line).
COMMON IMCOM
-------
APPENDIX A - Internal Software Documentation A-30
COMMON NAME: IMCRED
DESCRIPTION: Common area used to store percent emission
reductions due to an I/M program (credits).
FORTRAN DEFINITION:
COMMON/IMCRED/1 RED,ITECH4
VARIABLES AND ARRAYS:
NAME TYPE DIM FMT DESCRIPTION
IRED(BY,AGE1ST,ISTRIN,ITECH,IP)
I (19,20,5,2,2)
I Percent reduction of emissions
for Technology I and II vehicles
due to an I/M program.
ITECH4(BY,AGE1ST,IOPTN)
I (19,20,5)
I Percent reduction of emissions
for Technology IV vehicles due
to an I/M program.
COMMON IMCRED
-------
APPENDIX A - Internal Software Documentation
A-31
COMMON NAME:
INDXCM
DESCRIPTION: Common area used to store the first and last
model years for emission rate equation model year groups. This
common is used by function INDX3R to calculate group indices
into coefficient arrays BASE3R (common BASECM), DEL3R (common
DELCOM), IDLB3R (common IDLBCM), and IDEL3R (common IDLDCM).
The first subscript in each emission rate coefficient array is a
group subscript that is valid for a model year time interval
(group) MY1.,.MY...MY2. LiKewise, the leftmost subscript of
array INDXYR is a group subscript. The group subscript of
INDXYR is the same as the coefficient array group subscript.
The second subscript of INDXYR, IFL, is given a value of one to
access the first model year in a group and a value of two to
access the last. Function INDX3R returns the group subscript
INDX3R = IG, such that INDXYR(IG,1,IP,IV,IR) < MODEL YEAR <
INDXYR(IG,2,IP,IV,IR).
FORTRAN DEFINITION:
COMMON/INDXCM/INDX49,INDXCA,INDXHI
or
COMMON/INDXCM/INDXYR
VARIABLES AND ARRAYS:
NAME TYPE DIM
FMT
INDXYR(IG,IFL,IP,IV,IR)
I 15*2*3*8*3
I
INDX49(IQ,IFL,IP,IV)
I 15*2*3*8
I
DESCRIPTION
An array used to store the first
and last model years for
emission rate equation model
year groups. Equivalent names
for INDXYR are INDX49, INDXCA,
and INDXHI.
An array used to store the first
and last model years for each
Low altitude 49-State emission
rate equation model year group.
Array element
INDX49(IG,IFL,IP,IV) occupies
memory equivalent to
INDXYR(IG,IFL,IP,IV,1).
COMMON INDXCM
-------
APPENDIX A - Internal Software Documentation
A-32
INDXCAdG
I
IFL.IP.IV)
15*2*3*8
I An array used to store the first
and last model years for each
Low altitude California emission
rate equation model year group.
Array element
INDXCAdG, IFL.IP, IV) occupies
memory equivalent to
INDXYR(IG,IFL,IP,IV,2).
INDXHI
IG
I
IFL.IP.IV)
15*2*3*8
I An array used to store the first
and last model years for each
High altitude 49-State emission
rate equation model year group.
Array element INDXHI(IG,IP,IV)
occupies memory equivalent to
INDXYRdG,IFL.IP.IV,3) .
Equivalent arrays are used to initialize these arrays in a block
data subprogram. The names of the equivalent arrays are
constructed by deleting the third and fourth characters of
"INDX49", "INDXCA", and "INDXHI", appending the letter "V", and
adding a numeric character that corresponds to the vehicle type.
Thus, "INCAV7" initializes the array used to store California
region data for vehicle type 7 (HDDV).
COMMON INDXCM
-------
APPENDIX A - Internal Software Documentation
A-33
COMMON NAME: IOUCOM
DESCRIPTION:
Common area used to store FORTRAN unit numbers
for all input and output files.
FORTRAN DEFINITIONS:
COMMON/IOUCOM/IOUIMD,IOUGEN,IOUREP,IOUERR,IOUASK,IOUUNF
VARIABLES AND ARRAYS:
NAME TYPE DIM FMT
IOUIMD I -- I
IOUGEN I -- I
IOUREP I -- I
IOUERR I -- I
IOUASK I -- I
IOUUNF I -- I
DESCRIPTION
Input unit number for new I/M
credit data. Initialized to 4.
Input unit number for general
data. Initialized to 5.
Output unit number for formatted
reports. Initialized to 6.
Output unit
diagnostic
Initialized to 6.
number for
messages.
Output unit number for prompting
messages. Initialized to 6.
Output unit number for
unformatted reports.
Initialized to 9. Unformatted
output logic is not supplied
with MOBILE2.
IOUCOM
-------
APPENDIX A - Internal Software Documentation
A-34
COMMON NAME: ISPCOM
DESCRIPTION: Common area used to store a table of years for
use by function ISPPTR to determine a group subscript. ISPYR8
is a table of years used by function ISPPT8 to determine a group
subscript. The subscript is used to index variable SPBACK in
subroutine BIGCFX,
FORTRAN DEFINITIONS:
COMMON/ISPCONI/ISPYRS, ISPYR8.
VARIABLES AND ARRAYS:
NAME TYPE DIM FMT
ISPYRSIIG.IR.IVG)
I 18*3*3 I
ISPYR8(IG,IR,IP)
I 18*3*3 I
DESCRIPTION
An integer array that contains
the last model year of light
duty speed correction factor
groups.
An integer array that contains
the last model year for
motorcycle speed correction
factor groups.
Equivalent arrays are used to initialize ISPYRS in a block data
subprogram. The names of equivalent arrays are constructed by
dropping the letter "S" from "ISPYRS" and replacing it with the
vehicle type number. Thus, ISPYR1 initializes data for vehicle
type 1 (LDGV).
COMMON ISPCOM
-------
APPENDIX A - Internal Software Documentation
A-35
COMMON NAME:
IVPCOM
DESCRIPTION: Common area used to store vehicle group subscripts.
Array IVPTRG stores vehicle group subscripts for array GPACOF in
common GPCCOM and array ISPYRS in common ISPCOM. Array IVPTRT
stores vehicle group subscripts for array TTACOF in common
TCFCOM. Array IVPTRB stores vehicle group subscripts for array
GPBCOF in common GPCCOM. IVPTRA stores vehicle group subscripts
for array ALHRET in common RET1.
FORTRAN DEFINITION:
COMMON/IVPCOM/IVPTRG,IVPTRT,IVPTRA,IVPTRB
VARIABLES AND ARRAYS:
NAME TYPE DIM
IVPTRG(IV)
I 8
IVPTRT(IV)
I 8
IVPTRA(IV)
I 8
IVPTRB(IV)
I 8
FMT DESCRIPTION
I An integer array that contains
vehicle group subscript IVG.
I An integer array that contains
vehicle group subscript IVT.
An integer array that contains
the vehicle group subscript IVA.
An integer array that contains
the vehicle group subscript IVB.
COMMON IVPCOM
-------
APPENDIX A - Internal Software Documentation
A-36
COMMON NAME:
LNKCOM
DESCRIPTION: Common area LNKCOM is used to store physical
factors affecting emissions.
FORTRAN DEFINITION:
COMMON/LNKCOM/SPD,TAMB,PCCN,PCHC,PCCC
VARIABLES AND ARRAYS:
NAME TYPE DIM
SPD(IV) R 8
TAMB R
PCCN R
PCHC R
PCCC R
FMT DESCRIPTION
R Individual vehicle type, average
speeds (5 < SPD < 55).
R Ambient temperature (DEG F) (0
DEC < TEMP < 110 DEG).
R Percent non-catalyst equipped
vehicle miles travelled
accumulated in cold start mode.
R Percent catalyst equipped
vehicle miles travelled
accumulated in hot start mode.
R . Percent catalyst equipped
veh i c1e miles t r ave11ed
accumulated in cold start mode.
COMMON LNKCOM
-------
APPENDIX A - Internal Software Documentation
A-37
COMMON NAME:
MYMCOM
DESCRIPTION: Common area used to store mileage, registration,
and travel factors after correction to January 1.
FORTRAN DEFINITION:
COMMON/MYMCOM/XMYM,XMYR,TF,TFMYM
VARIABLES AND ARRAYS:
NAME TYPE DIM FMT
XMYM(IDX.IV)
R 20*8 R
XMYR(IDX.IV)
R 20*8 R
TF(DX.IV
R 20*8 R
TFMYMUDX.IV)
R 20*8 R
DESCRIPTION
(Also MYMDUM) - A real array
used to store the annual
mileage/100,000 distributions.
A real array used to store the
estimated current-year January 1
registration distributions.
A real array used to store the
travel fraction (TF)
distributions. Subscript DX is
identical to standard variable
IDX everywhere except in
subroutine TFCALX, where, for
historical reasons, it
corresponds to JDX.
A real array used to store the
January 1 model year mileage
accumulation rates.
COMMON MYMCOM
-------
APPENDIX A - Internal Software Documentation
A-38
COMMON NAME:
MYMSAV
DESCRIPTION: Common area used to store vehicle mileage
accumulation and registration distributions.
FORTRAN DEFINITION:
CQMMON/MYMSAV/SAVMYM,SAVMYR
VARIABLES AND ARRAYS:
NAME TYPE DIM
SAVMYM(JDX.IV)
R 20*8
SAVMYR(JDX.IV)
R 20*8
FMT DESCRIPTION
R A real array used to store the
annual mileage/100,000
distributions.
A real array used to store the
July 1 registration
di stributions.
COMMON MYMSAV
-------
APPENDIX A - Internal Software Documentation
A-39
COMMON NAME: PROJCM
DESCRIPTION: Common area to store the project title,
FORTRAN DEFINITION:
COMMON/PROJCM/PROJID
VARIABLES AND ARRAYS:
NAME TYPE DIM FMT
PROJID(20)
R 20
DESCRIPTION
20A4 Project title.
COMMON PROJCM
-------
APPENDIX A - Internal Software Documentation A-40
COMMON NAME: PTRCOM
DESCRIPTION: Common area used to store the last model year
for low/hitemperature correction factor and RIPSTWXN bag term
coefficient groups. The common is used by function IGPPTR to
calculate group subscripts for arrays TTACOF and TT4COF in
common area TCFCOM and arrays GPACOF and GPBCOF in common area
GPCCOM, The group subscript in array IGPYRS equals the group
subscript in the coefficient array.
FORTRAN DEFINITION:
COMMON/PTRCOM/MAXIGP,IGPYRS
VARIABLES AND ARRAYS:
NAME TYPE DIM FMT DESCRIPTION
MAX1GP I I An integer , that contains the
dimension of group subscript IG
in array IGPYRS.
IGPYRS(IG,IP,IR,IV)
I 9*3*3*8 I Integer array used to store the
last model year of low/hi
temperature correction factor
and RIPSTWXN bag term
coefficient groups.
Equivalent arrays are used to initialize IGPYRS in a blocK data
subprogram. The names of the equivalent arrays are constructed
by replacing the letter "S" in "IGPYRS" with the vehicle number.
Thus, IGPYRS defines the data for vehicle type 8 (motorcycles).
COMMON PTRCOM
-------
APPENDIX A - Internal Software Documentation
A-41
COMMON NAME:
REGCOM
DESCRIPTION: Common area used to store a region code for the
region under consideration.
FORTRAN DEFINITION:
COMMON/REGCOM/IREJN,ALT
VARIABLES AND ARRAYS:
NAME TYPE DIM FMT
IREJN I -- I
ALT
DESCRIPTION
An integer used
that identifies
consideration.
as follows:
to store a code
the region under
Valid codes are
1 = Low altitude 49-State
2 = Low altitude California
3 = High altitude 49-State
A real variable used to store a
value of altitude. The default
value assigned by the program
for Low altitude 49-State and
California is 500 feet. The
program assigns a value of 5500
feet for High altitude 49-State.
COMMON REGCOM
-------
APPENDIX A - Internal Software Documentation A-42
COMMON NAME: REGSUM
DESCRIPTION: Common area used to store the registration
fractions for the light duty vehicle and light duty truck
(excluding LDGT2) fleets; accounting for gasoline and diesel
sales and changing from July to January registrations.
FORTRAN DEFINITION:
COMMON/REGSUM/SUM1
VARIABLES AND ARRAYS:
NAME TYPE DIM FMT DESCRIPTION
SUM1(IV)
R 8 R For IV = 3,4,7 and 8, SUMKIV)
equals 1. For IV = 1, SUMKIV)
equals the LDGV fraction of the
LDV fleet registration in the
evaluation calendar year. For
IV = 5, SUMKIV) equals the LDDV
fraction of the same fleet. For
IV = 2 and 6, SUMKIV) equals
the LDGT1 and LDDT fractions of
the LOT fleet (excluding LDGT2).
COMMON REGSUM
-------
APPENDIX A - Internal Software Documentation
A-43
COMMON NAME: RET1
DESCRIPTION: Common area used to store an overall correction
factor accounting for air conditioning, extra load, trailer
towing, and humidity for NOx; for LDGV, LDGT1, LDGT2, and MC.
FORTRAN DEFINITION:
COMMON/RET1/ALHRET
VARIABLES AND ARRAYS:
NAME TYPE DIM
ALHRET(IDX,IVA,IP)
R 20*4*3
FMT DESCRIPTION
An overall correction factor
accounting for air conditioning,
extra load, trailer towing, and
humidity for NOx.
COMMON RET1
-------
APPENDIX A - Internal Software Documentation
A-44
COMMON NAME: SYSCOM
DESCRIPTION: Common area used to store system limits
FORTRAN DEFINITION:
COMMON/SYSCOM/MAXVEH.MAXLTW.MAXPOL.MAXREG.INITPR
VARIABLES AND ARRAYS:
NAME TYPE DIM FMT
MAXVEH I I
MAXLTW I I
MAXPOL I I
MAXREG I -- I
INITPR I -- I
DESCRIPTION
Number of different vehicle
types supported by the program.
Initialized to 8.
Maximum number of light duty
vehicles used in ALUH, excluding
motorcycles. Initialized to 3.
Number of
Initialized to 3.
pollutants.
Number of regions. Initialized
to 3.
Printout
indicator.
ini tialization
COMMON SYSCOM
-------
APPENDIX A - Internal Software Documentation
A-45
COMMON NAME:
TCFCOM
DESCRIPTION: Common area used to store low/hi temperature
correction factor coefficients. In the documentation below, IB
represents test sequence 1 to 3, IG is a model year group
subscript determined by using function IG =
IGPPTR(MY,IP,IREdN,IV), and IVT is a vehicle group subscript
stored in array IVPTRT(IV) in common IVPCOM.
FORTRAN DEFINITION:
COMMON/TCFCOM/TTACOF,TT4COF,TT7COF
VARIABLES AND ARRAYS
NAME TYPE DIM
FMT
TTACOF(MIDLOHI,IB,IG,IP,IVT
R 2*3*9*3*6
R
DESCRIPTION
A real array that contains
low/hi temperature correction
factor coefficients for vehicle
types 1,2,3,5,6,8. Nonstandard
subscripts correspond to the
following:
IVT Vehicle Type
1 1-LDGV.
2 2-LDGT1.
3 3-LDGT2.
4 5-LDDV.
5 6-LDDT.
6 8-MC.
MIDLOHI
0
1
2
No temperature
Lo temperature
Hi temperature
correction.
coefficient
coefficient
COMMON TCFCOM
-------
APPENDIX A - Internal Software Documentation
A-46
TT4COF(MIDLOHI,IG,IP)
R 2*9*3 R
TT7COF
MIDLOHI.IP
R 2*3
Lo/hi temperature correction
factor coefficients for vehicle
type 4 (HDGV).
Lo/hi temperature correction
factor coefficients for vehicle
type 7 (HDDV).
Equivalent arrays are used to initialize TTACOF and TT4COF. The
names of the equivalent arrays are constructed by replacing the
second character of "TTACOF" or "TT4COF" with the vehicle number
and the third character with the pollutant number. Thus, T63COF
initializes data for vehicle type 6 (LDDT) and pollutant 3
(NOx) .
COMMON TCFCOM
-------
APPENDIX A - Internal Software Documentation
A-47
COMMON NAME:
VMXCOM
DESCRIPTION: Common area used to store the VMT mix.
FORTRAN DEFINITION:
COMMON/VMXCOM/VMTMIX
VARIABLES AND ARRAYS:
NAME TYPE DIM
8
VMTMIXdV
R
FMT DESCRIPTION
R A real array used to store the
VMT mix.
COMMON VMXCOM
-------
APPENDIX A - Internal Software Documentation
A-48
COMMON NAME:
XCFS1
DESCRIPTION: Common area used to store optional light duty
vehicle correction factor data (LDGV, LDGT1, and LDGT2).
FORTRAN DESCRIPTION
COMMON/XCFS1/AC,XLOAD,TRAILR,ABSHUM,DB,WB
VARIABLES AND ARRAYS
NAME TYPE DIM FMT
AC R R
XLOAD(IVG)
R 3
TRAILR(IVG)
R 3
ABSHUM R
DB R
WB R
R
R
DESCRIPTION
Factor indicating optional use
of air conditioning correction
factor.
Fraction of vehicles with an
extra 500 Ibs. load.
Fraction of vehicles towing a
trailer.
Ambient absolute humidity
(grains of water per pound of
dry air).
Dry bulb temperature (degrees
Fahrenhei t).
Wet bulb temperature (degrees
Fahrenhei t).
COMMON XCFS1
-------
APPENDIX A - Internal Software Documentation A-49
COMMON NAME: YEARS4
DESCRIPTION: Common area used to store integral four-digit
values of specified years.
FORTRAN DEFINITION:
COMMON/YEARS4/IY1951,IY1970,IY2020
VARIABLES AND ARRAYS:
NAME TYPE DIM FMT DESCRIPTION
IY1951 I -- I Year 1951.
IY1970 I -- I Year 1970.
IY2020 I -- I Year 2020.
COMMON YEARS4
-------
APPENDIX A - Internal Software Documentation A-50
A.3 MODULE DESCRIPTIONS
MODULE NAME:
MAIN PROGRAM
DESCRIPTION:
MAIN controls overall program execution. It consists of a
sequence of subroutine calls.
MAIN first initiates "housekeeping" operations by a call to
INPUT. It then proceeds through a series of subroutine calls
which are listed below:
1. INPUT - to read input data describing desired
calculations.
2. EFCALX - to calculate emission factors.
3. OUTPUT - to output the emission factor calculations.
This sequence of calls is repeated until the input data set is
exhausted. There is an optional subroutine call to REGMOD
between the call to INPUT and the call to EFCALX which generates
new travel fractions when appropriate.
SUBORDINATE MODULES:
INPUT - Reads in data describing desired calculations.
REGMOD - Adjust model year mileage and registration arrays
for a January 1 calendar year analysis. Computes
travel fraction.
EFCALX - Calculates emission factors.
OUTPUT - Outputs all calculated emissions according to
output specifications.
COMMON AREAS USED:
FLGCOM
IOUCOM
REGCOM
NOTE: All common areas are declared in MAIN.
MAIN PROGRAM
-------
APPENDIX A - Internal Software Documentation
A-51
LOCAL VARIABLES:
NAME TYPE DIM FMT
INITFL I -- I
ICY
I
I
EFRETM(IP.IV)
R 3*9 R
WTEDEF(IP)
R 3 R
COMCCC(IV)
R 9
IDLRTMdP, IV)
R 3*9
IDLWTD(IP)
R 3
INERR
ICYOLD
ALTOLD
IROLD
COMMON VAR
ALT
IREJN
IOUERR
IRDFLG
I
I
R
I
IABLES USED:
R
I
I
I
I
I
R
I
R
I
I
I
DESCRIPTION
Flag indicating whether the ONE-
TIME data has been read by
routine INPUT.
Standard variable.
Calculated emission factors.
All vehicles combined emission
factors.
Crankcase and evaporative HC
emission factors.
Hot stabilized idle emission
factors.
All vehicles combined hot
stabilized idle emission
factors.
Error count.
Holding value for the previous
value of ICY.
Holding value for the previous
value of ALT.
Holding value for the previous
value of IREJN.
Common REGCOM.
Common REGCOM.
Common REGCOM.
Common FLGCOM.
MAIN PROGRAM
-------
APPENDIX A - Internal Software Documentation
A-52
MODULE NAME:
REAL FUNCTIONS BEF AND BEFIDL
DESCRIPTION:
BEF and BEFIDL determine the basic exhaust and idle model year
emission levels using the appropriate zero mile emission levels,
emission deterioration rates, and fleet average cumulative
mileages. These functions replace the MOBILE1 subroutine
BEFGEN.
SAMPLE CALL:
X = BEFJMY.ICY.IG.IP.IV.IR.VMTAGE.EXMVAL
X = BEFIDL(IG,IP,IV,IR,VMTAGE,EXMVAL)
ARGUMENTS:
NAME TYPE DIR DIM FMT
BEF R OUT -- R
BEFIDL R OUT --
MY
ICY
IG
IP
IN
IN
IN
IN
DESCRIPTION
A real function name that
returns a basic exhaust
emission level optionally
adjusted for methane and/or
i nspect ion/mai ntenance.
A real function name that
returns an idle emission
level optionally adjusted
for methane. No adjustments
are made for
inspection/maintenance.
An integer
contains the
year.
variable that
4-digit model
An integer variable that
contains the 4-digit
calendar year.
Model year group
function INDX3R.
from
An integer
contains
(pollutant)
Values are
variable that
an emission
index/code.
1=HC, 2=CO, and
FUNCTIONS BEF AND BEFIDL
-------
APPENDIX A - Internal Software Documentation
A-53
3=NOx.
IV
IR
I IN
I IN
VMTAGE R IN
EXMVAL R IN
R
R
An integer
contains a
code. IV
expected to
in the range
This variable
called IMODE in
program.
variable that
vehicle type
is currently
contain values
1 through 8.
was often
the MOBILE1
An integer variable that
contains a region code.
Current codes are as
follows:
1. 49-State Low altitude.
2. California Low altitude.
3. 49-State High altitude.
Average fleet vehicle miles
traveled/10,000..
Non-methane fraction of
total HC emissions.
SUBORDINATE MODULES:
PCLEFT -- Used by BEF to adjust the basic emission level for
Inspection/Maintenance.
COMMON AREAS USED:
BEF uses BASECM DELCOM
BEFIDL uses IDLBCM IDLDCM
LOCAL VARIABLES:
NAME TYPE DIM
--None--
FMT
DESCRIPTION
INPUT VARIABLES:
NAME METHOD
MY , ICY , IG , IP, IV,IR,VMTAGE,EXMVAL argument
FUNCTIONS BEF AND BEFIDL
-------
APPENDIX A - Internal Software Documentation A-54
BASE3R Common BASECM (BEF only)
DEL3R Common DELCOM (BEF only)
IDLB3R Common IDLBCM (BEFIDL only)
IDEL3R Common IDLDCM (BEFIDL only)
OUTPUT VARIABLES:
NAME METHOD
BEFIDL function name
BEF function name
FUNCTIONS BEF AND BEFIDL
-------
APPENDIX A - Internal Software Documentation
A-55
MODULE NAME:
REAL FUNCTION CCEVRT
DESCRIPTION:
CCEVRT determines the crankcase and evaporative HC emission
levels which are added to the basic HC emission levels in the
computation of the HC emission factors. This version makes use
of the miles travelled per day, trips per day, diurnal emission
levels, and hot soak emission levels in its calculations.
Function CCEVRT performs calculations previously performed by
subroutine CCEVAX in MOBILE1.
SAMPLE CALL:
X = CCEVRT(MY,IV,IR)
ARGUMENTS:
NAME TYPE DIR DIM
FMT
DESCRIPTION
CCEVRT R OUT --
MY
IV
I IN
I IN
IR
I IN
A real function name that
returns a crankcase and
evaporative . HC emission
1 eve 1.
An integer
contains the
year.
An integer
contains a
code. IV
expected to
variable that
4-digit model
variable that
vehicle type
is currently
contain values
in the range 1 through 8.
This variable was often
called IMODE in the MOBILE1
program.
An integer variable that
contains a region code.
Legitimate values are 1
through 3.
SUBORDINATE MODULES:
XMPD, TPD, CRANKC, DIURNL, HOTSOK
FUNCTION CCEVRT
-------
APPENDIX A - Internal Software Documentation
A-56
COMMON AREAS USED:
NONE
LOCAL VARIABLES:
NAME TYPE DIM
X R
INPUT VARIABLES:
NAME
MY,IV,IR
FMT DESCRIPTION
R Intermediate variable.
METHOD
arguments
OUTPUT VARIABLES:
NAME
CCEVRT
METHOD
function name
FUNCTION CCEVRT
-------
APPENDIX A - Internal Software Documentation
A-57
MODULE NAME:
REAL FUNCTIONS HOTSOK, TPD, DIURNL, XMPD, CRANKC
DESCRIPTION:
Real functions used by CCEVRT to determine crankcase and
evaporative HC emission level calculation terms.
SAMPLE CALL:
X1 = HOTSOK(MY,IV,IR)
X2 = TPF(MY,IV,IR)
X3 = DIURNL(MY,IV,IR)
X4 = XMPD(MY,IV,IR)
X5 = CRANKC(MY,IV,IR)
ARGUMENTS:
NAME
TYPE DIR DIM
HOTSOK R OUT --
TPD
XMPD
OUT --
DIURNL R OUT --
OUT --
FMT
DESCRIPTION
A real function name that
returns the hot soak
evaporative HC emission
level for the given model
year, vehicle type, region.
A real function name that
returns the miles per day
for the given model year,
vehicle type, region.
A real function name that
returns the diurnal
evaporative HC emission
level for the given model
year, vehicle type, region.
A real function name that
returns the miles per day
for the given model year,
vehicle type, region.
FUNCTIONS HOTSOK, TPD, DIURNL, XMPD, CRANKC
-------
APPENDIX A - Internal Software Documentation
A-58
CRANKC R OUT --
MY
IV
IR
I IN
I IN
I IN
A real function name that
returns the crankcase HC
evaporative emission level
for the given model year,
vehicle type, region.
An integer that contains the
4-digit model year.
An integer that contains a
vehicle type code.
An integer that
region code.
contains a
SUBORDINATE MODULES:
QUITER
COMMON AREAS USED:
HOTCOM used by HOTSOK
TPDCOIVI used by TPD
DIUCOM used by DIURNL
XMPCOM used by XMRD
CRACOM used by CRANKC
LOCAL VARIABLES:
NAME TYPE DIM FMT
IG I I
DESCRIPTION
An integer used to store a group
subscript for the coefficient
array.
FUNCTIONS HOTSOK, TPD, DIURNL, XMPD, CRANKC
-------
APPENDIX A - Internal Software Documentation
A-59
INPUT
VARIABLES:
NAME
MY.IV.IR
MAXHOT.HOTVAL.IHOTYS
MAXTPD.TPDVAL.ITPDYS
MAXDIU,DIUVAL,IDIUYS
MAXXMP,XMPVAL,IXMPYS
MAXCRA.CRAVAL.ICRAYS
METHOD
arguments
Common HOTCOMfHOTSOK only)
Common TPDCOM(TPD only)
Common DIUCOMfDIURNL only)
Common XMPCOM(XMPD only)
Common CRACOMfCRANKC only)
OUTPUT VARIABLES:
NAME
HOTSOK.TPD.DIURNL,
XMPD.CRANKC
METHOD
function names
FUNCTIONS HOTSOK, TPD, DIURNL, XMPD, CRANKC
-------
APPENDIX A - Internal Software Documentation
A-60
MODULE NAME;
REAL FUNCTION PCLEFT
DESCRIPTION:
PCLEFT determines the adjustment that is applied to the basic
exhaust emission levels for an inspection/maintenance program.
This function replaces the MOBILE1 subroutine LDVIMX.
Adjustments are determined for light duty gasoline vehicles and
optionally for light duty gasoline powered trucks; a value of
one is returned for other vehicles.
SAMPLE CALL:
X = PCLEFT(MY,ICY,IP,IV)
ARGUMENTS:
NAME TYPE DIR DIM
FMT
DESCRIPTION
PCLEFT R OUT --
MY
ICY
IP
IV
IN
IN
IN
IN
A real function name that
returns an
i nspect i on/ma i ntenance
adjustment term to the basic
exhaust emission level.
An integer variable that
contains the 4-digit model
year.
An integer variable that
contains the 4-digit
calendar year.
An integer
contains
(pollutant)
variable that
the emission
code.
An integer variable that
contains the vehicle type
code.
FUNCTION PCLEFT
-------
APPENDIX A - Internal Software Documentation
A-61
SUBORDINATE MODULES:
NONE
COMMON AREAS USED:
IMCOM
IMCRED
FLGCOM
LOCAL VARIABLES:
NAME TYPE DIM
AGE1ST I
BY I
IOP I
IOPT I
IREM I
ISTRN I
ITECH I
MT I
PCRED R
FMT
I
DESCRIPTION
Age at which the oldest vehicle
of a model year receives its
first required inspection.
The number of required
inspections encountered by the
oldest vehicles of a model year
as of January 1, ICY.
To realign the IOPT variable to
be in the 10 through 50 percent
range.
The user supplied Technology IV
identification rate. The
default is 50 percent and the
valid range is 50 through 90
percent.
The remainder of the stringency
or identification rate.
The user supplied stringency
rate for the Technology I and II
vehicle types.
The Technology vehicle type
(I,II, or IV).
To indicate the existence of
mechanics training (IMTFLG + 1;
1 = no, 2 = yes).
The percent the emission is
reduced due to an I/M program.
FUNCTION PCLEFT
-------
APPENDIX A - Internal Software Documentation
A-62
REM R R
INPUT VARIABLES:
NAME
MY, ICY, IP, IV
IMTFLG, ISTRIN ICYIM, MODYR1
MODYR2, ILDT, IOPTN, NUDATA,
NLINES, STRING
IRED, ITECH4
IMFLG
The remainder expressed as a
fraction (IREM/100).
METHOD
arguments
Common IMCOM
Common IMCRED
Common FLGCOM
OUTPUT VARIABLES:
NAME
PCLEFT
METHOD
function name
FUNCTION PCLEFT
-------
APPENDIX A - Internal Software Documentation
A-63
MODULE NAME:
POINTER FUNCTIONS
DESCRIPTION:
Integer functions to determine model year group subscripts for
MOBILE2 arrays. These functions replace arrays of the same name
in earlier versions of MOBILE1/MOBILE2. Function arguments are
related to, although not always exactly the same as, the
subscripts of the earlier arrays. These functions provide a
secondary index into MOBILE2 arrays. Use of a secondary index
permits a substantial reduction of what would otherwise be
extremely large data arrays. In the early versions of
MOBILE1/MOBILE2, the index arrays themselves were large.
Changing the arrays to functions (1) made it possible to use a
more natural method of identifying the model year and (2) made
it possible to substantially reduce the size of the index
arrays.
The following table lists the pointer functions, the name of the
array that each function indexes, the name of the common area
used by the function to compute the index, and a list of
subprograms that use the function.
FUNCTION
CALL
INDX3R(MY,IP,IV,IR
IGPPTR(MY,IP,IR,IV)
ISPPTR(MY,IR,IV)
ISPPT8(MY,IR,IP)
IEXMPT(MY,IV,IR)
IGEPTR(MY,IV,IR)
IGUPTR(MY,IV,IR)
IGLPTR(MY,IV,IR)
IGTPTR(MY,IV,IR)
IGSFPT(MY,IV,IR)
POINTER FUNCTIONS
ARRAYS
INDEXED
COMMON
USED
BASE3R.DEL3R,
IDLB3R.IDEL3R INDXCM
TTACOF.TT4COF,
GPACOF.GPBCOF PTRCOM
SPBACK ISPCOM
SPBACK ISPCOM
EXMETH BEFGCM
ACEQIP ALUPTR
ACCF ALUPTR
XLCF ALUPTR
TWCF ALUPTR
GSF GSFCOM
USING SUBPROGRAMS
EFALTX.EFCALX
BIGCFX
BIGCFX
BIGCFX
EFCALX
ALUH
ALUH
ALUH
ALUH
REGMOD, EFCALX
-------
APPENDIX A - Internal Software Documentation
A-64
ARGUMENTS:
NAME TYPE DIR DIM FMT
MY I IN -- I
IP
IR
IV
I
I
I
IN --
IN --
IN --
I
I
I
DESCRIPTION
An integer that contains the
4-digit model year.
An integer that contains the
emission (pollutant) code.
An integer that contains the
region code.
An integer that contains the
vehicle type code.
SUBORDINATE MODULES:
QUITER
LOCAL VARIABLES:
NAME TYPE DIM FMT
IG I I
DESCRIPTION
Standard variable,
POINTER FUNCTIONS
-------
APPENDIX A - Internal Software Documentation
A-65
MODULE NAME:
SUBROUTINE ALUH
DESCRIPTION:
Subroutine to compute three correction factors for light duty
gasoline powered vehicles and trucks; and humidity for light
duty gasoline vehicles, light duty gasoline trucks, and
motorcycles:
1. Air conditioning correction factor.
2. Extra load correction factor.
3. Trailer towing correction factor.
4. Humidity correction factor (applies to NOx only).
SAMPLE CALL:
CALL ALUH(ICY.IR)
ARGUMENTS:
NAME
ICY
IR
TYPE DIR DIM
I IN --
I IN --
FMT
I
I
DESCRIPTION
Calendar year
Region.
SUBORDINATE MODULES:
IGEPTR,IGUPTR,IGLPTR,IGTPTR
COMMON AREAS USED:
LNKCOM ALUCOM SYSCOM
RET1 XCFS1
LOCAL VARIABLES:
NAME TYPE DIM
FMT
DESCRIPTION
SUBROUTINE ALUH
-------
APPENDIX A - Internal Software Documentation
A-66
ACU
DIHI
Fraction of vehicles that are
equipped with air conditioning
and using it.
HHH
MY
IVP
IP
TT
HH
XLU
TWLI
IDX
IGLI
IGE.
IGL
IGT
DI
DILO
R
I
I
I
R
R
R
R
I
I
I
I
I
R
R
R
I
I
I
R
R
R
R
I
I
I
I
I
R
R
NOx humidity correction factor.
Standard variable.
Vehicle type pointer.
Standard variable.
Temperature difference (ambient
less 75 deg F) .
NOx Humidity correction factor.
Fraction of vehicles with an
extra load.
Fraction of vehicles towing a
trai ler .
Standard variable.
A/C correction factor
coefficients group pointer.
Fraction A.C. equipped (group
pointer ) .
Fraction extra load (group
pointer ) .
Fraction trailer towing (group
pointer ) .
Discomfort index.
Discomfort index below which
A.C. is off (
use,
Discomfort index above
A.C. is on (100% use).
which
INPUT VARIABLES:
NAME
ICY, IR
AC, XLOAD, TRAILR, ABSHUM
SUBROUTINE ALUH
METHOD
argument
Common XCFS1
-------
APPENDIX A - Internal Software Documentation A-67
DB, WB Common XCFS1
MAXLTW Common SYSCOM
TANIB Common LNKCOM
OUTPUT VARIABLES:
NAME METHOD
ALHRET Common RET1
AC Common XCFS1
SUBROUTINE ALUH
-------
A-68
APPENDIX A - Internal Software Documentation
MODULE NAME:
SUBROUTINE BIGCFX
DESCRIPTION:
Subroutine to determine a correction factor that is applied to
the basic exhaust emission levels, The correction factor
provides a correction for speed, temperature, humidity, trailer
towing, extra load, air conditioning, and percent vehicle-miles-
travelled in cold/hot starts.
SAMPLE CALL:
CALL BIGCFX (ICY,IR.CFRET
ARGUMENTS:
NAME TYPE DIR DIM FMT
ICY I IN -- I
IR
I IN
I
CFRET(IDX,IP,IV)
R OUT 20*3*8 R
COMMON AREAS USED:
FLGCOM, XCFS1, RET1, SYSCOM,
CUMCOM
DESCRIPTION
An integer that contains the
4-digit calendar year.
An integer that contains the
region code.
An array that returns
combined correction factors
for the region.
IVPCOM, TCFCOM, GPCCOM, LNKCOM,
SUBORDINATE MODULES:
SPFCLX,ALUH,IGPPTR,ISPPTR,ISPPT8
LOCAL VARIABLES:
NAME TYPE DIM
NCATYRdV!
I
8
FMT
I
SUBROUTINE BIGCFX
DESCRIPTION
An integer array used to store
the last non-catalyst model year
-------
A-69
APPENDIX A - Internal Software Documentation
FCN
FHC
FCC
FHN
MDLOHI
R
R
R
R
I
R
R
R
R
I
Fraction
catalyst )
Fraction
(catalyst
Fraction
(catalyst
Fraction
catalyst )
An intege
TCF(IB) R 3
SADJ R
SCF
SCFADJ(IP.IVA)
R 3*4
ISPGRPIIP.IVA)
R 3*4 R
IDX I
JDX I
IVG I
for the eight vehicle types.
VMT cold start (non-
VMT
VMT
hot
cold
start
start
VMT hot start (non-
the low, middle, or high
temperature correction is to be
applied. MDLOHI is given a
value of 0 for mid, 1 for low,
and 2 for high.
A real vector used to store a
temperature correction factor
for each bag emission.
The speed represented by the
percentage of VMT in a 26 mph
cold start, a 26 mph hot start,
and a 16 mph stabilized mode.
An intermediate accumulator
whose final value is stored in
SCFADJ.
An adjustment to the speed
correction factor SPBACK; the
adjustment is for the change in
speed from 19.6 mph to SADJ.
The speed coefficient group last
used for the given vehicle-
Saving this
the necessi ty
SCFADJ for
type/pollutant.
value eliminates
of recalculating
every model year.
Standard variable.
Standard variable.
An integer used as a vehicle
group pointer into arrays
SUBROUTINE BIGCFX
-------
A-70
APPENDIX A - Internal Software Documentation
IVB
IVT
IVA
I
I
I
IS
ISAVE I
CHFRAC(IB)
R 3
SPDGPB R
XMILES R
S R
BAGSUM R
IB
TT
I
R
R
R
R
R
SPBACK(IS,IP,IV)
R 18*3*8 R
I
R
GPACOF, and ISPPTR.
An integer used as a vehicle
group pointer into array GPBCOF.
An integer used as a vehicle
group pointer into array TTACOF.
An integer used as a vehicle
group pointer into arrays
ALHRET, SCFADJ, and ISPGRP.
An integer used as a model year
group pointer into array SPBACK
for LOG.
Temporary storage for model year
group pointer.
An array used to store the cold
/ stabilized / hot VMT fractions
for a given vehicle type / model
year,
An accumulator used
speed expressions.
to store
A real variable used to store
the accumulated miles per IDX,
IV.
A real variable used to store
the vehicle speed.
A real variable used to store
accumulated bag correction
factors.
An array used to store speed
correction factors, which adjust
emissions at 19.6 mph to
emissions at the user input
speed.
An integer variable used to
store the bag number subscript.
A real variable used to store
the temperature in degrees
Fahrenheit for the temperature
correction factors.
SUBROUTINE BIGCFX
-------
A-71
APPENDIX A - Internal Software Documentation
INPUT VARIABLES:
NAME
ICY.IR
ALHFLG
SPD,TAMB,PCCN,PCHC,PCCC
MAXPOL, MAXVEH
IVPTRG,IVPTRT,IVPTRA,IVPTRB
TTACOF,TT4COF,TT7COF
GPACOF.GPBCOF
CUMMIL
METHOD
arguments
Common FLGCOM
Common LNKCOM
Common SYSCOM
Common IVPCOM
Common TCFCOM
Common GPCCOM
Common CUMCOM
OUTPUT VARIABLES
NAME
CFRET
METHOD
arguments
SUBROUTINE BIGCFX
-------
APPENDIX A - Internal Software Documentation
A-72
MODULE NAME:
BLOCK DATA SUBPROGRAMS 1 TO 21
DESCRIPTION:
The following table lists the common areas, variables, and
arrays initialized by each block data subprogram. The
documentation for the individual common areas contains more
information about the variables and arrays.
Note: Array names enclosed in square brackets are arrays that
are EQUIVALENCEd to portions of the previously listed array(s).
These bracketed arrays are local to the BLOCK DATA and are
solely for convenience during data initialization.
BLOCK DATA NO.
1
COMMON VARIABLES AND ARRAYS
ACOM AIN1.AIN2.AIN3,
[A11,A12(A21,A22,A31,A32]
MYMSAV SAVMYM,SAVMYR
VMXCOM VMTMIX
INDXCM INDXYR
[INDX49,INDXCA,INDXHI]
[IN49V1...IN49V8]
[INCAV1...INCAV8]
[INHIV1...INHIV8]
BASECM BASE3R
[BASE49,BASECA,BASEHI]
[B41,B42,BC1,BC2,BH1,BH2]
DELCOM DEL3R
[DEL49.DELCA,DELHI]
[D41.D42.DC1,DC2,DH1,DH2]
IDLBCM IDLB3R
[IDLB49.IDLBCA.IDLBHI]
[IB41,IB42,IBC1,IBC2]
IIBH1.IBH2]
IDLDCM IDEL3R
[IDEL49,IDELCA,IDELHI]
[IL41,IL42,ILC1,ILC2,]
BLOCK DATA SUBPROGRAMS
-------
APPENDIX A - Internal Software Documentation
A-73
8
10
11
12
13
[ILH1.ILH2]
IMCRED IRED.ITECH4
[R1 thru R20]
[T1 thru T5]
BEFGCM EXMETH.IEXMYR.IEXMET1],
[EXMET2,EXMET3,IEXMY11]
[IEXNIY2.IEXMY3]
HOTCOM MAXHOT,HOTVAL,IHOTYS
[HOTVA1.HOTVA2.HOTVA3]
IIHOTY1,IHOTY2,IHOTY3]
TPDCOM MAXTPD.TPDVAL.ITPDYS
[TPDVA1,TPDVA2fTPDVA3]
[ITPDY1,ITPDY2,ITPDY3]
DIUCOM MAXDIU.DIUVAL.IDIUYS
[DIUVA1.DIUVA2.DIUVA3]
[IDIUY1,IDIUY2,IDIUY3]
XMPCOM MAXXMP.XMPVAL.IXMPYS
[XMPVA1,XMPVA2,XMPVA3]
[IXMPY1,IXMPY2,IXMPY3]
CRACOM NIAXCRA.CRAVAL.ICRAYS
[CRAVA1,CRAVA2,CRAVA3]
[ICRAY1.ICRAY2,ICRAY3]
YEARS4 IY1951.IY1970.IY2020
14
15
ALTEQU
SYSCOM
IVPCOM
TCFCOM
GPCCOM
MAXEQU
MAXVEH.MAXLTW.MAXPOL,
MAXREG.INITPR
IVPTRG,IVPTRT,IVPTRA,IVPTRB
TTACOF
[T11COF
[T21COF
[T31COF
[T51COF
[T61COF
[T81COF
.TT4COF,
,T12COF,
.T22COF,
,T32COF,
.T52COF,
,T62COF,
.T82COF,
TT7COF
T13COF]
T23COF]
T33COF]
T53COF]
T63COF]
T83COF]
GPACOF.GPBCOF
[GPAC11,GPAC12,GPAC13]
[GPAC21,GPAC22,GPAC231
[GPAC31,GPAC32,GPAC33]
[GPAC51.GPAC52.GPAC53]
[GPAC61,GPAC62,GPAC631
BLOCK DATA SUBPROGRAMS
-------
APPENDIX A - Internal Software Documentation
A-74
16
17
18
19
20
21
IGPAC81.GPAC82.GPAC83]
[GPBC04,GPBC05,GPBC06,]
[GPBC07]
PTRCOM IGPYRS.MAXIGP
[IGPYR1...IGPYR8]
ISPCOM ISPYRS.ISPYR8
[ISPYR1,ISPYR2,ISPYR3]
ALUCOM ACEQIP,ACCF,XLCF,TWCF
[XLCF1,XLCF2,XLCF3,]
[TWCF1.TWCF2.TWCF3]
ALUPTR IGEYRS,IGUYRS,IGLYRS,
IGTYRS
GSFCOM MAXGSF.GSF.IGSFYR
[GSF1,GSF2,GSF3,]
[IGSFY1,IGSFY2,IGSFY3]
IOUCOM IOUIMD.IOUGEN.IOUREP
IOUERR.IOUASK.IOUUNF
BLOCK DATA SUBPROGRAMS
-------
APPENDIX A - Internal Software Documentation
A-75
MODULE NAME:
SUBROUTINE CCEVAX
DESCRIPTION:
Subroutine to move user supplied trip per day and miles per day
data from the "working" Common CEVCOM to Commons XMPCOM and
TPDCOM. In MOBILE1, CCEVAX computed crankcase and evaporative
HC emission factors. That function is performed in MOBILE2 by
CCEVRT.
SAMPLE CALL:
CALL CCEVAX
ARGUMENTS:
NAME TYPE DIR DIM
NONE •
FMT
DESCRIPTION
SUBORDINATE MODULES:
NONE
COMMON
AREAS
USED:
FLGCOM
CEVCOM
YEARS4
SYSCOM
LOCAL VARIABLES
NAME TYPE DIM
I I
IV I
IR I
XMPCOM
TPDCOM
FMT
I
I
I
DESCRIPTION
Loop index.
Standard variable,
Standard variable.
SUBROUTINE CCEVAX
-------
APPENDIX A - Internal Software Documentation
A-76
INPUT VARIABLES:
NAME
MAXVEH, MAXREG
IY2020
USRTPD, USRMPD
MAXXMP
MAXTPD
OUTPUT VARIABLES:
NAME
XMPVAL, IXMPYS
TPDVAL, ITPPYS
METHOD
Common SYSCOM
Common YEARS4
Common CEVCOM
Common XMPCOM
Common TPDCOM
METHOD
Common XMPCOM
Common TPDCOM
SUBROUTINE CCEVAX
-------
APPENDIX A - Internal Software Documentation A-77
MODULE NAME:
SUBROUTINE EFALTX
DESCRIPTION:
EFALTX is designed to allow the user to modify the model year
basic exhaust emission rates used in computing the emission
factors. This is useful, for example, in estimating the impacts
of changes in new vehicle emission standard timetables. EFALTX
also zeroes out the idle emission rates which would correspond
to the vehicle type, region, and pollutant of the altered basic
exhaust emission rates,
SAMPLE CALL:
CALL EFALTX(INERR)
ARGUMENTS:
NAME TYPE DIR DIM FMT DESCRIPTION
INERR I IN I Program error count
SUBORDINATE MODULES:
QUITER, INDX3R
COMMON AREAS USED:
ALTCOM
INDXCM
BASECM
DELCOM
ALTEQU
SYSCOM
IDLBCM
IDLDCM
SUBROUTINE EFALTX
-------
APPENDIX A - Internal Software Documentation
A-78
LOCAL VARIABLES
NAME TYPE DIM FMT
IFAC
I
IEQU I
NEWPTR I
IV
IR
IP
T - -
T - -
I
I
I
I
DESCRIPTION
Counter for number of input zero
mile and deterioration rate
pairs.
Loop index to zero the idle
equations.
Subscript where the new equation
will be inserted, or zero if no
space.
Standard variable.
Standard variable.
Standard variable.
INPUT VARIABLES:
NAME
NEWFAC, INTALT, R4ALT
MAXEQU
OUTPUT VARIABLES
NAME
MODFLG
BASE3R
DEL3R
IDLB3R
IDEL3R
INDXYR
METHOD
Common ALTCOM
Common ALTEQU
METHOD
Common
Common
Common
Common
Common
Common
ALTCOM
BASECM
DELCOM
IDLBCM
IDLDCM
INDXCM
SUBROUTINE EFALTX
-------
APPENDIX A - Internal Software Documentation
A-79
MODULE NAME:
SUBROUTINE EFCALX
DESCRIPTION:
EFCALX computes the emission factors. It first calls BIGCFX,
which computes the speed/temperature/cold-hot start correction
factors.
SAMPLE CALL:
CALL EFCALX (ICY.EFRETM.WTEDEF.COMCCC,IDLRTM,IDLWTD,INERR)
ARGUMENTS:
NAME TYPE DIR DIM
ICY I IN --
EFRETM(IP.IV)
R OUT 3*9
FMT
I
WTEDEF(IP)
R OUT 3
COMCCC(IV)
R OUT 9
IDLRTM(IP.IV)
R OUT 3*9 R
IDLWTD(IP)
R OUT 3
INERR R OUT -•
SUBROUTINE EFCALX
DESCRIPTION
Calendar year.
Emission factors (g/mile)
for vehicle type IV and
pollutant IP. Note: The
subscript IV=9 is used for
combined LDGTs
(=LDGT1+LDGT2).
Emission
vehicle
(g/mile).
factor
types
for all
comb i ned
Crankcase and evaporative HC
emission factors (g/mile)
for vehicle type IV.
Hot stabilized idle emission
factors (g/minute) for
vehicle type IV and
pollutant IP.
Hot stabilized idle emission
factors for all vehicle
types combined (g/minute).
Program error count.
-------
APPENDIX A - Internal Software Documentation
A-80
SUBORDINATE MODULES:
GETCUM
BIGCFX
BEF
BEFIDL
CCEVRT
IGSFPT
IEXMPT
QUITER
INDX3R
COMMON AREAS USED:
FLGCOM
REGCOM
MYMCOM
CUMCOM
SYSCOM
VMXCOM
GSFCOM
BEFGCNI
LOCAL VARIABLES:
NAME TYPE DIM FMT
IR I I
IV I I
IP I I
CFRET(IDX,IP,IV,IR)
R 20*3*8*2
COMPCC R
SUBROUTINE EFCALX
DESCRIPTION
Standard variable.
Standard variable.
Standard variable.
Correction factor for
speed/temperature/cold-hot
start. The final dimension
(region) is equal to 2 to
accomodate intermediate
altitude. In this case, the
subscript 1 will be used for low
altitude, and the subscript 2
for high altitude.
Crankcase and evaporative HC
emission factor for a given
vehicle-type / model-year /
-------
APPENDIX A - InternalSoftware Documentation
A-81
COMPEF R
IDLFAC R
INITFL I
JREJN I
IGS I
IEX I
X23 R
INDX1 I
VMTAGE R
EXMVAL R
INPUT VARIABLES:
NAME
ICY
TF
MAXVEH, MAXPOL
ALT, IREJN
ALTFLG
VMTMIX
GSF, IGSFYR
EXMETH, IEXMYR
OUTPUT VARIABLES
NAME
SUBROUTINE EFCALX
R
R
I
I
I
R
I
R
R
calendar-year.
Emission factor for a given
vehicle-type / pollutant /
model-year / calendar-year.
Idle emission factor for a given
vehicle-type / pollutant /
model-year / calendar-year.
An integer used to indicate that
subroutine GETCUM has been
ca11ed.
An integer used as a local
variable to indicate region.
An integer used as a group
subscript for array GSF.
An integer used as a group
subscript for array EXMETH.
A real variable equal to the sum
of VMTMIX(2) + VMTMIX(S).
Group pointer value returned
from INDX3R.
Cumulative vehicle
travelled/10,000.
mi les
Non-methane HC fraction for a
given vehicle-type / model-year
7 region.
METHOD
argument
Common MYMCOM
Common
Common
Common
Common
Common
Common
METHOD
SYSCOM
REGCOM
FLGCOM
VMXCOM
GSFCOM
BEFGCM
-------
APPENDIX A - Internal Software Documentation A-82
EFRETM, WTEDEF, COMCCC arguments
IDLRTM, IDLWTD, INERR
SUBROUTINE EFCALX
-------
APPENDIX A - Internal Software Documentation
A-83
MODULE NAME:
SUBROUTINE GETCUM
DESCRIPTION:
GETCUM calculates the January 1 cumulative average mileages for
the eight vehicle type fleets.
These values are used in BEF and BEFIDL to compute model year
emission factors, and in BIGCFX to compute
speed/temperature/cold-hot start correction factors.
SAMPLE CALL:
CALL GETCUM
ARGUMENTS:
NAME TYPE DIR DIM FMT
NONE
DESCRIPTION
SUBORDINATE MODULES:
NONE
COMMON AREAS USED:
MYMCOM
CUMCOM
SYSCOM
LOCAL VARIABLES:
NAME TYPE DIM
FMT
DESCRIPTION
IV
IDX
Standard variable,
Standard variable,
SUBROUTINE GETCUM
-------
APPENDIX A - Internal Software Documentation A-84
OUTPUT VARIABLES:
NAME METHOD
CUMMIL. Common CUMCOM
INPUT VARIABLES:
NAME METHOD
XMYM Common MYMCOM
MAXVEH Common VEHCOM
SUBROUTINE GETCUM
-------
APPENDIX A - Internal Software Documentation
A-85
MODULE NAME:
SUBROUTINE INPUT
DESCRIPTION:
Subroutine to read the input data for MOBILE2. It optionally
prompts for this data, if the appropriate flag is set.
SAMPLE CALL:
CALL INPUT(INITFL,ICY,INERR)
ARGUMENTS:
NAME TYPE DIR DIM FMT
INITFL I I/O -- I
ICY I OUT -- I
INERR I OUT -- I
DESCRIPTION
Indicator to read CONTROL
and ONE-TIME DATA Sections
(INITFL=1) or PARAMETER
Section (INITFL=0).
Calendar year.
An integer variable that
returns the number of input
errors detected by INPUT.
SUBORDINATE MODULES:
QUITER
YRTEST
NEWDAT
EFALTX
OUTHDR
CCEVAX
COMMON AREAS USED:
FLGCOM
LNKCOM
ALTCOM
XCFS1
SYSCOM
PROJCM
IMCOM
REGCOM
YEARS4
MYMSAV
VMXCOM
CEVCOM
IOUCOM
SUBROUTINE INPUT
-------
APPENDIX A - Internal Software Documentation
A-86
LOCAL VARIABLES:
NAME TYPE DIM
BASNEW R
DELNEW R
(I,J,L,M,N)
I
X and SUM
R
IFAC I
IMDALT I
INFLAG I
IPLALT I
IPROMT I
IRGALT I
MYFRST I
MYLAST I
NAMMMR(4,2,8)
I 4*2*8
FMT DESCRIPTION
User supplied zero mile basic
exhaust emission level
(grams/mile).
User supplied emission
deterioration rate per 10,000
miles (grams/mile/10K miles).
I General integer work variables.
R General real work variables.
Counter for number of input zero
mile and deterioration rate
pairs.
I Temporary storage location for
vehicle type.
I Chooses type of FORTRAN READ,
i.e. list directed or formatted
(formatted read is always used
unless program alterations are
made).
I Temporary storage location for
pollutant.
I Flag which indicates
prompt ing/non-prompt ing option
and CONTROL Section input
format.
I Temporary storage location for
region.
I Temporary storage location for
first model year of altered
emission rates.
I Temporary storage location for
last model year of altered
emission rates.
A4 Prompting messages for XMYM/XMYR
input.
SUBROUTINE INPUT
-------
APPENDIX A - Internal Software Documentation
A-87
IVP I
VMFLAG I
TRKFLG I
IDUM I
INPUT VARIABLES:
NA ME
INITFL
MAXVEH, MAXLTW
Loop index used in conjunction
with MAXLTW.
Flag used to indicate whether or
not to read user VMT mix.
Flag for truck parameter input
(ignored, but preserved for
MOBILE1 compatibility).
IPRSAV
IOUNEW
IOUREF
IOUOLD
JUNIT
IOUSUM
UNFFLG
I
(4)
I 4
(9)
I 9
(4)
I 4
I
I
I
I
I
A
I
I
I
I
Temporary storage for
value.
Input/Output unit numbers
IPROMT
•
Character representations of
integers 1 through 9.
Input/Output unit numbers
Working value of a gi
uni t .
Sum of I/O unit numbers.
Flag for unformatted
•
ven I/O
output
(ignored, but preserved for
MOBILE1 compatibility).
A4 Dummy input variable.
METHOD
argument
Common SYSCOM
IOUGEN,IOUASK,IOUREP,IOUERR,IOUUNF Common IOUCOM
IY1951, IY1970, IY2020 Common YEARS4
OUTPUT VARIABLES:
NAME
INITFL,INERR,ICY
METHOD
argument
SUBROUTINE INPUT
-------
APPENDIX A - Internal Software Documentation
A-88
SPDFLG.MYMRFG,
ALTFLG.IMFLG.ALHFLG,
IFORM,PRTFLG,ICEVFG,
IDLFLG.NMHFLG.MDEFLG,IRDFLG
SPD,TAMB,PCCN
PCHC.PCCC
SAVMYM.SAVMYR
NEWFAC,INTALT,R4ALT,MODFLG
ICYIM,ISTRIN,IMTFLG
MODYR1,MODYR2,1 LOT,IOPTN,NUDATA
IREJN,,ALT
AC,XLOAD,TRAILR,ABSHUM,DB,WB
PROJIt)
IOUREP, IOUERR, IOUASK, IOUUNF
Common FLGCOM
Common LNKCOM
Common MYMSAV
Common ALTCOM
Common IMCOM
Common REGCOM
Common XCFS1
Common PROJCM
Common IOUCOM
SUBROUTINE INPUT
-------
APPENDIX A - Internal Software Documentation
A-89
MODULE NAME:
SUBROUTINE NEWDAT
DESCRIPTION:
Subroutine to read user supplied inspection/maintenance credits
for Technology types I, 1I,£ IVj and associated text from unit 4.
SAMPLE CALL:
CALL NEWDAT(IRDFLG)
ARGUMENTS:
NAME TYPE DIR DIM FMT
IRDFLG I OUT -- I
DESCRIPTION
An integer that returns a
status code to the calling
modu1e.
SUBORDINATE MODULES:
NONE
COMMON AREAS USED:
IMCRED, IMCOM, IOUCOM
LOCAL VARIABLES:
NAME TYPE DIM FMT
AGE1ST I -- I
BY
IP I
ISTRN I
DESCRIPTION
The age at which the oldest
vehicle of a model year receives
its first required inspection.
The number of required
inspections encountered by the
oldest vehicle of a model year
as of January 1, ICY.
Pollutant code.
Stringency.
SUBROUTINE NEWDAT
-------
APPENDIX A - Internal Software Documentation
A-90
ITECH I
INPUT VARIABLES:
NAME
IOUIMD, IOUERR
NUDATA
Technology type.
METHOD
Common IOUCOM
Common IMCOM
OUTPUT VARIABLES:
NAME
NLINES
IRDFLG
IRED, ITECH4
STRING
METHOD
Common IMCOM
argument
Common IMCRED
Common IMCOM
SUBROUTINE NEWDAT
-------
APPENDIX A - Internal Software Documentation
A-91
MODULE NAME:
SUBROUTINE OUTPUT, OUTHDO...OUTHD4,
OUTALT, OUTMTH, OUTPOL, OUTIMP
OUTDTO...OUTDT4, OUTHDR
DESCRIPTION:
Subroutines to print formatted reports. Subroutine OUTPUT is
the highest level module. OUTPUT selects and calls appropriate
subordinate subroutines OUTHD<0-4> and OUTDT<0-4>, where <0-4>
represents one numeric character '0' thru '4' in the subroutine
name. OUTPUT selects and calls the subroutine that has a final
character in the subroutine name that corresponds to the value
of variable IFORM, IFORM = 0 thru 4.
The report header subroutines OUTHD<0-4> all call subroutine
OUTHDR to print a scenario title. Header subroutines OUTHD1,
OUTHD3, and OUTHD4 also call subroutine OUTMTH. OUTHD1, OUTHD3
and OUTHD4 call OUTALT to print the alternative equations if
ALTFLG = 1.
The report detail subroutines OUTDT<0-4> print report details.
These subroutines call subroutine OUTPOL to set do-loop indices
for the number of pollutants to be printed.
The report header subroutines OUTHD<0-4> all call subroutine
OUTHDR to print a scenario title. Header subroutines OUTHD1,
OUTHD3, and OUTHD4 call OUTMTH to prepare report text to
indicate that hydrocarbon emission factors are non-methane or
total hydrocarbon. OUTMTH also prints a message to indicate
that hydrocarbon emission factors include crankcase and
evaporative HC emissions.
Subroutines
call OUTPOL
be printed.
I/M program
OUTDT<0-4> print report details
to determine do-loop indices for
OUTDT1, OUTDT3, and OUTDT4 call
data when IMFLG equals one.
These subroutines
the pollutants to
OUTIMP to print the
SAMPLE CALL:
CALL OUTPUT(ICY,EFRETM,WTEDEF,COMCCC,IDLRTM,IDLWTD'
CALL OUTHDO
CALL OUTHD1
CALL OUTHD2
CALL OUTHD3
CALL OUTHD4
CALL OUTDTOi
CALL OUTDT1I
CALL OUTDT2i
ICY.EFRETM.WTEDEF.COMCCC.IDLRTM.IDLWTD;
ICY.EFRETM.WTEDEF.COMCCC.IDLRTM.IDLWTD;
ICY,EFRETM,WTEDEF,COMCCC,IDLRTM,IDLWTD;
OUTPUT SUBROUTINES
-------
APPENDIX A - Internal Software Documentation
A-92
CALL OUTDT3(ICY,EFRETM,WTEDEF,COMCCC,IDLRTM,IDLWTD)
CALL OUTDT4( ICY,EFRETNI,WTEDEF .COMCCC, IDLRTM, IDLWTD)
CALL OUTHDR(IOUOUT)
CALL OUTALT
CALL OUTMTH
CALL OUTPOL(IP1,IP2)
CALL OUTIMP
ARGUMENTS:
NAME TYPE DIR DIM FMT
ICY I IN -- I
EFRETM(IP,IV)
R IN 3*9 R
WTEDEF(IP)
R IN ' 3 R
COMCCC(IV)
R IN 9
IDLRTM(IP.IV)
R IN 3*9 R
IDLWTD(IP)
R IN 3
IP1 I OUT --
IP2 I OUT --
DESCRIPTION
Calendar year.
Emission factors (g/mile)
Emission
vehicle
(g/mile).
factors
types
for all
comb i ned
IOUOUT I IN
CranKcase and evaporative HC
emission factors (g/mile).
Hot stabilized idle emission
factors (g/minute).
Hot stabilized idle emission
factors for all vehicle
types combined (g/minute).
An integer that returns the
lower do-loop pollutant
index of the pollutants to
be printed.
An integer that returns the
upper do-loop pollutant
index of the pollutants to
be printed.
Unit number for output.
The following table lists subordinate modules and common areas
used by each output subroutine.
OUTPUT SUBROUTINES
-------
APPENDIX A - Internal Software Documentation
A-93
SUBROUTINE CALLS
OUTPUT OUTHD<0-4>, OUTDT<0-4>
COMMON
FLGCOM,
SYSCOM
ALTCOM
REGCOM
OUTHDO
OUTHD1
OUTHD2
OUTHD3
OUTHD4
OUTDTO
OUTDT1
OUTDT2
OUTDT3
OUTHDR
OUTHDR.OUTALT.OUTIVITH
OUTHDR
OUTHDR.OUTALT.OUTMTH
OUTHDR.OUTALT.OUTMTH
OUTPOL '
OUTPOL.OUTIMP
OUTPOL
OUTPOL,YROUT.OUTIMP
IOUCOM
FLGCOM,
IOUCOM
SYSCOM,
IOUCOM
FLGCOM,
IOUCOM
FLGCOM,
IOUCOM
FLGCOM,
REGCOM,
LNKCOM,
VMXCOM,
SYSCOM,
IOUCOM
FLGCOM,
REGCOM,
LNKCOM,
VMXCOM,
XCFS1,
SYSCOM,
IOUCOM
FLGCOM,
REGCOM,
LNKCOM,
VMXCOM,
SYSCOM,
IOUCOM
FLGCOM,
REGCOM,
LNKCOM,
VMXCOM,
XCFS1,
SYSCOM,
IOUCOM
OUTPUT SUBROUTINES
-------
APPENDIX A - Internal Software Documentation
A-94
OUTDT4
OUTPOL, OUTIMP
OUTHDR
OUTALT
OUTMTH
OUTPOL
OUTIMP
— —
--
--
__
--
LOCAL VARIABLES:
NAME
IFAC
IP
ICY
NOYES(
NAMTOT
NAMNON
NAMOUT
IV
IVP
TYPE DIM
I
I
I
2)
R 2
(2)
I 2
(2)
I 2
(2)
I 2
I
I
FMT
I
I
I
A4
A4
A4
A4
I
I
MAXV I
OUTPUT SUBROUTINES
FLGCOM,
REGCOM,
LNKCOM,
VMXCOM,
XCFS1,
SYSCOM,
IOUCOM
SYSCOM,
PROJCM
SYSCOM,
ALTCOM,
IOUCOM
FLGCOM,
FLGCOM,
SYSCOM
IMCOM,
IOUCOM
DESCRIPTION
Counter for number of input zero
mile and deterioration rate
pairs,
Standard variable.
2-digit calendar year.
Literals "YES " and "NO ".
Literal "TOTAL".
Literal "NON-METH".
Contains either NAMTOT or NAMNON
Standard variable.
Vehicle type pointer for light
duty gasoline types.
Equals MAXVEH+1.
-------
APPENDIX A - Internal Software Documentation
A-95
ITAMB I -- I
I and II and JJ
I -- I
NAMNMH(2,2)
I 2*2 A4
NAMPOLO)
I 3 A4
IFORMX I -- I
NAMVEH I
Rounded integer ambient
temperature.
Loop indices.
Title "TOTAL" or "NO-MTH"
Pollutant names.
Equals IFORM+1 for a computed
GOTO.
Vehicle names. The dimension
and format are specific to each
report:
NAMREG I **
I NO
I
**
6 A4 for IFORM = 0
2*9 2A4 IFORM = 1
6 A4 IFORM = 2
2*10 2A4 IFORM = 3
2*10 2A4 IFORM = 4
Region names. The dimension and
format are specific to each
report.
**
2*6 A4 for IFORM
4*6 A4 for IFORM
4*6 A4 for IFORM
Subscript for NOTES
2
3
4
INPUT VARIABLES:
NAME
ICY,IDLWTD,IDLRTM,EFRETM,WTEDEF,
COMCCC
NMHFLG,MDEFLG,ALTFLG,IFORM
SPDFLG.IMFLG.PRTFLG
PROJID
NEWFAC,INTALT,MODFLG,R4ALT
METHOD
argument
Common FLGCOM
Common PROJCM
Common ALTCOM
OUTPUT SUBROUTINES
-------
APPENDIX A - Internal Software Documentation
A-96
SPD.TEMP,
PCCN.PCHC.PCCC
AC.XLOAD.TRAILR.ABSUM.TLO.THI
ICYIM,ISTRIN,MODYR1.MODYR2
IREJN.ALT
VMTMIX
IOUREP
MAXVEH.MAXPOL.INITPR
Common LNKCOM
Common XCFS1
Common IMCOM
Common REGCOM
Common VMXCOM
Common IOUCOM
Common SYSCOM
OUTPUT VARIABLES:
NAME
INTACT
IDLWTD
INITPR
METHOD
Common ALTCOM
arguments (zeroed for
alternate equations)
Common SYSCOM
OUTPUT SUBROUTINES
-------
APPENDIX A - Internal Software Documentation
A-97
MODULE NAME:
QUITER
DESCRIPTION:
Subroutine to print error messages and increment an error
counter.
SAMPLE CALL:
CALL QUITER(X,K,NN,INERR:
ARGUMENTS:
NAME TYPE DIR DIM FMT
X R IN -- R
K I IN -- I
NN
I IN
INERR I I/O --
DESCRIPTION
A real variable that
contains an incorrect value
which is to be printed.
An integer variable that
contains an incorrect value
which is to be printed.
An integer variable that
contains a unique value
which identifies the error.
An integer that contains the
current error count. QUITER
increments INERR.
SUBORDINATE MODULES:
NONE
COMMON AREAS USED:
YEARS4
ALTEQU
ALTCOM
IOUCOM
SUBROUTINE QUITER
-------
APPENDIX A - Internal Software Documentation
A-98
LOCAL VARIABLES:
NAME TYPE DIM FMT
I and N I -- I
NAMFLG(2,15)
I 2*15 2A4
NAMVEH(2,IV)
I 2*8 2A4
NAMFNC(2,16)
I 2*16 2A4
NIAXERR I
IQBMSG(5!
I 5
5A4
DESCRIPTION
WorK variables.
An integer array which contains
the names of input flags that
have errors. Each of the 15
flag names requires 2 words of
storage.
Vehicle names.
requires 2 words.
Each
name
Function names. Each of the 16
function names requires 2 words.
Maximum number error/warn ing
messages permitted.
The 20-character partial message
"OUT OF BOUNDS FOR
INPUT VARIABLES:
NAME
METHOD
X.K.NN.INERR
IOUERR
IY1951FIY1970,IY2020
MAXEQU
INTALT
argument
Common IOUCOM
Common YEARS4
Common ALTEQU
Common ALTCOM
OUTPUT VARIABLES:
NAME
METHOD
SUBROUTINE QUITER
-------
APPENDIX A - Internal Software Documentation A-99
INERR argument
SUBROUTINE QUITER
-------
APPENDIX A - Internal Software Documentation
A-100
MODULE NAME:
SUBROUTINE REGMOD
DESCRIPTION
Subroutine to adjust model year mileage and registration arrays
for January 1 calendar year calculations.
SAMPLE CALL:
CALL REGMOD(ICY.INERR)
ARGUMENTS:
NAME TYPE DIR DIM
ICY I IN --
INERR
I I/O --
FMT DESCRIPTION
I An integer variable that
contains the calendar year.
I Total count of data entry
entry errors.
SUBORDINATE MODULES:
TFCALX
IGSFPT
COMMON AREAS USED:
MYMCOM
MYMSAV
SYSCOM
GSFCOM
REGSUM
REGCOM
LOCAL VARIABLES:
NAME TYPE DIM FMT
X(20) R 20 R
S R -- R
SS R R
Z ZZ R R
SUBROUTINE REGMOD
DESCRIPTION
Expression accumulator for a 20-
year span.
Expression accumulator.
Expression accumulator.
Expression accumulators.
-------
APPENDIX A - Internal Software Documentation
A-101
IGS
GSF array group subscript
INPUT VARIABLES:
NAME
ICY, INERR
MAXVEH
SAVMYM, SAVMYR
GSF
IREJN, ALT
METHOD
argument
Common VEHCOM
Common MYMSAV
Common GSFCOM
Common REGCOM
OUTPUT VARIABLES:
NAME
INERR
XMYM.XMYR.TFMYM
SUM1
METHOD
argument
Common MYMCOM
Common REGSUM
SUBROUTINE REGMOD
-------
APPENDIX A - Internal Software Documentation
A-102
MODULE NAME
SUBROUTINE SPFCLX
DESCRIPTION:
SPFCLX calculates the speed portion of the
speed/temperature/cold-hot start correction factor used for
gasoline powered vehicles, light duty trucks, and motorcycles.
SAMPLE CALL:
CALL SPFCLX(SPARA.SPBACK)
ARGUMENTS:
NAME TYPE DIR DIM FMT
SPARA(IV)
R IN 8
R
SPBACKUG.IP.IV)
R OUT 18*3*8 R
DESCRIPTION
Average speed for each
vehicle type.
Speed portion of the
speed/temperature/cold-hot
start correction factor.
SUBORDINATE MODULES:
NONE
COMMON AREAS USED:
ACOM, SYSCOM
LOCAL VARIABLES:
NAME
IV
IG
IP
IS
TYPE DIM
I
I
I
I
FMT
I
I
I
I
DESCRIPTION
Standard variable.
Standard variable.
Standard variable.
Speed coefficient subscript
SUBROUTINE SPFCLX
-------
APPENDIX A - Internal Software Documentation A-103
S
SCF
R
R
R
R
Average speed.
Speed correction factor
INPUT VARIABLES:
NAME
SPARA
AIN
MAXVEH, MAXPOL
METHOD
argument
Common ACOM
Common SYSCOM
OUTPUT VARIABLES:
NAME
SPBACK
METHOD
arguments
SUBROUTINE SPFCLX
-------
APPENDIX A - Internal Software Documentation
A-104
MODULE NAME:
SUBROUTINE TFCALX
DESCRIPTION:
TFCALX computes the travel fractions, which are used to weight
the relative contribution of each model year to the vehicle type
emission factor according to the relative VMT contribution of
each model year within each vehicle type.
SAMPLE CALL:
CALL TFCALX(INERR)
ARGUMENTS:
NAME TYPE DIR DIM FMT
INERR I I/O -- I
DESCRIPTION
Count of data entry errors.
SUBORDINATE MODULES:
QUITER
COMMON AREAS USED:
MYMCOM, VMXCOM, SYSCOM, REGSUM, FLGCOM
LOCAL VARIABLES:
NAME TYPE DIM
TFNORMUv:
R
8
VCOUNT(IV)
R 8
TOTVMT R
SUBROUTINE TFCALX
FMT
R
DESCRIPTION
Sum of (MYM*MYR) for a given
model year vehicle type.
Number of vehicles (divided by
1,000,000) registered in 1978
for each vehicle type. For LDGV
and LDDV, VCOUNT is the sum of
LDGV and LDDV registration. The
same is true for LDGT1 and LDDT.
Sum of VMTMIX.
-------
APPENDIX A - Internal Software Documentation
A-105
INPUT VARIABLES:
NAME
INERR
XMYR.TFMYM
VMTMIX
MAXVEH
OUTPUT VARIABLES:
NAME
INERR
TF
METHOD
argument
Common MYMCOM
Common VMTCOM
Common SYSCOM
METHOD
argument
Common MYMCOM
SUBROUTINE TFCALX
-------
APPENDIX A - Internal Software Documentation
A-106
MODULE NAME:
SUBROUTINE YRTEST
DESCRIPTION:
Subroutine to test a calendar year for limits and adjust the
year for the turn of the century. The input year is assumed to
have a value equal to the last two digits of the actual year.
The input two digit year is returned as a four digit year.
SAMPLE CALL:
CALL YRTEST(IY,NERR, IY1 ,IY2,INERR)
ARGUMENTS:
NAME TYPE DIR DIM FMT
IY I I/O -- I
NERR I I/O --
IY1
IY2
I IN
I IN
INERR I I/O --
DESCRIPTION
An integer variable that
contains the last two digits
of the year. The subroutine
returns a four digit year in
IY.
An integer variable that
contains an error code that
identifies the error
condition to QUITER when the
input value of IY is
invalid.
An integer variable that
contains a lower limit for
valid input years.
An integer variable that
contains an upper limit for
valid input years.
An integer variable that
contains an error count.
QUITER increments INERR if
IY is invalid.
SUBROUTINE YRTEST
-------
APPENDIX A - Internal Software Documentation
A-107
SUBORDINATE MODULES:
QUITER
COMMON AREAS USED:
NONE
LOCAL VARIABLES:
NAME TYPE DIM
II I
FMT
I
DESCRIPTION
A local variable used to store
the calendar year.
INPUT VARIABLES:
NAME
IY.NERR,IY1,
IY2.INERR
METHOD
arguments
OUTPUT VARIABLES:
NAME
IY.INERR
METHOD
arguments
SUBROUTINE YRTEST
-------
A. 4 MOBILE2 STRUCTURE CHART
INPUT1
MAIN
REGMOD
EFCALX1
OUTPUT
"~ OUTHDR
NEWDAT
YRTEST1
EFALTX'
L CCEVAX
"~ IGSFPT'
, TFCALX'
<~ GETCUM
r
BIGCFX
L
IGSFPT'
IEXMPT1
r
CCEVRT
L
INDX3R'
BEF
L BEFIDL
f~ OUTHDO
OUTDTO
r
OUTHD1
L
OUTDT1 r
L
OUTHD2
OUTDT2
r
OUTHD3
L
OUTDT3 r
L
r
OUTHD4
L
L OUTDT4 r
L
INDX3R'
SPFCLX
r
ALUH
L
ISPPTR'
ISPPT8'
IGPPTR'
HOTSOK1
CRANKC'
DIURNL1
XMPD1
TPD1
PCLEFT
OUTHOR
OUTPOL
OUTHDR
OUTALT
OUTMTH
OUTPOL
OUT IMP
OUTHDR
OUTPOL
OUTHDR
OUTALT
OUTMTH
OUTPOL
OUT IMP
OUTHDR
OUTALT
OUTMTH
OUTPOL
OUTIMP
IGLPTR
IGTPTR
IGEPTR
IGUPTR
THESE ROUTINES CONDITIONALLY CALL SUBROUTINE QUITER.
-------
APPENDIX B
TABLE OF CONTENTS
(ALPHABETICAL)
MODULE
ALUH , SUBROUTINE MOBILE2
BEF , FUNCTION MOBILE2
BEFIDL , FUNCTION MOBILE2
BIGCFX , SUBROUTINE MOBILE2
BLOCK DATA 1 MOBILE2
BLOCK DATA 2 MOBILE2
BLOCK DATA 3 MOBILE2
BLOCK DATA 4 MOBILE2
BLOCK DATA 5 MOBILE2
BLOCK DATA 6 MOBILE2
BLOCK DATA 7 MOBILE2
BLOCK DATA 8 MOBILE2
BLOCK DATA 9 MOBILE2
BLOCK DATA 10 MOBILE2
BLOCK DATA 11 MOBILE2
BLOCK DATA 12 MOBILE2
BLOCK DATA 13 MOBILE2
BLOCK DATA 14 MOBILE2
BLOCK DATA 15 MOBILE2
BLOCK DATA 16 MOBILE2
BLOCK DATA 17 MOBILE2
BLOCK DATA 18 MOBILE2
BLOCK DATA 19 MOBILE2
BLOCK DATA 20 MOBILE2
BLOCK DATA 21 MOBILE2
CCEVAX , SUBROUTINE MOBILE2
CCEVRT , FUNCTION MOBILE2
CRANKC , FUNCTION MOBILE2
DIURNL , FUNCTION MOBILE2
EFALTX , SUBROUTINE MOBILE2
EFCALX , SUBROUTINE MOBILE2
GETCUM , SUBROUTINE MOBILE2
HOTSOK , FUNCTION MOBILE2
IEXMPT , FUNCTION MOBILE2
IGEPTR , FUNCTION MOBILE2
IGLPTR , FUNCTION MOBILE2
IGPPTR , FUNCTION MOBILE2
IGSFPT , FUNCTION MOBILE2
IGTPTR , FUNCTION MOBILE2
IGUPTR , FUNCTION MOBILE2
INDX3R , FUNCTION MOBILE2
INPUT , SUBROUTINE MOBILE2
ISPPTR , FUNCTION MOBILE2
ISPPT8 , FUNCTION MOBILE2
MAIN PROGRAM MOBILE2
NEWDAT , SUBROUTINE MOBILE2
OUTALT , SUBROUTINE MOBILE2
OUTDTO , SUBROUTINE MOBILE2
OUTDT1 , SUBROUTINE MOBILE2
OUTDT2 , SUBROUTINE MOBILE2
OUTDT3 , SUBROUTINE MOBILE2
OUTDT4 , SUBROUTINE MOBILE2
OUTHDR , SUBROUTINE MOBILE2
OUTHDO , SUBROUTINE MOBILE2
OUTHD1 , SUBROUTINE MOBILE2
FILE PAGE
(41000,41091) B-89
(35000,35076) B-77
(36000,36072) B-79
(31000,31180) B-68
(53000,53137) B-101
(54000,54071) B-104
(55000,55510) B-106
(56000,56282) B-115
(57000,57260) B-120
(58000,5853^) B-125
(59000,59097) B-135
(60000,60099) B-137
(61000,61099) B-139
(62000,62099) B-141
(63000,63099) B-143
(64000,64099) B-145
(65000,65033) B-147
(66000,66306) B-148
(67000,67314) B-154
(68000,68153) B-160
(69000,69089) B-163
(70000,70216) B-165
(71000,71076) B-169
(73000,73198) B-171
(74000,74029) B-175
(39000,39059) B-84
(25000,25060) B-61
(30000,30042) B-67
(28000,28042) B-65
(38000,38062) B-82
(24000,24173) B-58
(37000,37037) B-81
(26000,26042) 6-63
(50000,50042) B-99
(42000,42043) B-gi
(44000,44043) B-93
(46000,46043) B-95
(52000,52043) B-100
(45000,45043) B-94
(43000,43043) B-92
(47000,47049) B-96
(2000,2645) B-8
(48000,48042) B-97
(49000,49043) B-98
(1000,1090) B-6
(3000,3061) B-20
(I8000,l8055) B-53
(12000,12069) B-37
(13000,13165) B-39
(14000,14071) B-42
(15000,15188) B-44
(I6000,l6l89) B-48
(17000,17040) B-52
(7000,7055) B-31
(8000,8045) B-32
-------
OUTHD2 , SUBROUTINE MOBILE2
OUTHD3 , SUBROUTINE MOBILE2
OUTHD4 , SUBROUTINE MOBILE2
OUT IMP , SUBROUTINE MOBILE2
OUTMTH , SUBROUTINE MOBILE2
OUTPOL , SUBROUTINE MOBILE2
OUTPUT , SUBROUTINE MOBILE2
PCLEFT , FUNCTION MOBILE2
QUITER , SUBROUTINE MOBILE2
REGMOD , SUBROUTINE MOBILE2
SPFCLX , SUBROUTINE MOBILE2
TFCALX , SUBROUTINE MOBILE2
TPD , FUNCTION MOBILE2
XMPD , FUNCTION MOBILE2
YRTEST , SUBROUTINE MOBILE2
(9000,9066) B-33
(10000,10045) B-35
(11000,11045) B-36
(21000,21066) B-56
(19000,19051) B-54
(20000,20045) B-55
(6000,6088) B-29
(40000,40135) B-86
(4000,4323) B-22
(32000,32109) B-72
(34000,34044) B-76
(33000,33065) B-74
(27000,27042) B-64
(29000,29042) B-66
(5000,5036) B-28
The December 12, 1980 release of MOBILE2 contains 8,420 records.
The March 31, 1981 revision contains 8,452 records.
-------
APPENDIX B
TABLE OF CONTENTS
(SEQUENTIAL)
MODULE
FILE
MAIN PROGRAM MOBILE2
INPUT , SUBROUTINE MOBILE2
NEWDAT , SUBROUTINE MOBILE2
QUITER , SUBROUTINE MOBILE2
YRTEST , SUBROUTINE MOBILE2
OUTPUT , SUBROUTINE MOBILE2
OUTHDO , SUBROUTINE MOBILE2
OUTHD1 , SUBROUTINE MOBILE2
OUTHD2 , SUBROUTINE MOBILE2
OUTHD3 , SUBROUTINE MOBILE2
OUTHD4 , SUBROUTINE MOBILE2
OUTDTO , SUBROUTINE MOBILE2
OUTDT1 , SUBROUTINE MOBILE2
OUTDT2 , SUBROUTINE MOBILE2
OUTDT3 , SUBROUTINE MOBILE2
OUTDT4 , SUBROUTINE MOBILE2
OUTHDR , SUBROUTINE MOBILE2
OUTALT , SUBROUTINE MOBILE2
OUTMTH , SUBROUTINE MOBILE2
OUTPOL , SUBROUTINE MOBILE2
OUT IMP , SUBROUTINE MOBILE2
EFCALX , SUBROUTINE MOBILE2
CCEVRT , FUNCTION MOBILE2
HOTSOK , FUNCTION MOBILE2
TPD , FUNCTION MOBILE2
DIURNL , FUNCTION MOBILE2
XMPD , FUNCTION MOBILE2
CRANKC , FUNCTION MOBILE2
BIGCFX , SUBROUTINE MOBILE2
REGMOD , SUBROUTINE MOBILE2
TFCALX , SUBROUTINE MOBILE2
SPFCLX , SUBROUTINE MOBILE2
BEF , FUNCTION MOBILE2
BEFIDL , FUNCTION MOBILE2
GETCUM , SUBROUTINE MOBILE2
EFALTX , SUBROUTINE MOBILE2
CCEVAX , SUBROUTINE MOBILE2
PCLEFT , FUNCTION MOBILE2
ALUH , SUBROUTINE MOBILE2
IGEPTR , FUNCTION MOBILE2
IGUPTR , FUNCTION MOB1LE2
IGLPTR , FUNCTION MOBILE2
IGTPTR , FUNCTION MOBILE2
IGPPTR , FUNCTION MOBILE2
INDX3R , FUNCTION MOBILE2
ISPPTR , FUNCTION MOBILE2
ISPPT8 , FUNCTION MOBILE2
IEXMPT , FUNCTION MOBILE2
IGSFPT , FUNCTION MOBILE2
BLOCK DATA 1 MOBILE2
BLOCK DATA 2 MOBILE2
BLOCK DATA 3 MOBILE2
BLOCK DATA 4 MOBILE2
BLOCK DATA 5 MOBILE2
BLOCK DATA 6 MOBILE2
(1000,1090)
(2000,2645)
(3000,3061)
(1*000,4323)
(5000,5036)
(6000,6088)
(7000,7055)
(8000,8045)
(9000,9066)
(10000,10045)
(11000,11045)
(12000,12069)
(13000,13165)
(14000,14071)
(15000,15188)
(16000,16189)
(17000,17040)
(18000,18055)
(19000,19051)
(20000,20045)
(21000,21066)
(24000,24173)
(25000,25060)
(26000,26042)
(27000,27042)
(28000,28042)
(29000,29042)
(30000,30042)
(31000,31180)
(32000,32109)
(33000,33065)
(34000,34044)
(35000,35076)
(36000,36072)
(37000,37037)
(38000,38062)
(39000,39059)
(40000,40135)
(41000,41091)
(42000,42043)
(43000,43043)
(44000,44043)
(45000,45043)
(46000,46043)
(47000,47049)
(48000,48042)
(49000,49043)
(50000,50042)
(52000,52043) B
(53000,53137) B
(54000,54071) B
(55000,55510) B
(56000,56282) B
(57000,57260) B
(58000,58534) B
PAGE
B-6
B-8
B-20
B-22
B-28
B-29
B-31
B-32
B-33
B-35
B-36
B-37
B-39
B-42
B-44
B-48
B-52
B-53
B-54
B-55
B-56
B-58
B-6]
6-63
B-64
6-65
B-66
B-67
B-68
B-72
B-74
B-76
B-77
B-79
B-81
B-82
B-84
B-86
B-8g
B-91
B-92
B-93
B-94
B-95
B-96
B-97
B-98
B-99
-100
-101
-104
-106
-115
-120
-125
-------
BLOCK DATA 7 MOBILE2 (59000,
BLOCK DATA 8 MOBILE2 (60000,
BLOCK DATA 9 MOBILE2 (61000,
BLOCK DATA 10 MOBILE2 (62000,
BLOCK DATA 11 MOBILE2 (63000,
BLOCK DATA 12 MOBILE2 (61*000,
BLOCK DATA 13 MOBILE2 (65000,
BLOCK DATA }k MOBILE2 (66000,
BLOCK DATA 15 MOBILE2 (67000,
BLOCK DATA 16 MOBILE2 (68000,
BLOCK DATA 1? MOBILE2 (69000,
BLOCK DATA 18 MOBILE2 (70000,
BLOCK DATA 19 MOBILE2 (71000,
BLOCK DATA 20 MOBILE2 (73000,
BLOCK DATA 21 MOBILE2 (71*000,
59097) B-135
60099) B-137
61099) B-139
62099) B-li*l
63099) B-li*3
61*099) B-ll.5
65033) B-ll*7
66306) B-H*8
67311*) B-154
68153) B-160
69089) B-163
70216) B-165
71076) B-169
73198) B-171
7^029) B-175
-------
APPENDIX B
kl
kB
kS
50
51
52
53
5k
55
56
57
58
c..
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
M1939-S
MOBILE2
******* MOBILE2 *******
REVISED MARCH 31, 198l
DECEMBER 12, 1980
REVISED MARCH 31, 1981
MOBILE2 IS A FORTRAN PROGRAM USED TO ESTIMATE THE HC, CO, AND
NOX EMISSIONS BY MOTOR VEHICLES. IT IS AN UPDATE TO THE MOBILE1
MOBILE SOURCE EMISSION MODEL. THIS RELEASE OF MOBILE2
INCORPORATES THE LOW ALTITUDE CALIFORNIA, LOW ALTITUDE NON-
CALIFORNIA, AND HIGH ALTITUDE NON-CALIFORNIA EMISSION FACTORS.
THE LOW ALTITUDE NON-CALIFORNIA I/M CREDITS ARE INCLUDED.
DIFFERENT I/M CREDITS FOR THE OTHER REGIONS WILL BE AVAILABLE IN
A FEW WEEKS.
AT THE TIME OF THIS WRITING THE USER'S GUIDE FOR MOBILE2 WAS NOT
FINALIZED. SINCE THE DRAFT MOBILE2 USER'S GUIDE IS NOT READILY
AVAILABLE, THE MOBILE1 USER'S GUIDE CAN BE USED. MOBILE2 WAS
DESIGNED TO BE UPWARD COMPATIBLE WITH MOBILE1 INPUTS AND
OUTPUTS. THEREFORE, THE MOBILE1 GUIDE WILL GIVE SUFFICIENT
INFORMATION TO RUN MOBILE2. HOWEVER, MOBILE2 DOES HAVE SOME NEW
OPTIONS NOT EXPLAINED IN THE MOBILE1 USER'S GUIDE.
A SHORT LIST OF DIFFERENCES BETWEEN MOBILE1 AND MOBILE2 FOLLOWS
AT THE END OF THIS PARAGRAPH. A MORE COMPLETE LIST WILL BE IN
THE MOBILE2 USER'S GUIDE. THE GUIDE WILL ALSO INCLUDE A SET OF
EXAMPLE INPUT DATA SETS THAT WILL TEST THE OPTIONS OF THE
MOBILE2 PROGRAM. SOME OF THE DIFFERENCES BETWEEN MOBILE1 AND
MOBILE2 ARE AS FOLLOWS:
MOBILE2 HAS TWO NEW VEHICLE TYPES; LIGHT DUTY DIESEL POWERED
VEHICLES AND LIGHT DUTY DIESEL POWERED TRUCKS.
MOBILE2 CAN GIVE RESULTS FOR A COMBINED LDGT GROUP.
MOBILE2 GIVES THE USER THE OPTION OF ENTERING ALTERNATIVE
VALUES FOR I/M CREDITS.
MOBILE2 ALLOWS THE USER TO ENTER THE AVERAGE NUMBER OF TRIPS
PER DAY AND AVERAGE MILES TRAVELED PER DAY FOR EACH VEHICLE
TYPE.
MOBILE2 USERS CAN ENTER UP TO 15 ALTERNATIVE EMISSION
EQUATIONS (MODEL YEAR GROUPS) FOR EACH UNIQUE COMBINATION OF
VEHICLE TYPE, REGION, AND POLLUTANT. MOBILE1 ALLOWED ONLY
10.
THE UPPER LIMIT FOR MODEL AND CALENDAR YEARS HAS BEEN RAISED
FROM 1995 IN MOBILE1 TO 2020 IN MOBILE2.
MOBILE2 DOES NOT HAVE THE UNFORMATTED OUTPUT OPTION THAT
MOBILE1 HAD. HOWEVER, A VALUE FOR THE OPTION'S FLAG,
'UNFFLG', IS STILL REQUIRED TO RETAIN THE MOB I LEI INPUT
SEQUENCE.
MOBILE2 NOW PRINTS WARNING AND ERROR MESSAGES. UP TO 50
ERROR MESSAGES MAY BE PRINTED FOR ANY ONE RUN.
>»» COMMENTS <««
-------
APPENDIX B
MOBILE2 DECEMBER 12, 1980
59 C
60 C
61 C ON 12-12-80, A NEW RELEASE OF MOBILE2 WAS FINALIZED. THE
62 C 12-12-80 RELEASE OF MOBILE2 DIFFERS FROM THE PREVIOUS
63 C RELEASE (10-30-80) IN TWO MAJOR WAYS: (A) THE INCLUSION OF
61* C HIGH ALTITUDE AND CALIFORNIA DATA IN THE BLOCK DATA
65 C ROUTINES, AND (B) THE INCLUSION OF I/M CREDITS. THE 10-30-
66 C 80 RELEASE CONTAINED ZEROES FOR ALL HIGH ALTITUDE AND
6? C CALIFORNIA RELATED VARIABLES, AND ALSO CONTAINED ZEROES IN
68 C THE I/M CREDIT ARRAYS. THERE WERE OTHER MINOR CHANGES.
69 C BECAUSE OF THE QUANTITY OF CHANGES, IT IS RECOMMENDED THAT
70 C USERS REPLACE THE ENTIRE PROGRAM RATHER THAN ONLY THOSE
71 C ROUTINES THAT WERE CHANGED. IN THE FOLLOWING LIST OF
72 C CHANGES, LINES FLAGGED WITH AN ASTERIK (*) REPRESENT ACTUAL
73 C LINES OF FORTRAN CODE.
?<* c
75 C A COMPLETE LIST OF DIFFERENCES FOLLOWS:
76 C
77 C 1. THE FOLLOWING BLOCK DATAS HAD HIGH ALTITUDE AND
78 C CALIFORNIA DATA ADDED:
79 C - BLOCK DATA 3 (MODEL YEAR GROUPS FOR FTP AND IDLE
80 C EMISSION RATES).
81 C - BLOCK DATA 1* (FTP EMISSION RATES).
82 C BLOCK DATA 5 (IDLE EMISSION RATES).
83 C BLOCK DATA 7 (NON-METHANE FRACTION OF TOTAL HC, AND
81* C MODEL YEAR GROUPS FOR NON-METHANE FRACTION).
85 C - BLOCK DATA 8 (HOT SOAK HC EMISSION RATES, AND MODEL YEAR
86 C GROUPS FOR THESE RATES).
87 C - BLOCK DATA 9 (TRIPS/DAY, AND MODEL YEAR GROUPS FOR
88 C TRIPS/DAY).
89 C - BLOCK DATA 10 (DIURNAL HC EMISSION RATES, AND MODEL YEAR
90 C GROUPS FOR THESE RATES).
91 C - BLOCK DATA 11 (MILES/DAY, AND MODEL YEAR GROUPS FOR
92 C MILES/DAY).
93 C - BLOCK DATA 12 (CRANKCASE HC EMISSION RATES, AND MODEL
Sk C YEAR GROUPS FOR THESE RATES).
95 C - BLOCK DATA 16 (MODEL YEAR GROUPS FOR TEMPERATURE
96 C CORRECTION FACTOR COEFFICIENTS AND NORMALIZED BAG
97 C FRACTION COEFFICIENTS).
98 C BLOCK DATA 17 (MODEL YEAR GROUPS FOR SPEED CORRECTION
99 C FACTOR COEFFICIENTS).
100 C - BLOCK DATA 18 (FRACTION OF VEHICLES EQUIPPED WITH A/C;
101 C A/C CORRECTION FACTORS; EXTRA LOAD CORRECTION FACTORS;
102 C AND TRAILER TOWING CORRECTION FACTORS).
103 C - BLOCK DATA 19 (MODEL YEAR GROUPS FOR THE ITEMS IN BLOCK
101* c DATA 18) .
105 C - BLOCK DATA 20 (DIESELIZATION SALES RATES AND MODEL YEAR
106 C GROUPS FOR THESE RATES) .
107 C
108 C
109 C 2. VALUES FOR I/M CREDITS WERE ADDED TO BLOCK DATA 6
110 C (COMMON/1MCRED/) , REPLACING THE ZERO VALUES OF THE
111 C 10-30-80 RELEASE.
112 C
113 C 3- CHANGES FOR HANDLING USER-SUPPLIED I/M CREDITS WERE MADE
111* c TO ROUTINES INPUT, NEWDAT, AND QUITER. THE CHANGES WERE
115 C TO ALLOW THE NUDATA FLAG TO ASSUME VALUES OF 0, 1, 2, OR
116 C 3- THE 10-30-80 RELEASE ALLOWED NUDATA TO ASSUME THE
>»» COMMENTS <««
-------
APPENDIX B
MOBILE2
DECEMBER 12, 1980
H7
118
119
120
121
122
123
124
125
126
127
128
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
168
169
170
171
172
173
174
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
Cft
C
C
C
CA
C*
C*
C*
C*
c*
C
C
C
C*
C
C
C
C*
C
C
C
C
C
C
C
C
C*l
C*l
C*l
C*l
C*l
C*
C*
VALUES 0 OR 1. THIS CHANGE PROVIDES THE CAPABILITY OF
READING IN ALTERNATIVE TECHNOLOGY IV I/M CREDITS. THE
SPECIFIC LINES OF CODE CHANGED ARE LISTED BELOW.
(A) IN ROUTINE INPUT,THE STATEMENTS (BETWEEN STMT#1595 6#l600)
IF (NUDATA.LT.O.OR.NUDATA.GT.l) CALL QUITER(0..NUDATA,74,INERR)
IF (NUDATA.EQ.l) CALL NEWDAT(IRDFLG)
WERE REPLACED BY:
IF(NUDATA.LT.O.OR.NUDATA.GT.3) CALL QUITER(0..NUDATA,74,INERR)
IF (NUDATA.GT.O) CALL NEWDAT (IRDFLG)
(B) IN ROUTINE NEWDAT, THE STATEMENT;
C* 400 DO 500 IP=1,2
WAS REPLACED BY:
C* 400 IF (NUDATA.EQ.2) GO TO 700
DO 500 IP=1,2
(C) IN ROUTINE NEWDAT, THE STATEMENT (FOLLOWING STMT#600) :
GOTO 999
WAS REPLACED BY:
IF (NUDATA.EQ.l) GO TO 999
C* 700 DO 800 ISTRN=1,5
DO 800 AGE1ST=1,20
C* 800 READ (IOUIMD,600,END=888,ERR=888)
* (ITECH4(BY,AGE1ST,ISTRN),BY=1,19)
GOTO 999
(D) IN ROUTINE QUITER, THE STATEMENT:
C* 7410 FORMATC + 1 ,10X, I4.5A4, 'NEW DATA FLAG (0 TO 1) ')
WAS REPLACED BY:
7410 FORMATC + 1 , 10X, I4.5A4,'NEW DATA FLAG (0 TO 3)')
4. THE CALCULATION OF EVALUATED ALTITUDE HAS BEEN REMOVED
FROM ROUTINE EFCALX. THIS OPTION IS EXPECTED TO BE
ADDED AGAIN AFTER A REDEFINITION OF THE EVALUATED
ALTITUDE METHODOLOGY. SPECIFICALLY:
IN ROUTINE EFCALX, THE STATEMENTS:
C*C THE COMPOSITE EMISSION CALCULATION REQUIRES AN INTERPOLATION
C*C BETWEEN TWO REGIONS FOR HIGH AND LOW ALTITUDE.
C*C
C*C ROUND THE ALTITUDE TO THE NEAREST 500 FEET AND
C*C DETERMINE AN ALTITUDE ADJUSTMENT TERM.
IALT=ALT
IALT= ((IALT+250)/500)*500
>»» COMMENTS <««
-------
APPENDIX B
MOBILE2 DECEMBER 12, 1980
175 C* RALT=IALT
176 C* ATERM= (RALT-500.)/5000.
177 C*C
178 C*C..IF ANY HI OR LO EMISSION IS NON-POSITIVE, RESULT IS ZERO.
179 C*C
180 C* IF (IP.NE.l) GOTO 340
181 C*C
182 C*C., CRANKCASE EMISSION (HC ONLY)
183 c*c
184 C* CMPCC1=CCEVRT(MY,IV,1)
185 C* CMPCC2=CCEVRT(MY,IV.3)
186 C* IF (CMPCC1.GT.O..AND.CMPCC2.GT.O.)
187 C* * COMPCC=((CMPCC2-CMPCC1)*ATERM+CMPCC1)*TF (IDX,IV)
188 C*C
189 C*C..COMPOSITE EMISSIONS
190 c*c
191 C* 340 INDX1=INDX3R(MY,IP,IV,1)
192 C* INDX3=INDX3R(MY,IP,IV.3)
193 C* CMPEF1=BEF(MY,ICY,INDX1,IP,IV,1,VMTAGE,EXMVAL)*
194 C* - CFRET(IDX,IP,IV,1)
195 C* CMPEF2=BEF(MY,ICY,INDX3,IP,IV,3,VMTAGE,EXMVAL)*
196 C* - CFRETdDX, IP, IV,2)
197 C* IF(CMPEF1.GT.O..AND.CMPEF2.GT.O.)
198 C* * COMPEF=((CMPEF2-CMPEF1)*ATERM+CMPEF1)*TF(IDX,IV)+COMPCC
199 C*C
200 C*C..IDLE EMISSIONS
201 C*C
202 C* IDLFC1=BEFIDL(INDX1,IP,IV,1,VMTAGE,EXMVAL)
203 C* IDLFC2=BEFIDL(INDX3,IP,IV,3,VMTAGE,EXMVAL)
204 C* IF(IDLFC1.GT.O..AND.IDLFC2.GT.O.)
205 C* * IDLFAC=((IDLFC2-IDLFC1)*ATERM+IDLFC1)*TF(IDX,IV)
206 C
207 C WERE REPLACED BY:
208 C
209 C* 330 CONTINUE
210 C*C.. ONCE THE EVALUATED ALTITUDE METHODOLOGY IS FINALIZED,
211 C*C.. THE PROCEDURE WILL BE PUT HERE
212 C
213 C 5- A KEYPUNCHING ERROR WAS CORRECTED IN BLOCK DATA 4.
214 C (COMMON/BASECM/) THE VALUE "4.53" FOR LOW ALTITUDE LDGT1
215 C 1968-1972 FTP ZERO MILE EXHAUST RATE WAS CORRECTED TO
216 C "4.35", MATCHING THE LDGV EMISSION RATE FOR THE SIMILAR
217 C CATEGORY.
218 C
219 C THE LAST LINE OF THE GROUP OF STATEMENTS:
220 C
221 C*C.. ZERO MILE (BASE) RATES
222 C*C.. LOW ALT. 49-STATE
223 C*C
224 C* DATA B4l7
225 C*C.. LDGV
226 C* * 7-25, 4.43, 3-00, 3-36, 1.29, 0.29, 0.39, 0.39,7*0.0,
227 C* *78.27,56.34,42.17,40.78,20.16, 6.14, 5-60, 5.21, 5-00,6*0.0,
228 C* * 3.44, 4.35, 2.87, 2.43, 1.69, 1.56, 0.75,8*0.0,
229 C*C.. LDGT1
230 C* * 7-25, 4.43, 3.00, 3-36, 1.84, 0.99, 0.89, 0.88,0.58,0.41,5*0.0,
231 C* *78.27,56.34,42.17,40.78,24.91,13-92,11.85,11.44,6.14,3.01,5*0.0,
232 C* * 3-44, 4.53, 2.87, 2.95, 1-85, 1-90, 1.42, 0.59,7*0.0,
>»» COMMENTS <««
-------
APPENDIX B
MOBILE2 DECEMBER 12, 1980
233 C
C WAS CHANGED TO:
235 C
236 C* * 3.M», i*.35, 2.87, 2.95, 1.85, 1.90, 1.42, 0.59,7*0.0,
237 c
238 C 6. A KEYPUNCHING ERROR WAS CORRECTED IN A DATA STATEMENT IN
239 C ROUTINE INPUT. THE STRING "LDGG2" WAS CORRECTED TO
21*0 C "LDGT2" IN THE INITIALIZATION OF THE NAMMMR ARRAY.
21*1 C
242 C THE LAST LINE OF THE GROUP OF STATEMENTS:
21*3 C
21*1* C* DATA NAMMMR/
21*5 C* * '1-10',' FOR',' LDG'.'V: ',
21*6 C* * ' 11-2', '0 FO', 'R LD1 , 'GV: ' ,
21*7 C* * '1-10',' FOR',' LDG'.'Tl: ',
21*8 C* * ' 11-2' , '0 FO', 'R LD', 'GT1: ' ,
21*9 C* * ' 1-10' ,' FOR', ' LOG' , 'G2: ',
250 c
251 C WAS CHANGED TO:
252 c
253 C* * ' 1-10' ,' FOR1 ,' LOG' , 'T2: ',
251* c
255 C 7. IN ROUTINE INPUT, AN ",END=19l*0" PARAMETER WAS ADDED TO
256 C THE "READ (IOUGEN, 1080) UNFFLG" STATEMENT. (BETWEEN
257 C STMT #1075 AND STMT#1080) .
258 c
259 C 8. THE DECLARATION STATEMENT "REAL I DLB3R, I DEL3R" WAS ADDED
260 C TO MAIN TO SPECIFY THE INTENDED MODE OF THESE VARIABLES.
261 C
262 C 9- THE PREAMBLE (COMMENT STATEMENTS AT FRONT OF SOURCE
263 C CODE) WAS UPDATED APPROPRIATELY.
261* C
265 C 10. THE DEFAULT IDENTIFICATION RATE FOR TECHNOLOGY IV
266 C VEHICLES HAS BEEN ALTERED FROM 70 PERCENT TO 50 PERCENT.
267 C
268 C (A) IN ROUTINE INPUT, THE STATEMENT (BETWEEN STMT#1570 AND
269 C STMT#1575) :
270 c
271 C* IOPTN=70
272 c
273 C HAS BEEN CHANGED TO:
271* c
275 C* IOPTN=50
276 c
277 C (B) IN ROUTINE OUTIMP, THE STATEMENTS:
278 c
279 C* 300 FORMAT(2X, ' ATTENT I ON:THE DEFAULT VALUE OF 70% FOR TECHNOLOGY 1*')
280 C* IF (IOPTN.EQ.70) WRITE (IOUREP, 320)
281 C* 320 FORMAT (1+X, ' I /M IDENTIFICATION RATE HAS BEEN LEFT UNCHANGED.1)
282 C* IF (IOPTN.NE.70) WRITE (I OUREP, 31*0) I OPTN
283 c
281* c HAVE BEEN CHANGED TO:
285 c
286 C* 300 FORMAT(2X, ' ATTENTI ON:THE DEFAULT VALUE OF 50% FOR TECHNOLOGY I*1)
287 C* IF (IOPTN.EQ.50) WRITE (IOUREP, 320)
288 C* 320 FORMAT (1»X, ' I /M IDENTIFICATION RATE HAS BEEN LEFT UNCHANGED.1)
289 C* IF (IOPTN.NE.50) WRITE (I OUREP, 31*0) I OPTN
290 c
>»» COMMENTS <««
-------
APPENDIX B
MOBILE2
REVISED MARCH 31, ig8l
291
292
293
25k
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
1000
1001
1002
1003
1004
1005
1006
1007
1008
1009
1010
1011
1012
1013
1014
1015
1016
1017
1018
1019
1020
1021
1022
1023
1024
1025
1026
1027
1028
1029
1030
1031
1032
1033
1034
1035
1036
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
ON 03-31-81, THE SPEED CORRECTION FACTOR METHODOLOGY WAS
REVISED. THIS AFFECTED ONLY SUBROUTINE BIGCFX. THE MODIFIED
PROCEDURE GIVES MOBILE2 ADDITIONAL FLEXIBILITY. SPECIFIC
DETAILS ARE GIVEN IN APPENDIX C OF THE MOBILE2 USER'S GUIDE.
QUESTIONS CONCERNING THE PROGRAM SHOULD BE DIRECTED TO:
OFFICE OF MOBILE SOURCE AIR POLLUTION CONTROL
EMISSION CONTROL TECHNOLOGY DIVISION
TEST AND EVALUATION BRANCH
2565 PLYMOUTH ROAD
ANN ARBOR, MICH. 48105
TELEPHONE: 313-668-43&5
FTS 37^-8365
INTEGER ALTFLG,VMFLAG,ALHFLG,SPDFLG,PRTFLG
REAL IDLB3R,IDEL3R
COMMON/FLGCOM/ALTFLG,VMFLAG,ALHFLG,IRDFLG.SPDFLG.NMHFLG,IDLFLG
COMMON/FLGCOM/MYMRFG,IMFLG,ICEVFG,PRTFLG,IFORM.MDEFLG
COMMON/REGCOM/IREJN.ALT
COMMON/LNKCOM/SPD(8) ,TAMB,PCCN,PCHC,PCCC
COMMON/VMXCOM/VMTMI X(8)
COMMON/ALTCOM/INTALT(5,100) ,R4ALT (2,100).MODFLG(100).NEWFAC
COMMON/MYMSAV/SAVMYM(20,8),SAVMYR(20, 8)
COMMON/MYMCOM/XMYM(20,8),XMYR(20,8) ,TF(20,8),TFMYM(20,8)
COMMON/XCFS1/AC,XLOAD(3),TRAILR(3) ,ABSHUM,DB.WB
COMMON/PROJCM/PROJID(20)
COMMON/IMCOM/ICYIM,ISTRIN,IMTFLG.MODYR1.MODYR2
COMMON/IMCOM/I LOT,IOPTN,NUDATA,NLINES,STRING(18,9)
COMMON/CEVCOM/USRTPD(8) .USRMPD(8)
COMMON/YEARS4/IY195UIY1970,IY2020
COMMON/SYSCOM/MAXVEH.MAXLTW.MAXPOL.MAXREG,INITPR
COMMON/IOUCOM/IOUIMD,IOUGEN,IOUREP,IOUERR,IOUASK,IOUUNF
COMMON/IMCRED/IRED(19,20,5,2,2) ,ITECH4 (19,20,5)
COMMON/ALTEQU/MAXEQU
COMMON/CUMCOM/CUMMIL(20,8)
COMMON/HOTCOM/MAXHOT,HOTVAL(6,8,
COMMON/TPDCOM/MAXTPD,TPDVAL(2,8,
COMMON/DIUCOM/MAXDIU,DIUVAL(6,8,
COMMON/XMPCOM/MAXXMP,XMPVAL(2,8,
3) ,IHOTYS(6,8,3)
3) ,ITPDYS(2,8,3)
3) ,IDIUYS(6,8,3)
3) , IXMPYS(2,8,3)
3) ,ICRAYS(3,8,3)
I VPTRA (8) , I VPTRB (8)
COMMON/CRACOM/MAXCRA,CRAVAL(3,8,
COMMON/RET1/ALHRET(20,4,3)
COMMON/IVPCOM/1VPTRG(8) ,IVPTRT(8)
COMMON/TCFCOM/TTACOF(2,3,9,3,6) .TT4COF(2,9,3) .TT7COF (2,3)
COMMON/GPCCOM/GPACOF(8,9,3,6) .GPBCOF(3,3,3,4)
COMMON/ACOM/AIN(6,18,3)
COMMON/BASECM/BASE3R(15,3,8,3)
COMMON/DELCOM/DEL3R(15,3,8,3)
COMMON/BEFGCM/EXMETH(3,8,3) ,IEXMYR(3,8,
COMMON/IDLBCM/IDLB3R(15,3,8,3)
COMMON/IDLDCM/IDEL3R(15,3,8,3)
,3)
>»» MAIN PROGRAM <««
-------
APPENDIX B
MOBILE2 DECEMBER 12, 1980
1037 COMMON/INDXCM/INDXYR(15,2,3,8,3)
1038 COMMON/ALUCOM/ACEQIP(8,3,3),ACCF (2,3,2,3,3)
1039 COMMON/ALUCOM/XLCF(3,6,3,3) ,TWCF (3,6,3,3)
1040 COMMON/ALUPTR/IGEYRS (8,3,3),IGUYRS (2,3,3)
1041 COMMON/ALUPTR/IGLYRS(6,3,3) ,IGTYRS (6,3,3)
1042 COMMON/PTRCOM/MAXIGP,IGPYRS (9,3,3,8)
1043 COMMON/ISPCOM/ISPYRS(l8,3,3),ISPYR8 (18,3,3)
1044 COMMON/GSFCOM/MAXGSF.GSF (18,8,3),IGSFYR (18,8,3)
1045 COMMON/REGSUM/SUM1 (8)
1046 C
104? REAL EFRETM (3,9) .WTEDEF (3) .COMCCC (9) , IDLRTM(3,9) , IDLWTD (3)
1048 C
1049 C
1050 c
1051 INERR=0
1052 IRDFLG=1
1053 ICYOLD=-1
1054 IROLD=-1
1055 ALTOLD—1.
1056 INITFL=1
1057 CALL INPUT(INITFL,ICY,INERR)
1058 IF (IRDFLG.EQ.O) GOTO 999
1059 INITFL=0
1060 C
1061 C
1062 C
1063 100 CALL INPUT(INITFL,ICY,INERR)
1064 C
1065 IF (IRDFLG.EQ.O) GOTO 999
1066 C..LIMIT ERROR DIAGNOSTICS WITH NEXT LINE. G.J.H.
1067 200 IF (INERR.GT.50) GOTO 888
1068 IF (INERR.GT.O) GOTO 100
1069 c
1070 IF(ICYOLD.NE.ICY.OR.IROLD.NE.I REJN.OR.ALTOLD.NE.ALT)
1071 * CALL REGMOD (ICY,INERR)
1072 IF (INERR.GT.O) GOTO 200
1073 ICYOLD=ICY
1074 IROLD=IREJN
1075 ALTOLD=ALT
1076 c
1077 CALL EFCALX (ICY,EFRETM,WTEDEF,COMCCC,IDLRTM,IDLWTD,INERR)
1078 IF (INERR.GT.O) GOTO 200
1079 C
1080 CALL OUTPUT(ICY,EFRETM,WTEDEF,COMCCC,IDLRTM,IDLWTD)
1081 C
1082 GOTO 100
1083 c
1084 C
1085 c
1086 888 WRITE(IOUERR,889)
1087 889 FORMAT(/,' EXCESS DATA ERRORS PREVENT FURTHER ANALYSIS.1)
1088 C
1089 999 STOP
1090 END
>»» MAIN PROGRAM <««
-------
APPENDIX B
MOBILE2
DECEMBER 12, 1980
2000
2001
2002
2003
2004
2005
2006
2007
2008
2009
2010
2011
2012
2013
2014
2015
2016
201?
2018
2019
2020
2021
2022
2023
2024
2025
2026
2027
2028
2029
2030
2031
2032
2033
2034
2035
2036
2037
2038
2039
2040
2041
2042
2043
2044
2045
2046
2047
2048
2049
2050
2051
2052
2053
2054
2055
2056
2057
C
C
C.
C
C.
C
C
C,
C
C.
C
C.
C.
C.
C
C
C.
C
C.
C.
C.
C.
C.
C.
C
C
C.
C
C.
C
C
C
C
C
C
SUBROUTINE 1 NPUT (1 N ITFL, ICY, INERR)
.PURPOSE:
.SPROG READS AND VALIDATES UNIT IOUGEN DATA FOR ALL INPUT MODES.
.ARGUMENTS:
.NAME USAGE DESCRIPTION
.INITFL I/O INITIALIZATION FLAG (1=INIT, 0=INITDONE)
.ICY I/O CALENDAR YEAR (2-DIGIT IN, 4-DIGIT OUT)
.INERR I/O TOTAL COUNT OF DATA ENTRY ERRORS
.USES SPROGS:
.QUITER
.NEWDAT
.YRTEST
.EFALTX
.CCEVAX
.OUTHDR
.USED BY:
.MAIN
INTEGER ALTFLG,VMFLAG,ALHFLG,SPDFLG,PRTFLG
COMMON/FLGCOM/ALTFLG.VMFLAG.ALHFLG, 1 RDFLG, SPDFLG.NMHFLG, IDLFLG
COMMON/FLGCOM/MYMRFG, IMFLG, ICEVFG.PRTFLG, IFORM.MDEFLG
COMMON/REGCOM/ 1 RE JN , ALT
COMMON/LNKCOM/SPD (8) ,TAMB, PCCN , PCHC, PCCC
COMMON/VMXCOM/VMTM 1 X (8)
COMMON/ALTCOM/INTALT(5,100) ,R4ALT(2, 100) .MODFLG(IOO) .NEWFAC
COMMON/MYMS AV/S AVMYM (20 , 8) , SAVMYR (20 , 8)
COMMON/XCFS1/AC,XLOAD(3) ,TRAILR(3) , ABSHUM, DB.WB
COMMON/PROJCM/PROJ 1 D (20)
COMMON/ IMCOM/ICYIM, ISTRIN, 1 MTFLG.MODYR1 .MODYR2
COMMON/ 1 MCOM/ 1 LOT , 1 OPTN , NUD ATA , NL 1 NES , STR 1 NG ( 1 8 , 9)
COMMON/CEVCOM/USRTPD (8) .USRMPD (8)
COMMON/YE ARS4/IY 1951 , IY1970, IY2020
COMMON/SYSCOM/MAXVEH.MAXLTW.MAXPOL.MAXREG, INITPR
COMMON/ IOUCOM/IOUIMD, IOUGEN, 1 OUREP, 1 OUERR, IOUASK, IOUUNF
INTEGER TRKFLG.UNFFLG
DIMENSION NAMMMR (4,2,8) , IOUREF (9) , IOUOLD (4) , IOUNEW(4)
EQUIVALENCE
ft (IOUOLD (1) , IOUREP) ,
ft ( IOUOLD (2) , 1 OUERR) ,
ft (IOUOLD (3) , IOUASK) ,
>»» SUBROUTINE INPUT <««
-------
APPENDIX B
MOBILE2
DECEMBER 12, 1980
2058
2059
2060
2061
2062
2063
2064
2065
2066
2067
2068
2069
2070
2071
2072
2073
2074
2075
2076
2077
2078
2079
2080
2081
2082
2083
2084
2085
2086
2087
2088
2089
2090
2091
2092
2093
2094
2095
2096
2097
2098
2099
2100
2101
2102
2103
2104
2105
2106
2107
2108
2109
2110
2111
2112
2113
2114
2115
ft ( OUOLD(4) , IOUUNF)
C
DATA IOUREF/
* '1
* '2
* '3 ' ,
ft '4 ' ,
* '5 ',
ft '6 ' ,
* '7 ' ,
* '8 ' ,
* '9 '/
C
DATA NAMMMR/
ft '1-10V FOR1,' LDG'.'V: ',
ft ' 1-2' , '0 FO' , 'R LD1 ,'GV:
ft ' -10' , ' FOR1 , ' LDG1 ,'T1: ' ,
ft ' 1-2' , '0 FO1 , 'R LD1 ,'GT1: ' ,
ft ' -10',' FOR1,1 LDGVT2: ',
ft ' 1-2' ,'0 FO1 , 'R LD1 , 'GT2: ' ,
ft ' 1-10' , ' FOR1 , ' HDG' , 'V: ' ,
ft ' 11-2' , '0 FO1 , 'R HD1 , 'GV:
ft ' -10' , ' FOR1 , ' LDD' , 'V: ',
* ' 1-2' , '0 FO1 , 'R LD1 ,'DV: ',
ft ' -10',' FOR1,1 LDD'.'T: ',
ft ' 1-2' , '0 FO1 , 'R LD1 , 'DT: ' ,
ft ' -10' , ' FOR1 , ' HDD1 , 'V: ' ,
ft ' 1-2' , '0 FO1 , 'R HD1 ,'DV: ' ,
ft ' 1-10' , ' FOR' , ' MC: V ' ,
ft ' 11-2' , '0 FO1 , 'R MC' , ' : '/
C
C
C..SKIP TH S STUFF EXCEPT DURING FIRST SUBR. CALL
IF (INITFL.EQ.O) GOTO 1660
INITFL=0
C
C..READ IN PROMPT/MODE/UNITS, TITLE, FLAGS, AND MYM-MYR
C
READ (IOUGEN, 1001 , END=1940) IPROMT, IOUNEW
1001 FORMAT(I 1 ,4A1)
C
C.. OUTPUT UNIT NUMBERS PARSED HERE
C
C.. CHANGE ALPHANUMERIC TO NUMERIC VALUES
DO 1010 1=1,4
C..TEST FOR ALLOWED VALUES (NO INPUT UNITS)
DO 1005 J=l,9
IF (J.EQ. IOUIMD. OR. J.EQ. IOUGEN) GOTO 1005
JUNIT=J
IF (lOUNEW(l) .EQ. IOUREF (J) ) GOTO 1010
1005 CONT NUE
C..SET DEFAULT FOR UNRECOGNIZED VALUE
JUNIT=0
1010 IOUNEW(I)=JUNIT
C
C.. RESOLVE CONFLICTS (FORMATTED VRS. UNFORMATTED)
C
C.. CHECK TO ZERO UNFORMATTED UNIT IF EQUAL TO FORMATTED UNIT
>»» SUBROUTINE INPUT <««
-------
APPENDIX B
MOBILE2 DECEMBER 12, 1980
2116 IF (I OUNEW (1») .EQ.O) GOTO 1030
2117 DO 1020 1=1,3
2118 1020 IF (I OUNEW {!*) .EQ. IOUNEW (I)) IOUNEW(i*)=0
2119 c
2120 C..CHECK TO ZERO UNFORMATTED UNIT IF CLASH WITH DEFAULTS
2121 IF (I OUNEW (1») .EQ.O) GOTO 1030
2122 DO 1025 1=1,3
2123 1025 IF (I OUNEW (1») .EQ.IOUOLD (I) .AND.
2121* * IOUOLD(1*) .NE. lOUNEW(l) .AND.
2125 * lOUNEW(l) .EQ.O) IOUNEW(1»)=0
2126 C
2127 C..CHECK TO ZERO FORMATTED UNIT IF CLASH WITH DEFAULTS
2128 IF(IOUNEW(4) .GT.O) GOTO 101*0
2129 1030 DO 1035 1=1,3
2130 1035 IF (IOUOLD(1*) .EQ. IOUNEW(I)) IOUNEW(I)=0
2131 c
2132 C..ASSIGN OUTPUT UNITS
2133 C
213*4 101*0 IOUSUM=0
2135 DO 101*5 1=1,1*
2136 IOUSUM=IOUNEW(I)+IOUSUM
2137 101*5 IF (lOUNEW(l) .GT.O) IOUOLD (I)=IOUNEW (I)
2138 c
2139 C..PARSE PROMPT/MODE FLAG HERE
2 HO C
211*1 C..SAVE INPUT FLAG FOR FUTURE POSSIBLE ABORT
2U2 IPRSAV=IPROMT
211*3 IF (IPROMT.GE.O.AND.IPROMT.LE.3) GOTO 1050
211*1* C
211*5 C..ABORT WILL HAPPEN DUE TO MODE/PROMPT FLAG ERROR
211*6 C..COLLECT TITLE FOR ID OF POSSIBLE MULTIPLE UNITS
211*7 IPROMT=0
211*8 WRITE (IOUASK, 1060)
211*9 READ(IOUGEN, 1070,END=19l*0) PROJ I D
2150 GOTO 1075
2151 c
2152 C..PARSE PROMPT/MODE FLAG
2153 C
2151* 1050 IPROMT=IPROMT+1
2155 GOTO (1051,1052,1053,105**) , IPROMT
2156 1051 IPROMTO
2157 MDEFLG=1
2158 GOTO 1059
2159 1052 IPROMT=1
2160 MDEFLG=1
2161 GOTO 1059
2162 1053 IPROMT=0
2163 MDEFLG=2
2161* GOTO 1059
2165 1051* IPROMT=1
2166 MDEFLG=2
2167 c
2168 C..READ TITLE
2169 c
2170 1059 IF (IPROMT.EQ.l) WRITE (IOUASK,1060)
2171 1060 FORMAT ('CENTER PROJECT ID:1)
2172 READ (IOUGEN, 1070,END=19l*0) PROJ I D
2173 1070 FORMAT (20AM
>»» SUBROUTINE INPUT <««
-------
APPENDIX B
MOBILE2
DECEMBER 12, 1980
2174
2175
2176
2177
2178
2179
2180
2181
2182
2183
2184
2185
2186
2187
2188
2189
2190
2191
2192
2193
2195
2196
2197
2198
2199
2200
2201
2202
2203
2204
2205
2206
2207
2208
2209
2210
2211
2212
2213
2214
2215
2216
2217
2218
2219
2220
2221
2222
2223
2224
2225
2226
2227
2228
2229
2230
2231
C..WRITE TITLE TO DISTINCT ERROR/PROMPT UNITS
C
1075 IF (IOUREP.NE.IOUERR) CALL OUTHDR (IOUERR)
C..DISPLAY UNIT NUMBER VALUES IF CHANGED
IF(IOUSUM.GT.O) CALL QUITER (0.,0,71
IF(IPROMT.EQ.l.AND.IOUASK.NE.IOUREP
* CALL OUTHDR (IOUASK)
INITPR=1
INERR)
AND.IOUASK.NE.IOUERR)
C..TEST IPROMT/IPRSAV FOR FATAL ERROR
IF (IPRSAV.LT.O.OR.IPRSAV.GT-3) CALL
C
IF (MDEFLG.EQ.2) GOTO 1230
QU1TER(0.,IPRSAV,2,INERR)
IF (IPROMT.EQ.l) WRITE (IOUASK,1190)
READ(IOUGEN,1080,END=1940) INF LAG
IF (INFLAG.LT.O.OR.INFLAG.GT.l) CALL QUITER (0.,INFLAG,3,INERR)
IF(IPROMT.EQ.l) WRITE(IOUASK,1130)
READ (IOUGEN,1080,END=1940) SPDFLG
IF (SPDFLG.NE.O.AND.SPDFLG.NE.2) CALL QUITER (0.,SPDFLG,4,INERR)
IF (IPROMT.EQ.l) WRITE (IOUASK,1090)
READ (IOUGEN,1080,END=1940) VMFLAG
IF (VMFLAG.LT.O.OR.VMFLAG.GT.2) CALL QUITER (0.,VMFLAG,5,INERR)
IF(IPROMT.EQ.l) WRITE (IOUASK,1170)
READ (IOUGEN,1080,END=1940) MYMRFG
IF(MYMRFG.LT.O.OR.MYMRFG.GT.3) CALL QUITER (0.,MYMRFG,6,INERR)
IF(IPROMT.EQ.l) WRITE (IOUASK,1100)
READ (IOUGEN,1080,END=1940) ALTFLG
IF (ALTFLG.LT.O.OR.ALTFLG.GT.l) CALL QUITER (0.,ALTFLG,7,INERR)
IF (IPROMT.EQ.l) WRITE (IOUASK,Il80)
READdOUGEN, 1080,END=1940) IMFLG
IF (IMFLG.LT.O.OR.IMFLG.GT.2) CALL QUITER (0.,IMFLG.8,INERR)
IF (IPROMT.EQ.l) WRITE (IOUASK,1110)
READ(IOUGEN,1080,END=1940) ALHFLG
IF (ALHFLG.LT.O.OR.ALHFLG.GT.2) CALL QUITER (0.,ALHFLG,9,INERR)
IF (IPROMT.EQ.l) WRITE (IOUASK,1120)
READ(IOUGEN,1080,END=1940) TRKFLG
IF (TRKFLG.NE.O) CALL QUITER (0.,TRKFLG,10,INERR)
IF (IPROMT.EQ.l) WRITE (IOUASK,1220)
READdOUGEN, 1080,END=1940) I FORM
IF (IFORM.LT.O.OR.IFORM.GT.4) CALL QUITER (0.,I FORM,11, INERR)
IF (IPROMT.EQ.l) WRITE (IOUASK,1210)
READ(IOUGEN,1080,END=1940) PRTFLG
IF (PRTFLG.LT.O.OR.PRTFLG.GT.3) CALL QUITER (0.,PRTFLG,12,INERR)
IF (IPROMT.EQ.l) WRITE (IOUASK,1200)
READdOUGEN, 1080, END=1 940) ICEVFG
IF (ICEVFG.LT.O.OR.ICEVFG.GT.3) CALL QUITER (0.,ICEVFG,13,INERR)
IF (IPROMT.EQ.l) WRITE (IOUASK,1150)
READ(IOUGEN,1080,END=1940) IDLFLG
IF (IDLFLG.LT.O.OR.IDLFLG.GT.l) CALL QUITER (0.,IDLFLG,14,INERR)
IF (IPROMT.EQ.l) WRITE (IOUASK,1140)
READ (IOUGEN,1080,END=1940) NMHFLG
IF (NMHFLG.LT.O.OR.NMHFLG.GT.l) CALL QUITER (0.,NMHFLG,15,INERR)
IF(I PROMT.EQ.l) WRITE (IOUASK,1160)
READ (IOUGEN,1080,END=1940) UNFFLG
IF (UNFFLG.NE.O) CALL QUITER (0.,0,50,INERR)
>»» SUBROUTINE INPUT <««
-------
2232
2233
2234
2235
2236
2237
2238
2239
2240
2241
2242
2243
2244
2245
2246
2247
2248
2249
2250
2251
2252
2253
2254
2255
2256
2257
2258
2259
2260
2261
2262
2263
2264
2265
2266
2267
2268
2269
2270
2271
2272
2273
2274
2275
2276
2277
2278
2279
2280
2281
2282
2283
2284
2285
2286
2287
2288
2289
APPENDIX B
MOBILE2
1080
1090
1100
1110
120
130
140
150
160
170
180
190
1200
1210
1220
FORMAT (
FORMAT (
FORMAT (
FORMAT (
FORMAT (
FORMAT (
FORMAT(
FORMAT (
FORMAT (
FORMAT (
FORMAT (
FORMAT (
FORMAT (
FORMAT (
FORMAT (
D
ENTER
ENTER
ENTER
ENTER
ENTER
ENTER
ENTER
ENTER
ENTER
ENTER
ENTER
ENTER
ENTER
ENTER
VMFLAG:
ALTFLG:
ALHFLG:
TRKFLG:
SPDFLG:
NMHFLG:
IDLFLG:
UNFFLG:
MYMRFG:
IMFLG: '
INFLAG:
ICEVFG:
PRTFLG:
IFORM: '
')
i \
i \
i \
i \
')
i \
i \
i \
)
i \
')
')
)
DECEMBER 12, 1980
GOTO 1250
C..READ FLAGS FOR MODE 2
1230 IF (IPROMT.EQ.l) WRITE (IOUASK, 1235)
1235 FORMATC ENTER INFLAG, SPDFLG, VMFLAG, MYMRFG, ALTFLG, IMFLG,1
*,' ALHFLG,1/' TRKFLG, IFORM, PRTFLG, ICEVFG, IDLFLG, NMHFLG, &'
*, ' UNFFLG1)
READ(IOUGEN,1240,END=1940) INF LAG, SPDFLG, VMFLAG, MYMRFG, ALTFLG,
* IMFLG, ALHFLG, TRKFLG, I FORM, PRTFLG, ICEVFG, I DLFLG, NMHFLG, UNFFLG
1240
FORMAT(I1,13(1X,II))
F(IPROMT.LT.O.OR.IPROMT.GT.l)
F(INFLAG.LT.O.OR.INF LAG.GT.l)
F(SPDFLG.NE.O.AND.SPDFLG.NE.2)
F (VMFLAG.LT.O.OR.VMFLAG.GT.2)
F(MYMRFG.LT.O.OR.MYMRFG.GT.3)
CALL QUITER(0.,
CALL QUITER(0.,
CALL QUITER(0,
CALL QUITER(0.,
CALL QUITER(0.,
I PROMT,2,INERR)
INFLAG,3,INERR)
,SPDFLG,if, INERR)
VMFLAG,5,INERR)
MYMRFG,6,INERR)
1250
F (ALTFLG.LT.O.OR.ALTFLG.GT.l) CALL QUITER (0..ALTFLG,7,INERR)
F (IMFLG.LT.O.OR.IMFLG.GT.2) CALL QUITER(0.,IMFLG,8.INERR)
F (ALHFLG.LT.O.OR.ALHFLG.GT.2) CALL QUITER (0..ALHFLG,9,INERR)
F (TRKFLG.NE.O) CALL QUITER(0..TRKFLG,10,INERR)
F (IFORM.LT.O.OR.IFORM.GT.4) CALL QUITER (0.,I FORM,11,
F (PRTFLG.LT.O.OR.PRTFLG.GT.3) CALL QUITER (0.,PRTFLG,
CALL QUITER(0.,ICEVFG,
CALL QUITER (0.,IDLFLG,
CALL QUITER(0.,NMHFLG,
0,50,INERR)
F(ICEVFG
F(IDLFLG
F (NMHFLG
F (UNFFLG
CONTINUE
LT
LT
LT
NE
OR. ICEVFG. GT. 3)
OR. IDLFLG. GT.l)
OR. NMHFLG. GT.l)
CALL QUITER(0.
INERR)
12, INERR)
INERR)
INERR)
INERR)
13
14
15
IF (INERR.GT.O)
CALL QUITER(0,
AND.I PROMT.EQ,
AND.INFLAG,
AND. INFLAG,
GOTO 1270
.EQ
.EQ
D
0)
D
IF(VMFLAG.EQ.2.
IF (VMFLAG.EQ.2.
IF (VMFLAG.EQ.2.
IF (VMFLAG.NE.2)
X=0.
DO 1260 IV=1,MAXVEH
X=VMTMIX(IV)+X
IF (VMTMIX(IV) .LT.O..OR.VMTMIX(IV) .
* CALL QUITER(VMTMIX(IV) ,0,17,
1260 CONTINUE
IF (X+1.E-6.LT.1..0R.X-1.E-6.GT.1.)
,0.53,INERR)
WRITE (IOUASK,1790)
READ(IOUGEN,1820,END=1940) VMTMIX
READ(IOUGEN,l820,END=1940) VMTMIX
GT.l .)
INERR)
CALL QUITER (X,0,18,INERR)
1270 IF (MYMRFG.NE.LAND.MYMRFG.NE.3) GOTO
IF(IPROMT.EQ.l) WRITE (IOUASK,1280)
1280 FORMAT (/)
1350
>»» SUBROUTINE INPUT <««
-------
APPENDIX B
MOBILE2 DECEMBER 12, 1980
2290 c
2291 c
2292 DO 1320 IV=1,MAXVEH
2293 C
229^ DO 1310 J=l,2
2295 IF (IPROMT.EQ.l) WRITE (IOUASK,1290) (NAMMMR (I , J, I V) , 1 = 1,4)
2296 1290 FORMAT (' ENTER MYM AGES ',4A4)
2297 L-l
2298 M=10
2299 IF (J.EQ.l) GOTO 1300
2300 L=ll
2301 M=20
2302 1300 READOOUGEN,1430,END=1940) (SAVMYM (N, I V) ,N=L,M)
2303 1310 CONTINUE
2304 1320 CONTINUE
2305 c
2306 c
2307 DO 1340 IV=1,MAXVEH
2308 c
2309 DO 1330 IDX=1,20
2310 IF(SAVMYM(IDX,IV) .LT.O.) CALL QUITER(SAVMYM(IDX,IV) ,0,19,INERR)
2311 1330 CONTINUE
2312 1340 CONTINUE
2313 1350 IF (MYMRFG.NE.2.AND.MYMRFG.NE.3) GOTO 1440
2314 IF (IPROMT.EQ.l) WRITE (IOUASK,1280)
2315 DO 1400 IV=1,MAXVEH
2316 DO 1380 J=l,2
2317 IF (IPROMT.EQ.l) WRITE (IOUASK,1360) (NAMMMR (I,J,I V),I=1,4)
2318 1360 FORMAT (' ENTER MYR AGES (,4A4)
2319 L-l
2320 M=10
2321 IF (J.EQ.l) GOTO 1370
2322 L-ll
2323 M=20
2324 1370 READdOUGEN,1430,END=1940) (SAVMYR (N, IV) ,N=L,M)
2325 1380 CONTINUE
2326 x=o.
2327 DO 1390 IDX=1,20
2328 1390 X=SAVMYR(IDX,IV)+X
2329 IF (X-.00001.GT.l..OR.X+.00001.LT.l.) CALL QUITER (X,0,49,INERR)
2330 1400 CONTINUE
2331 c
2332 C
2333 DO 1420 IV=1,MAXVEH
2334 C
2335 DO 1410 IDX=1,20
2336 IF(SAVMYR(IDX,IV) .LT.O.) CALL QUITER(SAVMYR (IDX,iV) ,0,20,INERR)
2337 1410 CONTINUE
2338 1420 CONTINUE
2339 1430 FORMAT(10F5-3)
2340 C
2341 C
2342 1440 IF (MYMRFG.EQ.O) GOTO 1490
2343 c
2344 C
2345 DO 1470 IV=1,MAXVEH
2346 C
2347 DO 1460 IDX=1,20
>»» SUBROUTINE INPUT <««
-------
APPENDIX B
»» SUBROUTINE INPUT <««
-------
APPENDIX B
MOBILE2 DECEMBER 12, 1980
INTALT(3, IFAC)=IPLALT
2407 INTALT(4,IFAC)=MYFRST
2408 INTALT(5, IFAC)=MYLAST
2409 R4ALT(1,IFAC)=BASNEW
2410 1560 R4ALT(2,IFAC)=DELNEW
2411 CALL EFALTX(INERR)
2412 C
2413 C..READ I/M PARAMS
2414 C
2415 1565 IF (IMFLG.EQ.O) GOTO 1600
2416 NLINES=0
2417 IF(IPROMT.EQ.l) WRITE(IOUASK,1570)
2418 1570 FORMAT ('CENTER YEAR I/M BEGINS, STRINGENCY, M.T. FLAG,'
2419 * /' FIRST MODEL YEAR AND LAST MODEL YEAR OF PROG. BENEFITS')
2420 C
2421 IF (IMFLG.EQ.2) GOTO 1580
2422 C
2423 C..IMFLG=1
2424 ILDT=0
2425 IOPTN=50
2426 NUDATA=0
2427 IF (INFLAG.EQ.O) READ(IOUGEN,1575,END=ig40)
2428 * ICYIM,ISTRIN,IMTFLG.MODYR1.MODYR2
2429 IF (INFLAG.EQ.1) READ (IOUGEN,1575,END=ig40)
2430 * ICYIM,ISTRIN,IMTFLG.MODYR1.MODYR2
2431 1575 FORMAT(I2,1X,12,IX,I1.1X,12,IX,12)
2432 GOTO 1595
2433 C
2434 C..IMFLG=2
2435 1580 IF(IPROMT.EQ.I) WRITE(IOUASK,1585)
2436 1585 FORMATC VEH.TYPE,OPTION,AND NEWDATA FLAG')
2437 IF (INFLAG.EQ.O) READ (IOUGEN,1590,END=ig40)
2438 * ICYIM,ISTRIN,IMTFLG.MODYR1.MODYR2,ILDT,IOPTN.NUDATA
2439 IF (INFLAG.EQ.1) READ (IOUGEN,1590,END=1940)
2440 * ICYIM,ISTRIN,IMTFLG.MODYR1.MODYR2,ILDT,IOPTN.NUDATA
2441 1590 FORMAT(I2,IX,12,IX,II,IX,12,IX,12,IX,II,IX,12,IX,II)
2442 C
2443 C,.CHECK I/M INPUTS
2444 1595 CALL YRTEST(ICYIM,32,IY1970,IY2020,INERR)
2445 IF (ISTRIN.LT.10.0R.ISTRIN.GT.50) CALL QUITER (0.,I SIR IN,33, INERR)
2446 IF (IMTFLG.LT.O.OR.IMTFLG.GT.I) CALL QUITER (0.,IMTFLG,34,INERR)
2447 CALL YRTEST (MODYR1,35,IY195LIY2020,INERR)
2448 CALL YRTEST (MODYR2,36,IY1951,IY2020,INERR)
2449 IF(MODYR1.GT.MODYR2) CALL QUITER (0.,0,37,INERR)
2450 IF (ILDT.LT.O.OR.ILDT.GT.3) CALL QUITER (0.,I LOT,72,INERR)
2451 IF (IOPTN.LT.50.0R.IOPTN.GT.90) CALL QUITER (0.,IOPTN.73,INERR)
2452 IF (NUDATA.LT.O.OR.NUDATA.GT.3) CALL QUITER (0..NUDATA,74,INERR)
2453 IF (NUDATA.GT.O) CALL NEWDAT (IRDFLG)
2454 C
2455 C
2456 1600 IF (ICEVFG.LT.2) GOTO 9999
2457 C.. READ TRIPS/DAY AND MILES/DAY
2458 IF (tPROMT.EQ.l) WRITE(IOUASK,1610)
2459 1610 FORMAT ('CENTER AVERAGE TRIPS/DAY')
2460 READ (IOUGEN,1620,END=1940) USRTPD
2461 1620 FORMAT (8F5-D
2462 DO 1630 IV=1,MAXVEH
2463 IF (USRTPD (IV) .LT.O.) CALL QUITER (USRTPD (I V),0,54,INERR)
>»» SUBROUTINE INPUT <««
-------
APPENDIX B
MOBILE2
DECEMBER 12, 1980
2461*
2465
2466
246?
2468
2469
2470
2471
2472
2473
2474
2475
2476
2477
2478
2479
2480
2481
2482
2483
2484
2485
2486
2487
2488
2489
2490
2491
2492
2493
2494
2495
2496
2497
2498
2499
2500
2501
2502
2503
2504
2505
2506
2507
2508
2509
2510
2511
2512
2513
2514
2515
2516
2517
2518
2519
2520
2521
1630 CONTINUE
IF (IPROMT.EQ.l) WRITE(IOUASK,l640)
1640 FORMAT ('CENTER AVERAGE MILES/DAY1)
READ (IOUGEN,1620,END=1940) USRMPD
DO 1650 IV=1,MAXVEH
IF(USRMPD(IV) .LT.O.) CALL QUITER(USRMPD(I V) ,0,55,INERR)
1650 CONTINUE
CALL CCEVAX
GOTO 9999
C
C
C
C
C
C
C
..READ E.F. CALCULATION INPUT PARAMETERS
1660 CONTINUE
IF (IPROMT.EQ.l.AND.SPDFLG.EQ.O) WRITE (IOUASK,1670)
1670 FORMAT ('CENTER REGION, CY.SPD (1),TAMB,PCCN,PCHC,PCCC:
IF(IPROMT.EQ.l.AND.SPDFLG.EQ.l) WRITE (IOUASK,1680)
1680 FORMAT ('CENTER REGION, CY.SPD (3),TAMB,PCCN,PCHC.PCCC:
IF (IPROMT.EQ.1.AND.SPDFLG.EQ.2) WRITE (IOUASK,1690)
1690 FORMAT ('CENTER REGION, CY.SPD (8).TAMB.PCCN,PCHC.PCCC:
IF (SPDFLG.EQ
AREAD (IOUGEN,
IF (SPDFLG.EQ
*READ (IOUGEN,
* I REJN,ICY
IF (SPDFLG.EQ
*READ (IOUGEN,
IF (SPDFLG.EQ
*READ(IOUGEN,
IF (SPDFLG.EQ
*READ (IOUGEN,
* I REJN,ICY
IF (SPDFLG.EQ
*READ(IOUGEN,
.O.AND.INFLAG.EQ.O)
1700,END=1940) IREJN,ICY.SPD(l),TAMB,PCCN,PCHC.PCCC
.LAND. INFLAG.EQ.O)
1710,END=1940)
,SPD (1),SPD (2),SPD (3) ,TAMB.PCCN,PCHC.PCCC
.2.AND.INFLAG.EQ.O)
1720,END=1940) IREJN,ICY,SPD,TAMB.PCCN,PCHC.PCCC
.O.AND.INFLAG.EQ.l)
1700,END=1940) IREJN,ICY.SPD(l).TAMB.PCCN,PCHC,PCCC
. 1.AND.INFLAG.EQ.1)
1710,END=1940)
,SPD(1) ,SPD(2) ,SPD(3) .TAMB.PCCN, PCHC, PCCC
.2.AND.INFLAG.EQ.l)
1720,END=1940) IREJN,ICY,SPD,TAMB,PCCN,PCHC,PCCC
1700 FORMAT(I1,1X,I2,5(1X,F4.1))
1710 FORMAT (I1.1X,I2,7(1X,F4.1))
1720 FORMAT (I1,1X,I2,12(1X,F4.1))
IF(IREJN.EQ.5.AND.IPROMT.EQ.1) WRITE (IOUASK,1730)
1730 FORMATCOENTER ALTITUDE:')
IF (IREJN.EQ.5.AND.INFLAG.EQ.O) READ (IOUGEN,1740,END=1940) ALT
IF (IREJN.EQ.5.AND.INFLAG.EQ.l) READ(IOUGEN,1740,END=1940) ALT
1740 FORMAT(F6.0)
:.. VALIDATE INPUTS
IF(IREJN.NE.1.AND.IREJN.NE.2.AND.IREJN.NE.3..AND.IREJN.NE.5)
* CALL QUITER(0.,IREJN,24,INERR)
CALL YRTEST(ICY,38,IY1970,IY2020,INERR)
:..CHECK INPUT SPEED (S)
IF (SPDFLG.EQ.2) GOTO 1770
>»» SUBROUTINE INPUT <««
-------
2522
2523
2524
2525
2526
2527
2528
2529
2530
2531
2532
2533
2534
2535
2536
2537
2538
2539
25^0
2541
2542
2543
2544
2545
2546
2547
2548
2549
2550
2551
2552
2553
2554
2555
2556
2557
2558
2559
2560
2561
2562
2563
2564
2565
2566
2567
2568
2569
2570
2571
2572
2573
2574
2575
2576
2577
2578
2579
APPENDIX B
MOBILE2
GOTO 1750
DECEMBER 12, 1980
IF (SPDFLG.EQ.O)
SPD(8)=SPD(3)
SPD(7)=SPD(2)
SPD(4)=SPD(2)
SPD(6)=SPD(1)
SPD(5)=SPD(1)
SPD(3)=SPD(1)
SPD(2)=SPD(1)
GOTO 1770
1750 DO 1760 IV=2,MAXVEH
1760 SPD(IV)=SPD(1)
1770 DO 1780 IV=1,MAXVEH
IF (SPD(IV) .LE.O.) CALL QUITER (SPD (IV) ,0, 39, I NERR)
IF (SPD(IV).LT.5.) CALL QUITER(SPD(IV),0,52,INERR)
IF (SPD (IV) .GT.O.. AND. SPD (IV) .LT.50 SPD (IV) =5.
IF (SPD(IV) .GT.55-) CALL QUITER (SPD (IV) ,0,16, INERR)
1780 IF (SPD(IV) .GT.55-) SPD(IV)=55-
TAMB=FLOAT(IFI X(TAMB+.5))
IF(TAMB.LT.O..OR.TAMB.GT.
IF (PCCN.LT.O..OR.PCCN.GT.
IF (PCHC.LT.O..OR.PCHC.GT.
IF (PCCC.LT.O..OR.PCCC.GT.
X=PCHC+PCCC
IF(X.LT.O..OR.X.GT.100.)
X=X-PCCN
IF(X.LT.O..OR.X.GT.100.)
110.) CALL QUITER(TAMB,0,40,INERR)
100.) CALL QUITER(PCCN,0,41,INERR)
100.) CALL QUITER(PCHC,0,42,INERR)
100.) CALL QUITER (PCCC,0,43,INERR)
CALL QUITER(X,0,63,INERR)
CALL QUITER(X,0,64,INERR)
.SET DEFAULT ALTITUDE (TREAT REG 6 AS REG 5 WHEN DONE)
IF (IREJN.EQ.1.0R.IREJN.EQ.2) ALT=500.
IF (IREJN.EQ.3-OR.IREJN.EQ.4) ALT=5500.
IF (ALT.LT.-200..OR.ALT.GT.10000.) CALL QUITER (ALT,0,58,INERR)
IF (VMF LAG.EQ. LAND. I PROMT. EQ.l) WRITE (I OUASK, 1790)
1790 FORMAT ('CENTER VMT SPLIT:1)
IF (VMFLAG.EQ.l.AND.INFLAG.EQ.O) READ(IOUGEN,1820,END=1940) VMTMIX
IF (VMFLAG.EQ.l.AND.INF LAG.EQ.l) READ (IOUGEN,1820,END=1940) VMTMIX
IF (VMFLAG.NE.l) GOTO l8lO
X=0.
DO 1800 IV=1,MAXVEH
X=VMTMIX(IV)+X
IF (VMTMIX (IV) .LT.O..OR.VMTMIX(IV) .GT.l.)
* CALL QUITER (VMTMIX (IV) ,0,17,INERR)
1800 CONTINUE
IF(X+1.E-6.LT.1..OR.X-1.E-6.GT.1.) CALL QUITER (X,0,18,INERR)
1810 CONTINUE
1820 FORMAT (8F4.3)
..HERE READ IN ALUH PARAMS
..ASSIGN DB/WB DEFAULT TEMPS FOR A/C USAGE (90% FOR DEFAULTS)
DB=85.
WB=75-
>»» SUBROUTINE INPUT <««
-------
APPENDIX B
2580
2581
2582
2583
2584
2585
2586
2587
2588
2589
2590
2591
2592
2593
2595
2596
2597
2598
2599
2600
2601
2602
2603
2604
2605
2606
2607
2608
2609
2610
2611
2612
2613
2614
2615
2616
2617
2618
2619
2620
2621
2622
2623
2624
2625
2626
2627
2628
2629
2630
2631
2632
2633
2634
2635
2636
2637
MOBILE2
IF (ALHFLG.EQ.O) GOTO 1900
IF (ALHFLG.EQ.2) GOTO i860
IF (IPROMT.EQ.l) WRITE(IOUASK,l830)
1830 FORMAT ('CENTER AC.XLOAD (3),TRAILR (1) .ABSHUM')
IF (INFLAG.EQ.O)
* READ (IOUGEN,1840,END=1940)
ft AC,XLOAD,TRAILR(1) .ABSHUM
IF (INFLAG.EQ.l)
* READ (IOUGEN,1840,END=1940)
* AC,XLOAD.TRAILR(l).ABSHUM
1840 FORMAT(8F4.3,2F4.1)
DO 1850 IVP=2,MAXLTW
1850 TRAILR(IVP)=TRAILR(1)
GOTO i860
DECEMBER 12, 1980
i860 IF (IPROMT.EQ.l) WRITE(IOUASK,1870)
1870 FORMAT('CENTER AC.XLOAD(3) ,TRAILR(3) ,ABSHUM,DBTEMP.WBTEMP')
IF (INFLAG.EQ.O)
* READ (IOUGEN,1840,END=1940)
ft AC.XLOAD.TRAILR,ABSHUM,DB.WB
IF (INFLAG.EQ.l)
ft READ (IOUGEN,1840,END=1940)
ft AC.XLOAD.TRAILR,ABSHUM,DB.WB
.VALIDATE INPUTS FOR ALUH
1880 IF (AC.LT.O..OR.AC.GT.1.) CALL QUITER (AC,0,44,INERR)
IF(AC.GT.O.) CALL QUITER (0.,0,56,INERR)
DO 1890 IVP=1,MAXLTW
IF (XLOAD(IVP) .LT.O..OR.XLOAD(IVP) .GT.l.)
ft CALL QUITER (XLOAD(IVP) ,0,45,INERR)
IF (TRAILR(IVP) .LT.O..OR.TRAILR(IVP) .GT.l.)
ft CALL QUITER(TRAILR(IVP) ,0,46,INERR)
1890 CONTINUE
IF (ABSHUM.LT.20..OR.ABSHUM.GT.l40.) CALL QUITER(ABSHUM,0,47,INERR)
IF (DB.LT.O..OR.DB.GT.110.) CALL QUITER (DB.0,40,INERR)
IF (WB.LT.O..OR.WB.GT.110.) CALL QUITER (WB,0,40,INERR)
IF(WB.GT.DB) CALL QUITER(0.,0,57,INERR)
:..HERE READ IN TRUCK CHAR. PARAMS
1900 IF (TRKFLG.EQ.O) GOTO 1920
IF (IPROMT.EQ.l) WRITE(IOUASK,1910)
1910 FORMAT('CENTER HGWGT.HDWGT.HGCID.HDCID (VALUES WILL BE IGNORED)')
IF (INFLAG.EQ.O)
ftREAD (IOUGEN,1930,END=1940) IDUM
IF (INFLAG.EQ.l)
ftREAD (IOUGEN,1930,END=1940) IDUM
1920 CONTINUE
1930 FORMAT(20A4)
GOTO 9999
>»» SUBROUTINE INPUT <««
-------
APPENDIX B
MOBILE2 DECEMBER 12, 1980
2638 c
2639 C
2640 C
2641 1940 CONTINUE
2642 IRDFLG =
2643 C
2644 9999 RETURN
2645 END
>»» SUBROUTINE INPUT <««
-------
APPENDIX B
MOBILE2 DECEMBER 12, 1980
3000
3001
3002
3003
3001*
3005
3006
3007
3008
3009
3010
3011
3012
3013
3014
3015
3016
3017
3018
3019
3020
3021
3022
3023
3024
3025
3026
3027
3028
3029
3030
3031
3032
3033
3034
3035
3036
3037
3038
3039
3040
301*1
301*2
301*3
3041*
301*5
3046
301*7
3048
301*9
3050
3051
3052
3053
3054
3055
3056
3057
SUBROUTINE NEWDAT (1 RDFLG)
C
C
C.. PURPOSE:
C
C..SPROG READS UNIT IOUIMD DATA ONLY FOR MODE 2 INPUT.
C
C
C.. ARGUMENTS:
C
C..NAME USAGE DESCRIPTION
C
C..IRDFLG I/O SET TO 0 IF ERROR WHILE READING UNI
C
C
C..USES SPROGS:
C
C. .NONE
C
C
C. .USED BY:
C
C. . INPUT
C
C
COMMON/ 1 MCOM/ ICYIM, ISTRIN, 1 MTFLG .MODYR1 .MODYR2
COMMON/ 1 MCOM/ 1 LOT, IOPTN, NUDATA, NL 1 NES.STRI NG (18,
COMMON/ 1 MCRED/ 1 RED (19, 20, 5, 2, 2) , 1 TECH** 09, 20,5)
COMMON/ IOUCOM/ IOUIMD, IOUGEN, IOUREP, IOUERR, IOUASK
INTEGER AGE1ST.BY
C
READ(IOUIMD,100,END=888,ERR=888)NLINES
100 FORMAT (1 1)
C
IF (NLINES.EQ.O) GOTO 1*00
C
DO 200 LINES=1,NLINES
200 READ(IOUIMD,300,END=888,ERR=888) (STRING (N, L INES)
300 FORMAT (18A1*)
C
1*00 IF (NUDATA. EQ. 2) GO TO 700
DO 500 IP=1,2
DO 500 ITECH=1,2
DO 500 ISTRN=1,5
DO 500 AGE1ST=1,20
500 READ (IOUIMD, 600, END=888,ERR=888)
* (IRED(BY,AGE1ST,ISTRN,ITECH, IP) ,BY=1,19)
600 FORMAT(19(I2,1X))
IF (NUDATA. EQ.l) GO TO 999
700 DO 800 ISTRN=1,5
DO 800 AGE1ST=1,20
800 READ (IOUIMD, 600, END=888,ERR=888)
* (ITECH1* (BY.AGE1ST, ISTRN) ,BY=1 ,19)
GOTO 999
C
888 IRDFLG=0
WRITE (IOUERR, 889)
889 FORMAT (//' ERROR WHILE READING UNIT IOUIMD1,
T IOUIMD
9)
, IOUUNF
.N-1,18)
>»» SUBROUTINE NEWDAT <««
-------
APPENDIX B
MOBILE2 DECEMBER 12, 1980
3058 * '(NEW I/M CREDITS). RUN ABORTED.'//)
3059 C
3060 999 RETURN
3061 END
>»» SUBROUTINE NEWDAT <««
-------
APPENDIX B
MOBILE2 DECEMBER 12, 1980
4000 SUBROUTINE QUITER (X.K.NN,INERR)
4001
4002
4003
4004
4005
4006
400?
4008
4009
4010
4011
4012
4013
4014
4015
4016
4017
4018
4019
4020
4021
4022
4023
4024
4025
4026
4027
4028
4029
4030
4031
4032
4033
4034
4035
4036
4037
4038
4039
4040
4041
4042
4043
4044
4045
4046
404?
4048
4049
4050
4051
4052
4053
4054
4055
4056
**057
c
c
c.
c
c.
c
c
c.
c
c.
c
c.
c.
c.
c.
c
c
c.
c
c.
c
c
c.
c
c.
c.
c.
c.
c.
c.
c.
c.
c.
c.
c.
c.
c.
c.
c.
c.
c.
c.
c.
c
c
c
.PURPOSE:
.SPROG PRINTS ERROR AND WARNING MESSAGES ON UNIT IOUERR.
.ARGUMENTS:
.NAME USAGE DESCRIPTION
.X IN REAL VALUE ENTERED IN ERROR
.K IN INTEGER VALUE ENTERED IN ERROR
.NN IN ERROR NUMBER
.INERR I/O TOTAL COUNT OF DATA ENTRY ERRORS
.USES SPROGS:
.NONE
.USED BY:
.INPUT
.YRTEST
.TFCALX
.EFALTX
.HOTSOK
.TPD
.DIURNL
.XMPD
.CRANKC
.IGEPTR
. IGUPTR
.IGLPTR
.IGTPTR
.IGPPTR
. INDX3R
.ISPPTR
.ISPPT8
.IEXMPT
.IGSFPT
COMMON/YEARS4/IY195UY1970, IY2020
COMMON/ALTEQU/MAXEQU
COMMON/ALTCOM/INTALT(5, 100) ,R4ALT (2, 100) , MODFLG (100) .NEWFAC
COMMON/ 1 OUCOM/ 1 OU 1 MD, IOUGEN, IOUREP, IOUERR, IOUASK, IOUUNF
DIMENSION NAMFLG (2,15) , NAMVEH (2,8) , NAMFNC (2, 16) , IOBMSG (5)
DATA NAMFLG/
* ' UNK1 , 'NOWN' ,
* ' 1 PR ' , ' OMT ' ,
* ' INF1 , 'LAG ' ,
* ' SPD1 , 'FLG ' ,
* ' VMFVLAG ' ,
>»» SUBROUTINE QUITER <««
-------
1*058
i»059
4060
4061
4062
^063
4064
1+065
4066
406?
4068
4069
4070
4071
4072
4073
4074
4075
4076
4077
4078
4079
4080
408 1
4082
4083
4084
4085
4086
4087
4088
4089
4090
4091
4092
4093
4094
4095
4096
4097
4098
4099
4100
4101
4102
4103
4104
4105
4106
4107
4108
4109
4110
4111
4112
4113
4114
4115
APPENDIX B
MOBILE2
ft ' MYM' , 'RFC ' ,
ft ' ALT' ,'FLG ' ,
* ' 1 MF ' , ' LG ' ,
* ' ALH' , 'FLG ' ,
* ' UNK' , 'NOWN' ,
* ' IFO'.'RM ',
* ' PRT' , 'FLG ' ,
ft ' ICE1 ,'VFG ',
* ' IDL1 ,'FLG ',
ft ' NHM'.'FLG '/
C
DATA NAMVEH/
ft 'LDGV',' ',
ft 'LDGT','1 ',
ft 'LDGT','2 ',
ft 'HDGV1,1 ',
ft 'LDDV',' ',
ft 'LDDT1,1 ',
ft 'HDDV',' ',
ft ' MC ' , ' ' /
C
DATA NAMFNC/
ft ' HOT1 , 'SDK ' ,
ft ' TPD ' , ' ' ,
ft ' DIU1 , 'RNL ' ,
ft ' XMP' , 'D ' ,
ft ' CRA1 , 'NKC ' ,
ft ' IGE1 , 'PTR ' ,
ft ' 1 GU ' , ' PTR ' ,
ft ' IGL1 , 'PTR ' ,
ft ' 1 GT ' , ' PTR ' ,
ft ' IGP1 , 'PTR ' ,
ft ' IND','X3R ',
ft ' ISP1 , 'PTR ' ,
ft ' ISP' , 'PT8 ' ,
ft ' IEX' ,'MPT ' ,
ft ' ITS' , 'WPT ' ,
ft ' IGS' , 'FPT '/
C
DATA IOBMSG/
ft ' OU ' ,
ft 'T OF' ,
ft ' BOU ' ,
ft 'NDS ' ,
ft 'FOR '/
C
DATA MAXERR/74/
C
C
C
N=NN
C..TRAP UNKNOWN ERRORS
IF (N.LT.I.OR.N.GT.MAXERR) N=l
C..TEST FOR WARNINGS
IF(N.NE.10.AND.N.NE.16.AND.N.NE
ft N.NE.49.AND.N.NE.50.AND.N.NE
ft N.NE.59.AND.N.NE.70
ft WRITE (IOUERR, 77)
DECEMBER 12, 1980
.21.AND.N.NE.22.AND.N.NE.31.AND.
.52.AND.N.NE.53.AND.N.NE.56.AND.
>»» SUBROUTINE QUITER <««
-------
APPENDIX B
MOBILE2 DECEMBER 12, 1980
4116 77 FORMAT (//' ***ERROR:')
4117 GOTO(
4118 * 100, 200, 200, 200, 200, 200, 200, 200, 200,1000,
4119 * 200, 200, 200, 200, 200,1600,1700,1800,1900,2000,
4120 * 2100,2200,2300,2400,2500,2600,2700,2700,2900,3000,
4121 * 3100,3200,3300,3400,3500,3600,3700,3800,3900,4000,
4122 * 4100,4200,4300,4400,4500,4600,4700,4800,4900,5000,
4123 * 5100,5200,5300,5400,5500,5600,5700,5800,5900,6000,
4124 * 6100,6200,6300,6400,6500,6600,6700,6800,6900,7000,
4125 * 7100,7200,7300,7400
4126 * ),N
4127 C
4128 C
4129 100 WRITE (IOUERR,110) NN.NAMFLG(1,N).NAMFLG (2,N)
4130 110 FORMATC + ' , 10X, I4.2A4)
4131 GOTO 8888
4132 200 WRITE(IOUERR,210) K,IOBMSG,NAMFLG(1,N).NAMFLG(2,N)
4133 210 FORMAT('+',10X,I4.5A4,'FLAG',2A4)
4134 IF(N.EQ.2) WRITE (IOUERR.220)
4135 220 FORMAT (' PROMPT/MODE TYPE (0 TO 3) MUST BE CORRECTED BEFORE',
4136 * ' YOUR NEXT RUN. ')
4137 GOTO 8888
4138 1000 WRITE(IOUERR,1010)
4139 1010 FORMAT (' WARNING: FLAG TRKFLG IGNORED. "TRKOPC" NO LONGER USED.')
4140 GOTO 9999
4141 1600 WRITE (IOUERR,1610) X
4142 1610 FORMAT (' WARNING: '.G10.3,' SPEED REDUCED TO 55 M.P.H. MAXIMUM')
4143 GOTO 9999
4144 1700 WRITE(IOUERR,1710) X.IOBMSG
4145 1710 FORMAT('+',10X,G10.3,5A4,'VMTMIX (0. TO 1.)')
4146 GOTO 8888
4147 1800 WRITE(IOUERR,1810) X
4148 1810 FORMAT('+',10X,G10.3,' SUM OF VMTMIX IS NOT EQUAL TO 1.')
4149 GOTO 8888
4150 1900 WRITE(IOUERR,1910) X
4151 1910 FORMATC + 1 .10X.G10.3, ' NEGATIVE MODEL YEAR MILEAGE')
4152 GOTO 8888
4153 2000 WRITE (IOUERR,2010) X
4154 2010 FORMATC + ', 10X.G10.3, ' NEGATIVE MODEL YEAR REGISTRATION1)
4155 GOTO 8888
4156 2100 WRITE (IOUERR,2110) X
4157 2110 FORMAT {' WARNING: '.G10.3,' REGISTRATION WITH ZERO MILEAGE')
4158 GOTO 9999
4159 2200 WRITE(IOUERR,2210) X
4160 2210 FORMAT (' WARNING: '.G10.3,' MILEAGE WITH ZERO REGISTRATION')
4161 GOTO 9999
4162 2300 WRITE (IOUERR,2310) K.IOBMSG
4163 2310 FORMATC + '.IOX, I4.5A4,' (1 TO 100 PAIRS)')
4164 GOTO 8888
4165 2400 WRITE (IOUERR,2410) K.IOBMSG
4166 2410 FORMATC + '.IOX, 14,5A4,'REGION (1, 2,3 ,5 ONLY) ')
4167 GOTO 8888
4168 2500 WRITE (10UERR,2510) K.IOBMSG
4169 2510 FORMATC + '.IOX, 14,5A4,'VEHICLE TYPE (ITOB)')
4170 GOTO 8888
4171 2600 WRITE(IOUERR,2610) K.IOBMSG
4172 2610 FORMATC + 1 ,10X, 14,5A4,'POLLUTANT (1 TO 3)')
4173 GOTO 8888
>»» SUBROUTINE QUITER <««
-------
APPENDIX B
MOBILE2 DECEMBER 12, 1980
2700 WRITE (IOUERR,2710) K, I OBMSG, IY1951. I Y2020
It 175 2710 FORMATC + ',10X, |i*,5Ai*,'YEAR ('Jit,1 TO 'Jit,')')
It 176 GOTO 8888
it 177 2900 WRITE (IOUERR,2910)
4178 2910 FORMAT('+' ,10X, ' LAST YEAR CANNOT BE LESS THAN FIRST YEAR')
it!79 GOTO 8888
it 180 3000 WRITE (IOUERR,3010) X
itl8l 3010 FORMAT('+',10X,G10.3, ' INTERCEPT MUST BE POSITIVE')
It 182 GOTO 8888
it 183 3100 WRITE(IOUERR,3110) X
itl81t 3110 FORMAT (' WARNING: '.G10.3,' NEGATIVE SLOPE FOR AGEING VEHICLE1)
If 185 GOTO 9999
i»l86 3200 WRITE (IOUERR,2710) K, I OBMSG, IY1970, I Y2020
itl87 GOTO 8888
it 188 3300 WRITE (IOUERR,3310) K.IOBMSG
it 189 3310 FORMATC + ',10X, |i»,5Ai*.'STRINGENCY (10 TO 50)')
it 190 GOTO 8888
1*191 3itOO WRITE (IOUERR, 3^0) K.IOBMSG
1*192 3l»10 FORMAT (' + ' ,10X, |l*,5Al*, 'MECHANICS TRAINING (OT01)')
1*193 GOTO 8888
1*191* 3500 WRITE (IOUERR,3510) K, I OBMSG, IY1951. IY2020
1*195 3510 FORMATC + ', 10X, 14,5Ait,'MODYR1 C,|i*,' TO ',|1*,')')
1*196 GOTO 8888
1*197 3600 WRITE (IOUERR,3610) K, IOBMSG, I Y1951. I Y2020
1*198 3610 FORMAT (' + ', 10X, |1*,5A1*,'MODYR2 (',Ht,' TO '.Ht,')')
1*199 GOTO 8888
1*200 3700 WRITE (IOUERR,3710)
1*201 3710 FORMATC + 1 , 10X, ' MODYR1 CANNOT BE GREATER THAN MODYR2 ')
1*202 GOTO 8888
1*203 3800 WRITE(IOUERR,2710) K, I OBMSG, I Y1970, IY2020
1*201* GOTO 8888
1*205 3900 WRITE (IOUERR,3910) X
1*206 3910 FORMAT(' + MOX,G10,3, ' SPEED MUST BE POSITIVE1)
1*207 GOTO 8888
1*208 1*000 WRITE (IOUERR, 1*010) X
1*209 M10 FORMATC + ',10X,G10.3, ' VALID TEMPERATURE IS 0-110 DEC. (F)1)
1*210 GOTO 8888
1*211 1*100 WRITE (IOUERR,1*110) X, IOBMSG
4212 1*110 FORMATC + ', 10X,G10.3,5Al*,'PCCN (0. TO 100.)')
1*213 GOTO 8888
1*211* 1*200 WRITE (IOUERR,1*210) X, IOBMSG
1*215 *»210 FORMATC + 1 ,10X,G10.3,5Ai*, 'PCHC (0. TO 100.)')
It2l6 GOTO 8888
1*217 1*300 WRITE (IOUERR, 1*310) X, IOBMSG
1*218 1*310 FORMATC + ',10X,G10.3,5Al*,'PCCC (0. TO 100.)')
1*219 GOTO 8888
1*220 1*1*00 WRITE (IOUERR, 1*1* 10) X, IOBMSG
1*221 1*1*10 FORMAT(1 + 1 ,10X,G10.3,5Al*.'AC (0. TO 1.)')
1*222 GOTO 8888
1*223 1*500 WRITE (IOUERR, 1*510) X, IOBMSG
1*221* 1*510 FORMATC + 1 ,10X,G10.3,5Ai»,'EXTRA LOAD (0. TO 1.)')
It225 GOTO 8888
It226 1+600 WRITE (IOUERR, 1*610) X, IOBMSG
1*227 *»6lO FORMATC + ', 10X.G10.3,5A4,'TRAILERS (0. TO 1.)')
1*228 GOTO 8888
1*229 1*700 WRITE (IOUERR,1*710) X, IOBMSG
1*230 1*710 FORMATC + ',10X,G10.3,5A1*.'HUMIDITY (20. TO 11*0.)')
1*231 GOTO 8888
>»» SUBROUTINE QUITER <««
-------
APPENDIX B
MOBILE2 DECEMBER 12, 1980
1*232 1*800 WRITE(I OUERR,l*8lO) NAMVEH (1,K).NAMVEH (2,K)
1*233 4810 FORMAT (' + ',10X,' THERE ARE NO SALES FOR VEHICLE ',2Al*)
1*23*4 GOTO 8888
1*235 1*900 WRITE (I OUERR,4910) X
1*236 1*910 FORMATC WARNING: '.G10.3,' MR SUM NOT = 1. (WILL NORMALIZE)1)
1*237 GOTO 9999
1*238 5000 WRITE (IOUERR,5010)
1*239 5010 FORMATC WARNING: FLAG UNFFLG IGNORED. NO FILE WILL BE WRITTEN.1)
1*21*0 GOTO 9999
1*21*1 5100 WRITEOOUERR,5110) K.MAXEQU
1*21*2 5HO FORMAT('+',10X, 'EQUATION1, 13,' CAUSES MORE THAN ', I 3,
1*21*3 * ' ALLOWED FOR ANY 1 REG/MODE/POL.1)
1*21*1* GOTO 8888
1*21*5 5200 WRITE (IOUERR,5210) X
1*246 5210 FORMATC WARNING: '.G10.3,1 SPEED INCREASED TO 5 M.P.H. MINIMUM1)
1*21*7 GOTO 9999
1*21*8 5300 WRITE (IOUERR,5310)
1*21*9 5310 FORMAT (/,' YOU MUST CORRECT ALL FLAGS BEFORE YOU RUN AGAIN.1)
1*250 GOTO 8888
1*251 5400 WRITE (IOUERR,5410) X
1*252 5410 FORMAT('+',10X,G10.3, ' AVERAGE TRIPS/DAY CANNOT BE NEGATIVE1)
1*253 GOTO 8888
1*254 5500 WRITE (IOUERR,5510) X
1*255 5510 FORMATC + 1 ,10X,G10.3, ' AVERAGE MILES/DAY CANNOT BE NEGATIVE1)
1*256 GOTO 8888
1*257 5600 WRITE (IOUERR,5610)
1*258 5610 FORMATC COMMENT: A/C CORRECTION FACTOR WILL BE CALCULATED.1
1*259 * /I IX,'VALUE OF INPUTTED AC USAGE PARAMETER IS IGNORED.1)
1*260 GOTO 9999
1*261 5700 WRITE (IOUERR,5710)
1*262 5710 FORMAT ('•*•', 10X,'WB TEMP CANNOT BE GREATER THAN DB TEMP1)
1*263 GOTO 8888
1*261* 5800 WRITE (IOUERR,5810) X.IOBMSG
1*265 5810 FORMATC + ', 10X.G10.3,5A1*.'ALTITUDE (-200 TO 10,000 FT.)1)
1*266 GOTO 8888
1*267 5900 WRITE (IOUERR,5910) K, (I NTALT (I , K) , I = 1 , 3)
1*268 5910 FORMATC WARNING: EQUATI ON' , I 3, ' ZEROES ALL IDLE COEFFICIENTS',
1*269 * ' (AND TOTAL) FOR IR=',I1,', IV=',I1,', IP=',I1)
1*270 GOTO 9999
1*271 6000 WRITE (IOUERR,6010) X, I NERR.NAMFNC (1 , K) , NAMFNC (2 , K)
1*272 6010 FORMATC + '.10X.G10.3, ' DEFAULT USED FOR',15,' IN FUNCTI ON1 , 2Al*)
1*273 GOTO 8888
4271* 6100 WRITE(IOUERR,6110) I NERR, NAMFNC (1 , K) , NAMFNC (2 , K)
1*275 6110 FORMATC + '.IOX,1 DEFAULT USED FOR1,15,' IN INDEX FUNCTI ON' ,2Al*)
1*276 GOTO 8888
1*277 6200 WRITE (IOUERR,6210) K.IOBMSG
1*278 6210 FORMATC + 1 , 10X, |l*,5Al«,'ALTEQU REGION (1 ,2, 3 ONLY) ')
1*279 GOTO 8888
1*280 6300 WRITE(IOUERR,6310) X.IOBMSG
1*281 6310 FORMAT(' + ',10X,G10.3,5A1*, ' (0. <= PCHC+PCCC <= 100.)')
1*282 GOTO 8888
1*283 61*00 WRITE (IOUERR, 61* 10) X.IOBMSG
1*281* 61*10 FORMATC + 1 , 10X,G10.3,5A1*. ' (0. <= PCHC+PCCC-PCCN <= 100.)')
1*285 GOTO 8888
1*286 6500 WRITE (IOUERR,6510) K
1*287 6510 FORMAT (' + ', 10X, ' MYR OF LDDV NOT EQUAL TO LDGV FOR IDX=',I2)
1*288 GOTO 8888
1*289 6600 WRITE (IOUERR,6610) K
>»» SUBROUTINE QUITER <««
-------
APPENDIX B
MOBILE2 DECEMBER 12, 1980
4290 6610 FORMATC+MOX,' MYR OF LDDT NOT EQUAL TO LDGTI FOR IDX-MZ)
1*291 GOTO 8888
4292 6700 WRITE(IOUERR,6710) NAM/EH (1,K).NAMVEH(2,K)
4293 6710 FORMATC + ' ,10X, ' EFRETM>0. AND GSF=0. FOR VEHICLE ',2A4)
4294 GOTO 8888
4295 6800 WRITE (IOUERR,6810) NAMVEH(1,K),NAMVEH(2,K)
4296 6810 FORMAT (' + ',10X,' EFRETM<=0. AND VMTMIX>0. FOR VEHICLE ',2A4)
4297 GOTO 8888
4298 6900 WRITE (IOUERR,6910) NAMVEH (1,K).NAMVEH (2,K)
4299 6910 FORMAT (' + ',10X,' IDLRTM>0. AND GSF=0. FOR VEHICLE '.2A4)
4300 GOTO 8888
4301 7000 WRITE (IOUERR,7010) NAMVEH (1,K).NAMVEH (2,K)
4302 7010 FORMATC + ' ,10X, ' IDLRTM<=0. AND VMTMIX>0. FOR VEHICLE '.2A4)
4303 GOTO 8888
4304 7100 WRITE(IOUERR.7110) IOUUNF,IOUREP,IOUERR,IOUASK
4305 7110 FORMAT (' COMMENT: CURRENT OUTPUT UNIT NUMBERS ARE1,
4306 * ' IOUUNF=', I 1,' IOUREP=' , I 1, ' IOUERR=',n,' IOUASK-',I1)
4307 GOTO 9999
4308 7200 WRITE (IOUERR,7210) K.IOBMSG
4309 7210 FORMAT C + '.IOX,14,5A4,'VEHICLE TYPE (0 TO 3)')
4310 GOTO 8888
4311 7300 WRITE (IOUERR,7310) K.IOBMSG
4312 7310 FORMATC + ',10X,14,5A4,'OPTION (50T090)')
4313 GOTO 8888
4314 7400 WRITE (IOUERR,7410) K.IOBMSG
4315 7410 FORMATC + ',10X, I4.5A4,'NEW DATA FLAG (0 TO 3)')
4316 c
4317 C..MESSAGES 60 AND 6l PRODUCE EXCESSIVE OUTPUT IF NOT STOPPED HERE
4318 c
4319 8888 IF (N.EQ.l.OR.N.EQ.2.0R.N.EQ.53-OR.N.EQ.60.0R.N.EQ.61) STOP
4320 INERR=INERR+1
4321 c
4322 9999 RETURN
4323 END
>»» SUBROUTINE QUITER <««
-------
APPENDIX B
MOBILE2
DECEMBER 12, 1980
5000
5001
5002
5003
SOOlf
5005
5006
500?
5008
5009
5010
5011
5012
5013
50 1^
5015
5016
5017
5018
5019
5020
5021
5022
5023
502k
5025
5026
5027
5028
5029
5030
5031
5032
5033
503*
5035
5036
C
C
C.
C
C.
C
C
C.
C
C.
C
C.
C.
C.
C.
C.
C
C
C.
C
C.
C
C
C.
C
C.
C
C
C
SUBROUTINE YRTEST (1 Y.NERR, IY1, IY2, INERR)
.PURPOSE:
.SPROG CONVERTS 2-DIGIT INPUT YEAR TO ^4-DIGIT YEAR
.ARGUMENTS:
.NAME USAGE DESCRIPTION
.IY I/O YEAR TO TEST AND ADJUST TO ^-DIGIT YEAR
.NERR IN NUMBER OF ERROR IF IY IS OUT OF BOUNDS
.IY1 IN LOWER J4-DIGIT BOUND FOR IY
.IY2 IN UPPER i»-DIGIT BOUND FOR IY
.INERR I/O TOTAL COUNT OF DATA ENTRY ERRORS
.USES SPROGS:
.QUITER
.USED BY:
.INPUT
1 I=IY+1900
IFOY.LT.50) II = IY+2000
IF (IY.LT.O.OR.I 1 .LT.IY1.0R. 1 1 .GT.IY2)
* CALL QUITER(0., IY, NERR, INERR)
IY=I 1
RETURN
END
>»» SUBROUTINE YRTEST <««
-------
APPENDIX B
MOBILE2 DECEMBER 12, 1980
6000
6001
6002
6003
6004
6005
6006
6007
6008
6009
6010
6011
6012
6013
6014
6015
6016
6017
6018
6019
6020
6021
6022
6023
6024
6025
6026
6027
6028
6029
6030
6031
6032
6033
6034
6035
6036
6037
6038
6039
6040
C
C
C.
C
C.
c
c
c.
c
c.
c
c.
c.
c.
c.
c.
c.
c
c
c.
c
c.
c.
c.
c.
c.
c.
c.
c.
c.
c.
c
c
c.
c
c.
c
c
c
SUBROUTINE OUTPUT (I CY, EFRETM.WTEDEF , COMCCC, IDLRTM, IDLWT
.PURPOSE:
.SPROG TO WRITE SCENARIO RESULTS ON UNIT IOUREP.
.ARGUMENTS:
.NAME USAGE DESCRIPTION
.ICY IN CALENDAR YEAR
.EFRETM IN COMPOSITE EMISSION FACTORS
.WTEDEF IN TOTAL COMPOSITE EMISSION FACTORS
.COMCCC IN HC EVAPORATIVE EMISSION FACTORS
.IDLRTM IN HOT STABILIZED IDLE EMISSION FACTORS
.IDLWTD IN TOTAL HOT STABILIZED IDLE EMISSION FACTORS
.USES SPROGS:
.OUTHDO
.OUTDTO
.OUTHD1
.OUTDT1
.OUTHD2
.OUTDT2
.OUTHD3
.OUTDT3
.OUTHD4
.OUTDT4
.USED BY:
.MAIN
INTEGER ALTFLG.VMFLAG.ALHFLG.SPDFLG.PRTFLG
6041
6042
6043
6044
6045
6046
6047
6048
6049
6050
6051
6052
6053
6054
6055
6056
6057
C
C
c
c
C.
C
COMMON/FLGCOM/ALTFLG.VMFLAG.ALHFLG, IRDFLG.SPDFLG.NMHFLG, IDLFLG
COMMON/FLGCOM/MYMRFG, IMFLG, I CEVFG, PRTFLG. IFORM.MDEFLG
COMMON/ALTCOM/INTALT(5,100) ,R4ALT (2, 100) .MODFLG(IOO) .NEWFAC
COMMON/REGCOM/IREJN.ALT
COMMON/SYSCOM/MAXVEH, MAXLTW, MAXPOL, MAXREG, INITPR
REAL EFRETM(3,9) .WTEDEF (3) ,COMCCC(9) , IDLRTM(3,9) JDLWTD(3)
IF (ALTFLG.EQ.O) GOTO 200
.ZERO IDLE TOTAL FOR ANY IP WITH ALTERNATE EQUATION FOR CURRENT IREJN,
DO 100 IFAC=1, NEWFAC
IF (MODFLG(IFAC) .EQ.O) GOTO 100
IR=INTALT(1, IFAC)
>»» SUBROUTINE OUTPUT <««
-------
APPENDIX B
MOBILE2
DECEMBER 12, 1980
6058
6059
6060
6061
6062
6063
6061.
6065
6066
6067
6068
6069
6070
6071
6072
6073
6074
6075
6076
6077
6078
6079
6080
6081
6082
6083
6084
6085
6086
6087
6088
IF (IR.NE.IREJN) GOTO 100
IPHNTALT(3,IFAC)
IDLWTD(IP)=0.
100 CONTINUE
C
C..SELECT REPORT FORMAT
C
200 IFORMX=IFORM+1
GOTO (300,1*00,500,600,700) ,IFORMX
C..IFORM=0
300 IF (INITPR.EQ.l) CALL OUTHDO
CALL OUTDTO (ICY,EFRETM,WTEDEF,COMCCC,IDLRTM,IDLWTD)
GOTO 999
C..IFORM-1
1»00 IF(INITPR.EQ.l) CALL OUTHD1
CALL OUTDT1(ICY,EFRETM,WTEDEF,COMCCC,IDLRTM,IDLWTD)
GOTO 999
C..IFORM=2
500 IF (INITPR.EQ.l) CALL OUTHD2
CALL OUTDT2 (ICY,EFRETM,WTEDEF,COMCCC,IDLRTM,IDLWTD)
GOTO 999
C..IFORM=3
600 IF(INITPR.EQ.l) CALL OUTHD3
CALL OUTDT30CY, EFRETM, WTEDEF, COMCCC, IDLRTM, IDLWTD)
GOTO 999
C..IFORM=1»
700 IF (INITPR.EQ.l) CALL OUTHDl*
CALL OUTDTMlCY, EFRETM, WTEDEF, COMCCC, IDLRTM, IDLWTD)
C
999 RETURN
END
>»» SUBROUTINE OUTPUT <««
-------
APPENDIX B
MOBILE2 DECEMBER 12, 1980
7000
7001
7002
7003
700**
7005
7006
7007
7008
7009
7010
7011
7012
7013
7011*
7015
7016
7017
7018
7019
7020
7021
7022
7023
7021*
7025
7026
7027
7028
7029
7030
7031
7032
7033
703**
7035
7036
7037
7038
7039
701*0
701*1
70142
701*3
701*1*
701*5
701*6
701*7
701*8
701*9
7050
7051
7052
7053
7054
7055
C
C
C.
C
C.
C
C
C.
C
C.
C
C.
C
C
C.
C
C.
C
C
C.
C
C.
C
C
C
C
C
C
C
C
C
C
SUBROUTINE OUTHDO
.PURPOSE:
.SPROG TO WRITE SCENARIO HEADER ON UNIT IOUREP FOR IFORM=0.
.ARGUMENTS:
.NAME USAGE DESCRIPTION
.NONE
.USES SPROGS:
.OUTHDR
.USED BY:
.OUTPUT
COMMON/IOUCOM/IOUIMD, IOUGEN, IOUREP, IOUERR, IOUASK, IOUUNF
DIMENSION NAMVEH(6)
DATA NAMVEH/
* ' LDV ,
* 'LDT1 ,
* 'LDT2 ,
* 'HDG ,
ft 'HDD ,
ft 'MC '/
CALL OUTHDR (IOUREP)
WRITE (IOUREP, 100) NAMVEH, NAMVEH
100 FORMAT (
ft'O1, 'R',1»1X, 'P1
*/lX, 'E',8X,' SPEEDS ' ,5X, 'AMB.' ,l8X, '0' ,8X,
ft 'COMPOSITE EMISSION F ACTORS ', l8X, 'VEH 1 CLE Ml X1 , l6X, ' C.E .F . '
VIX.'G CY LD HD MC TMP COLD/HOT START L',
* 6(3X,A1*),
* 6(2X,A1*) , 'ALL VEH'
*/lx,' MM1-1),1 -" M6C-1),
ft ' - ',i*H'-'),
* 1X,35('-'),1X,6('-'))
RETURN
END
>»» SUBROUTINE OUTHDO <««
-------
8000
8001
8002
8003
8001*
8005
8006
8007
8008
8009
8010
8011
8012
8013
Sou
8015
8016
8017
8018
8019
8020
8021
8022
8023
8021*
8025
8026
8027
8028
8029
8030
8031
8032
8033
803^
8035
8036
8037
8038
8039
801*0
BOM
801*2
801*3
801*1*
801*5
C
C
C.
C
C.
C
C
C.
C
C.
C
C.
C
C
C.
C
C.
C.
C.
C
C
C.
C
C.
C
C
C
C
C
C
C
C
C
C
APPENDIX
MOBILE2
SUBROUTINE OUTHD1
.PURPOSE:
.SPROG TO WRITE SCENARIO HEADER
.ARGUMENTS:
.NAME USAGE DESCRIPTION
.NONE
.USES SPROGS:
.OUTHDR
.OUTALT
.OUTMTH
.USED BY:
.OUTPUT
INTEGER ALTFLG.VMFLAG.ALHFLG
COMMON/F LGCOM/ALTF LG , VMF LAG ,
COMMON/FLGCOM/MYMRFG, IMFLG, 1
COMMON/ 1 OUCOM/ 1 OU 1 MD , 1 OUGEN ,
CALL OUTHDR (IOUREP)
IF(ALTFLG.EQ.l) CALL OUTALT
CALL OUTMTH
WRITE (IOUREP, 100)
100 FORMAT(1X,80('-'))
RETURN
END
B
DECEMBER 12, 1980
ON UNIT IOUREP FOR IFORM=1.
.SPDFLG.PRTFLG
ALHFLG, IRDFLG.SPDFLG.NMHFLG, IDLFLG
CEVFG.PRTFLG, IFORM.MDEFLG
IOUREP, IOUERR, IOUASK, IOUUNF
>»» SUBROUTINE OUTHD1 <««
-------
APPENDIX B
MOBILE2 DECEMBER 12, 1980
9000
9001
9002
9003
9001*
9005
9006
9007
9008
9009
9010
9011
9012
9013
9011*
9015
9016
9017
9018
9019
9020
9021
9022
9023
9021*
9025
9026
9027
9028
9029
9030
9031
9032
9033
903**
9035
9036
9037
9038
9039
901*0
901*1
90*42
901*3
901*1*
901*5
901*6
901*7
901*8
901*9
9050
9051
9052
9053
905i»
9055
9056
9057
c
c
c.
c
c.
c
c
c.
c
c.
c
c.
c
c
c.
c
c.
c
c
c.
c
c.
c
c
c
c
c
c
c
c
SUBROUTINE OUTHD2
.PURPOSE:
.SPROG TO WRITE SCENARIO HEADER ON UNIT IOUREP FOR IFORM=2.
.ARGUMENTS:
.NAME USAGE DESCRIPTION
.NONE
.USES SPROGS:
.OUTHDR
.USED BY:
.OUTPUT
COMMON/SYSCOM/MAXVEH , MAXLTW, MAXPOL , MAXREG , 1 N 1 TPR
COMMON/ IOUCOM/IOUIMD, IOUGEN, IOUREP, IOUERR, IOUASK, IOUUNF
DIMENSION NAMVEH(2,9)
DATA NAMVEH/
>'< 'LDGV1,' ',
* 'LDGTV1
* 'LDGT','2
* 'LDGT',' ',
ft 'HDGV1,' ',
* 'LDDV',1 ',
* 'LDDT',' ',
* 'HDDV',' ',
* ' MC ' , ' ' /
CALL OUTHDR (IOUREP)
MAXV=MAXVEH+1
WRITE (IOUREP, 100) NAMVEH, ( (NAMVEH (1 , 1 V) , 1=1 ,2) , 1 V=l , 3) ,
* ( (NAMVEH (1, IV) , 1 = 1,2) , |V=5,MAXV)
100 FORMAT (
*'0' , 'C R *CODE A*1
*/lX, '0 E' ,1*1*X, 'AMB.1
*/!X,'D G CY1 , 13X, 'VEHICLE SPEEDS' , UX, 'TMP COLD/HOT START'
* ,' ALT.1
*/ix,' ',39('-'),' — M6('-'),ix,6('-')
*/
*/lX, 'C P ftCODE B*'
*/lX,'0 O1 ,18X, 'COMPOSITE EMISSION FACTORS'
VIX.'D L',9(2X,A1*,A1)
>»» SUBROUTINE OUTHD2 <««
-------
APPENDIX B
MOBILE2 DECEMBER 12, 1980
9058
9059 */
9060 */!X, 'C *CODE C*'
9061 */lX,'0' ,19X, 'VEHICLE MIX ' , igx, ' C.E .F . '
9062 */lX,'D',8(lX,Ai»,Al) ,'ALL VEH1
9063 V1X,'- (,i.7('-l),lX,6(1-1))
9065 RETURN
9066 END
>»» SUBROUTINE OUTHD2 <««
-------
APPENDIX B
MOBILE2
DECEMBER 12, 1980
10000
10001
10002
10003
10004
10005
10006
10007
10008
10009
10010
10011
10012
10013
10014
10015
10016
10017
10018
10019
10020
10021
10022
10023
10024
10025
10026
10027
10028
10029
10030
10031
10032
10033
10034
10035
10036
10037
10038
10039
10040
10041
10042
10043
10044
10045
C
C
C.
C
C.
C
C
C.
C
C.
C
C.
C
C
C.
C
C.
C.
C.
C
C
C.
C
C.
C
C
C
C
C
C
C
C
C
C
SUBROUTINE OUTHD3
.PURPOSE:
.SPROG TO WRITE SCENARIO HEADER ON UNIT IOUREP FOR IFORM=3.
.ARGUMENTS:
.NAME USAGE DESCRIPTION
.NONE
.USES SPROGS:
.OUTHDR
.OUTALT
.OUTMTH
.USED BY:
.OUTPUT
INTEGER ALTFLG.VMF LAG, ALHFLG.SPDFLG.PRTFLG
COMMON/FLGCOM/ALTFLG.VMFLAG.ALHFLG, IRDFLG.SPDFLG.NMHFLG.IDLFLG
COMMON/FLGCOM/MYMRFG, IMFLG, ICEVFG.PRTFLG, IFORM.MDEFLG
COMMON/IOUCOM/IOUIMD, IOUGEN, IOUREP, IOUERR, IOUASK, IOUUNF
CALL OUTHDR (IOUREP)
'
IF (ALTFLG.EQ.l) CALL OUTALT
CALL OUTMTH
WRITE (IOUREP, 100)
100 FORMAT(1X,112('-'))
RETURN
END
>»» SUBROUTINE OUTHD3 <««
-------
APPENDIX B
MOBILE2 DECEMBER 12, 1980
11000
11001
11002
11003
110014
11005
11006
11007
11008
lioog
11010
11011
11012
11013
noii*
11015
11016
11017
11018
11019
11020
11021
11022
11023
11021*
11025
11026
11027
11028
11029
11030
11031
11032
11033
11031*
11035
11036
11037
11038
11039
1101*0
1101*1
1101*2
1101*3
1101*1*
1101*5
C
C
C.
C
C.
C
C
C,
C
C.
C
C.
C
C
C.
C
C.
C.
C.
C
C
C.
C
C.
C
C
C
C
C
C
C
C
C
C
SUBROUTINE OUTHDl*
.PURPOSE:
.SPROG TO WRITE SCENARIO HEADER ON UNIT IOUREP FOR IFORM=1*.
.ARGUMENTS:
.NAME USAGE DESCRIPTION
.NONE
.USES SPROGS:
.OUTHDR
.OUTALT
. OUTMTH
.USED BY:
.OUTPUT
INTEGER ALTFLG.VMFLAG.ALHFLG.SPDFLG.PRTFLG
COMMON/FLGCOM/ALTFLG,VMFLAG,ALHFLG,IRDFLG,SPDFLG,NMHFLG, IDLFLG
COMMON/FLGCOM/MYMRFG, IMFLG, 1 CEVFG.PRTFLG, 1 FORM, MDEFLG
COMMON/ 1 OUCOM/ 1 OU 1 MD, 1 OUGEN, 1 OUREP, IOUERR, 1 OUASK, IOUUNF
CALL OUTHDR (IOUREP)
IF (ALTFLG.EQ.l) CALL OUTALT
CALL OUTMTH
WRITE (IOUREP, 100)
100 FORMAT(1X,80('-'))
RETURN
END
>»» SUBROUTINE OUTHDl* <««
-------
APPENDIX B
MOBILE2 DECEMBER 12, 1980
12000
12001
12002
12003
12004
12005
12006
12007
12008
12009
12010
12011
12012
12013
12014
12015
12016
12017
12018
12019
12020
12021
12022
12023
12024
12025
12026
12027
12028
12029
12030
12031
12032
12033
12034
12035
12036
12037
12038
12039
12040
12041
12042
12043
12044
12045
12046
12047
12048
12049
12050
12051
12052
12053
12054
12055
12056
12057
C
C
C.
C
C.
C
C
C.
C
C.
C
C.
C.
C.
C.
C.
C.
C
C
C.
C
C.
C
C
C.
C
C.
C
C
C
C
C
C
C
C
C
SUBROUTINE OUTDTO (1 CY, EFRETM, WTEDEF .COMCCC, IDLRTM, IDLWTD)
.PURPOSE:
.SPROG TO WRITE SCENARIO DETAILS ON UNIT IOUREP FOR IFORM=0.
.ARGUMENTS:
.NAME USAGE DESCRIPTION
. ICY IN CALENDAR YEAR
.EFRETM IN COMPOSITE EMISSION FACTORS
.WTEDEF IN TOTAL COMPOSITE EMISSION FACTORS
.COMCCC IN HC EVAPORATIVE EMISSION FACTORS
.IDLRTM IN HOT STABILIZED IDLE EMISSION FACTORS
.IDLWTD IN TOTAL HOT STABILIZED IDLE EMISSION FACTORS
.USES SPROGS:
.OUTPOL
.USED BY:
.OUTPUT
INTEGER ALTFLG,VMFLAG,ALHFLG,SPDFLG,PRTFLG
COMMON/FLGCOM/ALTFLG,VMFLAG,ALHFLG,IRDFLG,SPDFLG,NMHFLG,IDLFLG
COMMON/FLGCOM/MYMRFG, IMFLG, 1 CEVFG, PRTFLG , IFORM.MDEFLG
COMMON/REGCOM/ 1 RE JN , ALT
COMMON/LNKCOM/SPD(8) ,TAMB,PCCN,PCHC,PCCC
COMMON/VMXCOM/VMTMI X (8)
COMMON/SYSCOM/MAXVEH.MAXLTW.MAXPOL.MAXREG, INITPR
COMMON/ IOUCOM/IOUIMD, IOUGEN, IOUREP, IOUERR, IOUASK, IOUUNF
REAL EFRETM (3, 9) .WTEDEF (3) .COMCCC (9) , IDLRTM (3, 9) , IDLWTD (3)
CALL OUTPOL (IP1, 1 P2)
ITAMB=IFIX(TAMB)
ICY2=ICY-((ICY/100)*100)
IF ((ICEVFG.EQ.1.0R.ICEVFG.EQ.3) . AND. 1 PI . EQ. 1) WRITE (IOUREP, 100)
* IREJN, ICY2,SPD(1) ,SPD(4) ,SPD(8) , ITAMB.PCCN.PCHC, PCCC,
* (COMCCC (IV) , IV=1,4) , (COMCCC (IV) , IV=7,MAXVEH) ,
* (VMTMIX(IV) , IV=1,4) , (VMTMIX(IV) , IV=7,MAXVEH)
100 FORMAT (
*1X, I1,1X,I2,1X,2(F4.1, '/') .F4.1.I4.3F6.1,
*1X, '£' ,6F7.2,
*6F6.3)
DO 200 IP=IP1, IP2
>»» SUBROUTINE OUTDTO <««
-------
APPENDIX B
MOBILE2 DECEMBER 12, 1980
12058 WRITE(IOUREP,300)
12059 * IREJN,ICY2,SPD(1) ,SPD(J») ,SPD(8) , |TAMB,PCCN,PCHC,PCCC,
12060 * IP, (EFRETM(IP, IV) ,IV=l,l4) , (EFRETM(IP, IV) ,IV=7,MAXVEH) ,
12061 * (VMTMIX(IV) , IV=1,1») , (VMTMIX(IV) , IV=7,MAXVEH) ,WTEDEF (IP)
12062 200 CONTINUE
12063 300 FORMAT (
12064 *ix, | 1,1X, l2.1X,2(Flt.l, '/') ,F4.1,
12065 'Vix, I 1.6F7.2,
12066 *6F6.3,F7.2)
12067 c
12068 RETURN
12069 END
>»» SUBROUTINE OUTDTO <««
-------
APPENDIX B
MOBILE2
DECEMBER 12, 1980
13000
13001
13002
13003
130014
13005
13006
13007
13008
13009
13010
13011
13012
13013
13011*
13015
13016
13017
13018
13019
13020
13021
13022
13023
13021*
13025
13026
13027
13028
13029
13030
13031
13032
13033
13034
13035
13036
13037
13038
13039
130*40
13014!
1301*2
130143
1301*14
1301*5
13046
130A7
130148
130149
13050
13051
13052
13053
13054
13055
13056
13057
c
c
c.
c
c.
c
c
c.
c
c.
c
c.
c.
c.
c.
c.
c.
c
c
c.
c
c.
c.
c
c
c.
c
c.
c
c
c
c
c
c
SUBROUTINE OUTDT1 (I CY, EFRETM, WTEDEF .COMCCC, IDLRTM, IDLWTD)
.PURPOSE:
.SPROG TO WRITE SCENARIO DETAILS ON UNIT IOUREP FOR IFORM=1.
.ARGUMENTS:
.NAME USAGE DESCRIPTION
.ICY IN CALENDAR YEAR
.EFRETM IN COMPOSITE EMISSION FACTORS
.WTEDEF IN TOTAL COMPOSITE EMISSION FACTORS
.COMCCC IN HC EVAPORATIVE EMISSION FACTORS
.IDLRTM IN HOT STABILIZED IDLE EMISSION FACTORS
.IDLWTD IN TOTAL HOT STABILIZED IDLE EMISSION FACTORS
.USES SPROGS:
.OUTPOL
.OUT IMP
.USED BY:
.OUTPUT
INTEGER ALTFLG.VMFLAG.ALHFLG.SPDFLG.PRTFLG
COMMON/FLGCOM/ALTFLG.VMFLAG.ALHFLG, IRDFLG.SPDFLG.NMHFLG, IDLFLG
COMMON/FLGCOM/MYMRFG, IMFLG, 1 CEVFG, PRTFLG, 1 FORM.MDEFLG
COMMON/REGCOM/ 1 RE JN , ALT
COMMON/LNKCOM/SPD (8) .TAMB.PCCN.PCHC.PCCC
COMMON/VMXCOM/VMTM 1 X (8)
COMMON/XCFS1/AC,XLOAD(3) ,TRAILR(3) , ABSHUM.DB.WB
COMMON/SYSCOM/MAXVEH.MAXLTW.MAXPOL.MAXREG.INITPR
COMMON/ IOUCOM/IOUIMD, IOUGEN, 1 OUREP, 1 OUERR, IOUASK, IOUUNF
REAL EFRETM (3, 9) , WTEDEF (3) .COMCCC (9) , IDLRTM (3, 9) . IDLWTD (3)
DIMENSION NAMVEH (6) , NAMREG (2, 6) , NAMPOL (3) , NAMNMH (2, 2)
DATA NAMVEH/
ft ' LDV ' ,
ft 'LDTT,
ft 'LDT2',
* 'HDG ' ,
ft 'HDD ' ,
ft 'MC '/
DATA NAMREG/
* ' 149-S ', 'TATE1,
ft ' CA' ,'LIF, ' ,
ft ' HI-1 , 'ALT.1 ,
ft 'CA H' , ' (ALT' ,
>»» SUBROUTINE OUTDT1 <««
-------
APPENDIX B XLOAD:',3F7.2,' TRAILR:',F7.2,
13090 * ' ABSHUM:1,F7-2)
13091 c
13092 IF (IMFLG.EQ.1.0R.IMFLG.EQ.2) CALLOUTIMP
13093 C
130914 WRITE (IOUREP,500) NAMVEH
13095 500 FORMAT (
13096 *'0',22X,'COMPOSITE EMISSION FACTORS (GM/MILE)1,
13097 */lX,12X,6(5X,Al4) ,' ALL MODES')
13098 c
13099 c
13100 DO 590 IP=IP1,IP2
13101 IF(IP.NE.l) GOTO 550
13102 c
13103 WRITE(IOUREP,510)
131014 * (NAMNMH (I,NMHFLG+1) ,1 = 1,2) ,NAMPOL (IP) ,
13105 * (EFRETM(IP.IV) ,IV=l,l4) , (EFRETM(IP.IV) ,IV=7,MAXVEH) ,
13106 * WTEDEF(IP)
13107 510 FORMAT(
13108 * lX,2Al»,Alt,
13109 * 6F9-2,
13110 * F9.2)
13111 IF (ICEVFG.EQ.l.OR.ICEVFG.EQ.3) WRITE (IOUREP.520)
13112 * NAMPOL (IP),
13113 * (COMCCC(IV) ,|V=l,l4) , (COMCCC(IV) ,IV=7,MAXVEH)
131114 520 FORMAT (
13115 * IX,1 *EVAP',Al4,
>»» SUBROUTINE OUTDT1 <««
-------
APPENDIX B
MOBILE2 DECEMBER 12, 1980
13116 * 6F9.2.5X,' ')
13H7 GOTO 590
13118 c
13119 550 WRITE(IOUREP,560)
13120 'V NAMPOL(IP),
13121 * (EFRETM(IP.IV),IV=1,4), (EFRETM(IP,IV),IV=7,MAXVEH),
13122 * WTEDEF(IP)
13123 560 FORMAT (
13124 * IX,'EXHAUST ',A4,
13125 * 6F9-2,
13126 * F9-2)
13127 590 CONTINUE
13128 c
13129 c
13130 IF (IDLFLG.EQ.O) GOTO 800
13131 WRITE(IOUREP,600)
13132 600 FORMAT (
13133 *'0',17X,'HOT STABILIZED IDLE EMISSION FACTORS (GM/MIN)1)
13134 C
13135 C
13136 DO 690 IPHP1, IP2
13137 IF (IP.NE.1) GOTO 650
13138 c
13139 IF (NMHFLG.EQ.O) GOTO 650
13140 WRITE (IOUREP,610)
13141 * NAMPOL(IP),
13142 * (IDLRTM(IP, IV) , IV=1,4) , (IDLRTM(IPJV) , IV=7,MAXVEH) ,
13143 * IDLWTD(IP)
13144 610 FORMAT(
13145 * IX,'NM-IDLE ',A4,
13146 * 6F9-2,
13147 * F9.2)
13148 GOT0690
13149 C
13150 650 WRITE(IOUREP,660)
13151 * NAMPOL(IP),
13152 * (IDLRTMdP, IV) ,IV=1,4) , (IDLRTM(IP.IV) ,IV=7,MAXVEH) ,
13153 * IDLWTD(IP)
13154 660 FORMAT (
13155 * IX,' IDLE ',A4,
13156 * 6F9.2,
13157 * F9.2)
13158 690 CONTINUE
13159 C
13160 c
13161 800 WRITE(IOUREP,8lO)
13162 810 FORMAT(1X,80('-'))
13163 C
13164 RETURN
13165 END
>»» SUBROUTINE OUTDT1 ««<
-------
UOOO
APPENDIX B
MOBILE2 DECEMBER 12, 1980
SUBROUTINE OUTDT2(ICY,EFRETM,WTEDEF.COMCCC,IDLRTM,IDLWTD)
14001
14002
14003
14004
ll»005
14006
14007
14008
14009
14010
14011
14012
14013
14014
14015
14016
14017
14018
14019
14020
14021
14022
14023
14024
14025
14026
14027
14028
14029
14030
14031
14032
14033
14034
14035
14036
14037
14038
14039
14040
14041
14042
14043
14044
14045
14046
14047
14048
14049
14050
14051
14052
14053
14054
14055
14056
14057
C
C
C.
C
C.
C
C
C.
C
C.
C
C.
C.
C.
C.
C.
C.
C
C
C.
C
C.
C
C
C.
C
C.
C
C
C
C
C
C
C
C
C
.PURPOSE:
.SPROG TO WRITE SCENARIO DETAILS ON UNIT IOUREP FOR IFORM=2.
.ARGUMENTS:
.NAME USAGE DESCRIPTION
.ICY IN CALENDAR YEAR
.EFRETM IN COMPOSITE EMISSION FACTORS
.WTEDEF IN TOTAL COMPOSITE EMISSION FACTORS
.COMCCC IN HC EVAPORATIVE EMISSION FACTORS
.IDLRTM IN HOT STABILIZED IDLE EMISSION FACTORS
.IDLWTD IN TOTAL HOT STABILIZED IDLE EMISSION FACTORS
.USES SPROGS:
.OUTPOL
.USED BY:
.OUTPUT
INTEGER ALTFLG.VMFLAG.ALHFLG.SPDFLG.PRTFLG
COMMON/FLGCOM/ALTFLG.VMFLAG.ALHFLG, 1 RDFLG.SPDFLG.NMHFLG, 1 DLFLG
COMMON/FLGCOM/MYMRFG, 1 MFLG, 1 CEVFG, PRTFLG, IFORM.MDEFLG
COMMON/REGCOM/ 1 RE JN , ALT
COMMON/LNKCOM/SPD (8) ,TAMB, PCCN, PCHC, PCCC
COMMON/ VMXCOM/VMTMI X (8)
COMMON/SYSCOM/MAXVEH,MAXLTW,MAXPOL,MAXREG,1NITPR
COMMON/ IOUCOM/IOUIMD, IOUGEN, IOUREP, IOUERR, IOUASK, IOUUNF
REAL EFRETM(3,9) .WTEDEF (3) .COMCCC (9) , IDLRTM (3, 9) , IDLWTD (3)
CALL OUTPOL (1 PI, IP2)
ITAMB=IFIX(TAMB)
ICY2=ICY-((ICY/100)*]00)
IF ( (1 CEVFG. EQ.l.OR.I CEVFG. EQ. 3) . AND . 1 PI .EQ. 1) WRITE (IOUREP, 100)
* IREJN, ICY2.SPD, ITAMB, PCCN, PCHC, PCCC, ALT,
* (COMCCC (IV) , IV=1,3) .COMCCC (9) , (COMCCC (IV) , IV=4,MAXVEH) ,
* VMTM 1 X
100 FORMAT (
* IX, 'A1 , IX, 11, IX, I2,1X,7(F4.1, '/') ,F4.1, I4,3F6.1,1X,F6.0
VIX.'BMX.'E'.SF?^
*/lX,'C',8F6.3)
DO 200 IP=IP1, IP2
>»» SUBROUTINE OUTDT2 <««
-------
APPENDIX B
MOBILE2 DECEMBER 12, 1980
]l»058 WRITE (IOUREP,300)
11*059 * IREJN,ICY2.SPD,ITAMB,PCCN.PCHC.PCCC,ALT,
11*060 * IP, (EFRETM(IP.IV) , IV=1,3) ,EFRETM (IP,9) , (EFRETM(IP, IV) , IV=1»,
H061 * MAXVEH) ,
U062 * VMTMIX.WTEDEF (IP)
ll»063 200 CONTINUE
11*064 C
11*065 300 FORMAT (
11*066 * IX.'A'.lX.ll, JX,I2,1X,7(F1*.1,'/') ,F1*.1J1*,3F6.1,1X,F6.0
11*067 */lX,'B' ,1X,I 1.9F7-2
11*068 sVlX,1C',8F6.3,F7.2)
11*069 c
]1*070 RETURN
11*071 END
>»» SUBROUTINE OUTDT2 <««
-------
APPENDIX B
MOBILE2
DECEMBER 12, 1980
15000
15001
15002
15003
15004
15005
15006
15007
15008
15009
15010
15011
15012
15013
15014
15015
15016
15017
15018
15019
15020
15021
15022
15023
15024
15025
15026
15027
15028
15029
15030
15031
15032
15033
15034
15035
15036
15037
15038
15039
15040
15041
15042
15043
15044
15045
15046
15047
15048
15049
15050
15051
15052
15053
15054
15055
15056
15057
C
C
C.
C
C.
C
C
C.
C
C.
C
C.
C.
C.
C.
C.
C.
C
C
C.
C
C.
C.
C
C
C.
C
C.
C
C
C
C
C
C
SUBROUTINE OUTDT3 (1 CY, EFRETM, WTEDEF .COMCCC, IDLRTM, IDLWTD)
.PURPOSE:
.SPROG TO WRITE SCENARIO DETAILS ON UNIT IOUREP FOR IFORM=3.
.ARGUMENTS:
.NAME USAGE DESCRIPTION
.ICY IN CALENDAR YEAR
.EFRETM IN COMPOSITE EMISSION FACTORS
.WTEDEF IN TOTAL COMPOSITE EMISSION FACTORS
.COMCCC IN HC EVAPORATIVE EMISSION FACTORS
.IDLRTM IN HOT STABILIZED IDLE EMISSION FACTORS
.IDLWTD IN TOTAL HOT STABILIZED IDLE EMISSION FACTORS
.USES SPROGS:
.OUTPOL
.OUT IMP
.USED BY:
.OUTPUT
INTEGER ALTFLG.VMFLAG.ALHFLG.SPDFLG.PRTFLG
COMMON/FLGCOM/ALTFLG.VMFLAG.ALHFLG, IRDFLG.SPDFLG.NMHFLG, 1 DLFLG
COMMON/FLGCOM/MYMRFG.IMFLG, ICEVFG.PRTFLG, IFORM.MDEFLG
COMMON/REGCOM/IREJN.ALT
COMMON/LNKCOM/SPD (8) ,TAMB, PCCN.PCHC.PCCC
COMMON/VMXCOM/VMTMI X (8)
COMMON/XCFS1/AC,XLOAD(3) ,TRAILR(3) , ABSHUM.DB.WB
COMMON/SYSCOM/MAXVEH.MAXLTW.MAXPOL.MAXREG, INITPR
COMMON/ IOUCOM/IOUIMD, IOUGEN, IOUREP, IOUERR, IOUASK, IOUUNF
REAL EFRETM (3, 9) , WTEDEF (3) .COMCCC (9) , IDLRTM (3, 9) .IDLWTD (3)
DIMENSION NAMVEH(2,10) ,NAMREG(4,6) ,NAMPOL(3) ,NAMNMH(2,2)
DATA NAMVEH/
* ' VLDGV,
* ' L'.'DGTl1,
* ' LVDGT21,
* ' VLDGT1,
* ' ','HDGV,
* ' ','LDDV,
* ' ','LDDT1,
* ' ','HDDV,
* ' ' , ' MC ' ,
* 'ALL WEH.'/
DATA NAMREG/
>»» SUBROUTINE OUTDT3 <««
-------
15058
15059
15060
15061
15062
15063
15061*
15065
15066
15067
15068
15069
15070
15071
15072
15073
15071*
15075
15076
15077
15078
15079
15080
15081
15082
15083
1508*4
15085
15086
15087
15088
15089
15090
15091
15092
15093
15091*
15095
15096
15097
15098
15099
15100
15101
15102
15103
15104
15105
15106
15107
15108
15109
15110
151H
15112
15113
151T*
15115
*
it
*
>'c
>V
5'C
c
c
Vc
ft
*
c
t
>'c
ft
c
c
c
(
c
\
ft
ft
ft
ft
ft
100 1
ft
ft
ft
ft
ft
c
ft
ft
110 1
ft
ft
c
c
1
ft
ft
ft
160
ft
ft
ft
c
c
ft
ft
170
ft
ft
APPENDIX B
MOBILE2
'1*9-5' ,'TATE1, ' LOW1,'ALT.',
'CALI','F. L'.'OWAL'.'T. ',
'1+9-S','TATE1,' HI A1,'LT. ',
'CALIVF. H','(ALT','. ',
'1*9-S','TATE', ' EVLVALT.1,
'CALI','F. E'.'VLAL'.'T. '/
DATA NAMPOL/
1 HC:',
' CO: ' ,
'NOX:'/
DATA NAMNMH/
T'.'OTAL',
'NON-','METH'/
CALL OUTPOLdPl, IP2)
WRITE (IOUREP,100)
ICY,
(NAMREG(I, IREJN) , 1 = 1,1*) ,
ALT,
TAMB,
PCCN.PCHC.PCCC
MAT(
*'0',' CAL. YEAR:',15,
* 6X,'REG I ON: ',kHk,
* 6X, 'ALT: ',F6.0,' FT.' ,
* 6X,'TAMB:',F5.1,' (F) ',
* 6X,2(F5.1,'/'),F5.1)
IF (ALHFLG.GT.O) WRITE (IOUREP,110)
AC.DB.WB,
ABSHUM
FORMAT (
ftlX,l*6X,'AC (DB/WB) :',F5.1,' (', F5-1, '/', F5-1,') ' ,
* 6X,'ABSHUM:',F6.2)
IF (IMFLG.EQ.1.0R.IMFLG.EQ.2) CALL OUTIMP
WRITE (IOUREP,160)
NAMVEH,
SPD,
VMTMI X
MAT(
*'0',' VEH. TYPE:',10(2X,2A4),
*/lX,'VEH. SPEEDS:'.F9.1.2F10.1,1 OX,5F10.1,
,' VMT MIX:',F11.3,2F10.3,10X,5F10.3)
F (ALHFLG.GT.O) WRITE (IOUREP,170)
XLOAD,
TRAILR
ORMAT (
* IX,' EXTRA LOAD:',F11-3.2F10.3
VIX.'TRLR IN TOW:',F11.3t2F10.3)
DECEMBER 12, 1980
>»» SUBROUTINE OUTDT3 <««
-------
APPENDIX B
MOBILE2 DECEMBER 12, 1980
15116 c
15H7 C
15118 WRITE (IOUREP,200)
15119 200 FORMAT(
15120 *'0','COMPOSITE EMISSION FACTORS (GM/MILE)')
15121 c
15122 c
15123 DO 290 IP=IP1,IP2
15124 IF (IP.NE.l) GOTO 250
15125 c
15126 WRITE(IOUREP,210)
15127 * (NAMNMH(I,NMHFLG+1),1-1,2).NAMPOL(IP),
15128 ft (EFRETM(IP, IV),|V=1,3) , EFRETM (I P,9) , (EFRETM(IP, IV) , IV=4,MAXVEH) ,
15129 ft WTEDEF(IP)
15130 210 FORMAT(
15131 ft 1X.2A4.A4,
15132 * 9F10.2,
15133 * F10.2)
15134 IF (ICEVFG.EQ.1.0R.ICEVFG.EQ.3) WRITE(IOUREP,220)
15135 * NAMPOL(IP),
15136 * (COMCCC(IV) , IV-1,3) ,COMCCC(9) , (COMCCC(IV) ,IV=4,MAXVEH)
15137 220 FORMAT (
15138 * IX, ' ftEVAP1 ,A4,
15139 * 9F10.2.6X,1 ')
15140 GOTO 290
15141 C
15142 250 WRITE (IOUREP,260)
15143 'v NAMPCL(IP),
15144 ft (EFRETM(IP,IV) ,IV-1,3) ,EFRETM(IP,9) ,(EFRETM(IP,I V),IV=4,MAXVEH),
15145 ft WTEDEF(IP)
15146 260 FORMAT(
15147 * IX,'EXHAUST ',A4,
15148 ft 9F10.2,
15149 ft F10.2)
15150 290 CONTINUE
15151 C
15152 c
15153 IF (IDLFLG.EQ.O) GOTO 800
15154 WRITE (IOUREP,300)
15155 300 FORMAT(
15156 ft'O'.'HOT STABILIZED IDLE EMISSION FACTORS (GM/MIN)')
15157 C
15158 c
15159 DO 390 IP=IP1,IP2
15160 IF (IP.NE.l) GOTO 350
15161 c
15162 IF(NMHFLG.EQ.O) GOTO 350
15163 WRITE(IOUREP,310)
15164 ft NAMPOL(IP),
15165 * (IDLRTM(IP, IV) , IV=1,3) , IDLRTM(IP,9) , (IDLRTM(IP, IV) , IV=4,MAXVEH) ,
15166 ft IDLWTD(IP)
15167 310 FORMAT(
15168 ft IX,'NM-IDLE ',A4,
15169 * 9F10.2,
15170 ft F10.2)
15171 GOT0390
15172 C
15173 350 WRITE(IOUREP,360)
>»» SUBROUTINE OUTDT3 <««
-------
APPENDIX B
MOBILE2 DECEMBER 12, 1980
15174 * NAMPOL(IP),
15175 * (IDLRTMdP, IV) , IV-1,3) . IDLRTMdP,9) , (I DLRTM (I P, IV) , I V^.MAXVEH) ,
15176 * IDLWTD(IP)
15177 360 FORMAT (
15178 * IX,1 IDLE ',Kk,
15179 * 9F10.2,
15180 * F10.2)
15181 390 CONTINUE
15182 c
15183 c
15l8i* 800 WRITE (IOUREP,810)
15185 810 FORMAT(1X,112('-'))
15186 c
15187 RETURN
15188 END
>»» SUBROUTINE OUTDT3 <««
-------
APPENDIX B
MOBILE2
DECEMBER 12, 1980
16000
16001
16002
16003
16001*
16005
16006
16007
16008
16009
16010
16011
16012
16013
16014
16015
16016
16017
16018
16019
16020
16021
16022
16023
16024
16025
16026
16027
16028
16029
16030
16031
16032
16033
16031*
16035
16036
16037
16038
16039
1601»0
16041
1601»2
1601*3
16041*
1 601*5
16046
1 601*7
1601*8
1 601*9
16050
16051
16052
16053
16051*
16055
16056
16057
C
C
C.
C
C.
C
C
C.
C
C.
C
C.
C.
C.
C.
C.
C.
C
C
C.
C
C.
C.
C
C
C.
C
C.
C
C
C
C
C
C
SUBROUTINE OUTDT4 (1 CY, EFRETM,WTEDEF .COMCCC, IDLRTM, IDLWTD)
.PURPOSE:
.SPROG TO WRITE SCENARIO DETAILS ON UNIT IOUREP FOR IFORM=1*.
.ARGUMENTS:
.NAME USAGE DESCRIPTION
.ICY IN CALENDAR YEAR
.EFRETM IN COMPOSITE EMISSION FACTORS
.WTEDEF IN TOTAL COMPOSITE EMISSION FACTORS
.COMCCC IN HC EVAPORATIVE EMISSION FACTORS
.IDLRTM IN HOT STABILIZED IDLE EMISSION FACTORS
.IDLWTD IN TOTAL HOT STABILIZED IDLE EMISSION FACTORS
.USES SPROGS:
.OUTPOL
.OUT IMP
.USED BY:
.OUTPUT
INTEGER ALTFLG,VMFLAG,ALHFLG,SPDFLG,PRTFLG
COMMON/FLGCOM/ALTFLG,VMFLAG,ALHFLG,IRDFLG,SPDFLG,NMHFLG, IDLFLG
COMMON/FLGCOM/MYMRFG, IMFLG, 1 CEVFG, PRTFLG, IFORM.MDEFLG
COMMON/REGCOM/IREJN.ALT
COMMON/LNKCOM/SPD (8) ,TAMB,PCCN,PCHC,PCCC
COMMON/VMXCOM/VMTMI X (8)
COMMON/XCFSl/AC.XLOAD (3) ,TRAILR(3) , ABSHUM, DB.WB
COMMON/SYSCOM/MAXVEH,MAXLTW,MAXPOL,MAXREG, INITPR
COMMON/ IOUCOM/IOUIMD, IOUGEN, IOUREP, IOUERR, IOUASK, IOUUNF
REAL EFRETM (3, 9) , WTEDEF (3) , COMCCC (9) , IDLRTM (3, 9) , IDLWTD (3)
DIMENSION NAMVEHU.10) .NAMREG (4,6) ,NAMPOL(3) ,NAMNMH(2,2)
DATA NAMVEH/
ft ' LD'.'GV ',
ft ' LDG'.'Tl ',
ft ' LDGVT2 ',
* ' LD'.'GT ',
* ' HD'.'GV ',
ft ' LD'.'DV ',
ft ' LD'.'DT ',
ft ' HD'.'DV ',
ft ' MC ' , ' ' ,
ft 'ALL ' , 'VEH '/
DATA NAMREG/
>»» SUBROUTINE OUTDT4 <««
-------
16058
16059
16060
16061
16062
16063
16064
16065
16066
16067
16068
16069
16070
16071
16072
16073
16074
16075
16076
16077
16078
16079
16080
16081
16082
16083
16084
16085
16086
16087
16088
16089
16090
16091
16092
16093
16094
16095
16096
16097
16098
16099
16100
16101
16102
16103
16104
16105
16106
16107
16108
16109
16110
16111
16112
16113
16114
16115
*
*
*
is
>v
it
C
I
is
ft
is
C
[
is
is
C
C
C
1
C
\
is
is
is
is
is
100 1
is
is
is
*,
is
is
C
is
is
110
is
is
C
C
1
is
is
is
160
!'<
is
is
C
C
is
is
170
is
APPENDIX B
MOBILE2
'49-S','TATE',' LOW1,'ALT.1,
'CALI ' ,'F. LVOWAL', 'T. ',
'49-S','TATE',' HIA'.'LT. ',
'CALI','F. H','IALT','. ' ,
'49-S1,'TATE',' EVL'.'ALT.',
'CALI ' ,'F. E'.'VLAL','T. '/
DATA NAMPOL/
' HC:1,
' CO:1 ,
'NOX:1/
DATA NAMNMH/
' TOT1,'AL ',
'NO-M','TH '/
CALL OUTPOLdPl, I P2)
WRITE (IOUREP,100)
ICY,
(NAMREG(I, IREJN) , 1 = 1,4) ,
ALT,
TAMB,
PCCN.PCHC.PCCC
MAT(
ft'O',' CAL. YEAR:',15,
ft 6X,'REGION: ',4A4,
ft 9X,'ALT:',F6.0,' FT.'
ft/ix,
ft 24X,'TAMB:'.F5-1,' (F) ',
ft 6X,2(F5.1,'/') ,F5.D
IF (ALHFLG.GT.O) WRITE (IOUREP,110)
AC.DB.WB,
ABSHUM
FORMAT (
ft!7X,'AC (DB/WB):',F5.1,' C,F5.1,
ft 4X,'ABSHUM:',F6.2)
DECEMBER 12, 1980
,F5. 1 ,
IF (IMFLG.EQ.l .OR, IMFLG.EQ.2) CALL OUTIMP
WRITE (IOUREP, 160)
NAMVEH,
SPD,
VMTMIX
MAT (
ft'O1 ,'VEH. TYPE: ' , 10(A4,A3) ,
*/lX,'VEH. SPD.:',F5.1,2F7.1,7X,5F7.1,
' VMT MIX:',3F7.3.7X,5F7.3)
IF (ALHFLG.GT.O) WRITE (IOUREP,170)
XLOAD,
TRAILR
FORMAT (
* IX,'EXT, LOAD:',3F7.3
>»» SUBROUTINE OUTDT4 <««
-------
APPENDIX B
MOBILE2 DECEMBER 12, 1980
16116 ft/lX,' TRLR TOW:',3F7,3)
16117 c
16118 C
16119 WRITE (IOUREP,200)
16120 200 FORMAT (
16121 ft'O','COMPOSITE EMISSION FACTORS (GM/MILE)')
16122 C
16123 c
16124 DO 290 IP=IP1,IP2
16125 IF (IP.NE.l) GOTO 250
16126 C
1612? WRITE(IOUREP,210)
16128 ft (NAMNMH(I,NMHFLG+1),1 = 1,2).NAMPOL (IP),
16129 * (EFRETM(IP.IV) ,IV-1,3) .EFRETM (IP,9) , (EFRETM (I P, I V) ,IV=4,MAXVEH) ,
16130 * WTEDEF(IP)
16131 210 FORMAT(
16132 * 1X,A4,A2,A4,
16133 * F6.2.8F7.2,
16134 * F7.2)
16135 IF (ICEVFG.EQ.1.0R.ICEVF6.EQ.3) WRITE(IOUREP,220)
16136 ft NAMPOL(IP),
16137 * (COHCCC (IV), IV-1,3) ,COMCCC(9), (COMCCC(IV) ,IV=4,MAXVEH)
16138 220 FORMAT(
16139 * IX,1 ftEVAP',A4,
16140 ft F6.2.8F7.2,' ')
16141 GOTO 290
16142 C
16143 250 WRITE (IOUREP,260)
16144 * NAMPOL (IP),
16145 * (EFRETM(IP, IV) , IV-1,3) , EFRETM (I P,9) , (EFRETM (I P, IV) , I V=4,MAXVEH) ,
16146 ft WTEDEF(IP)
16147 260 FORMAT (
16148 ft IX.'EXHST ' ,A4,
16149 * F6.2.8F7.2,
16150 * F7.2)
16151 290 CONTINUE
16152 c
16153 C
16154 IF (IDLFLG.EQ.O) GOT0800
16155 WRITE (IOUREP,300)
16156 300 FORMAT(
16157 ft'O'.'HOT STABILIZED IDLE EMISSION FACTORS (GM/MIN)1)
16158 c
16159 c
16160 DO 390 IP=|P1,|P2
16161 IF (IP.NE.l) GOTO 350
16162 C
16163 IF (NMHFLG.EQ.O) GOTO 350
16164 WRITE(IOUREP,310)
16165 * NAMPOL (IP),
16166 ft (IDLRTMdP, IV) , IV-1,3) , IDLRTM(IP,9) , (I DLRTM (I P, IV) , I V=4,MAXVEH) ,
16167 * IDLWTD(IP)
16168 310 FORMAT(
16169 ft IX,'NM-ID ',A4,
16170 ft F6.2.8F7.2,
16171 ft F7.2)
16172 GOT0390
16173 C
>»» SUBROUTINE OUTDT4 <««
-------
APPENDIX B
MOBILE2 DECEMBER 12, 1980
]6l7l» 350 WRITE (IOUREP,360)
16175 * NAMPOL(IP),
16176 * (IDLRTM(IPJV) .IV-1.3) , IDLRTM(IP,9) , (I DLRTM (I P, I V) ,IV=4,MAXVEH) ,
16177 * IDLWTD(IP)
16178 360 FORMAT (
16179 * IX,1 IDLE '.Alt,
16180 * F6.2.8F7.2,
16181 * F7.2)
16182 390 CONTINUE
16183 c
16181* C
16185 800 WRITE (IOUREP,810)
16186 810 FORMAT(1X,80('-'))
16187 c
16188 RETURN
16189 END ,
>»» SUBROUTINE OUTDT** <««
-------
APPENDIX B
MOBILE2
DECEMBER 12, 1980
17000
17001
17002
17003
17001*
17005
17006
17007
17008
17009
17010
17011
17012
17013
17011*
17015
17016
17017
17018
17019
17020
17021
17022
17023
17021*
17025
17026
17027
17028
17029
17030
17031
17032
17033
17031*
17035
17036
17037
17038
17039
1701*0
c
c
c.
c
c.
c
c
c.
c
c.
c
c.
c
c
c.
c
c.
c
c
c.
c
c.
c.
c.
c.
c.
c
c
c
c
c
c
c
SUBROUTINE OUTHDR (1 OUOUT)
.PURPOSE:
.SPROG TO WRITE SCENARIO TITLE ON UNIT IOUOUT.
.ARGUMENTS:
.NAME USAGE DESCRIPTION
.IOUOUT INPUT UNIT NUMBER ON WHICH TITLE IS PRINTED
.USES SPROGS:
.NONE
.USED BY:
.OUTHDO
.OUTHD1
.OUTHD2
.OUTHD3
. INPUT
COMMON/SYSCOM/MAXVEH , MAXLTW, MAXPOL , MAXREG , 1 N 1 TPR
COMMON/PROJCM/PROJ 1 D (20)
INITPR=0
WRITE (IOUOUT, 100) PROJ 1 D
100 FORMAT (' 1 ' ,20Alt)
RETURN
END
>»» SUBROUTINE OUTHDR <««
-------
APPENDIX B
MOBILE2
DECEMBER 12, 1980
18000
18001
18002
18003
18001*
18005
18006
18007
18008
18009
18010
18011
18012
18013
180H»
18015
18016
18017
18018
18019
18020
18021
18022
18023
18021*
18025
18026
18027
18028
18029
18030
18031
18032
18033
18031*
18035
18036
18037
18038
18039
1801*0
1801*1
1801*2
1801*3
1801*1*
1801*5
1801*6
1801*7
1801*8
1801*9
18050
18051
18052
18053
18051*
18055
SUBROUTINE OUTALT
C
C
C.
C
C.
C
C
C.
C
C.
C
C.
C
C
C,
C
C.
C
C
C.
C
C.
C.
C.
C
C
C
C
C
C
C
.PURPOSE:
.SPROG TO WRITE ALTERNATE EQUATIONS ON UNIT IOUREP.
.ARGUMENTS:
.NAME USAGE DESCRIPTION
.NONE
.USES SPROGS:
.NONE
.USED BY:
.OUTHD1
.OUTHD3
.OUTHDl*
COMMON/SYSCOM/MAXVEH,MAXLTW,MAXPOL,MAXREG,INITPR
COMMON/ALTCOM/INTALT(5,100) ,Rl*ALT(2, 100) .MODFLG(IOO) ,NEWFAC
COMMON/IOUCOM/IOUIMD,IOUGEN,IOUREP,IOUERR,IOUASK,IOUUNF
DIMENSION NOYES(2)
DATA NOYES/
* ' NO ' ,
* 'YES '/
WRITE (IOUREP,100)
100 FORMAT(
*'0',' EMISSION FACTOR MODIFICATION PROFILE:',
*/' REGION VEH. POLLUTANT FIRST MY LAST MY BASE
* 'DR ALTERED1,
* /,.
,'C I I)
DO 200 IFAC=1.NEWFAC
INO=1
IF (MODFLG(IFAC) .EQ.l) I N0=2
200 WRITE(IOUREP,300)
* (INTALT(I , IF AC) , 1 = 1,5) , (Rl*ALT(l , I FAC) , I =1,2) , NOYES (I NO)
300 FORMAT (1X.2X, I 1.7X, I 1,8X, I 1, 2X, 2 (5X, 11*) , 2X, 2 (2X, F6.2) , 1*X, Al*)
RETURN
END
>»» SUBROUTINE OUTALT <««
-------
19000
igooi
19002
19003
19001*
19005
19006
19007
19008
19009
19010
19011
19012
19013
19011*
19015
19016
19017
19018
19019
19020
19021
19022
19023
19021*
19025
19026
19027
19028
19029
19030
19031
19032
19033
19031*
19035
19036
19037
19038
19039
1901*0
1901*1
1901*2
1901*3
1901*1*
1901*5
1901*6
1901*7
1901*8
1901*9
19050
19051
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
APPENDIX B »» SUBROUTINE OUTMTH <««
-------
APPENDIX B
MOBILE2
DECEMBER 12, 1980
20000
20001
20002
20003
2000*4
20005
20006
20007
20008
20009
20010
20011
20012
20013
20014
20015
20016
20017
20018
20019
20020
20021
20022
20023
20024
20025
20026
20027
20028
20029
20030
20031
20032
20033
2003^
20035
20036
20037
20038
20039
20040
20041
20042
20043
20044
20045
C
C
C.
C
C.
C
C
C.
C
C.
C
C.
C.
C
C
C.
C
C.
C
C
C.
C
C.
C.
C.
C.
C.
C
C
C
C
C
C
C
SUBROUTINE
.PURPOSE:
.SPROG TO GET 1
.ARGUMENTS:
.NAME USAGE
.IP1 IN
.IP2 IN
.USES SPROGS:
.NONE
.USED BY:
.OUTDTO
.OUTDT1
.OUTDT2
.OUTDT3
.OUTDT4
INTEGER AL
COMMON/FLG
COMMON/FLG
COMMON/SYS
IP1=PRTFLG
IP2=PRTFLG
IF (PRTFLG.
IP1 = 1
IP2=MAXPOL
999 RETURN
END
DESCRIPTION
LOWER POL NUMBER
UPPER POL NUMBER
INTEGER ALTFLG.VMFLAG,ALHFLG.SPDFLG,PRTFLG
COMMON/FLGCOM/ALTFLG.VMFLAG.ALHFLG,IRDFLG.SPDFLG.NMHFLG,IDLFLG
COMMON/FLGCOM/MYMRFG,IMFLG,ICEVFG,PRTFLG,IFORM.MDEFLG
COMMON/SYSCOM/MAXVEH,MAXLTW,MAXPOL,MAXREG,INITPR
>»» SUBROUTINE OUTPOL <««
-------
APPENDIX B
MOBILE2
»» SUBROUTINE OUT IMP <««
-------
APPENDIX B
MOBILE2 DECEMBER 12, 1980
21058 31*0 FORMAT(4X,' I/M IDENTIFICATION RATE HAS BEEN CHANGED TO1, 13,'%')
21059 C
21060 IF (NLINES.EQ.O) GOTO 999
21061 DO 400 LINES=1,NLINES
21062 400 WRITE(IOUREP,420) (STRING (N,LINES),N=l,l8)
21063 420 FORMAT (2X.18A4)
21064 C
21065 999 RETURN
21066 END
>»» SUBROUTINE OUT IMP <««
-------
APPENDIX B
MOBILE2
DECEMBER 12, 1980
21+000
24001
21*002
21*003
21*004
21*005
21*006
21*007
21*008
21*009
21*010
21*011
21*012
21*013
21*011*
21*015
21*016
21*01?
21*018
21*019
21*020
21*021
21*022
21*023
21*021*
21*025
21*026
21+027
21*028
21*029
21*030
21*031
21*032
21*033
2l*03l»
21*035
21*036
21*037
21*038
21*039
21*01*0
2401*1
21*01*2
21*01*3
21*01+1*
21*01*5
21*01*6
21*01*7
21*01*8
21*01+9
21*050
21*051
21*052
21+053
2l*05l»
21+055
21+056
21*057
c
C
C.
C
c.
c
c
c.
c
c.
c
c.
c.
c.
c.
c.
c.
c.
c
c
c.
c
c.
c.
c.
c.
c.
c.
c.
c.
c
c
c.
c
c.
c
c
c
c
c
c
c
c
SUBROUTINE EFCALX (1 CY, EFRETM, WTEDEF .COMCCC, IDLRTM, IDLWTD, INERR
.PURPOSE:
.SPROG COMPUTES COMPOSITE EMISSION FACTORS.
.ARGUMENTS:
.NAME USAGE DESCRIPTION
.ICY IN CALENDAR YEAR
.EFRETM OUT COMPOSITE EMISSION FACTORS
.WTEDEF OUT TOTAL COMPOSITE EMISSION FACTORS
.COMCCC OUT HC EVAPORATIVE EMISSION FACTORS
.IDLRTM OUT HOT STABILIZED IDLE EMISSION FACTORS
.IDLWTD OUT TOTAL HOT STABILIZED IDLE EMISSION FACTORS
.INERR I/O TOTAL COUNT OF DATA ENTRY ERRORS
.USES SPROGS:
.GETCUM
.BIGCFX
.QUITER
.IGSFPT
. 1 EXMPT
.INDX3R
.BEF
.BEFIDL
.USED BY:
.MAIN
INTEGER ALTFLG.VMFLAG.ALHFLG.SPDFLG.PRTFLG
COMMON/FLGCOM/ALTFLG.VMFLAG.ALHFLG, 1 RDFLG , SPDFLG .NMHFLG , IDLFLG
COMMON/FLGCOM/MYMRFG, IMFLG, 1 CEVFG , PRTFLG, IFORM.MDEFLG
COMMON/REGCOM/ 1 REJN , ALT
COMMON/MYMCOM/XMYM(20,8) ,XMYR(20,8) ,TF(20,8) ,TFMYM(20,8)
COMMON/SYSCOM/MAXVEH.MAXLTW.MAXPOL.MAXREG, INITPR
COMMON/VMXCOM/VMTMI X (8)
COMMON/GSFCOM/MAXGSF.GSF (18,8,3) , IGSFYR (18,8, 3)
COMMON/CUMCOM/CUMM 1 L (20 , 8)
COMMON/BEFGCM/EXMETH(3,8,3) , 1 EXMYR (3, 8, 3)
REAL IDLFAC, IDLWTD (3) , IDLRTM (3, 9) , 1 DLFC1 , 1 DLFC2
DIMENSION COMCCC (9) .CFRET (20, 3,8, 2) , EFRETM (3, 9) , WTEDEF (3)
DATA INITFL/1/
IF (INITFL.NE.O) CALL GETCUM
>»» SUBROUTINE EFCALX <««
-------
APPENDIX B
MOBILE2
DECEMBER 12, 1980
24058
24059
24060
24061
24062
24063
24064
24065
24066
24067
24068
24069
24070
24071
24072
24073
24074
24075
24076
24077
24078
24079
24080
24081
24082
24083
24084
24085
24086
24087
24088
24089
24090
24091
24092
24093
24094
24095
24096
24097
24098
24099
24100
24101
24102
24103
24104
24105
24106
24107
24108
24109
24110
24111
24112
24113
24114
24115
C
C..:
C
C
C
C
C
C
C i
11
C
C
200
C
300
C
C
C
C..
C
C.J
C
C !
INITFL=0
C..SETUP FOR COMPOSITE LGT DUTY GAS TRK
X23=VMTM!X(2)+VMTMI X (3)
IF(X23.EQ.O.) X23-1.
IR=IREJN
IF (IR.NE.5) GOTO 100
IF (ALT.GE.4000.) IR=3
DETERMINE WHETHER THE REGION NEEDS SPEED, TEMPERATURE, ALTITUDE, ETC.
CORRECTION FACTORS FOR ONE OR TWO REGIONS. TWO REGIONS ARE NEEDED
WHENEVER THE PROGRAM PERFORMS AN INTERPOLATION BETWEEN TWO REGIONS.
100 IF(IREJN.EQ.5.AND.ALT.GE.1500.) GOTO 200
JREJN=IREJN
IF (IREJN.EQ.5.AND.ALT.LT.1500.) JREJN=1
CALL BIGCFX(ICY,JREJN,CFRETO,1,1,1))
GOTO 300
REGION IS 5 (INTERPOLATION BETWEEN HIGH AND LOW ALTITUDE)
CALL BIGCFXdCY, 1 .CFRET (1,1,1 ,1))
CALL BIGCFX(ICY,3,CFRET (1,1,1,2))
DO 390 IP=1,MAXPOL
WTEDEF(IP)=0.
IDLWTD(IP)=0.
EFRETM(IP,9)=0.
IDLRTM(IP,9)=0.
IF(IP.EQ.l) COMCCC(9)=0.
DO 380 IV-l.MAXVEH
EFRETM(IP, IV) =0.
IDLRTM(IP, IV)=0.
IF(IP.EQ.l) COMCCC(|V)=0.
IF (VMTMIX(IV) .EQ.O.) GOTO 380
DO 370 IDX=1,20
IF (TF (IDX.IV) .LE.O.) GOTO 370
INIT EMISSIONS TO ZERO
COMPCC=0.
COMPEF=0.
IDLFAC=0.
JDX=21-IDX
VMTAGE=CUMMIL (JDX,I V) /10000.
MY=ICY+IDX-20
IGS=IGSFPT(MY,IV,IR)
GET APPLICABLE NON-METHANE FRACTION
EXMVAL=1.
IF(IP.NE.l.OR.NMHFLG.EQ.O) GOTO 305
IEX=IEXMPT(MY,IV,IR)
EXMVAL=EXMETH(I EX,IV,IR)
DETERMINE WHETHER THE COMPOSITE EMISSION REQUIRES AN INTERPOLATION
>»» SUBROUTINE EFCALX <««
-------
APPENDIX B
MOBILE2
DECEMBER 12, 1980
24116
24117
24118
24119
24120
24121
24122
24123
24124
24125
24126
24127
24128
24129
24130
24131
24132
24133
24134
24135
24136
24137
24138
24139
24140
24141
24142
24143
24144
24145
24146
24147
24148
24149
24150
24151
24152
24153
24154
24155
24156
24157
24158
24159
24160
24161
24162
24163
24164
24165
24166
24167
24168
24169
24170
24171
24172
24173
C BETWEEN TWO REGIONS.
305 IF (IREJN.EQ.5-AND.ALT.GE.1500.) GOTO 330
C
C THE COMPOSITE EMISSION CALCULATION DOES NOT REQUIRE AN
C INTERPOLATION BETWEEN TWO REGIONS.
C
IF (IP.EQ.l) COMPCC=CCEVRT(MY,IV,JREJN) *TF(IDX,IV)
INDX1=INDX3R(MY,IP,IV,JREJN)
COMPEF=
* (BEF(MY,ICY,INDX1,IP,IV,JREJN,VMTAGE,EXMVAL)*CFRET (IDX,IP,IV,1))
* *TF (IDX,IV)+COMPCC
C IDLE EMISSIONS
IDLFAC=BEFIDL(INDX1,IP,IV,JREJN,VMTAGE,EXMVAL) *TF(IDX,IV)
C
GOTO 360
330 CONTINUE
C
C.. ONCE THE EVALUATED ALTITUDE METHODOLOGY IS FINALIZED, THE PROCEDURE
C.. WILL BE PUT HERE.
C
360 EFRETM(IP, IV)=EFRETM(IP, IV)+COMPEF
IDLRTM (IP,IV)=IDLRTM(IP,I V) +1DLF AC
IF (IP.EQ.l) COMCCC(IV)=COMCCC(IV)+COMPCC
C
370 CONTINUE
C
IF(EFRETM(IP,IV) .GT.O. .AND.GSF(IGS,IV,IR).EQ.O.)
* CALL QUITER (0.,IV,67,INERR)
IF (EFRETM(IP,IV) .LE.O.) CALL QUITER (0.,IV.68,INERR)
C
C..ALTFLG TEST ADDED BUT COULD BE BETTER
C..E.G., CHECK 20 YR SPAN FOR USE/NON-USE OF ALTFLG
C..AND ERR-OUT ONLY ON NON-USE OF ALT EQU, ETC. (G.J.H. 7/18/80)
C
IF (ALTFLG.EQ.O.AND.IDLRTM(IP,IV) .GT.O.
* .AND.GSF (IGS,IV,IR) .EQ.O.)
* CALL QUITER(0.,IV,69,INERR)
IF (ALTFLG.EQ.O.AND.IDLRTM (IP,IV) .LE.O.)
* CALL QUITER(0.,IV,70,INERR)
WTEDEF (IP)=WTEDEF (I P) + (EFRETM (I P, I V) * VMTMI X (I V))
I DLWTD (I P) = I DLWTD (I P) + (I DLRTM (I P, I V) 'WMTMI X (I V))
C
380 CONTINUE
C
C..ASSIGN COMPOSITE LGT DUTY GAS TRK
C
IF (EFRETM (IP, 2) .GT.O. .AND . EFRETM (I P, 3) .GT.O.) EFRETM (IP, 9) =
* (EFRETM (I P,2) 'WMTMI X (2) +EFRETM (I P, 3) 'WMTMI X (3)) /X23
IF (IDLRTM (IP,2) .GT.O..AND.IDLRTM (IP,3) .GT.O.) IDLRTM (IP,9) =
* (I DLRTM (I P, 2) 'WMTMI X (2) + 1 DLRTM (I P, 3) 'WMTMI X (3)) /X23
IF (IP.EQ.l.AND.COMCCC (2) .GT.O..AND.COMCCC (3) .GT.O.) COMCCC (9) =
* (COMCCC (2) 'WMTMI X (2) +COMCCC (3) *VMTMI X (3)) /X23
C
390
CONTINUE
RETURN
END
>»» SUBROUTINE EFCALX <««
-------
APPENDIX B
MOBILE2
DECEMBER 12, 1980
25000
25001
25002
25003
25004
25005
25006
25007
25008
25009
25010
25011
25012
25013
25014
25015
25016
25017
25018
25019
25020
25021
25022
25023
25024
25025
25026
25027
25028
25029
25030
25031
25032
25033
25034
25035
25036
25037
25038
25039
25040
25041
25042
25043
25044
25045
25046
25047
25048
25049
25050
25051
25052
25053
25054
25055
25056
25057
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C.
C.
C.
C.
C.
C
C
C
C
C
C
C
C
FUNCTION CCEVRT(MY
CCEVRT
,1V. IR)
REAL FUNCTION TO DETERMINE A HYDROCARBON CRANKCASE AND EVAPORATI
EMISSION FACTOR. TH 1
VE
S FUNCTION PERFORMS THE CALCULATION PREVIOUSLY
PERFORMED BY SPROG CCEVAX.
ARGUMENTS:
NAME TYPE DIR
CCEVRT R OUT
MY 1 IN
IV 1 IN
IR 1 IN
CALLS:
.HOTSOK
.TPD
. DIURNL
.XMPD
.CRANKC
CALLED BY:
SPROG EFCALX
X=XMPD(MY, IV, IR)
|F(X.NE.O.)
* X=(( (HOTSOK (MY, IV
* +DIURNL(MY, IV, 1
ft +CRANKC(MY, IV, 1
CCEVRT=X
DESCRIPTION
A REAL FUNCTION NAME THAT RETURNS A HYDRO-
CARBON CRANKCASE AND EVAPORATIVE EMISSION
FACTOR.
MODEL YEAR.
AN INTEGER VARIABLE THAT CONTAINS A VEHICLE
TYPE CODE. IV IS CURRENTLY EXPECTED TO
CONTAIN VALUES IN THE RANGE 1...8. THIS
VARIABLE WAS OFTEN CALLED IMODE IN THE
MOBILE1 PROGRAM.
AN INTEGER VARIABLE THAT CONTAINS A REGION
CODE. CURRENT CODES ARE:
1 LOW ALTITUDE
2 CALIFORNIA LOW ALTITUDE
3 HIGH ALTITUDE
4 RESERVED FOR CALIFORNIA HIGH ALTITUDE
BUT ILLEGAL NOW
5 ILLEGAL CODE FOR THIS SUBPROGRAM.
6 ILLEGAL CODE FOR THIS SUBPROGRAM.
, IR)*TPD(MY, IV, IR))
R))/X)
R)
f
>»» FUNCTION CCEVRT <««
-------
APPENDIX B
MOBILE2 DECEMBER 12, 1980
25058 c
25059 RETURN
25060 END
>»» FUNCTION CCEVRT <««
-------
26000
26001
26002
26003
26004
26005
26006
26007
26008
26009
26010
26011
26012
26013
26014
26015
26016
26017
26018
26019
26020
26021
26022
26023
26024
26025
26026
26027
26028
26029
26030
26031
26032
26033
26034
26035
26036
26037
26038
26039
26040
26041
26042
C
C
C.
C
C.
C
C
C.
C
C.
C
C.
C.
C.
C
C
C.
C
C.
C
C
C.
C
C.
C
C
C
C
C
APPENDIX B
MOBILE2
FUNCTION HOTSOK(MY, IV, IR)
.PURPOSE:
.SELECT YEARLY VALUE FOR HOT SOAK
DECEMBER 12, 1980
.ARGUMENTS:
.NAME USAGE
.MY
. IV
.IR
IN
IN
IN
DESCRIPTION
MODEL YEAR
VEHICLE TYPE
REGION NUMBER
.USES SPROGS:
.QUITER
.USED BY:
.CCEVRT
COMMON/HOTCOM/MAXHOT,HOTVAL (6,8,3),IHOTYS(6,8,3)
DO 100 IG=1,MAXHOT
IF {MY.LE.IHOTYSdG, IV, I R)) GOTO 200
100 CONTINUE
..SET DEFAULT
IG=1
CALL QUITER (HOTVAL (IG,IV,IR),1,60,MY)
200 HOTSOK=HOTVAL(IG,IV,IR)
RETURN
END
>»» FUNCTION HOTSOK <««
-------
27000
27001
27002
27003
27004
27005
27006
27007
27008
27009
27010
27011
27012
27013
27014
27015
27016
27017
27018
27019
27020
27021
27022
27023
27024
27025
27026
27027
27028
27029
27030
27031
27032
27033
27034
27035
27036
27037
27038
27039
27040
27041
27042
C
C
C.
C
C.
C
C
C.
C
C.
C
C.
C.
C,
C
C
C.
C
C.
C
C
C.
C
C.
C
C
C
C
C
C
C.
C
APPENDIX B
MOBILE2
FUNCTION TPD(MY,IV,IR)
.PURPOSE:
.SELECT YEARLY VALUE FOR TRIPS/DAY
DECEMBER 12, 1980
.ARGUMENTS:
.NAME USAGE
.MY
.IV
.IR
IN
IN
IN
DESCRIPTION
MODEL YEAR
VEHICLE TYPE
REGION NUMBER
.USES SPROGS:
.QUITER
.USED BY:
.CCEVRT
COMMON/TPDCOM/MAXTPD,TPDVAL(2,8,3),ITPDYS (2,8, 3)
DO 100 IG=1,MAXTPD
IF (MY.LE.ITPDYS(|G,|V, I R) ) GOTO 200
100 CONTINUE
.SET DEFAULT
CALL QUITER(TPDVAL(|G,IV,IR) ,2,60,MY)
200 TPD=TPDVAL(IG, IV, I R)
RETURN
END
>»» FUNCTION TPD <««
-------
28000
28001
28002
28003
28004
28005
28006
28007
28008
28009
28010
28011
28012
28013
2801 It
28015
28016
28017
28018
28019
28020
28021
28022
28023
28021*
28025
28026
28027
28028
28029
28030
28031
28032
28033
28034
28035
28036
28037
28038
28039
28040
28041
28042
APPENDIX B
MOBILE2
FUNCTION DIURNL(MY,IV,IR)
C
c
C..PURPOSE:
C
C..SELECT YEARLY VALUE FOR DIURNAL
C
DECEMBER 12, 1980
C..ARGUMENTS:
C
C..NAME USAGE
C
C..MY IN
C.. IV IN
C..IR IN
C
C
C..USES SPROGS:
C
C..QUITER
C
C
C..USED BY:
C
C..CCEVRT
C
DESCRIPTION
MODEL YEAR
VEHICLE TYPE
REGION NUMBER
COMMON/DIUCOM/MAXDIU,DIUVAL (6,8,3),IDIUYS (6,8,3)
C
C
C
DO 100 IG=1,MAXDIU
IF (MY.LE. I DIUYSdG, IV, I R)) GOTO 200
100 CONTINUE
C
C..SET DEFAULT
C
IG=1
CALL QU|TER(DIUVAL(IG,IV,IR),3,60,MY)
200 DIURNL»DIUVAL(IG,IV,IR)
C
RETURN
END
>»» FUNCTION DIURNL <««
-------
APPENDIX B
MOBILE2
DECEMBER 12, 1980
29000
29001
29002
29003
29004
29005
29006
29007
29008
29009
29010
29011
29012
29013
29014
29015
29016
29017
29018
29019
29020
29021
29022
29023
29024
29025
29026
29027
29028
29029
29030
29031
29032
29033
29034
29035
29036
29037
29038
29039
29040
29041
29042
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
FUNCTION XMPD(MY, IV.IR)
..PURPOSE:
..SELECT YEARLY VALUE FOR MILES/DAY
..ARGUMENTS:
..NAME USAGE DESCRIPTION
..MY IN MODEL YEAR
..IV IN VEHICLE TYPE
,.IR IN REGION NUMBER
..USES SPROGS:
..QUITER
..USED BY:
. .CCEVRT
COMMON/XMPCOM/MAXXMP , XMPVAL (2 , 8 , 3) , 1 XMPYS (2,8,3)
DO 100 IG=1,MAXXMP
1 F (MY. LE.I XMPYS (IG.IV.IR)) GOTO 200
100 CONTINUE
..SET DEFAULT
IG=1
CALL QU ITER (XMPVAL (IG, IV, 1 R) .4.60.MY)
200 XMPD=XMPVAL(IG, IV, I R)
RETURN
END
>»» FUNCTION XMPD <««
-------
30000
30001
30002
30003
30004
30005
30006
30007
30008
30009
30010
30011
30012
30013
300U
30015
30016
30017
30018
30019
30020
30021
30022
30023
30024
30025
30026
30027
30028
30029
30030
30031
30032
30033
30034
30035
30036
30037
30038
30039
30040
30041
30042
C
C
C.
C
C.
C
C
C.
C
C.
C
C.
C.
C.
C
C
C.
C
C.
C
C
C.
C
C.
C
C
C
C
C
APPENDIX B
MOBILE2
FUNCTION CRANKC(MY,IV,IR)
.PURPOSE:
.SELECT YEARLY VALUE FOR CRANKCASE
DECEMBER 12, ig80
.ARGUMENTS:
.NAME USAGE
.MY
. IV
.IR
IN
IN
IN
DESCRIPTION
MODEL YEAR
VEHICLE TYPE
REGION NUMBER
.USES SPROGS:
.QUITER
.USED BY:
.CCEVRT
COMMON/CRACOM/MAXCRA,CRAVAL (3,8,3) ,ICRAYS (3,8,3)
DO 100 IG=1,MAXCRA
IF (MY.LE.ICRAYS (IG,IV,IR)) GOTO 200
100 CONTINUE
..SET DEFAULT
IG-1
CALL QUITER (CRAVAL (IG,IV,IR) ,5,60,MY)
200 CRANKC=CRAVAL(IG,IV,IR)
RETURN
END
>»» FUNCTION CRANKC <««
-------
APPENDIX B
31000
31001
31002
31003
31004
31005
31006
31007
31008
31009
31010
31011
31012
31013
MOBILE2
SUBROUTINE Bl GCFX (ICY,IR,CFRET)
REVISED MARCH 31
1981
31015
31016
31017
31018
31019
31020
31021
31022
31023
31024
31025
31026
31027
31028
31029
31030
31031
31032
31033
31034
31035
31036
31037
31038
31039
31040
31041
31042
31043
31044
31045
31046
31047
31048
31049
31050
31051
31052
31053
31054
31055
31056
31057
C
C
C.
C
C.
C.
C
C
C.
C
C.
C
C.
C,
C.
C
C
C.
C
C.
C.
C.
C.
C,
C
C
C,
C
C.
C
C
.PURPOSE:
.SPROG COMPUTES CORRECTION FACTORS APPLIED TO COMPOSITE EMISSION
.FACTORS, E.G., SPEED, TEMPERATURE, HUMIDITY, ETC.
.ARGUMENTS:
.NAME USAGE
.ICY
,!R
.CFRET
IN
IN
OUT
DESCRIPTION
CALENDAR YEAR
REGION OF INTEREST
CORRECTION FACTORS TO APPLY TO BASIC EMISSION FACTORS
.USES SPROGS:
.SPFCLX
.ALUH
. IGPPTR
. ISPPTR
. ISPPT8
.USED BY:
.EFCALX
INTEGER ALTFLG.VMFLAG.ALHFLG.SPDFLG.PRTFLG
COMMON/FLGCOM/ALTFLG.VMFLAG.ALHFLG,IRDFLG.SPDFLG.NMHFLG,IDLFLG
COMMON/FLGCOM/MYMRFG,IMFLG,ICEVFG,PRTFLG,IFORM.MDEFLG
COMMON/ACOM/AIN(6,l8,3)
COMMON/XCFS1/AC,XLOAD(3) ,TRAILR(3) ,ABSHUM,DB,WB
COMMON/RET 1/ALHRET (20,4,3)
COMMON/SYSCOM/MAXVEH,MAXLTW,MAXPOL,MAXREG,INITPR
COMMON/1VPCOM/IVPTRG(8) ,IVPTRT (8) ,IVPTRA (8) ,IVPTRB (8)
COMMON/TCFCOM/TTACOF(2,3,9,3,6) .TT4COF (2,9,3) .TT7COF (2,3)
COMMON/GPCCOM/GPACOF(8,9,3,6).GPBCOF (3,3,3,4)
COMMON/LNKCOM/SPD (8),TAMB,PCCN,PCHC,PCCC
COMMON/CUMCOM/CUMMIL(20,8)
DIMENSION SPBACK(l8,3,8) , CFRET (20, 3,8) ,TCF (3) ,CHFRAC(3) ,NCATYR(8)
DIMENSION FTPSPD(3)
DATA FTPSPD/26.0,16.0,26.O/
DIMENSION SCFADJ(3,4)
DIMENSION ISPGRP(3,4)
DATA NCATYR/
* 197^,
* 1974,
* 1978,
* 1983,
* 2020,
>»» SUBROUTINE BI GCFX <««
-------
APPENDIX B
MOBILE2
REVISED MARCH 31, 198l
31058
31059
31060
31061
31062
31063
31064
31065
31066
31067
31068
31069
31070
31071
31072
31073
31074
31075
31076
31077
31078
31079
31080
31081
31082
31083
31084
31085
31086
31087
31088
31089
31090
31091
31092
31093
31094
31095
31096
31097
31098
31099
31100
31101
31102
31103
31104
3H05
3H06
3H07
31108
31109
31110
31111
31112
31113
31114
31115
C
c
C
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
* 2020,
* 2020,
* 2020/
..CALCULATE AVERAGE SPEED FOR THE OPERATING MODE FRACTIONS
SADJ=PCCC/FTPSPD(1)
+ (100.-PCCC-PCHC)/FTPSPD(2)
+PCHC/FTPSPD(3)
SADJ=100./SADJ
I=SADJ*10.+0.5
SADJ=I/10.
CALL SPFCLX(SPD.SPBACK)
IF (ALHFLG.GT.O) CALL ALUH (1 CY, IR)
..FRACTION COLD OP (NON-CAT) : FCN
..FRACTION HOT START (CAT) : FHC
..FRACTION COLD OP (CAT) : FCC
..FRACTION HOT START (NON-CAT) : FHN
FCN=PCCN*.01
FHC=PCHC*.01
FCC=PCCC*.01
FHN=(FCC-FCN)+FHC
..TEMP CORRECTION INITIALIZATION (MID, LOW.H 1 GH=0, 1 ,2 PATH AND SUB)
IF (TAMB.LT.68.) GOTO 200
IF (TAMB.GT.86.) GOTO 300
MDLOHI=0
DO 100 IB-1,3
100 TCF (IB)-].
GOTO 400
200 MDLOHI=1
TT=TAMB-67.5
GOTO 400
300 MDLOHI=2
TT=TAMB-86.5
..SPEED AND TEMP CORRECTION FACTORS INTO "CFRET"
400 DO 900 IDX=1,20
JDX=21-IDX
MY=ICY-(20-|DX)
DO 900 IV=],MAXVEH
IVG=|VPTRG(IV)
1 VT= 1 VPTRT ( 1 V)
IVA=IVPTRA(IV)
IVB=IVPTRB(IV)
GOTO(420,420,420,440,430,430,440,430) , IV
>»» SUBROUTINE BIGCFX <««
-------
APPENDIX B
MOBILE2 REVISED MARCH 31, ig8l
31116 1,20 IS=ISPPTR(MY,IR, |VG)
31117 430 XMILES=CUMMIL(JDX, IV)*.0001
31118 C
31H9 C
3H20 1*1*0 DO 900 IP=1,MAXPOL
31121 IF(IV.EQ.8) IS=|SPPT8(MY, IR.IP)
31122 IG-IGPPTR(MY,IP,IR,IV)
31123 GOTO (1*50 , 1*50 , l»50 , 550 , 450 , 450 , 550 , 1*50) , I V
31124 C
3H25 C.. ASSIGN COLD/HOT FRACTIONS BY MOD YR GRP
31126 C
31127 ^50 CHFRAC(1)=FCN
31128 CHFRAC(3)=FHN
3H29 IF(MY.LE.NCATYR(IV)) GOTO 500
31130 CHFRAC(1)=FCC
31131 CHFRAC(3)=FHC
3H32 500 CHFRAC(2)=1.-CHFRAC(1)-CHFRAC(3)
31133 C
311314 550 IF (MDLOH I .EQ.O) GOTO 700
3H35 GOTO(577,577,577,633,577,577,666,577),IV
31136 c
3H37 C..LO/HI TEMP CORRECTION FACTOR FOR VEH TYPES 1,2,3,5,6,8
31138 c
3H39 577 DO 600 IB=1,3
31HO 600 TCP (IB)=EXP(TTACOF (MDLOHI.IB, IG, IP, IVT)*TT)
311141 GOTO 700
31142 C
31143 C..LO/HI TEMP CORRECTION FACTOR FOR VEH TYPE 1*
3111*1* c
31 145 633 TCF(1)=EXP(TT4COF(MDLOHI,IG,IP)*TT)
31 1^6 GOTO 700
31147 C
31 148 C..LO/HI TEMP CORRECTION FACTOR FOR VEH TYPE 7
31149 C
31150 666 TCF(1)=EXP(TT7COF(MDLOHI,IP)*TT)
31151 C
3H52 700 GOTO(725,725,725,710,715,715,715,725) ,iv
3H53 C
3H54 C..GPBCOF FOR VEH=4,5,6,7
3H55 C
3H56 710 IF (IG.EQ.3) |G-2
3H57 715 ISAVE=IG
31158 IFOG.GT.3) IG-3
31159 S=SPD(IV)
3H60
3H6l
3H62
3H63
31164
31165
3H66
IF (IV.EQ.4 .OR. IV.EQ.7)
* SPDGPB=GPBCOF(3,IP,IG,IVB)*S*S
* +GPBCOF(2, IP, IG, IVB)*S
* +GPBCOFO, IP, IG, IVB)
IF (IV.EQ.5 .OR. IV.EQ.6)
* SPDGPB=GPBCOF(3,IP,IG, I VB) * (S*S-SADJ*SADJ)
ft +GPBCOF(2,IP,IG, IVB)*(S-SADJ)
3H67 IG=ISAVE
3H68 IF(IV.NE.4.0R.IP.NE.3) SPDGPB=EXP (SPDGPB)
31169 IF (IV.EQ.4. OR. IV.EQ.7) GOTO 750
31170 c
3H71 C,. SPEED CORRECTIONS FOR VEH TYPES 1,2,3,5,6,8
31172 c
31173 725 BAGSUMO.
>»» SUBROUTINE BIGCFX <««
-------
APPENDIX B
MOBILE2 REVISED MARCH 31, 1981
31171* DO 738 IB-1,3
31175 738 BAGSUM= (GPACOF (2*18,IG,IP,IVG)*XMILES+GPACOF(2*1B-l,IG,IP,IVG))
31176 * *TCF (IB)*CHFRAC(IB)+BAGSUM
3H77 C
31178 BAGSUM=BAGSUM/(GPACOF (8,IG,IP,IVG)*XMILES+GPACOF (7,IG,IP,IVG))
31179 IF (IV.EQ.5.0R.IV.EQ.6) GOTO 7^5
31180 IFdDX.GT.l .AND. I SPGRP (I P, IVA) .EQ. I S) GO TO 7^
31181 SCF=AIN(6,IS,IP)
31182 DO 7^*2 ICOEFF-1,5
31183 SCF-SCF*SADJ+AIN(6-|COEFF,IS,IP)
31181* 742 CONTINUE
31185 IFOP.NE.3) SCF=EXP(SCF)
31186 SCFADJ(IP, IVA)=SCF
31187 ISPGRPdP, IVA) = IS
31188 7U BAGSUM-(SPBACK(IS,IP,IV)/SCFADJ(IP,IVA))*BAGSUM
31189 GOTO 800
31190 c
31191 C..ADDITIONAL SPEED CORRECTION FOR VEH 5,6 ONLY
31192 c
31193 7U5 BAGSUM=SPDGPB*BAGSUM
3119l» GOTO 800
3H95 C
31196 C..SPEED CORRECTIONS FOR VEH TYPES 1*,7
3H97 C
31198 750 BAGSUM=TCF (1)*SPDGPB
31199 C
31200 C..OTHER CORRECTIONS FOR A.C., TOWING, ETC. FOR VEH TYPES 1,2,3,8
31201 C
31202 800 |F (ALHFLG.GT.O.AND.IVA.GT.O) BAGSUM=ALHRET (IDX,IVA,IP)*BAGSUM
31203 900 CFRET(IDX,IP,IV)=BAGSUM
31201* C
31205 RETURN
31206 END
>»» SUBROUTINE BIGCFX <««
-------
APPENDIX B
MOBILE2
DECEMBER 12, 1980
32000
32001
32002
32003
3200**
32005
32006
32007
32008
32009
32010
32011
32012
32013
32014
32015
32016
32017
32018
32019
32020
32021
32022
32023
32024
32025
32026
32027
32028
32029
32030
32031
32032
32033
32034
32035
32036
32037
32038
32039
32040
32041
32042
32043
32044
32045
32046
32047
32048
32049
32050
32051
32052
32053
32054
32055
32056
32057
C
C
C,
C
C.
C
C
C.
C
C.
C
C,
C,
C
C
C.
C
C.
C.
C
C
C.
C
C.
C
C
C
C
C
C
C
C
C
C
C
SUBROUTINE REGMOD (I CY, | NERR)
.PURPOSE:
.SPROG ADJUSTS MODEL YEAR MILEAGE/REGISTRATION ARRAYS.
.ARGUMENTS:
.NAME USAGE DESCRIPTION
.ICY IN CALENDAR YEAR
.INERR I/O TOTAL COUNT OF DATA ENTRY ERRORS
.USES SPROGS:
.TFCALX
.IGSFPT
.USED BY:
.MAIN
COMMON/MYMCOM/XMYM(20,8) ,XMYR(20,8) ,TF (20,8) ,TFMYM(20,8)
COMMON/MYMS AV/S AVMYM (20 , 8) , SAVMYR (20 , 8)
COMMON/GSFCOM/MAXGSF.GSF (18,8,3) , IGSFYR (18,8,3)
COMMON/SYSCOM/MAXVEH.MAXLTW.MAXPOL.MAXREG.INITPR
COMMON/REGSUM/SUM1 (8)
COMMON/REGCOM/ 1 RE JN , ALT
DIMENSION X(20)
IR=IREJN
IF (IR.NE.5) GOTO 100
IR-1
IF (ALT. GE. 4000.) 1 R=3
100 DO 500 IV=1,MAXVEH
X(l)=SAVMYR(l,IV)/3.
IF (IV.EQ.4.0R.IV.EQ.7.0R.IV.EQ.8) X(l)=0.
DO 150 IDX=2,20
150 X(IDX)=SAVMYR(IDX,IV)
DO 500 IDX*1,20
MY=ICY-IDX+1
IGS=IGSFPT(MY,IV,IR)
500 XMYR ( 1 DX , 1 V) -GSF ( 1 GS , 1 V, 1 R) *X ( 1 DX)
DO 700 IV-l.HAXVEH
Z=.25
>»» SUBROUTINE REGMOD <««
-------
APPENDIX B
MOBILE2 DECEMBER 12, 1980
32058 IF (IV.EQ.1*.OR.IV.EQ.7.0R.IV.EQ.8) Z=0.
32059 S=SAVMYM(1,IV)
32060 SS=SAVMYM(2,|V)
32061 X(1)-.5*Z*S
32062 X (2) -Z* (.5*Z*SS+S) + (] ,-Z) * ((1 ,+Z) *.5*S)
32063 ss=ss+s
32061* C
32065 DO 600 IDX=3,20
32066 X(IDX)-Z*(.5*Z*SAVMYM(IDX,IV)+SS) + (1.-Z)*(.5*0.+Z)
32067 * *SAVMYM(IDX-1,IV)+S)
32068 S=SS
32069 600 SS=SS+SAVMYM(IDX,IV)
32070 c
32071 XMYM(1,IV)=X(1)
32072 DO 700 IDX=2,20
32073 700 XMYM(IDX, IV)=X(IDX)-X(IDX-1)
32071* c
32075 C
32076 DO 775 IV=1,MAXVEH
32077 Z=-25
32078 TFMYM(1, IV)=SAVMYM(1,IV)
32079 IF (IV.NE.1*.AND.IV.NE.7.AND.IV.NE,8) GOTO 750
32080 z=o.
32081 TFMYM(1,IV)=0.
32082 750 ZZ=1.-Z
32083 c
32081* DO 775 IDX=2,20
32085 775 TFMYM(IDX,IV)=SAVMYM(IDX-1,IV)*ZZ+SAVMYM(IDX,IV)*Z
32086 C
32087 C NORMALIZE MYR
32088 DO 900 IV=1,MAXVEH
32089 s=o.
32090 DO 800 IDX=1,20
32091 800 S=XMYR(IDX, IV)+S
32092 SUM1(IV)=S
32093 |F(S.LE.O.) S-l.
32091* DO 900 IDX=1,20
32095 900 XMYR (IDX,IV)=XMYR(IDX,IV)/S
32096 SUMl (7)-SUMl (D+SUM1 (5)
32097 SUMl (8)=SUM1 (2)+SUMl (6)
32098 SUMl (l)-SUMl (D/SUMl (7)
32099 SUMl (2)=SUM1 (2)/SUMl (8)
32100 SUM1(3)=1.
32101 SUM1(1»)=1.
32102 SUMl (5) "SUMl (5)/SUMl (7)
32103 SUMl (6)=SUM1 (6)/SUMl (8)
32101* SUM1(7)-1.
32105 SUMl (8)=].
32106 CALL TFCALX(INERR)
32107 c
32108 RETURN
32109 END
>»» SUBROUTINE REGMOD <««
-------
APPENDIX B
MOBILE2
DECEMBER 12, 1980
33000
33001
33002
33003
33001*
33005
33006
33007
33008
33009
33010
33011
33012
33013
33011*
33015
33016
33017
33018
33019
33020
33021
33022
33023
3302'*
33025
33026
33027
33028
33029
33030
33031
33032
33033
33031*
33035
33036
33037
33038
33039
3301*0
3301*1
3301*2
3301*3
3301*1*
3301*5
3301*6
3301*7
3301*8
3301*9
33050
33051
33052
33053
33051*
33055
33056
33057
SUBROUTINE TFCALX (1 NERR)
C
C
C.. PURPOSE:
C
C..SPROG COMPUTES THE TRAVEL FACTOR.
C
C
C,, ARGUMENTS:
C
C..NAME USAGE DESCRIPTION
C
C..INERR I/O TOTAL COUNT OF DATA ENTRY ERRORS
C
C
C..USES SPROGS:
C
C..QUITER
C
C
C..USED BY:
C
C..REGMOD
C
C
INTEGER ALTFLG.VMFLAG.ALHFLG.SPDFLG.PRTFLG
C
COMMON/MYMCOM/XMYM(20,8) ,XMYR(20,8) ,TF (20,8) ,TFMYM(20,8)
COMMON/REGSUM/SUM1 (8)
COMMON/FLGCOM/ALTFLG,VMFLAG,ALHFLG,IRDFLG,SPDFLG,NMHFLG, IDLFLG
COMMON/FLGCOM/MYMRFG,IMFLG,|CEVFG,PRTFLG,IFORM,MDEFLG
COMMON/VMXCOM/VMTMIX (8)
COMMON/SYSCOM/MAXVEH, MAXLTW, MAXPOL, MAXREG, INITPR
C
DIMENSION TFNORM(8) ,VCOUNT(8)
C
DATA VCOUNT/ 102. 9, 12. 9, 5- 7,1*. 7, 102. 9, 12. 9, 1.0, 7-37
C
C
C
DO 820 IV-l.MAXVEH
TFNORM(IV)=0.
C
DO 810 IDX-1,20
810 TFNORM(IV)=TFNORM(IV)+TFMYM(IDX, 1 V) *XMYR (1 DX, 1 V)
820 CONTINUE
IF(VMFLAG.NE.O) GOTO 850
TOTVMT=0 .
DO 830 IV=1,MAXVEH
VMTMIX (IV)=VCOUNT(IV) *SUM1 (1 V) *TFNORM (1 V)
8 30 TOTVMT=TOTVMT+VMTM 1 X ( 1 V)
DO 81*0 |V=1,MAXVEH
81*0 VMTMIX (IV)=VMTMIX(IV)/TOTVMT
C
850 DO 870 IV=1,MAXVEH
IF (TFNORM(IV) .LE .0. . AND .VMTMI X (1 V) .GT.O.)
* CALL QUITER(0., IV,1*8, INERR)
|F(TFNORM(IV) .LE.O.) TFNORM (1 V) =1 .
>»» SUBROUTINE TFCALX <««
-------
APPENDIX B
MOBILE2 DECEMBER 12, 1980
33058 c
33059 DO 860 IDX-M.20
33060 JDX=21-IDX
33061 860 TF(JDX,|V) = (TFMYM(IDX,|V)*XMYR(IDX,IV))/TFNORM(IV)
33062 870 CONTINUE
33063 C
3306i» RETURN
33065 END
>»» SUBROUTINE TFCALX <««
-------
APPENDIX B
MOBILE2 DECEMBER 12, 1980
31*000 SUBROUTINE SPFCLX (SPARA.SPBACK)
34001 C
31*002 c
3l|003 C..PURPOSE:
31*001* c
31»005 C..SPROG COMPUTES SPEED CORRECTION FACTOR.
31*006 c
31*007 c
31*008 C.. ARGUMENTS:
31*009 c
31*010 C..NAME USAGE DESCRIPTION
31*011 c
31*012 C..SPARA IN VEHICLE SPEEDS
31*013 C..SPBACK OUT SPEED CORRECTION FACTORS
31*011* c
31*015 c
31*016 C..USES SPROGS:
31*017 c
31*018 C..NONE
31*019 c
31*020 c
31*021 C..USED BY:
3U022 C
34023 C..BIGCFX
31*021* c
31*025 c
31*026 COMMON/ACOM/AIN(6,l8,3)
31*027 COMMON/SYSCOM/MAXVEH,MAXLTW,MAXPOL,MAXREG,INITPR
31*028 DIMENSION SPARA(8) ,SPBACK(18,3,8)
31*029 c
31*030 DO 200 IV=1,MAXVEH
31*031 S=SPARA(IV)
31*032 c
31*033 DO 200 I P=l,MAXPOL
31*031* c
31*035 DO 200 IG=l,l8
31*036 SCF=AIN(6, IG, IP)
31*037 c
31»038 DO 100 IS=1,5
31*039 100 SCF=SCF*S+AIN(6-IS,IG,IP)
31*01*0 IF (IP.NE.3)SCF=EXP(SCF)
31*01*1 200 SPBACK(IG,IP,IV)=SCF
31*01*2 c
31*01*3 RETURN
31*01*1* END
>»» SUBROUTINE SPFCLX <««
-------
APPENDIX B
MOBILE2
DECEMBER 12, 1980
35000
35001
35002
35003
35004
35005
35006
35007
35008
35009
35010
35011
35012
35013
35014
35015
35016
35017
35018
35019
35020
35021
35022
35023
35021*
35025
35026
35027
35028
35029
35030
35031
35032
35033
35031*
35035
35036
35037
35038
35039
35040
35041
35042
35043
35044
35045
35046
35047
35048
35049
35050
35051
35052
35053
35054
35055
35056
35057
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
FUNCTION BEF (MY, ICY, IG, IP, IV, IR.VMTAGE.EXMVAL)
BEF
REAL FUNCTION TO DETERMINE A BASIC EMISSION FACTOR. THIS FUNCTION
PERFORMS CALCULATIONS PREVIOUSLY PERFORMED BY SPROG BEFGEN.
ARGUMENTS:
NAME TYPE DIR DESCRIPTION
BEF R OUT A REAL FUNCTION NAME THAT RETURNS A BASIC
EMISSION FACTOR ADJUSTED FOR METHANE AND
INSPECTION/MAINTENANCE.
MY 1 IN MODEL YEAR.
ICY 1 IN CALENDAR YEAR.
IG 1 IN MODEL YEAR GROUP
IP 1 IN AN INTEGER VARIABLE THAT CONTAINS AN EMISSION
(POLLUTANT) INDEX/CODE. VALUES ARE HC=1,
C0=2, AND NOX=3-
IV 1 IN AN INTEGER VARIABLE THAT CONTAINS A VEHICLE
TYPE CODE. IV IS CURRENTLY EXPECTED TO
CONTAIN VALUES IN THE RANGE 1...8. THIS
VARIABLE WAS OFTEN CALLED IMODE IN THE
MOB 1 LEI PROGRAM.
|R I IN AN INTEGER VARIABLE THAT CONTAINS A REGION
CODE. CURRENT CODES ARE:
1 LOW ALTITUDE
2 CALIFORNIA LOW ALTITUDE
3 HIGH ALTITUDE
4 RESERVED FOR CALIFORNIA HIGH ALTITUDE,
BUT ILLEGAL NOW
5 ILLEGAL CODE FOR THIS SUBPROGRAM.
6 ILLEGAL CODE FOR THIS SUBPROGRAM.
VMTAGE R IN VEHICLE CUMMULATIVE MILEAGE
EXMVAL R IN APPLICABLE NON-METHANE FRACTION
CALLS:
PCLEFT
CALLED BY:
EFCALX
>»» FUNCTION BEF <««
-------
35058
35059
35060
35061
35062
35063
3506^4
35065
35066
35067
35068
35069
35070
35071
35072
35073
35071*
35075
35076
C
C
C
C
C
C
C
C
APPENDIX B
MOBILE2
DECEMBER 12, 1980
CCWMON/BASECM/BASE 3R(15,3,8,3)
COMMON/DELCOM/DEL3R(15,3,8,3)
BEF =(BASE3R (IG,IP,IV,IR) +DEL3R(IG,IP,IV,IR)*VMTAGE)*EXMVAL
INSPECTION/MAINTENANCE ADJUSTMENT.
BEF=PCLEFT(MY,ICY,IP,IV)*BEF
RETURN
END
>»» FUNCTION BEF <««
-------
APPENDIX B
MOBILE2
DECEMBER 12, 1980
36000
36001
36002
36003
3600/4
36005
36006
36007
36008
36009
36010
36011
36012
36013
360 114
36015
36016
3601?
36018
36019
36020
36021
36022
36023
3602*4
36025
36026
36027
36028
36029
36030
36031
36032
36033
36031*
36035
36036
36037
36038
36039
360/40
360i» 1
360i«2
360/43
360/414
360^5
360U6
360147
360148
360149
36050
36051
36052
36053
360514
36055
36056
36057
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
FUNCTION BEF I DL (1 G, 1 P, 1 V, 1 R, VMTAGE, EXMVAL)
BEFIDL
REAL FUNCTION TO DETERMINE AN IDLE EMISSION FACTOR. THIS FUNCTION
PERFORMS CALCULATIONS PREVIOUSLY PERFORMED BY SPROG BEFGEN.
ARGUMENTS;
NAME TYPE DIR DESCRIPTION
BEFIDL R OUT A REAL FUNCTION NAME THAT RETURNS AN IDLE
EMISSION FACTOR ADJUSTED FOR METHANE, BUT
NOT INSPECTION/MAINTENANCE. THIS VALUE
CORRESPONDS TO ARRAY IDLBEF IN THE MOB 1 LEI
PROGRAM. THE NAME WAS CHANGED TO ELIMINATE
THE NEED TO DECLARE THE FUNCTION NAME REAL
IN CALLING SOFTWARE.
IG 1 IN MODEL YEAR GROUP
IP 1 IN AN INTEGER VARIABLE THAT CONTAINS AN EMISSION
(POLLUTANT) INDEX/CODE. VALUES ARE HC=1 ,
C0=2, AND NOX=3.
IV 1 IN AN INTEGER VARIABLE THAT CONTAINS A VEHICLE
TYPE CODE. IV IS CURRENTLY EXPECTED TO
CONTAIN VALUES IN THE RANGE 1...8. THIS
VARIABLE WAS OFTEN CALLED IMODE IN THE
MOBILE1 PROGRAM.
|R I IN AN INTEGER VARIABLE THAT CONTAINS A REGION
CODE, CURRENT CODES ARE:
1 LOW ALTITUDE
2 CALIFORNIA LOW ALTITUDE
3 HIGH ALTITUDE
14 RESERVED FOR CALIFORNIA HIGH ALTITUDE,
BUT ILLEGAL NOW
5 ILLEGAL CODE FOR THIS SUBPROGRAM.
6 ILLEGAL CODE FOR THIS SUBPROGRAM.
VMTAGE R IN VEHICLE CUMMULATIVE MILEAGE
EXMVAL R IN APPLICABLE NON-METHANE FRACTION
CALLS;
CALLED BY:
EFCALX
>»» FUNCTION BEFIDL <««
-------
APPENDIX B
MOBILE2 DECEMBER 12, 1980
36058 c
36059 REAL IDLB3R.IDEL3R
36060 C
36061 COMMON/IDLBCM/IDLB3R(15,3,8,3)
36062 COMMON/|DLDCM/|DEL3R(15,3,8,3)
36063 c
3606/4 C
36065 c
36066 BEFIDL-(IDLB3R(IG,IP,IVf IR) + IDEL3R(IG,IP,|V,|R)*VMTAGE)*EXMVAL
36067 c
36068 C NO INSPECTION/MAINTENANCE ADJUSTMENT.
36069 c
36070 c
36071 RETURN
36072 END
>»» FUNCTION BEFIDL <««
-------
APPENDIX B
MOBILE2
DECEMBER 12, 1980
37000
37001
37002
37003
37001+
37005
37006
37007
37008
37009
37010
37011
37012
37013
370 U
37015
37016
37017
37018
37019
37020
37021
37022
37023
37021.
37025
37026
37027
37028
37029
37030
37031
37032
37033
3703^
37035
37036
37037
SUBROUTINE GETCUM
C
C
C.
C
C.
C
C
C.
C
C.
C
C.
C
C
C.
C
C.
C
C
C,
C
C,
C
C
.PURPOSE:
.SPROG COMPUTES AVERAGE JANUARY 1 FLEET CUMULATIVE MILEAGES.
.ARGUMENTS;
.NAME USAGE DESCRIPTION
.NONE
.USES SPROGS:
.NONE
.USED BY:
.EFCALX
COMMON/MYMCOM/XMYM(20,8) ,XMYR(20,8) ,TF(20,8) ,TFMYM(20,8)
COMMON/CUMCOM/CUMMIL(20,8)
COMMON/SYSCOM/MAXVEH.MAXLTW.MAXPOL.MAXREG.INITPR
DO 100 IV=1,MAXVEH
CUMMILd, IV)=XMYM( 1,1V)ft 100000.
DO 100 IDX=2,20
100 CUMMIL(IDX,IV)=XMYM(IDX,IV) *100000.+CUMMIL(IDX-1,IV)
RETURN
END
>»» SUBROUTINE GETCUM <««
-------
AS A
CO CTV CO
I — O CC I
CQ I— O O CQ
• u_ ^
UJ CM O cw. LU
L3 — LU CO "S O
- ce z: -
z o m cc > c3
O — LU ^—, til i^^ ^^
— Q O CC O O
I— —I LU >- O X «X ^ V
— LU Z f>J » - - <£ O V
LL.CO—1 LU ^-* _J -3" LA U_ » QJ ^ ^ _j I— of u_
X OO OO 3
— LU — ZLU O O- -CO - - I—
Z — ^~i CL. Z. I— •— « » ro ««X CCO — CCCCIICC — *Z
LUCQCC a. co Q oz -Lr\Lr\-inLri«s — O- — — ^~, II - O —
o-oce nccz — 3 un— — UA—— s: . r\i — > »ce <-> tn IIK
Q-ZCLU COO LTV > > — CC LT\,~,3
— o» — — - — -30:0
— Ct: O LLJ — _l>-roccrrvro O" LU < -t— CJ -«>• OO* — CC
' LLJ U- Q-O^Q-Q- > -— ~-^ — C3U- — u-X>3
I— 3 — COf— ZZ<£LUQC3«X<«: LUOOO> — . . Q. . — LLi>— h- I— I— CC—, •—^T-A
<*« OXLUOCQOLUO OO— INr<-VXZCCQ-CLCL.L— OCC3Z3A
LU _i — L_ LU l—Qco—i—i—ii—co - U.LL.I— I— H-ZCCI— LULULU^U.|— LULU
— :cuj- >- CO CC —1 O<^
CQ co O-LUU.COOOCOCOOOCOCOOOCOOOCOODCOCOCOCOCOOOCOCOCOCOCOCOCOOOCOCOCOCOCOCOCOC^
cOPOrr>e^cv^cy^cr^rr\roc^r^r^rOrrve*^roe^iv^c»^rO(
-------
APPENDIX B
MOBILE2 DECEMBER 12, 1980
38058 300 IDEL3R(IEQU,IP,IV,IR)=0.
38059 kOO CONTINUE
38060 c
38061 RETURN
38062 END
>»» SUBROUTINE EFALTX <««
-------
APPENDIX B
MOBILE2
»» SUBROUTINE CCEVAX <««
-------
APPENDIX B
MOBILE2 DECEMBER 12, 1980
39058 RETURN
39059 END
>»» SUBROUTINE CCEVAX <««
-------
APPENDIX B
MOBILE2
DECEMBER 12, 1980
1*0000
1*0001
1*0002
1*0003
1*0001*
1*0005
1*0006
1*0007
1*0008
1+0009
1*0010
1*001 1
1*0012
1*0013
1*0011*
1*0015
1*0016
1*0017
1*0018
1*0019
1*0020
1*0021
1*0022
1*0023
1*0021*
1+0025
1*0026
1*0027
1*0028
1*0029
1+0030
1+0031
1+0032
1+0033
l*003l»
1*0035
1*0036
1+0037
1+0038
1+0039
1+001*0
1+0041
1*001*2
1*001+3
1*001+1*
1*001*5
1*001*6
1*001+7
1+001*8
1+001*9
1+0050
1+0051
1+0052
1+0053
1*0051*
1*0055
1*0056
1*0057
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
FUNCTION PCLEFT(MY, ICY, IP, IV)
PCLEFT
REAL FUNCTION TO DETERMINE AN ADJUSTMENT TO A BASIC EMISSION
FACTOR THAT ACCOUNTS FOR THE EFFECTS OF AN INSPECTION/MAINTENANCE
PROGRAM. THIS FUNCTION REPLACES SPROG LDVIMX IN THE MOBILE2
PROGRAM.
ARGUMENTS:
NAME TYPE DIR DESCRIPTION
PCLEFT R OUT A REAL FUNCTION NAME THAT RETURNS AN
INSPECTION/MAINTENANCE ADJUSTMENT TERM
TO A BASIC EMISSION FACTOR.
MY 1 IN MODEL YEAR.
ICY 1 IN CALENDAR YEAR.
IP 1 IN AN INTEGER VARIABLE THAT CONTAINS AN EMISSION
(POLLUTANT) INDEX/CODE. VALUES ARE HC=1,
C0=2, AND NOX=3-
IV 1 IN AN INTEGER VARIABLE THAT CONTAINS A VEHICLE
TYPE CODE. IV IS CURRENTLY EXPECTED TO
CONTAIN VALUES IN THE RANGE 1...8.
CALLS:
NONE
CALLED BY:
SPROG BEF
INTEGER ALTFLG,VMFLAG,ALHFLG,SPDFLG,PRTFLG
COMMON/FLGCOM/ALTFLG,VMFLAG,ALHFLG,IRDFLG,SPDFLG,NMHFLG,IDLFLG
COMMON/FLGCOM/MYMRFG, IMFLG, 1 CEVFG.PRTFLG, IFORM.MDEFLG
COMMON/ 1 MCOM/ ICYIM, ISTRIN, IMTFLG.MODYR1 .MODYR2
COMMON/ 1 MCOM/ 1 LDT , 1 OPTN , NUD ATA , NL 1 NES , STR 1 NG (1 8 , 9)
COMMON/IMCRED/IRED(19,20,5,2,2) , ITECHl* (19,20,5)
INTEGER BY.AGE1ST
PCLEFT=1 .
ERROR CHECK
IF (IMFLG. EQ.O) GOTO 999
>»» FUNCTION PCLEFT <««
-------
APPENDIX B
MOBILE2
DECEMBER 12, 1980
1*0058
40059
40060
40061
40062
40063
40064
40065
40066
40067
40068
40069
40070
40071
40072
40073
40074
40075
40076
40077
40078
40079
40080
40081
40082
40083
40084
40085
40086
40087
40088
40089
40090
40091
40092
40093
40094
40095
40096
40097
40098
40099
40100
40101
40102
40103
40104
40105
40106
40107
40108
40109
40110
40111
40112
40113
40114
40115
IF (IV.GT.3) GOTO 999
IF (IV.GT.l.AND.ILDT.EQ.O) GOTO 999
IFOP.EQ.3) GOTO 999
IF (ICY. EQ. MY. OR. ICY. LE. ICYIM) GOTO 999
IF(MY.LT.MODYR1.0R,MY.GT.MODYR2) GOTO 999
C
C FIND THE BENEFIT YEAR
C
BY=ICY-ICYIM
IF (MY.GT. ICYIM) BY=ICY-MY
|F(BY.GT.19) BY=19
C
C FIND THE AGE OF THE VEHICLE AT FIRST INSPECTION
C
AGE1ST=1
IF (MY. LT. ICYIM) AGE1ST=I CY IM-MY+1
C
C DETERMINE TECHNOLOGY BY MODEL YEAR AND VEHICLE TYPE
C
|TECH=1
IF (IV.NE.l) GOTO 100
IF (MY. GE. 1975. AND. MY. LE. 1980) ITECH=2
IF (MY.GT. 1980) ITECH=4
GOTO 400
C
100 IF (IV.EQ.3.0R.ILDT.EQ.2) GOTO 200
IF (MY. GE. 1975- AND. MY. LE. 1984) ITECH=2
GOTO 300
C
200 IF (IV.EQ.2.0R.ILDT.EQ.1) GOTO 999
IF (MY. GE. 1979- AND, MY. LE. 1984) ITECH=2
300 IF (MY.GT. 1984) ITECH=4
C
C REFERENCE THE RIGHT REDUCTION, INTERPOLATING BY STRINGENCY OR OPTION
C
400 MT=IMTFLG+1
IF (ITECH. EQ. 4) GOTO 600
C
IREM=ISTRIN-(ISTRIN/10)*10
REM=IREM*.l
ISTRN=(ISTRIN-IREM)/10
IF (MT.EQ.2) GOTO 500
C
C..ITECH<4 AND MT=1
PCRED=|RED(BY,AGE1ST, ISTRN, ITECH, IP)
IF (ISTRN. LT. 5- AND. IREM.GT.O) PCRED=
* (IRED(BY,AGE1ST, 1 STRN+1 , ITECH, 1 P) -PCRED) *REM+PCRED
GOTO 800
C
C..ITECH<4 AND MT=2
500 PCRED=I RED (20-BY, 21 -AGE 1ST, ISTRN, ITECH, IP)
IF (ISTRN. LT. 5. AND. IREM.GT.O) PCRED=
* ( I RED (20-BY , 2 1 -AGE 1 ST, 1 STRN+1 , I TECH , 1 P) -PCRED) *R£M+PCRED
GOTO 800
C
600 IOP-IOPTN-40
IREM-IOP-(IOP/10)*10
REM=IREM*.l
>»» FUNCTION PCLEFT <««
-------
1*0116
1*0117
1*0118
1*0119
1*0120
1*0121
40122
1*0123
1*0121*
1*0125
1*0126
1*0127
1*0128
1*0129
1*0130
1*0131
1*0132
1*0133
1*0131*
1*0135
APPENDIX B
MOBILE2
IOPT=(IOP-|REM)/10
IF(IP.EQ,2) GOTO 700
DECEMBER 12, 1980
C
C
C..ITECH-J* AND IP<=1
PCRED= I TECHl* (BY, AGE 1ST, I OPT)
IF(IOPT.LT,5.AND.|REM.GT.O)
* (ITECHMBY.AGEIST, IOPT+1) -PCRED) *REM+PCRED
GOTO 800
C
C,.ITECH=1* AND I P=2
700 PCRED= I TECHl* (20-BY, 21 -AGE 1 ST, I OPT)
IF (IOPT,LT.5.AND.IREM.GT.O) PCRED-
* (ITECHl* (20-BY,21-AGE 1ST, I OPT+1) -PCRED) *REM+PCRED
C
C
800 PCLEFT-1.-PCRED/100,
C
999 RETURN
END
>»» FUNCTION PCLEFT <««
-------
APPENDIX B
MOBILE2
DECEMBER 12, 1980
1*1000
1*1001
1*1002
141003
1*1001*
1*1005
1»1006
M007
1*1008
1*1009
1*1010
1*1011
1*1012
1*1013
1*1011*
1*1015
1*1016
1*1017
1*1018
1*1019
1*1020
1*1021
1*1022
1*1023
1*1021*
1*1025
1*1026
1*1027
1*1028
1*1029
1*1030
1*1031
1*1032
A 1033
l*103l»
1*1035
1*1036
M037
1*1038
1*1039
1*101*0
1*101*1
1*101*2
1*101*3
1*101*1*
1*101*5
1*101*6
1*101*7
1*101*8
1*101*9
1*1050
1*1051
1*1052
1*1053
1*1 05**
1*1055
1*1056
M057
SUBROUTINE ALUH(ICY,|R)
C
C
C.. PURPOSE:
C
C..SPROG COMPUTES EMISSION CORRECTION FACTORS FOR AIR CONDITIONING,
C., EXTRA LOADING, TRAILER TOWING AND HUMIDITY ONLY FOR VEHICLES
C..LDGV, LDGT1, LDGT2 AND LDGT (COMP.) . ADDITIONALLY, THE HUMIDITY
C.. CORRECTION IS APPLIED TO MC VEHICLES.
C
C
C.. ARGUMENTS:
C
C..NAME USAGE DESCRIPTION
C
C..ICY IN CALENDAR YEAR
C..IR IN REGION
C
C
C..USES SPROGS:
C
C..IGEPTR
C..IGUPTR
C.JGLPTR
C..IGTPTR
C
C
C..USED BY:
C
C..BIGCFX
C
C
COMMON/RET1/ALHRET(20,J*,3)
COMMON/ALUCOM/ACEQIP(8,3,3) ,ACCF (2,3.2,3.3)
COMMON/ALUCOM/XLCF(3,6,3,3) ,TWCF (3,6,3, 3)
COMMON/LNKCOM/SPD (8) ,TAMB,PCCN,PCHC,PCCC
COMMON/XCFS1/AC,XLOAD(3) ,TRAILR(3) , ABSHUM.DB.WB
COMMON/SYSCOM/MAXVEH, MAXLTW, MAXPOL, MAXREG, INITPR
C
C,.DILO IS THE LOW REFERENCE TEMP FOR Dl
C..DIHI IS THE HIGH REFERENCE TEMP FOR Dl
C..DI IS THE DISCOMFORT INDEX COMPUTED FROM THE USER SUPPLIED (DEFAULT)
C.. VALUES OF DRY BULB (DB) AND WET BULB (WB) TEMPS.
C
DATA DILO/70./
DATA DIHt/80./
C
C
C
IF (AC.EQ.O.) GOTO 100
C.. COMPUTE AC BASED ON DISCOMFORT INDEX Dl
DI = (DB+WB) *,!»+! 5-
AC=(DI-DILO)/(DIHI-DILO)
IF(AC.LT.O.) AC=0.
IF(AC.GT.l.) AC=1.
C.. SETUP HUMIDITY CORRECTION FACTORS
100 TT=TAMB-75.
HHHH.-0. 001*70* (ABSHUM-75-)
>»» SUBROUTINE ALUH <««
-------
APPENDIX B
MOBILE2 DECEMBER 12, 1980
C,.ASSIGN MC ONLY FOR I P=3
41059 DO 200 |DX«=],20
41060 ALHRET(IDX,4,1)«=1.
41061 ALHRET(IDX,4,2)"°1,
41062 200 ALHRET(IDX,4,3)=HHH
41063 C
41064 C..ASSIGN OTHER VEHICLE CORRECTION FACTORS
41065 C
i»l066 DO 400 IVP-l.MAXLTW
4106? XLU=XLOAD(IVP)
41068 TWU=TRAILR(IVP)
41069 C
41070 DO 300 IDX=1,20
41071 MY=ICY-(20-IDX)
41072 IGU=IGUPTR(MY,|VP,|R)
41073 IGE=IGEPTR(MY,IVP,|R)
41074 IGLHGLPTR(MY,|VP,|R)
41075 |GT=IGTPTR(MY,IVP,IR)
41076 ACU=ACEQIP(IGE,IVP,IR)*AC
41077 C
41078 DO 300 IP=1,MAXPOL
41079 HH-1.
41080 IFOP.EQ.3) HH=HHH
41081 300 ALHRET(|DX,IVP,IP)«
41082 ft ((ACCF (2,IP,IGU,IVP,|R)*TT+ACCF(1,IP,IGU,IVP,IR) -1.}*ACU+1.)
41083 * ft((XLCF(IP,IGL,IVP,|R)-l,)ftXLUtl.)
41084 ft ft((TWCF(IP,IGT,!VP,IR)-l.)ftTWU+l.)
41085 * *HH
41086 C
41087 400 CONTINUE
41088 C
41089 C
41090 RETURN
41091 END
>»» SUBROUTINE ALUH <««
-------
1*2000
1*2001
1*2002
42003
1*2001*
1*2005
1*2006
1*2007
1*2008
1*2009
1*2010
1*2011
1*2012
1*2013
1*2011*
1*2015
1*2016
1*2017
1*2018
1*2019
1*2020
1*2021
1*2022
1*2023
1*2021*
1*2025
1*2026
1*2027
1*2028
1*2029
1*2030
1*2031
1*2032
1*2031*
^2035
1*2036
^2037
1*2038
1*2039
1*201*0
1*201*1
1*201*2
1*201*3
APPENDIX B
MOBILE2
FUNCTION IGEPTR(MY,IV.IR)
DECEMBER 12, 1980
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
.PURPOSE:
.SELECT POINTER TO FRACTION OF VEHICLES EQUIPPED WITH A.C.
•ARGUMENTS:
,NAME USAGE
,MY
,1V
IR
IN
IN
IN
DESCRIPTION
MODEL YEAR
VEHICLE TYPE
REGION
.USES SPROGS;
.QUITER
.USED BY:
.ALUH
COMMON/ALUPTR/1GEYRS(8,3,3) ,IGUYRS(2,3,3)
COMMON/ALUPTR/1GLYRS(6,3,3),IGTYRS (6,3,3)
DO 100 |G=1,8
IF(MY.LE.|GEYRS(|G,IV,IR)) GOTO 200
100 CONTINUE
, .SET DEFAULT
IG-1
CALL QUITER (0.,6,61,MY)
200 IGEPTRHG
RETURN
END
>»» FUNCTION IGEPTR <««
-------
APPENDIX B
MOBILE2 DECEMBER 12, 1980
43000 FUNCTION IGUPTR (MY, IV, |R)
43001 C
43002 C
43003 C..PURPOSE:
43004 C
43005 C..SELECT POINTER TO FRACTION OF VEHICLES USING A.C.
43006 C
43007 c
43008 C,.ARGUMENTS:
43009 c
43010 C..NAME USAGE DESCRIPTION
43011 c
43012 C..MY IN MODEL YEAR
43013 C..IV IN VEHICLE TYPE
43014 C..IR IN REGION
43015 c
43016 c
43017 C..USES SPROGS:
43018 C
43019 C..QUITER
43020 C
43021 C
43022 C..USED BY:
43023 c
43024 C..ALUH
43025 c
43026 C
43027 COMMON/ALUPTR/IGEYRS(8,3,3) ,|GUYRS(2,3,3)
43028 COMMON/ALUPTR/IGLYRS(6,3,3),IGTYRS(6,3,3)
43029 c
43030 c
43031 c
43032 DO 100 IG=1,2
43033 IF (MY.LE.IGUYRSdG, IV, IR)) GOTO 200
43034 100 CONTINUE
43035 c
43036 C..SET DEFAULT
43037 c
43038 IG=1
43039 CALL QUITER(0.,7,6l,MY)
43040 200 IGUPTR-IG
43041 C
43042 RETURN
43043 END
>»» FUNCTION IGUPTR <««
-------
APPENDIX B
MOBILE2
DECEMBER 12, 1980
1*1*000
1*1*001
1+1*002
1+1*003
1*1*001*
1*1+005
1*1*006
1*1*007
1*1*008
iti+oog
1*1*010
1*1*01 1
1*1*012
1+1*013
1+1*011+
1*1*015
1*1*016
1*1+017
1*1*018
1*1*019
1*1*020
1*1*021
1*1*022
1*1*023
1*1*021*
1*1*025
1*1*026
1*1*027
1*1+028
1+1+029
1*1*030
1*1*031
1*1*032
1*1*033
1*1*031*
1*1+035
1+1+036
1*1*037
1*1*038
i*i*039
1*1*01+0
1+1*01*1
1*1*01*2
iti»oi+3
c
C
c.
c
c.
c
c
c.
c
c.
c
c.
c.
c.
c
c
c.
c
c.
c
c
c.
c
c.
c
c
c
c
c
c
c.
c
c
FUNCTION IGLPTR(MY,IV,IR)
.PURPOSE:
.SELECT POINTER TO FRACTION OF VEHICLES WITH EXTRA LOAD
.ARGUMENTS:
.NAME USAGE DESCRIPTION
.MY IN MODEL YEAR
.IV IN VEHICLE TYPE
.IR IN REGION
.USES SPROGS:
.QUITER
.USED BY:
.ALUH
COMMON/ALUPTR/IGEYRS(8,3,3) , IGUYRS (2, 3,3)
COMMON/ALUPTR/|GLYRS(6,3,3) , IGTYRS (6, 3,3)
DO 100 IG=1,6
IF (MY.LE.IGLYRSdG, IV, IR)) GOTO 200
100 CONTINUE
.SET DEFAULT
IG=1
CALL QUITER (0., 8, 61, MY)
200 IGLPTR-IG
RETURN
END
>»» FUNCTION IGLPTR <««
-------
1*5000
1*5001
1*5002
1*5003
1*5001*
1.5005
1*5006
1*5007
1*5008
1*5009
1*5010
1*5011
1*5012
1*5013
1*50 ]1»
1*5015
1*5016
1*5017
1*5018
1*5019
1*5020
1*5021
1*5022
1*5023
1*5021*
1*5025
1*5026
1*5027
1*5028
1*5029
1*5030
1*5031
1*5032
1*5033
1»5031*
1*5035
1*5036
1*5038
1*5039
1*501*0
1*501*1
1*501*2
1*501*3
APPENDIX B
MOBILE2
FUNCTION IGTPTR(MY,!V,IR)
DECEMBER 12, 1980
C
C
C..PURPOSE:
C
C..SELECT POINTER TO FRACTION OF VEHICLES WITH TRAILER IN TOW
C
C
C.,ARGUMENTS?
C
C..NAME USAGE DESCRIPTION
C
C..MY
IN
CT.IV IN
C..IR IN
C
C
C..USE5 SPROGS:
C
C..QUITER
C
C
C..USED BY:
C
C..ALUH
C
MODEL YEAR
VEHICLE TYPE
REGION
COMMON/ALUPTR/1GEYRS(8,3,3) ,IGUYRS(2,3,3)
COMMON/ALUPTR/1GLYRS(6,3,3) ,IGTYRS(6,3,3)
C
C
C
DO 100 IG=1,6
IF (MY,LE.IGTYRS(IG,IV,IR)) GOTO 200
100 CONTINUE
C
C..SET DEFAULT
C
IG=1
CALL QUITER(0.,9,6l,MY)
200 IGTPTR=|G
C
RETURN
END
>»» FUNCTION IGTPTR <««
-------
46000
U6.001
46002
146003
46004
1*6005
1*6006
1*600?
1*6008
1*6009
1*6010
1*6011
1*6012
1*6013
1.6011*
1*6015
1*6016
1*6017
1*60)8
1*6019
1*6020
1*6021
1*6022
46023
1*6021*
46025
46026
46027
46028
46029
46030
46031
46032
46033
46034
46035
46036
46037
46038
46039
46040
46041
46042
46043
APPENDIX B
MOBILE2
FUNCTION |GPPTR(MY,IP,IR, IV)
C
C
C.,PURPOSE:
C
C,.SELECT POINTER TO SPEED CORRECTION COEFFICIENTS
C
C
C,,ARGUMENTS:
C
C..NAME USAGE DESCRIPTION
C
C..MY
DECEMBER 12, 1980
IN
MODEL YEAR
POLLUTANT NUMBER
REGION NUMBER
VEHICLE TYPE
C..IP IN
C..IR IN
C..IV IN
C
C
C..USES SPROGS:
C
C..QUITER
C
C
C..USEO BY;
C
C..BIGCFX
C
C
COMMON/PTRCOM/MAXIGP,IGPYRS(9,3,3,8)
C
C
C
DO 100 IG»1,MAX|GP
IF (MY.LE.IGPYRS(IG,IP,IR.IV)) GOTO 200
100 CONTINUE
C
C..SET DEFAULT
C
IG«1
CALL QUITER(0.,10,6l,MY)
200 (GPPTR-IG
C
RETURN
END
>»» FUNCTION IGPPTR <««
-------
1*7000
1*7001
1*7002
1*7003
1*7001*
1*7005
1*7006
1*7007
1*7008
1*7009
1*7010
1*7011
1*7012
1*7013
1*7011*
1*7015
1*7016
1*7017
1*7018
1*7019
1+7020
1*7021
1*7022
1*7023
1*7021*
1*7025
1*7026
1*7027
1*7028
1*7029
1*7030
1*7031
1*7032
1*7033
1*7031*
47035
1*7036
1*7037
1*7038
1*7039
1*701*0
1*701*1
1*701*2
1*701*3
1*701*1*
1*701*5
1*701*6
1*701*7
1*701*8
1*701*9
APPENDIX B
MOBILE2
FUNCTION INDX3R(MY,IP,IV,IR)
DECEMBER 12, 1980
C
C
C..PURPOSE:
C
C..SELECT POINTER FOR INTERCEPT AND SLOPE OF EMISSION EQUATION
C
C.,ARGUMENTS:
C
C..NAME USAGE
C
C..MY IN
C..IP IN
C..IV IN
C..IR IN
C
C
C..USES SPROGS:
C
C..QUITER
C
C
C..USED BY;
C
C..EFCALX
C..EFALTX
C
DESCRIPTION
MODEL YEAR (MY-0 FOR EFALTX SEEKING A NEW SLOT)
POLLUTANT NUMBER
VEHICLE TYPE
REGION NUMBER
COMMON/INDXCM/INDXYR(15,2,3,8,3)
C
C
C
DO 100 IG-1,15
JG=IG
IF(MY.GT.O) JG-16-IG
IF(MY.GE.INDXYR(JG,1,IP,IV.IR).AND.
* MY.LE.INDXYR(JG,2,IP,IV,IR)) GOTO 200
100 CONTINUE
C
C..SET DEFAULT
C
JG=0
IF(MY.EQ.O) GOTO 200
JG=J
CALL QUITER(0,,H,6],MY)
C
200 INDX3R=JG
RETURN
END
>»» FUNCTION INDX3R <««
-------
APPENDIX B
MOBILE2
DECEMBER 12, 1980
48000
48001
48002
48003
48004
48005
48006
48007
48008
48009
48010
48011
48012
48013
48014
48015
48016
48017
48018
48019
48020
48021
48022
48023
48024
48025
48026
48027
48028
48029
48030
48031
48032
48033
48034
48035
48036
48037
48038
48039
48040
48041
48042
C
C
C.
C
C.
C
C
C.
C
C,
C
C.
C.
C.
C
C
C.
C
C,
C
C
C.
C
C.
C
C
C
C
C
C
C.
C
C
FUNCTION ISPPTR(MY,IR,IV)
.PURPOSE:
.SELECT POINTER TO BAG SPEED NORMALIZATION COEFFICIENTS (1 VI ,2, 3,5,6)
.ARGUMENTS;
.NAME USAGE DESCRIPTION
.MY IN MODEL YEAR
.IV IN VEHICLE TYPE
, IR IN REGION NUMBER
.USES SPROGSs
.QUITER
.USED BY;
.BIGCFX
COMMON/ISPCOM/ISPYRS (18,3,3) , ISPYR8 (18,3,3)
DO 100 IG-1,18
|F(MY.LE.ISPYRS(IG,IR,IV)) GOTO 200
100 CONTINUE
.SET DEFAULT
IG«=1
CALL QUITER (0., 12, 61, MY)
200 |SPPTR=IG
RETURN
END
>»» FUNCTION ISPPTR <««
-------
1,9000
APPENDIX B
MOBILE2
FUNCTION ISPPT8(MY,!R,IP)
DECEMBER 12, 1980
1*9001
1*9002
1*9003
1*9001*
1*9005
1*9006
1*9007
1*9008
1*9009
1*9010
1*9011
1*9012
1*9013
1*9011*
1*9015
1*9016
1*9017
1*9018
1*9019
1*9020
1*9021
1*9022
1*9023
1*9021*
1*9025
1*9026
1*9027
1*9028
1*9029
1*9030
1*9031
1*9032
1*9033
1*9031*
1*9035
1*9036
1*9037
1*9038
1*9039
1*901*0
1*901*1
1*901*2
1*901*3
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
,, PURPOSE:
..SELECT POINTER TO BAG SPEED NORMALIZATION COEF
..ARGUMENTS;
..NAME USAGE DESCRIPTION
..MY IN MODEL YEAR
..IV IN VEHICLE TYPE
..IP IN POLLUTANT NUMBER
. .IR IN REGION NUMBER
..USES SPROGS:
. .QUITER
..USED BY:
..BIGCFX
COMMON/ISPCOM/ISPYRS(l8,3,3) , ISPYR8 (18,3,3)
DO 100 IG=l,l8
IF (MY.LE.ISPYR8(|G,IR, IP)) GOTO 200
100 CONTINUE
..SET DEFAULT
|G=1
CALL QUITER(0,,13.6l,MY)
200 ISPPT8*IG
RETURN
END
>»» FUNCTION ISPPT8 <««
-------
Soooo
soooi
50002
50003
50004
50005
50006
50007
50008
50009
50010
50011
50012
50013
50011*
50015
50016
50017
50018
50019
50020
50021
50022
50023
50024
50025
50026
50027
50028
50029
50030
50031
50032
50033
50034
50035
50036
50037
50038
50039
50040
50041
50042
APPENDIX B
MOBILE2
FUNCTION IEXMPT(MY,|V,IR)
C
c
C..PURPOSE:
C
C..SELECT POINTER TO NON-METHANE FRACTIONS
C
DECEMBER 12, 1980
C..ARGUMENTS:
C
C..NAME USAGE
C
C..MY IN
C..IV IN
C..IR IN
C
C
C..USES SPROGS:
C
C..QUITER
C
C
C..USED BY:
C
C..EFCALX
C
DESCRIPTION
MODEL YEAR
VEHICLE TYPE
REGION
COMMON/BEFGCM/EXMETH(3,8,3),IEXMYR(3,8,3)
DO 100 IG«=1,3
IF (MY.LE.IEXMYRCIG,IV.IR)) GOTO 200
100 CONTINUE
C
C..SET DEFAULT
C
IG=1
CALL QUITER(0,,l4,6l,MY)
200 IEXMPT-IG
C
RETURN
END
»>» FUNCTION IEXMPT <««
-------
52000
52001
52002
52003
52004
52005
52006
5200?
52008
52009
52010
52011
52012
52013
52014
52015
52016
5201?
52018
52019
52020
52021
52022
52023
52024
52025
52026
52027
52028
52029
52030
52031
52032
52033
52034
52035
52036
52037
52038
52039
52040
52041
52042
52043
APPENDIX B
MOBILE2
FUNCTION |GSFPT(MY,|V,IR)
C
C
C..PURPOSE:
C
C..SELECT POINTER TO GROSS SALES FRACTION
C
DECEMBER 12, 1980
C..ARGUMENTS:
C
C..NAME USAGE
C
C..MY IN
C..IV IN
C..IR IN
C
C
C..USES SPROGS:
C
C..QUITER
C
C
C..USED BY?
C
C..EFCALX
C..REGMOD
C
DESCRIPTION
MODEL YEAR
VEHICLE TYPE
REGION
COMMON/GSFCOM/MAXGSF,GSF(18,8,3),IGSFYR(18,8,3)
DO 100 IG=1,MAXGSF
IF(MY.LE.IGSFYR(IG,IV,IR)) GOTO 200
100 CONTINUE
C
C..SET DEFAULT
C
IG=1
CALL QU|TER(0.,l6,6l,MY)
200 IGSFPTHG
C
RETURN
END
>»» FUNCTION IGSFPT <««
-------
APPENDIX B
MOBILE2
v (A INI (1,1) .All (1,1)) , (A INI (1,10) ,A12(1, 1)) ,
*(AIN2(1,1) ,A21 (1,1)) , (AIN2(1,10) ,A22(1,D) ,
*(AIN3(1,0 ,A31 (1,1)) , (AIN30.10) ,A32(1,D)
C
C..HC SPEED CORRECTION FACTOR COEFFICIENTS
ft
ft
ft
ft
*
ft
ft
ft
ft
ft
ft
ft
ft
ft
ft
ft
ft
ft
ft
ft
ft
ft
ft
ft
ft
ft
ft
ft
ft
ft
ft
ft
ft
ft
ft
ft
C
C..CO
DATA All/
2.2l*6l2E+00,
2.31026E+00,
2.16556E+00,
2.39726E+00,
2.1*0873E+00,
2.23217E+00,
2.25223E+00,
2.02779E+00,
2.15056E+00,
DATA A 127
2.23021E+00,
2.12230E+00,
2.15361E+00,
2.073i*6E+00,
2.349A8E+00,
2,1131+OE+OO,
2.119l*OE+00,
2.68382E+00,
2.395l»OE+00,
SPEED CORRECTION
-2.90973E-01,
-l».72i*9i*E-Oi»,
-2.89572E-01,
-l*.l*6689E-Ol*.
-2.69992E-01,
-lt.33638E-Oi*.
-2.99985E-01,
-1*. 871*9 1E-01*.
-3.08187E-01,
-5.06843E-01*.
-2.8i»985E-01,
-l*.56738E-Oi4,
-2.87778E-01,
-l*.73179E-04,
-2.730l*9E-Ql,
-l*.6030l*E-Oi*,
-2.83620E-01,
-i*.i*2136E-Oi*,
-2.936U8E-01,
-l*.8i*l**8E-Oi*,
-2.91072E-01,
-5.26li»8E-Oi*.
-2.83451E-01,
-l*.69759E-Oi*.
-2.89353E-01,
-5.5i*707E-Olt,
-3.0i*959E-01,
-5.09&23E-01*,
-2.85676E-01,
-5.00793E-01*,
-2.98632E-01,
-6.l65l*l*E-Ol*,
-3.l+i*633E-01,
-6.25720E-01*.
-3-35781E-01,
-7-31550E-01*,
FACTOR COEFFIC
1.58890E-02,
6.gi*077E-06,
1 .52990E-02,
6.i*8l83E-06,
1.1* 1*22 1E-02,
6.50735E-06,
1.61351E-02,
7.29093E-06,
1.68168E-02,
7-53855E-06,
1.53833E-02,
6.73486E-06,
1.56820E-02,
7.07951*E-06,
1.53577E-02,
6.78527E-06,
1.53836E-02,
6.28732E-06,
1.62356E-02,
7.11591E-06,
1 .69089E-02,
8.02705E-06,
1 .56gi*8E-02,
6.93832E-06,
1.730l*2E-02,
8.6i*20itE-o6,
1 .68l*l6E-02,
7.59516E-06,
1.63180E-02,
7-55067E-06,
1 .8U73E-02,
9.92062E-06,
1.95M7E-02,
9.78l*i*2E-06,
2.11609E-02,
1.20715E-05,
IENTS
-3-92798E-08,
-3.63l*56E-08,
-3.78100E-08,
-1+.19769E-08,
-1*.31596E-08,
-3-83798E-08,
-1».081*56E-08,
-3.81+880E-08,
-3.l»6311E-08/
-1*.02861E-08,
-i*.70H7E-o8,
-3-9i*707E-08,
-5.13107E-08,
-l*.3l*963E-08,
-1*.37187E-08,
-6.0l*021E-08,
-5-83369E-08,
-7.l*8567E-08/
»» BLOCK DATA 1 <«
-------
53058
53059
53060
53061
53062
53063
53061*
53065
53066
53067
53068
53069
53070
53071
53072
53073
53075
53076
53077
53078
53079
53080
53081
53082
53083
53081*
53085
53086
53087
53088
53089
53090
53091
53092
53093
5309^
53095
53096
53097
53098
53099
53100
53101
53102
53103
53101*
53105
53106
53107
53108
53109
53110
53111
53112
53113
531 H
53U5
DATA A21/
ft
ft
ft
ft
ft
ft
ft
ft
ft
ft
ft
ft
ft
ft
ft
ft
ft
ft
1.81978E+00,
2.33989E+00,
2. 1*1* 151* E+00,
2, 1*6551 E+00,
2. 7 7 801* E+00,
2.78899E+00,
2.7071»3E+00,
1.86919E+00,
1.82133E+00,
APPENDIX B
MOBILE2
-2.5W63E-01,
-1*.87397E-01»,
-2.96978E-01,
-1*.77396E-01*,
-2.9H73E-01,
-3.87852E-01*.
-3-05023E-01,
-'».73969E-01*.
-3-19130E-01,
-i*.22327E-Oi*.
-3.27107E-01,
-J*.67573E-01»,
-3.31038E-OI,
-5-38583E-01*.
-2.76679E-01,
-5-58279E-01.,
-2.7205*»E-01,
-5.52021E-01*,
-------
53116
53H7
53118
53H9
53120
53121
53122
53123
5312*»
53125
53126
53127
53128
53129
53130
53U1
53132
53133
5313**
53135
53136
53137
i;
DATA
it
ft
ft
ft
ft
ft
ft
ft
ft
ft
ft
ft
ft
ft
ft
ft
ft
ft
C
END
A32/
2.0i*5l6E+00,
1.63262E+00,
1.H825E+00,
2.i»5969E-01 ,
1.28169E+00,
1 •53M7E+00,
7.0^805E-01 ,
7.83838E-01,
9,J»2131E-01,
APPENDIX B
MOBILE2
-l.i*3J*09E-Ol»,
-1 .g^oi^E-oi ,
-2.3175J4E-0'*,
-1.21861E-01,
-M6293E-01*,
-1 .22kkkl-0] ,
-1.71078E-01*.
8.1»1951»E-02,
6.29880E-05,
-8.0i»874E-02,
-1, 18891E-01*.
-1.25671E-01,
-1 ,69^28E-01*.
3.81527E-02,
3.26UOE-05,
3.285i*9E-0'»,
-3.19350E-05,
-J*.232'tOE-02,
-9-39853E-05,
DECEMBER 12, 1980
1.06079E-06,
1.10736E-02,
1.68372E-06,
7.03020E-03,
1.06U1E-06,
7.9502l»E-03,
1.25777E-06,
-3.408ME-03,
-4.13975E-07,
5.35735E-03,
9.01060E-07,
7.85919E-03,
1.25i*9'tE-06,
-1.73907E-03,
-2.038^7E-07,
1.06029E-03,
2.90389E-07,
3.86253E-03,
7.53883E-07,
O.OOOOOE+00/
O.OOOOOE+00,
O.OOOOOE+00,
O.OOOOOE+00,
O.OOOOOE+00,
O.OOOOOE+00,
O.OOOOOE+00,
O.OOOOOE+00,
O.OOOOOE+00,
O.OOOOOE+00/
»» BLOCK DATA 1 <«
-------
DECEMBER 12, 1980
54000
54001
54002
54003
54004
54005
54006
54007
54008
54009
54010
54011
54012
54013
54014
54015
54016
54017
54018
54019
54020
54021
54022
54023
54024
54025
54026
54027
54028
54029
54030
54031
54032
54033
54034
54035
54036
54037
54038
54039
54040
54041
C ii f"l li *5
*j*f U *4 1*
54043
54044
54045
54046
54047
54048
54049
54050
54051
54052
54053
54054
54055
54056
54057
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
APPENDIX B
MOBILE2
BLOCK DATA
.BLOCK DATA SUBPROGRAM 2
COMMON/MYMSAV/SAVMYM(20,8) ,SAVMYR(20,8)
COMMON/VMXCOM/VMTMIX(8)
.SAVMYM ( IDX, IV )
.SAVMYR ( IDX, IV )
.VMTMIX ( IV )
.DEFAULT VEH. MILES TRAVELED MIX
DATA VMTMIX/
* 0.7824,0.0825,0.0468,0.0419,0.0021,0.0004,0.0354,0.0085/
.ANNUAL AVERAGE MILEAGE ACCUMULATION (DIVIDED BY 100000)
DATA SAVMYM/
.LDGV
*0.144,0.139,0.134,0.128,0.123,0.118,0.112,0.107,0.102,0.096,
*0.091,0.086,0.080,0,075,0.070,0.064,0.059,0.054,0.049,0.043,
.LDGT1
*0.156,0.140,0.125,0,112,0.101,0.094,0.086,0.080,0.075,0.070,
*0.066,0.062,0.059,0.055,0.052,0.050,0.047,0. 044, 0.044,0.044,
.LDGT2
*0.158,0.142,0.126,0,114,0,103,0.095,0.087,0.081,0.076,0.071,
*0.066,0.063,0.060,0.055,0.052,0.051,0.047,0,044,0.044,0.044,
.HDGV
*0.210,0.189,0.172,0.155,0.141,0,126,0.113,0.103,0.094,0.086,
*0.080,0.073,0.067,0.063,0.059,0.055,0.052,0.050,0.050,0.050,
.LDDV
*0.144,0.139,0.134,0.128,0.123,0.118,0.112,0.107,0.102,0.096,
*0.091,0.086,0.080,0.075,0.070,0.064,0.059,0.054,0.049,0.043,
.LDDT
*o.157,0.151,o.i 1*6,o.i 1*0,o.i 30,0.121,o.iio,0.097,0.093,0.071*.
*o, 068,0.061,0.055,0,050,0.01*6.0.01*2,0.038,0.031,0.031,0.031,
.HDDV
*0.704,0,669,0,606,0.542,0,479,0.437,0.394,0.366,0,345,0.331,
*0.324,0.317,0.310,0.296,0.275,0.246,0.204,0.176,0.176,0.176,
.MC
*0.01* 1,0.028,0.021,0.016,0.012,0.008,0.006,0.001*,0.002,0.002,
*0.002,0.000,0.000,0.000,0,000,0.000,0.000.0.000,0.000,O.OOO/
.VEHICLE REGISTRATION DISTRIBUTIONS (ENTER UNMODIFIED DATA)
DATA SAVMYR/
.LDGV
*.0721,.1009,.0921,.0708,.0916,.1026,.0888,.0712,.0659,.0591.
*.01*78, .03l»9, .0300, .0230, .0150, .0099, -0055, .0025, .0017, .011*6,
•LDGT1
*.0968, .091*5, .0855, .0613, .0909, .0993, .0759, .0599, .01*38. .01*82.
*. 01*57,. 0332,.0350,.0330,.0261,. 02 ll*,.0152,.0111*,.010l*,.0125,
.LDGT2
*.21*1*8, .2070,. 1553, .0970, -0572, .0560, .0391, .0296, .0231, .0201,
*.0173, .0112, .0097, .0080, .0051*, .0055, .001*5, .0028, .0026, .0038,
.HDGV
*. 1276,. 1139, .0974, -0735, .0858, .0882, .0705, .0531*, .01*13, .01*39,
*.0396,.0306,.0299,.0261,.0206,.0177,.0129,.0092,.0082,.0097,
»» BLOCK DATA 2 <«
-------
APPENDIX B
MOBILE2 DECEMBER 12, 1980
54058 C..LDDV
54059 *.0721,.1009,.0921,.0708,.0916,.1026,.0888,.0712,.0659,.0591,
54060 *.0478,.0349,.0300,.0230,.0150,.0099,.0055,.0025,.0017,.0146,
54061 C..LDDT
54062 *.0968,.0945,.0855,.0613,.0909,.0993,-0759,.0599,.0438,.0482,
54063 *.0457,.0332,.0350,.0330,.026l,.02l4,.0152,.01l4,.0104,.0125,
54064 C..HDDV
54065 *.1774,.1418,.0853,.0536,.0984,.0933,.0720,.0515,.0421,.0417,
54066 *.0309,.0235,.0253,,0193,.0129,.0095,.0070,.0038,.0038,.0069,
54067 C..MC
54068 *0.133,0.145,0.138,0,116,0.123,0.114,0.069,0.044,0.024,0.009,
54069 *o.085,o.o ,0.0 ,oto ,0.0 ,0.0 ,0.0 ,0.0 ,0.0 ,0.0 /
54070 c
54071 END
»» BLOCK DATA 2 <«
-------
55000
55001
55002
55003
55004
55005
55006
5500?
55008
55009
55010
55011
55012
55013
550 14
55015
55016
55017
55018
55019
55020
55021
55022
55023
55024
55025
55026
55027
55028
55029
55030
55031
55032
55033
55031*
55035
55036
55037
55038
55039
55040
55041
55042
55043
55044
55045
55046
55047
55048
55049
55050
55051
55052
55053
55054
55055
55056
55057
C
C,
C
C
C,
C,
C
C
C
C
APPENDIX B *
MOBILE2 DECEMBER 12, 1980
BLOCK DATA
.BLOCK DATA SUBPROGRAM 3
COMMON/INDXCM/INDX49,INDXCA,INDXHI
.INDXYR ( IG, ID, IP, IV, IR ) , ID=1 FOR FIRST YEAR OF MOD YR GROUP
2 FOR LAST " "
DIMENSION
* INDXYR(15,2,3,8,3),
* INDX49(15,2,3,8),
ft INDXCA(15,2,3,8),
ft INDXHI (15,2,3,8)
EQUIVALENCE
ft (INDXYR (1,1,1,1,1) ,INDX49d,l,l,D) ,
ft (INDXYR(1,1,1,1,2),INDXCA(1,1,1,1)) ,
ft (INDXYR (1,1,1,1,3),INDXHI (1,1,1,1))
DIMENSION
ft IN49V1(15
ft IN49V2(15
ft iN4gv3d5
ft IN49V4(15
ft IN49V5(15
ft IN4gv6(15
ft IN49V7(15
ft IN49V8(15
ft
ft
*
ft
ft
ft
ft
ft
*
ft
ft
ft
ft
ft
ft
ft
ft
ft
ft
ft
ft
ft
ft
ft
EQUIVALENCE
(INDX49(1
(INDX49(1
(INDX49(1
(INDX49(1
(INDX49(1
(INDX49(1
(INDX49(1
(INDX49(1
DIMENSION
INCAV1 (15
INCAV2(15
INCAV3(15
INCAV4(15
INCAV5d5
INCAV6(15
INCAV7(15
INCAV8(15
EQUIVALENCE
(INDXCAd
(INDXCAd
(INDXCAd
(INDXCAd
(INDXCAd
(INDXCAd
(INDXCAd
(INDXCAd
,2,
,2,
,2,
,2,
,2,
,2,
,2,
,2,
,1,
,1,
,1,
,1,
9 9
9 9
.1,
,1,
,2,
,2,
,2,
,2,
,2,
,2,
,2,
,2,
9 9
9 9
9 9
9 9
9 9
,1,
,1,
,1,
3)
3)
3)
3)
3)
3)
3)
3)
1,
1,
1,
1,
1,
1,
1,
1,
3)
3)
3)
3)
3)
3)
3)
3)
1,
1,
1,
9
9
9
9
9
9
9
9
9
9
9
9
1)
2)
3)
4)
5)
6)
7)
8)
,
,
*
,
,
,
,
1)
2)
3)
4)
5)
6)
7)
8)
,1
N49V1
.IN49V2
, IN49V3
, IN49V4
,1
,1
,1
,1
,1
,1
N49V5
N49V6
N49V7
(1
(1
(1
(1
(1
(1
(1
N49V8(1
NCAV1
NCAV2
, INCAV3
,1
,1
,1
,1
,1
NCAV4
NCAV5
NCAV6
NCAV7
NCAV8
(1
(1
(1
(1
(1
d
(1
(1
,1
,1
,1
,1
,1
,1
,1
,1
,1
,1
,1
,1
,1
,1
,1
,1
,D),
.0),
,D),
,1)),
,D),
,D),
,1)),
,D)
,D)
,D)
,D)
,D)
,D)
,D)
,D)
,1))
DIMENSION
»» BLOCK DATA 3 <«
-------
APPENDIX
55058
55059
55060
55061
55062
55063
55064
55065
55066
55067
55068
55069
55070
55071
55072
55073
5507*
55075
55076
55077
55078
55079
55080
55081
55082
55083
55084
55085
55086
55087
55088
55089
55090
55091
55092
55093
5509*
55095
55096
55097
55098
55099
55100
55101
55102
55103
55104
55105
55106
55107
55108
55109
55110
55111
55112
55113
55 114
ft
ft
ft
A
*
ft
ft
ft
ft
ft
ft
ft
ft
ft
ft
ft
C
INHIV1 (15,
INHIV2(15,
INHIV305,
INHIV4(15,
INHIV505,
INHIV605,
INHIV7(15,
INHIV805,
EQUIVALENCE
(INDXHI (1,
(INDXHI (1,
(INDXHI (1,
(INDXHI (1,
(INDXHI (1,
(INDXHI (1,
(INDXHI (1,
(INDXiji (1>
2,3)
2,3)
2,3)
2,3)
2,3)
2,3)
2,3)
2,3)
1, ,
1. ,
1, ,
1, ,
1, ,
1, ,
1, ,
1, ,
MOB
1
f
9
>
f
1
t
1) ,INH
2) ,INH
3) ,INH
*) ,INH
5) ,INH
6) ,INH
7) ,INH
8),!NH
ILE2
IV! (1
IV2(1
IV3(1
IV*(1
IV5(1
IV6(1
IV7(1
IV8(i
B
,1,1)
,1,1)
,1,1)
,1,1)
,1,1)
,1,1)
),
),
),
),
),
),
D
55115
DATA IN49V3/
»» BLOCK DATA 3 <«
-------
APPENDIX B
MOBILE2
DECEMBER 12, 1980
55H6
55H7
55H8
55H9
55120
55121
55122
55123
55121*
55125
55126
55127
55128
55129
55130
55131
55132
55133
5513^
55135
55136
55137
55138
55139
55 HO
55141
55142
55143
55144
551 1*5
55146
55H*7
5511*8
55H*9
55150
55151
55152
55153
55151*
55155
55156
55157
55158
55159
55160
55161
55162
55163
55161*
55165
55166
55167
55168
55169
55170
55171
55172
55173
C..HC
it
it
it
ft
C..CO
it
it
it
it
C. .NOX
it
it
it
it
C
C
C..HC
it
it
it
it
C..CO
ft
*
*
it
C..NOX
it
it
it
it
C
C
C..HC
*
ft
it
it
C..CO
it
it
it
it
C..NOX
*
it
>'!
it
C
C
C..HC
it
it
it
1951, 1970,1974,1979,1981,1982,1984,1985,0000,0000,
0000 , 0000 , 0000 , 0000 , 0000 ,
1969, 1973, 1978, 1980, 1981 , 1983, 1981*. 2020, 0000, 0000,
0000 , 0000 , 0000 , 0000 , 0000 ,
1951 , 1970, 197i», 1979, 1981 , 1982, 1981*. 1985,0000,0000,
0000 , 0000 , 0000 , 0000 , 0000 ,
1969, 1973, 1978, 1980, 198 1,1 983, 1981*. 2020, 0000, 0000,
0000 , 0000 , 0000 , 0000 , 0000 ,
1951 , 1970, 1974, 1979, 1982, 1981*. 1985,0000,0000,0000,
0000 , 0000 , 0000 , 0000 , 0000 ,
1969, 1973, 1978, 1981 , 1983, 1984,2020,0000,0000,0000,
0000 , 0000 , 0000 , 0000 , OOOO/
DATA IN1*9VV
1951 , 1970, 1971*, 1979, 1981*. 1985,0000,0000,0000,0000,
0000 , 0000 , 0000 , 0000 , 0000 ,
1969, 1973, 1978, 1983, 1981*. 2020, 0000,0000, 0000, 0000,
0000 , 0000 , 0000 , 0000 , 0000 ,
1951 , 1970, 1 974, 1979, 1981*. 1985,0000,0000,0000,0000,
0000 , 0000 , 0000 , 0000 , 0000 ,
1969, 1973, 1978, 1983. 1981*. 2020, 0000, 0000, 0000, 0000,
0000 , 0000 , 0000 , 0000 , 0000 ,
1951 , 1970, 1974, 1979, 1981*. 1985,0000,0000,0000,0000,
0000 , 0000 , 0000 , 0000 , 0000 ,
1969, 1973, 1978, 1983, 1981*. 2020, 0000, 0000, 0000, 0000,
0000 , 0000 , 0000 , 0000 , OOOO/
DATA IN49V5/
1951 , 1975, 1977, 1978, 1979, 1980,0000,0000,0000,0000,
OOOO , OOOO , OOOO , OOOO , OOOO ,
1974, 1976, 1977, 1978, 1979,2020,0000,0000,0000,0000,
OOOO , OOOO , OOOO , OOOO , OOOO ,
1951 , 1975, 1977, 1978, 1979, 1980,0000,0000,0000,0000,
OOOO , OOOO , OOOO , OOOO , OOOO ,
1974, 1976,1977,1978, 1979,2020,0000,0000,0000,0000,
OOOO , OOOO , OOOO , OOOO , OOOO ,
1951,1975,1977,1978,1979,1980,1981,1983,0000,0000,
OOOO , OOOO , OOOO , OOOO , OOOO ,
1974, 1976, 1977, 1978, 1979, i960, 1982,2020,0000,0000,
OOOO , OOOO , OOOO , OOOO , OOOO/
DATA IN49V6/
1978, 1979, 1980, 1983,0000,0000,0000,0000,0000,0000,
OOOO , OOOO , OOOO , OOOO , OOOO ,
1978, 1979, 1982,2020,0000,0000,0000,0000,0000,0000,
»» BLOCK DATA 3 <«
-------
APPENDIX B
MOBILE2
OOOO,OOOO,OOOO,OOOO,OOOO,
DECEMBER 12, 1980
55175
55176
55177
55178
55179
55180
55181
55182
55183
55181*
55185
55186
55187
55188
55189
55190
55191
55192
55193
55191*
55195
55196
55197
55198
55199
55200
55201
55202
55203
55201*
55205
55206
5520?
55208
55209
55210
55211
55212
55213
55211*
55215
55216
55217
55218
55219
55220
55221
55222
55223
55221.
55225
55226
55227
55228
55229
55230
55231
C..CO
ft
ft
ft
ft
C..NOX
ft
ft
ft
ft
C
C
i 978 , i 979 , i 980 , i 983 , oooo , oooo , oooo , oooo , oooo , oooo ,
oooo , oooo , oooo , oooo , oooo ,
1 978 , 1 979 , 1 982 , 2020 , OOOO , OOOO , OOOO , OOOO , OOOO , OOOO ,
oooo , oooo , oooo , oooo , oooo ,
i 978 , i 979 , i 980 , i 985 , oooo , oooo , oooo , oooo , oooo , oooo ,
oooo , oooo , oooo , oooo , oooo ,
1978, 1979, 1981*, 2020, oooo, oooo, oooo, oooo, oooo, oooo,
oooo , oooo , oooo , oooo , oooo/
DATA INl*9V7/
C..HC
ft
ft
ft
ft
C..CO
ft
ft
ft
ft
C..NOX
ft
ft
ft
ft
C
c
C..HC
ft
ft
ft
ft
C..CO
ft
ft
ft
ft
C..NOX
ft
ft
ft
ft
C
c
C..HC
ft
ft
ft
ft
C..CO
ft
ft
1951.1985, oooo , oooo , oooo , oooo , oooo , oooo , oooo , oooo ,
oooo , oooo , oooo , oooo , oooo ,
1 981* , 2020 , oooo , oooo , oooo , oooo , oooo , oooo , oooo , oooo ,
oooo , oooo , oooo , oooo , oooo ,
i 95 i , i 985 , oooo , oooo , oooo , oooo , oooo , oooo , oooo , oooo ,
oooo , oooo , oooo , oooo , oooo ,
1 981* , 2020 , oooo , oooo , oooo , oooo , oooo , oooo , oooo , oooo ,
oooo , oooo , oooo , oooo , oooo ,
1 95 1 , 1 985 , OOOO , OOOO , OOOO , OOOO , OOOO , OOOO , OOOO , OOOO ,
oooo , oooo , oooo , oooo , oooo ,
1 981* , 2020 , oooo , oooo , oooo , oooo , oooo , oooo , oooo , oooo ,
oooo , oooo , oooo , oooo , oooo/
DATA IN1*9V8/
1 95 1 , 1 978 , 1 980 , OOOO , OOOO , OOOO , OOOO , OOOO , OOOO , OOOO ,
oooo , oooo , oooo , oooo , oooo ,
1977,1979.2020, OOOO , OOOO , OOOO , OOOO , OOOO , OOOO , OOOO ,
oooo , oooo , oooo , oooo , oooo ,
1 95 1 , 1 978 , 1 980 , OOOO , OOOO , OOOO , OOOO , OOOO , OOOO , OOOO ,
oooo , oooo , oooo , oooo , oooo ,
1977,1979,2020, OOOO , OOOO , OOOO , OOOO , OOOO , OOOO , OOOO ,
oooo , oooo , oooo , oooo , oooo ,
1 95 1 , 1 978 , 1 980 , oooo , oooo , oooo , oooo , oooo , oooo , oooo ,
oooo , oooo , oooo , oooo , oooo ,
1977,1979,2020, OOOO , OOOO , OOOO , OOOO , OOOO , OOOO , OOOO ,
oooo , oooo , oooo , oooo , oooo/
DATA INCAV1/
1951,1966,1968,1970,1972,1975,1977,1980,1981,1983,
oooo , oooo , oooo , oooo , oooo ,
1965, 1967, 1969, 1971,1971*, 1976, 1979, 1980, 1982, 2020,
oooo , oooo , oooo , oooo , oooo ,
1951,1966,1968,1970,1972,1975,1977,1980,1981,1983,
oooo , oooo , oooo , oooo , oooo ,
»» BLOCK DATA 3 <«
-------
APPENDIX B
MOBILE2
-------
APPENDIX
55290
55291
55292
55293
55291*
55295
55296
55297
55298
55299
55300
5530]
55302
55303
55301*
55305
55306
55307
55308
55309
55310
55311
55312
55313
553 11*
55315
55316
55317
55318
55319
55320
55321
55322
55323
55321.
55325
55326
55327
55328
55329
55330
55331
55332
55333
55331*
55335
55336
55337
55338
55339
553^*0
553<*1
5531*2
5531*3
5531*1*
55345
5531*6
5531*7
*
ft
ft
c
c
0000
1968
0000
,0000
,1971
,0000
,0000,
,1972,
,0000,
MOB
0000,
1971*.
0000,
ILE2
0000,
1976,
oooo/
B
DECEMBER |2, 1980
1979,
1983,
2020
,0000
,0000,
DATA INCAV5/
C..HC
ft
ft
ft
ft
C..CO
ft
ft
ft
ft
C..NOX
ft
ft
ft
ft
C
C
1951
0000
1971*
0000
1951
0000
1971*
0000
1951
0000
1971*
0000
,1975
,0000
,1976
,0000
,1975
,0000
,1976
,0000
,1975
,0000
,1976
,0000
,1977,
,0000,
,1977,
,0000,
,1977,
,0000,
,1977,
,0000,
,1977,
,0000,
,1977,
,0000,
1978,
0000,
1978,
0000,
1978,
0000,
1978,
0000,
1978,
0000,
1978,
0000,
1979,
0000,
1979,
0000,
1979,
0000,
1979,
0000,
1979,
0000,
1979,
oooo/
1980,
1981,
1980,
1981,
1980,
1981,
1982,
2020,
1982,
2020,
1982,
2020,
oooo
oooo
oooo
oooo
oooo
oooo
,0000
,0000
,0000
,0000
,0000
,0000
,0000,
,0000,
,0000,
,0000,
,0000,
,0000,
DATA INCAV6/
C..HC
ft
ft
ft
ft
C..CO
ft
ft
ft
ft
C..NOX
ft
ft
ft
ft
C
C
1951
0000
1978
0000
1951
0000
1978
0000
1951
0000
1978
0000
,1979
,0000
,1980
,0000
,1979
,0000
,1980
,0000
,1979
,0000
,1980
,0000
,1981,
,0000,
,2020,
,0000,
,1981,
,0000,
,2020,
,0000,
,1981,
,0000,
,1982,
,0000,
0000,
0000,
0000,
0000,
0000,
0000,
0000,
0000,
1983,
0000,
2020,
0000,
0000,
oooo,
oooo,
oooo,
oooo,
oooo,
oooo,
oooo,
oooo,
oooo,
oooo,
oooo/
oooo,
oooo,
oooo,
oooo,
oooo,
oooo,
oooo,
oooo,
oooo,
oooo,
oooo,
oooo,
oooo
oooo
oooo
oooo
oooo
oooo
,0000
,0000
,0000
,0000
,0000
,0000
,0000,
,0000,
,0000,
,0000,
,0000,
,0000,
DATA INCAV7/
C..HC
ft
ft
ft
ft
C.,CQ
ft
ft
ft
ft
C..NOX
ft
ft
ft
ft
C
1951
0000
1983
0000
1951
0000
1983
0000
1951
0000
1976
0000
,1981*
,0000
,2020
,0000
,1981*
,0000
,2020
,0000
,1977
,0000
,1979
,0000
,0000,
,0000,
,0000,
,0000,
,0000,
,0000,
,0000,
,0000,
,1980,
,0000,
,1983,
,0000,
0000,
0000,
0000,
0000,
0000,
0000,
0000,
0000,
1981*.
0000,
2020,
0000,
oooo,
oooo,
0000,
oooo,
oooo,
oooo,
oooo,
oooo,
oooo,
oooo,
oooo,
oooo/
oooo,
oooo,
oooo,
oooo,
oooo,
oooo,
oooo,
oooo,
oooo,
oooo,
oooo,
oooo,
oooo
oooo
oooo
oooo
oooo
oooo
,0000
,0000
,0000
,0000
,0000
,0000
,0000,
,0000,
,0000,
,0000,
,0000,
,0000,
»» BLOCK DATA 3 <«
-------
APPENDIX B
MOBILE2
-------
55406
551*07
55408
55409
55410
55411
55412
55413
554 I 4
55415
55416
55417
55418
55419
55420
55421
55422
55423
55424
55425
55426
55427
55428
55429
55430
55431
55432
55433
55434
55435
55436
55437
55438
55439
55440
55441
55442
55443
55444
55445
55446
55447
55448
55449
55450
55451
55452
55453
55454
55455
55456
55457
55458
55459
55460
55461
55462
55463
>v
is
*
C..CO
*
*
*
*
C..NOX
ft
A
ft
ft
c
c
C..HC
ft
ft
ft
ft
C..CO
ft
ft
ft
ft
C..NOX
ft
ft
ft
ft
C
c
APPENDIX B
MOBILE2 DECEMBER 12, ig80
0000 , 0000 , 0000 , 0000 , 0000 ,
1969, 1973, 1978, 1980, 1981 , 1982, 1983, 1984,2020,0000,
0000 , 0000 , 0000 , 0000 , 0000 ,
1951 , 1970, 1974, 1979, 1981 , 1982, 1983, '984, 1985,0000,
0000 , 0000 , 0000 , 0000 , 0000 ,
1969, 1973, 1978, 1980, 1981, 1982, 1983, 1984,2020,0000,
0000 , 0000 , 0000 , 0000 , 0000 ,
1951 , 1970, 1974, 1979, 1981 , 1982, 1984, 1985,0000,0000,
0000 , 0000 , 0000 , 0000 , 0000 ,
1 969 , 1 97 3 , 1 978 , 1 980 , 1 98 1 , 1 983 , 1 984 , 2020 , 0000 , 0000 ,
0000 , 0000 , 0000 , 0000 , 0000 /
DATA INHIV4/
1951,1970,1974,1979,1984,1985,0000,0000,0000,0000,
0000 , 0000 , 0000 , 0000 , 0000 ,
1969,1973,1978,1983,1984,2020,0000,0000,0000,0000,
0000 , 0000 , 0000 , 0000 , 0000 ,
1951 , 1970, 1974, 1979, 1984, 1985,0000,0000,0000,0000,
0000 , 0000 , 0000 , 0000 , 0000 ,
1969, 1973, 1978, 1983, 1984,2020,0000,0000,0000,0000,
0000 , 0000 , 0000 , 0000 , 0000 ,
1951 , 1970, 1974, 1979, 1984, 1985,0000,0000,0000,0000,
0000 , 0000 , 0000 , 0000 , 0000 ,
1969, 1973, 1978, 1983, 1984,2020,0000,0000,0000,0000,
0000 , 0000 , 0000 , 0000 , OOOO/
DATA INHIV5/
C..HC
ft
ft
ft
ft
C..CO
ft
ft
ft
ft
C..NOX
ft
ft
ft
ft
C
c
1951,1975,1977,1978,1979,1980,1982,1984,0000,0000,
0000 , 0000 , 0000 , 0000 , 0000 ,
1974,1976,1977,1978,1979,1981,1983,2020,0000,0000,
0000 , 0000 , 0000 , 0000 , 0000 ,
1951, 1975, 1977, 1978, 1979, 1980, 1982, 1984,0000,0000,
0000 , 0000 , 0000 , 0000 , 0000 ,
1974, 1976, 1977, 1978, 1979, 198] , 1983,2020,0000,0000,
0000 , 0000 , 0000 , 0000 , 0000 ,
1951,1975,1977,1978,1979,1980,1981,1983,0000,0000,
0000 , 0000 , 0000 , 0000 , 0000 ,
1974, 1976, 1977, 1978, 1979, 1980, 1982,2020,0000,0000,
0000 , 0000 , 0000 , 0000 , OOOO/
DATA INHIV6/
C..HC
ft
ft
ft
ft
C..CO
1978, 1979, 1980, 1984,0000,0000,0000,0000,0000,0000,
OOOO , OOOO , OOOO , OOOO , OOOO ,
1978, 1979, 1983,2020,0000,0000,0000,0000,0000,0000,
OOOO , OOOO , OOOO , OOOO , OOOO ,
»» BLOCK DATA 3 <«
-------
55W
55^65
55^66
55^67
55^68
55^9
55^70
55^71
55472
55473
55^4
55475
55476
55477
55^78
55479
55480
55481
55482
55483
55484
55485
55486
55487
551*88
55489
55490
55491
55492
55493
55494
55495
55496
55497
55498
55499
55500
55501
55502
55503
55504
55505
55506
55507
55508
55509
55510
*
ft
it
ft
C..NOX
ft
ft
ft
ft
c
c
C..HC
ft
ft
ft
ft
C..CO
ft
ft
ft
ft
C..NOX
ft
ft
ft
ft
C
c
C..HC
ft
ft
ft
ft
C..CO
ft
ft
ft
ft
C,.NOX
ft
ft
ft
ft
C
APPENDIX B
MOBILE2 DECEMBER 12, 1980
1 978 , 1 979 , 1 980 , 1 98** , 0000 , 0000 , 0000 , 0000 , 0000 , 0000 ,
0000 , 0000 , 0000 , 0000 , 0000 ,
1978, 1979, 1983,2020,0000,0000,0000,0000,0000,0000,
0000 , 0000 , 0000 , 0000 , 0000 ,
i 978 , i 979 , i 980 , i 985 , oooo , oooo , oooo , oooo , oooo , oooo ,
0000 , OOOO , OOOO , OOOO , OOOO ,
1978,1979,1981*, 2020, oooo, oooo, oooo, oooo, oooo, oooo,
oooo , oooo , oooo , oooo , oooo/
DATA INHIV7/
1 95 1 , 1 985 , OOOO , OOOO , OOOO , OOOO , OOOO , OOOO , OOOO , OOOO ,
oooo , oooo , oooo , oooo , oooo ,
1 981* , 2020 , oooo , oooo , oooo , oooo , oooo , oooo , oooo , oooo ,
oooo , oooo , oooo , oooo , oooo ,
1 95 1 , 1 985 , OOOO , OOOO , OOOO , OOOO , OOOO , OOOO , OOOO , OOOO ,
oooo , oooo , oooo , oooo , oooo ,
1 981* , 2020 , oooo , oooo , oooo , oooo , oooo , oooo , oooo , oooo ,
oooo , oooo , oooo , oooo , oooo ,
1 95 1 , 1 985 , OOOO , OOOO , OOOO , OOOO , OOOO , OOOO , OOOO , OOOO ,
0000,0000,0000,0000,0000,
1 981* , 2020 , oooo , oooo , oooo , oooo , oooo , oooo , oooo , oooo ,
oooo , oooo , oooo , oooo , oooo/
DATA INHIV8/
1951 , 1978, 1980,0000,0000,0000,0000,0000,0000,0000,
oooo , oooo , oooo , oooo , oooo ,
1 977 , 1 979 , 2020 , OOOO , OOOO , OOOO , OOOO , OOOO , OOOO , OOOO ,
oooo , oooo , oooo , oooo , oooo ,
1951 , 1978, 1980,0000,0000,0000,0000,0000,0000,0000,
oooo , oooo , oooo , oooo , oooo ,
1977,1979, 2020 , OOOO , OOOO , OOOO , OOOO , OOOO , OOOO , OOOO ,
oooo , oooo , oooo , oooo , oooo ,
1 95 1 , 1 978 , 1 980 , OOOO , OOOO , OOOO , OOOO , OOOO , OOOO , OOOO ,
oooo , oooo , oooo , oooo , oooo ,
1977,1979,2020,0000,0000,0000,0000,0000,0000,0000,
oooo , oooo , oooo , oooo , oooo/
END
»» BLOCK DATA 3 <«
-------
DECEMBER 12, 1980
56000
56001
56002
56003
56004
56005
56006
56007
56008
56009
56010
56011
56012
56013
56014
56015
56016
56017
56018
56019
56020
56021
56022
56023
56024
56025
56026
56027
56028
56029
56030
56031
56032
56033
56034
56035
56036
56037
56038
56039
56040
56041
56042
56043
56044
56045
56046
56047
56048
56049
56050
56051
56052
56053
56054
56055
56056
56057
C
C.
C
C
C.
C.
C
C
C
C
C
C
C
C.
C,
C
C.
C.
C
C.
C.
APPENDIX B
MOBILE2
BLOCK DATA
BLOCK DATA SUBPROGRAM k
COMMON/BASECM/BASE49.BASECA,BASEHI
COMMON/DELCOM/DEL49,DELCA,DELHI
BASE3R ( IG, IP, IV, IR )
DEL3R ( IG, IP, IV, IR )
DIMENSION
* BASE3R(15,3,8,3) ,
* BASE49(15,3,8) ,
ft BASECA(15,3,8) ,
ft BASEHI (15,3,8)
EQUIVALENCE
ft (BASE3RO, 1,1,1) ,BASE49(1,1,0) ,
ft (BASE3R(1,1,],2),BASECA(1,1,1)),
ft (BASE3R(1,1,1,3) ,BASEHI (1,1,1))
DIMENSION B41 (15,3,4) ,B42 (15, 3,4)
EQUI VALENCE (BASE49 (1,1,1) ,B4l (1,1,1)) , (BASE49 (1,1,5) ,842(1,1,1))
DIMENSION BC1 (15,3,4) ,BC2(15,3,4)
EQUI VALENCE (BASECA( 1,1,1),BC1 (1,1,1)), (BASECA (1,1,5),BC2 (1,1,1))
DIMENSION BH1 (15,3,4) ,BH2(15,3,4)
EQUI VALENCE (BASEHI (1,1,1),BH1 (1,1,1)), (BASEHI (1,1,5),BH2 (1,1,1))
DIMENSION
ft DEL3R(15,3,8,3) ,
* DEL49(15,3,8),
ft DELCA(15,3,8) ,
ft DELHI (15,3,8)
EQUIVALENCE
ft (DEL3RO, 1,1,1) ,DEU9(1,1,0) ,
ft (DEL3R(1,1,1,2),DELCA(1,1,D) ,
ft (DEL3RO, 1,1, 3), DELHI (1,1,1))
DIMENSION D41 (15,3,4) ,042(15,3,4)
EQUI VALENCE (DELUg (1,1,1) ,041(1,1,1)), (DEL49 (1, 1,5) ,042(1,1,1))
DIMENSION DC1 (15,3,4),DC2(15,3,4)
EQUIVALENCE (DELCA (1,1, 1) ,DC1 (1,1, 1)) , (DELCA (1,1,5) ,DC2 (1,1 ,1))
DIMENSION DH1 (15,3,4),DH2(15,3,4)
EQUI VALENCE (DELHI (1,1,1),DH1 (1,1, 1)) , (DELHI (1,1,5),DH2 (1,1,1))
,FTP EXHAUST EMISSION ZERO MILEAGE EMISSION 6 DETERIORATION
, (PER 10K MILES) RATES. 1 LINE PER POL. FOR EACH VEH.TYPE
,ZERO MILE (BASE) RATES
,LOW ALT. 49-STATE
DATA B41/
,LDGV
ft 7-25, 4.43, 3.00, 3-36, 1-29, 0.29, 0.39, 0.39,7*0.0,
ft78.27,56.34,42.17,40.78,20.16, 6.14, 5.60, 5.21, 5.00,6*0.0,
ft 3-44, 4.35, 2.87, 2.43, 1.69, 1-56, 0.75,8*0.0,
,LDGT1
»» BLOCK DATA 4 <«
-------
A
vO
LU
C3
O
CO
LU
CD
o o
. •
O O
-X -St
LA Lf\
-4- O
. .
O ^
o o
CO
LT\
O
-X
Q O
OO
* -K
co -4- o~. •— •— o
CO -4; LA -4- O •
• . . . . O
O ^- O O o~i -X
•— CO
Q
*
I —
LA
r~-
co co
LA — LT\
« o~i •
0-0
OM~- cr»
o o
CO
x
—
CJ
CD
o
0 0
* *
LA LA
vD cn
-4- CM
O r—
•> •>.
vx> cri
-4- CM
O r-
. .
•— -4-
-4- O
O r-—
. .
rnS
• •
0 -4-
. .
LA cn
IA ro
. .
O CO
. .
0 CM*
rA rA
m
o" rA
r— .-4-
rAviJ
-4-
•— LA
rO l~—
^ cA
LA
-4- •—
oo -a-
-a- r->.
LA
00 —
IA rf\
cn cr\
-> i— •
C3 •K -X
d
_l
*>
o
o
-X
V0
r-.
CA
O
.
vTJ
LA
o
B
CO
*
0
.
^—
LA
.
l-~
-
o"
CM
Q
CM
CM
o
-4-
rA
vO
O
-a-
c*"i
0~l
CM —
L_
•K U
a
_i
00
-4-
O
v£>
rr\
O
.
r— .
<••"»
.
o
^
LA
.
o
.
CM
CM
•
.—
-
0
O
l~- *
I-—
. .
OO CM
v£> vA
. .
-3" O
. .
CO —
» .
LA *~
r—
. .
-4- LA
vO CO
. .
CO —
^~-
. .
CM 0
rA CM
ro
rA CD
-4- CM
vJ3 CM
•^t
LA O
r—-*
rA rA
LA
, ^j
-4- O
p«.-a-
IA
•— cv-V
tf\
LT\
O
.
CM
LT\
.
o
w
LT\
•
^^
•>
04
-*
OO
.
-4-
O
r-~
^
CO
.
LA
f—
.
CM
-4"
.
<~-\
-4-
ff\
mj
0~.
rC
-4"
CT\
0
r~-
LA
en
O
rC
LA
en
o
r--
LT\
CO
en
<~~t
en
•5C
o
o
-X
so
•t
LA
i— .
o
.
r-.
CM
.
r—
.
£
.
CM
.
CM
en
.
PO
•
vO
_y
^
vU
-4"
vO
1 —
f-1
LA
-4-
vO
-4-
-4"
LA
~>
•K 0
Q
or
o
•
o
•K
1 —
CM
-CO
O '
• LA
o —
-X
r~- -
- r-~ .
CM VO
>-o •
. _3~
— -4-
l~~
LA I~—
CM vO
• .
cr\ -^
-4-
. r—
LA -
CM LA
• CO
ff\ '
cn
- IA
en ~-
vO CM
•
cn en
0 —
— o
— CM
cn d
o cn
. — .
— o
cn •
o o
• fT\
* \J *
* ro
x43 v£)
CM •
CO CM
• — CM
•K -K
•\
O
o
*
r-»
LA
CM
.
_3~
P^
vO
LT\
.
rr\
O
CO
.
LA
"^
-
-4-
•
cn
Lr\
y \
•
O4
-
-4-
•
r— CM
O
— **f*
CO
CO 1
• ll ..
• f~,
oo
d -K
a
_i
. .
0 0
• •
o o
-X -X
CO CO
04 r-»
• •
— o
. .
r— » < —
CM • —
. .
P— r—
- *
LA-4-
_ r—
VD CM
-4" vfl
, — , —
cn <-"\
rr\ rf\
, — , —
O f—
CM r—
i — _
. — vO
1 4-
CM •—
•X *
•
O
^.
' —
• « LA
000
CM CM -^
• — ' —
^o r— oa
-4" CM -4"
o — •—
1 — •— CM
LAvO vO
o •— •—
cn co co
\0 en so
o — —
o •#. * * a
a a
-i ac
I
aa
a.
v
CD
A
A
A
O
i—oo cr> o •— c
r-.t~-.r~~r-.r-.r~~i— r--r-.i--cooooooocococoooaoco o~icr\o~\o~\o~iO~iO~i*O ^O ^^ ^^ ^O ^^ vO v^ >^0 \kO *«^ ^O vO ^D *^O vD v4> '^ vD ^O *UD **^ vD vO ^^ ^O v^ <^O ^J3 ^O vO vO **O vD v^ *^ vD vO v^ *sO *^ vO *
-------
APPENDIX B
MOBILE2 DECEMBER 12, 1980
56116 * 3.1*9, 2.65,13*0.,
56117 ''00.91,10.91,13*0.,
56118 *22.90,19-47,13.74,10,31,11*0.,
56119 C..MC
56120 * 8.90, 3-40, 2.70, 2.50, 1.50,10*0.,
56121 *34.30,23-40,18.80,18,80,17.50,10*0.,
56122 * 0.20, 0.65, 0.76, 0.82, 0.80,10*0.7
56123 C
56124 C.,HIGH ALT. 49-STATE
56125 DATA BH1/
56126 C..LDGV
56127 * 9-35, 5-60, 4.58, 4.58, 2.41, 1.07, 2.10, 0.46,
56128 * 0.59, 0.56, 0.56, 0.45,3*0.00,
56129 *117.70, 85.54, 79-64, 75-63, 50.46, 19-55, 39-39, 18.22,
56130 * 11.84, 9-96, 9-78, 7.18,3*0.00,
56131 * 1.96, 2.91, 1.91. 1-70, 1.42, 1.02, 1.02, 0.75,
56132 * 0.75, 0.75, 0.75, o.oo, o.oo, o.oo, o.oo,
56133 C..LDGT1
56134 *9-35, 5-60, 4.58, 4.58, 3-44, 1.53, 3-00, 1.61, 1.4?,
56135 *1.04, 1.04, 0.58, 0.48, 0.00, 0.00,
56136 *117.70,85.54,79.64,75.63,62.35,24.16,48.67,27.20,20.50,
56137 * 16.52,16.52, 6.14, 4.38, 0.00, 0.00,
56138 * 1.96, 2.91, 1-91, 2.07, 2.48, 1.78, 1.12, 1.91,
56139 * 1.90, 1.42, 0.59, o.oo, o.oo, o.oo, o.oo,
56140 C..LDGT2
56141 * 12.35, 8.26, 8.26, 1.61, 1.47, 1-04, 1.04, 0.58, 0.48,6*0.0,
56142 *141.35,105.90,105.90,27.20,20.50,16.52,16.52, 6.14, 4.38,6*0.0,
56143 * 3.10, 4.32, 3-07, 1.12, 1.91, 1-90, 1.42, 0.59,7*0-0,
56144 C..HDGV
56145 * 23.56, 15.12, 15-12, 6.65, 2.68, 1.36, 0.0 , 0.0 ,7*0.0 ,
56146 *342.36,352.82,352.82,268.36, 27-37, 11.28, 0.0 , 0.0 ,7*0.0 ,
56147 * 5-06, 7.64, 6.29, 6.29, 11.69, 1.88, 0.0 , 0.0 , 7*0.OO/
56148 DATA BH2/
56149 C.,LDDV
56150 * 3.01, 0.99, 1.17, 1.86, 1.63, 0.90, 0.54, 0.39,7*0.00,
56151 * 4.74, 2.10, 2.43, 2.56, 2.66, 2.22, 2.22, 1.27,7*0.00,
56152 * 1.46, 1.77, 1.33, 1.62, 1.46, 1.49, 1.11, 0.75.7*0-00,
56153 C..LDDT
56154 * 2.16, 1.96, 1.96, 0.61, 0.00, 0.0 , 0.0 , 0.0 ,7*0.0 ,
56155 * 3-15, 3-61, 3.47, 1.98, 0.00, 0.0 , 0.0 , 0.0 ,7*0.0 ,
56156 * 1.75, 1-77, 1.89, 0.71, o.oo, o.o , o.o , o.o ,7*0.0 ,
56157 C..HDDV
56158 * 8.03, 6.10, o.oo, o.oo, o.oo, o.o , o.o , o.o ,7*0.0 ,
56159 * 19.09, 19.09, o.oo, o.oo, o.oo, o.o , o.o , o.o ,7*0.0 ,
56160 * 22.90, 5-43, o.oo, o.oo, o.o , o.o , o.o , o.o ,7*0.0 ,
56161 C..MC
56162 * 11.48, 4.30, 4.12, 0.00, 0.00, 0.0 , 0.0 , 0.0 ,7*0.0 ,
56163 * 51-59, 35-07, 34.95, o.oo, o.oo, o.o , o.o , o.o ,7*0.0 ,
56164 * 0.11, 0.43, 0.57, 0.00, 0.00, 0.00, 0.00, 0.00,7*0.OO/
56165 C..DETERIORATION RATES
56166 C..LOW ALT. 49-STATE
56167 DATA D41/
56168 C..LDGV
56169 * 0.18, 0.25, 0.37, 0.17, 0.29, 0.29, 0.19, 0.19,7*0.0,
56170 * 2.25, 2.55, 3-13, 2.44, 2.86, 2.86, 2.75, 2.76, 2.76,6*0.0,
56171 * 0.00, 0.00, 0.04, 0.04, 0.10, 0.10, 0.15,8*0.0,
56172 C..LDGT1
56173 * 0.18, 0.25, 0.37, 0.17, 0.29, 0.29, 0.26, 0.26, 0.14, 0.11,5*0.0,
»» BLOCK DATA 4 <«
-------
56m
56175
56176
56177
56178
56179
56180
56181
56182
56183
56181.
56185
56186
56187
56188
56189
56190
56191
56192
56193
56191.
56195
56196
56197
56198
56199
56200
56201
56202
56203
56205
56206
56207
56208
56209
56210
56211
56212
56213
56211*
56215
56216
56217
56218
56219
56220
56221
56222
56223
56221*
56225
56226
56227
56228
56229
56230
56231
APPENDIX B
C.
C.
C.
C.
C.
C.
C
C.
C.
C.
C.
C.
C.
C.
C.
* 2.25
ft 0.00
ft 0.00
.LDGT2
ft 0.18
ft 2.25
ft 0.00
.HDGV
* 0.35
* 5.^6
* 0.00
DATA
.LDDV
ft 0.08
* 0.13
* o.oi*
.LDDT
ft 0.09
* 0.09
* 0.06
.HDDV
* o.oi*
* 0.10
ft 0.12
,MC
ft 0.78
ft 2.1*7
ft 0.06
, 2.
, o.
, 0.
, o.
, 2.
, 0.
, o.
, 8.
, o.
Dl*27
, o.
, 0.
, 0.
, o.
, o.
, o.
, o.
, o.
, o.
. 1.
, 3-
, o.
55,
00,
00,
25,
55,
00,
47,
75,
00,
05,
06,
03,
08,
10,
06,
oi»,
10,
07,
65,
96,
00,
3.13,
o.oi*,
0.00,
0.17,
2.M*,
o.oi*,
0.32,
8.37,
0.09,
0.03,
0.08,
0.07,
0.08,
0.09,
0.07,
13*0. ,
13*0.,
13*0.,
1-73,
2.02,
0.00,
MOBI
2.M.,
o.oi*,
0.00,
0.29,
2.86,
0.10,
0.11*,
6.37,
0.09,
0.07,
0.09,
0.05,
0.06,
0.09,
0.05,
12*0.,
12*0.,
12*0.7
LE2
2.86,
0.10,
0.00,
0.26,
2.1.3,
0.10,
0.39,
3,1*8,
0.63,
0,05,
0.08,
0.06,
11*0.,
11*0.,
1 1 *0 . ,
2
0
0
0
2
0
0
1*
0
0
0
0
.86,
.10,
.00,
.26,
.35,
.08,
.31,
.09,
.29,
.03,
-05,
.06,
2.1*3,
0.08,
o.ii*.
1.35,
0.09,
9*0.0,
9*0.0,
2.
0.
0.
1,
8*0
DECEMBER 12, 1980
35, 1.35, 1.59,5*0.0,
09, o.oo,
11,7*0.0,
59,7*0.0,
.0,
9*0.oo/
9*0.,
9*0.,
0.06,
0.
05, 7*0.,
.CALIFORNIA
DATA
.LDGV
ft 0.18
ft 2.25
ft 0.00
.LDGT1
ft 0.18
ft 0.16
ft 2.25
ft 0.00
.LDGT2
ft 0.18
ft 2.25
ft 0.00
.HOGV
* 0.35
ft 5.^6
* 0.00
DATA
,LDDV
* 0.08
* 0.13
ft 0,01*
.LDDT
* 0.06
ft 0.09
ft 0,06
.HDDV
DC1/
, o.
, 2.
, o.
, o.
,l*ftO
, 2.
, o.
, o.
, 2.
, o.
, o.
, 8,
, o.
DC2/
, o.
, o.
, o.
, o.
, o.
, o.
25,
55,
00,
25,
.0,
55,
00,
25,
55,
00,
1*7,
75,
00,
05,
06,
03,
oi*.
07,
06.
0.25,
2-55,
0.01*.
0.25,
2.55,
0.01*,
0.17,
2.1*1*,
0.00,
0.32,
8.37,
0.00,
0.03,
0.08,
0.07,
0.03,
0.05,
0.06,
0.37,
3.13,
0.01*,
0.37,
3.13,
0.01*.
0.17,
2.1*1*.
0.01*.
0.32,
8.37,
0.09,
0.07,
0.09,
0.05,
12*0.,
12*0.,
0.06,
0.17,
2. Mi,
0.06,
0.17,
2.M.,
0.06,
0.17,
2.1*1*.
0.01*,
0.32,
8.37,
0.09,
0.05,
0.08,
0.06,
1 1 *0 . ,
0
2
0
0
2
0
0
2
0
0
6
0
0
0
0
• 35,
.78,
.07,
• 35,
.78,
.07,
• 17,
.M»,
.01*.
.11*,
.37,
.09,
.03,
.05,
.06,
0.21,
2.22,
o.H,
0.35
2.78,
0.11*.
0.35,
2.78,
0.06,
0.11*,
6.37,
0.09,
0.03,
0.05,
0.05,
0.
2,
0.
, o
2.
0.
0.
2.
0.
0.
3.
0.
8*0
8*0
8*0
17, 0.16, 0.16,5*0.0,
li», 2.65, 2.65,5*0.0,
11, 0.08,6*0.0,
.21, 0.21, 0.17,
22, 2.11*. 2.63,5*0.0,
13,7*0.0,
17, 0.16,6*0.0,
11*. 2.63,6*0.0,
11*. 0.16,6*0.0,
39,7*0.0,
1*8,7*0.0,
09,7*0.07
.0,
.0,
.0,
»» BLOCK DATA 1* <«
-------
56232
56233
56234
56235
56236
56237
56238
56239
56240
5621.1
5621.2
5621.3
5621*1.
5621*5
5621*6
5621*7
5621*8
5621*9
56250
56251
56252
56253
56251*
56255
56256
56257
56258
56259
56260
56261
56262
56263
56261*
56265
56266
56267
56268
56269
56270
56271
56272
56273
56274
56275
56276
56277
56278
56279
56280
56281
56282
* o.oi*
* 0.10
* 0.12
C..MC
* 0.78
* 2.1*7
* 0.06
C
C..HIGH ALT
DATA
C..LDGV
* 0.18
* 0.21*
* 2.25
* 1».17
* 0.0
* 0,15
C..LDGT1
* 0.18
* 0.26
* 2.25
* 2.35
* 0.0
* 0.08
C..LDGT2
* 0.18
* 2.25
* 0.0
C..HDGV
* 0.35
* 5.1*6
* 0.0
DATA
C..LDDV
* 0.08
* 0.13
* 0.01*
C..LDDT
* 0.09
* 0.09
* 0.06
C..HDDV
* o.oi*
* 0.10
* 0.12
C..MC
* 0.78
* 2.1+7
* 0.06
C
END
, 0.01*. 13*0.,
, 0.10,13*0..
, 0.12, 0.12,
. 1.55, 1.61*.
, 3.23, 1.62,
, 0.00, 0.00,
, 1»9-STATE
DH17
, 0.25
, 0.21*
, 2.55
, k.11
, 0.0
, 0.15
, 0.25
, 0.26
,2.25
,2.35
, 0.0
, 0.09
, 0.25
, 2.55
, 0.0
, 0.1*7
, 8.75
, 0.0
DH27
, 0.05
, 0.06
, 0.03
, 0.08
, 0.10
, 0.06
, o.oi*
, 0.10
, 0.07
, 1.65
, 3.96
, 0.0
, 0.37,
, 0.21*.
, 3-13,
, k.22,
, 0.01*.
,4*0.00
, 0.37,
, 0.11*.
, 3.13,
, 1.35,
, 0.01*.
,1**0.0,
, 0.17,
, 2.1*1*.
. 0.01*,
, 0.32,
, 8.37,
, 0.09,
, 0.03,
, 0.08,
, 0,07,
, 0.08,
. 0,09,
, 0.07,
, 0.0 ,
, o.o ,
, o.o ,
, 1.73,
, 2.02,
, o.o ,
APPENDIX B
MOBILE2
0.12, 11*0.
1,61*. 1.6k
1.1*5, 1-1*5
0.00, 0.00
0.17,
3*0.00
2.1*1*.
3*0.00
O.Ql*.
,
0.17,
0,1k,
2,1*1*.
2.1.5,
o.oi.,
0.29,
2.86,
0.10,
O.T.,
6.37,
0.09,
0.07,
0.09,
0.05,
0.06,
0.09,
0.05,
0.0 ,
0.0 ,
0.0 ,
0.00,
0.00,
0.00,
0.29
1
2.86
I
0,10
0.29
2*0.0
2.86
2*0.0
0.01.
0.26
2.1*3
0.10
0.39
03.1*8
0.63
0.05
0.08
0.06
0.00
0.00
0.00
0.0
0.0
0.0
0.00
0.00
0.00
,10*0..
,10*0.,
,10*0.7
, 0.29,
, 2.86,
, 0.10,
, 0.29,
1
, 2.86.
t
, 0.01*.
, 0.26,
, 2.35,
, 0.10,
, 0.1.0,
,06.31,
, 0.29,
, 0.03,
, 0.05,
, 0.06,
, o.o ,
, o.o ,
, o.o ,
, 0.0 ,
, o.o ,
, o.o ,
, 0.00,
, 0.00,
, 0.00,
-------
APPENDIX B
MOBILE2
DECEMBER 12, 1980
57000
57001
57002
57003
57004
57005
57006
57007
57008
57009
57010
57011
57012
57013
57011*
57015
57016
57017
57018
57019
57020
57021
57022
57023
57021.
57025
57026
57027
57028
57029
57030
57031
57032
57033
57034
57035
57036
57037
57038
57039
57040
5701.1
57042
57043
5701.1*
5701*5
57046
5701*7
5701.8
5701*9
57050
57051
57052
57053
57054
57055
57056
57057
C
C.
C
C
C.
C,
C
C
C.
C.
C
C.
C.
C.
C.
C.
C,
C.
C.
C,
BLOCK DATA
.BLOCK DATA SUBPROGRAM 5
COMMON/ IDLBCM/IDLBl*9, IDLBCA, IDLBHI
COMMON/ !DLDCM/|DELl*9, IDELCA, IDELHI
.IDLBCM ( IG, IP, IV, |R )
.IDLDCM ( IG, IP, IV, |R )
REAL IDLBl*9(15,3,8) , 1 DLBCA (15, 3,8) .IDLBHI (15,3,8)
REAL IBM (15, 3, 4), 181.2(15, 3,4)
EQU 1 VALENCE (IDLB1*9(1,1,1),|BM(1,1,1)),(IDLB1*9 (1,1, 5), 181.2(1,1,
REAL IBC1 (15,3,1*) ,IBC2(15,3,1*)
EQUIVALENCE (1 DLBCA (1 , 1 , 1) , 1 BC1 (1 , 1 , 1) ) , (1 DLBCA (1 f 1 ,5) , IBC2 (1 , 1 ,
REAL IBHJ(15,3,4),IBH2(15,3,4)
EQUIVALENCE (IDLBHI (1 , 1 , 1) , 1 BH1 (1 , 1 , 1) ) , (IDLBHI (1 , 1 ,5) , IBH2 (1 , 1 ,
REAL IDEL49 (15, 3, 8), IDELCA (15, 3, 8), IDELHI (15,3,8)
REAL IL41(15,3,4),|L42(15,3,4)
EQUI VALENCE (IDEL1»9(1,1,1),I LI* 1 (1,1,1)) , (1 DEL49 (1 , 1 ,5) , IL42(1,1,
REAL ILC1 (15,3,1*),ILC2(15,3,1*)
EQUI VALENCE (IDELCA (1,1.1),| LCI (1,1,1)), (IDELCA (1 , 1 ,5) , 1 LC2 (1 , 1 ,
REAL ILH1 (15,3,1*) ,ILH2(15,3,1*)
EQUI VALENCE (IDELHI (1 , 1 , 1) , I LH1 (1 , 1 , 1) ) , (IDELHI (1 , 1 ,5) , 1 LH2 (1 , 1 ,
.IDLE EXHAUST EMISSION ZERO MILEAGE EMISSION 6 DETERIORATION
.(PER 10K MILES) RATES. ] LINE PER POL. FOR EACH VEH.TYPE
.ZERO MILE (BASE) RATES
.LOW ALT. 49-STATE
DATA IBM/
.LDGV
* 1.32, 1.07, 0.51*. 0.72, 0.30, 0.07, 0.09, 0.09,7*0,0,
*13- 76, 13- 99, 11. 81*, 12. 66, 6.00, 1.83, 1.63, 1-55, 1.48,6*0.0,
* 0.09 ,0.17, 0.14, 0.26, 0.18, 0.17, 0.08,8*0.0,
.LDGT1
* 1.32, 1.07, 0.54, 0.72, 0.37, 0.07, 0.06, 0.06, 0.04, 0.03,5*0
*13. 76, 13. 99, 11. 84, 12. 66, 6.2?, 1.57, 1.31, 1.19, 0.69, 0.34,5*0
* 0.09, 0.17, 0.14, 0.06, 0,06, 0.06, 0.05, 0.02,7*0.0,
.LDGT2
* 1.67, 1.06, 1.06, 0.07, 0.06, 0.06, 0.04, 0.03,7*0.0,
*18. 98, 11. 53, 11. 53, 1-57, 1.31, 1.19, 0.6g, 0.34,7*0.0,
* 0,08, 0.10, 0.07, 0.06, 0.06, 0.05, 0,02,8*0.0,
.HDGV
* 2,29, 0.85, 0.85, 0.43, 0.14, 0.10,9*0.0,
*22.18, 6.15, 6.15, 6.42, 0.70, 0.34,9*0.0,
* 0.04, 0.05, 0.06, 0.06, 0.07, 0.01,9*0.07
DATA IB42/
.LDDV
* 0.14, 0,03, 0.04, 0.06, 0.05, 0.03,9*0.0,
* 0.23, 0,14, 0.16, 0.17, 0.18, 0.15,9*0.0,
* 0.13, 0.22, 0.17, 0.20, 0.18, 0.19, 0.14, 0.09,7*0.0,
.LDDT
* 0.08, 0.10, 0.10, 0.07,11*0.0,
* 0.30, 0.32, 0.31, 0.31,11*0.0,
* 0.19, 0.32, 0.34, 0.13,11*0.0,
.HODV
* 0.36, 0.27,13*0.,
D)
0)
D)
D)
D)
D)
.0,
.0,
»» BLOCK DATA 5 <«
-------
57058
57059
57060
57061
57062
57063
57064
57065
57066
57067
57068
57069
57070
57071
57072
57073
57074
57075
57076
57077
57078
57079
57080
57081
57082
57083
57084
57085
57086
57087
57088
57089
57090
57091
57092
57093
57094
57095
57096
57097
57098
57099
57100
57101
57102
57103
57104
57105
57106
57107
57108
57109
57110
57111
57H2
57H3
57114
57H5
c.
c
c.
c.
c.
c.
c.
c.
c.
c.
c.
c
c.
c.
c.
* 0.67,
* 0.92,
.MC
* 1-95,
* 4.33,
* 0.01,
.CALIFORN!
DATA 1
.LDGV
* 1.89,
*18.05,
* 0.05,
.LDGT1
* 1.89,
* 0.06,
*18.05,
* 0.05,
.LDGT2
* 1.67,
*18.98,
* 0.08,
.HDGV
* 2.29,
*22.18,
* 0.01*,
DATA 1
.LDDV
* 0.14,
* 0.23,
* 0.13,
.LDDT
* 0.08,
* 0.31,
* 0.26,
.HDDV
* 0.36,
* 0.67,
* 0.92,
.MC
* 1-95,
* 4.33,
* 0.01,
.HIGH ALT.
DATA 1
.LDGV
H 1.63
H 0.06
c 15.98
C 1.46
N 0.11
N 0.03
.LDGT1
H 1.63
H 0.07
c 15.98
c 1.72
0.67,1
0.22,1
0.74,
2-92,
0.03,
A
BC1/
0.93,
3*0 .
3*0 .
0.59
2.34
0.04
0.70
10.61,12.83
0.09,
0.93,
4*0.0,
0.07
0.70
10.61,12.83
0.09,
1 .06,
11-53,1
0.10,
0.85,
6.15,
0.05,
BC2/
0.03,
0.14,
0.22,
0.06,
0.23,
0.25,
0.27,1
0.67,1
0.78,
0.74,
2.95,
0.03,
0.07
1.06
1.53
0.11
0.85
6.15
0.06
0.04
0.16
0.17
0.04
0.15
0.18
3*0.
3*0.
0.55
0.59
2.37
0.04
APPENDIX B
MOBILE2
I
f
,12*0.0,
,12*0.0,
,12*0.07
, o.
,10.
, o.
, o.
,10.
, o.
, 1.
,11.
, o.
, o.
, 6.
, o.
, o.
, o.
, o.
60,
40,
07,
60,
40,
07,
06,
53,
07,
85,
15,
06,
06,
17,
20,
0.53
7.05
0.09
0.53
7-05
0.09
0.66
9.69
0.07
0.53
5-17
0.06
0.05
0.18
0.18
, 0.06,
, 0.51,
, 0,07,
, 0.21,
, 3-95,
, 0.08,
, 0.56,
, 8.77,
, 0.06,
, 0.25,
, 6.42,
, 0.05,
, 0.03,
, 0.15,
, 0.14,
0.03,
0.28,
0.04,
0.06,
3.36,
0.05,
0.06,
3.36,
0.04,
0.25,
6.42,
0.04,
0.03,
0.15,
0.09,
0.
0.
0.
0.
0.
0.
0.
1.
0.
0.
0.
0.
8*0
8*0
8*0
DECEMBER 12, 1980
04,
43,
02,
04,
99,
03,
06,
49,
02,
14,
70,
03,
.0,
.0,
• 0,
0.05, 0.05,5*0.0,
0.44, 0.44,5*0.0,
0.02,6*0.0,
0.04, 0.05,
1.49, 1.79,5*0.0,
7*0.0,
0.06,6*0.0,
1.79,6*0.0,
0.01 ,6*0.0,
7*0.0,
7*0.0,
7*0.07
,12*0.,
,12*0.,
, o.
I
»
, o.
, o.
, 2.
, o.
13,
41,
55,
37,
04,
11*0.
1 1 *0 .
0.33
2.21
0.04
t
f
,10*0.,
,10*0.,
, 1 0*0 . /
49-STATE
BH1/
, 0.76
, 0.06
, 11.24
, 1.44
, 0.09
, 0.03
, 0.76
, 0.07
, 11.24
, 1-72
, 0
, 0
, 12
, 1
, o
, o
, o
, 0
, 12
, o
• 71,
.05,
.93,
.06,
.07,
.00,
.71,
.04,
.93,
.69,
0
0
13
0
0
0
0
0
13
0
.74,
.00,
.99,
.00,
.07,
.00,
.74,
.04,
• 99,
• 49,
0.27,
0.00,
7-42,
0.00,
0.06,
0.00,
0.33,
0.00,
7.76,
0.00,
0.12,
0.00,
2.87,
0.00,
0.04,
0.00,
0.15,
0.00,
3-00,
0.00,
0.
5-
0.
0.
6.
24,
79,
04,
30,
05,
0.05, 0.07,
2.68, 1.74,
0.03, 0.03,
0.06, 0.10,
1.52, 2.27,
»» BLOCK DATA 5 <«
-------
57H6
57117
57118
57H9
57120
57121
57122
57123
57121*
57125
57126
57127
57128
57129
57130
57131
57132
57133
57131*
57135
57136
57137
57138
57139
571*0
571*1
571*2
571*3
571**
571*5
571*6
571*7
571*8
571*9
57150
57151
57152
57153
5715*
57155
57156
57157
57158
57159
57160
57161
57162
57163
5716*
57165
57166
57167
57168
57169
57170
57171
57172
57173
c.
c.
c.
c.
c.
c.
c
c.
c.
c,
c.
c.
c.
c.
c.
N 0.11, 0.09,
N 0.05, 0.02,
.LDGT2
H 2.06, 1.09,
C 22.0*. 12.7*,
N 0.10, 0.05,
.HDGV
H 2.83, 0.87,
C 25-75, 06.80,
N 0.05, 0.03,
DATA IBH27
.LDDV
H 0.32, 0.07,
C 00.1*0, 00.25,
N 0.13, 0.22,
.LDDT
H 0.18, 0.23,
C 00.53, 00.56,
N 0.19, 0.32,
.HDDV
H 0.83, 0.62,
C 1.17, 1.17,
N 0.92, 0.22,
.MC
H 2.1*1, 0,53,
c 05.03, 02.3*,
N 0.01, 0.02,
APPENDIX B
MOBILE2
0,07, 0.02,
0.00, 0.00,
1.09,
12.7*.
0.01*.
0.87,
06.80,
0.03,
0,09,
0.28,
0.17,
0.23,
0.5*.
0.3*.
0.00,
0.00,
0.00,
0.78,
02.56,
0.02,
0
01
0
0
07
0
0
0
0
0
0
0
0
0
0
0
00
0
.06,
.52,
.01,
.**,
.09,
.03,
.1*,
.30,
.20,
.07,
• 31,
.13,
.00,
.00,
.00,
.00,
.00,
.00,
0.02,
0.00,
0.10,
2,27,
0.06,
0.23,
1.21,
0.07,
0.12,
0.32,
0,18,
o.oo,
0,00,
0.00,
0.00,
0.00,
0.0 ,
0.00,
0.00,
0.00,
0.01,
0,00,
0.07,
1.72,
0.06,
0.12,
0,*9,
0.01,
0,07,
0.26,
0.19,
0.0 ,
0.0 ,
0.0 ,
0,0 ,
0.0 ,
0.0 ,
0.0 ,
0.00,
0.00,
DECEMBER 12, 1980
0.01, 0.06, 0.06,
0.07,
1.72,
0.05,
0.0 ,
0.0 ,
0.0 ,
o.oi*,
0.26,
0.11*,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0,0 ,
0,0 ,
0.0 ,
0.01*.
0.69,
0.02,
0,0 ,
0.0 ,
0.0 ,
0.03,
0.15,
0.09,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
o.oi*
0.1*9
0.00
0.0
0.0
0.0
0.0
0.0
0.00
0.0
0.0
0.0
0.0
0.0
0.0
0,0
0.0
0.0
,6*0
,6*0
,6*0
, 6*0
,6*0
,6*0
,6*0
,6*0
,6*0
,6*0
,6*0
, 6*0
, 6*0
,6*0
,6*0
,6*0
, 6*0
, 6*0
.0,
.0,
.0,
.0,
.0,
.07
.0,
.0,
.0,
.0,
•o,
.0,
.0,
.0,
.0,
.0,
.0,
.07
.DETERIORATION RATES
.LOW ALT. *9-STATE
DATA IL*17
,LDGV
* 0.03, 0.06, 0
* 0.1*0, 0,63, o
* 0.00, 0,00, 0
.LDGT1
* 0.03, 0.06, 0
* 0.1*0, 0.63, o
* 15*0.0,
.LDGT2
* 0.03, o.oi*, o
* 0.1*5, 0.52, 0
* 15*0.0,
.HDGV
* 0.0*, 0.01*, 0
* 0.53, 0.28, 0
* 15*0.07
DATA |L*27
.LDDV
* 0.01, 0.00, 0
* 0,01, 0.01, 0
* 0.00, 0.00, 0
.LDDT
* 0.01, 0,01, 0
* 0.02, 0.02, 0
* 0.01, 0.01, 0
.07, o,
.88, 0.
.00, 0.
.07, 0.
.88, 0.
.03, 0.
,*9, 0,
.02, 0.
.27, 0.
.00, 0.
.01, 0.
,01, 0,
.01, 0.
.01, 0.
.01, 0.
0*.
76,
00,
01*.
76,
02,
32,
01,
28,
00,
01,
01,
01,
01,
01,
0.07
0.85
o.oi
0,06
0.72
0,02
0.27
0.03
0.11*
0.00
0.01
0.01
1 1 *0 .
1 1 *0 .
11*0.
, 0.07
, 0.85
, 0.01
, 0.02
, 0.32
, 0.02
, 0.21*
, 0.03
, 0.18
, 0.00
, 0.01
, 0.01
o,
0,
0,
, o.oi*.
, 0.82,
, 0.01,
, 0.02,
, 0.27,
, o.oi,
, o.ii»,
,9*0.0,
,9*0.0,
,9*0.0,
,9*0.0,
, 0,01,
0.01*.
0.81,
8*0.0,
0.02,
0.2l»,
0.01,
0.18,
0.01,
7*0.0,
0.82,
0.01,
0,11*,
7*0.0,
7*0.0,
7*0.0,
6*0.0
0.01
0.18
f
,5*0
,5*0
.0,
.0,
C..HDDV
* 0.00, 0.00,13*0.,
»» BLOCK DATA 5 <«
-------
57m
57175
57176
57177
57178
57179
57180
57181
57182
57183
57181.
57185
57186
57187
57188
57189
57190
57191
57192
57193
5719^
57195
57196
57197
57198
57199
57200
57201
57202
57203
57201.
57205
57206
57207
57208
57209
57210
57211
57212
57213
57211*
57215
57216
57217
57218
57219
57220
57221
57222
57223
5722J.
57225
57226
57227
57228
57229
57230
57231
* 0.01,
* 0.00,
C..MC
* 0.1*2,
* 0.23,
* 0.00,
C
C..CALIFORNI
DATA 1
C..LDGV
ft 0
ft 0
ft 0
C..LDGT1
ft 0
ft 0
ft 0
ft 0
C..LDGT2
ft 0
ft 0
ft 0
C..HDGV
* 0
ft 0
ft 0
.01.,
.51,
.00,
.01*.
.02,
• 51,
.00,
.03,
-i«5,
.00,
.Ok,
• 53,
.00,
DATA 1
C..LDDV
ft 0
ft 0
ft 0
C..LDDT
ft 0
ft 0
ft 0
C..HDDV
ft 0
ft 0
* 0
C..MC
ft 0
ft 0
ft 0
C
C..HIGH
.01,
.01,
.00,
.01,
.01,
.01,
.00,
.01,
.00,
.1*2,
.23,
.00,
ALT.
DATA 1
C..LDGV
H 0
H 0
C 0
C 0
N 0
N 0
C..LDGT1
H 0
H 0
C 0
C 0
.03,
.03,
.1*0,
.61,
.00,
.01,
.03,
.02,
.1*0,
.21*.
0.01,
0.00,
0.36,
0.50,
0.00,
A
LCI/
0.05,
0.1*7,
0.00,
0.05,
1**0.0,
0.1*7,
0.00,
o.oi*.
0.52,
0.00,
0.01*.
0.28,
0.00,
LC2/
0.00,
0.01,
0.00,
0.00,
0.01,
0.01,
0.00,
0.01,
0,00,
0.31*,
0.1.1,
0.00,
13*0.,
1 3*0 . ,
0.38,
0.26,
0.00,
0.01*,
0.61,
0.00,
o.oi*.
0.61,
0.00,
0.03,
0.1*9,
0.00,
0.02,
0.27,
0.00,
0.00,
0.01,
0.01,
0.00,
0.01,
0,01,
1 3*0 . ,
13*0.,
0.00,
0.36,
0.20,
0.00,
APPENDIX B
MOBILE2
12*0.0,
12*0.0,
12*0.07
0.06,
0.70,
0.00,
0.06,
0.70,
0.00,
0.03,
0.1*9,
0.00,
0.02,
0.27,
0.00,
0.00,
0.01,
0.01,
12*0,,
12*0.,
0.01,
0.00,
0.36,
0.18,
0.00,
0.03,
0.52,
0.00,
0.03,
0.52,
0.00,
0,03,
0.1*9,
0.00,
0.02,
0.27,
0.00,
0.00,
0.01,
0.01,
11 *0 . ,
1 1 *0 . ,
0.36,
0.18,
0.00,
o.oi*,
0.17,
0,00,
0.06,
0.59,
0.00,
0.03,
0.1*9,
0.00,
0.01,
0.28,
0.00,
0.00,
0.01,
0.01,
10*0.,
10*0.,
1 0*0 . /
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
02,
13,
01,
01.,
59,
01,
Ok,
59,
00,
01,
28,
00,
00,
01,
01,
DECEMBER 12, 1980
0.02,
0.13,
0.00,
0.02,
0.1*7,
0.01,
0.02,
0.1*5,
0.00,
0.03,
O.]l*.
0.00,
8*0.0,
8*0.0,
8*0.0,
0.02, 0.02,5*0.0,
0.16, 0.16,5*0.0,
0.00,6*0.0,
0.02, 0.02,
0.1*5, 0.56,5*0.0,
7*0.0,
0.02,6*0.0,
0.56,6*0.0,
0.00, 6*0 . 0 ,
7*0.0,
7*0.0,
7*0.07
1+9-STATE
LH1/
0.06,
0.03,
0.63,
0.61,
0.00,
0.01,
0.06,
0.02,
0.63,
0.21*,
0.07,
0.03,
0.88,
0.62,
0.00,
0.00,
0.07,
0.01,
0.88,
0.11*.
o.oi*,
0.00,
0.76,
0.00,
0.00,
0.00,
o.oi*,
0.01,
0.76,
0.28,
0.07,
0.00,
0.85,
0,00,
0.00,
0.00,
0.06,
0.00,
0.72,
0.00,
0.03,
0.00,
0.1.2,
0.00,
0.00,
0.00,
0.06,
0.00,
0.72,
0.00,
0.
0.
0.
03,
,1*2,
,00,
0.06,
0.
.72,
0.03,
0.1.2,
0.01,
0.02,
0.32,
0.03,
0.61,
0.01,
0.02,
0.27,
»» BLOCK DATA 5 <«
-------
APPENDIX B
MOBILE2
57232
57233
57234
57235
57236
57237
57238
57239
572LO
57241
57242
57243
57244
57245
572L6
57247
572^8
57249
57250
57251
57252
57253
57254
57255
57256
57257
57258
57259
57260
N 0.
N 0,
C..LDGT2
H 0,
C 0.
N 0.
C..HDGV
H 0.
C 0.
N 0.
00,
00,
03,
45,
0 ,
04,
53,
0 ,
DATA 1
C..LDDV
H 0.
C 0.
N 0.
C..LDDT
H 0.
C 0.
N 0.
C..HDDV
H 0.
C 0.
N 0.
C..MC
H 0.
C 0.
N 0.
C
END
01,
01,
0 ,
01,
02,
01,
0 ,
01,
0 ,
42,
23,
0 ,
0.00,
0,00,
0,04,
0.52,
0.0 ,
0.04,
0.28,
0.0 ,
LH2/
0.00,
0.01,
0.0 ,
0.01,
0.02,
0.01,
0.0 ,
0.01,
0.0 ,
0.36,
0.50,
0.0 ,
0.00,
0.00,
0.03,
0.49,
0.00,
0.02,
0.27,
0.0 ,
0.00,
0.01,
0.01,
0.01,
0.01,
0,01,
0.0 ,
0.0 ,
0.0 ,
0.38,
0.26,
0.0 ,
0.00,
0.00,
0.02,
0.32,
0.00,
0.01,
0.28,
0,0 ,
0.00,
0.01,
0.01,
0.01,
0.01,
0.01,
0.0 ,
0.0 ,
0,0 ,
0.00,
0.00,
0.0 ,
0.00,
0.00,
0.02,
0.27,
0.00,
0.03,
0.14,
0.0 ,
0,00,
0.01,
0.01,
0.00,
0.00,
0.00,
0.0 ,
0.0 ,
0.0 ,
0.00,
0.00,
0.00,
0.00,
0.00,
0.02,
0.24,
0.0 ,
0.04,
0.28,
0.0 ,
0.00,
0.01,
o.oi,
0.0 ,
0,0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.00,
0.02,
0.24,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.00,
0.01,
0.01,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
DECEMBER 12, I960
0.00,
0.01,
0.14,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.00,
0.01,
0.01,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.00
0.01
0.28
0.0
0.0
0.0
0.0
0.0
0.0
0.00
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
»
,6*0.0,
,6*0.0,
,6*0.0,
,6*0.0,
,6*0.0,
,6*0.07
, 6*0 . 0 ,
,6*0.0,
,6*0.0,
,6*0.0,
,6*0.0,
,6*0.0,
, 6*0 . 0 ,
,6*0.0,
,6*0.0,
,6*0.0,
,6*0.0,
,6*0.0 /
»» BLOCK DATA 5 <«
-------
APPENDIX B
MOBILE2
DECEMBER 12, ig80
58000
58001
58002
58003
58004
58005
58006
58007
58008
58009
58010
58011
58012
58013
58014
58015
58016
580J7
58018
58019
58020
58021
58022
58023
58024
58025
58026
58027
58028
58029
58030
58031
58032
58033
58034
58035
58036
58037
58038
58039
58040
58041
58042
58043
58044
58045
58046
58047
58048
58049
58050
58051
58052
58053
58054
58055
58056
58057
BLOCK DATA
.BLOCK DATA SUBPROGRAM 6
COMMON/1MCRED/1 RED(19,20,5,2,2),ITECH4(19,20,5)
IN7EGER
*R1 (19,20) ,R2(19,20) ,R3(19,20) ,R4(19,20) ,
*R5(19,20) ,R6(19,20) ,R7(19,20) ,R8(19,20) ,
*R9(19,20) ,R10(19,20) ,Rll (19,20) ,R12(19.20) ,
ftR)3(19,20),R14 (19,20) ,R15(19,20),R16(19,20) ,
*R17(19,20) ,R18(19,20) ,R19(19,20) ,R20(19,20) ,
*71 (19,20) ,72(19,20) ,73(19,20) ,74(19,20) ,
*75(19,20)
EQUIVALENCE
* (IREDd, 1,3
ft(|RED(l,l,5
ft(IRED(l,l,2
ft(IRED(l,l,4
*(IRED(l!l!3
*(IRED(1,1,5
ft(IRED(l,l,2
ft (IREDd, 1,4
ft(!7ECH4(l,l
*(I7ECH4(1,1
*(ITECH4{], 1
C
,1,1) ,R1 (1,0) , (IREDd.l
,l,l),R3d,0) , (IREDd.l
,l,l),R5d,0) , (IREDd.l
,2,1),R7(1,0), (IREDd.l
,2,1),R9(1,0) , (IREDd, 1
,1,2) ,R11 (1,0), (IREDd,
!l!2) !R15d!l)) ', (IREDd!
,2,2) ,R17(1,0) , (IREDd,
,2,2),R19d,D) , (IREDd,
,0 ,71 (1,0) , (I7ECH4(1,1
,3) ,73(1,0) , (ITECH4(1,1
,5) .75(1,1))
C INSPECTION/MAINTENANCE PERCENT
DATA
ft
ft
ft
ft
ft
ft
ft
ft
ft
ft
ft
ft
ft
ft
ft
ft
ft
*
ft
DATA
ft
ft
ft
ft
ft
Rl/ 3,
13,
13,
13,
14,
14,
14,
14,
14,
15,
15,
15,
15,
15,
15,
16,
16,
16,
16,
53,
R2/ 4,
15,
15,
16,
17,
17,
14,19
18,22
19,23
20,24
20,25
21,26
22,27
23,28
24,30
25.31
26,32
27,33
28,35
28,36
29,37
30,38
31,39
31,52
53,51
52,50
17,23
22,27
24,28
25,30
26,32
28,33
,22,
,24,
,25,
,26,
,27,
,29,
,30,
,31,
,33,
,34,
,35,
,36,
,38,
,39,
,40,
,41,
,51,
,50,
,50,
,48,
,27,
,29,
,31,
,32,
,34,
,35,
25,27,
26,29,
27,29,
28,30,
30,32,
31,33,
32,34,
33,35,
35,36,
36,38,
37,39,
38,40,
39,41,
41,42,
42,49,
50,48,
49,47,
48,47,
48,46,
46,45,
30,32,
32,34,
33,35,
34,36,
36,38,
37,39,
29,31
31,33
32,34
33,35
34,36
35,37
36,38
37,39
38,40
39,41
41,42
42,43
43,47
48,46
47,45
46,44
45,43
45,43
44,42
43,41
34,36
36,37
37,39
38,40
39,41
40,42
,2,1,1) ,R2(1
,4,1,0 ,R4(1
,1,2,0 ,R6{1
,3,2,0 ,R8(1
,5,2,0 ,R10(
,2,1,2) ,R12
,4,1,2) ,R14
,1,2,2) ,R16
,3,2,2) ,R18
,5,2,2) ,R20
,2) ,72(1,1))
,4), 74(1,1))
,0),
,0),
,0),
,0),
d.D)'
(1,0)
(1,0)
(l!l))
*
t
i
*
t
i
REDUC7IONS:
,33,
,35,
,36,
,37,
,37,
,38,
,39,
,40,
,42,
,43,
,44,
,46,
,45,
,44,
,43,
,42,
,42,
,41,
,40,
,39,
,37,
,39,
,40,
,41,
,43,
,44,
35,37
37,39
38,39
39,40
39,41
40,42
41,43
42,44
43,45
44,45
45,44
44,42
43,41
42,40
41,39
40,38
40,38
39,37
38,36
37,34
39,41
40,42
41,43
43,44
44,46
46,47
,39,41,
,41,42,
,41,43,
,42,44,
,43,45,
,44,46,
,45,46,
,45,44,
,45,43,
,43,41,
,42,40,
,41,39,
,39,37,
,38,36,
,37,35,
,36,34,
,36,33,
,35,33,
,34,32,
,32,30,
,42,44,
,44,45,
,45,46,
,46,48,
,47,49,
,49,50,
43,44,
44,46,
45,47,
46,47.
46,48,
47,43,
44,42,
42,40,
41.39,
40,38,
38,36,
37,35,
36,34,
34,33,
33,31,
32,30,
31,29,
30.28,
29,27,
27,25,
45,47,
47,48.
48,50,
49,51,
51,52,
52,50,
46,4?
47,49
48,50
49,41
43,39
41,38
40,37
38,36
37,34
36,33
34,32
33,30
32,29
31,28
29,26
28,25
27,24
26,23
24,22
22,19
49,50
50,52
51,53
52,50
50,49
49,47
,49,51,
,50,17,
,34,17,
,33,17,
,32,17,
,31,16,
,30,16,
,30,16,
,29,16,
,28,16,
,26,16,
,25,15,
,24,15,
,23,15,
,22,15,
,21,14,
,20,14,
,19,14,
,19,13,
,15, 3/
,52,53,
,53,24.
,44,24,
,43,23,
,42,23,
,41,23,
»» BLOCK DATA 6 <«
-------
APPENDIX B
MOBILE2 DECEMBER 12, 1980
58058 * 18,29,35,37,38,40,42,43,45,47,48,50,51,50,49,48,46,39,22,
58059 * 18,30,36,38,39,41,1*3,41., 1.6,1*7,49,51,50,1.8,1*7,46,1*5,38,22,
58060 * 19,31,37,39,41,42,44,45,47,49,50,51,49,47,46,45,43,37,22,
58061 * 19,32,38,41,42,43,45,47,48,50,51,50,48,46,44,44,42,36,21,
58062 * 19,32,39,42,43,44,46,48,49,52,50,49,47,45,43,42,41,35,21,
58063 * 20,33,41,43,44,46,47,49,53,51,49,47,45,44,42,41,39,34,20,
58064 ft 20,34,42,45,46,47,48,53,52,50,48,46,44,43,41,40,38,33,19,
58065 * 20,35,43,46,47,48,54,52,51,49,47,46,44,42,40,39,36,31,19,
58066 ft 20,36,44,47,48,55,53,52,50,48,46,45,43,41,39,37,35,29,18,
58067 * 21,36,45,48,55,54,52,51,49,47,45,43,42,40,37,35,33,28,17,
58068 * 21,37,46,56,54,53,51,49,47,46,44,42,40,38,36,33,31,26,17,
58069 * 21,38,57,55,53,52,50,48,46,45,43,41,39,37,34,32,29,24,16,
58070 * 21,57,56,54,52,50,49,47,45,43,42,40,38,35,33,30,27,23,15,
58071 ft 58,56,54,52,51,49,47,45,44,42,40,38,35,33,30,28,24,17, 4/
58072 DATA R3/ 4,19,27,30,32,34,35,37,38,39,41,42,44,46,47,49,51,52,54,
58073 * 16,26,30,32,34,35,37,38,39,41,43,44,46,47,49,51,52,54,30,
58074 * 17,27,31,33,35,36,38,39,41,42,44,46,47,49,51,52,54,49,30,
58075 * 18,28,32,34,36,37,39,40,42,44,46,47,49,50,52,54,53,48,29,
58076 * 19,29,34,36,37,39,40,42,44,45,47,49,50,52,53,54,52,47,28,
58077 ft 20,30,35,37,39,40,42,43,45,47,48,50,52,53,53,52,51,45,28,
58078 ft 20,31,36,39,40,41,43,45,46,48,50,51,53,53,52,51,49,44,27,
58079 * 21,32,38,40,41,43,45,46,48,49,51,52,54,52,51,50,48,43,27,
58080 * 22,33,39,41,43,44,46,48,49,51,52,54,52,51,49,48,47,42,26,
58081 ft 22,34,40,43,44,46,47,49,50,52,55,53,52,50,48,47,45,40,25,
58082 * 23,35,42,44,46,47,49,50,52,55,54,52,50,49,47,45,44,39,25,
58083 * 23,36,43,45,47,48,50,51,56,54,53,51,49,47,46,44,42,37,24,
58084 * 24,37,44,47,48,50,51,56,55,53,51,49,48,46,44,42,41,36,23,
58085 * 24,38,45,48,50,51,57,55,53,52,50,48,46,45,43,41,39,34,22,
58086 ft 24,39,46,50,51,57,56,54,52,50,48,47,45,43,41,40,37,32,21,
58087 * 25,39,48,51,58,56,54,52,51,49,47,45,44,42,40,38,35,31,20,
58088 ft 25,40,49,58,56,55,53,51,49,48,46,44,42,40,38,36,33,29,19,
58089 * 25,41,58,57,55,53,51,50,48,46,45,43,41,39,37,34,31,27,18,
58090 * 26,58,57,55,54,52,50,49,47,45,43,41,39,37,35,33,30,26,17,
58091 ft 59,57,55,54,52,50,49,47,45,44,42,40,37,35,33,30,27,19, 4/
58092 DATA RV 5,21,29,32,33,34,35,36,37,38,40,41,43,45,46,48,50,51,53,
58093 * 18,28,31,33,34,35,36,37,38,40,41,43,45,46,48,50,52,53,36,
58094 ft 19,29,32,34,36,36,37,39,40,41,43,45,47,49,50,52,54,52,35,
58095 ft 20,30,33,35,37,38,39,40,42,44,46,47,49,51,52,54,56,51,35,
58096 * 21,31,35,36,38,39,41,42,44,46,47,49,51,52,54,56,54,50,34,
58097 * 22,32,36,38,39,41,42,44,46,47,49,51,52,54,56,55,53,49,33,
58098 ft 23,32,37,39,40,42,44,46,47,49,51,52,54,56,55,53,51,47,33,
58099 * 23,33,38,40,42,44,46,47,49,51,52,54,56,55,53,52,50,46,32,
58100 ft 24,34,40,42,44,45,47,49,50,52,53,57,55,53,52,50,48,45,31,
58101 ft 25,35,41,43,45,47,48,50,52,53,57,56,54,52,50,49,47,43,30,
58102 ft 25,36,42,45,47,48,50,52,53,57,56,54,52,50,49,47,46,42,29,
58103 ft 26,37,44,46,48,50,51,53,58,56,54,53,51,49,47,46,44,40,28,
58104 ft 26,38,45,48,50,51,53,58,56,55,53,51,49,48,46,44,42,38,26,
58105 ft 26,39,46,49,51,52,58,57,55,53,51,50,48,46,44,43,41,36,25,
58106 * 27,40,48,51,52,58,57,55,53,52,50,48,47,45,43,41,39,34,23,
58107 ft 27,41,49,52,59,57,55,54,52,50,49,47,45,43,41,39,37,32,22,
58108 ft 27,42,50,59,57,56,54,52,51,49,47,46,44,42,40,37,35,30,21,
58109 ft 28,42,59,58,56,54,53,51,49,48,46,44,42,40,38,35,33,29,20,
58110 ft 28,59,58,56,54,53,51,49,48,46,44,42,40,38,36,33,32,28,19,
58111 ft 59,58,56,54,53,51,49,48,46,44,42,40,38,36,34,32,29,21, 5/
58112 DATA R5/ 6,23,31,33,34,34,34,35,35,36,37,39,40,42,44,45,47,49,51,
58113 * 21,30,33,34,34,34,35,35,36,37,39,40,42,44,46,47,49,51,41,
58114 ft 21,30,33,34,35,35,36,37,38,39,41,43,44,46,48,50,52,55,40,
58115 * 22,31,34,35,35,36,37,38,40,42,43,45,47,49,51,52,57,54,40,
»» BLOCK DATA 6 <«
-------
APPENDIX B
MOBILE2 DECEMBER 12, 1980
58116 * 23,31,34,36,37,38,39,40,42,44,46,48,49,51,53,58,56,52,39,
58117 * 24,32,35,37,38,39,41,43,45,46,48,50,52,53,58,56,55,51,38,
58118 * 24,32,36,38,40,41,43,45,47,49,50,52,53,58,57,55,53,^9,37,
58119 ft 25,33,37, **0,42,43,45,47,49,51,52,54,58,57,55,53,51,48,36,
58120 * 25,3^,39,^2,44,45,47,49,51,52,54,58,57,55,53,52,50,46,35,
5812) * 26,34,40,43,45,*«7,1*9,50,52,5**,59,57,55,54,52,50,48,45,33,
58122 * 26,35,1*2,45,47,49,51,52,54,59,57,56,54,52,50,49,47,43,32,
58123 * 27,36,43,47,49,51,52,53,59,57,56,54,52,51,49,^7,45,42,31,
58124 * 27,37,44,48,50,52,53,59,58,56,54,52,51,49,48,46,44,40,29,
58125 ft 28,38,46,49,52,53,59,58,56,54,53,51,49,^8,46,44,42,38,27,
58126 * 28,39,47,51,53,59,58,56,54,53,51,1*9, ^8,46,44,42,40,35,25,
58127 * 28,40,49,52,59,58,56,55,53,51,50,48,46,44,42,40,38,33,23,
58128 * 29,M,50,59,58,56,55,53,51,50,48,46,44,42,40,38,35,31,22,
58129 * 29,42,59,58,56,55,53,51,50,48,46,44,42,40,38,36,33,30,21,
58130 * 29,59,58,56,55,53,51,50,48,46,45,43,40,38,36,3^33,30,21,
58131 * 59,58,56,55,53,51,50,48,46,45,43,40,38,36,34,33,31,23, 6/
58132 DATA R6/ 3,17,26,31,33,35,37,38,39,40,42,43,44,45,47,48,49,51,52,
58133 * 14,24,29,32,34,36,37,39,'tO,41,42,44,45,46,47,49,50,51,13,
58134 * 13,22,27,31,33,35,36,37,39, MD,41,42,44,45,46,47,49,19,13,
58135 * 13,21,26,29,32,34,35,36,38,39,^0,42,43,44,45,47,23,19,13,
58136 * 12,20,25,28,31,33,34,36,37,38,40,41,42,44,45,26,23,19,13,
58137 * 12,20,24,28,30,32,34,35,37,38,40,41,42,43,29,26,23,19,13,
58138 * 12,19,24,27,30,31,33,35,36,38,39,40,42,31,29,26,23,19,13,
58139 ft 12,19,23,27,29,31,33,35,36,37,39,40,33,31,29,27,24,19,13,
58140 * 12,19,23,27,29,31,33,35,36,37,39,35,33,31,29,27,24,19,13,
58141 * 12,18,23,26,29,31,33,34,36,37,36,35,33,32,30,27,24,20,13,
58142 ft 12,18,23,26,29,31,33,35,36,38,37,35,34,32,30,28,24,20,13,
58143 * 12,18,23,26,29,31,33,35,40,38,37,35,34,32,30,28,24,20,13,
58144 * 12,18,23,26,29, 31,33,M, 40,38, 37,35,34,32,30, 28,25,20,13,
58145 * 12,18,23,26,29,31,^2,41,40,38,37,36,3^,33,31,28,25,21,14,
58146 * 12,18,23,26,29,44,43,41,40,39,38,36,35,33,31,29,26,21,14,
58147 * 12,18,23,26,46,45,43,42,41,40,38,37,35,34,32,30,26,22,14,
58148 ft 12,18,23,48,47,45,44,43,42,40,39,38,36,35,33,31,27,23,14,
58149 ft 12,18,50,49,47,46,45,44,42,41,40,39,37,36,35,32,29,24,15,
58150 ft 12,52,51,50,49,48,46,45,44,43,41,40,39,38,36,34,31,26,15,
58151 A 53,52,51,50,48,47,46,44,43,42,41,40,38,37,35,33,28,19, 3/
58152 DATA R7/ 4,22,30,34,37,38,40,41,43,44,45,46,48,49,50,51,53,54,55,
58153 * 18,29,34,36,38,39,41,42,43,45,46,47,49,50,51,52,53,55,22,
58154 * 18,28,33,36,38,39,41,42,43,45,46,47,48,50,51,52,53,29,22,
58155 * 18,28,33,36,38,39,41,42,43,45,46,47,48,50,51.52,34,29,22,
58156 * 18,28,32,35,38,39,41,42,43,44,46,47,48,49,51,37,33,29,22,
58157 * 19,27,32,35,37,39,40,42,43,44,46,47,48,49,39,36,33,29,21,
58158 * 19,27,32,35,37,39,40,42,43,44,45,47,48,41,39,36,33,29,21,
58159 * 19,27,31,34,37,39,40,42,43,44,46,47,42,40,38,36,33,28,21,
58160 * 19,27,31,3^,37,39,40,42,43,45,46,44,42,40,38,36,33,28,21,
58161 * 19,27,31,35,37,39,40,42,43,45,45,43,42,40,38,36,33,28,21,
58162 * 19,27,32,35,37,39,41,42,44,46,44,43,42,40,38,36,32,28,21,
58163 * 19,27,32,35,37,39,*»1,43,47,^6,44,43,41,40,38,35,33,28,21,
58164 * 19,27,32,35,38,40,42,48,47,46,44,43,41,40,38,36,33,28,21,
58165 * 19,27,32,35,38,40,49,48,47,46,44,43,41,40,38,36,33,28,21,
58166 * 20,27,32,36,38,50,49,48,47,45,1*1*, ^3,41,40,38,36,33,29,21,
58167 * 20,27,32,36,52,51,^9,48,47,46,44,43,42,40,39,37,34,29,21,
58168 * 20,28,33,54,53,52,50,49,48,46,45,44,42,41,39,37,35,30,21,
58169 * 20,28,56,5^,53,52,50,49,48,47,45,44,43,41,40,38,36,31,21,
58170 * 20,57,56,55,53,52,50,49,48,47,46,44,43,42,41,39,37,32,21,
58171 ft 57,56,55,5^,52,51,50,48,47,46,45,43,42,41,40,38,34,25, 5/
58172 DATA R8/ 5,25,33,37,39,41,42,43,45,46,47,48,49,50,51,52,5^,55,56,
58173 ft 22,32,36,39,40,42,43,45,46,47,48,49,50,51,52,54,55,56,29,
»» BLOCK DATA 6 <«
-------
APPENDIX B
MOBILE2 DECEMBER 12, 1980
58m * 22,32,37,39,Mi **3, M», 45,47,48,49,50,51,52,53,55,56, 39,29,
58175 * 23,33,37, **0,41,43,44,46,47,48,49,51,52,53,54,55,43,38,28,
58176 * 24,33,37,40,42,43,45,46,47,48,50,51,52,53,55,46,42,38,28,
58177 * 24,33,38,40,42,44,45,46,48,49,50,51,53,54,48,45,42,38,28,
58178 * 24,33,38,41,43,44,46,47,48,50,51,52,53,1*9,47,45,42,37,28,
58179 * 25,34,38,41,43,45,46,48,49,50,51,53,50,48,46,44,42,37,28,
58180 * 25,34,39,*»2,44,45,47,48,49,51,52,51,49,^8,46,44,41,37,27,
58181 * 25,3**, 39,^2,44,46,47,49,50,52,51,50,49,47,46,44,41,37,27,
58182 * 25,35,40,43,45,46,48,49,50,53,51,50,49,47,46,44,41,36,27,
58183 * 26,35,40,43,45,47,48,50,54,53,51,50,49,47,46,43,41,36,27,
58184 * 26,35,40,43,46,47,49,55,5^,52,51,50,48,47,45,43,40,36,26,
58185 * 26,36,41,44,46,48,56,5*4,53,52,50,49,48,46,45,43,40,35,26,
58186 * 26,36,41,44,47,57,55,54,52,51,50,48,47,46,44,42,40,35,26,
58187 * 27,36,41,45,57,56,5^,53,52,51,^9,^8,47,45,44,42,39,35,26,
58188 * 27,37, **2,58,57,55,51*,53,52,50,49,48,46,45,43,42,39,35,25,
58189 * 27,37,59,58,56,55,51*,53,51,50,49,47,46,45,43,42,39, 35,25,
58190 * 27,59,57-56,55,51*,52,51,50,49,48,47,45,44,43,42,39,35,25,
58191 * 58,57,56,55,53,52,51,50,49,48,47,46,44,43,42,40,37,28, 6/
58192 DATA R9/ 6,27,35,38,40,41,42,43,44,45,46,47,49,50,51,52,53,55,55,
58193 * 24,31*, 38,40,41,43,44,45,46,47,48,49,50,51,52,53,5**, 55,34,
58194 * 25,35,39,M,43,44,45,46,47,48,49,50,51,52,53,54,55,46,34,
58195 * 26,36,40,42,44,45,46,47,48,49,50,51,52,53,54,56,51,45,34,
58196 * 27,37,41,43,45,46,47,48,49,50,51,52,53,55,56,53,50,45,33,
58197 * 28,37,**2,44,45,47,48,49,50,51,52,54,55,56,55,53,49,44,33,
58198 * 28,38,42,45,46,48,49,50,51,52,54,55,56,56,54,52,49,44,33,
58199 * 29,39,43,45,47, <*9,50,51.52,53,55,56,56,55,53,51,48,43,32,
58200 * 29,39,44,46,48,49,51,52,53,54,56,57,55,54,52,50,48,43,32,
58201 * 30,40,44,47,49,50,51,53,54,55,57,56,54,53,51,49,47,42,32,
58202 * 30,40,45,48,49,51,52,53,55,57,56,55,53,52,51,49,^6,42,31,
58203 * 30,41,45,48,50,51,53,5'*,58,57,55,54,53,51,50,48,45,41,31,
58204 * 31,41,46,49,51,52,54,59,57,56,55,53,52,51,49,47,45,40,30,
58205 * 31,42,47,50,52,53,59,58,56,55,54,53,51,50,48,47,44,40,30,
58206 * 32,42,47,50,52,59,58,56,55,54,53,51,50,49,48,46,43,39,29,
58207 * 32,43,48,51,59,57,56,55,53,52,51,50,49,48,47,45,43,39,28,
58208 * 32,43,48,58,57,55,54,53,52,51,50,49,48,47,46,44,42,38,28,
58209 * 32,43,57,56,55,54,53,52,51,50,49,48,47,46,45,44,41,37,27,
58210 * 33,56,55,54,53,52,51,50,49,48,47,47,46,45,44,43,41,38,27,
58211 ft 56,55,5'*,53,52,51,50,49,48,47,46,46,45,44,43,42,39,31, II
58212 DATA RIO/ 7,28,35,38,39,41,42,43,44,46,47,48,49,50,51,52,53,54,55,
58213 * 26,35,38,39,41,42,43,44,46,47,48,49,50,51,52,53,54,55,38,
58214 * 27,36,39,41,42,43,44,46,47,48,49,50,51,52,53,54,55,49,37,
58215 * 28,36,40,42,43,44,45,47,48,49,50,51,52,53,54,55,54,48,37,
58216 * 29,38,41,43,44,45,47,48,49,50,51,52,53,54,55,57,53,48,37,
58217 * 30,39,42,44,45,46,48,49,50,51,52,53,54,55,58,55,52,47,36,
58218 * 31,39,43,^5,^6,48,49,50,51,52,53,54,55,58,56,54,51,47,36,
58219 * 31,40,44,46,48,49,50,51,52,53,5'*,55,58,57,55,53,51,46,35,
58220 * 32,41,45,47,49,50,51,52,53,5'*,55,58,57,55,5'*,52,50,45,35,
58221 A 33,^2,46,48,50,51,52,53,5'*,56,58,56,55,54,53,51, ^9,44,34,
58222 * 33, ^3,'t?, 49,51,52,53,5'*,56,57,56,55,5'*,53,51,50,48,43,3'*,
58223 * 34,44,48,50,52,53,54,56,57,56,55,54,53,52,50,49,47,42,33,
58224 * 3**,^5,49,51,53,5^,56,57,55,54,53,52,51,50,49,48,46,42,32,
58225 * 35,45,50,52,54,55,56,55,54,53,52,51,50,49,48,47,45,41,32,
58226 * 35,46,50,53,55,56,55,5^,53,52,51,50,49,48,47,46,44,40,31,
58227 * 36,47,51,54,56,55,54,53,52,51,50,49,48,47,46,45,43,39,30,
58228 * 36,47,52,55,54,53,53,52,51,50,49,48,47,46,45,44,42,39,30,
58229 * 36,48,55,54,53,52,51,51,50,49,48,47,46,45,45,43,42,39,29,
58230 * 37,55,5'*,53,52,51,50,49,49,48,47,46,45,45,44,43,42,39, 30,
58231 * 55,5^,53,52,51,50,49,48,48,47,46,45,45,44,43,43,40,33, 8/
»» BLOCK DATA 6 <«
-------
APPENDIX B
MOBILE2 DECEMBER 12, 1980
58232 DATA Rii/ i, 6,12,17,21,24,27,30,33,36,39,41,44,46,48,50,52,53,55,
58233 * 4,11,16,20,24,27,30,33,35,38,41,43,45,47,49,51,53,55, 9,
58234 * 4,13,18,22,26,29,31,34,37,39,42,44,46,48,50,52,54,31, 9,
58235 * 5,14,21,25,28,30,33,35,38,40,43,45,47,49,51,53,41,30, 8,
58236 * 5,16,23,27,29,32,35,37,39,42,44,46,48,50,52,44,40,29, 8,
58237 * 5,17,24,28,31,34,36,38,40,43,45,47,49,51,45,43,39,29, 8,
58238 * 5,18,26,30,33,35,37,39,41,44,46,48,49,45,44,41,37,28, 8,
58239 * 6,20,28,32,34,36,38,41,43,45,47,48,46,44,42,40,36,27, 8,
58240 * 6,21,30,33,36,38,40,42,44,46,48,46,45,43,41,38,35,26, 8,
5824] * 6,22,31,35,37,40,42,43,45,47,47,45,43,41,39,37,33,24, 7,
58242 * 6,23,33,37,39,41,43,45,47,47,45,43,42,40,37,35,31,23, 7,
58243 * 6,25,34,38,41,43,45,46,48,46,44,42,40,38,36,33,30,22, 7,
58244 * 6,26,36,40,42,44,46,48,47,45,43,41,38,36,34,32,28,20, 7,
58245 * 7,27,37,41,44,46,49,47,46,44,41,39,37,35,33,30,27,19, 7,
58246 * 7,28,39,43,45,50,49,47,45,43,40,38,36,34,31,29,25,18, 6,
58247 * 7,29,40,44,51,50,48,46,44,42,39,37,35,32,30,27,23,17, 6,
58248 * 7,29,41,53,51,49,47,45,43,40,38,36,33,30,28,25,21,15, 6,
58249 * 7,30,54,52,50,48,46,44,42,39,37,34,32,29,26,23,19,14, 5,
58250 * 7,55,53,51,49,47,45,43,41,38,36,33,30,27,24,21,17,12, 5,
58251 * 55,53,52,50,48,46,44,41,39,36,33,31,27,24,21,17,13, 7, I/
58252 DATA R12/ 2,10,18,23,26,30,33,36,39,42,44,46,48,50,52,54,56,58,59,
58253 * 8,17,22,26,29,33,36,39,41,44,46,48,50,52,54,56,57,59,17,
58254 * 9,19,25,29,32,35,38,40,43,45,47,50,51,53,55,57,58,42,16,
58255 * 9,21,28,31,34,37,40,42,44,47,49,51,53,54,56,58,52,42,16,
58256 * 9,24,31,34,36,39,41,44,46,48,50,52,54,55,57,52,50,41,16,
58257 * 10,26,33,36,38,40,43,45,47,49,51,53,55,56,52,51,49,40,16,
58258 * 10,28,36,38,40,42,44,46,48,50,52,54,56,52,51,50,48,39,15,
58259 * 10,29,38,40,42,43,46,48,50,52,53,55,52,50,49,48,46,38,15,
58260 * 11,31,40,42,43,45,47,49,51,53,54,52,51,49,48,47,45,37,15,
58261 * 11,32,41,44,45,46,48,50,52,54,53,51,49,47,46,45,43,35,14,
58262 * 11,34,43,45,46,48,49,51,53,54,52,50,48,46,45,44,42,34,14,
58263 * 11,35,45,47,48,49,51,52,54,53,51,49,47,45,43,42,40,32,13,
58264 * 12,36,46,49,49,50,52,55,53,52,50,48,46,44,42,40,38,31,13,
58265 * 12,37,48,50,51,52,56,54,52,50,48,47,44,42,40,38,36,29,12,
58266 * 12,38,49,51,52,56,55,53,51,49,47,45,43,41,38,36,34,27,12,
58267 * 12,39,50,53,57,55,54,52,50,48,46,44,41,39,36,34,31,25,11,
58268 * 12,40,51,58,56,54,53,51,49,47,45,42,40,37,34,32,28,22,11,
58269 * 12,41,58,57,55,53,52,50,48,46,43,41,38,35,32,29,26,20,10,
58270 * 13,59,58,56,54,52,50,49,47,44,42,39,37,34,30,27,23,18, 9,
58271 * 59,58,56,54,53,51,49,47,45,42,40,37,34,31,27,23,19,11, 3/
58272 DATA R13/ 4,14,21,26,29,33,36,39,42,44,46,48,50,52,54,56,58,59,60,
58273 * 12,21,26,29,32,36,39,41,44,46,48,50,52,54,56,57,59,60,24,
58274 * 12,23,29,32,35,38,41,43,45,48,50,52,53,55,57,58,60,49,23,
58275 * 13,26,32,35,37,40,42,45,47,49,51,53,55,56,58,60,56,48,23,
58276 * 13,28,34,37,39,42,44,46,48,50,52,54,56,58,59,56,55,47,22,
58277 * 14,30,37,39,41,44,46,48,50,52,54,55,57,59,56,55,54,46,22,
58278 * 14,32,39,42,43,45,47,49,51,53,55,57,58,55,54,54,52,45,22,
58279 * 15,34,41,44,45,47,49,51,53,54,56,58,56,54,53,52,51,43,21,
58280 * 15,36,43,45,47,48,50,52,54,56,57,56,54,53,51,51,49,42,21,
58281 * 16,37,45,47,48,50,52,54,55,57,56,55,53,51,50,49,47,41,20,
58282 * 16,39,47,49,50,51,53,55,56,57,55,54,52,50,48,47,46,39,19,
58283 * 16,40,49,51,51,53,54,56,57,56,54,52,50,49,47,46,44,38,19,
58284 * 17,41,50,52,53,54,56,58,56,55,53,51,49,47,45,44,42,36,18,
58285 * 17,43,52,54,54,55,58,57,55,53,52,50,48,45,43,42,40,34,17,
58286 * 17,44,53,55,56,59,57,56,54,52,50,48,46,44,42,40,38,32,16,
58287 * 18,45,55,57,59,58,56,54,53,51,49,47,45,42,40,38,35,30,16,
58288 * 18,46,56,60,58,57,55,53,51,49,47,45,43,40,38,35,33,27,15,
58289 * 18,47,60,59,57,55,54,52,50,48,46,44,41,39,36,33,30,25,13,
»» BLOCK DATA 6 <«
-------
APPENDIX B
MOBILE2 DECEMBER 12, 1980
58290 * 19,61,59,58,56,54,52,51,49,47,44,42,40,37,34,30,27,22,12,
58291 ft 61,59,58,56,54,53,51,49,47,45,42,40,37,34,31,27,23,15, 4/
58292 DATA R14/ 4,17,24,28,31,3'*,37,40,42,45,47,49,51,53,55,56,58,60,6l,
58293 >'' 15,24,28,31,34,37,39,42,45,47,49,51,53,55,56,58,60,61,30,
58294 * 16,26,31,34,37,39,42,44,46,49,51,53,54,56,58,59,61,54,29,
58295 * 16,29,34,37,39,42,44,46,48,50,52,54,56,58,59,61,59,52,29,
58296 * 17,31,36,39,42,44,46,48,50,52,54,56,57,59,60,59,58,52,28,
58297 ft 18,33,39,41,43,46,48,50,52,54,55,57,59,60,58,57,56,50,28,
58298 * 19,35,41,44,45,47,49,51,53,55,57,58,60,58,57,56,55,49,27,
58299 * 19,37,44,46,47,49,51,53,55,56,58,60,58,57,55,54,53,48,27,
58300 * 20,39,46,48,49,51,52,54,56,58,59,58,57,55,54,53,52,46,26,
58301 * 20,41,48,49,51,52,54,56,58,59,59,57,56,54,52,51,50,45,25,
58302 ft 21,43,50,51,52,54,56,57,59,59,58,56,54,52,51,50,48,43,25,
58303 * 21,44,51,53,54,55,57,58,59,58,56,55,53,51,49,48,47,41,24,
58304 * 22,46,53,55,55,56,58,60,58,57,55,53,51,49,48,46,44,39,23,
58305 * 22,47,55,56,57,58,60,58,57,55,54,52,50,48,46,44,42,37,22,
58306 ft 22,48,56,58,58,60,59,57,56,54,52,50,48,46,44,42,40,35,21,
58307 * 23,49,57,59,61,59,58,56,54,53,51,49,47,45,42,40,38,33,19,
58308 ft 23,50,59,61,60,58,56,55,53,51,49,47,45,43,40,38,35,30,18,
58309 * 23,51,61,60,58,57,55,53,51,49,47,45,43,40,38,35,32,28,17,
58310 ft 24,61,60,58,57,55,53,52,50,48,45,43,41,38,36,33,30,25,16,
58311 * 61,60,59,57,55,53,52,50,48,46,43,41,38,36,33,30,26,18, 5/
58312 DATA R15/ 5,19,25,29,32,35,37,40,42,45,47,49,51,53,55,56,58,60,61,
58313 »'< 17,25,29,32,35,37,40,42,45,47,49,51,53,55,57,58,60,61,35,
58314 * 18,28,32,35,37,40,42,45,47,49,51,53,55,57,58,60,61,57,34,
58315 * 19,30,35,38,40,42,45,47,49,51,53,55,56,58,60,61,61,56,34,
58316 * 20,33,38,40,42,45,47,49,51,53,55,56,58,60,61,61,60,54,33,
58317 * 21,35,40,42,45,47,49,51,53,55,56,58,60,61,60,59,58,53,32,
58318 * 22,38,43,45,47,49,51,53,55,56,58,60,61,60,59,58,57,52,32,
58319 * 23,40,45,47,49,51,53,54,56,58,59,61,60,59,57,56,55,50,31,
58320 * 24,42,47,49,51,52,54,56,58,59,61,60,59,57,56,55,54,49,30,
58321 * 24,44,50,51,53,54,56,58,59,61,61,59,58,56,54,53,52,47,29,
58322 * 25,45,52,53,54,56,57,59,60,61,59,58,56,54,53,52,50,46,28,
58323 * 26,47,53,55,56,57,59,60,61,60,58,56,55,53,51,50,48,44,27,
58324 * 26,48,55,56,57,59,60,61,60,58,57,55,53,51,49,48,46,42,26,
58325 * 27,50,57,58,59,60,61,60,58,57,55,53,51,49,48,46,44,40,25,
58326 * 27,51,58,59,60,61,60,58,57,55,53,52,50,48,46,44,42,37,24,
58327 * 28,53,59,61,61,60,59,57,55,54,52,50,48,46,43,41,39,35,22,
58328 * 28,54,61,61,60,59,57,55,54,52,50,48,46,44,41,39,37,33,21,
58329 * 29,55,61,60,59,57,55,54,52,50,48,46,44,42,39,37,34,30,20,
58330 * 29,61,60,59,57,56,54,52,50,48,46,44,42,39,37,34,31,28,19,
58331 ft 61,60,59,57,56,54,52,50,48,46,44,42,39,37,34,31,28,21, 6/
58332 DATA R16/ 3,12,18,22,26,29,32,35,37,39,40,42,44,45,46,48,49,50,52,
58333 * 10,16,21,25,28,31,34,36,38,39.41,43,44,46,47,48,50,51,15,
58334 ft 9,15,20,23,27,29,31,34,36,37,39,41,42,44,45,47,48,21,15,
58335 * 9,15,19,22,25,28,30,32,34,36,37,39,40,42,43,45,25,21,15,
58336" * 9,14,18,21,24,27,29,31,33,35,36,38,39,41,42,28,25,21,15,
58337 * 9,14,18,21,24,26,28,30,32,34,36,37,39,40,30,27,25,21,15,
58338 ft 9,14,18,21,24,26,28,30,32,34,35,37,39,31,29,27,24,21,15,
58339 * 9,14,18,21,24,26,28,30,31,33,35,36,33,31,29,27,25,21,15,
58340 ft 9,14,18,21,24,26,28,30,31,33,35,35,33,31,29,27,24,20,15,
58341 * 9,15,18,21,24,26,28,30,32,33,37,36,34,32,30,27,24,20,15,
58342 ft 9,15,18,21,24,26,28,30,32,39,38,36,34,32,30,27,24,20,14,
58343 * 9,14,18,22,24,26,28,30,41,39,37,35,34,32,29,27,24,20,14,
58344 ft 9,15,19,22,24,26,28,42,41,39,37,35,33,31,29,27,23,20,14,
58345 * 9,15,19,22,24,26,44,42,41,39,37,35,33,31,29,26,23,19,14,
58346 ft 9,15,19,22,24,46,45,43,41,39,38,35,33,31,29,26,23,19,14,
58347 * 9,15,19,22,49,47,45,44,42,40,38,36,34,31,29,26,23,19,14,
»» BLOCK DATA 6 <«
-------
APPENDIX B
MOBILE2 DECEMBER 12, 1980
58348 * 9,15,19,52,50,48,46,45,43,41,39,37,35,32,30,26,23,19,14,
58349 * 9,15,54,53,51,50,48,46,45,43,41,39,36,34,31,28,24,19,13,
58350 * 10,58,57,55,54,52,51,49,47,45,43,41,39,36,33,30,25,20,13,
58351 * 59,58,56,55,53,52,50,49,47,45,42,40,37,34,31,27,22,16, 4/
58352 DATA R17/ 5,19,26,31,34,36,38,40,42,43,45,46,47,49,50,51,52,54,55,
58353 * 16,24,30,33,35,37,39,41,43,44,45,47,48,49,51,52,53,55,28,
58354 ft 16,25,30,33,35,37,39,41,42,44,45,46,48,49,51,52,53,35,28,
58355 * 17,25,30,33,35,38,39,41,42,44,45,46,48,49,51,52,39,35,28,
58356 * 17,25,29,33,35,37,39,41,42,44,45,47,48,50,51,42,38,34,27,
58357 * 17,24,29,32,34,37,39,40,42,44,45,46,48,49,43,41,38,34,27,
58358 ft 17,24,28,31,34,36,38,40,41,43,44,46,47,45,43,40,37,33,27,
58359 * 17,24,28,31,34,36,38,39,M,42,44,45,46,44,42,40,37,33,27,
58360 ft 17,24,28,31,34,36,38,39,41,42,44,47,45,43,41,39,36,33,26,
58361 * 17,24,28,32,34,36,38,39,41,42,48,46,45,43,41,38,36,32,26,
58362 * 17,24,29,32,34,36,38,40,41,49,47,46,44,42,40,38,35,32,26,
58363 * 17,24,29,32,34,36,38,40,50,49,47,45,44,42,40,38,35,32,25,
58364 * 17,25,29,32,35,37,39,52,50,49,47,45,44,42,40,38,35,32,25,
58365 * 18,25,29,33,35,37,54,52,51,49,47,46,44,42,40,38,35,31,25,
58366 * 18,25,30,33,36,55,54,52,51,49,48,46,44,42,40,38,35,31,25,
58367 * 18,25,30,33,57,56,55,53,52,50,48,47,45,43,41,38,35,31,24,
58368 ft 18,25,30,60,58,57,56,54,53,51,49,48,46,44,42,39,35,31,24,
58369 * 18,26,62,60,59,57,56,54,53,51,50,48,46,44,42,39,36,32,23,
58370 * 18,63,62,61,59,58,56,55,53,52,50,48,46,44,42,40,37,32,23,
58371 * 64,63,61,60,59,57,55,54,52,51,49,47,45,43,41,38,33,25, 7/
58372 DATA R18/ 6,23,31,35,38,40,42,43,45,46,47,49,50,51,52,53,54,55,56,
58373 * 21,29,34,37,39,41,43,44,46,47,48,49,50,51,53,54,55,56,36,
58374 * 20,30,34,37,40,41,43,44,46,47,48,50,51,52,53,54,56,47,36,
58375 * 21,30,35,38,40,42,44,45,46,48,49,50,52,53,54,55,50,46,36,
58376 * 21,31,35,38,41,43,44,46,47,48,49,51,52,53,55,52,50,46,35,
58377 * 21,31,36,39,41,43,44,46,47,49,50,51,53,5^,54,52,49,45,35,
58378 * 22,31,36,39,42,43,45,46,48,49,50,52,53,55,53,51,49,45,35,
58379 * 22,31,37,40,42,44,46,47,48,50,51,53,55,54,52,50,48,44,35,
58380 * 22,32,37,40,43,44,46,48,49,50,52,56,55,53,52,50,48,44,34,
58381 * 22,32,37,41,43,45,47,49,50,51,57,56,54,53,51,50,47,43,34,
58382 ft 22,32,38,41,44,46,48,49,50,58,57,56,54,53,51,49,47,42,33,
58383 * 22,33,38,42,45,47,48,50,60,58,57,56,54,53,51,49,46,42,33,
58384 * 23,33,39,43,45,47,49,61,59,58,57,55,53,52,50,48,45,41,32,
58385 * 23,33,39,43,46,48,61,60,59,57,56,54,53,51,49,47,45,41,32,
58386 ft 23,34,40,44,46,63,61,60,58,57,55,54,52,51,49,47,44,40,32,
58387 ft 23,34,40,44,63,62,61,59,58,56,55,53,52,50,48,46,44,40,31,
58388 ft 23,34,41,65,63,62,61,59,58,56,55,53,52,50,48,46,43,39,30,
58389 * 23,35,66,64,63,62,60,59,57,56,55,53,51,50,48,45,43,38,29,
58390 ft 24,65,64,63,61,60,59,57,56,55,54,52,51,49,47,45,42,38,29,
58391 * 65,64,63,61,60,59,57,56,55,54,52,51,49,47,45,43,39,31, 9/
58392 DATA R19/ 8,28,36,39,42,44,45,46,48,49,50,51,52,53,54,55,56,57,58,
58393 * 26,35,39,41,43,45,46,47,48,50,51,52,53,54,55,56,57,58,40,
58394 ft 26,35,39,42,44,45,47,48,49,50,51,52,53,54,55,56,57,54,40,
58395 * 25,35,39,42,44,46,47,48,49,50,51,52,54,55,56,57,59,53,40,
58396 * 25,35,40,43,45,46,47,49,50,51,52,53,54,55,56,61,58,53,39,
58397 * 25,35,40,43,45,46,48,49,50,51,53,54,55,56,62,60,57,52,39,
58398 ft 25,35,40,43,45,47,48,49,51,52,53,54,56,62,61,59,56,51,39,
58399 * 25,36,41,44,46,48,49,50,52,53,54,56,63,61,60,58,55,51,38,
58400 ft 25,36,42,45,47,49,50,52,53,54,55,63,62,60,59,57,55,50,38,
58401 ft 26,37,^2,46,48,50,51,52,5^,55,64,62,61,60,58,56,54,49,37,
58402 ft 26,37,43,46,49,50,52,53,55,64,63,61,60,59,57,56,53,48,37,
58403 ft 26,38,44,47,50,51,53,54,65,63,62,61,59,58,56,55,52,47,36,
58404 ft 27,38,44,48,50,52,54,65,64,63,61,60,59,57,56,54,51,46,36,
58405 ft 27,39,45,49,51,53,66,64,63,62,60,59,57,56,54,53,50,46,35,
»» BLOCK DATA 6 <«
-------
58406
58407
58408
58409
58410
58411
58412
58413
58414
58415
58416
58417
58418
58419
58420
58421
58422
58423
58424
58425
58426
58427
58428
58429
58430
58431
58432
58433
58431*
58435
58436
58437
58438
58439
58440
58441
58442
58443
58444
58445
58446
58447
58448
58449
58450
58451
58452
58453
58454
58455
58456
58457
58458
58459
58460
58461
58462
58463
APPENDIX B
ft
it
ft
*
*
A
*
ft
ft
ft
ft
ft
ft
ft
ft
ft
ft
ft
ft
ft
ft
ft
ft
ft
ft
ft
ft
ft
ft
ft
ft
ft
ft
ft
ft
ft
ft
ft
ft
ft
ft
ft
ft
ft
ft
ft
ft
ft
ft
ft
ft
ft
ft
ft
27,
27,
27,
27,
28,
62,
DATA R20/ 9
29,
30,
31,
31,
31,
31,
31,
31,
31,
31,
31,
31,
31,
31,
31,
31,
31,
32,
62,
TECHNOLOGY
DATA Tl/ 8,
24,
29,
32,
3*i,
35,
36,
37,
38,
38,
39,
39,
40,
1*0,
40,
1*1,
1*1,
41,
M,
32,
DATA T27 9,
26,
31,
35,
37,
38,
39,
40,
41,
42,
1*2,
39,
40,
40,
1*1,
63,
61,
.32
38,
39,
40,
1*0,
1*1,
M,
42,
42,
1*2,
42,
1*3,
1*3,
1*3,
1*3,
1*1*.
44,
44,
62,
61,
4
23,
28,
31,
34,
35,
36,
37,
38,
38,
39,
39,
40,
40,
40,
40,
M,
1*1,
<*1,
32,
32,
26,
31,
3*.
37,
38,
39,
40,
41,
1*2,
1*2,
1*3,
1*6,49,
1*6,50,
1.7.65,
64,63,
62,60,
60,59,
,38,41
1*1,1*3,
1*3,1*5,
1*3,1*6,
44,46,
45,1*7,
45,1*8,
46,48,
1*6,49,
47,50,
1*7,50,
1*8,51,
48,51,
1*9,52,
1*9,53,
50,53,
50,62,
62,61,
61,60,
60,59,
MOB
52,
65,
63,
61,
59,
58,
,1*3
<*5,
46,
1*7,
48,
48,
1*9,
50,
51,
51,
52,
53,
53,
51*.
55,
62,
61,
60,
59,
58,
ILE2
66,64,
64,63,
62,61,
60,59,
58,57,
57,56,
,1*5,1*7
47,1*8,
1*8,49,
48,50,
1+9,50,
50,51,
51,52,
51,52,
52,53,
53,54,
53,55,
51*. 55,
55,56,
56,63,
62,61,
6l,6o,
60,59,
59,58,
58,57,
57,56,
1980
1*5,31*,
1*1*. 31*,
1*3,33,
1*2,32.
42,32,
35,107
,59,60,
60,42,
56,42,
55,1*1,
51*. 1*1,
51*. 40,
53,40,
52,40,
51,39,
50,38,
1*9,38.
1*8,37.
1*7,36,
46,36,
45,35,
1*5,35,
1*5,35,
1*1*. 35,
45,36.
38.11/
REDUCTIONS:
28,31,
31,33,
33,35,
35,36,
36,37,
37,37,
38,38,
38,38,
39,39,
39,39,
39,39,
40,40,
40,40,
40,40,
40,40,
41,41,
1*1,32,
32,32,
32,32,
32,32,
31,3**,
3i», 36,
36,38,
38,39,
39,1*0,
40,41,
1*1,1*1,
41,42,
42,42,
42,43,
**3, 1*3,
33,
35,
36,
37,
37,
38,
38,
39,
39,
39,
40,
40,
40,
40,
40,
32,
32,
32,
32,
32,
36,
38,
39,
40,
40,
1*1,
42,
42,
42,
1*3,
1*3,
35,36,
36,36,
36,37,
37,38,
38,38,
38,38,
38,39,
39,39,
39,39,
39,40,
40,40,
40,40,
40,40,
40,32,
32,32,
32,32,
32,32,
32,32,
32,32,
32,32,
38,39,
39,40,
40,40,
40,41,
41,41,
41,42,
42,42,
42,42,
43,43,
l*3,<*3,
1*3,1*3,
36,37,
37,37,
37,38,
38,38,
38,38,
39,39,
39,39,
39,39,
39,39,
40,40,
40,40,
1*0,33,
33,33,
32,33,
32,32,
32,32,
32,32,
32,32,
32,32,
32,32,
40,40,
40,41,
41,41,
1*1,42,
42,42,
42,42,
42,42,
1*3,1*3,
43,43,
43,1*3,
1*3,1*3,
37,38,
38,38,
38,38,
38,39,
39,39,
39,39,
39,39,
39,39,
40,40,
40,33,
33,33,
33,33,
33,33,
33,33,
33,33,
32,33,
32,32,
32,32,
32,32,
32,32,
1*1,1*1,
41,41,
41,42,
1*2,42,
42,42,
42,42,
1*3,1*3,
1*3,1*3,
43,1*3,
43,1*1,
1*0,41,
38,38,
38,38,
39,39,
39,39,
39,39,
39,39,
39,39,
1*0,31*,
34,34,
34,34,
33,34,
33,33,
33,33,
33,33,
33,33,
33,33,
33,33,
32,32.
32,32,
32,32,
41,42,
42,42,
42,42,
42,42,
42,43,
1*3,1*3,
1*3,1*3,
43,41,
41,41,
41,41,
1*1,1*1,
38,39,
39,39,
39,39,
39,39,
39,39,
39,35,
34,31*.
31*. 31*.
34,34,
34,34,
34,34,
33,31*,
33,33,
33,33,
33,33,
33,33,
33,33,
32,32,
32,32,
32,31,
42,42,
42,42,
42,42,
1*2,43,
43,43,
1*3,1*2,
42,42,
41,42
41,41,
41,41,
1*1,1*1,
39,39,
39,39,
39,39,
39,35,
35,35,
35,35,
35,35,
31*. 35,
34,35,
34,34,
34,34,
31*. 31*,
34,31*.
33,33,
33,33,
33,33,
33,32,
32,32,
32,31,
31,30,
1*2,42,
42,42,
1*3,1*3,
1*3,1*3,
42,42,
42,42,
42,42,
42,42,
41,42,
41,41,
1*1,1*1,
39,39,
39,36,
36,36,
35,36,
35,36,
35,35,
35,35,
35,35,
35,35,
35,35,
34,35,
34,34,
31*. 34,
34,34,
33,33,
33,32,
32,32,
31-30,
30,28,
28, 97
42,43,
1*3,1*3,
1*3,1*3,
1*3,1*3,
1*3,43,
42,43,
42,42,
42,42,
42,42,
42,42,
41,41,
»» BLOCK DATA 6 <«
-------
APPENDIX B
MOBILE2 DECEMBER 12, 1980
58461. ft 43,43,43,'*3,J»3,'O,'»3,M»,'»0,40,40,40,4l,4l,4l,4l,4l,4l,4l,
581*65 * 43, 43, 43,43, ^, 1*1», M, **0,40,1*0, 40,1*0,40,1*0,1*), i* 1,4 1,4 1,1*1,
581*66 * 1*3,43, 44, 44,44,44, 1*0,1*0,1*0,1*0,1*0,1*0,1*0,1*0,1*0,1*0,1*0,1.0,1*0,
581*67 * 44,44,44,44,44,40,40,40,40,40,40,40,40,40,40,40,40,40,40,
581*68 ft 1*1*, 1*1*. 1*1*. 1*1*. 39,39,39,'•O, 1*0,1*0,1*0,1*0,1*0,1.0,1*0,40,1*0,39,39,
581*69 * 44,44,44,39,39,39,39,39, **0,40,40,40,40,40,39,39,39,39,38,
58470 * 1*1*.H, 39,39,39,39,39,39,39,39,39,39.39,39,39,39,38,38,36,
581*71 * 1*5,39,39,39,39,39,39,39,39,39,39,39,39,39,39,38,37,36,34,
58472 * 39,39,39,39,39,39,39,39,39,39,39,39,39,39,38,37,36,33,H/
58473 DATA T37 9.29,3*»,37,39,M ,J»2,1*3,44,44,45,45,45,45,46,46,1*6,46,1*6,
581*74 * 29,3^,37,39,41,42,43,44,44,1*5,45,45,45,46,46,46,46,46,50,
58475 * 31*, 37, **0,41,42,43,44,44,45,45,**5, **6,46,46,46,46,46,50,50,
58476 * 38,40,41,42,43,44,44,45,45,45,46,46,46,46,46,46,50,50,50,
58477 * 40,41,42,43,44,44,45,45,45,46,46,46,46,46,46,50,50,50,50,
58478 * 41,43,**3,M*.44,45,45,**5,^6,46,46,46,46,46,49,49,49,50,50,
58479 * 43,43,44,45,45,45,46,46,46,46,46,46,47,49,49,49,49,49,49,
58480 * 44,44,45, **5,45,46,46,46,46,46,47,47,49,49,49,49,49,49,49,
58481 * 44,45,45,46,46,46,46,46,47,47,47,48,49,49,49,49,49,49,49,
58482 * 45,45,46,46,46,46,46,47,47,47,48,48,48,48,48,49,49,49,49,
58483 ft 46,46,46,46,46,47,1*7,47,47,48,48,48,48,48,48,48,48,48,48,
58484 ft 46,46,46,47,47,47,47,47,48,48,48,48,48,48,48,48,48,48,48,
58485 ft 46,47,47,47,47,47,47,48,48,48,48,48,48,48,48,48,48,48,48,
58486 * 47,47,47,47,47,47,47,47,47,47,47,47,47,48,47,47,47,47,47,
58487 ft 47,47,47,47,47,47,47,47,47, *»7,^7,47,47,47,47,47,47,47,46,
58488 * 47,47,48,48,47,47,47,47,47,47,47,47,47,47,47,47,46,46,45,
58489 * 48,48,48,47,47,47,47,47,47,47,47,47,47,47,46,46,46,45,44,
58490 * 48,48,47,47,47,47,47,47,47,47,47,47,47,46,46,46,45,44,42,
58491 * 48,47,47,47,47,47,47,47,47,47,47,46,46,46,45,45,44,42,39,
58492 * 47,47,47,47,47,47,47,47,47,47,46,46,46,45,45,44,42,39,13/
58493 DATA T4/10,31,37,40,43,44,45,46,47,48,48,49,49,49,49,50,50,50,50,
58494 ft 31,37,^0,43,44,45,46,47,48,48,49,49,49,49,50,50,50,50,58,
58495 * 37,40,43,44,45,46,47,48,48,49,49,49,49,50,50,50,50,57,57,
58496 * 41,43,44,46,46,47,48,48,49,49,49,49,50,50,50,50,57,57,57,
58497 * 43,44,46,47,47,48,48,49,49,49,50,50,50,50,50,57,57,57,57,
58498 * 45,46,47,47,48,48,49,49,49,50,50,50,50,50,57,57,57,57,57,
58499 * 46,47,47,48,48,49,49,49,50,50,50,50,50,57,57,57,57,57,57,
58500 * 47,48,48,49,49,^9,50,50,50,50,50,50,56,56,56,56,56,56,56,
58501 * 48,48,49,49,49,50,50,50,50,50,50,56,56,56,56,56,56,56,56,
58502 * 48,49,^9,'•g,50,50,50,50,50,51,56,56,56,56,56,56,56,56,56,
58503 * 49,49,50,50,50,50,50,51,51,56,56,56,56,56,56,56,56,55,55,
58504 * 49,50,50,50,50,50,51,51,56,56,55,55,55,55,55,55,55,55,55,
58505 * 50,50,50,50,51,51,51,55,55,55,55,55,55,55,55,55,55,55,54,
58506 * 50,50,51,51,51,51,55,55,55,55,55,55,55,55,55,55,54,54,54,
58507 * 50,51,51,51,51,55,55,55,55,55,55,55,55,55,54,54,54,5^,53,
58508 * 51,51,51,51,55,55,55,55,55,55,55,55,54,54,54,54,53,53,52,
58509 * 51,51,51,55,55,55,55,55,55,55,54,54,54,5^,54,53,53,52,51,
58510 * 51,51,55,55,55,55,55,55,5^,54,54,54,54,53,53,52,52,50,48,
58511 * 51,55,55,55,55,55,54,S'J.S^,5^,5^,54,53,53,52,51,50,48,45,
58512 * 55,55,55,55,55,5^,5^,5^*,5^,54,5**,53,53,52,51,50,48,45,157
58513 DATA T5/11.31*,^0,43,46,48,49,50,51,51,52,52,53,53,53,53,54,5^,5^,
58514 ft 3^,^0,43,46,48,49,50,51,51,52,52,53,53,53,53,5'*,5^,54,65,
58515 * 40,43,46,48,49,50,51,51,52,52,53,53,53,54, S^t.S1*,54,65,65,
58516 ft 43,46,48,49,50,51,51,52,52,53,53,53,54,54,5^,54,65,64,64,
58517 * 46,48,49,50,51,51,52,52,53,53,53,5i*,5i*,5'*,5^,64,64,64,64,
58518 ft 48,49,50,51,51,52,52,53,53,53,54,5**,5**, 54,64,64,64,64,64,
58519 * 49,50,51,51,52,52,53,53,53,54,54,54,54,64,64,64,64,64,64,
58520 ft 50,51,52,52,52,53,53,53,5^,5^,5^,54,64,64,64,64,64,64,63,
58521 * 51,52,52,53,53,53,53,5'*,5^,54,54,64,64,64,64,64,63,63,63,
»» BLOCK DATA 6 <«
-------
APPENDIX B
MOBILE2 DECEMBER 12, 1980
58522 * 52,52,53,53,53,5i»,51t,51»,5'»,5'»,61»,6A,6l*,6J4,63,63,63,63,63,
58523 * 52,53,53,53,5'*,5i»,51»,5'»,5^,6i»,6J*,6i»,63,63,63,63,63,63,62,
58521* * 53,53,53,5'*,5l»,5't,51»,5'»,6<*,6J»,63,63,63,63,63,63,62,62,62,
58525 * 53,53,5*»,5'*,51»,51*,55,6J»,63,63,63,63,63,63,63,62,62,62,61,
58526 ft 5**,S^.S't^,55,63,63,63,63,63,63,63,62,62,62,62,61,61,
58527 ft S'*,5^,51*,5^,55,63,63,63,63,63,63,63,62,62,62,61,61,60,60,
58528 * S'i.S1*,55,55,63,63,63,63,63,63,62,62,62,62,61,61,60,60,59,
58529 * 5^,55,55,63,63,63,63,63,63,62,62,62,62,61,61,60,59,58,57,
58530 ft 55,55,63,63,63,63,63,63,62,62,62,62,61,61,60,59,58,57,51*,
58531 * 55,63,63,63,63,63,62,62,62,62,62,61,61,60,59,58,57,5^,50,
58532 ft 63,63,63,63,63,62,62,62,62,62,61,61,60,59,58,57,51*,50,17/
58533 C
58531* END
»» BLOCK DATA 6 <«
-------
APPENDIX B
MOBILE2
DECEMBER 12, 1980
59000
59001
59002
59003
59001*
59005
59006
59007
59008
59009
59010
59011
59012
59013
59014
59015
59016
59017
59018
59019
59020
59021
59022
59023
59024
59025
59026
59027
59028
59029
59030
59031
59032
59033
5903^
59035
59036
59037
59038
59039
5901*0
5901*1
59042
5901*3
5901*1*
5901*5
5901*6
5901*7
5901*8
5901*9
59050
59051
59052
59053
59054
59055
59056
59057
BLOCK DATA
C
C.. BLOCK DATA SUBPROGRAM 7
C
COMMON/BEFGCM/EXMETH(3,8,3) , 1 EXMYR (3,8, 3)
C
C..EXMETH ( INDX, IV, IR )
C..IEXMYR ( IG, IV, |R )
C
C
DIMENSION
* EXMET1(3,8),
ft EXMET2(3,8),
ft EXMET3(3,8),
* IEXMY1(3,8),
* IEXMY2(3,8),
* IEXMY3(3,8)
C
EQUIVALENCE
* (EXMETH (1,1,1) .EXMETHl.D) ,
* (EXMETH (1,1, 2) ,EXMET2(1,D) ,
ft (EXMETH (1,1, 3) .EXMET3 (1,1)) ,
* (IEXMYR(1,1,1) , IEXMY1 (1,1)) ,
* (|EXMYR(1,1,2) ,IEXMY2(1,D) ,
ft (IEXMYR(1,1,3) ,IEXMY3(U))
C
C
C.. FRACTION OF TOTAL HC WHICH IS NOT METHANE ( 8 VEH. TYPES )
C
C..LOW ALT. 1*9-STATE
DATA EXMET1/
ft 0.93,0.87,0.68,
ft 0.93,0.87,0.72,
ft 0.93,0.87,0.72,
ft 0.93,0.87,0.67,
A 0.96,0.00,0.00,
ft 0.96,0.00,0.00,
ft 0.96,0.00,0.00,
ft 0.9l*,0.92,0.00/
C
C.. CALIFORNIA
DATA EXMET2/
ft 0.93,0.87,0.68,
ft 0.93,0,87,0.72,
ft 0.93,0.87,0.72,
ft 0.93,0.87,0.00,
ft 0.96,0.00,0,00,
ft 0.96,0.00,0.00,
ft 0.96,0.00,0.00,
ft 0.94.0.92.0.91/
C
C..HIGH ALT. 1*9-STATE
DATA EXMET3/
ft 0.93,0.87,0.68,
ft 0.93,0.87,0.72,
* 0.93,0.87,0.72,
ft 0.93,0.87,0.67,
ft 0.96,0.00,0.00,
»» BLOCK DATA 7 <«
-------
APPENDIX B
MOBILE2
DECEMBER 12, 1980
59058
59059
59060
59061
59062
59063
59061*
59065
59066
59067
59068
59069
59070
59071
59072
59073
59071*
59075
59076
59077
59078
59079
59080
59081
59082
59083
59081*
59085
59086
59087
59088
59089
59090
59091
59092
59093
59091*
59095
59096
59097
ft 0.96,0.00,0.00,
* 0.96,0.00,0.00,
ft 0.9i*,0.92,0.00/
C
C..LAST YEAR OF MODEL YEAR GROUPS FOR 8 VEH. TYPES
C
C..LOW ALT. 1*9-STATE
DATA IEXMY1/
* 1974, 1980, 2020,
ft 1 971*, 1981*. 2020,
* 1978, 1981», 2020,
ft 1983, 1981*, 2020,
ft 2020,0000,0000,
* 2020,0000,0000,
ft 2020,0000,0000,
ft 1977, 2020, OOOO/
C
C.. CALIFORNIA
DATA IEXMY2/
* 1971*, 1979, 2020,
* 1971*,1980,2020,
ft 1977,1980,2020,
ft 1983,2020,0000,
ft 2020,0000,0000,
ft 2020,0000,0000,
ft 2020,0000,0000,
ft 1977, 1981, 2020/
C
C..HIGH ALT. 1*9-STATE
DATA IEXMY3/
ft 197l», 1980, 2020,
ft 197l«,1981»,2020,
* 1978,1981+, 2020,
ft 1983, 1981*, 2020,
ft 2020,0000,0000,
ft 2020,0000,0000,
ft 2020,0000,0000,
* 1977, 2020, OOOO/
C
END
»» BLOCK DATA 7 <«
-------
APPENDIX B
MOBILE2
DECEMBER 12, 1980
60000
60001
60002
60003
60001*
60005
60006
60007
60008
60009
60010
60011
60012
60013
60011*
60015
60016
60017
60018
60019
60020
60021
60022
60023
60021*
60025
60026
60027
60028
60029
60030
60031
60032
60033
60031*
60035
60036
60037
60038
60039
6001*0
6001*1
6001*2
6001*3
6001*1*
6001*5
6001*6
6001*7
6001*8
6001*9
60050
60051
60052
60053
60051*
60055
60056
60057
C
C.
C
C
C.
C.
C
C
C
C
C
C
C
C.
C
C.
C
C.
C
C.
BLOCK DATA
.BLOCK DATA SUBPROGRAM 8
COMMON/HOTCOM/MAXHOT, HOTVAL (6,
.HOTVAL ( IG, IV, IR )
.IHOTYS ( IG, IV, |R )
DIMENSION
ft HOTVA1(6,8),
ft HOTVA2(6,8),
ft HOTVA3(6,8),
ft IHOTY1(6,8),
ft |HOTY2(6,8),
ft IHOTY3(6,8)
EQUIVALENCE
ft (HOTVAL (1, 1, 1) ,HOTVA1 (1,1))
ft (HOTVAL (1,1, 2), HOTVA2 (1,1))
ft (HOTVAL (1,1, 3), HOTVA3 (1,D)
ft (IHOTYS (1,1,1) .IHOTY1 (1,1))
ft (IHOTYS(1,1,2) ,IHOTY2(1,1))
ft (IHOTYS(1,1,3) ,IHOTY3(1,D)
DATA MAXHOT/6/
.VALUE OF HOT SOAK EVAPORATIVE HC
,LOW ALT, 1*9-STATE
DATA HOTVA1/
ft 11*. 67, 10.91, 8.27, 1-56,
ft 11*, 67, 10.91, 8.27, 1-56,
ft 12.70, 1.56, 0,63, 0.00,
ft 12.70, 0.86, 0.00, 0.00,
ft 0.00, 0,00, 0.00, 0.00,
ft 0.00, 0.00, 0.00, 0.00,
ft 0.00, 0.00, 0.00, 0.00,
ft 1..56, 7.00, 7.53, O.oo,
.CALIFORNIA
DATA HOTVA2/
ft 11*. 6?, 10.91, 8.27, 1-56,
ft 11*. 67, 10.91, 8.27, 1-56,
* 12.70, 5.78, 1.56, 0.63,
ft 12.70, 5-78, 1.56, 0.63,
ft 0.00, 0.00, 0.00, 0.00,
ft 0.00, 0.00, 0.00, 0.00,
ft 0.00, 0.00, 0.00, 0.00,
ft l*.56, 6.76, 7.1.1*, 1.56,
.HIGH ALT. 1*9-STATE
DATA HOTVA3/
ft 19.07, 11*. 18, 10.75, 8.27,
ft 19.07, H.18, 10.75, 8.27,
8,3) , IHOTYS (6, 8, 3)
,
,
,
i
,
EMISSIONS
0.63,
0.63,
0.00,
0.00,
0.00,
0.00,
0.00,
0.00,
0.63,
0.63,
0.00,
0.00,
0.00,
0.00,
0.00,
1.37,
2.03,
2.03,
( 8 VEH. TYPES )
0.00,
0.00,
0.00,
0.00,
0.00,
0.00,
0.00,
O.OO/
0.00,
0.00,
0.00,
0.00,
0.00,
0.00,
0.00,
0.63/
0.82,
0.82,
»» BLOCK DATA 8 <«
-------
60058
60059
60060
60061
60062
60063
60061*
60065
60066
60067
60068
60069
60070
60071
60072
60073
6007*4
60075
60076
60077
60078
60079
60080
60081
60082
60083
60081*
60085
60086
60087
60088
60089
60090
60091
60092
60093
60091*
60095
60096
60097
60098
60099
APPENDIX
MOBILE2
C
C.
C.
ft
ft
*
ft
ft
ft
16.51
16.5
1
00.00
00.00
0.00
5.93
.LAST YEAR
.LOW
ALT. k
, 16
, 1
, 00
, 00
, o
, 9
• 51,
.12,
.00,
.00,
.00,
.10,
02.03
0.00
00.00
00.00
0.00
9-79
, o.
, o.
, o.
, o.
, o.
, o.
B
82,
00,
00,
00,
00,
00,
0.00, 0.00,
0.00, 0.00,
0.00, 0.00,
0.00, 0.00,
0.00, 0.00,
0.00, O.OO/
OF MODEL YEAR GROUPS
9
-STA
TE
DATA IHOTY1/
C
C.
ft
ft
*
ft
ft
ft
ft
ft
.CAL
1970
1970
1978
1983
2020
2020
2020
1977
IFORNIA
f
,
,
f
9
,
»
9
1971
1971
1980
2020
oooo
oooo
oooo
1979
,1977
,1977
,2020
,0000
,0000
,0000
,0000
,2020
,1980
,1980
,0000
,0000
,0000
,0000
,0000
,0000
,2020
,2020
,0000
,0000
,0000
,0000
,0000
,0000
,
,
1
9
9
9
f
f
OOOO
OOOO
OOOO
OOOO
OOOO
OOOO
oooo
9
9
t
,
f
,
1
oooo/
DATA IHOTY2/
C
C.
ft
ft
ft
ft
ft
ft
ft
ft
1969
1969
1972
1972
2020
2020
2020
1977
.HIGH ALT.
9
,
1
f
9
9
9
9
1971
1971
1977
1977
oooo
oooo
oooo
1981
,1977
,1977
,1979
,1979
,0000
,0000
,0000
,1983
,1979
,1979
,2020
,2020
,0000
,0000
,0000
,1981*
,2020
,2020
,0000
,0000
,0000
,0000
,0000
,1985
I
,
t
9
f
9
9
9
oooo
oooo
oooo
oooo
oooo
oooo
oooo
t
*
9
,
t
*
9
2020/
1»9-STATE
DATA IHOTY3/
ft
ft
ft
ft
ft
ft
ft
ft
1970
1970
1968
1983
2020
2020
2020
1977
9
9
9
9
9
9
9
9
1971
1971
1978
2020
oooo
oooo
oooo
1979
,1976
,1976
,1980
,0000
,0000
,0000
,0000
,2020
,1977
,1977
,2020
,0000
,0000
,0000
,0000
,0000
,1980
,1980
,0000
,0000
,0000
,0000
,0000
,0000
t
9
9
9
9
9
9
9
2020
2020
OOOO
oooo
oooo
oooo
oooo
9
9
9
9
9
9
9
oooo/
DECEMBER 12, 1980
END
»» BLOCK DATA 8 <«
-------
APPENDIX B
MOBILE2
DECEMBER 12, 1980
61000
61001
61002
61003
61005
61006
61007
61008
61009
61010
61011
61012
61013
610T*
61015
61016
61017
61018
61019
61020
61021
61022
61023
61024
61025
61026
61027
61028
61029
61030
61031
61032
61033
61031*
61035
61036
61037
61038
61039
61040
6 10^*1
61042
6101*3
61044
6101*5
6101*6
6101*7
61048
6101*9
61050
61051
61052
61053
61054
61055
61056
61057
BLOCK DATA
c
c.
c
c
c.
c.
c
c
c
c
c
c
.BLOCK DATA SUBPROGRAM 9
COMMON/TPDCOM/MAXTPD, TPDVAL (2,8,3) , ITPDY
.TPDVAL ( IG, IV, IR )
.ITPDYS ( IG, IV, IR )
DIMENSION
* TPDVA1(2,
ft TPDVA2(2,
* TPDVA3(2,
* ITPDY 1(2,
* ITPDY2(2,
* ITPDY3(2,
EQUIVALENCE
* (TPDVAL (1
* (TPDVAL (1
ft (TPDVAL (1
* (ITPDYSO
* (ITPDYSO
ft (ITPDYS(1
8),
8),
8),
8),
8),
8)
, ,]),TPDVA1 (1,1)),
, ,2),TPDVA2(1,1)),
, ,3) ,TPDVA3(1,D) ,
, ,1) , ITPDY1 (1,1)),
, ,2),ITPDY2(1,1)),
, ,3) tlTPDY3(l,D)
DATA MAXTPD/2/
C
C.
C
C.
C
C.
.AVERAGE # OF TR
IPS PER DAY ( 8 VEH. TYPES )
.LOW ALT. 49-STATE
DATA TPDVA1/
* 3-05, 0
ft 3.05, o
* 3.05, o
ft 6.88, 0
ft 3-05, 0
ft 3-05, 0
ft 6.65, 0
1.35, 0
.CALIFORNIA
DATA TPDVA2/
ft 3-05, 0
ft 3-05, 0
* 3.05, o
ft 6.88, 0
* 3.05, o
* 3-05, 0
ft 6.65, 0
* 1.35, 0
• 0,
.0,
.0,
.0,
• o,
.0,
.0,
.o/
.00,
.00,
.00,
.00,
.0,
.0,
.0,
.o/
.HIGH ALT. 49-STATE
DATA TPDVA3/
ft 3.05, 0.0,
* 3.05, o.o,
»» BLOCK DATA 9 <«
-------
APPENDIX B
MOBILE2
61058
61059
61060
61061
61062
61063
6106*.
61065
61066
61067
61068
61069
61070
61071
61072
61073
61071*
61075
61076
61077
61078
61079
61080
61081
61082
61083
61085
61086
61087
61088
61089
61090
61091
61092
61093
6109*4
61095
61096
61097
61098
61099
-------
APPENDIX B
MOBILE2
DECEMBER 12, 1980
62000
62001
62002
62003
62004
62005
62006
62007
62008
62009
62010
62011
62012
62013
62014
62015
62016
62017
62018
62019
62020
62021
62022
62023
62024
62025
62026
62027
62028
62029
62030
62031
62032
62033
62034
62035
62036
62037
62038
62039
62040
62041
62042
62043
62044
62045
62046
62047
62048
62049
62050
62051
62052
62053
62054
62055
62056
62057
BLOCK DATA
C
C,. BLOCK DATA SUBPROGRAM 10
C
COMMON/D | UCOM/MAXD 1 U , D 1 UVAL (6 , 8 , 3) , 1 D 1 UYS (6 , 8 , 3)
C
C..DIUVAL ( IG, IV, IR )
C..IDIUYS ( IG, IV, |R )
C
C
DIMENSION
* DIUVA1(6,8),
* DIUVA2(6,8),
ft DIUVA3(6,8),
* IDIUYK6.8),
ft IDIUY2(6,8),
ft IDIUY3(6,8)
C
C
EQUIVALENCE
ft (DIUVALO.l, 1) .DIUVA1 (1,1)) ,
ft (DIUVAL(1,1,2) ,DIUVA2(1,0) ,
ft (Dl UVAL (1, 1,3) .DIUVA3 0,0) ,
ft (IDIUYS(1,1,1) , IDIUY1 (1,0) ,
ft (IDIUYS(1,1,2) , IDIUY2(1,1)) ,
ft (IDIUYS(l,l,3),IDIUY3(liD)
C
C
DATA MAXDIU/6/
C
C.. VALUE OF DIURNAL EVAPORATIVE HC EMISSIONS ( 8 VEH. TYPES )
C
C..LOW ALT. 49-STATE
DATA DIUVA1/
ft 26.08, 16.28,
ft 26.08, 16.28,
ft 31-90, 2.65,
ft 31-90, 1.47,
ft 0.00, 0.00,
ft 0.00, 0.00,
ft 0.00, 0.00,
ft 6.71, 8.44,
C
C.. CALIFORNIA
DATA DIUVA2/
ft 26.08, 16.28,
ft 26.08, 16.28,
ft 31.90, 12.49,
ft 31.90, 12.49,
ft 0.00, 0.00,
ft 0.00, 0.00,
ft 0.00, 0.00,
ft 6.71, 8.42,
C
C..HIGH ALT. 49-STATE
DATA DIUVA3/
* 33-90, 21.16,
ft 33-90, 21.16,
8.98,
8.98,
1.07,
0.00,
0.00,
0.00,
0.00,
8.60,
8.98,
8.98,
2.65,
2.65,
0.00,
0.00,
0.00,
8.99,
11.67,
11.67,
2.65,
2.65,
0.00,
0.00,
0.00,
0.00,
0.00,
0.00,
2.65,
2.65,
1.07,
1.07,
0.00,
0.00,
0.00,
2.59,
8.98,
8.98,
1.07,
1.07,
0.00,
0.00,
0.00,
0.00,
0.00,
0.00,
1.07,
1.07,
0.00,
0.00,
0.00,
0.00,
0.00,
2.33,
3-^5,
3.*»5,
0.00,
0.00,
0.00,
0.00,
0.00,
0.00,
0.00,
o.oo/
0.00,
0.00,
0.00,
0.00,
0.00,
0.00,
0.00,
1.07/
1.39,
1.39,
»» BLOCK DATA 10 <«
-------
62058
62059
62060
62061
62062
62063
62061.
62065
62066
62067
62068
62069
62070
62071
62072
62073
62071*
62075
62076
62077
62078
62079
62080
62081
62082
62083
62081*
62085
62086
62087
62088
62089
62090
62091
62092
62093
62091*
62095
62096
62097
62098
62099
c
c.
c.
c
c.
c
c.
APPENDIX
MOBILE2
* 1*1.1*7, 03.1*5, 01.39, 0.
* M.47, 1.91, o.oo, o.
* 00.00, 00.00, 00.00, 0.
* 00.00, 00.00, 00.00, 0.
* 0.00, 0.00, 0.00, 0.
* 08.72, 10.97, 11.18, 0.
.LAST YEAR OF MODEL YEAR GROUPS
.LOW ALT. 1*9-STATE
ft
J'c
*
*
*
*
ft
>"c
.CAL
ft
ft
ft
ft
ft
ft
ft
ft
DATA ID
1970
1970
1978
1983
2020
2020
2020
1977
IFORNIA
DATA ID
1969
1969
1972
1972
2020
2020
2020
1977
.HIGH ALT.
ft
ft
ft
ft
ft
ft
ft
ft
DATA ID
1970
1970
1978
1983
2020
2020
2020
1977
IUY1/
,1971
,1971
,1980
,2020
,0000
,0000
,0000
,1979
IUY2/
,1971
,1971
,1977
,1977
,0000
,0000
,0000
,1981
,1977
,1977
,2020
,0000
,0000
,0000
,0000
,2020
,1977
,1977
,1979
,1979
,0000
,0000
,0000
,1983
,1980
,1980
,0000
,0000
,0000
,0000
,0000
,0000
,1979
,1979
,2020
,2020
,0000
,0000
,0000
,1981.
,2020
,2020
,0000
,0000
,0000
,0000
,0000
,0000
,2020
,2020
,0000
,0000
,0000
,0000
,0000
,1985
B
00,
00,
00,
00,
00,
00,
,0000
,0000
,0000
,0000
,0000
,0000
,0000
0.00, 0.00,
0.00, 0.00,
0.00, 0.00,
0.00, 0.00,
0.00, 0.00,
0.00, O.OO/
,
,
•
,
,
*
,
,00007
,0000
,0000
,0000
,0000
,0000
,0000
,0000
,
,
*
)
,
,
,
,20207
1*9-STATE
IUY3/
,1971
,1971
,1980
,2020
,0000
,0000
,0000
,1979
,1976
,1976
,2020
,0000
,0000
,0000
,0000
,2020
,1977
,1977
,0000
,0000
,0000
,0000
,0000
,0000
,1980
,1980
,0000
,0000
,0000
,0000
,0000
,0000
,2020
,2020
,0000
,0000
,0000
,0000
,0000
,
,
,
,
,
,
,
,00007
DECEMBER 12, 1980
END
»» BLOCK DATA 10 <«
-------
APPENDIX B
MOBILE2
DECEMBER 12, 1980
63000
63001
63002
63003
63004
63005
63006
63007
63008
63009
63010
63011
63012
63013
63014
63015
63016
63017
63018
63019
63020
63021
63022
63023
63024
63025
63026
63027
63028
63029
63030
63031
63032
63033
63034
63035
63036
63037
63038
63039
63040
63041
63042
63043
63044
63045
63046
63047
63048
63049
63050
63051
63052
63053
63054
63055
63056
63057
C
C.
C
C
C.
C.
C
C
C
C
C
C
C
C.
C
C.
C
C.
C
C.
BLOCK DATA
.BLOCK DATA SUBPROGRAM 11
COMMON/XMPCOM/MAXXMP , XMPVAL (2 , 8 , 3) , 1 XMPYS (2,8,3)
.XMPVAL ( IG, IV, IR )
.IXMPYS ( IG, IV, IR )
DIMENSION
* XMPVA1(2,8),
ft XMPVA2(2,8),
* XMPVA3(2,8),
* IXMPYU2.8),
* IXMPY2(2,8),
ft IXMPY3(2,8)
EQUIVALENCE
ft (XMPVAL (1,),1) .XMPVA1 (1,1)) ,
ft (XMPVAL (1, 1, 2) .XMPVA2 (1,1)) ,
ft (XMPVAL (1, 1, 3) .XMPVA3 (1,1)) ,
ft (1 XMPYS (1, 1, 1) JXMPY1 (1,1)) ,
ft (IXMPYS (1,1, 2) ,IXMPY2 (1,1)) ,
ft (IXMPYS(1,1,3) ,IXMPY3(1,U)
DATA MAXXMP/2/
.AVERAGE # OF MILES PER DAY ( 8 VEH. TYPES )
.LOW ALT. 49-STATE
DATA XMPVA1/
ft 31.1, 0.0,
ft 26.3, 0.0,
* 33-7, o.o,
ft 36-7, 0.0,
ft 31-1, 0.0,
ft 29.8, 0.0,
ft 138.3, o.o,
ft 8.3, O.O/
.CALIFORNIA
DATA XMPVA2/
ft 31.10, 0,00,
ft 26.30, 0.00,
ft 33.70, o.oo,
ft 36.70, o.oo,
* 31-1, 0.0,
ft 29.8, 0.0,
ft 138.3, o.o,
ft 8.3, O.O/
.HIGH ALT. 49-STATE
DATA XMPVA3/
ft 31-1, o.o,
ft 26.3, 0.0,
»» BLOCK DATA 11 <«
-------
APPENDIX B
MOB I IE2
-------
APPENDIX B
MOBILE2
DECEMBER 12, 1980
6i»ooo
61*001
61*002
61*003
61*001*
61*005
61*006
61*007
61*008
61*009
61*010
61*011
61*012
61*013
61*011*
61*015
61*016
61*017
61*018
61*019
61*020
61*021
61*022
61*023
64021*
61*025
61*026
61*027
61*028
61*029
61*030
61*031
61*032
61*033
61*031*
61*035
61*036
61*037
61*038
61*039
61*01*0
61*01*1
61*01*2
61*01*3
61+01*1*
61*01*5
61*01*6
61*01*7
61*01*8
61*01*9
61*050
61*051
61*052
61.053
61*051*
61+055
61+056
61+057
C
C.
C
C
C.
C.
C
C
C
C
C
C
C
C.
C
C.
C
C.
C
C.
BLOCK DATA
.BLOCK DATA SUBPROGRAM 12
COMMON/CRACOM/MAXCRA.CRAVAL (3,8,3) , 1 CRAYS (3,8,3)
.CRAVAL ( IG, IV, |R )
.ICRAYS ( IG, IV, IR )
DIMENSION
ft CRAVA1(3,8),
* CRAVA2(3,8),
* CRAVA3(3,8),
* ICRAYK3.8),
* ICRAY2(3,8),
ft ICRAY3(3,8)
EQUIVALENCE
ft (CRAVAL (1,1,1) .CRAVA1 (1,1)) ,
ft (CRAVAL (1, 1, 2) .CRAVA2 (1,1)) ,
ft (CRAVAL (1,1, 3), CRAVA3 (1,1)),
ft (ICRAYSd.1,1) , JCRAY1 (1,1)) ,
ft (ICRAYS(1,1,2) , ICRAY20.1)) ,
ft (ICRAYS (1,1, 3) ,ICRAY3(1,D)
DATA MAXCRA/3/
.VALUE OF CRANCKCASE HC EMISSIONS ( 8 VEH. TYPES )
.LOW ALT. 1+9-STATE
DATA CRAVA1/
ft 1*.10, 0.80, 0.00,
ft 1».10, 0.80, 0.00,
ft 5-70, 0.00, 0.00,
ft 5.70, o.oo, o.oo,
ft 0.00, 0.00, 0.00,
ft 0.00, 0.00, 0.00,
ft 0.00, 0.00, 0.00,
ft 0.31, 0.00, O.OO/
.CALIFORNIA
DATA CRAVA2/
ft 1».10, 0.80, 0.00,
ft 1+.10, 0.80, 0.00,
* 5.70, 0.80, o.oo,
ft 5.70, 0.80, o.oo,
ft 0.00, 0.00, 0.00,
ft 0.00, 0.00, 0.00,
ft 0.00, 0.00, 0.00,
ft 0.31, 0.00, O.OO/
.HIGH ALT. 1*9-STATE
DATA CRAVA3/
ft 5.29, 1.03, o.oo,
* 5-29, 1.03, 0.00,
»» BLOCK DATA 12 <«
-------
614058
61*059
61.060
61*061
61.062
64063
61.061*
61.065
61*066
61.067
61.068
61*069
61*070
61*071
61*072
61*073
61*071*
61*075
61*076
61*077
61*078
61*079
61*080
61*081
61.082
61*083
61*081*
61*085
61*086
61*08?
61*088
61.089
61*090
61.091
61*092
61*093
61.091.
61.095
61.096
61.097
61.098
61*099
c
c.
c.
c
c.
c
c.
APPENDIX B
MOBILE2
* 7-35, 0.00, 0.00,
* 7-35, 0.00, 0.00,
* 0.00, 0.00, 0.00,
* 0.00, 0.00, 0.00,
* 0.00, 0.00, 0.00,
* 0.1.0, 0.00, O.OO/
.LAST YEAR OF MODEL YEAR GROUPS
.LOW ALT. 1.9-STATE
*
*
it
ft
ft
is
ft
ft
.CAL
ft
*
ft
ft
ft
ft
ft
ft
DATA 1 CRAY I/
1962,1967,2020,
1962,1967,2020,
1967,2020,0000,
1967,2020,0000,
2020,0000,0000,
2020,0000,0000,
2020,0000,0000,
1977, 2020, OOOO/
IFORNIA
DATA ICRAY2/
1960,1963,2020,
1960,1963,2020,
1960,1963,2020,
1960,1963,2020,
2020,0000,0000,
2020,0000,0000,
2020,0000,0000,
1977, 2020, OOOO/
.HIGH ALT. 1.9-STATE
ft
ft
ft
ft
ft
ft
ft
ft
DATA ICRAY3/
1962,1967,2020,
1962,1967,2020,
1967,2020,0000,
1967,2020,0000,
2020,0000,0000,
2020,0000,0000,
2020,0000,0000,
1977,2020,00007
DECEMBER 12, 1980
END
»» BLOCK DATA 12 <«
-------
APPENDIX B
MOBILE2 DECEMBER 12, 1980
65000 BLOCK DATA
65001 c
65002 C..BLOCK DATA SUBPROGRAM 13
65003 c
65001* COMMON/YEARS;/i Yi95i, iYi970,iY202o
65005 COMMON/ALTEQU/MAXEQU
65006 COMMON/SYSCOM/MAXVEH,MAXLTW,MAXPOL,MAXREG,INITPR
65007 COMMON/1VPCOM/1VPTRG(8),IVPTRT(8),IVPTRA (8),IVPTRB(8)
65008 c
65009 c
65010 DATA IY195LIY1970,IY2020/
65011 * 1951, 1970, 2020/
65012 c
65013 DATA MAXEQU/15/
650H C
65015 DATA MAXVEH/8/
65016 c
65017 DATA MAXLTW/3/
65018 c
65019 DATA MAXPOL/3/
65020 c
65021 DATA MAXREG/3/
65022 c
65023 DATA INITPR/1/
650214 c
65025 DATA IVPTRG/1,2,3,0,1»,5,0,6/
65026 c
65027 DATA IVPTRT/1,2,3,0,4,5,0,6/
65028 c
65029 DATA IVPTRA/1,2,3,0,0,0,0,1*/
65030 c
65031 DATA IVPTRB/0,0,0,1,2,3,1*,0/
65032 c
65033 END
»» BLOCK DATA 13 <«
-------
APPENDIX B
MOBILE2
DECEMBER 12, 1980
66000
66001
66002
66003
66004
66005
66006
66007
66008
66009
66010
66011
66012
66013
66014
66015
66016
66017
66018
66019
66020
66021
66022
66023
66024
66025
66026
66027
66028
66029
66030
66031
66032
66033
66034
66035
66036
66037
66038
66039
66040
66041
66042
66043
66044
66045
66046
66047
66048
66049
66050
66051
66052
66053
66054
66055
66056
66057
BLOCK DATA
.BLOCK DATA SUBPROGRAM 14
COMMON/TCFCOM/TTACOF(2,3,9,3,6),TT4COF (2,9,3) ,TT?COF (2,3)
.TTACOF ( IT, IB, IG, IP, IV ) : IT=1 FOR LOW TEMP, 2 FOR HIGH
.TT4COF ( IT, IG, IP )
.TT7COF ( IT, IP )
DIMENSION
T11COF(2,3,9) ,T12COF(2,3,9)
T21COF(2,3,9) ,T22COF(2,3,9)
T31COF(2,3,9),T32COF(2,3,9)
T51COF(2,3,9) ,T52COF(2,3,9)
T6lCOF(2,3,9) ,T62COF(2,3,9)
T81COF (2,3,9).T82COF(2,3,9)
EQUIVALENCE
*
ft
ft
ft
ft
ft
,T13COF(2,3,9) ,
,T23COF(2,3,9) ,
,T33COF(2,3,9) ,
,T53COF(2,3,9),
,T63COF(2,3,9),
,T83COF(2,3,9)
ft
ft
ft
ft
ft
ft
ft
ft
ft
it
ft
ft
ft
ft
ft
ft
ft
ft
(TTACOF (1,1
(TTACOF (1,1
(TTACOF (1,1
(TTACOF (1,1
(TTACOF (1,1
(TTACOF (1,1
(TTACOF (1,1
(TTACOF (1,1
(TTACOF (1,1
(TTACOF (1,1
(TTACOF (1,1
(TTACOF (1, 1
(TTACOF (1,1
(TTACOF (1,1
(TTACOF (1,1
(TTACOF (1,1
(TTACOF (1, 1
(TTACOF (1,1
1,1,1) .T11COF (1,
1,1,2) ,T21COF(1,
1,1,3) ,T31COF(1,
,1,4) ,T51COF(1,
1,1,5) ,T6lCOF(l,
1,1,6) .T81COF (1,
1,2,1) ,T12COF(1,
,2,2) .T22COF (1,
1,2,3) ,T32COF(1,
,2,4) ,T52COF(1,
1,2,5) .T62COF (1,
1,2,6) .T82COF (1,
1,3,1) ,T13COF(1,
,3,2) ,T23COF(1,
,3,3) ,T33COF(1,
,3,4) ,T53COF(1,
,3,5) ,T63COF(1,
,3,6) ,T83COF(1,
,D)
1,1))
,0)
,D)
,D)
,1))
,1))
,D)
,1))
,1))
,D)
,D)
,1))
,D)
,D)
,D)
,D)
,1))
DIMENSION
ft T41COF(2,9),
* T42COF(2,9),
ft T43COF(2,9)
EQUIVALENCE
ft (TT4COF (1,1,1).T41COF (1,1)),
ft (TT4COF (1,1,2).T42COF (1,1)),
ft (TT4COF(1,1,3) ,T43COF(1,1))
.TEMPERATURE CORRECTION FACTOR COEFICIENTS
.LDGV
.HC
BAG 1 BAG 2
DATA T11COF/
ft-.02062300,-.01438100,-.00240320, .00132190,-.00100810, .00347990,
ft-.02446200,-.01255200,-.00320170, .00426670,-.00086884, .00758430,
ft-.02125500,-.01088800,-.00052755,-.00047925, .00093659, .00766660,
BAG 3
»» BLOCK DATA 14 <«
-------
66058
66059
66060
66061
66062
66063
66064
66065
66066
66067
66068
66069
66070
66071
66072
66073
66074
66075
66076
66077
66078
66079
66080
66081
66082
66083
66084
66085
66086
66087
66088
66089
66090
66091
66092
66093
66094
66095
66096
66097
66098
66099
66100
66101
66102
66103
66104
66105
66106
66107
66108
66109
66110
66111
66112
66113
66114
66115
c.
c.
c
c.
c.
c.
c.
ft-. 02 142700, -
ft-. 02351700, -
ft-. 02351700,-
*-. 02521700,
ft-. 02521700,
* .00000000,
.CO
DATA T12COF/
ft-. 01 348700, -
ft-. 02112600,-
*-. 02084300, -
ft-. 01909100, -
ft-. 02483500, -
ft-. 02483500, -
ft-. 01 826300, -
ft-. 01826300, -
ft-. 01826300,-
.NOX
DATA T13COF/
ft-. 000 16897,
ft-. 00025074,-
ft .00388550,-
ft-.45504E-4,-
*-. 00760440, -
ft-. 00760440,-
ft .00156680,-
ft .00000000,
ft .00000000,
.LDGT1
.HC
DATA T21COF/
ft-. 02062300, -
ft-. 02446200, -
ft-. 02125500, -
ft-. 02142700, -
ft-. 02351700, -
ft-. 0235 1700,-
*-. 02521700,
ft .00000000,
ft .00000000,
.CO
DATA T22COF/
ft-. 01 348700, -
ft-. 02 11 2600, -
*-. 02084300, -
ft-. 01 909 loo, -
ft-. 02483500, -
ft-. 02483500, -
ft-. 01 826300,-
ft .00000000,
ft .00000000,
.NOX
DATA T23COF/
ft-. ooo 16897,
ft-. 00025074,-
ft .00388550,-
ft-.45504E-4,-
APPENDIX B
MOBILE2
.00661070, -.00039442,
.01409500, -.00880570,
.01409500, -.00880570,
.01195900, -.00561530,
.01195900, -.00561530,
.00000000, .00000000,
.01469100,
.03876700,
.02116500,
.01314600,
.01961200,
.01961200,
.01259600,
.01259600,
.01259600,
.00388410,
.00103890,
.01830100,
.00714200,
.02615300,
.02615300,
.03441600,
.00000000,
.00000000,
.01438100,
.01255200,
.01088800,
.00661070,
.01409500,
.01409500,
.01195900,
.00000000,
.00000000,
.01469100,
.03876700,
.02116500,
.01314600,
.01961200,
.01961200,
.01259600,
.00000000,
.00000000,
.00388410,
.00103890,
.01830100,
.00714200,
.00157840,
-.00152890,
-.00599510,
-.00042373,
-.00883360,
-.00883360,
-.01404200,
-.01404200,
-.01404200,
-.00892450,
-.00597910,
-.00241560,
-.00125750,
-.00680450,
-.00680450,
.00059496,
.00000000,
.00000000,
-.00240320,
-.00320170,
-.00052755,
-.00039442,
-.00880570,
-.00880570,
-.00561530,
.00000000,
.00000000,
.00157840,
-.00152890,
-.00599510,
-.00042373,
-.00883360,
-.00883360,
-.01404200,
.00000000,
.00000000,
-.00892450,
-.00597910,
-.00241560,
-.00125750,
.00262880,
.02617900,
.02617900,
-.12627E-4,
-.12627E-4,
.00000000,
.00374620,
.00846850,
.02360300,
.02471700,
.04853700,
.04853700,
.01386100,
.01386100,
.01386100,
-.00873250,
-.00924660,
-.01092500,
-.00879100,
-.01860300,
-.01860300,
-.03587100,
.00000000,
.00000000,
.00132190,
.00426670,
-.00047925,
.00262880,
.02617900,
.02617900,
-.12627E-4,
.00000000,
.00000000,
.00374620,
.00846850,
.02360300,
.02471700,
.04853700,
.04853700,
.01386100,
.00000000,
.00000000,
-.00873250,
-.00924660,
-.01092500,
-.00879100,
DECEMBER 12, 1980
.00497310, .01232000,
-.00162220, .02429700,
-.00162220, .02429700,
-.00362280, .00787650,
-.00362280, .00787650,
.00000000, .OOOOOOOO/
.001 10970,
.00157490,
.00182530,
.00579820,
-.00115530,
-.00115530,
-.00248130,
-.00248130,
-.00248130,
-.00725800,
-.00626900,
-.00211880,
-.00053153,
-.00541980,
-.00541980,
-.00248880,
.00000000,
.00000000,
-.00100810,
-.00086884,
.00093659,
.00497310,
-.00162220,
-.00162220,
-.00362280,
.00000000,
.00000000,
.00110970,
.00157490,
.00182530,
.00579820,
-.00115530,
-.00115530,
-.00248130,
.00000000,
.00000000,
-.00725800,
-.00626900,
-.00211880,
-.00053153,
.0 no i4oo,
.02517900,
.02848300,
.02584800,
.03143900,
.03143900,
.00969390,
.00969390,
.009693907
-.01083900,
-.01010800,
-.01804200,
-.00754700,
-.02087800,
-.02087800,
-.02883000,
.00000000,
.000000007
.00347990,
.00758430,
.00766660,
.01232000,
.02429700,
.02429700,
.00787650,
.00000000,
.OOOOOOOO/
.01 101400,
.02517900,
.02848300,
.02584800,
.03143900,
.03143900,
.00969390,
.OOOOOOOO,
.OOOOOOOO/
-.01083900,
-.01010800,
-.01804200,
-.00754700,
»» BLOCK DATA 14 <«
-------
APPENDIX B
MOBILE2
DECEMBER 12, 1980
66116
66117
66118
66119
66120
66121
66122
66123
66124
66125
66126
66127
66128
66129
66130
66131
66132
66133
66134
66135
66136
66137
66138
66139
66140
66141
66142
66143
66144
66145
66146
66147
66148
66149
66150
66151
66152
66153
66154
66155
66156
66157
66158
66159
66160
66161
66162
66163
66164
66165
66166
6616?
66168
66169
66170
66171
66172
66173
ft-.00760440,-.02615300,•
ft-.00760440,-.02615300,•
ft .00156680,-.03441600,
ft .00000000, .00000000,
ft .00000000, ,00000000,
.LDGT2
.HC
DATA T31COF/
ft-.02062300,-
ft-.02446200,-
ft-,02142700,-
ft-.02351700,-
ft-.02351700,-
ft-.02521700,
ft .00000000,
ft .00000000,
ft .00000000,
,co
DATA T32COF/
ft-.01348700,-
ft-.02112600,-
ft-.01909100,-,
ft-.02483500,-,
ft-.02483500,-
ft-. 01826300,-,
ft .00000000, ,
ft .00000000, ,
ft .00000000, ,
.NOX
DATA T33COF/
ft-.ooo16897, ,
ft-.00025074,-,
ft .00388550,-,
ft-.00760440,-,
ft-. 00760440,-,
ft .00156680,-,
ft .00000000, ,
ft .00000000, ,
ft .00000000, ,
.HDGV
.HC
DATA T41COF/
ft-.00589030, ,
ft-.00738700, ,
ft-.00497590, ,
ft-.00285490, ,
ft-.00741070, ,
ft-.00928590, ,
ft .00000000, ,
ft .00000000, ,
ft .00000000, ,
. 00680450,-.oi860300,-.00541980,-.02087800,
.00680450,-.01860300,-.00541980,-.02087800,
.00059^96,-.03587100,-.00248880,-.02883000,
.00000000, .00000000, .00000000, .00000000,
.00000000, .00000000, .00000000, .000000007
.01438100,-
.01255200,-
.00661070,-
.01409500,-
.01409500,-
,01195900,-
,00000000,
.00000000,
.00000000,
.00240320,
.00320170,
.00039442,
.00880570,
.00880570,
.00561530,-
.00000000,
.00000000,
.00000000,
.00132190,
.00426670,
.00262880,
.02617900,
.02617900,
.12627E-4,
.00000000,
.00000000,
,00000000,
-.00100810,
-.00086884,
.00497310,
-.00162220,
-.00162220,
-.00362280,
.00000000,
.00000000,
.00000000,
.00347990,
.00758430,
.01232000,
.02429700,
.02429700,
.00787650,
.00000000,
.00000000,
.000000007
,01469100,
,03876700,'
,01314600,-
,0196l200,-
,01961200,-
,01259600,-
,00000000,
00000000,
00000000,
00388410,-
00103890,-
01830100,-
02615300,-
02615300,-
03441600,
00000000,
00000000,
00000000,
00134580,
00523170,
00546510,
01008200,
02054600,
00848420,
00000000,
00000000,
000000007
.00157840,
,00152890,
.00042373,
.00883360,
.00883360,
.01404200,
.00000000,
.00000000,
.00000000,
.0037^620,
.00846850,
,02471700,
.04853700,-
.04853700,-
.01386100,-
.00000000,
.00000000,
.00000000,
.00892450,-
.00597910,-
,00241560,-
,00680450,-
.00680450,-
.00059496,-
.00000000,
.00000000,
.00000000,
.00873250,-
.00924660,-
.01092500,-
.01860300,-
.01860300,-
.03587100,-
.00000000,
.00000000,
.00000000,
.00110970,
.00157490,
.00579820,
.00115530,
.00115530,
.00248130,
.00000000,
.00000000,
.00000000,
.00725800,'
.00626900,'
.00211880,'
.00541980,'
.00541980,
.00248880,'
.00000000,
.00000000,
.00000000,
.01101400,
.02517900,
.02584800,
.03143900,
.03143900,
.00969390,
.00000000,
.00000000,
.000000007
.01083900,
.01010800,
.01804200,
.02087800,
.02087800,
.02883000,
.00000000,
.00000000,
.000000007
.CO
DATA T42COF7
ft-. 00205760, .0081720,
ft-.00455^10, .02026800,
»» BLOCK DATA 14 <«
-------
APPENDIX B
MOBILE2
DECEMBER 12, 1980
66174
66175
66176
66177
66178
66179
66180
66181
66182
66183
66184
66185
66186
66187
66188
66189
66190
66191
66192
66193
66194
66195
66196
66197
66198
66199
66200
66201
66202
66203
66204
66205
66206
66207
66208
66209
66210
66211
66212
66213
66214
66215
66216
66217
66218
66219
66220
66221
66222
66223
66224
66225
66226
66227
66228
66229
66230
66231
ft-. 00428990, ,
ft-, oo 130850, ,
ft-. 00771 170, ,
*-. 0060 1950, .
ft .00000000, ,
* .00000000, ,
ft .00000000, ,
c
C..NOX
DATA T43COF/
ft-. 0064 3150, -
*-. 00554560, -
ft-. 00139690, -
ft-. 00046352,-
ft-. 00575240, -
*-. 00197330,-
ft .00000000,
ft .00000000,
ft .00000000,
c
C..LDDV
C..HC
.02412700,
.02206100,
.02701900,
.00714570,
.00000000,
.00000000,
.000000007
.00839860,
.00868800,
.01807900,
.00748890,
.02159300,
.02958400,
.00000000,
.00000000,
.000000007
DATA T51COF/
S'{
*
ft
ft
*
ft
ft
ft
ft
C..CO
.00000000
.00000000
.00000000
.00000000
.00000000
.00000000
.00000000
.00000000
.00000000
1
»
»
1
1
f
1
9
1
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.000000007
DATA T52COF/
it
ft
ft
ft
ft
ft
ft
ft
ft
C..NOX
.00000000
.00000000
.00000000
.00000000
.00000000
.00000000
.00000000
.00000000
.00000000
1
»
1
»
t
»
1
f
f
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
,00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.000000007
DATA T53COF/
ft
ft
ft
ft
ft
ft
ft
ft
ft
C
.00000000
.00000000
.00000000
.00000000
.00000000
.00000000
.00000000
.00000000
.00000000
f
9
,
»
1
I
t
t
t
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.000000007
C..LDDT
C..HC
DATA T61COF/
»» BLOCK DATA 14 <«
-------
66232
66233
66234
66235
66236
66237
66238
66239
66240
66241
66242
66243
66244
66245
66246
66247
66248
66249
66250
66251
66252
66253
66254
66255
66256
66257
66258
66259
66260
66261
66262
66263
66264
66265
66266
66267
66268
66269
66270
66271
66272
66273
66274
66275
66276
66277
66278
66279
66280
66281
66282
66283
66284
66285
66286
66287
66288
66289
APPENDIX B
MOBILE2
C.
ft
ft
ft
ft
ft
ft
ft
ft
ft
.CO
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
DECEMBER
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
12, 1980
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.000000007
DATA T62COF7
C.
C
C.
C
C.
ft
ft
ft
ft
ft
ft
ft
ft
ft
.NOX
ft
ft
ft
ft
ft
ft
ft
ft
ft
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
DATA T63COF7
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
,00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.000000007
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.00000000,
.000000007
.HDDV
ft
ft
ft
.MC
DATA TT7COF/
0.0000, 0.
0.0000, 0.
0.0000, 0.
0000,
0000,
00007
C..HC
C..CO
DATA T81COF7
ft-.02062300,-.01438100,-.00240320, .00132190,-.00100810, .00347990,
ft-.02446200,-.01255200,-.00320170, .00426670,-.00086884, .00758430,
*-.02125500,-.01088800,-.00052755,-.00047925, .00093659, .00766660,
ft-.02142700,-.00661070,-.00039442, .00262880, .00497310, .01232000,
* .00000000, .00000000, .00000000, .00000000, .00000000, .00000000,
ft .00000000, .00000000, .00000000, .00000000, .00000000, .00000000,
ft .00000000, .00000000, .00000000, .00000000, .00000000, .00000000,
* .00000000, .00000000, .00000000, .00000000, .00000000, .00000000,
ft .00000000, .00000000, .00000000, .00000000, .00000000, .000000007
DATA T82COF/
ft-.01348700,-.01469100, .00157840, .00374620, .00110970, .01101400,
ft-.02112600,-.03876700,-.00152890, .00846850, .00157490, .02517900,
ft-.02084300,-.02116500,-.00599510, .02360300, .00182530, .02848300,
ft-.01909100,-.01314600,-.00042373, .02471700, .00579820, .02584800,
ft .00000000, .00000000, .00000000, .00000000, .00000000, .00000000,
ft .00000000, .00000000, .00000000, .00000000, .00000000, .00000000,
»» BLOCK DATA 14 <«
-------
APPENDIX B
MOBILE2 DECEMBER 12, 1980
66290 * .00000000, .00000000, .00000000, .00000000, .00000000, .00000000,
66291 * .00000000, ,00000000, .00000000, .00000000, .00000000, .00000000,
66292 * .00000000, .00000000, .00000000, .00000000, .00000000, .oooooooo/
66293 C..NOX
66294 DATA T83COF/
66295 *-.ooo16897, .00388410,-.00892450,-.00873250,-.00725800,-.01083900,
66296 *-.00025074,-.00103890,-.00597910,-.00924660,-.00626900,-.01010800,
66297 * .oooooooo, .oooooooo, .oooooooo, .oooooooo, .oooooooo, .oooooooo,
66298 * .oooooooo, .oooooooo, .oooooooo, .oooooooo, .oooooooo, .oooooooo,
66299 * .oooooooo, .oooooooo, .oooooooo, .oooooooo, .oooooooo, .oooooooo,
66300 * .oooooooo, .oooooooo, .oooooooo, .oooooooo, .oooooooo, .oooooooo,
66301 * .oooooooo, .oooooooo, .oooooooo, .oooooooo, .oooooooo, .oooooooo,
66302 * .oooooooo, .oooooooo, .oooooooo, .oooooooo, .oooooooo, .oooooooo,
66303 * .oooooooo, .oooooooo, .oooooooo, .oooooooo, .oooooooo, .oooooooo/
66304 c
66305 c
66306 END
»» BLOCK DATA 14 <«
-------
APPENDIX B
M
GPAC11 (1,
GPAC21 (1,
GPAC31 (1,
GPAC51 (1,
GPAC61 (1,
GPAC81 (1,
GPAC120,
GPAC22(1,
GPAC32(1,
GPAC52(1,
GPAC62(1,
GPAC82(1,
GPAC130,
GPAC23(1,
GPAC330,
GPAC53U,
GPAC63(1,
GPAC830,
P, IV ) :
.GPBCOMl
,GPBC05(1
,GPBC06(1
.GPBC070
NORMALIZED
D)
D)
D)
D)
D)
D)
D)
D)
D)
D)
D)
D)
D)
D)
D)
0)
D)
D)
1C
,1,
, i ,
, l ,
,1,
BY
,
,
,
,
,
,
.
,
,
,
,
,
,
,
,
,
,
=COEF. NUM., IV=l+,5,6,7
D),
D),
D),
D)
ZERO MILE FTP RATE
C..LDGV
C..HC
C..
ft
ft
BAG 1
DATA GPAC11/
1.282, 0.025
1.31*5, 0.071*
. 0
, 0
BAG 2
•973, 0.028,
* .?
6, 0.051*,
0.
0.
BAG 3 FTP
839, 0.019, i.ooo, 0.025,
81*2, 0.048, 1.000, 0.056,
»» BLOCK DATA 15 <«
-------
67058
67059
67060
67061
67062
67063
67064
67065
67066
67067
67068
67069
67070
67071
67072
67073
67074
67075
67076
67077
67078
67079
67080
67081
67082
67083
67084
67085
67086
67087
67088
67089
67090
67091
67092
67093
67094
67095
67096
67097
67098
67099
67100
67J01
67102
67103
67104
67105
67106
67107
67108
67109
67110
67111
67112
67113
67114
67115
APPENDIX B
MOB
C.
C.
C
C.
C.
C.
C.
* 1.3^5, 0.178,
* 1.398, 0.060,
* 2.092, 0.248,
* 2.092, 1.339,
ft 2.961, 0.154,
* 2.961, 0.164,
* 0.000, 0.000,
.CO
DATA GPAC12/
>v 1.277, 0.033,
* 1.442, 0.071,
* 1-553, 0.109,
* 1.573, 0.054,
* 2.413, 0.143,
* 2.413, 0.657,
* 3-184, 0.485,
* 3.184, 0.516,
* 3-184, 0.551,
.NOX
DATA GPAC13/
ft 1.121, 0.009,
* .199, -0.004,
ft .262, 0.022,
ft .311, 0.021,
* .393, 0.050,
* .393, 0.056,
ft 1.801, 0.169,
ft 0.000, 0.000,
ft 0.000, 0.000,
.LDGT1
.HC
DATA GPAC21/
ft 1.282, 0.025,
ft 1.345, 0.074,
ft 1.345, 0.178,
ft 1.398, 0.060,
ft 2.092, 0.248,
* 2.092, 1.339,
ft 2.961, 0.164,
ft 0.000, 0.000,
ft 0.000, 0.000,
.CO
DATA GPAC22/
ft 1.277, 0.033,
ft 1.442, 0.071,
ft 1.553, 0.109,
* 1-573, 0.054,
ft 2.413, 0.143,
ft 2.413, 0.657,
ft 3-184, 0.551,
ft 0.000, 0.000,
ft 0.000, 0.000,
.NOX
DATA GPAC23/
ft 1.121, 0.009,
ft 1.199, -0.004,
ft 1.262, 0.022,
0
0
0
0
0
0
0
1
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
1
0
0
0
0
0
0
0
0
0
0
0
.919,
.885,
.649,
.649,
.407,
.407,
.000,
.017,
.996,
• 933,
.902,
.608,
.608,
.3^5,
.345,
• 345,
• 785,
• 793,
.770,
.774,
• 754,
.754,
.653,
.000,
.000,
.973,
• 946,
.919,
.885,
.649,
.649,
.407,
.000,
.000,
.017,
.996,
• 933,
• 902,
.608,
.608,
.345,
.000,
.000,
.785,
• 793,
.770,
0
0
0
1
0
0
0
0
0
0
0
0
0
0
0
0
0
-0
0
0
0
0
0
0
0
0
0
0
0
0
1
0
0
0
0
0
0
0
0
0
0
0
0
0
-0
0
ILE2
.118,
.055,
.254,
.014,
.585,
.598,
.000,
.029,
.042,
.079,
.079,
.180,
.503,
• 542,
• 564,
.589,
.001 ,
.002,
.004,
.010,
.052,
.056,
.141,
.000,
.000,
.028,
.054,
.118,
.055,
.254,
.014,
• 598,
.000,
.000,
.029,
.042,
.079,
.079,
.180,
• 503,
• 589,
.000,
.000,
.00],
.002,
.004,
-------
67116
67H7
67118
67H9
67120
67121
67122
67123
67124
67125
67126
67127
67128
67129
67130
67131
67132
67U3
67134
67135
67U6
67137
67138
67139
67140
67141
67142
67143
67144
67145
67146
67147
67148
67149
67150
67151
67152
67153
67154
67155
67156
67157
67158
67159
67160
67161
67162
67163
67164
67165
67166
67167
67168
67169
67170
67171
67172
67173
c
c.
c.
c.
c.
c
c.
c.
c.
* 1.311, 0,021,
* 1.393, 0.050,
* 1.393, 0.056,
ft 1.801, 0.169,
* 0.000, 0.000,
* 0.000, 0.000,
.LDGT2
.HC
DATA GPAC31/
* 1.282, 0.025,
* 1.31.5, 0.074,
* 1.398, 0.060,
ft 2.092, 0.21*8,
* 2.092, 1.339,
* 2.961, 0.164,
* 0.000, 0.000,
ft 0.000, 0.000,
ft 0.000, 0.000,
.CO
DATA GPAC32/
ft 1.277, 0.033,
ft 1.442, 0.071,
* 1.573, 0.054,
ft 2.413, 0.143,
ft 2.413, 0.657,
* 3.184, 0.551,
ft 0.000, 0.000,
ft 0.000, 0.000,
ft 0.000, 0.000,
.NOX
DATA GPAC33/
ft 1.121, 0.009,
* 1.199, -0.004,
ft 1.262, 0.022,
* 1-393, 0.050,
* 1.393, 0.056,
ft 1.801, 0.169,
ft 0.000, 0.000,
ft 0.000, 0.000,
ft 0.000, 0.000,
.LDDV
.HC
DATA GPAC51/
ft 1.209, 0.071,
ft 1.209, 0.136,
ft 1.209, 0.068,
ft 1.209, 0.101,
ft 1.209, 0.082,
ft 1.209, 0.090,
ft 0.000, 0.000,
ft 0.000, 0.000,
ft 0.000, 0.000,
.CO
DATA GPAC52/
ft ] .199, 0.060,
ft 1 .199, 0.062,
APPENDIX B
MOBILE2
0.774, 0.010, 1
0.754, 0.052, 1
0.754, 0.056, 1
0.653,
0.000,
0.000,
0.973,
0.946,
0.885,
0.649,
0.649,
0.407,
0.000,
0.000,
0.000,
1.017,
0.996,
0.902,
0.608,
0.608,
0.345,
0.000,
0.000,
0.000,
0.785,
0.793,
0.770,
0.754,
0.754,
0.653,
0.000,
0.000,
0.000,
1.073,
1.073,
1.073,
1.073,
1.073,
1.073,
0.000,
0.000,
0.000,
0.935,
0.935,
0
0
0
0
0
0
0
1
0
0
0
0
0
0
0
0
0
0
0
0
0
0
-0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
.141,
.000,
.000,
.028,
.054,
.055,
.254,
.014,
.598,
.000,
.000,
.000,
.029,
.042,
.079,
.180,
.503,
.589,
.000,
.000,
.000,
.001,
.002,
.004,
.052,
.056,
.141,
.000,
.000,
.000,
.056,
.111,
.053,
.081,
.065,
.072,
.000,
.000,
.000,
.042,
.044,
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
.198,
.172,
.172,
.059,
.000,
.000,
.839,
.842,
.919,
.846,
.846,
.652,
.000,
.000,
.000,
.758,
.674,
• 755,
.681,
.681,
.601 ,
.000,
.000,
.000,
.319,
.245,
.242,
.172,
.172,
.059,
.000,
.000,
.000,
.703,
.703,
.703,
.703,
.703,
.703,
.000,
.000,
.000,
.974,
.974,
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
-0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
.026,
.079,
.085,
.296,
.000,
.000,
.019,
.048,
.036,
.152,
.717,
.566,
.000,
.000,
.000,
.025,
.033,
.029,
.068,
.251,
.479,
.000,
.000,
.000,
.009,
.006,
.027,
.079,
.085,
.296,
.000,
.000,
.000,
.064,
.110,
.062,
.085,
.072,
.077,
.000,
.000,
.000,
.051,
.053,
1
1
1
1
0
0
1
1
1
1
1
1
0
0
0
1
1
1
1
1
1
0
0
0
1
1
1
1
1
1
0
0
0
1
1
1
1
1
1
0
0
0
1
1
-------
67174
67175
67176
67177
67178
67179
67180
67181
67182
67183
67184
67185
67186
67187
67188
67189
67190
67191
67192
67193
67194
67195
67196
67197
67198
67199
67200
67201
67202
67203
67204
67205
67206
67207
67208
67209
67210
67211
67212
67213
67214
67215
67216
67217
67218
67219
67220
67221
67222
67223
67224
67225
67226
67227
67228
67229
67230
67231
c.
c
c.
c.
c.
c.
c
c.
c.
* 1.199, O.oyi,
* 1.199, 0.076,
ft 1.199, 0.065,
* 1 .199, 0.01*9,
ft 0.000, 0.000,
ft 0.000, 0.000,
ft 0.000, 0.000,
.NOX
DATA GPAC53/
ft 1 .068, 0.026,
ft 1 .068, 0.015,
ft 1.068, 0.053,
ft .068, 0.030,
ft 1.068, 0.040,
ft 1.068, 0.040,
ft 1.068, 0.05^,
ft 1.068, 0.067,
ft 0.000, 0.000,
.LDDT
.HC
DATA GPAC61/
ft 1.209, 0.112,
* 1.209, o.iio,
ft 1.209, 0.110,
ft 1.209, 0.115,
ft 1.209, 0.090,
ft 0.000, 0.000,
ft 0.000, 0.000,
ft 0.000, 0.000,
ft 0.000, 0.000,
.CO
DATA GPAC62/
ft 1.199, 0.062,
ft 1.199, 0.060,
ft 1.199, 0.057,
ft 1.199, 0.057,
ft 1.199, 0.049,
ft 0.000, 0.000,
ft 0.000, 0.000,
ft 0.000, 0.000,
ft 0.000, 0.000,
.NOX
DATA GPAC63/
ft .068, 0.033,
ft 1.068, 0.033,
ft .068, 0.036,
ft .068, 0.071,
ft .068, 0.040,
ft .068, 0.071,
ft .068, 0.040,
ft .068, 0.054,
ft 0.000, 0.000,
.MC
.HC
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
1
1
1
1
1
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
APPENDIX B
MOBILE2
•935, 0.051, 0
.935,
.935,
• 935,
.000,
.000,
.000,
.981,
.981,
.981,
.981,
.981,
.981,
.981,
.981,
.000,
.073,
.073,
.073,
.073,
.073,
.000,
.000,
.000,
.000,
.935,
• 935,
• 935,
.935,
.935,
.000,
.000,
.000,
.000,
.981,
.981,
.981,
.981,
.981,
.981,
.981,
.981,
.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
.055,
.046,
.034,
.000,
.000,
.000,
.029,
.018,
.054,
.032,
.042,
.042,
.055,
.068,
.000,
.091,
.089,
.089,
.093,
.072,
.000,
.000,
.000,
.000,
.044,
.043,
.040,
.040,
.034,
.000,
.000,
.000,
.000,
.036,
.035,
.038,
.072,
.042,
.072,
.042,
.055,
.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
.97**,
• 97^,
.974,
.974,
.000,
.000,
.000,
.985,
.985,
.985,
.985,
.985,
.985,
.985,
.985,
.000,
.703,
.703,
.703,
.703,
.703,
.000,
.000,
.000,
.000,
.974,
.974,
.974,
• 974,
.974,
.000,
.000,
.000,
.000,
.985,
.985,
.985,
.985,
.985,
.985,
.985,
.985,
.000,
0.060,
0.064,
0.055,
0.042,
0.000,
0.000,
0.000,
0.026,
0.015,
0.050,
0.029,
0.039,
0.038,
0.052,
0.064,
0.000,
0.093,
0.092,
0.092,
0.095,
0.077,
0.000,
0.000,
0.000,
0.000,
0.053,
0.051 ,
0.048,
0.048,
0.042,
0.000,
0.000,
0.000,
0.000,
0.032,
0.032,
0.035,
0.068,
0.038,
0.068,
0.038,
0.052,
0.000,
1
1
1
1
0
0
0
1
1
1
1
1
1
1
1
0
1
1
1
1
1
0
0
0
0
1
1
1
1
1
0
0
0
0
1
1
1
1
1
1
1
1
-------
67232
67233
67234
67235
67236
67237
67238
67239
67240
67241
6721*2
67243
67244
67245
67246
67247
67248
67249
67250
67251
67252
67253
67254
67255
67256
67257
67258
67259
67260
67261
67262
67263
67264
67265
67266
67267
67268
67269
67270
67271
67272
67273
67274
67275
67276
67277
67278
67279
67280
67281
67282
67283
67284
67285
67286
67287
67288
67289
APPENDIX
C.
C.
C
C.
C
C.
C
C.
C
C,
* 1.345, 0.071*. o
* 1-345, 0.178, 0
* 1.398, 0.060, 0
* 0.000, 0.000, 0
* 0.000, 0.000, 0
ft 0.000, 0.000, 0
ft 0.000, 0.000, 0
* 0.000, 0.000, 0
.CO
DATA GPAC82/
* 1.277, 0.033, 1
ft 1.1*142, 0.071, 0
ft 1.553, 0.109, 0
* 1.573, 0.051*, 0
ft 0.000, 0.000, 0
ft 0.000, 0.000, 0
ft 0.000, 0.000, 0
ft 0.000, 0.000, 0
ft 0.000, 0.000, 0
.NOX
DATA GPAC83/
ft 1.121, 0.009, 0
ft 1 . 199, -o. ooi*, o
ft 0.000, 0.000, 0
ft 0.000, 0.000, 0
ft 0.000, 0.000, 0
ft 0.000, 0.000, 0
ft 0.000, 0.000, 0
ft 0.000, 0.000, 0
ft 0.000, 0.000, 0
MOB
.946, 0
•919, 0
.885, o
.000, 0
.000, 0
.000, 0
.000, 0
.000, 0
.017, o
.996, o
.933, 0
.902, o
.000, 0
.000, 0
.000, 0
.000, 0
.000, 0
.785, o
•793, -0
.000, 0
.000, 0
.000, 0
.000, 0
.000, 0
.000, 0
.000, 0
ILE2
.054,
.118,
.055,
.000,
.000,
.000,
.000,
.000,
.029,
.01*2,
• 079,
.079,
.000,
.000,
.000,
.000,
.000,
.001,
.002,
.000,
.000,
.000,
.000,
.000,
.000,
.000,
.SPEED CORRECTION FACTOR COEFICI
.HDGV
DATA GPBCOl*/
ft 1.608, -.097,
* 1 .520, -.098,
ft .821*, ,0088,
* 1 .608, -.097,
ft 1 .520, -.098,
ft .821*. .0088,
ft 1.608, -.097,
ft 1.520, -.098,
ft .821*. .0088,
.LDDV
DATA GPBC05/
* .9090, -.055,
ft 1.3752, -.088,
ft .6680, -.01*8,
ft .9090, -.055,
* 1.3752, -.088,
ft .6680, -.01*8,
ft .9090, -.055,
ft 1.3752, -.088,
ft .6680, -.01*8,
.LDDT
.00083,
.00110,
.00000,
.00083,
.00110,
.00000,
,00083,
.00110,
.oooo/
.0001*1*.
.00091,
.00071,
.0001*1*,
.00091,
.00071,
.0001*1*.
.00091,
.000717
B
-------
67290
67291
67292
67293
67294
67295
67296
67297
67298
67299
67300
67301
67302
67303
67304
67305
67306
67307
67308
67309
67310
67311
67312
673U
67314
APPENDIX B
MOBILE2
DATA GPBC06/
C
C.
ft
* 1
it
A
* 1
sV
*
* 1
ft
.HDDV
.9090,
•3752,
.6680,
.9090,
•3752,
.6680,
.9090,
•3752,
.6680,
-.055,
-.088,
-.048,
-.055,
-.088,
-.048,
-.055,
-.088,
-.048,
.00044,
.00091,
,00071,
.00044,
.00091,
.00071,
.00044,
.00091,
.000717
DATA GPBC07/
C
C
ft
ft 1
ft
A
ft 1
ft
ft
ft 1
ft
• 924,
• 396,
.676,
• 924,
• 396,
.676,
• 924,
• 396,
.676,
-.055,
-.088,
-.048,
-.055,
-.088,
-.048,
-.055,
-.088,
-.048,
.00044,
.00091,
.00071,
.00044,
.00091,
.00071,
.00044,
.00091,
.000717
DECEMBER 12, 1980
END
»» BLOCK DATA 15 <«
-------
APPENDIX B
MOBILE2
DECEMBER 12, 1980
68000
68001
68002
68003
68004
68005
68006
68007
68008
68009
68010
68011
68012
68013
68014
68015
68016
68017
68018
68019
68020
68021
68022
68023
68024
68025
68026
68027
68028
68029
68030
68031
68032
68033
68034
68035
68036
68037
68038
68039
68040
68041
68042
68043
68044
68045
68046
68047
68048
68049
68050
68051
68052
68053
68054
68055
68056
68057
C
C.
C
C
C.
C
C
C
C
C
C
C.
C
C,
C.
C.
C
C
C.
C.
BLOCK DATA
.BLOCK DATA SUBPROGRAM 16
COMMON/PTRCOM/MAXIGP, 1 GPYRS (9,3,3,8)
.IGPYRS ( IG, IP, IR, IV )
DIMENSION
* IGPYR1 (9,3,3),
* |GPYR2(9,3,3),
* IGPYR3(9,3,3) ,
* IGPYR4(9,3,3) ,
* IGPYR5(9,3,3) ,
* IGPYR6(9,3,3) ,
* IGPYR7(9,3,3) ,
* IGPYR8(9,3,3)
EQUIVALENCE
* (IGPYRSd, 1,1,1) .IGPYR1 (1,1,1)) ,
* (IGPYRS(1, 1,1, 2) ,IGPYR2(1,1,1)) ,
* (IGPYRSd, 1,1, 3) ,IGPYR3(1,1,D) ,
* (IGPYRS (1,1, 1,4) , IGPYR4( 1,1,1)) ,
* (IGPYRSd, 1,1, 5) ,IGPYR5(1,I,D) ,
* (IGPYRSd, 1,1, 6) ,IGPYR6(1,1,1)) ,
* (IGPYRSd, 1,1, 7) ,IGPYR7(1,1,D) ,
* (IGPYRSd, 1,1, 8) , |GPYR8(1, 1,1))
DATA MAXIGP/9/
.LAST YEAR OF MODEL YEAR GROUPS FOR TEMP, C.F. 6 NORM. BAG FRACTIONS
DATA IGPYR1/
.LOW ALT. 49-STATE
* 1967,1969,1971,1974,1979,1980,1981,2020,0000,
* 1967,1969,1971,1974,1979,1980,1981,1982,2020,
* 1967, 1972, 1974, 1976, 1979, 1980,2020,0000,0000,
.CALIFORNIA
* 1965,1969,1971,1974,1976,1979,0000,2020,0000,
* 1965,1969,1971,1974,1976,1979,0000,0000,2020,
* 1 965 , 1 970 ,1974, 0000 ,1976,1 979 , 2020 , 0000 , 0000 ,
.HIGH ALT. 49-STATE
* 1967,1969,1971,1974,1979,1980,1981,2020,0000,
* 1967,1969,1971,1974,1979,1980,1981,1982,2020,
* 1967, 1972, 1974, 1976, 1979, 1980,2020,0000,0000/
DATA IGPYR2/
.LOW ALT. 49-STATE
* 1 967 , 1 969 , 1 97 1 , 1 974 , 1 980 , 1 984 , 2020 , 0000 , 0000 ,
* 1967, 1969,1971,1974,1980,1984,2020,0000,0000,
* 1 967 , 1 972 , 1 974 , 1 978 , 1 980 , 1 984 , 2020 , 0000 , 0000 ,
.CALIFORNIA
* 1965, 1969, 1971 , 1974, 1978, 1980,2020,0000,0000,
* 1965, 1969, 1971, 1974, 1978,1980,2020,0000,0000,
* 1965, 1970,1974,0000,1978, 1980,2020,0000,0000,
»» BLOCK DATA 16 <«
-------
APPENDIX B
MOB1LE2
DECEMBER 12, 1980
68058
68059
68060
68061
68062
68063
68064
68065
68066
68067
68068
68069
68070
68071
68072
68073
68074
68075
68076
68077
68078
68079
68080
68081
68082
68083
68084
68085
68086
68087
68088
68089
68090
68091
68092
68093
68094
68095
68096
68097
68098
68099
68100
68101
68102
68103
68104
68105
68106
68107
68108
68109
68110
68111
68112
68113
68114
68115
C..
C
C
C..
C..
C..
C
C
C..
C..
C..
C
C
C..
C.,
C.,
C
C
C.
C.
HIGH ALT. 49-STATE
ft 1967,1969,1971,1974,1980,1984,2020,OOOO,OOOO,
ft 1967,1969,1971,1974,1980,1984,2020,0000,0000,
* 1967,1972,1974,1978,1980,1984,2020,0000,00007
DATA IGPYR37
LOW ALT. 49-STATE
* 1969,1973,1978,
* 1969,1973,1978,
* 1969,1973,1978,
CALIFORNIA
ft 1968,1971,1977,
ft 1968,1971,1977,
ft 1968,1972,1977,
HIGH ALT. 49-STATE
* 1969,1973,1978,
* 1969,1973,1978,
* 1969,1973,1978,
1980,1984,2020, OOOO, OOOO, OOOO,
1980,1984,2020,OOOO,OOOO,OOOO,
1980,1984,2020,OOOO,OOOO,OOOO,
1980,OOOO,2020,OOOO,OOOO,OOOO,
1980,OOOO,2020,OOOO,OOOO,OOOO,
1980,OOOO,2020,OOOO,OOOO,OOOO,
1 980,1984,2020,OOOO,OOOO,OOOO,
1980,1984,2020,0000,0000,0000,
1980,1984,2020,0000,0000,00007
DATA IGPYR4/
LOW ALT. 49-STATE
* 1969,1973,1978,
ft 1969,1973,1978,
* 1969,1973,1978,
CALIFORNIA
ft 1968,1971,1976,
ft 1968,1971,1976,
ft 1968,1972,1976,
HIGH ALT. 49-STATE
* 1969,1973,1978,
ft 1969,1973,1978,
* 1969,1973,1978,
DATA IGPYR57
LOW ALT. 49-STATE
* 1974,1976,1977,
* 1974,1976,1977,
ft 1974,1976,1977,
CALIFORNIA
* 1974,1976,1977,
* 1974,1976,1977,
ft 1974,1976,1977,
HIGH ALT. 49-STATE
ft 1974,1976,1977,
* 1974,1976,1977,
* 1974,1976,1977,
1983,1984,2020,0000,0000,0000,
1983,1984,2020,0000,0000,0000,
1983,1984,2020,0000,0000,0000,
1983,2020,0000,0000,0000,0000,
1983,2020,0000,0000,0000,0000,
1983,2020,OOOO,OOOO,OOOO,OOOO,
1983,1984,2020,OOOO,OOOO,OOOO,
1983,1984,2020,0000,0000,0000,
1983,1984,2020,OOOO,OOOO,OOOO/
1978,1979,2020,0000,0000,0000,
1978,1979,2020,0000,0000,0000,
1978,1979,1980,1982,2020,0000,
1978,1979,2020,0000,0000,0000,
1978,1979,2020,0000,0000,0000,
1978,1979,0000,1981,2020,0000,
1978,1979,2020,0000,0000,0000,
1978,1979,2020,OOOO,OOOO,OOOO,
1978,1979,1980,1982,2020,0000/
DATA IGPYR6/
,LOW ALT. 49-STATE
* 1978,1979,1982,2020,0000,0000,0000,0000,0000,
* 1978,1979,1982,2020,0000,OOOO,OOOO,OOOO,OOOO,
ft 1978,1979,1984,2020,0000,0000,0000,0000,0000,
.CALIFORNIA
ft oooo,oooo,oooo,i978,2020,oooo,oooo,oooo,oooo,
»» BLOCK DATA 16 <«
-------
APPENDIX B
MOBILE2
DECEMBER 12, 1980
68116
68117
68118
68119
68120
68121
68122
68123
68124
68125
68126
68127
68128
68129
68130
68131
68132
68133
68134
68135
68136
68137
68138
68139
68140
68141
68142
68143
68144
68145
68146
68147
68148
68149
68150
68151
68152
68153
* 0000,0000,0000,1978,2020,0000,0000,0000,0000,
* oooo , oooo , oooo , oooo , 1 978 , 1 980 , 1 982 , 2020 , oooo ,
C..HIGH ALT. 49-STATE
* 1 978 , 1 979 , 1 982 , 2020 , OOOO , OOOO , OOOO , OOOO , OOOO ,
* 1978,1979,1982,2020,0000,0000,0000,0000,0000,
* 1978, 1979, 1984, 2020, OOOO, OOOO, OOOO, OOOO, OOOO/
c
c
DATA IGPYR7/
C..LOW ALT. 49-STATE
* 2020 , OOOO , OOOO , OOOO , OOOO , OOOO , OOOO , OOOO , OOOO ,
* 2020 , OOOO , OOOO , OOOO , OOOO , OOOO , OOOO , OOOO , OOOO ,
* 2020 , OOOO , OOOO , OOOO , OOOO , OOOO , OOOO , OOOO , OOOO ,
C.. CALIFORNIA
* 2020 , OOOO , OOOO , OOOO , OOOO , OOOO , OOOO , OOOO , OOOO ,
* 2020 , OOOO , OOOO , OOOO , OOOO , OOOO , OOOO , OOOO , OOOO ,
* 2020 , OOOO , OOOO , OOOO , OOOO , OOOO , OOOO , OOOO , OOOO ,
C..HIGH ALT. 49-STATE
* 2020 , OOOO , OOOO , OOOO , OOOO , OOOO , OOOO , OOOO , OOOO ,
* 2020 , OOOO , OOOO , OOOO , OOOO , OOOO , OOOO , OOOO , OOOO ,
* 2020 , OOOO , OOOO , OOOO , OOOO , OOOO , OOOO , OOOO , OOOO/
c
c
DATA IGPYR8/
C..LOW ALT. 49-STATE
* 1977,1979,2020,0000,0000,0000,0000,0000,0000,
* 1977,1979,2020, OOOO , OOOO , OOOO , OOOO , OOOO , OOOO ,
* 1977, 2020 , OOOO , OOOO , OOOO , OOOO , OOOO , OOOO , OOOO ,
C.. CALIFORNIA
* 1977,1979,1981,2020, oooo , oooo , oooo , oooo , oooo ,
* 1977,1979,1981,2020,0000,0000,0000,0000,0000,
* 1977, 2020 , OOOO , OOOO , OOOO , OOOO , OOOO , OOOO , OOOO ,
C..HIGH ALT. 49-STATE
* 1977, 1979,2020,0000,0000,0000,0000,0000,0000,
* 1977, 1979,2020,0000,0000,0000,0000,0000,0000,
* 1977,2020, oooo , oooo , oooo , oooo , oooo , oooo , oooo/
c
END
»» BLOCK DATA 16 <«
-------
APPENDIX B
MOBILE2
DECEMBER 12, 1980
69000
69001
69002
69003
69004
69005
69006
69007
69008
69009
69010
69011
69012
69013
69014
69015
69016
69017
69018
69019
69020
69021
69022
69023
69024
69025
69026
69027
69028
69029
69030
69031
69032
69033
69034
69035
69036
69037
69038
69039
69040
69041
69042
69043
69044
69045
69046
69047
69048
69049
69050
69051
69052
69053
69054
69055
69056
69057
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
BLOCK DATA
.BLOCK DATA SUBPROGRAM 17
COMMON/ISPCOM/ISPYRS(l8,3,3) , 1 SPYR8 (18, 3, 3)
.ISPYRS ( IG, IR, IV )
.ISPYR8 ( IG, IR, IV )
DIMENSION
* ISPYR1 (18,3) ,
* ISPYR208.3) ,
* ISPYR3(l8,3)
EQUIVALENCE
ft(ISPYRS(l,l,l) , ISPYR1 (1,1)) ,
* (ISPYRS (1,1, 2) ,ISPYR2(1,1)) ,
*(ISPYRS(1, 1,3) ,ISPYR3(1,D)
.LAST YEAR OF MODEL YEAR GROUPS FOR SPEED CORRECTION FACTOR COEFFS
LDGV
DATA ISPYR1/
.LOW ALT. 49-STATE
ft 0000,1967,0000,1968, 1969,1970,1971,0000,0000,0000,
ft oooo , oooo , oooo ,1972, oooo , oooo , i 974 , 2020 ,
.CALIFORNIA
ft oooo , 1 965 , 1 967 , 1 968 , 1 969 , 1 970 , 1 97 1 , oooo , oooo , oooo ,
ft 0000,0000, 1972,0000,0000, 1974,0000,2020,
.HIGH ALT. 49-STATE
ft 1967,0000,0000,0000,0000,0000,0000, 1968, 1969, 1970,
ft 1971.1972, OOOO , OOOO ,1974, OOOO , OOOO , 2020/
LDGT1
DATA ISPYR2/
.LOW ALT. 49-STATE
ft oooo ,1967, oooo , i 968 , i 969 , i 970 , i 97 i , oooo , oooo , oooo ,
ft 0000,0000,0000,1972,0000,0000,1974,2020,
.CALIFORNIA
ft oooo, 1965, 1967, 1968, 1969, 1970, 1971 ,0000,0000,0000,
ft 0000,0000, 1972,0000,0000, 1974,0000,2020,
.HIGH ALT. 49-STATE
ft i 967 , oooo , oooo , oooo , oooo , oooo , oooo , i 968 , i 969 , i 970 ,
* 1971 , 1972,0000,0000, 1974, OOOO, OOOO, 2020/
LDGT2
DATA ISPYR3/
.LOW ALT. 49-STATE
ft oooo ,1969, oooo , oooo ,1973, oooo , oooo , oooo , oooo , oooo ,
ft oooo , oooo , oooo , oooo , oooo , oooo ,1978,2020,
.CALIFORNIA
ft oooo ,1968,1971, oooo , oooo , oooo , oooo , oooo , oooo , oooo ,
ft OOOO , OOOO , OOOO ,1972, OOOO ,1977, OOOO , 2020 ,
.HIGH ALT. 49-STATE
ft 1969, oooo , oooo , oooo , oooo , oooo , oooo , oooo , oooo , oooo ,
ft OOOO ,1973, OOOO , OOOO ,1978, OOOO , OOOO , 2020/
MC
DATA ISPYR8/
»» BLOCK DATA 17 <«
-------
APPENDIX B
MOBILE2 DECEMBER 12, 1980
69058 C..HC
69059 C..LOW ALT. 49-STATE
69060 it 0000,1977,0000,0000,1979,0000,2020,0000,0000,0000,
69061 * 0000,0000,0000,0000,0000,0000,0000,0000,
69062 C..CALIFORNIA
69063 * oooo,1977,oooo,oooo,1979,oooo,i98i,oooo,oooo,oooo,
69061> * 0000,0000,0000,2020,0000,0000,0000,0000,
69065 C..HIGH ALT. 1*9-STATE
69066 * 1977,0000,0000,0000,0000,0000,0000,0000,1979,0000,
69067 * 2020,0000,0000,0000,0000,0000,0000,0000,
69068 c..co
69069 C..LOW ALT. 1*9-STATE
69070 * 0000,1977,0000,0000,1979,0000,2020,0000,0000,0000,
69071 * 0000,0000,0000,0000,0000,0000,0000,0000,
69072 C..CALIFORNIA
69073 * 0000,1977,0000,0000,1979,0000,1981,0000,0000,0000,
69071* * 0000,0000,0000,2020,0000,0000,0000,0000,
69075 C..HIGH ALT. 1*9-STATE
69076 * 1977,0000,0000,0000,0000,0000,0000,0000,1979,0000,
69077 * 2020,0000,0000,0000,0000,0000,0000,0000,
69078 C..NOX
69079 C..LOW ALT. i*9-STATE
69080 * oooo,1977,oooo,oooo,oooo,oooo,oooo,oooo,oooo,oooo,
69081 * 0000,0000,0000,2020,0000,0000,0000,0000,
69082 C..CALIFORNIA
69083 * 0000,1977,0000,0000,0000,0000,0000,0000,0000,0000,
69081* * 0000,0000,0000,2020,0000,0000,0000,0000,
69085 C..HIGH ALT. 1*9-STATE
69086 it 1977,0000,0000,0000,0000,0000,0000,0000,0000,0000,
69087 * oooo,2020,oooo,oooo,oooo,oooo,oooo,oooo/
69088 c
69089 END
»» BLOCK DATA 17 <«
-------
APPENDIX B
MOBILE2
DECEMBER 12, 1980
70000
70001
70002
70003
70004
70005
70006
70007
70008
70009
70010
70011
70012
70013
70011*
70015
70016
70017
70018
70019
70020
70021
70022
70023
70024
70025
70026
70027
70028
70029
70030
70031
70032
70033
70034
70035
70036
70037
70038
70039
70040
70041
70042
70043
70044
70045
70046
70047
70048
70049
70050
70051
70052
70053
70054
70055
70056
70057
C
C.
C
C
C.
C.
C.
C.
C
C
C
C
C
C
C
C.
C.
C.
C.
C
C.
C.
C.
BLOCK DATA
.BLOCK DATA SUBPROGRAM IB
.ACEQIP ( IGEPTR, IVP, IR )
.ACCF ( 1C, IP, IGUPTR, IVP, IR ) : IC=COEF. #
.XLCF ( IP, IGLPTR, IVP, IR )
.TWCF ( IP, IGTPTR, IVP, IR )
COMMON/ALUCOM/ACEQIP(8,3,3) ,ACCF (2,3,2,3,3)
COMMON/ALUCOM/XLCF (3,6,3,3) ,TWCF (3,6,3,3)
DIMENSION XLCFl (3,6,3) , XLCF2 (3,6,3) ,XLCF3(3,6,
EQUIVALENCE
* (XLCF(1, 1,1,1), XLCFl (1,1,1)) ,
* (XLCF (1,1,1. 2), XLCF2(1, 1,1)) ,
ft (XLCF (1,1,1, 3), XLCF3H, 1,D)
DIMENSION TWCFl (3,6,3) .TWCF2 (3,6,3) ,TWCF3(3,6,
EQUIVALENCE
ft (TWCF (1,1,1,1) , TWCFl (1,1,1)) ,
* (TWCF (1,1,1,2) .TWCF2 (1,1,1) ),
* (TWCF (1,1,1,3) .TWCF3 (1,1,1) )
.FRACTION OF VEHICLES EQUIPED WITH A/C
DATA ACEQIP/
.LOW ALT. 49-STATE
* -07, -14, .24, .37, .51, .61, .72, 0
* .32, .52, .39, o.o, o.o, o.o, o.o, o
* .32, .52, .39, o.o, o.o, o.o, o.o, o
.CALIFORNIA
* -07, .14, .24, .37, .51, -61, .72, 0
* .32, .52, .39, 0.0, 0.0, 0.0, 0.0, 0
ft .32, .52, .39, o.o, o.o, o.o, o.o, o
.HIGH ALT. 49-STATE
* .07, .14, .24, .37, .51, .61, .72, 0
ft .32, .52, .39, o.o, o.o, o.o, o.o, o
ft .32, .52, .39, 0.0, 0.0, 0.0, 0.0, 0
.A/C CORRECTION FACTOR
DATA ACCF/
.LOW ALT. 49-STATE
ft 1.0230E+0, 0.3344E-2, 1.2020E+0, 0.1808E-2, 1
ft .OOOOE+0, 0.3512E-2, 1.1300E+0, 0.1528E-2, 1
ft .0230E+0, 0.3344E-2, 1.2020E+0, 0.l8o8E-2, 1
ft .OOOOE+0, 0.3512E-2, 1.1300E+0, 0.1528E-2, 1
ft .0230E+0, 0.3344E-2, 1.2020E+0, 0.1808E-2,
ft .OOOOE+0, 0.3512E-2, 1.1300E+0, 0.1528E-2,
.CALI ORNIA
ft .0230E+0, 0.3344E-2, 1.2020E+0, Q.l8o8E-2,
ft .OOOOE+0, 0.3512E-2, M300E+0, 0.1528E-2,
ft .0230E+0, 0.3344E-2, 1.2020E+0, 0.1808E-2,
* 1. OOOOE+0, 0.3512E-2, 1.1300E+0, 0.1528E-2, 1
ft 1.0230E+0, 0.3344E-2, 1.2020E+0, 0.1808E-2, 1
3)
3)
.0,
.0,
.0,
.0,
.0,
.0,
.0,
.0,
.o/
.2990E+0,
.2210E+0,
.2990E+0,
.2210E+0,
.2990E+0,
.2210E+0,
.2990E+0,
.2210E+0,
.2990E+0,
.2210E+0,
.2990E+0,
0.5643E-4,
0.4262E-3,
0.5643E-4,
0.4262E-3,
0.5643E-4,
0.4262E-3,
0.5643E-4,
0.4262E-3,
0.5643E-4,
0.4262E-3,
0.5643E-4,
»» BLOCK DATA 18 <«
-------
APPENDIX B
MOBILE2
DECEMBER 12, 1980
70058
70059
70060
70061
70062
70063
7006*4
70065
70066
70067
70068
70069
70070
70071
70072
70073
7007*4
70075
70076
70077
70078
70079
70080
70081
70082
70083
7008*4
70085
70086
70087
70088
70089
70090
70091
70092
70093
70094
70095
70096
70097
70098
70099
70100
70101
70102
70103
7010/4
70105
70106
70107
70108
70109
70110
70111
70112
70113
7011*4
70115
c.
c
c.
c.
c.
c.
c.
c.
c
c.
* l.OOOOE+0, 0.3512E-2, 1,
.HIGH ALT. *»9-STATE
* 1.0230E+0, 0.33*4*4E-2, 1.
* l.OOOOE+0, 0.3512E-2, 1.
* 1.0230E+0, 0.33*4*4E-2, 1.
* l.OOOOE+0, 0.3512E-2, 1.
* 1.0230E+0, 0.33*4*4E-2, 1.
* l.OOOOE+0, 0.3512E-2, 1.
.EXTRA LOAD C.F.
HC CO NOX
.LOW ALT. *49~STATE
DATA XLCF1/
.LDGV
*
*
*
ft
>';
ft
.LDGT1
X
ft
ft
*
ft
*
.LDGT2
ft
it
ft
ft
*
ft
1.
1.
1.
1.
1.
1 .
1.
1 .
1.
1 .
1 .
1 .
1.
1 .
1.
1.
0.
0.
.CALIFORN
DATA
C.
C.
C.
.LDGV
ft
ft
it
ft
*
*
.LDGT1
ft
*
*
*
ft
it
.LDGT2
ft
ft
ft
ft
ft
ft
1.
1 .
1.
1 .
1.
1.
1.
1.
1.
1.
1.
1.
1 .
1.
1.
1.
1.
0.
0786,
0*495,
0852,
0556,
0556,
0*455,
0786,
0*495,
0852,
0556,
0556,
0*455,
0786,
0*495,
0556,
0*455,
0000,
0000,
1 A
XLCF2/
0786,
0*495,
0852,
0852,
0556,
0*455,
0786,
0*495,
0852,
0852,
0556,
Oi.55,
0786,
0*495,
0556,
0556,
0*455,
0000,
l
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
0
0
1
1
1
i
i
i
i
i
i
i
0
.2765,
.138*4,
.2*478,
• 13*»7,
.13*47,
.3058,
.2765,
.138*4,
.2*478,
• 13**7,
.13*47,
.3058,
.2765,
.138*4,
.13*47,
.3058,
.0000,
.0000,
.2765,
.138*4,
.2*478,
.2*478,
• 13*47,
.3058,
.2765,
.138*4,
.2*478,
.2*478,
.13*47,
.3058,
.2765,
.138*4,
.13*47,
.13*47,
.3058,
.0000,
0
1
1
1
]
1
0
1
1
1
1
1
0
1
1
1
0
0
0
1
}
}
]
1
0
1
1
1
1
1
0
1
1
1
1
0
• 9535
.0313
.0313
.0313
.0753
.0719
.9535
.0313
.0313
.0313
.0753
.0719
• 9535
.0313
.0753
.0719
.0000
1300E+0, 0.1528E-2, 1.2210E+0, 0.*4262E-3,
2020E+0, 0.1808E-2, 1.2990E+0, 0.56*43E-*4,
1300E+0, 0.1528E-2, 1.2210E+0, 0.4262E-3,
2020E+0, 0.1808E-2, 1.2990E+0, 0.56*43E-*4,
1300E+0, 0.1528E-2, 1.2210E+0, 0.*4262E-3,
2020E+0, 0.1808E-2, 1.2990E+0, 0-56*43E-*4,
1300E+0, 0.1528E-2, 1.2210E+0, 0.*4262E-3/
>
>
9
»
f
t
f
t
I
>
»
»
*
9
*
»
f
.oooo/
• 9535
.0313
• 0313
.0753
.0753
.0719
• 9535
.0313
.0313
.0753
.0753
.0719
.9535
.0313
• 0313
.0753
.0719
)
J
t
•
*
t
>
)
f
)
»
•
»
1
1
1
I
.OOOO/
»» BLOCK DATA 18 <«
-------
APPENDIX B
MOBILE2
DECEMBER 12, 1980
70116
70117
70118
70119
70120
70121
70122
70123
7012i*
70125
70126
70127
70128
70129
70130
70131
70132
70133
7013^
70135
70136
70137
70138
70139
70140
7011*1
70142
70143
70144
70145
70146
70147
70148
70149
70150
70151
70152
70153
70154
70155
70156
70157
70158
70159
70160
70161
70162
70163
70164
70165
70166
70167
70168
70169
70170
70171
70172
70173
c
c.
c.
c.
c.
c
c
c.
c.
c.
.HIGH ALT
DATA
.LDGV
it
it
ft
ft
ft
ft
.LDGT1
it
it
it
ft
it
it
.LDGT2
it
it
it
it
it
it
1.
1.
1.
1.
1.
1.
»
.
.
,
,
.
.
,
.
.
0.
0.
.TRAILER
•
HC
.LOW ALT.
DATA
C.
C.
C.
C
C.
.LDGV
it
it
it
is
it
it
.LDGT1
it
it
it
it
it
it
.LDGT2
ft
ft
ft
*
ft
ft
1 .
1.
1.
1 .
1 .
1.
1 .
1 .
1 .
1.
1 .
1.
1.
1.
1.
1,
0.
0.
.CALIFORN
. 49-STATE
XLCF3/
0786
0495
0852
0556
0556
0455
0786
0495
0852
0556
0556
0455
0786
0495
0556
0455
0000
0000
TOWI
, 1.
, 1.
f •
» •
1 •
> •
t •
» •
9 *
* •
I *
» •
I •
I •
, 1.
, 1.
, o.
, o.
NG C
CO
2765,
1384,
2478,
13^7,
1347,
3058,
2765,
1384,
2478,
13**7,
1347,
3058,
2765,
1384,
1347,
3058,
0000,
0000,
.F.
0
0
1
1
1
0
1
1
1
0
0
.9535
.0313
.0313
.0313
.0753
.0719
• 9535
.0313
.0313
• 0313
.0753
.0719
• 9535
.0313
.0753
.0719
.0000
f
1
*
•
f
»
»
f
f
9
I
•
t
f
t
t
•
.00007
NOX
49-STATE
TWCF
2614
2762
4598
7288
7288
5909
2614
2762
4598
7288
7288
5909
2614
2762
7288
5909
0000
0000
IA
I/
, 1.
, 1.
, 2.
, 2.
, 2.
, 3-
, 1.
, 1.
, 2.
, 2.
, 2.
, 3-
, 1.
, 1.
, 2.
, 3.
, o.
, 0.
9327,
8940,
4753,
1414,
1414,
9722,
9327,
8940,
4753,
1414,
1414,
9722,
9327,
8940,
1414,
9722,
0000,
0000,
1
1
1
1
1
1
0
0
.1184
.1384
.1384
.1384
.2170
.3875
.1184
.1384
.1384
.1384
.2170
• 3875
.1184
.1384
.2170
• 3875
.0000
*
*
»
*
*
•
1
t
1
t
>
I
f
«
f
»
1
.00007
DATA TWCF27
,LDGV
* 1.2614, 1.9327, 1.1184,
* 1.2762, 1.8940, 1.1384,
* 1.4598, 2.4753, 1.1384,
»» BLOCK DATA 18 <«
-------
70171*
70175
70176
70177
70178
70179
70180
70181
70182
70183
70181*
70185
70186
70187
70188
70189
70190
70191
70192
70193
70191*
70195
70196
70197
70198
70199
70200
70201
70202
70203
70201*
70205
70206
70207
70208
70209
70210
70211
70212
70213
70211*
70215
70216
c.
c.
it
ft
ft
.LDGT1
*
ft
ft
ft
ft
ft
.LDGT2
ft
ft
ft
ft
ft
.1*598,
.7288,
•5909,
.2611*.
.2762,
.1*598,
.4598,
.7288,
•5909,
.26Ut,
.2762,
.7288,
.7288,
.5909,
1< 0.0000,
c
c.
2.1*753,
2.11*11*,
3.9722,
K9327,
1.891*0,
2.1*753,
2.1*753,
2,1411*.
3.9722,
1.9327,
1.8940,
2,11*11*,
2.11*11*.
3.9722,
0.0000,
APPENDIX B
MOBILE2
1.2170,
1.2170,
1.3875,
1.1181*.
1.1381*,
1.1381*.
1.2170,
1.2170,
1.3875,
1.1181*,
1.1381*.
1.1381*,
1.2170,
1.3875,
o.oooo/
.HIGH ALT. 1»9-STATE
DATA TWCF3/
C.
C.
c.
.LDGV
ft
ft
ft
ft
ft
ft
.LDGT1
ft
ft
ft
ft
ft
ft
.LDGT2
ft
ft
ft
ft
.2611*.
.2762,
.1*598,
.7288,
.7288,
•5909,
.2611*.
.2762,
. 1*598,
.7288,
.7288,
•5909,
.2611*.
•2762,
.7288,
.5909,
* 0.0000,
* 0.0000,
1.9327,
1.891*0,
2.1*753,
2.11*14,
2.11*11*.
3-9722,
1-9327,
1.8940,
2.1*753,
2.11»11»,
2.11*11*.
3-9722,
1.9327,
K8940,
2.11*11*.
3-9722,
0.0000.
0.0000,
1.1181*.
1.1381*.
1,1381*,
1.1381*.
1.2170,
1.3875,
1.1181*.
1.1381*.
1.1381*.
1.1381*.
1.2170,
1.3875,
1.1 181*.
1.1381*.
1.2170,
1.3875,
0.0000,
o.oooo/
DECEMBER 12, 1980
END
»» BLOCK DATA 18 <«
-------
APPENDIX B
MOBILE2
DECEMBER 12, 1980
71000
71001
71002
71003
71004
71005
71006
71007
71008
71009
71010
71011
71012
71013
7)014
71015
71016
71017
71018
71019
71020
71021
71022
71023
71021*
71025
71026
71027
71028
71029
71030
71031
71032
71033
71031*
71035
71036
71037
71038
71039
710i*0
710i»l
7101*2
7101*3
7101*1*
71045
7101*6
7101*7
7101*8
7101*9
71050
71051
71052
71053
71054
71055
71056
71057
BLOCK DATA
C
C.. BLOCK DATA SUBPROGRAM 19
C
COMMON/ALUPTR/IGEYRS (8,3,3) , IGUYRS (2,3,3)
COMMON/ALUPTR/IGLYRS(6,3,3) , 1 GTYRS (6, 3, 3)
C
C..IGEYRS ( IG, IVP, IR )
C.. IGUYRS ( IG, IVP, IR )
C..IGLYRS ( IG, IVP, IR )
C..IGTYRS ( IG, IVP, IR )
C
C..LAST YEAR OF MODEL YEAR GROUPS FOR A/C EQUIPED
C..A/C EQUIPED
DATA IGEYRS/
C..LOW ALT. 49-STATE
* 1961, 1961*, 1966, 1968, 197 1,1 976, 2020
* 1976, 1977,2020,0000,0000,0000,0000
* 1 976 , 1 977 , 2020 , 0000 , 0000 , 0000 , 0000
C.. CALIFORNIA
* 196 1,1 964, 1966, 1968, 197 1,1 976, 2020
* 1976, 1977,2020,0000,0000,0000,0000
* 1976, 1977,2020,0000,0000,0000,0000
C..HIGH ALT. 49-STATE
* 1961,1964,1966,1968,1971,1976,2020
* 1976, 1977,2020,0000,0000,0000,0000
* 1976, 1977,2020,0000,0000,0000,0000
C
C..LAST YEAR OF MODEL YEAR GROUPS FOR
C..A/C CORRECTION FACTOR
DATA IGUYRS/
C..LOW ALT. 49-STATE
* 1974,2020,
* 1974,2020,
* 1978,2020,
C.. CALIFORNIA
* 1974,2020,
* 1974,2020,
* 1977,2020,
C..HIGH ALT. 49-STATE
* 1974,2020,
* 1974,2020,
* 1978,2020/
C
C..LAST YEAR OF MODEL YEAR GROUPS FOR
C. .EXTRA LOAD C.F.
DATA IGLYRS/
C..LOW ALT. 49-STATE
* 1967,1969,1971,1972,1974,2020,
* 1967,1969,1971,1972,1974,2020,
* 1969,1973,1978,2020,0000,0000,
C. .CALIFORNIA
* 1965,1969,1970,1971,1974,2020,
* 1965,1969,1970,1971,1974,2020,
* 1968,1971,1972,1977,2020,0000,
C..HIGH ALT. 49-STATE
* 1967,1969,1971,1972,1974,2020,
* 1967,1969,1971,1972,1974,2020,
,0000,
,0000,
,0000,
,0000,
,0000,
,0000,
,0000,
,0000,
,00007
»» BLOCK DATA 19 <«
-------
71058
71059
71060
71061
71062
71063
71065
71066
71067
71068
71069
71070
71071
71072
71073
7107^
71075
71076
APPENDIX B
MOBILE2
* 1969,1973,1978,2020,0000,00007
.LAST YEAR OF MODEL YEAR GROUPS FOR
.TRAILER TOWING C.F.
DATA IGTYRS7
.LOW ALT. i»9-STATE
* 1967,1969,1971,1972,197^,2020,
* 1967,1969,1971,1972,197^,2020,
* 1969,1973,1978,2020,0000,0000,
.CALIFORNIA
* 1965,1969, 1970,1971,1971*,2020,
* 1965,1969,1970,1971, W,2020,
* 1968,1971,1972,1977,2020,0000,
.HIGH ALT. i»9-STATE
* 1967,1969,1971,1972,197'*,2020,
* 1967,1969,1971,1972,197^,2020,
* 1969,1973,1978,2020,0000,00007
END
DECEMBER 12, 1980
»» BLOCK DATA 19 <«
-------
73000
73001
73002
73003
73004
73005
73006
73007
73008
73009
73010
73011
73012
73013
73014
73015
73016
73017
73018
73019
73020
73021
73022
73023
73024
73025
73026
73027
73028
73029
73030
73031
73032
73033
73034
73035
73036
73037
73038
73039
73040
73041
73042
73043
73044
73045
73046
73047
73048
73049
73050
73051
73052
73053
73054
73055
73056
73057
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.
APPENDIX B
MOBILE2 DECEMBER 12, 1980
BLOCK DATA
.BLOCK DATA SUBPROGRAM 20
COMMON/GSFCOM/MAXGSF.GSF 08,8,3) , 1 GSFYR (18,8, 3)
.GSF ( IGSFPT, IV, IR )
.IGSFYR ( IG, IV, IR )
DIMENSION
* GSF 1(18, 8),
ft GSF2(l8,8),
* GSF3(l8,8),
* IGSFY1 (18,8) ,
* IGSFY2(l8,8) ,
* IGSFY3(l8,8)
EQUIVALENCE
* (GSF(1,1,1) ,GSF1 (1,1)) ,
ft (GSF(1,1,2) ,GSF2(1,1)) ,
* (GSF(1,1,3),GSF3(1.D),
* (IGSFYR(1,1,1) , IGSFY1 (1,1)) ,
* (IGSFYR(1,1,2) .IGSFY2 (1, 1)) ,
* (IGSFYR(1,1,3).IGSFY3(1,D)
DATA MAXGSF/18/
.GASOLINE (OR DIESEL) SALES FRACTION OF TOTAL FLEET SALES
.LOW ALT. 49-STATE
DATA GSF I/
.LDGV
* 1.000,0.998,0.997,0.995,0.991,0.972,0.966,0.953,0.925,
* 0.911,0.905,0.886,0.862,0.835,0.824,0.813,0.803,0.800,
.LDGT1
ft 1.000,0.991,0.972,0.966,0.953,0.925,0.911,0.905,0.886,
* 0.862,0.835,0.824,0.8)3,0.803,0.800,0.000,0.000,0.000,
.LDGT2
* 1.000,0.991,0.972,0.966,0.953,0.925,0.911,0.905,0.886,
* 0.862,0.835,0.824,0.813,0.803,0.800,0.000,0.000,0.000,
.HDGV
ft 1 . 000 , 0 . 000 , 0 . 000 , 0 . 000 , 0 . 000 , 0 . 000 , 0 . 000 , 0 . 000 , 0 . 000 ,
ft 0 . 000 , 0 . 000 , 0 . 000 , 0 . 000 , 0 . 000 , 0 . 000 , 0 . 000 , 0 . 000 , 0 . 000 ,
.LDDV
ft 0.000,0.002,0.003,0.005,0.009,0.028,0.034,0.047,0.075,
ft 0.089,0.095,0.114,0.138,0.165,0.176,0.187,0.197,0.200,
,LDDT
ft 0.000,0.009,0.028,0.034,0.047,0.075,0.089,0.095,0.114,
ft 0.138,0.165,0. 176,0. 187,0.197,0.200,0.000,0.000,0.000,
.HDDV
ft 1 .000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,
ft 0 . 000 , 0 . 000 , 0 . 000 , 0 . 000 , 0 . 000 , 0 . 000 , 0 . 000 , 0 . 000 , 0 . 000 ,
.MC
ft 1 .000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,
»» BLOCK DATA 20 <«
-------
APPENDIX B
MOBILE2
73058
73059
73060
73061
73062
73063
73064
73065
73066
73067
73068
73069
73070
73071
73072
73073
73074
73075
73076
73077
73078
73079
73080
73081
73082
73083
73084
73085
73086
73087
73088
73089
73090
73091
73092
73093
73094
73095
73096
73097
73098
73099
73)00
73101
73102
73103
73104
73105
73106
73107
73108
73109
73110
73111
73H2
73H3
73114
73H5
C
C.
C.
C.
C.
C.
C.
C.
C.
C.
C
C.
C.
C.
C.
C.
C,
C.
C.
C.
C
C
C.
* 0.000,0.000,0.000,0.000,0.000,0
.CALIFORNIA
DATA GSF2/
.LDGV
* 1.000,0.998,0.997,0.995,0.991,0
* 0.911,0.905,0.886,0.862,0.835,0
.LDGT1
* 1.000,0.991,0.972,0.966,0.953,0
* 0.862,0.835,0.824,0.813,0.803,0
.LDGT2
* 1.000,0.991,0.972,0.966,0.953,0
* 0.862,0.835,0.824,0.813,0.803,0
.HDGV
A 1.000,0.000,0.000,0.000,0.000,0
* 0 . 000 , 0 . 000 , 0 . 000 , 0 . 000 , 0 . 000 , 0
.LDDV
A 0.000,0.002,0.003,0.005,0.009,0
* 0.089,0.095,0.114,0.138,0.165,0
.LDDT
* 0.000,0.009,0.028,0.034,0.047,0
* 0 . 1 38 , 0 . 1 65 , 0 . 1 76 , 0 . 1 87 , 0 . 1 97 , 0
.HDDV
A 1 . 000 , 0 . 000 , 0 . 000 , 0 . 000 , 0 . 000 , 0
* 0.000,0.000,0,000,0.000,0.000,0
.MC
A 1 . 000 , 0 . 000 , 0 . 000 , 0 . 000 , 0 . 000 , 0
A 0 . 000 , 0 . 000 , 0 . 000 , 0 . 000 , 0 . 000 , 0
.HIGH ALT. 49-STATE
DATA GSF3/
.LDGV
A 1.000,0.998,0.997,0.995,0.991,0
A o . 9 1 1 , 0 . 905 , 0 . 886 , 0 . 862 , 0 . 835 , 0
.LDGT1
A 1.000,0.991,0.972,0.966,0.953,0
A 0.862,0.835,0.824,0.813,0.803,0
.LDGT2
A 1.000,0.991,0.972,0.966,0.953,0
A 0.862,0.835,0.824,0.813,0.803,0
.HDGV
A 1 .000,0.000,0.000,0.000,0.000,0
A 0 . 000 , 0 . 000 , 0 . 000 , 0 . 000 , 0 . 000 , 0
.LDDV
A 0.000,0.002,0.003,0.005,0.009,0
A 0.089,0.095,0.114,0. 138,0.165,0
.LDDT
A 0.000,0.009,0.028,0.034,0.047,0
A 0.138,0.165,0.176,0.187,0.197,0
.HDDV
A 1 .000,0.000,0.000,0.000,0.000,0
A 0 . 000 , 0 . 000 , 0 . 000 , 0 . 000 , 0 . 000 , 0
.MC
* 1.000,0.000,0.000,0.000,0.000,0
A 0 . 000 , 0 . 000 , 0 . 000 , 0 . 000 , 0 . 000 , 0
.LAST YEAR OF MODEL YEAR GROUPS
DECEMBER 12, 1980
, 000,0.000,0.000,0.OOO/
,972,0.966,0.953,0.925,
,824,0.813,0.803,0.800,
,925,0.911,0.905,0.886,
,800,0.000,0.000,0.000,
925,0.911,0.905,0.886,
,800,0.000,0.000,0.000,
,000,0.000,0.000,0.000,
,000,0.000,0.000,0.000,
,028,0.034,0.047,0.075,
176,0.187,0.197,0.200,
,075,0.089,0.095,0.114,
,200,0.000,0.000,0.000,
000,0.000,0.000,0.000,
,000,0.000,0.000,0.000,
000,0.000,0.000,0.000,
000,0.000,0.000,0.OOO/
972,0.966,0.953,0.925,
824,0.813,0.803,0.800,
925,0.911,0.905,0.886,
Boo,o.ooo,o.ooo,o.ooo,
925,0.911,0.905,0.886,
800,0.000,0.000,0.000,
000,0.000,0.000,0.000,
000,0.000,0.000,0.000,
028,0.034,0.047,0.075,
176,0.187,0.197,0.200,
075,0.089,0.095,0.114,
200,0.000,0.000,0.000,
000,0.000,0.000,0.000,
000,0.000,0.000,0.000,
000,0.000,0.000,0.000,
000,0.000,0.000,0.OOO/
»» BLOCK DATA 20 <«
-------
APPENDIX B
MOBILE2
DECEMBER 12, 1980
73116
73117
73H8
73H9
73120
73121
73122
73123
73121.
73125
73126
73127
73128
73129
73130
73131
73132
73133
73131*
73135
73136
73137
73U8
73139
731 '•O
7311*1
73H*2
73^3
73H1*
7311*5
73Ht6
73H*7
7311*8
73H*9
73150
73151
73152
73153
73151*
73155
73156
73157
73158
73159
73160
73161
73162
73163
73161*
73165
73166
73167
73168
73169
73170
73171
73172
73173
C
C.
C.
C.
C.
C.
C.
C.
C.
C.
C
C.
C.
C.
C.
C.
C.
C.
C.
C.
C
C.
C.
.LOW ALT. 149-STATE
DATA IGSFY1/
• LDGV
* 1971*, 1975, 1976, 1977. 1978, 1979, 1980, 1981, 1982,
* 1983, 1981*. 1985, 1986, 1987, 1988, 1989, 1990, 2020,
.LDGT1
* 1977, 1978, 1979, 1980, 1981, 1982, 1983, W.1985,
* 1 986 , 1 987 , 1 988 , 1 989 , 1 990 , 2020 , 0000 , 0000 , 0000 ,
.LDGT2
* 1977, 1978, 1979, 1980, 1981, 1982, 1983, 1981*. 1985,
* 1 986 , 1 987 , 1 988 , 1 989 , 1 990 , 2020 , 0000 , 0000 , 0000 ,
.HDGV
* 2020 , 0000 , 0000 , 0000 , 0000 , 0000 , 0000 , 0000 , 0000 ,
* 0000 , 0000 , 0000 , 0000 , 0000 , 0000 , 0000 , 0000 , 0000 ,
.LDDV
* 1971*. 1975, 1976, 1977 ,1978, 1979, 1980, 1981, 1982,
* 1983,1 981* , 1 985 , 1 986 , 1 987 , 1 988 , 1 989 , 1 990 , 2020 ,
.LDDT
* 1977, 1978, 1979, 1980, 1981, 1982, 1983, 1981*. 1985,
* 1986, 1987,1988,1989,1990,2020,0000,0000,0000,
.HDDV
* 2020 , 0000 , 0000 , 0000 , 0000 , 0000 , 0000 , 0000 , 0000 ,
* 0000 , 0000 , 0000 , 0000 , 0000 , 0000 , 0000 , 0000 , 0000 ,
.MC
* 2020 , 0000 , 0000 , 0000 , 0000 , 0000 , 0000 , 0000 , 0000 ,
* 0000 , 0000 , 0000 , 0000 , 0000 , 0000 , 0000 , 0000 , OOOO/
.CALIFORNIA
DATA IGSFY2/
.LDGV
* 197**, 1975, 1976, 1977, 1978, 1979, 1980, 1981, 1982,
* 1983, 1981*. 1985, 1986, 1987, 1988, 1989, 1990, 2020,
.LDGT1
* 1977, 1978, 1979, 1980, 198 1,1 982, 1983,1981*, 1985,
* 1986,1987,1988,1 989 , 1 990 , 2020 , 0000 , 0000 , 0000 ,
.LDGT2
* 1977,1978,1979,1980,1981,1982,1983,19814,1985,
* 1986, 1987, 1988, 1989, 1990,2020,0000,0000,0000,
.HDGV
* 2020 , 0000 , 0000 , 0000 , 0000 , 0000 , 0000 , 0000 , 0000 ,
* 0000 , 0000 , 0000 , 0000 , 0000 , 0000 , 0000 , 0000 , 0000 ,
.LDDV
* 1971*. 1975, 1976, 1977, 1978, 1979, 1980, 1981, 1982,
* 1983, 1981* , 1985, 1986 ,1987, 1988, 1989, 1990, 2020,
.LDDT
* 1977, 1978, 1979, 1980, 1981, 1982, 1983, 1984, 1985,
* 1986, 1987, 1988, 1989, 1990,2020,0000,0000,0000,
.HDDV
* 2020 , 0000 , 0000 , 0000 , 0000 , 0000 , 0000 , 0000 , 0000 ,
* 0000 , 0000 , 0000 , 0000 , 0000 , 0000 , 0000 , 0000 , 0000 ,
.MC
* 2020 , 0000 , 0000 , 0000 , 0000 , 0000 , 0000 , 0000 , 0000 ,
* 0000 , 0000 , 0000 , 0000 , 0000 , 0000 , 0000 , 0000 , OOOO/
.HIGH ALT. 1»9-STATE
DATA IGSFY3/
.LDGV
»» BLOCK DATA 20 <«
-------
APPENDIX B
MOBILE2
DECEMBER 12, 1980
7317**
73175
73176
73177
73178
73179
73180
73181
73182
73183
7318**
73185
73186
73187
73188
73189
73190
73191
73192
73193
73191*
73195
73196
73197
73198
*
ft 1983
.LDGT1
* 1977
ft 1986
.LDGT2
* 1977
ft 1986
.HDGV
ft 2020
* OOOO
.LDDV
ft 197*»
ft 1983
.LDDT
* 1977
1 986
ft
C..HDDV
ft 2020
ft OOOO
C..MC
ft
*
2020
OOOO
,1975,1976,1977,1978,1979,1980,1981,1982,
, 198J», 1985, 1986, 1987,1988,1989,1990,2020,
,1978,1979,1980,1981,1982,1983,1980985,
,1987,1988,1989,1990,2020,0000,0000,0000,
,1978,1979,1980,1981,1982,1983,1980985,
,1987,1988,1989,1990,2020,OOOO,OOOO,OOOO,
,OOOO,OOOO,OOOO,OOOO,OOOO,OOOO,OOOO,OOOO,
,oooo,oooo,oooo,oooo,oooo,oooo,oooo,oooo,
,1975,1976,1977,1978,1979,1980,1981,1982,
, 1980985,1986,1987,1988,1989,1990,2020,
,1978,1979,1980,1981,1982,1983,1980985,
,1987,1988,1989,1990,2020,0000,0000,0000,
,oooo,oooo,oooo,oooo,oooo,oooo,oooo,oooo,
,oooo,oooo,oooo,oooo,oooo,oooo,oooo,oooo,
,oooo,oooo,oooo,oooo,oooo,oooo,oooo,oooo,
,oooo,oooo,oooo,oooo,oooo,oooo,oooo,oooo/
END
»» BLOCK DATA 20 <«
-------
74000
74001
74002
74003
74004
74005
74006
*? Li r\f\ T
/ *T \J\J I
74008
74009
74010
74011
74012
74013
74014
74015
74016
74017
74018
74019
74020
74021
74022
74023
74024
74025
74026
74027
74028
74029
C
C.
C
C
C.
•
C.
C.
C.
C.
C.
C.
C
C
C
C
C
C
C
C
C
APPENDIX B
MOBILE2
BLOCK DATA
.BLOCK DATA SUBPROGRAM 21
COMMON/IOUCOM/IOUIMD, IOUGEN, IOUREP, 1
.UNIT# USAGE DESCRIPTION
.IOUIMD INPUT USER SUPPLIED I/MPCIM
.IOUGEN INPUT USER SUPPLIED GENERAL 1
.IOUREP OUTPUT FORMATTED REPORT FILE
.IOUERR OUTPUT ERROR/WARNING MESSAGES
.IOUASK OUTPUT PROMPTING MESSAGES FILE
.IOUUNF OUTPUT UNFORMATTED REPORT FILE
DATA IOUIMD/4/
DATA IOUGEN/5/
DATA IOUREP/6/
DATA IOUERR/6/
DATA IOUASK/6/
DATA IOUUNF/9/
END
-------
-------
APPENDIX C
USER INFORMATION AND PROGRAM ERRATA
C.O INTRODUCTION C-2
C.I ERRATA C-2
C.I.I Speed Correction factor C-2
C.I.2 Compilation of Equivalence Statements C-6
C.I.3 Erroneous Comment C-7
C .2 USER INFORMATION C-8
-------
C-2
C.O INTRODUCTION
This appendix contains information that may be useful to MOBILE2 users.
This appendix will be periodically updated; as program errors become
known, as omissions or errors in the Qser's Guide are noted, or as advice
for special MOBILE2 applications is requested. This information will be
given only when unavailable in the existing MOBILE2 documentation (User's
Guide to MOBILE2, Compilation of Air Pollutant Emission Factors; Highway
Mobile Sources, Derivation of the Highway Mobile Source Emission Factors) .
C.1 ERRATA
This section describes any known problems or errors in the MOBILE2 source
code, and any omissions or errors in the User's Guide to MOBILE2.
C .1.1 Speed Correction Factor
Introduction
Since the October, 1980 release of MOBILE2, several users have contacted
EPA regional offices with the same question regarding emissions predicted
at 100% cold start, 100% hot start, or 100% stabilized operating condi-
tions. Each user had run several identical input scenarios through
MOBILE2, except that the operating mode percentages were varied from 100%
cold start to 100% hot start to 100% hot stabilized. The users were
surprised that the 100% hot start emission levels are often less than the
100% stabilized emission levels; and occasionally even the 100% cold
start emissions are less than the 100% stabilized emissions.
The problem occurs because MOBILE2 implicitly alters the user's input
speed to reflect the differences in the speeds represented in the start-
up and the stabilized portions of the Federal Test Procedure (FTP). This
is explained in detail in the subsequent sections. The problem as
described below has been resolved and requires minor program modifica-
tions.
Brief Statement of Problem
MOBILE2 sometimes adjusts non-HD\f emissions for speed inappropriately
when scenarios have other than the standard (FTP) VMT percentages in each
operating mode; i.e., other than 20.6% cold start; 27.3% hot start, 52.1%
stabilized. Because of this, the basic emission levels calculated by
MOBILE2 under non-standard operating mode fractions represent emissions
at a speed usually different from the speed given on the input scenario
record.
Throughout the remainder of this section, "emission levels" refer to
non-HDV emission levels. MOBILE2 handles speed corrections for HDGV and
tHW accurately.
If the user's cold start operation percentage and hot start operation
percentage sum to 47.9%, as in the basic test procedure, MOBILE2 will
calculate emissions at the given input speed.
-------
C-3
If the users cold start operation percentage and hot start operation
percentage sum to greater than 47.9%, MOBILE2 generally underestimates
emissions for the given input speed. In this situation, the emission
rates generated by MOBILE2 represent emissions rates at some speed
greater than the speed input on the scenario record.
If the users cold start operation percentage and hot start operation
percentage sum to less than 47.9%, MOBILE2 generally overestimates emis-
sions for the input speed. The emissions generated by MOBILE2 in this
situation represent emission rates at some speed less than the user's
input speed.
Examples
The following three examples illustrate the problems raised above. The
statements regarding emission levels are generally true for HC and CO and
are reversed for NOx.
(1) The emissions calculated under a scenario with 19.6 mph and 100%
cold start VMT actually represent cold start emissions at 26
mph. The cold start emission levels at 19.6 mph would generally
be higher. This is also true for 100% hot start VMT.
(2) The emissions calculated under a scenario with 19.6 mph and 100%
stabilized VMT actually represent stabilized emissions at 16
mph. The stabilized emission levels at 19.6 mph would generally
be lower.
(3) The emission levels calculated under a scenario with 19.6 mph,
30% cold start VMT, 30% hot start VMT, and 40% stabilized VMT
actually represent emissions at 20.8 mph. The emission rates
for 19.6 mph would generally be higher.
Because of (1) and (2) above, users sometimes see 100% VMT cold or hot
start emissions that are less than 100% VMT stabilized emissions, though
they input the same speed on the scenario records.
Detailed Explanation of Problem
The basic test procedure (?TP) for light duty vehicles and trucks is a
three-part test sequence. The first part consists of operating the vehi-
cle in a cold start condition through a predetermined cycle which has an
average speed of 26 mph. In the second part, the vehicle operates in a
stabilized condition through a (different) cycle which has an average
speed of 16 mph. The third part is a repeat of the first, except the
vehicle is operated in a hot start condition. Emissions are collected
during each of the three operating modes and emission levels (grams/mile)
are determined for each test segment. The emission levels are combined
and basic exhaust emission levels are determined by weighting the cold
start level by .206, the stabilized level by .521, and the hot start
level by .273. The average speed for the entire cycle using these
weighting factors is 19.6 mph.
-------
C-4
The Ripstwxn equation is used to adjust the basic exhaust emission levels
for the user's speed, temperature, and operating mode percentages. The
equation follows:
Ripstwxn = SCF(S) * SUM ^ to 3 [WEIGHTb*TCFb(t)* (Bb+DbM)/([BO+DQM)]
where:
b = Test segment: 1 = cold start, 2 = stabilized, 3 = hot start.
S = The speed from the scenario record.
SCF(S) = The multiplicative speed correction factor to adjust the
emission rate from the basic speed of 19.6 mph to the user's
speed S (from the scenario record).
WEIGHTb = The fraction of VMT accumulated in test segment b.
TC?b(t) = Temperature correction factor for test segment b, tempera-
ture t.
Bb> Db = Normalized bag fraction, test segment b.
BQ, DQ = Normalized bag fraction, entire test.
As can be seen from the Ripstwxn equation, the program takes a portion of
each test segment (the 26 mph cold start (CS), the 16 mph stabilized
(STAB), and the 26 mph hot start (HS)) and adds them to determine the
adjustment to the overall emission level. When the user inputs the basic
test procedure VMT percentages of 20.6% CS, 27.3% HS, and 52.1% STAB;
this summed factor represents a correction to the emission level at 19.6
mph, adjusting for temperature and operating mode VMT fractions. The
speed correction factor term SCF(S) then adjusts the emission rate from
the basic test speed of 19.6 to the user's speed S. (If the user's input
speed is 19.6 mph, no adjustment is made, since SCF(19.6)=1).
The problem is that if the user's VMT percentages are different from
20.6% CS/27.3% HS/52.1% STAB, then the SUM[WEIGHTb*...] term represents
an emission correction from a speed different from 19.6 mph. This is
because the user is selecting different portions of the 26 and 16 mph
segments of the test.
?or example, VMT percentages of 30% CS/30% HS/40% STAB represent 30% VMT
being driven at 26 mph, another 30% VMT being driven at 26 mph, and 40%
VMT being driven at 16 mph; which will provide an average speed of 20.8
mph. In this case the speed correction factor term SCF(S) should adjust
the emissions from 20.8 mph to the user's speed S, since the SUM
[WEIGHTb*...] term contains an implicit correction from 19.6 mph to
20.8 mph. Unfortunately, SCF(S) only represents an adjustment from 19.6
mph to S, since the speed adjustment term does not take the VMT weights
into account and assumes the SUM[WEIGHTb*... ] term always represents a
correction to emissions at 19.6 mph.
-------
C-5
Resolution of Problem
The resolution of this predicament is to replace the speed correction
term SCF(S) by a new speed correction term SCF'(SADJ, S), where "SADJ" is
the average speed represented in the SUM[WEIGHTb*...] term, and
SCF'(SADJ, S) represents the adjustment to the emission levels from speed
SADJ to speed S (where SCF'(19.6,S) = SCF(S)).
The speed SADJ can be calculated by:
1/SADJ = WEIGHTi/26 + WEIGHT2/16 + WEIGHT3/26
By the methodology under which the speed correction factor was derived,
it turns out that
SCF'(SADJ,S) = SC?(S)/SCF(SADJ)
This equation, fortunately, necessitates minimal program change since the
old speed correction factor equation and coefficients are still usable.
Specific Program Changes
The coding changes required to implement this change are restricted to
subroutine BIGCFX. The two changes, as previously mentioned, are as
follows:
1. To calculate the speed SADJ represented in the
SUM[WEIGHTb*...] emission level correction term. This
variable is called SADJ in BIGCFX.
2. To modify the Ripstwxn correction factor equation to replace
SCF(S) by SCF(S)/SCF(SADJ). The variable is named SCFADJ in
BIGCFX and it represents the SCF(SADJ) term.
See subroutine BIGCPX in Appendix B. Revision bars indicate the portions
of the program which have changed. There are further program changes
that can be made to improve the efficiency of the speed correction factor
calculations. This involves changes to subroutine SPFCLX and BIGCFX.
The changes are:
1. SPFCLX calculates speed correction factors for every combination
of 18 groups, 3 pollutants, and 8 vehicle types; and stores
these factors in array SPBACK. Only 4 of the vehicle types from
SPBACK (LDGV, LDGT1, LDGT2, MC) are used. The DO-LOOP over 8
vehicle types can be modified to bypass the calculations for 4
vehicle types not used.
2. Since only 4 of the 8 vehicle types in the SPBACK array are
used, the dimension of SPBACK can be changed from (18,3,8) to
18,3,4). This would impact both BIGCFX and SPFCLX. BIGCFX
would then have to index into SPBACK with the values (IS, IP,
rather than (IS, IP, IV).
-------
C-6
C.I.2 Compilation of Equivalence Statements
Some users have had problems compiling some of the EQUIVALENCE statements
in routines INPUT, BLOCK DATA 3, and BLOCK DATA 4. Their compilers
generate a message like "VARIABLES WITHIN SAME COMMON BLOCK
EQUIVALENCED." The messages refer to the equivalenceing of array IOUOLD
in INPUT, array INDXYR in BLOCK DATA 3, array BASE3R in BLOCK DATA 4, and
array DEL3R in BLOCK DATA 4.
The problem is that an array is locally defined in the routine, and
different portions of the array are equivalenced to different variables
within the same common areat
?or example, in BLOCK DATA 4, a local array BASE3R is dimensioned
(15,3,8,3). Three smaller arrays BASE49, BASECA, and BASEHI are
dimensioned (15,3,8); these three arrays are in the COMMON area BASECM.
EQUIVALENCE statements then equate the first 1/3 of BASE3R with array
BASE49, the second 1/3 of BASE3R with array BASECA, and the last 1/3 of
BASE3R with array BASEHI.
The arrays BASE49, BASECA, and BASEHI are adjacent within a common area,
and so in contiguous memory. Since the first element of BASE3R is
equivalenced to BASE49, the arrays BASECA and BASEHI are automatically
equivalenced to portions of the BASE3R array. Any subsequent explicit
equivalences between BASECA and BASE3R could represent a conflict with
the previous iraplict equivalence. Some compilers will complain about any
semblence of a conflict, even when the equivalenceing works out right,
and the subsequent eqivalences are merely redundant.
The solution to this problem, if the users compiler indicates a problem,
is this:
1. In routine INPUT, change the statement
EQUIVALENCE (IOUOLD(1), IOUREP),
* (IOUOLD(2), IOUERR),
* (IOUOLD(3), IOUASK),
* (IOUOLD(4), IOUUN7),
to
EQUIVALENCE (IOUOLD(1), IOUREP)
2. In Block Data 3, change the statement COMMON/INDXCM/INDX49,
INDXCA, INDXHI to
COMMON/INDXCM/INDXYR
3. In Block Data 4, change the statements
COMMON/BASECM/BASE4 9,BASECA, BASEHI
COMMON/DELCOM/DEL49, DELCA, DELHI
-------
C-7
to
COMMON/BASECM/BASE3R
COMMON/DELCOM/DEL3R
C.I.3 Erroneous Comment Statement
In BLOCK DATA 17, the comment statement
c...ISPPT8 (IG, IR, IV)
should be changed to
C...ISPPT8 (IG, IR, IP)
-------
C-8
C.2 USER IN?ORMA.TTON
This section gives information, requested by users, concerning the
application of MOBILE2 for special analysis. At this time, no such
information is available.
-------