A Study of
Mandatory Engine Maintenance
for Reducing Vehicle Exhaust Emissions
Volume VII. A User's Manual and Guide
to the Economic Effectiveness Computer Program
FINAL REPORT
July 1973
In Support of:
APRAC Project Number CAPE-13-68
for
Coordinating Research Council, Inc.
Thirty Rockefeller Plaza
New York, New York 10020
TRWk
TRANSPORTATION *
ENVIRONMENTAL
OfERATIONS
and
Environmental Protection Agency
Air Pollution Control Office
5600 Fishers Lane
Rockville, Maryland 20852
SCOTT RESEARCH LABORATORIES. INC
P. O. BOX X4K
•AN BERNARDINO. CALIFORNIA
One SPACC PARK • KfDONDO BCtCH CXllfOflNIt 90?'«
-------
A Study of
Mandatory Engine Maintenance
for Reducing Vehicle Exhaust Emissions
Volume VII. A Users Manual and Guide
to the Economic Effectiveness Computer Program
FINAL REPORT
July 1973
In Support of:
APRAC Project Number CAPE-13-68
for
Coordinating Research Council, Inc.
Thirty Rockefeller Plaza
New York, New York 10020
and
Environmental Protection Agency
Air Pollution Control Office
5600 Fishers Lane
Rockville, Maryland 20852
TRWk
TRANSPORTATION t
CNVIRONMfNTAL
Off RATIONS
SCOTT RESEARCH LABORATORIES, INC
'. O. BOX Ml*
• AN BERNARDINO. CALIFORNIA M4O*
one SPACI 'tax • HCOOHDO BCACH ctufoamA mis
-------
PREFACE
This report, "A Study of Mandatory Engine Maintenance for Reducing
Vehicle Exhaust Emissions," consists of eight volumes. The following are
the subtitles given for each volume:
. Executive Summary, Volume I
. Mandatory Inspection/Maintenance Systems Study, Volume II
. A Documentation Handbook for the Economic Effectiveness
Model, Volume III
. Experimental Characterization of Vehicle Emissions and
Maintenance States, Volume IV
. Experimental Characterization of Service Organization
Maintenance Performance, Volume V
. A Comparison of Oxides of Nitrogen Measurements Made With
Chemiluminescent and Non-Dispersive Radiation Analyzers,
Volume VI
. A User's Manual and Guide to the Economic Effectiveness
Computer Program, Volume VII
. Experimental Characterization of Vehicle Emission
Deterioration, Volume VIII
The first volume summarizes the general objectives, approach and
results of the study. The second volume presents the results of the
mandatory inspection/maintenance system study conducted with a computer-
ized system model which is described in Volume III. The experimental
programs conducted to develop input data for the model are described in
Volume IV (Interim Report of 1971-72 Test Effort) and V. Volume VI pre-
sents comparative measurements of NO and NO using chemiluminescence and
A
NDIR/NDUV instruments and differences in these measurements are examined.
A detailed description of the Economic Effectiveness Computer Program
along with a user's guide is presented in Volume VII. Volume VIII
contains a characterization of vehicle emission and engine parameter
deterioration rates.
The work presented herein is the product of a joint effort by TRW
Transportation and Environmental Operations and its subcontractor, Scott
Research Laboratories. TRW, as the prime contractor, was responsible for
overall program management, experimental design, data management and
analysis, and the economic effectiveness study. Scott acquired and tested
all of the study vehicles. Scott also provided technical assistance in
selecting emission test procedures and in evaluating the test results.
11
-------
TABLE OF CONTENTS
Page
1.0 INTRODUCTION 1-1
2.0 MATEMATICAL MODEL FRAMEWORK AND PROGRAM OVERVIEW ... 2-1
2.1 Model Framework 2-1
2.2 Program Overview 2-3
3.0 BASIC INPUT REQUIREMENTS AND CALCULATED OUTPUT .... 3-1
3.1 Input Options 3-1
3.1.1 Keyword Data Input 3-2
3.1.2 Namelist Data Input 3_7
3.2 Input Format 07
3.3 Output Specification and Options 3_15
4.0 OPERATING PROCEDURES 4_-|
4.1 The Programming System 4_-|
4.2 Control Cards Specification 4_-|
4.3 Deck Setup ,
4.4 Diagnostic and Trouble-Shooting Procedures ... 4 3
4.5 Library Routines Required 4_6
4.6 General Computer Requirements 4-6
4.7 Execution/Print Estimates 4-6
4.8 Program Limitations 4-9
5.0 DETAILED FLOW SCHEMATICS 5-1
5.1 Main Program 5-1
5.2 Subroutine INITIAL 5-1
5.3 Subroutine REGION - Demographic Data • • • • • 5-19
5.3.1 Region 1 - L.A. Basin 5-31
5.3.2 Region 2 - New York/New Jersey .... 5-31
5.3.3 Region 3 - Washington D. C. 5-31
5.3.4 Region 4 - Denver 5-31
5.3.5 Region 5 - Detroit 5-31
5.4 Subroutine BLINE - Baseline Voluntary Program • • 5-31
5.5 Subroutine MICRO - Mandatory Program 5-39
m
-------
Page
5.6 Subroutine TEST - Inspection 5-48
5.7 Maintenance Routines 5-77
5.7.1 Subroutine MAI NT - CVS Emissions 5-77
5.7.2 Subroutine PMAINT - Engine Parameters 5-77
5.8 Deterioration Subroutines 5.34
5.8.1 Subroutine EDECAY - CFS Emissions 5.95
5.8.2 Subroutine MDECAY - Mode Emissions 5.95
5.8.3 Subroutine PDECAY - Engine Parameters 5.95
5.9 Subroutine COSTS - Economic Model 5-109
5.10 Subroutine STATS - Statistical Model 5-109
5.11 Utility Routines 5-139
5.11.1 Subroutine CONVOL - Convolution Routine 5-139
5.11.2 Function AREA - Rejection Rate Routine 5-152
5.11.3 Subroutine INTE6 - Trapezoidal Integration .... 5-163
5.11.4 Function FUN1 - Linear Interpolation . 5-163
5.11.5 Function FUN2 - Linear Interpolation 5-163
(2 Dimensional)
5.11.6 Subroutine FIT - Second Order Polynomial Curvefit . . 5-177
5.11.7 Function UNION - Logical Union Routine 5-177
5.11.8 Subroutine QUEUE - Queuing Model 5-177
5.11.9 Function IFACT - Factorial Routine 5-185
5.11.10 Subroutine STD - Mean and Standard Deviation Routine . 5-185
5.11.11 Subroutine STD2 - Weighted Mean and Standard Deviation 5-185
5.11.12 Subroutine NORM - Normalization Routine 5-192
5.11.13 Subroutine RESIZE - Distribution Resizing Routine . . 5-197
5.11.14 Function XPT - Computes Integration Limits to Match
Rejection Rates . . 5-197
5.11.15 Subroutine SWITCH - Distribution Reordering Routine . 5-203
5.11.16 Subroutine ADD - Adds Two Distributions 5-203
5.11.17 Function EINT - Computes Second Order Parameter . . . 5-203
Interactions
5.11.18 Subroutine PACKD - Packs a Distribution 5-208
5.12 Vehicle Population Model . 5-208
5.12.1 Subroutine PERMIL - Main Attrition Routine .... 5-214
iv
-------
Page
5.12.2 Subroutine PERCNT - Percent Distribution Manipulation
Routine 5-215
5.12.3 Subroutine NOMAD - Distribution Normalizing Routine 5-222
5.12.4 Subroutine MILAGE - Mileage Distribution Routine . 5-222
5.13 Linear Programming Model 5-222
5.13.1 Subroutine OPTMUM - Main Optimization Routine . . 5-229
5.13.2 Subroutine CUTPNT - Optimal Outpoint Calculations . 5-230
5.13.3 Subroutine LPAX - Linear Programming Algorithm . . 5-257
5.13.4 Subroutine PXCOEF - Engine Parameter Rejection . . 5-257
Rate Union Routine
5.14 Output Routines 5-257
5.14.1 Subroutine DISTPR - Convoluted Distribution . . . 5-257
Printout
5.14.2 Subroutine OUT - Scalar Output Routine .... 5-260
5.14.3 Subroutine GEEPER - Header Routine 5-260
5.14.4 Plot Routines 5-260
5.14.5 EPLOT - Emissions Distribution Plotting Routine . . 5-274
5.14.6 PLOTJK - Utility Discrete Plotter 5-274
5.14.7 PLOT - Emissions History Plotting Routine .... 5-274
5.14.8 PLOTXY - Utility Discrete Plotting Routine . . . 5.232
5.14.9 Array Output Routines 5-282
5.14.10 PRINT1 - Prints Two 10x15x3 Arrays 5_282
5.14.11 PRINT2 - Prints Three 15x3 Arrays 5-282
5.14.12 PRINTS - Prints Two 10x15 Arrays 5-282
5.14.13 PRINT4 - Prints Two 10x15x4 Arrays 5-282
5.14.14 PRINT5 - Prints Two 6x15 Arrays 5-290
5.14.15 PRINT6 - Attrition Data Output Routine .... 5-290
5.15 Block Data 5-290
APPENDIX A - NOMENCLATURE ..... A-l
APPENDIX B - SAMPLE PROBLEMS B-l
-------
LIST OF TABLES
Table Title Page
2-1 Subroutine HIERARCHY. .... 2-6
3-1 Available Keyword Input 3-3
3-2 Valid GEEP Namelist Variables 3-10
3-3 Engine Parameter Code Numbers 3-12
3-4 Mode Emission Code Numbers 3-12
3-5 Possible Namelist Variable Formats 3-14
3-6 Summary Output Options 3-17
3-7 Summary Output Results 3-18
4-1 Required Job Control Cards 4-2
4-2 Diagnostic Messages 4-5
4-3 System Library Function Called By GEEP 4-7
4-4 Execution/Print Estimates 4-8
5-0 Summary Level Subroutine Descriptions 5-2
5-1 Main Program Listing 5-12
5-2 Subroutine INITIAL Listing 5-23
5-3 Subroutine REGION Listing 5-30
5-4 Subroutine REGION1 Listing 5.33
5-5 Subroutine BLINE Listing 5.43
5-6 Subroutine MICRO Listing 5.55
5-7 Subroutine TEST Listing 5-71
vi
-------
LIST OF TABLES (cont.)
Table Title page
5-8 Subroutine MAINT Listing 5-81
5-9 Subroutine PMAINT Listing 5-90
5-10 Subroutine EDECAY Listing 5-97
5-11 Subroutine MDECAY Listing 5-105
5-12 Subroutine PDECAY Listing 5-116
5-13 Subroutine COSTS Listing 5-131
5-14 Subroutine STATS Listing 5-146
5-15 Subroutine CONVOL Listing 5-159
5-16 Function AREA Listing 5-169
5-17 Subroutine INTEG Listing 5-174
5-18 Function FUN! Listing 5-176
5-19 Function FUN2 Listing 5-179
5-20 Subroutine FIT Listing 5-181
5-21 Function UNION Listing 5-184
5-22 Subroutine QUEUE Listing 5-187
5-23 Function IFACT Listing 5-189
5-24 Subroutine STD Listing 5-191
5-25 Subroutine STD2 Listing 5-194
5-26 Subroutine NORM Listing 5-196
5-27 Subroutine RESIZE Listing 5-200
5-28 Function XPT Listing 5-202
5-29 Subroutine SWITCH Listing 5-205
5-30 Subroutine ADD Listing 5-207
vii
-------
LIST OF TABLES (cont.)
Table Title Page
5-31 Function HINT Listing 5-210
5-32 Subroutine PACKD Listing 5-213
5-33 Subroutine PERMIL Listing 5-217
5-34 Subroutine PERCNT Listing 5-220
5-35 Subroutine NOMAD Listing 5-224
5-36 Subroutine MILAGE Listing 5-227
5-37 Subroutine OPTMUM Listing 5-236
5-38 Subroutine CUTPNT Listing 5-250
5-39 Subroutine PXCOEF Listing 5-259
5-40 Subroutine DISTPR Listing 5-262
5-41 Subroutine OUT Listing 5-264
5-42 Subroutine GEEPER Listing 5-272
5-43 Subroutine EPLOT Listing 5-276
5-44 Subroutine PLOTJK Listing 5-278
5-45 Subroutine PLOT Listing 5-281
5-46 Subroutine PLOTXY Listing 5-284
5-47 Subroutine PRINT1 Listing 5-287
5-48 Subroutine PRINT6 Listing 5-293
5-49 Block Data Listing 5-295
A-l Program Nomenclature A-2
B-l Sample Problem #1
(Engine Inspection Extensive B Program) B-3
vi i i
-------
LIST OF TABLES (cont.)
Table Title Page
B-2 Input Data For First Case B-4
B-3 Summary Results For Case 1 B-5
B-4 Vehicle Population Characteristics B-6
B-5 Los Angeles Basin Data B-7
B-6 Pass/Fail Analysis For Engine Inspection B-8
B-7 Pass/Fail Inspection Criteria B-9
B-8 Engine Parameter Rejection Rates For First Time
Interval B-10
B-9 Emission History Summary B-14
B-10 Statistical Analysis of Predicted Emission Reductions . B-16
B-ll Sample Problem #2
(Emission Inspection Extensive B Program) B-17
B-12 Input Data For Second Case B-18
B-13 Inspection Lane System B-19
B-14 Summary Results For Case 2 B-20
IX
-------
LIST OF FIGURES
Title Page
2-1 Schematic Flowchart for the General Economic
Effectiveness Program ................. 2-5
2-2 Flowcharts for INITIAL and REGION ........... 2-7
2-3 Flowcharts for the ATTRITION and BLINE ......... 2-8
2-4 Flowchart for MICRO .................. 2-9
2-5 Flowcharts for EDECAY, PDECAY and MDECAY ........ 2-10
2-6 Flowcharts for TEST and MAINT ............. 2-11
2-7 Flowchart for STATS .................. 2-12
2-8 Flowchart for COSTS .................. 2-13
3-1 Keyword Card Order ................... 3-8
3-2 Namelist Input Card Order ............... 3-9
4-1 Example Card Configuration For Object Deck Run ..... 4-4
5-1 Main Program Flowchart ................. 5-6
5-2 Subroutine INITIAL Flowchart .............. 5-20
5-3 Subroutine REGION Flowchart .............. 5-29
5-4 Subroutine REGION1 Flowchart .............. 5-32
5-5 Subroutine BLINE Flowchart ............... 5-40
5-6 Subroutine MICRO Flowchart ............... 5-49
5-7 Subroutine TEST Flowchart ............... 5-60
5-8 Subroutine MAINT Flowchart ............... 5-78
5-9 Subroutine PMAINT Flowchart .............. 5-85
-------
LIST OF FIGURES (cont.)
Figure Title Page
5-10 Subroutine EDECAY Flowchart 5.95
5-11 Subroutine MDECAY Flowchart 5.99
5-12 Subroutine PDECAY Flowchart 5_HO
5-13 Subroutine COSTS Flowchart 5-120
5-14 Subroutine STATS Flowchart 5-140
5-15 Subroutine CONVOL Flowchart 5-153
5-16 Function AREA Flowchart 5-164
5-17 Subroutine INTE6 Flowchart 5-173
5-18 Function FUN1 Flowchart 5-175
5-19 Function FUN2 Flowchart 5-178
5-20 Subroutine FIT Flowchart 5-180
5-21 Function UNION Flowchart 5-182
5-22 Subroutine QUEUE Flowchart 5-186
5-23 Function IFACT Flowchart 5-188
5-24 Subroutine STD Flowchart 5-190
5-25 Subroutine STD2 Flowchart 5-193
5-26 Subroutine NORM Flowchart 5-195
5-27 Subroutine RESIZE Flowchart 5-198
5-28 Function XPT Flowchart 5-201
5-29 Subroutine SWITCH Flowchart 5-204
5-30 Subroutine ADD Flowchart 5-206
5-31 Function EINT Flowchart 5-209
5-32 Subroutine PACKD Flowchart 5-212
xi
-------
LIST OF FIGURES (cont.)
Figure Title Page
5-33 Subroutine PERMIL Flowchart 5-216
5-34 Subroutine PERCNT Flowchart 5-218
5-35 Subroutine NOMAD Flowchart 5-223
5-36 Subroutine MILAGE Flowchart 5-225
5-37 Subroutine OPTMUM Flowchart 5-231
5-38 Subroutine CUTPNT Flowchart 5-241
5-39 Subroutine PXCOEF Flowchart 5-258
5-40 Subroutine DISTPR Flowchart 5-261
5-41 Subroutine OUT Flowchart 5-263
5-42 Subroutine GEEPER Flowchart 5_27i
5-43 Subroutine EPLOT Flowchart 5-275
5-44 Subroutine PLOTJK Flowchart 5-277
5-45 Subroutine PLOT Flowchart 5-280
5-46 Subroutine PLOTXY Flowchart 5-283
5-47 Subroutine PRINT! Flowchart 5-286
5-48 Subroutine PRINT6 Flowchart 5-291
B-l HC Emission Time History Plot B-ll
B-2 CO Emission Time History Plot B-12
B-3 NO Emission Time History Plot B-13
-------
1.0 INTRODUCTION
The General Economic Effectiveness Program (GEEP) is a computer
model which simulates the dynamic behavior of alternative vehicle
inspection/maintenance systems. It is completely general in design
and can be used to assess a wide range of inspection/maintenance
strategies. GEEP has been coded in Fortran IV and is presently
operating on a CDC 6500 System.
The greatest potential uses of GEEP are: 1) Assessing the overall
feasibility of vehicle inspection/maintenance, 2) measuring the impact
of regional effects on program performance, 3) designing the optimal
system configuration, and 4) contrasting the cost-effectiveness of a
mandatory program with other control concepts.
GEEP was developed primarily for assessing the feasibility,both
performance wise and economically, of a mandatory program of vehicle
inspection/maintenance. Since its inception (circa 1969) it has been
expanded to include other basic strategies; e.g. mandatory maintenance,
voluntary maintenance, and to account for the influx of new vehicles with
differing emission levels. These added features have greatly enhanced
the program in terms of its effectiveness as a research tool.
The program has been constructed on a hierarchal input-output
concept. Simplicity and flexibility are the salient characteristics of
the input language. As such, the input system greatly reduces the time
required to set up and execute a computer run. The program also
provides several levels of output depending on user needs. For standard
cases, it outputs computer generated plots of emission time histories,
program figures of merit, estimated emission reductions and numerous cost
accounting data. For more detailed information, a debug option is
1-1
-------
available which prints the basic calculations from each of the major
subroutines.
This manual describes for the programmer/user the operating
instructions and input formats for the program. It is composed of
five sections and two appendices. The present section summarizes
the purpose and general uses of the program. Section 2.0 presents a
brief discussion on the mathematical framework used in developing
the basic model and provides a concise overview of the program's
structure. Section 3.0 outlines the input requirements and formats
for undertaking a computer simulation run. Included are tables of
the available input and output options. Detailed information on the
deck setup, computer resource requirements and program debugging
options are given in Section 4.0. Finally, in Section 5.0 a
complete set of flow schematics and listings is presented for each of
the 55 subroutines contained in GEEP.
1-2
-------
2.0 MATHEMATICAL MODEL FRAMEWORK AND PROGRAM OVERVIEW
2.1 MODEL FRAMEWORK
The primary purpose of the Economic Effectiveness Model is to serve
as a research and design tool for assessing the various implications of
a mandatory program of vehicle inspection/maintenance. As such, it has
been constructed with the capability of investigating a wide range of
possible procedure and design alternatives. The model has been constructed
to analyze the regional feasibility of vehicle inspection/maintenance as
well as specify an optimal system design. Input data for several regional
areas have been incorporated directly into the model.
The model by its design is procedure oriented. That is, it is best
used for evaluating the attractiveness of alternative procedures, e.g.,
engine inspection or emission inspection, which govern and control the
operation of an inspection/maintenance system. Actually, there exists
a hierarchy of decision variables within the structure of the model.
The model analyzes these decision variables by simulating the behavior
of the inspection/maintenance process over time. Here, the economic-
effectiveness of various strategies can be measured in terms of emission
reductions and program costs. A statistical analysis of these forecasted
emission reductions is performed to determine their actual significance.
This analysis includes an estimate of the overall variance for each
emission species (i.e., HC, CO, NO ).
A
In addition to these functions, the model can also be used to
analyze the sensitivity of system performance to various assumptions
and basic data inputs. Used in this way the model provides a mechanism
for identifying areas requiring further analytical and empirical
2-1
-------
definition. Finally, the model generates a description of the designed
system including: total number of inspection lanes required, equipment
specification and facilities configuration.
The methodological approach adopted for constructing the Economic
Effectiveness Model involved a blending of theoretical and empirical
relationships. The theory provided the conceptual framework for des-
cribing the inspection/maintenance process whereas the experimental data
yielded the specific transformations needed to define and interconnect
the various model elements.
The development of the model required a detailed specification of
the various relationships characterizing the Inspection/Maintenance
Process. Three main components -- engineering design, economic analysis
and regional characterization -- form the core or nucleus of the model.
Each of these components describes or delineates one fundamental aspect
of the total process. How these interact must be clearly understood so
that system design factors are selected in combinations to yield optimal
cost and performance.
Attempting to describe a physical process with an abstract mathematical
model raises a number of technical problems. One important issue involves
the level of aggregation used in the model to characterize the actual
process. Use of a simulation model yields an effective vehicle for
coping with many of these questions. Here, basic study grounds and
model assumptions, e.g., level of aggregation, can be isolated and
examined in detail. As such, a simulation model strikes a good balance
between a strictly theoretical model and an empirical model. The simu-
lation model used in describing the inspection/maintenance process
2-2
-------
provides a powerful tool not only for assessing the feasibility of this
control approach but also in developing an optimal system design specifi-
cation. One phase of such a feasibility assessment involves the evaluatior,
of potential procedure strategies, e.g. engine inspection. Within this
context, the simulation model can be used to measure the performance of
these strategies over time and under varying system constraints. The
resultant model design provides a great deal of flexibility yet contains
sufficient depth to describe the process in intimate detail.
A detailed description of the basic model structure and flow processes
is contained in Volume 3 of this series entitled, A Documentation Handbook for
tf\e Economic Effectiveness Model. Descriptions contained in this volume
are designed for use by the user and/or the computer programmer engaged
in exercising the GEEP computer program.
2.2 PROGRAM OVERVIEW
The General Economic Effectiveness Program embodies a set of mathe-
matical algorithms and techniques which have been developed to simulate
a mandatory program of vehicle inspection and maintenance (I/M). The
program contains the necessary data and logic to evaluate a variety of
inspection/maintenance alternatives. Figure 2-1 presents a schematic
overview of the program's structure.
The program is nominally under the control of an executive system (GX)
which checks for input errors and controls output. GX also initiates
the computational process by calling subroutines INITIAL and REGION.
INITIAL moves starting valves into each storage array, expands, normalizes
and determines mean valves and variances for all engine parameters and
mode emission distributions. Subroutine REGION calls one of five existing
2-3
-------
regional sets which contain pass/fail criteria, regional emission
weighting factors, initial emission levels, and vehicle population data
(e.g., engine parameter distributions). Next, GX calls subroutine
ATTRITION which estimates the change in the vehicle population due to
the introduction of new cars on the attrition of older ones. This data
is inputted directly into both MICRO and BLINE.
Subroutine MICRO embodies the actual Inspection/Maintenance Model.
Here, the effects of deterioration, testing and maintenance are
measured based on the specific procedure under investigation. Simulta-
neously, the same effects based on a voluntary program are computed in
subroutine BLINE. The estimated emission reduced potential from the
mandatory program is then contrasted with the results developed
vis-a-vis the figure of merit.
Subroutine COSTS determines the costs of the mandatory program
and develops the appropriate figures of merit. Cost of equipment,
facilities and training are alsp estimated. Finally, subroutine OUT
produces a concise summary of the calculated results.
Table 2-1 presents an overview of the subroutine hierarchy
within 6EEP. As can be seen, there exists six functional levels. The
discussion thus far, has only covered the first two levels. A complete
description of the remaining subroutines are found in Section 5.0.
The circled letters (A-G) shown in Figure 2-1 refer to access
points associated with the second level hierarchy. A more detailed
flow schematic for these subroutines is presented in Figures 2-2 through
2.8, respectively.
2-4
-------
EXECUTIVE SYSTEM
a DATA INPUT SYNTHESIS
> PROGRAM EXECUTION AND
CONTROL
DATA SET INPUT
o POLICY OPTIONS
o INSPECTION PROCEDURE
o METHOD OF OPERATION
o OPERATIONAL VARIABLES
o REGION
o VEHICLE CONTROL TYPE
INTERNAL DATA SET
o DESIGN CRITERIA
o EMISSION FACTORS
o ECONOMIC FACTORS
o TIME CONSTIAINTS
o TOTAL PROGRAM TIME a)
o INSPECTION INTERVAL (il)
ro
01
ATTRITION
sVEHICLE DISTRIBUTION BY CONTROL
TYPE AND POWER TRAIN
>MILEAGE DURING INSPECTION
PERIOD (Ai-J BY CONTROL TYPE
AND POWER TRAIN
BLINE
(VOLUNTARY MAINTENANCE)
o EMISSION LEVELS
AT TIME t = T
'f BASEilNE, o-BASELINE)
P DECAY
PARAMETER DECAY MODEL
E DECAY
. EMISSION DECAY MODEL
M DECAY
MODE DECAY MODEL
[EMISSION SIGNATURE ONLY)
[/ mTTTTTTT-
COSTS
o MANDATORY PROGRAM COSTS
o VOLUNTARY PROGRAM COSTS
o PROGRAM FIGURE OF MERIT
FIGURE OF MERIT
EMISSION TIME HISTORIES
TOTAL EMISSION REDUCTION PER SPECIE
EMISSION SPECIE PERCENTAGE REDUCTION
REJECTION FRACTION TIME HISTORIES
VEHICLE POPULATION DISTRIBUTION TIME
HISTORIES
PROGRAM EXIT AND TERMINATION I
MA | NT
i MAINTENANCE MODEL
o EFFECT OF MAINTENANCE
ON EMISSIONS
STATS
STATISTICAL MODEL
o ESTIMATE CONFIDENCE LIMITS
ON PREDICTED EMISSION LEVELS
o STATISTICAL COMPARISON OF
TEST VERSUS BASELINE EMISSION:
Figure 2-1 Schematic Flowchart for the General Economic Effectiveness Program
-------
Table 2-1 SUBROUTINE HIERARCHY
GEEP
r\>
REGION 1 4
REGION 2 5
3 6
INITIAL PRINT (1)(2)(3)
PRINT (4)(5)(S)
BLINE
PRINT 2
FIT
FUN 1
/ PDECAY
MICRO
MDECAY
EDECAY
TEST
STATS
PLOT
COSTS j QUEUE
FIT
FUN 1
STD 2
AREA
FUN 1
UNION
TABLE
DISTPR
CONVOL
NORM
STD 2
FUN 1
XPT
PLOTXY
I FACT
NORM
NORM
FUN 1
NORM
SWITCH
RESIZE NORM
STD 2 NORM
NORM
FUN 1
NORM
OUT
-------
GENERATE NUMBER OF TEST
INTERVALS NEEDED FOR
BASELINE AND TEST FLEET ANALYSIS
ro
i
INITIALIZE/RE-INITIALIZE
OPTIONAL DATA
INPUT VARIABLES
SPECIFICATION OF INTERNAL
PRINTOUT OPTIONS
INITIALIZE DATA
FOR FOLLOWING REGIONS:
1) LOS ANGELES
2) NEW YORK/NEW JERSEY
3) DENVER
4) WASHINGTON, D.C.
5) DETROIT
Figure 2-2 Flowcharts for Subroutines INITIAL and REGION
-------
BLINE
START WITH INITIAL VEHICLE
DISTRIBUTION AND GIVEN
GROWTH RATE
COMPUTE VEHICLE
ATTRITION RATES FOR
EACH CONTROL TYPE
ESTIMATE VEHICLE
POPULATION
DISTRIBUTION FOR
EACH YEAR OF
INSPECTION PROCESS
PRINT INTERNAL
ATTRITION CALCULATIONS
1 YES
©
SET INITIAL VALUES
FOR VEHICLE EMISSION
LEVELS (E.)
DECAY EMISSION LEVELS
USING DETERIORATION DATA
VOLUNTARY MAINTENANCE
TREATMENT
C • E,
M
cl
RESULTANT BASELINE EMISSION
LEVEL AT tj
PRINT INTERNAL
BLINE CALCULATIONS
CALL FIT:
CURVE FIT BASE LINE
EMISSION TIME HISTORY
CALL INTEGRATION:
COMPUTE TOTAL BASE LINE
EMISSION TONNAGE
ADJUST BASELINE EMISSION
INTERVALS TO BE CONSISTENT
WITH MANDATORY TEST
INTERVAL.
Figure 2-3 Flowcharts for Subroutines ATTRITION and BLINE
2-8
-------
MICRO
SET INITIAL VALUES
OF THIST TO START
VALUES
CALL PDECAY
(DECAY PARAMETER)
CALL MDECAY
(DECAY MODE
EMISSION)
CALL EDECAY
EMISSION DECAY
CALL TEST
CALL MAINT
NO
PRINT INTERNAL
CALCULATIONS
FROM MICRO
M2
(f5\
STATISTICAL
ANALYSIS
DESIRED
TESTING
DURATION
FINISHED
©
CALL PLOT:
o BHIST (VOLUNTARY)
o THIST (MANDATORY)
Figure 2-4 Flowchart for Subroutine MICRO
2-9
-------
DECAY EMISSION
LEVELS
OUTPUT \. NO
OPTION >—-H Fl
(E DEBUG)
CONSTRUCT TABULAR
DESCRIPTIONS OF MODE
EMISSION. DISTRIBUTIONS
AND ESTIMATE SHIFT IN
MEAN VALUE AFTER
MAINTENANCE/DETERIORATION
Ael =f (eLI' Aem' TIME)
PRINT INTERNAL
CALCULATIONS
FROM E DECAY
CONSTRUCT TABULAR DESCRIPTIONS
OF ENGINE PARAMETER DISTRIBUTIONS
AND ESTIMATE SHIFT IN MEAN VALUE
AFTER MAINTENANCE/DETERIORATION
A P = f (P , time)
COMPUTE MEAN OF MODE
EMISSION DISTRIBUTION
AF^ER MAINTENANCE/
DETERIORATION
e!L +
Ae,
ro
i
1
COMPUTE MEAN OF
PARAMETER SETTINGS
AFTER MAINTENANCE/
DETERIORATION
PFM = PIM + A PM
RECOMPUTE TABULAR DESCRIPTION
FOR EACH MODE EMISSION DISTRIBUTION
AFTER MAINTENANCE/DETERIORATION
RECOMPUTE TABULAR DESCRIPTIONS
FOR EACH ENGINE PARAMETER
DISTRIBUTION AFTER DETERIORATION/
MAINTENANCE.
OUTPUT
OPTION
(Q DEBUG)
OUTPUT
OPTION
(PDEBUG)
PRINT INTERNAL
CALCULATIONS
FROM MDECAY
PRINTOUT INTERNAL
CALCULATIONS
P DECAY
Figure 2-5 Flowcharts for Subroutines EDECAY, MDECAY and PDECAY
-------
EMISSION
INSPECTION
ENGINE
INSPECTION
COMPUTE REJECTED FRACTION (PS)
USING TABULAR MODE EMISSION
DISTRIBUTIONS FOR GIVEN
CUTPOINT (e.g., ICO = 4°$
COMPUTE FAILED FRACTION (PP)
AND EXPECTED VALUE OF A Pi USING
TABULAR PARAMETER DISTRIBUTIONS
FOR GIVEN CUTPOINT
(e.g., RPM = 600)
ESTIMATE PARAMETER FAILED
FUNCTION AND EXPECTED VALUE
OF APj:
PPi = G(PSL)
DETERMINE TOTAL
NUMBER OF CARS
REJECTED:
COMPUTE EXPECTED EMISSION
REDUCTION BY MAINTAINING
(MANDATORY) SELECTED PARAMETERS-
DETERMINE TOTAL
NUMBER OF VEHICLES
FAILED:
UPPi
APPLY CONSERVATION OF
MAINTENANCE TO ACCEPTED
AND REJECTED VEHICLE
ESTIMATE TIME REQUIRED
FOR MAINTAINING REJECTED
VEHICLES AND ERRORS OF
COMMISSION
PRINT INTERNAL CALCULATIONS FROM
FROM MA I NT
PRINT INTERNAL CALCULATIONS
FROM TEST
2-6 Flowcharts for Subroutines TEST and MAINT
-------
MANDATORY FLEET EMISSION
VARIANCE DATA, DEVELOPED
FROM BASIC ERROR SOURCES.
VOLUNTARY FLEET EMISSION
VARIANCE DATA DERIVED
FROM EXPERIMENTAL RAM
EMISSION
VARIANCE DATA; DtRIVEO
FROM EXPERIMENTAL
PROGRAMS FOR BOTH
VOLUNTARY AND
MANDATORY FLEETS
MEAN EMISSION LEVELS:
DERIVED FROM PROGRAM
FOR BOTH VOLUNTARY
AND MANDATORY FLEETS
COMPUTE ^STATISTIC
AND LtVEL OF CONFIDENCE
FOR EACH EMISSION SPECIE
xT-xa
' a d!ff
INTEGRATE OVER TIME
THE STATISTICALLY
SIGNIFICANT EMISSION
REDUCTIONS
Figure 2-7 Flowchart for Subroutine STATS
2-12
-------
COMPUTE AMORTIZATION RATES
AND NUMBER OF TOTAL FLEET
INSPECTED AND MAINTAINED
STATE LANE
FRANCHISED
1 V. UK SIAIE LANE ^ 1
f \ iKKPFrrinw ^r 4
COMPUTE CAPITAL
EQUIPMENT AND
FACILITIES COSTS
1
COMPUTE INSPECTION
AND MAINTENANCE
OPERATING COSTS
1
\. ^^ COMPUTE INSPECTION
^•^ AND MAINTENANCE
OPERATING COSTS
ESTIMATE ANNULARIZED
AND DISCOUNTED CUTS
FOR BOTH VOLUNTARY
AND MANDATORY
PROGRAMS
APPLY WEIGHTING
FACTORS TOPREDICTED
EMISSION REDUCTIONS
DEVELOP FIGURE
OF MERIT (UNADJUSTED)
AND STATISTICALLY
ADJUSTED)
=- s
PRINTOUT INTERNAL
CALCULATIONS OF
CUTS
Figure 2-8 Flowchart for Subroutine COSTS
2-13
-------
3.0 BASIC INPUT REQUIREMENTS AND CALCULATED OUTPUT
3.1 INPUT OPTIONS
Presented herein is a description of the salient input/output features
of the program. The program's input/output system has been designed to
accommodate a wide range of inspection/maintenance options. Basically,
the input options can be separated as follows -- inspection procedure,
maintenance treatment and regional area.
The inspection procedure refers to the type of diagnostic evaluation
used in identifying engine maladjustments and malfunctions. There are
two basic types of inspection strategies:
(1) Engine Parameter Inspection
(2) Exhaust Emission Inspection
Within each of these two approaches lies a number of different alternatives
(e.g., idle). Based on a specific inspection strategy, the model determines
the optimum pass/fail criteria for the various engine parameters and/or
exhaust mode emissions.
The model partitions the engine block into three major subsystems --
idle, ignition and induction — each of which can be maintained either
singularly or in combination. The three maintenance treatments currently
available are:
(1) Idle Adjustment
(2) Idle Adjustment with an Ignition Tuneup (Extensive A)
(3) Idle Adjustment with an Ignition and Induction Tuneup
(Extensive B)
Thus the model is capable of examining a total of six different and unique
inspection/maintenance alternatives. Furthermore, the user can elect to
3-1
-------
examine the impact of maintenance only strategies by merely rejecting
the total vehicle population.
In addition to the various procedural options, the model requires
descriptive information on the demographic and air quality characteristics
of the candidate regional area. The essential regional data includes:
(1) vehicle population distributions, (2) vehicle emission levels and
engine state, and (3) a quantitative estimate of existing air quality.
The last item is used in formulating an emission species weighting function.
This function integrates the three exhaust emissions (HC, CO and NO )
A
into a composite figure which can be used directly in contrasting various
alternatives. To date, vehicular demographic and emissions data has been
collected for the following regions:
• Los Angeles Basin
• Detroit Metropolitan Area
• Denver Metropolitan Area
t New York/New Jersey Metropolitan Area
• District of Columbia Metropolitan Area
Selection of one of these regions for analysis is made by merely
specifying its key word name in the input file.
3.1.1 Keyword Data Input
The Keyword input consists of a series of input cards each containing
a "keyword" from the list of valid entries (The 0PTS array). Each key-
word activates an appropriate portion of GEEP code. Table 3rl presents
a list of all valid keywords with a description of the variables affected.
For a detailed description of the consequences of a particular input,
consult the flowcharts and listing in Section 5.1 (Main program).
3-2
-------
Table 3-1 AVAILABLE KEYWORD INPUT
KEYWORD
PARAMETER
SIGNATURE
UNCONTROL
CONTROL
POST 70
IDLE
IGNITION
INDUCTION
LOADED
HYBRID
CODE
NUMBER
8
9
10
25
27
DESCRIPTION
Parameter inspection in franchisee! garages
(unloaded)
Mode emission signature inspection in
state facilities (unloaded)
Include uncontrolled vehicles (pre 1968)
in fleet being modeled. (K=l)
Include controlled vehicles (1968 - 1970)
in fleet being modeled. (K=2)
Include post 70 vehicles (post 1970) in
fleet being modeled. (K=3)
Include Idle parameters in those being
tested.
Include Ignition parameters in those
being tested.
Include Induction parameters in those
being tested
Flag indicating test run in loaded con-
dition.
Flag indicating hybrid test. Part run
loaded, part unloaded.
VARIABLES AFFECTED
RTYPE = PM0DEL, LIDLE=1, SLANE="GARAGE"
RTYPE = SM0DEL, LIDLE=1, SLANE="STATE"
KSTART=1, KST0P=at least 1. Model
uses control types KSTART through
KST0P
KSTART=at most 2, KST0P=at least 2
KSTART=at most 3, KST0P=3
MSTART=1, MST0P=at least 3. Model
uses parameters MSTART through MST0P.
(See Table 4.1.1.2)
MSTART=at most 4, MST0P=at least 5
OPTI=at least 2
MSTART=at most 6, MST0P=10
OPTI=at least 3
LIDLE=2
LIDLE=3
-------
Table 3-1 AVAILABLE KEYWORD INPUT (con't.)
co
i
KEYWORD
DEBUG
BLINE
MICRO
TEST
COSTS
AREA
CUTPTS
PDECAY
DATA
MDECAY
STATS
STOP
CODE
NUMBER
1
11
12
13
14
15
16
17
18
19
20
DESCRIPTION
OLD debug flag
BLINE debug flag.
MICRO debug flag.
TEST debug flag.
COSTS debug flag.
AREA debug flag.
CUTPTS debug flag.
PDECAY debug flag.
DATA debug flag.
MDECAY debug flag.
STATS debug flag.
Indicates last case in a job.
VARIABLES AFFECTED
None
Turns on Bline debug output.BDEBU6=YES
Turns on MICRO debug output.MDEBUG=YES
Turns on TEST debug output. TDEBUG=YES
Turns on COSTS debug output.CDEBUG=YES
Turns on AREA debug output. ADEBUG=YES
Turns on CUTPTS debug output.LDEBUG=YES
Turns on PDECAY debug output.PDEBUG=YES
Turns on DATA debug output.DDEBUG=YES
Turns on MDECAY debug output.QDEBUG=YES
Turns on STATS debug output.SDEBUG=YES
RST0P = YES
-------
Table 3-1 AVAILABLE KEYWORD INPUT (con't )
KEYWORD
LA
NY
WASH
DENVER
DETROIT
IHC
IC0
IN0
HC45
C045
N045
CODE
NUMBER
21
22
23
24
35
31
30
36
32
33
37
DESCRIPTION
Los Angeles regional data flag.
New York regional data flag.
Washington, D.C. regional data
flag.
Denver regional data flag.
Detroit regional data flag.
Include IHC in mode emissions
being tested.
Include IC0 in mode emissions
being tested.
Include IN0 in mode emissions
being tested.
Include HC 45 in mode emissions
being tested.
Include C0 45 in mode emissions
being tested.
Include N0 45 in mode emissions
being tested.
VARIABLES AFFECTED
RNAME=1
RNAME=2
RNAME=3
RNAME=4
RNAME=5
LSTART=at most 1 , LST0P=at
least 1. Model uses mode
emission LSTART through LST0P,
See Table 4.1.1.3.
LSTART=at
least 2.
LSTART=at
least 3 .
LSTART=at
least 4.
LSTART=at
least 5.
LSTART=at
least 6.
most 2, LST0P=at
most 3, LST0P=at
most 4, LST0P=at
most 5, LST0P=at
most 6, LST0P=at
oo
in
-------
Table 3-1 AVAILABLE KEYWORD INPUT (con't.)
KEYWORD
STATE
GARAGE
MISFIRE
CODE
NUMBER
28
29
34
DESCRIPTION
Flag indicating maintenance in
State owned facilities.
Flag indicating franchised garage
maintenance.
Use misfire in simulation. (Mis-
fire is normally not used.)
VARIABLES AFFECTED
SLANE="STATE"
SL AN E=" GARAGE"
MISFIRE=YES
CO
-------
Figure 3-1 shows the sequential order for the Keyword card setup.
3.1.2 Namelist Data Input
Many inputs to the General Economic Effectiveness Program have
numeric values and therefore do not lend themselves to a simple keyword
input scheme. These parameters are specified in a namelist input data
section. Table 3-2 contains a complete list of all valid namelist
variables along with a description of their role in the Inspection/Main-
tenance model. Figure 3-2 illustrates the card order setup for the
Namelist input. Section 3.2 describes the exact card formats and deck
setup required for a namelist input record.
The bulk of the input data is normally invariant (e.g., influence
coefficients) and accordingly resides within the program. This approach
greatly simplifies the task of executing multiple computer runs and
minimizes potential sources of error. A complete listing of all initial
data is available through the use of the DATA option. Tables 3-3 and 3-4
have been prepared to assist the user in relating code internal numbers
with input descriptions for engine parameters and mode emissions, respect-
ively. These tables should be of specific value when attempting to
introduce additional parameters and/or mode emissions.
3.2 INPUT FORMAT
Input to the General Economic Effectiveness Program is given by case.
Each case, consisting of two sections, constitutes a complete inspection/
maintenance program description. Keyword data input, the first section
of each case, defines the inspection procedures, the inspection parameters
or mode emissions, the region to be modeled and the debug options (See
Table 3-1 for a complete list of keyword options). Namelist input data,
3-7
-------
r
KEYWORD N
o
0°
Q
KEYWORD 3
co
00
^KEYWORD 2
KEYWORD 1
Figure 3-1 Keyword Card Order
-------
A VARN = VALUE N
/ AVAR 2 = VALUE 2
co
to
/ A VAR 1 = VALUE
P$NAM1
Figure 3-2 Name!1st Input Card Order
-------
Table 3-2 VALID GEEP NAMELIST VARIABLES
VARIABLE
DIMENSION
DESCRIPTION
COEFBP
EFF
EMW
FPERC
HORZN
LPICK
NPICK
PARM
PCONF
PPICK
PSTAR
SCALEBM
START
10 x 15
10
3
10 x 3
scalar
10
10
3x3
scalar
15 x 10
10
scalar
3
15 x 3
Parameter decay rates. May be altered
for sensitivity analysis.
Parameter maintenance efficiency for
AE calculation.
Emission weighting function. Expresses
relative importance of emission re-
ductions by species.
Voluntary maintenance by parameter and
control type. May be altered for sen-
sitivity analysis.
Time horizon of I/M program in months.
Array of time periods for linear pro-
gramming cutpoint optimization
Array of time periods for statistical
analysis of results of the current
time interval.
Emission decay rate not attributable
to parameter deterioration.
Confidence level for statistical
analysis.
Successful inspection percentage for
each parameter and control-power train
type.
Array of time periods for plot
generation under various debug options.
Constant rejection rate.
Miscellaneous fudge factor input.
Currently does nothing.
Initial emission rates for each species,
control type and power train type.
Initialized in REGION.
3-10
-------
Table 3-2 VALID 6EEP NAMELIST VARIABLES (Con't )
VARIABLE
STAT
SXCUT
TDIST
TINT
XCUT
XLANE
Z2
Z9
Z16
DIMENSION
scalar
6x3
10 x 3
scalar
10 x 3
scalar
scalar
scalar
scalar
DESCRIPTION
Number of inspection stations.
Mode emission cutpoints.
Parameter usage vector. Used for
deleting certain parameters from
consideration.
Time interval for mandatory in-
spection.
Parameter cutpoints.
Number of inspection lanes per
station.
Mechanics hourly rate.
User inconvenience rate.
Attendant hourly rate.
3-11
-------
Table 3-3. ENGINE PARAMETER CODE NUMBERS
Parameter Number
1
2
3
4
5
6
7
8
9
10
Subsystem
Idle
Idle
Idle
Ignition
Ignition
Induction
Induction
Induction
Induction
Induction
Parameter
Idle C0
RPM
Timing
Misfire
N0 Control
A
Air Pump
PCV
Air Cleaner
Vacuum Choke
Kick
Choke Heat Riser
Table 3-4 MODE EMISSION CODE NUMBERS
MODE EMISSION
NUMBER
1
2
3
4
5
6
MODE EMISSION
IHC
IC0
IN0
HC 45
C0 45
N0 45
DESCRIPTION
Idle HC
Idle C0
Idle NO
A
Cruise 45 HC
Cruise 45 C0
Cruise 45 N0
A
3-12
-------
the second section of each case, includes specification of all numeric
data for a GEEP simulation. These data include the inspection time inter-
val, emission weighting factors, cutpoints for parameter and mode emission
inspections, and miscellaneous cost data.
Keyword data is specified by listing one keyword per card starting
in card column 1. Only the first ten characters of the data card are
read, and therefore columns 11 through 80 are available for comments or
case descriptions. The order of the keyword cards is insignificant as
the model treats each entry separately, setting the appropriate para-
meters depending on the keyword. An invalid entry, that is, one which
does not apppear in the OPTS array, is flagged and printed out along with
a non-fatal error message. At the end of each case the keyword "THAT'S
ALL" signals an end of section one data for the case being processed.
A "STOP" keyword input, anywhere in a case, signals that the case being
processed is the last one in the data deck.
Namelist input data, Section 2, is more strictly formatted than the
keyword input, The card following the "THAT'S ALL" end of keyword data
flag, must be a P$NAM1 card starting in column 1. Following this card
are the actual input data starting in card column 2. Possible variable
input formats are described in Table 3-5. Each variable name must be
a valid namelist NAM1 variable and must not start in column 1. The end
of all namelist parameters is indicated by a $END card in card column 2.
Following the $END card would be the first keyword input of the next
case or a (I | EOR (END OF RECORD) card if this was the last case.
\9/
3-13
-------
Table 3-5- POSSIBLE NAMELIST VARIABLE FORMATS
• SCALAR INPUT
©= card column 2
VARNAME = value
• ARRAY INPUT - SINGLE CELL
VARNAME (index) = value
• ARRAY INPUT - MULTICELL STARTING AT BEGINNING OF ARRAY
VARNAME = value, value, value, value value
t ARRAY INPUT - MULTICELL STARTING AT ARBITRARY CELL
VARNAME (index) = value, value, value, value value
NOTE
Matrix input is by columns.
Example:
If A is dimensioned 3x2, then the order of input should be
A - A A A A A A
11 ' ?1 ' ^1 ' 1 ? ' ??' ^?
3-14
-------
Appendix B contains, several complete sample cases, including listings
of the input setup as well as produced output. Section 4.0 describes
the operating procedures for running GEEP including all control cards
required in the control card deck.
3.3 OUTPUT SPECIFICATIONS AND OPTIONS
GEEP has been designed to provide a wealth of information on the
calculated emission reductions and associated costs of each inspection/
maintenance program. Table 3-6 summarizes the basic output options.
The program also generates the following ancillary information:
1) Mass emission time histories.
• Aggregated
• Control type
• Power train
2) Vehicle population distributions and attrition rates over time.
3) Summary of input data.
4) Engine parameter and mode emission distribution plots and
statistics.
5) Pass/fail criteria and vehicle rejection probabilities by year.
6) Engine parameter rejection rates and average parameter adjust-
ments.
7) Summary of regional and operational design results.
8) Statistical confidence limits on predicted emission reductions.
A debug option has been incorporated into each major system routine
to assist in interpreting program output and in checking out new policy
alternatives. This option yields a complete diagnostic analysis on all
fundamental calculations within the model.
Printed and plotted output from GEEP are designed to display to the
3-15
-------
user a maximum amount of information. Output from the program consists
of three types: standard output, debug output and plots. The standard
output includes emission rates, reduction percentages, figures of merit,
and cost data. The debug printout is generally in the form of tables
presenting the values of intermediate variables in the model's calcu-
lations. Plotted output consists of parameter frequency plots and
emission time history plots.
Table 3-7 exhibits a printout summary of typical results. This
printout features estimates for several figures of merit, computed
emission reductions, and a variety of accounting costs. Additional
examples of GEEP output are found in Appendix B.
3-16
-------
Table 3-6 SUMMARY OUTPUT OPTIONS
OPTION INPUTS RESULTING OUTPUT
• BASIC None
• Summary Results
• Emission Time History Plots
• Vehicle Population Characteristics
• Regional Data Summary
t STATS Results (if executed)
• CUTPOINT Data
t Emission Rate and Failure Rate Tables
• PPICK PPICK ]• Engine Parameter Distribution Plots
• DEBUG BLINE
MICRO
TEST
COSTS
AREA
CUTPTS
PDECAY
DATA
STATS
4 Debug information for Subroutine BLINE
t Debug information for Subroutine MICRO
• Debug information for Subroutine TEST
• Debug information for Subroutine COSTS
t Debug information for Function AREA
t Debug information for Subroutine CUTPTS
• Debug information for Subroutine PDECAY
• Debug information for DATA BLOCK
• Debug information for Subroutine STATS
GJ
t
-------
Table 3-7 SUMMARY OUTPUT RESULTS
***************** ** *** * *** * ** *****
* TRW INSPECTION/MAINTENANCE *
_* SYSTEM MODEL *
**********************************
SUMMARY INFORMATION
ENGINE PARAMETER STRATEGY EXTENSIVE B
INSPECTION PERIOD IS 12.0 MONTHS
PAYOFF FUNCTION UNADJUSTED (DOLLARS/WEIGHTED EMISSION) 5736.21
PAYOFF FUNCTION STATISTICALLY ADJUSTED (DOLLARS/WEIGHTED EMISSION) 4412.06
PAYOFF FUNCTION AT END OF LAST YEAR
-------
4.0 OPERATING PROCEDURES
4.1 THE PROGRAMMING SYSTEM
The General Economic Effectiveness Program is a Fortran IV program
operational on the Control Data (CDC) 6000 series computers. The CDC
machines are third generation multiprogrammable computers capable of
processing approximately 1,000,000 instructions per second with up to
19 different jobs concurrently running in central memory. The TRW Time
Sharing System (TRW/TSS) uses a CDC 6400-6500 combination with intercom-
munication between user disk files and the three CPU's with Batch and
Remote Batch capabilities. The combined storage space on the two machines
is in excess of 660,000g words (60 bit) central memory and 800 million
words on disk.
The GEEP source and object decks reside on the permanent file
storage disk of the TRW/TSS. As a file on this disk they are accessible
in either Remote or Remote Batch mode. Since the control cards and deck
setup are essentially identical, a Remote mode submittion will be
assumed in the following discussions.
4.2 CONTROL CARD SPECIFICATION
The TRW/TSS CDC machines run under the KRONOS operating
system, the control cards of which are simple and self explanatory.
Table 4-1 details the job control cards and contains a short explanation
of each card. This control card setup assumes an object deck run.
4.3 DECK SETUP
The input deck setup required for the execution of the program
consists of the job control cards (JCC), the program deck and the data
4-1
-------
Table 4-1 REQUIRED JOB CONTROL CARDS
CARD
DESCRIPTION
$ SEQUENCE, E284. Operator supplied sequence card
$ ACCOUNT, RB56415, ROBE564. Program account and password
$ NAME, 142001, 56415, BADDORF, R. User Name card
$ PROBLEM, 289010. Charge number
$ PRIORITY, N. Nominal Priority
$ FLENGTH, 150000. 150gK Field length request
$ MAXTIM, 300. 5 minute max/time request
GET, GEEP. Retrieve object deck
GEEP (TAPE 5=INPUT) Execute Program (Data Follows)
'7\E0R End of Record card.
8
4-2
-------
cards set. Figure 4-1 illustrates the deck setup for a standard run.
This example demonstrates the card setup for executing several cases
during the same run.
4.4 DIAGNOSTIC AND TROUBLESHOOTING PROCEDURES
Basically, three types of errors can occur during a GEEP run:
program detected errors, system detected error, and the elusive computer
error. The last is a very rare, non-recoverable problem which can be
solved by resubmitting either the entire run or just those cases not
yet executed. Program detected errors are those inconsistencies which
trigger an error branch in the GEEP code. These include input errors
detected by the check routine in the main program. The diagnostics are
self explanatory, and the problems are generally not fatal to the
execution of a case. The linear programming package for cutpoint
optimization is the second routine containing program data error flags.
The diagnostic messages possible are listed in Table 4-2 with a des-
cription of the problem and the solution.
The other common diagnostic message results from a system detected
error. These errors include dividing by zero, square roots of negative
numbers, and raising negative numbers to non-integer powers. These
occur most often in the routines which interpolate or manipulate dis-
tributions and are usually the result of bad input. A description of
the various possible diagnostic messages can be found in Appendix K of
the CDC Fortran Manual. The load map can be used with the help of a
GEEP listing to pinpoint the location and exact nature of the data
discrepancy. But probably the most likely system detected error
will be associated with the NAMELIST input data.
4-3
-------
END OF IMFORMATION
i
-F*
$ ACCOUNT, RB56415, ROBE 564
$ SEQUENCE, E284
Figure 4-1 Example Card Configuration for Object Deck Run
-------
Table 4-2 DIAGNOSTIC MESSAGES
en
DIAGNOSTIC MESSAGE
A MATCH WAS NOT FOUND FOR XXXXXXX
TOO MANY ITERATIONS IN LINPRO
NO FEASIBLE SOLUTION LOWERING CONSTRAINTS
SOLUTION UNBOUNDED - RUN TERMINATED
TOO MANY ITERATIONS - RUN TERMINATED
PROBLEM INFEASIBLE - RUN TERMINATED
INSUFFICIENT DIMENSTION IN XPT CALLED
STATS
INSUFFICIENT DIMENSTION SIZE IN RESIZE
CALLED FROM CONVOL
MEANING AND SOLUTION
The key word input XXXXXXX is either mis-
spelled or not a valid GEEP option. The
program ignores that card.
The iteration loop to match cutpoints with
rejected fractions is not converging. Change
the emission reduction constraints a few
percent to move the problem away from the
unstable point. Fatal error.
The linear program has no feasible solution
The constraints are being lowered automati-
cally by 10%. Program will continue until
the constraints have been reduced by 70% at
which point the case aborts.
LPRO error message.
solution.
LPRO error message.
solution.
LPRO error message.
solution.
Treated as no feasible
Treated as no feasible
Treated as no feasible
More than 50 points required to characterize
a distribution. Contact programmer. Fatal
error.
More than 50 points required to characterize
a distribution. Contact programmer. Fatal
error.
-------
In attempting to understand any problem with the processor, the
debug flags for the affected routines should be activated (See Table 3-1).
4.5 LIBRARY ROUTINES REQUIRED
The GEEP computer program uses several standard Fortran functions
from the CDC system library. These routines, with a brief description
of each are tabulated in Table 4-3. If an error should occur within one of
the library programs the system back-track printout will locate the
calling subroutine for debugging purposes.
4.6 GENERAL COMPUTER REQUIREMENTS
Although GEEP was designed for the use on the CDC 6500 system it
can be made to operate on other computing systems. Listed below are
minimum requirements, both Hardware and Software, for possible conversion
to an alternative system.
• Software support of Fortran IV (Fortran G).
• Computing Hardware equivalent to a CDC 6400 with at
least 200,000 words of core storage (2 million bytes).
t A full operating system capable of supporting the above
hardware system.
• A card reader/punch and high-speed line printer.
4.7 EXECUTION/PRINT ESTIMATES
The execution time, required field length, and number of pages
printed by GEEP depend entirely on the number of cases and debug options
chosen. Estimates for these figures appear in Table 4-4. It should be
noted that, for a standard run, no compilation time or print-out is
necessary. These values are,all estimates and vary according to desired
option.
4-6
-------
Table 4-3 SYSTEM LIBRARY FUNCTIONS CALLED BY GEEP
FUNCTION DESCRIPTION
SQRT (X) Square root of X
MINO (I,J) Minimum of I and J
MAXO (I,J) Maximum of I and J
EXP (X) ex
AL0G (X) Inx
AMIN1 (X,Y) Minimum of X and Y
AMAX1 (X,Y) Maximum of X and Y
ABS (X) Absolute value of X
IABS (I) Absolute value of I
INT (X) Largest integer less
than X
4-7
-------
Table 4-4 EXECUTION/PRINT ESTIMATES
Compilation of GEEP processor:
One Case - No debug output:
One Case - PDECAY debug:
One Case - Full debug:
200 seconds CPU time
llOOOOg Words Storage
250 Pages (10000 lines) output
30 seconds CPU time
1710000 Words Storage
o
20 Pages (600 lines) output
30 seconds CPU time
1710000 Words Storage
8
150 Pages (5000 lines) output
35 seconds CPU time
1710000 Words Storage
o
250 Pages (10000 lines) output
4-8
-------
4.8 PROGRAM LIMITATIONS
The program is basically limited in terms of the programmed in-
spection/maintenance alternatives. The most important of these is the
input inspection type and control fleet specification limitation. The
GEEP computer program expects as input a series of inspection specifi-
cations such as idle, ignition and induction which are consecutive in
the parameters affected. For instance, acceptable inspection type
specifications include IDLE-IGNITION, IGNITION-INDUCTION, IDLE,
IDLE-IGNITION-INDUCTION. The only non-permissible combination is
IDLE-INDUCTION which would involve the inspection of parameters one
through three and six through ten, a non-connected set. The same
principle applies to the control subfleet specification limitation
which states that any combination of control fleets except the UNCON-
TROLED-POST 70 icombination is acceptable.
The only other program limitations on the program are obvious con-
straints on the input data such as 0
-------
5.0 DETAILED FLOW SCHEMATICS
Presented in the following sections are descriptions, detailed flow-
charts and computer listings of each of the fifty-five subroutines in
GEEP. Each contains a description of the input variables and output
results. Also included are brief summaries of the main equations and
techniques for the routine.
This section has been prepared primarily for use by FORTRAN program-
mers in adopting or modifying the program's structure. Therefore, heavy
emphasis is placed on the flowcharts and listings with only cursory des-
criptions of analytical techniques or data values, details of which are
available in Volume III. The user is refered to Table 5.0 which provides
a descriptive overview of the program's subroutines.
5.1 MAIN PROGRAM
The main routine of the General Economic Effectiveness Program con-
tains the overall logic for evaluating a mandatory vehicle inspection/
maintenance program. The basic input is read and decoded in the main
routine, which then intiates the flow through the major routines of GEEP.
The following sections contain complete descriptions of each GEEP routine
which explain both the input and output as well as the execution flow
paths.
Table 5-1 contains a listing of the main routine and Figure 5-1 a
flowchart.
5.2 SUBROUTINE INITIAL
Subroutine INITIAL of the General Economic Effectiveness Program
initializes various parameters and averages several large input matrices
5-1
-------
Name
GEEP
Table 5-0 SUMMARY LEVEL SUBROUTINE DESCRIPTIONS
LEVEL I
Description
The executive program; provides main linkage for
major component subroutines.
Subroutine
Name
REGION
INITIAL
BLINE
MICRO
COSTS
OUT
LEVEL 2
Description
Suoplies region data (location, size, population,
emission levels, etc.) for a specific demographic
region.
Initializes program variables. Certain variables
change throughout the program execution but must be
re-initialized at the start of each run. Also
pertinent arrays are filled or "zeroed out."
The emission study for the baseline fleet is performed
at this time. Strictly voluntary maintenance.
">.e emission study for the test fleet is controlled
here. Mandatory insoections and-maintenances.
The program costs are calculated for parts, labor,
land, etc.
The output of the entire program summaries (emission
histories, rejection histories,.percentage emission
reductions, etc.).
5-2
-------
Subroutine
Name
PRINT 1
PRINT 2
PRINT 3
PRINT 4
PRINT 5
FIT
FUN 1
PDECAY
MDECAY
EDECAY
TEST
MA I NT
STATS
Table 5-0 SUMMARY LEVEL SUBROUTINE DESCRIPTIONS (cont.)
LEVEL 3
Description
Output of the argument variable with the dimension
size of (10, 15, 3).
Output of the argument variable with the dimension
size of (15, 3).
Output of the argument variable with the dimension
size of (10'5 15).
Output of the argument variable with the dimension
size of (10, 15, 4).
Output of the argument variable with the dimension
size of (4, 15).
Each emission history must be represented in terms
of a polynomial for integration purposes. This
subroutine is a 2nd order curve fit.
A single table linear interpolation, with extra-
polation beyond end points.
Particular parameter distributions must undergo specific
decay processes between inspection periods.
Similar to PDECAY, particular mode distributions
undergo decay.
Similar to PDECAY, emission levels are decayed.
This subroutine controls the estimations of that
portion of a specific parameter or mode distribution
that is rejected; i.e., that portion of the distribution
which exceeds the allowable emission standards.
Emission levels must be corrected for maintenance due
to both the baseline and the test programs.
At the conclusion of any test interval, a statistical
analysis may be performed on the baseline vs test program
reductions.
5-3
-------
Table 5-0 SUMMARY LEVEL SUBROUTINE DESCRIPTIONS (cont.)
Subroutine
Name
PLOT
QUEUE
Description
Provides a graphical plot of the emission histories.
Provides a queue model for user inconvenience
estimations.
Name
STD 2
AREA
LEVEL 4
Description
Using a frequency distribution, calculates the
corresponding mean and siqma.
(XOPT = 0) Estimates the normalized area of a parameter dis-
tribution, nominally from the end point to the cutpoint,
(XOPT = I) Returns the expected value of the rejected portion
of the distribution.
UNION
TABLE
CONVOL
/xf(x)dx = expected value
Provides the union of n number of probabilities;
namely, the rejection fractions.
Generates a frequency distribution (table) from a
representative mean and sigma. Generates:
(1) Normal
(2) Lognormal
(3) Hyperbolic
Generates the convolution of two distributions:
OO
C = /f(t) g (x-t) dt
^oo
e.g., for two standard normal -distributions;
Mc =
5-4
-------
Table 5-0 SUMMARY LEVEL SUBROUTINE DESCRIPTIONS (cont.)
Subroutine
Name
DISTPR
NORM
XPT
PLOTXY
I FACT
Description
Used in conjunction with CONVOL. Outputs the two
input distributions along with the resultant dis-
tribution with their respective means and sigmas.
Normalizes a distribution so that
f(x) dx = 1
Given a distribution and an area, integrates until
the input area is achieved and outputs the respective
X-axis coordinate.
Supports subroutine plot by outputting the actual
grid pattern.
Calculates N factorial for integer N.
Name
SWITCH
RESIZE
LEVEL 5
Description
For most purposes, a representative distribution's
X-axis must be monotonically increasing. If not,
the order of the X-axis values along with their
respective Y values are reordered.
Given a distribution and a cell width, AX, a new
array, is generated to represent the input distri-
bution as a function of the new AX.
5-5
-------
MAIN PROGRAM
START
J
SAVE OLD STAT VALUE
PRINT MAIN HEADING
10000
INCREMENT RUN NUMBER
PRINT RUN HEADING
100
rREAD INPUT OPTIONS
INTO IN ARRAY.
NINS = "NUMBER OF
OPTIONS INPUT.
WAS THERE
ANY INPUT
MATCH UP INPUT OPTIONS
WITH VALID OPTION CODES.
STORE OPTION NUMBERS IN
MATCH.
EDIT DATA FOR INVALID
OPTIONS.
350
Figure 5-1 Main Program Flowchart
5-6
-------
0
INITIALIZE OPTION
PARAMETERS
MSTART = 11
MSTOP = 0
LSTART = 7
LSTOP = 0
OPTI = 0
MISFIRE = NO
FOR EACH OPTION
INPUT CARD
BRANCH TO D.
WHERE D. IS '
THE OPTION NUMBER
•• (D36
•0
DEBUG OPTION (DOES NOTHING)
SET RUN TYPE TO PARAMETER
(NOMINALLY UNLOADED)
SET FLAG FOR GARAGE INSPECTION
PARAMETER OPTION
SET RUN TYPE TO SIGNATURE
(NOMINALLY UNLOADED)
SET FLAG FOR STATE LANE INSPECTION
SIGNATURE OPTION
SET STOP FLAG TO INDICATE LAST CASE
SET K LIMITS TO INCLUDE UNCONTROLLED
VEHICLES (K = 1)
F I STOP OPTION
UNCONTROLLED OPTION
Figure 5-1 Main Program Flowchart (cont.)
5-7
-------
K LIMITS TO INCLUDE CONTROLLED
VEHICLES (K=2)
- *\FJ
K LIMITS TO INCLUDE POST 1970
VEHICLES (K=3)
SET M LIMITS TO INCLUDE IDLE
PARAMETERS (1-3)
SET OPTION FLAG (OPTI) TO 1
- *\FJ
SET M LIMITS TO INCLUDE IGNITION
PARAMETERS (4-5)
SET OPTION FLAG (OPTI) TO 2
SET M LIMITS TO INCLUDE INDUCTION
PARAMETERS (6-10)
SET OPTION FLAG (OPTI) TO 3
TURN ON BLINE DEBUG
TURN ON MICRO DEBUG
TURN ON TEST DEBUG
TURN ONCOSTS DEBUG
TURN ON AREA DEBUG
TURN ON CUTPTS DEBUG
TURN ON PDECAY DEBUG
TURN ON DATA DEBUG
TURN ON MDECAY DEBUG
^0
1-0
CONTROLLED OPTION
POST '70 OPTION
IDLE OPT ION
IGNITION OPTION
INDUCTION OPTION
BLINE OPTION
MICRO OPTION
TEST OPTION
COSTSOPTION
AREA OPT ION
H©
^0
CUTPTS OPTION
PDECAY OPT ION
DATA OPTION
MDECAY OPTION
Figure 5-1 Main Program Flowchart (cont.)
5-8
-------
TURN ON STATS DEBUG
SET REGION FLAG FOR LA
SET REGION FLAG FOR NY
SET REGION FLAG FOR WASHINGTON
h-0
-©
-©
SET REGION FLAG FOR DENVER
SET LOADED FLAG TO ON
SET LOADED FLAG TO OFF
SET FLAG FOR HYBRID INSPECTION
SET FLAG FOR STATE LANE INSPECTION
SET FLAG FOR GARAGE INSPECTION
SET L LIMITS TO INCLUDE ICO
(L = l) INSPECTION
SET L LIMITS TO INCLUDE IHC
(1=2) INSPECTION
SET L LIMITS TO INCLUDE HC45
(L = 3) INSPECTION
-©
—©
—©
SET L LIMITS TO INCLUDE CO45
(1 = 4) INSPECTION
TURN ON MISFIRE FLAG
SET REGION FLAG FOR DETROIT
SET L LIMITS TO INCLUDE INO
(L = 5) INSPECTION
©
SET L LIMITS TO INCLUDE NO45
(L=6) INSPECTION
STATS OPT ION
LA OPTION
NY OPTION
WASH OPTION
DENVER OPTION
LOADED OPTION
UNLOADED OPTION
HYBRID OFT ION
STATE OPT ION
GARAGE OPT ION
ICO OPTION
IHC OPTION
HG45OPTION
CO45 OPTION
MISFIRE OPT ION
DETROIT OPTION
INO OPTION
NO45OPTION
Figure 5-1 Main Program Flowchart (cont.)
5-9
-------
LAST INPUT
CARD
IS THIS A
PARAMETER RUN
WITH IDLE INSPECTION
ONLY AND THE
MISFIRE FLAG
ON
YES
CHANGE THE UPPER M LIMIT
TO INCLUDE MISFIRE (M = 4)
SET LPSPP = 1 FOR MISFIRE
450
PRINT OUT SUMMARY
OF INPUT OPTIONS
6000
CALL REGION TO GET
REGIONAL DATA
REPLACE OLD VALUE OF
STAT INSTAT
READ NAME LIST
INPUT DATA
Figure 5-1 Main Program Flowchart (cont.)
5-10
-------
STORE NEW STAT
VALUE AND SCALE
FOR TINT 12 MONTHS
CALL INITIAL
CALLBLINE
SET KILL = 0
CALL MICRO
NO
YES
CALL PRINT6
(ATTRITION MODEL PRINTOUT)
CALL COSTS
CALL OUT
(OUTPUT ROUTINE)
7000
NO
Figure 5-1 Main Program Flowchart (cont.)
5-11
-------
Table 5-1 MAIN PROGRAM LISTING
ro
t
00100
00110
00120
00130
00140
00150
00160
00170
00180
00190
00200
00210
00220
00230
00240
00250
00.260
00270
00280
00290
00300
00310
00320
00330
00340
00350
00360
00370
00380
00390
00400
00410
00420
00430
00440
. 00450
00460
00470
00480
00490
00500
PROGRAM GX(
C ECONUMIC/EF
DIMENSION I
INPUT, OUTPUT
FECTIVENESS
N(50) ,MATCH(
COMMON /COM01/ AMB
* BAREA<3), BL01,
+ BHIST(3,16),
+ ATABLEX(9,10,3)
COMMON /COM02/
+ CARSY, CBSUM
+ CINCON,
+ CN115.3
+ CPARTd
CPCB,
,16),
0,15)
CC ADD2
COMMON /COM03/
+ EMW(3) , EPdO
+ FREOA,
+ HORZN,
* HPC(15,
+ HPS(6,1
+ HPTOTS(
CC ADD3
(3),
.TAPE5,
PROCESS
50)
ALAB,
6LD2,
,ATABLEY(9,
CARA,
, CCOEFl
CP
,15)
FREOB,
HORZNY,
16),
5,16) ,
16)
COMMON /COM04/
+ KSTART, KSTOP
+ LIOLE, LINT<
+ MBASE,
+ MU(10,3
CC ADD4
MPH,
) , MMS
16),
(10,
COMMON /COM05/
-t- NINTR, NINTRB,
+ NPTRN, NPTS,
+ OCIY, OCMY,
CC ADDS
COMMON /COM06/
* PCU5),
+ PP(10,1
+ PARdO,
+ PM(10,1
-i- PSA(15)
+ .PAYFIN
PCS(15),
5),PS(6,15),
15,3),
5),
, PTA(5),
COMMON /COM07/
+ RTYPE,
I,
COEFB1
DELPCV
,EFF(10
TAP
OR
0
1
I
1
,1
0,
0)
E6 = OU
AW,
3SIG
5,3),
3) ,AS
CAR I
,CCOS
CPVPY,
5,3) ,
TPUT)
BINT
(3),
TA3LX
Y,
TI,
BXTRA
,
(9,6,3),
CAR MY,
CCOSTM,
CSUM,
COEFBPl
, DP(10,15)
), DELIT<3),
FPERCd
HPCS(15
HPT(5,
ITE,
LOPT,
LPSPP(
MSPEC(
15),
NMODE,
NSTEPS
QPTI,
PARM(3
1
0,
,1
6)
LPI
10)
1
0
,
PHK14)
PT(5) ,
PARH10
PPICK(
PCONF,
REINSP
0)
3) ,
6),
'
,OELEM
(3
HPPdO,
ITL,
CK(10),LLP
,LSTART,
,MSTART,
MVPR( 10
), NCNTR,
NO,
NTR,
3)
t
,3
10)
OPTM
,PART
PLOC
PTOT
,3),
,PPPI
PAR I
HPTOT
ITP,
ICK,
LSTOP
MSTOP
,15)
NEMIS
NOPTS
NTRB,
(1
,
,
,
»
,OPTS(50) ,OV^
, PAYNEW,
14),
,
CK,PS
NT(10
, RNAME,
PLTMAX(
PTS(5),
PLUS( 10
TAR, PI
,10,9)
RSIZE
<1
,
BSIZE,
ASTABLY( 9,6,3)
CARPOP116) ,
CGTT,
CARAY,
10,15) ,
,16) ,DEL I (3),
15,16),
6),
ITIME(16>,
NEMP, ^
NPAR, ^^ t
HK3) ,0\/CHM(3)
PAYOFF(3),
3),PMOD6L,
PAYADJ,
t!5) ,
5,10),
RSTOP,
-------
en
*' do5lt!; *"
00520
00530
00540
! 00550
00560
,_ 00570
00580
00590
00600
00610
00620
00630
00640
00650
00660
i 0067O
j 00680
00690
00700
00710
00720
00730
00740
00750
00760
00770
00780
0079O
00800
00810
00820
00830
00840
00850
00860
00870
00880
00890
00900
00910
00920
%- • lable b-1
' + SAtE, SALL,
4- SMODEL, START115
•*• SCALEBM(3),
4- SXCUT(6,3),
4- SIGMEUO),
4- SI GRATE, SIST,
4- STABLEX(33,6,15),
COMMON /CJM10/
4- TINT, TQbE(3),
4- TXTRA, TSIZE,
•»• THIST(5,3,16),
4- TIMEM(10,15) ,
CC ADD10
COMMON /COM11/
4- X1BP(3,3,6), XINT,
4- XTM(16), XBASE19,
CC AOD11
COMMON /COM12/
4- YES, YSUMf
4- Zl, Z2,
4- Z7, Z8,
4- Z13, Z14,
4- ZCARI, ZCARM,
+ ZZ<3,3)
CC A0012
COMMON /DEBUG/
4- LDEBUG, MOEBUG,
CC ADDD
REAL ITE,
4- MMS, MPH,
4- NAME, NO,
4- IN, MISFIRE
INTEGER RNAME,
4- TDIST, XLANE,
MAIN PROGRAM LISTING (cont.)
SALP, SITE I,
,3) , STAT, STIME
SM(6,15),
S1G(10,3) ,
SIGMNEJ 10),
SIGS(6*15),
STA6LEY(33,6,15)
TAREA(3), TDISTdO
TONX, TOTE13),
TSIGC3), TPER(16
THISTT(3,16),
TA8LEX{33,10,15),
kJFUO),
XINTB, XLANE
3),YBASE(9,3)
Y1BP13,3,10),
YTM(16) , Y1DBP
Z3, Z4,
Z9, Z10,
Z15, Z16,
ZIC, ZSUM,
ADEBUG, BDEBUG,
PDEBUG, goEBuc,
ITL, ITP,
MSPEC, MU,
LDEBUG, MDEBUG,
SITEI, SITEM,
OPTI, PPICK,
SITEM, SLANE,
(3), SUMBM(3),
SPAR( 10,15,6),
SIGCE(3) ,
SIGP(10,15),
SIGSOE(3),
,3) ,TIOLE,TIMEI(3,16),
TPDB(3), TPDT13),
,15), TMIL(16,15),
TIMEC(10,15),
TABLEY(33, 10,15)
, XSUM, XCUT(10,3),
Y2BP(3,3,10),
(4,4,10),Y2QSP14,4,10) ,
Z5, Z6,
Zllt Z12,
Z17,
CDEBUG, DDEBUG,
SDEBUG, TDEBUG
ITIME,
MVP8,
STAT,
PPPICK
NAMELIST /NAM1/ XCUT,COEFBP ,EM«,T INT, BMMl , START ,HORZN,
4- SCALEBM, MMS, SXCUT , Z2,Z9, Z16, STAT ,X LANE, NPICK ,PCONF , EFF ,FPERC,
+ PARM, TOIST ,LPICK,PPICK,?I ,PSTAR
DATA KSTART,KSTOP/4,0/
STATSV=STAT
NRUN=0
CALL GEEPER
10000 CONTINUE
-------
00931
00940
00950
00960
00970
C0980
, 00990
01000
01010
01020
01030
01040
01050
01060
01070
01080
01090
01100
0111"
01120
01130
01140
01150
01160
01170
01180
01190
01200
01210
01220
01230
01240
01250
01260
01270
01230
01290
01300
01310
01320
01330
01340
Table 5-1 MAIN PROGRAM LISTING (cont.)
.. NRUN=NRUN+1
rtRITE (6,190) NKJN
190 FGRMAK 1H1, 5( / ) , 25X ,*GENFRALI ZED ECONOMIC EFFECT I Vfc NESS* t
+ * PROGRAM*,////
1 40X,*R U .M NO .*I3/)
CC INPUT OF PROGRAM OPTIONS
NINS=1
100 READ (5,200) INdMNS)
200 FORMAT(AIO)
IF ( IN(NINS) .E0.10HTHAT S ALL) GO TO 250
NINS=NINS+1
GO TO 100
250 CONTINUE
NINS=NINS-1
IF(NINS.Fu.O) GO TO 6000
DO 350 I=1,NINS
MATCH( I)=l
no 300 J=I,NOPTS
IF( IN( I ).NE.OPTS(J) ) GO TO 300
MATCH( I )=J
GO TO 350
3CO CONTINUE
IF( I.EO.NINS) bO TO 350
WRITE (6,310) IN(I)
310 FORMAT<5X,5( 1H*) ,* A MATCH ^AS NOT FOUND FOR*,
+ * THE INPUT *,A10/1
?50 CONTINUE
MSTART=11
MSTOP=0
LSTART=7
LSTOP=0
OPTI=0
MISFIRE^NO
CC OATA INITIALIZATION FOR PROGRAM OPTIONS
DO 400 I=1,NINS
IGU=MATCH(I )
GO TO (400,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,
+ 20, 2 1, 22, 23, 24, 25, 26, 2 7, 28,^9, 30, 3 1,32,33, 34,35, 3t> , 37) , I GO
2 RTYPE=PMODEL
LIULE=1
SLAN£=10HGARAGE
GO TO 400
-------
Table 5-1 MAIN PROGRAM LISTING (cont.)
01350
JUYPE=S MODEL
en
en
01360
01370
01380
01390
01400
01410
01420
01430
01440
01450
01460
01470
01480
01490
01500
01510
01520
01530
01540
01550
01560
! 01570
; 01580
01590
01600
01610
01620
01630
01640
01650
01660
01670
01680
01690
01700
01710
01720
01730
01740
01750
01760
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
LIDLE=1
SLANE=10HSTATE
GO TO 400
RSTOP=YES
GO TO 400
KSTART=1
KSTOP=MAXO< KSTOP.l)
GO TO 400
KSTART = MINO
-------
Table 5-1 MAIN PROGRAM LISTING (cont.)
C71
: 01770
01780
01790
01800
! 01810
01820
01830
01840
01850
01860
01870
01880
01890
01900
01910
01920
, 01930
01940
01950
01960
01970
01980
01990
02000
02010
02020
02030
02040
02050
02060
i 02070
02080
02090
02100
: 02110
02120
02130
02140
02150
02160
02170
02180
19
2^
21
22
2?
24
25
26
?7
23
29
30
31
32
33
34
35
36
on in 40Q_
ODEBUG=YES
GO TU 400
SDEBUG=YES
GU in 400
RNAWE=1
GO TO 400
RNJAyC = 2
GO TO 400
PlNJ4MF = 3
GO TO 400
RNAME=4
GO TO 400
LIULE=2
GO TO 400
LIOLE=1
GO TO 400
LIOLC=3
GO TO 400
SLANE=10HSTATE
GO TO 400
SLANE=13HGARAGE
GO TO 400
LSTART=1
LSTOP=MAXO( ItLSTOP)
GO TO 8
LSTART=MINO<2tL START)
LSTOP=.MAXO(2,LSTOP)
GO TO 8
LSTART=MINO<3,LSTART)
LSTOP=MAXO(3,LSTOP)
GO TU 9
LSTART=MINO(LSTART,4)
ISTOP=MAXO( LSTOP,4)
GO TO 10
MISFIRE=YES
GO TO 400
RNAME=5
GO TO 400
LSTART=MINO(LSTART,5)
LSTOP = MAXO< LSTOP,5)
GOTO 400
-------
liable 5-1 MAIN.-PROGRAM LISTING (cont.)
02190
37 LSTART=MINO(LSTARTt6J
en
02200
02210
02220
02230
0224-0
02250
02260
02270
02280
02290
02300
02310
02320
02330
02340
02350
02360
02370
02380
02390
02400
02410
02420
; 02430
02440
02450
02460
02470
1 02480
: 02490
02500
02510
02520
02530
02540
I 02550
02560
02570
02530
| 02590
02600
LSTC)P = 6
GOTO 400
400 CONTINUE
IF(RTYPE.EQ,PMODEL) GO TO 450
IF( MSTOP.NE.J) GO TO 450
IF(MISFIRE.EU.NO) GO TO 450
MSTOP=4
LPSPP(4) = 1
450 CONTINUE
WRITE (6,500) < INI I),I=1,NINS)
500 FORMAT<5(/) ,20X,*INPUTS ARE:*//30
NN=2*RNAME-1
WRITE (6,1000) KTYPE,IM4ME(NN + 20),
+ (NAMEIK + 3) ,K=KSTART,KST(JP)
1000 FORMAT* 1H1, //,5X,*RUN TYPE — *,T
(21X.A10/) )
NAME(NN*-21),
50.A10,* MODEL*,/
+ 5X,*AREA CONSIDERED — *,T50,2A10/
+ 5X,*CAR POPULATION TYPE — *, 3 ( T49, A8/) )
WRITE (6,1100) ( M,NAME(M*-30),M=MSTART,MSTOP)
HOC FORMAT(/5X,*PARAMETERS CONSIDERED
IF(RTYPE.EO.SMODEL) I"/RITE (o,1150
+ LSTART.LSTOP)
1150 FORMAT(/,5X,*SIGNATUPE MODES CONS
+ 6(T49,I2,5X,A10/J )
IF(MISFIRE.EO.YES)
— *,10(T49,I2,5X,A10/) )
) ( L, NAME( L+40),L=
IDEREO — *,
+WRITE (6,1200) OPTSl LIDLE+24) ,SLANE
1200 FORMAT(/20X,*MISFIRE UNDER *A10,* CONDITIONS*/
+ 20X,A10,* INSPECTION STATIONS*/)
WRITE (6,1300) BDEBJG,MDE8UG,TOEBUG,CDEBUG,ADEBUG,
+ LDEBUG,POE8UG,DDEBUG,SDEBUG
1300 FORMAT ( // ,20X, *DE8UG OPTIONS FOR THE FOLLOWING*,
+ * SUBROUTINES:*//
+ 10X,*BLINE*,T50,A10/10X,*MICRO*,
+ 10X,*TEST*,T50, A10/10X ,*COSTS* ,T
+ 10Xt*AREA*,T50,AlO/10X,*LINPRO*,
-i- 10X,*PDECAY*,T50,A10/10X,*OATA*,
••- 10X,*STATS*,T50,A10/)
6000 CONTINUE
CALL REGION(RNAME)
STAT=STATSV
READ (5,NAM1)
STATSV=STAT
T50,A10/
50.A10/
T50,A10/
T50,A10/,
-------
Table 5-1 MAIN PROGRAM LISTING (cont.)
en
oo
02610
02620
02630
02640
02650
02660
02670
02680
02690
02700
02710
02720
02730
STAT=STAT*12
CALL INITIAL
CALL BLINE
KILL=0
CALL yiCRO(K
IF(KILL.EO. 1
CALL PRINT6(
CALL COSTS
CALL OUT
7000 IF(RSTUP.EQ.
GO TO 10000
999 FORMAT(lHl)
END
./TINT
ILL)
) GOTO 7000
CN,TPER,TMIL,NTR,CARPOP)
YES) STOP
-------
for later use in the model. INITIAL computes the inspection time
intervals for the test and base (mandatory and voluntary) cases and
estimates the vehicle population size over the time horizon using an
input linear regression. The Vehicle Population Model is called from
INITIAL to evaluate the dynamic character of the age percentage and
vehicle miles travelled distributions for the various subpopulations
being modeled. Average partial derivatives and deterioration coefficients
are computed along with certain average cost information. The parameter
and mode emission distributions are expanded and their means and standard
deviations computed. These means and sigmas are averaged and stored for
later printout. Figure 5-2 contains a flowchart of INITIAL and Table 5-2
a computejr listing
5.3 SUBROUTINE REGION - DEMOGRAPHIC DATA
Subroutine REGION contains the control logic for the regional data
initialization routines. It shifts control to one of the regional
data routines based on the value of RNAME.
RNAME SUBROUTINE CALLED REGION
1 REGION1 Los Angeles
2 REGION2 New York City
3 REGIONS Washington, D. C.
4 REGION4 Denver
5 REGIONS Detroit
Input to REGION consists solely of RNAME, the region flag. The
output from REGION travels through the common blocks found in the REGION
subroutines and the MAIN program from which REGION is called. Figure 5-3
presents a flowchart for subroutine REGION while Table 5-3 lists the code.
5-19
-------
c
SUBROUTINE INITIAL
SET BASELINE SIMULATION INTERVAL
= TEST INSPECTION INTERVAL
CONVERT TIME HORIZON TO YEARS
COMPUTE NUMBER OF INSPECTION
INTERVALS IN THE TIME HORIZON
COMPUTE FRACTION OF A TEST
INTERVAL LEFT OVER
INITIALIZE TIME I (3, NTR) TO 0
COMPUTE CAR POPULATION
OVER THE TIME HORIZON
CARPOP = KQ + K] X TIME
900
CALL PERMIL
(ATTRITION ROUTINE)
FILL PAR1 ARRAY BY
COMPUTING AVERAGE
OF PAR WEIGHTED BY
VEHICLE DISTRIBUTION
IN YEAR 1
1500
Figure 5-2 Subroutine INITIAL Flowchart
5-20
-------
1500
FILL COEFB AND COEFS ARRAYS
BY TRANSFORMING SPAR AND
PAR RESPECTIVELY USING THE
COEFBP MATRIX. (EMISSION
DECAY RATES)
1700
COMPUTE TIMEI MATRIX = THE
AVERAGE OF THE SUMS OF
PARAMETER INSPECTION TIMES
WEIGHTED BY CAR DISTRIBUTION.
EXPAND AT ABLE ARRAYS FROM 9
TO 33 POINTS. STORE IN TABLE
ARRAYS AND COMPUTE MEANS
AND SIGMAS. (PARAMETER
DISTRIBUTIONS)
EXPAND ASTABL ARRAYS FROM 9
TO 33 POINTS. STORE IN STABLE
ARRAYS AND COMPUTE MEANS
AND SIGMAS. (MODE EMISSION
DISTRIBUTIONS)
2000
AVERAGE MEANS AND SIGMAS FOR
PARAMETER DISTRIBUTIONS OVER
POWER TRAIN TYPE. STORE IN MU
AND SIG (M, K) ARRAYS.
3000
AVERAGE MEANS AND SIGMAS FOR
MODE EMISSION DISTRIBUTION OVER
POWER TRAIN TYPE. STORE IN SMS
AND SSIG(L, K) ARRAYS.
4000
Figure 5-2 Subroutine INITIAL Flowchart (cont.)
5-21
-------
INITIAL
DEBUG FLAG
ON?
PRINT OUT MEANS,
STANDARD DEVIATIONS,
AND CUTPOINTS
FOR PARAMETERS
NO
YES
PRINT OUT MEANS,
STANDARD DEVIATIONS,
AND CUTPOINTS FOR
MODE EMISSIONS
2100
I PRINT OUT PARTIALS,
DETERIORATION RATES,
MANUFACTURER'S SPECS,
MODE EMISSION CO-
EFFICIENTS, MEANS AND
SIGMAS
(RETURN)
Figure 5-2 Subroutine INITIAL Flowchart (cont.)
5-22
-------
Table 5-2 SUBROUTINE INITIAL LISTING
in
ro
co
L v iv';'.:;jv;;;*» 5*'
07770
07780
07790
07800
07810
07820
07830
07840
07850
07860
07870
07880
07890
07900
07910
07920
07930
07940
07950
07960
07970
07980
07990
08000
08010
08020
08030
08040
08050
08060
08070
08080
08090
08100
08110
08120
08130
08140
08150
1 08160
i 08170
VO ' •'„" f\^ <;;•' "
•**• • •' -i, " *N^.'V%
SUBROUTINE INITIAL
DIMENSICN SMS(6,3J ,SSIG
DIMENSION XBP(9) ,YBP(9)
DIMENSICN DUMX(33) , DUMY
COMMON /COM01/ AM8(3),
* BAREA(3), BLD1,
(6,3)
(33)
ALAB,
BLD2,
+ BHIST(3,16), BMMK10,!
+ ATABLEX(9,10,3) , ATABL EY (9, 10,
COMMON /COM02/ CARA,
+ CARSY, C8SUM,
+ CINCQN, CPCB, CP
+ CN(15,3,16),
+ CPART(10,15)
CC ADD2
COMMON /COM03/
+ EMW(3), EP(10,15)
+ FREOA, FREQB,
+ HORZN, HORZNY,
+ HPCd5,16),
+ HPS(6,15,16) ,
+ HPTOTSdb)
CC ADD3
COMMON /COM04/
+ KSTART, KSTOPt
+ LIDLE, LIMT(16I*
+ MBASE, MPH,
+ MU(10,3), MMSdO,
CC ADD4
COMMON /COM05/
•«- NINTR, C4INTRB,
+ NPTRN, NPTS,
+ OCIY, OCMY,
CC ADDS
COMMON /COM06/PARM(3,3
+ PC(15), PCS(15),
+ PP( 10,15), PS<6, 15),
+ PARdO, 15,3) ,
+ PM(10,15),
+ PSA(15), PTA(5),
+ ,PAYFIN
COMMON /COM07/
AW, BINT
BSIGC3) ,
5,3),
3) .ASTABLX
CARIY,
BXTRA,
(9,6,3),
CARMY,
CCOEF(10"),CCOSTI, CCOSTM,
I, CPVPY, CSUM,
COEFBd5,3), COEF8P(
DELPCV,
,EFF(10) ,
FPERCdO,
DPdO.15)
OELITO),
3) ,
HPCS( 15,16) ,
HPT(5,16) ,
ITE,
LOPT, LPI
LPSPP( 10)
MSPEC(IO)
15),
NAM£<50),
NMODE,
NSTEPS,
OPTI,
), PART,
PHH14) ,
PT(5),
PARK10.3
PPICKdO)
PCONF,
REINSP,
,DELEM(3
BSIZE,
ASTABLY(9,6,3)
CARPOP(16) ,
CGTT,
CARAY,
10,15),
,16) ,DELI(3),
HPPdO, 15,16),
HPTOT116) ,
ITL, ITP,
CK(10),LLPICK,
,LSTART,
,MSTART,
MVPR( 10
NCNTR,
NO,
NTR,
OPTM,OPTS
PAYNEW
PLO( 14) ,
PTOT,
LSTOP,
MSTOP,
,15)
NEMIS,
NOPTS,
NTRB,
(50) ,OVC
ITIME(16),
NEMP,
NPAR,
NPICKd6),
HI(3),OVCHM(3)
, PAYOFFO),
PLTMAX(3),PMODEL,
PTS(5), PAYADJ,
,3), PLUSdO
,PPPICK,PSTAR, PI (1
PARINT(10,10,9)
RNAME,
RSIZE,
,15) ,
5,10) ,
RSTOP, "'••.
-------
Table 5-2 SUBROUTINE INITIAL LISTING (cont.)
01
i
ro
08180
08190
08200
08210
08220
08230
08240
08250
C8260
08270
08280
08290
08300
08310
08320
03330
; 08340
i 08350
| 08360
08370
08380
08390
j 08400
08410
08420
08430
08440
08450
08460
08470
08400
08490
08500
08510
08520
08530
08540
08550
08560
08570
! 08580
•• 08590
+ RTYPF.
+ SALE, SALL,
+ SMuOEL, START(15
+ SCALEB.M(3),
+ SXCUT(6,3),
+ SIGME(IO),
+ SIGRATE, SIST,
+ STABLEX(33,6 ,15) ,
COMMON /CUM10/
+ TINT, TQBF(3),
+ TXTRA, TSIZE,
+ THIST(5,3,1&),
+ TIMEMJ 10,16) ,
CC ADD10
COMMON /COM11/
+ XlBP(3,3,o), XI NT,
+ XTM(16), XBASE(9,
CC ADD11
COMMON /CCM12/
+ YES, YSUM,
+ Zl, Z2,
+ Z7, za.
+ Z13, Z14,
+ ZCARI, ZCARM,
* ZZ(3,3)
CC ADD12
COMMON /DEBUG/
+• LUEBUG, MOEBUG,
CC ADOD
REAL ITE,
+ MMS, MPH,
+ NAME, NO,
+ IN, MISFIRE
INTEGER RNAME,
+ TOIST, XLANE,
CC
CC ANY DATA APPEARING IN
SALP, SITF I ,
,3) , bTAT, STIMt.C
SM(6,15) ,
SIG( 10,3) ,
SIGMNE(IO),
SIGS(6,15) ,
STA3LEY( 3j> ,b, 15)
TAREA(3), TDISTdO,
TJNX, TOTE( 3) ,
TSIG(3), TPER<16,
THISTT(3,16) ,
TABLEX( 33, 10, 15) ,
WF( 10) ,
XINTB, XLANE,
3) , YbASb( 9,3)
YliiP(3,3,10) ,
YTM(IO), Y1DBPI
Z 3 , Z 4 ,
Z9, Z10,
Z15, Z16,
ZIC, ZSUM,
ADEBUG, / BDEBUG,
PDEBUG, QDEBUG,
ITL, ITP,
MSPEC, MU,
LDEBUG, MDEBUG,
SITEI, SITEM,
SITEM,
3), SUMb
SPAR( 10
SIGCE
SIGP( 10
SIGSDE
3) ,T1DLE
TPOB( 3)
15), TH
TIMECd
TABLEY
XSUM
Y2BP( 3,
4,4, 10),
Z5,
Zll,
Z17,
CDEBUG,
S DEBUG,
I TIME,
MVPR,
STAT,
SLANE,
M(3) ,
. 15,6) ,
(3) ,
,15) ,
(3),
,TIME1 (3 , 16) ,
, TPDT(3),
IL(16,15),
0,15),
(33, 10, 15)
, XC UT(10,3),
3,10),
Y2DBP(4,4,10) ,
Z6,
Z12,
DDEBUG,
TDEBUG
OPTI, PPICK, PPPICK
THIS SUBROUTINE IS FOR
CC kE-INTIALIZATION PURPOSES FOR MULTIPLE RUNS
BINT=TINT
HORZNY = HGPvZN/12
XINT=HORZN/TlNT-*-l.E-10
INT=XINT
-------
en
ro
ui
jsrar*" ^$sn& ^'/r1 Tab! e 5-2
*;' ft**.--"/1 :», •,.
firifoV* >v
08610
08620
08630
08640
08650
08660
08670
08680
08690
08700
08710
08720
08730
08740
08750
08760
08770
08780
08790
08800
08810
08820
08830
08840
08850
08860
08870
08880
1 08890
« 08900
08910
08920
08930
08940
'• 08950
08960
08970
08980
08990
09OOO
09010
SUBROUTINE INITIAL LISTING (cont.)
'• ""' NINTR = XINT+.99
NTR=NINTR-H
MID=NTR
TXTRA=XINT-INT
XINTB=HORZN/BINT+1.E-10
INTB=XINTB
NINTRB=XINTB+.99
NTRB=NINTRB+1
BXTRA=XINTB-INTB
SIGRATE=1.
CARAV=CARPOP( 1)
TIMEI(1,1) = TIMEH2,1) = TIMEI(3,1) = 0,
DO 900 N=2,NTR
TIMEl
-------
Table 5-2 SUBROUTINE INITIAL LISTING (cont.)
Ol
I
ro
09020
Q9C30
0^040
09050
09060
09070
09080
09090
09100
09110
09120
09130
1600
1650
1700
1750
SUM=SUM+PAR(M, J, I ) *COEF 3P ( M . J )
COEFd( J, I )=SUM+PARM(K, I J
CONTINUE
CONTINUE
00 2000 JJ=lfNPTRN
DO 2000 K=KSTART .KSTOP
J-J J+5*(K-1 )
DO 1900 M=MSTART,MSTOP
DO 1750 N=l,15
TIME I (OPTI,N) = TIMEI ( CPT I
IFtM.E J.5.0R.M.E0.6) GO
IF
-------
en
i
ro
i • :'>"' :;•',/. ,
09440 "''"' '
09450
09460
09470
09480
09490
09500
09510
09520
09530
09540
09550
09560
09570
09580
09590
09600
09610
09620
09630
09640
09650
09660
09670
09680
09690
09700
09710
09720
09730
09740
09750
09760
09770
09780
09790
09800
09810
09820
09830
09840
09850
i Table 5-2 SUBROUTINE INITIAL LISTING (cont.)
I STABL£X(L,LL,J) = DUMX(U
STABLEY(L,LL,J)=DUMY(L)
1960 CONTINUE
L=LL
1975 CONTINUE
2000 CONTINUE
DO 3000 M=MSTART,MSTOP
DO 3000 K=KSTART,KSTOP
TT=0.
00 2500 JJ=1,NPTRN
J=JJ+5*(K-1)
MUIM,K)=MU(M,K)+PM(M, J)#TPER(N,J )
SIG
-------
ro
CD
C9R6Q
09370
39fi80
0^.90
09900
09910
09920
09930
0"940
_09950_
09960
09970
09980
C~9 QQ 0
10000
10010_
"10020
10030
Table 5-2 SUBROUTINE INITIAL LISTING (cont.)
. -JllLLI E (6,2020) _N A^e_(_M_+_3 3_)_, X CjJ I < MTKl TMU(M,K) TSI G(M.K)
2020 FORMAT( IX,A 10,3X,3X,2X,3c 10.2, 15X.3E13.4/)
2025 CONTINUF
IF(RTYPE.EQ.PMGUEL)
WRITfc (6,2030)
TO 2100
2_03p FORMAT
MODE *//J_
__
J=+5*(K-l)
UO 2050 L=LSTART,LSTOP
WRITE (6,2040) NAME(L+40)
2040 FORMAT(1X,A10,3X,3X,2X,3E10
2050 CONTINUE _ _
"21C-5" CONTI NUE
WRITE <6,999)
CALL PRINTK
,SXCUT(L,K),SMS(L,K),SSIG(L.K)
+ PAR.50HPAR
•«-,PAR, 50HPAR
PARTIALS
PARTIALS -
DE/OP
10C50
10060
_10_07Q_
10080
10090
1P_1QO_
ib lib
10123
10130
10140"
10150
10_160_
10170
10180
IQ190_
10200
10210
10220
'1G23Q"
10240
10P50
Y3™2oG
IF(RTYHE.LQ.SMODEL) *RITE (6,9^9)
IF (KTYPE.EQ.SMOOEL) CALL PRI\1T4(
SPAR.50HSPAR - _SI.GNATJRF PA^TMLS
, SPAR,50H .......
CALL PRINT21
+ COEFB,50HtMISSION DETER I 0* AT UN RATES
+ .CGEFB.50H _ ____
~+ ,COEFB,50H
+ COF.FBP,50HCOEFBP — PARAMETER DECAY COEFFICIENTS
+ ,MMS,50HMMS - MANUFACTURtR SPECI F ICAT IUIMS
t ) _____ _____ _ _____ . __________ _______
IF (PTYPE.EO.SMODEL) CALL PRINT5(
+ SM,50HSM — INITIAL SIGNATURE MEAN VALUES
+ . SIGS,50HSIGS _ --_ INIT I_AL_ IL^ilAT^i- SI GM AS _ _
" . - . - - - -
999 FORMAT(1H1)
_ j?j:T_yf_N_
END
-------
c
SUBROUTINE REGION
BRANCH TO THE
APPROPRIATE
REGION ROUTINE
en
i
ro
vo
CALL REGION 1
(LOS ANGELES)
CALL REGION 2
(NEW YORK)
CALL REGION 3
(WASHINGTON D.C.)
CALL REGION 4
(DENVER)
CALL REGION 5
(DETROIT)
Figure 5-3 Subroutine REGION Flowchart
-------
Table 5-3 SUBROUTINE REGION LISTING
01
I
10270
10P80
10290
10300
10310
10320
10330
10340
10350
10360
10370
10380
10390
10400
10
20
30
40
50
SU^P-fiUTINF REGION! KNAME )
INTtCEK RNAME
GOTH ( 10,20 , 30, 40,50) t RNAM_E
CALL RFGION1
RETURN
CALL REGION2
RETURN
CALL REGION3
RETURN
CALL REGION*
RETURN
CALL REGIONS
RETURN
END
-------
5.3.1 Subroutine REGION!
Subroutine REGION! contains the data for the Los Angeles Basin.
The data is stored in internal arrays and matrices and is moved into the
main storage during the initialization phase.
There is no input to REGION!. It is called from REGION only when the
LA data card has been included in the keyword input. Figure 5-4 shows the
flowchart for this subroutine and Table 5-4 a listing. The data require-
ments for the other modeled regions is similar to that of REGION1.
5.3.2 Subroutine REGION2
(See 5.3.1)
5.3.3 Subroutine REGIONS
(See 5.3.1)
5.3.4 Subroutine REGION4
(See 5.3.1)
5.3.5 Subroutine REGIONS
(See 5.3.1)
5.4 SUBROUTINE BLINE
Subroutine BLINE contains the algorithms for simulating the impact
of a voluntary maintenance program. The emission deterioration data,
voluntary maintenance data and starting emission levels are all identical
to those used in the mandatory model, and enter BLINE through the common
blocks. Other than the common blocks there is no input to BLINE. Out-
put consists of the baseline emission time history stored in BHIST and
5-31
-------
SUBROUTINE REGION
MOVE THE FOLLOWING REGIONAL
DATA INTO THE APPROPRIATE ARRAYS:
PARAMETER OUTPOINTS
PARAMETER USAGE FLAGS
PARAMETER DISTRIBUTIONS
MODE EMISSION CUTPOINTS
MODE EMISSION DISTRIBUTIONS
ANNUAL VMT
VEHICLE AGE DISTRIBUTION
10
INITIALIZE THE FOLLOWING REGIONAL
PARAMETERS (AND SMALL ARRAYS)
REGION SIZE
CAR POPULATION
AVERAGE SPEED
SIT EM
EMISSION WEIGHTING FACTORS
MINIMUM REDUCTION
^RETURN J
Figure 5-4 Subroutine REGION1 Flowchart
5-32
-------
Table 5-4 SUBROUTINE REGION! LISTING
CO
CO
10410
10420
10430
10440
10450
10460
10470
10430
10490
10500
10510
10520
10530
10540
10550
10560
10570
10580
10590
10600
10610
L0620
10630
10640
"10650
10660
10670
10680
10690
SUBROUTINE REGION1
DIMENSION XCUTH10,3),SXCUTK6,3),ATABX(9,10,3),ATABY(9,10,3)
DIMENSION ASTABX(9,6,3),ASTABY(9,6,3)
DIMENSION TDST(10,3)
INTEGER TDST
CC___ DISTRIBUTION £UTPqj_NTS
')ATA XCUTI/1.0,- 50., 2.,0. ,0.,0.,-1.0,30.,-0.05,0. ,
* 1.0,-5.,1.0,0.,0.,0.,-1.0,25.,-0.05,0.,
+ 1.0,-500., 2.,0.,0.,0.,-1.0,10.,-0.05,0./
DATA SXCUTI/3000.,6.,400D.,450. ,3.5,4000.,250,,4.0, 5000.,250.,1.5,
+ 5000.,2000.,3.0,4000.,230. ,1.0,4000.7
DATA (ATA6X (_I_) ,_I_=_1_»JLBjDT/
+ -7.,-3T75~,-~2~".25"~,-1.2"5", 0. 25', 1. 25 , 2. 2 5~, 5.2 3 , 8 .",
+ -200.,-90.,-70.,-30.,10. ,70.,110.,130.,330.,
+ -10.,-3.75,-2.75,0.25,2.25,4.25,6.25,7.25,10.,
* 27*0.,
+ -4.0,-2.75, -1.25,-0.75,0.25,0.75,1.25,2.25,5.,
±. ~ 70. ,-55. ,-25. , 5_. , _25_._, 50._,_75.^1^0 ._, 1 80_._,
"-«- -0.22,-0.1,-'o.of,-0.01 ,0.01,0.03,0.07 ,0. 12,0.26,
+ 9*0.,
+ -8.,-t.75,-3.25,-1.25,.25,.75,2.25,4.75,3.,
-250.,-190.,-130.,-50. , 10.,30.,50. , 110.,340.,
-10,,-7.75,-4.75,-3.0,-1.75,0.25,2.25,4.25,10.,
.
10710"
10720
10730
+-2. 7 5, -1.75, -1.25, -0.75, 0.25, 0.75, 1.25, 2. 2 5, 4.0,
+ - 70. ,-55. ,-25. ,5. ,25. ,90. ,115. , 135. , 170.,
-*• -0.14,-0 . 1 1 , - 0 . 07 , - Q . 0 5 , - 0 .01 ,0.0 1_'_P_-.P ? , 0 ._0_5 ,0.2 1 ,
+ 9*0. /
DATA (ATA3X ( I ) , 1= 1 81 , 27 0 ) /
_+_ -8 ._,ji4_.5 , - 2 . , - L . 2 Sjr^? _5 , . ,75 _*l_._T5, 5_.__2_ 5_,_ 7^5, _____
__ __ _
+ -350. ,-190.7-140. ,-70. ,- 50 . , 30 . , 70 . , 1 50 . ,440.,
+ -10., -5.75, -1.75, 0.25, 2. 23, 4. 25, 5. 25, 8. 25, 10.,
+ 27*0.,
10740
10750
10760
10770
10780
10790
+ -2.75,-2.25,-1.25,-0.75,0.25,0.75,1.25,3.,3.5,
+ -30.,-10.,5.,20.,35.,45.,105.,130.,170.,
-*- -Q . 2 l_,j-_0 «_1 , -0 . P7_f_-0 . 03_, - p_._0.1.,_0 -.01, 0 -_03, 0 . U_P ?_2. _8J
"+ 9*b".'/
DATA IATA3Y ( I) ,1 = 1,130) /
+ .0203, .0405, .0541, .0743, .0873,0.0743, . 0405 ,. 0_270 ,. 00t>7 ,_
10800
10810
+ 0". 006, 0/026, 0.04, 0.06,0. 141,0. 107,0,081,0.045, 0.007,
+ 0. 02,0.034, 0.0t»,0.228, 0. 087,0. 08,0.02,0.013,0.00 7,
-------
in
i
10_3.20...
10840
10850
10860
10870
108RO
10890
10900
109K)
Table 5-4 SUBROUTINE REGION! LISTING (cont.)
+ O.C37~9\J.^37^,~bTl J2TO. 15 ,0'.~29~1 ,6Yl33, 0.071 , 0.01to,0.00H
+ .0075,.0149,.0299,.Z*bbi.0896,.05^7,.0373,.0299,.0075,
+ 0.0175 , 0.035, O.C88, 0. 2 98 , 0_. 175_,_0_.J 0^,JL..O_7_,_0_._01.8_,_0
9*0. ,
10930
10940
10950"
10960
10970
10980
10990
J LQPJL
Tioio
11020
1103JL
"11040
11050
11060
11070
11080
1 1_0_90_
11100
11110
1 1J20_
11130
11140
_1_1 1_50_
H~160
11170
11180
^"•u. »
.0067,.0133,.0267,.0733,.0933,.1200,.0667,.033?,.0067,
*_ 0.0133,0.02 6_7,0.066,0. 133_, 0. 126,0. 093 ,0. 086 , 0. 04 ,0_.007_,
+ 0.013,0.027,0.036, 0 .04 7~, 0 . C5 3 ,0.2^7,0.06,0. 04t> ,0.007,
+ 27*0.,
+ 0.014,0.043,0.06 5 ,_0_. 15 8, ._3 450, .137,0.036,0.021, 0.007,
6 .0074, .0148, .029V, ,36~30, .0963, .0370,. 0222, .0148, .0074,
•«• 0. 00 S,0.02 5,0.05, 0.108,0.358,0.1 92,0.075,0.033,0.017,
DATA (ATABY (I),I=181,2T0)/
+ .0067,.0134,.0336,. 1007, .1409,.1208,.0872,.0268,.0067,
t ° « QO_?_iP .02,0 . 04 , 0_.J ° 3, 0 . J. 5 3, O.JJ ,_0 . Oo7,0.033,0. JOo,
+ 0.01 3 5,"0.02 7, ~6~. 108,0.37"8,"6.101 ,0.067,0.02,0.0135,0.013,
. ^ -t +, r.
27*0.,
0.015,0.022,0
-_z. ^.^.- - - -_^_^ t_P_il J 5j_0_._529,0.096.0 .044,0.008,0.007,
* . 0155", .02 33, .5659", .069"8, .0465, .0310, . 0155, .0078, .0077,
+ 0.008,0.016,0.032,0.142,0.44^, 0. 20o,0.047, 0. 008, 0. 007,
' 9*0./
DATA (ASTABX (i) ,1 = 1,162)/
*50.,150.,350.,450.,550.,750.,850.,1650.,1800.,
* _1_. ,2.25,2.75,3. 7 5 , 5 . 2 5 ,6 .J 5, 7 ._75_,J_._2 5_, 10_^25_,
"*10. ,70. ,90. , 110. ,130. ,~lT6. ,Y9~D. ,270. ,400. ,
*50.,125.,175.,225.,275.,325.,375.,875.,1000.,
* .5..75.1.25,1.7 5, 2. 75,3. 75,4.25.8.25, 9.25,
"*90. ,700., 1100. ,1500. ,1900. ,2100. ,23 DO.\2800. ,3000.,
*50.,73. ,125.,175.,275.,325.,375.,675.,775.,
* .5.1.25,2,25,2.75,3.25,4.75,5.75,7.25,10..
*10. ,30.,50. ,70.,90.,110.,130.,150.,290.,
*10. .75.,125.,175.,225.,275.,325.,425.,775.,
* .5,.75.1.25.1.75,2.25.3.25,3.75,4.25,6.75,
* 40C.,700.,1500.,2100.,2500.,2700.,2900.,3500.,4000.,
*10.,50. ,90.,110.,130.,170.,210.,330.,390.,
* .5,1.5,3.5,5.5,6.5,8.5.9.5,10.5,12.
11200
11210
• -^T*»^T-^»-'T-^»-'»**W-'»*-'»-'T ' »-^T .fc V • ^ T ^ *- • __T
~* 10 . ,50 . ,70. , 90. , 1507,19bYY2 l"0 . , 29"o"7, 390. ,
*10. ,30. ,50. ,70.,90.,110.,130.,190.,300.,
* .1.0.3,0.5..7,.9,1.3.2.1,2.3,3.0,
11220
11230
* 60C. ,1300. , 1700., 2 lOO". ,270C. ,2900. ,3100. ,3300. ,36OO./
DATA ASTA8Y /
-------
OJ
Ul
1 1 240
11250
11260
11270
11280
11290
11300
11310
11320
11330
11340
11350
11360
11370
11380
11390
11400
11410
11420
11430
11440
11450
11460
11470
11480
1 1490
11500
11510
11520
; 11530
11540
11550
11560
1 1 570
11580
11590
11600
11610
11620
1 1 63 0
Tl64"0"
11650
Table 5-4 SUBROUTINE REGION1 LISTING (cont.)
* .0140, .0280, .1189, .1399, .1119, .0769, .0490, .0280, .0810,
* .0208, ,0?t 7, .0486, .0556, .0625, .C 83 3, .0625, .0486, .0347,
* .0069, .208 3,. 29 86, . 1597, .0625, .04 8 6,. 0347, .0139, .0409,
* .0000,. 04 17,. 0903, . 1 306, . 2083 , . 1 73 6 , . 1042, .0139, .04,
* .027d,.07t>4,.0833, .1319,. 1111, .0903, . 0486, . 0108, .0469,
* .0417,.0t>25,.0764, .1181, .0972, .076 4,. 062 5, .0486, .J100,
* .0000,. 02 70,. 0946, .1959, .1622, .094 6,. 060 8, .0275, .1000,
* .0336, .0671, .0805, .1275, .Ob 04, .0470,. 0403, .0268, .0200,
* .0000, .006 7,. 0940, . 1544, . 1940, .1678,. 1409, .3805, .0400,
* .OODO, .0473, .2297, .3514, .2365, .07^-3, .0135, .0068, .0167,
* .3557, .1879,, 1800, . 1745, . 0470, . 0268 ,. 0267, .0070, .0160,
* .0134,. 0268,. 0537,. 073 8, .0805 ,. 1 14 1 ,. 1275, .0604, .1203,
* .0000, .0144,. 02 88,. 064 7, . 1079, .1151, ,071 9, .0504, .1088,
* .2300, .2370,. 12 20,. 0650, .0530, .0250,. 0080, .0075, .0070,
* .0000,. 01 44,. 0935,. 1799, .1511, .071 9,. 0432, .0216, .0272,
* . 0000,. 0072,. 03 60,. 1151, . 1511, . 16^5,. 1223, .0791, .0144,
* .1799, .2158, .1439, . 1079, . 0863, .03oO ,. 0216, .0 144, .0302,
* .02 16,. 043 2,. 0576,. 0863, . 1 e>55, .1079, . 0863, .0504, .03607
DATA TOST/ 1,1,1, 1,0,0, 1,1, 1,1, 1,1, 1,1, 0,1, 1,1, 1,1,1, 0,1, 1,1, 0,1,"
+ 1 ,1,07
COMMON /BADDOR7 X ( 1 5 ) , A MMU AL ( 15 )
L> I MEN SIGN XI (15) , ANN'JAl (15)-,START1(15,3)
DATA Xl/10. 8, 10. 5, 10. 2, 9. 8, 9. 3, 3. 8, 8.1, 7. 2, 6, 2, 5.1,
+ 4. 1,3.0,2. 0,0.9,4.07
DATA AMNUA1/15000., 13000. , 110QO.,9bOO. ,8400 ., 7000 ., 5300.,
+ 50 00. ,<*400. ,4200. ,4000., 3800. , 3700 . , 3 550 . , 3000 .7
DATA START 17 5* 11.94, 5*7. 26, 5* '+.43, 5*129.8,5*86.6,5*63.4,
COMMON 7COM017 AM3(3),ALA8, AVV, BINT,
* BAREA(3), BLD1, BL02, 3SIG(3), BXTRA, BSIZE,
+ BrilST(3,16j, EiMMH 10,15, 3) ,
+ ATAt>LEX(9,10,3) ,ATArfLEY{9, 10,3) , AST A6LX < 9 ,6 ,3 ) , AST AbLY{ 9 ,6 , 3 )
COMMON 7COM027 CARA, CARIY, CARMY, CARPOP(16),
+ CARSY, CBSUM, CCQEF ( 1 0 ) , CCOS TI , CCUSTM, CGTT,
+ CINCON, CPC3, CPI, CPVPY, CSUM, CARAY,
+ CM 15,3, lo), CUEFbU5,3), COEFBPt 10, 1 5 ) ,
+ CP ART ii 0,15)
CC AD02
COWiQM 7COM037 OtLPCV, 0 P ( 1 0, 15) , DEL E-A ( 3 , 16) , DEL I { 3 ) ,
+ E,'iW(3>, EP110,15) ,EFF{10) , l)tLlT(3),
"+~~ F""R"EOA", "F REG'S, FPE*RC( "10,3)", "" "~ " "'
+ HORZN, HORZNY,
-------
Table 5-4 SUBROUTINE REGION! LISTING (cont.)
en
i
"l
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
I6o3
1673
1630
lt>90
1 700
1710
1720
1 730
1 740
1750
1763
1770
1780
1790
1800
1310
1820
1830
1840
1850
1860
1870
1880
1890
1900
1910
1920
1930
1950
1960
1970
1980
2003
2010
2020
2033
2040
2050
12060
* H ° C d 5 , 1 6 }_,
* HPS( j,15,16) »
+ HPTOTSt 16)
CC AIJ03
COMMON /COM04/
+ KSTART, KSTCP,
+ LIJLF, LI NT (16),
+ MBASE, MPH,
+ hO( 10,3} , MMS( 1C,
CC ADJ4
COMMuN /COM05/
+ NINTR, NINTRB,
_ ___^ ___ uc MY f~
CC ADDS
COMMON /C'H36/PA~ M (3, 3
+ VC(~15),~" PCS(l'j),
+ PP( 10,15) ,PS(o,15) ,
+ PM( 10,15) ,
+ PSA(15) , PTA( 5) ,
+ ,PAYF1N
COMNCN /COM07/
+ RTYPE,
+ SALE, SALL,
+ SMODEL, STAP,T<15,
+ SCALEiiM(3),
+ SIGME(IO),
+ SIGRATE, SIST,
* STABLEXt 33,6,15) ,
CuMMON /COM10/
+ TINT, T0bt(3),
+ TXTRA, TSIZE,
+ THIST(5,3,16),
•J- TIMEM( 10,15) ,
CC AJJ1C
COMMON /CO Ml I/
+ X16P(3,3,6), XINT,
CC AOU11
MPCS(
HPT(5
ITE,
LOPT,
LPSPP
MSPEC
15) ,
La_»J,
,16)
LPI
(10)
(
1
NJAMF( 50
!|STEPS_,
), PA'?T
PHK 14)
PT(5) ,
PARK 10
0)
J ,
i
,
,3
PCOi\F,
RE"fNSP,"~
SALP,
3) , ST
SM(6,
AT
15
S IGMNL
SIGS(
STA6L
(
6
c
T AREA (3
TOfMX,
rsi&<3
THIiTT(
TA6LEX(
XI
) , YriAS
) ,
^T
E(
,
) ,
10
,1
Y(
),
) ,
3,
33
B,
6_U
f
ITL,
CK( 10J.LLP
.LSTART,
,,-ISTART,
MVPX{ 10
NCNTR,
"fpTM.OPTS
PAYNE/J
PLOY l"4) , "
PTOT,
,3) ,
HPPdO,
HPTOTd
ITP,
ICK,
LSTOP ,
, 15)
NEMIS ,
, PAYO
>LTMAX(
PTS (5),
PLUS( 10
,PPPICK,PSTAR,PI (1
PARINT(10,10,9)
~~RN"AM"E", " RSI'ZE", "
SITEI, SITEM,
iTIME(
),
5) ,
33,6, 15)
TDISTdO,
TOTE13) ,
TPERU6,
16),
,10,15),
XLANE,
3), SUMb
SPAR( 10
S IGCE
SIGP( 10
SIGSDE
5) ,T IDLE
TPDB( 3)
15), TM
TIMECd
TABLEY
XSOM
I
o
F
3
t
5
M
,
<
t
(
5jl
),
I
_Li
TIMt(16),
NEMP,
NPAR,
HP ICK ( 16) ,
"i (3) ,OVCHM("3
F( J ) ,
7, P MODEL,
PAYADJ,
15) ,
,10
_.__
S
(3)
15,
3) ,
15)
3),
,TIM
, T
IL( 1
0
(
,
,15
33,
XC
),
"STOP",
LANE ,
,
6) ,
»
EK3, 16),
POT( 3) ,
6,15),
10,15)
UT( 10,3) ,
-------
oo
!
t J
i
12070
12080
12090
12100
12110
12120
12140
12150
12160
; 12170
12180
12190
12200
12210
12220
! 12230
12240
12250
12260
12270
12280
i 12290
; 12300
; 12310
12320
12330
12340
12350
12360
12370
12380
12390
12400
12410
12420
12430
12440
12450
12460
12470
12480
Table 5-4 SUBROUTINE REGION1 LISTING (cont.)
COMMON /CQM12/ Y1BP( 3,3,10) , Y2B P( 3, 3 ,10 ) ,
+ YES, YSUiM,
+ Zl, Z2,
+ Z7, za,
+ Z13, Z14,
* ZCARI, ZCARM,
+ ZZ(3,3)
CC AOD12
COMMON /DP BUG/
+ LDLBUG, MDE8UG,
CC ADDO
REAL ITE,
+ NAME, NO,
+ IN, MISFIRE
INTEGER RNA'-1E,
+ TDIST, XLANE,
CC DATA INITIALIZATION FOR
DO 1 M=!,10
XCUT(M,K)=XCUTKM, K)
DO 1 L = l,9
ATABLEX(L,M ,K)=ATA8X(L,
1 ATABLEY(L,M,K)=ATABY(L,
DO 2 M=l,o
DO 2 K=l,3
DO 2 L=l,9
ASTA8LX(L,M,K)=ASTABX(
2 ASTA6LY( L, M,K)=ASTA3Y(
DC 3 1=1,15
X( I ) = X1(I)
ANNUAL I I ) = ANNUA1 ( I )
DO 3 J=l,3
STARK 1 , J) = START1( I ,J)
3 CONTINUE
CC L. A. BASIN
RSIZE=1250.
MPH=30.
CARPOP( 1)=4.E6
-SITEM=1000
YTM(lj), YlDBP(4,4,10),Y?DbP(4,4,10),
Z3, Z4, Z5, Z6,
Z15, Z16, Z17,
ZIC, ZSUM,
ADEBUG, ^DEBUG, CDEBUG, DDEBUG,
PDEBUG, JDL^UG, SDEBUG, T DEBUG
ITL, ITP, ITIME,
MS PEC, MU, MVPR,
LDEBUG, MDEBUG,
5 ITE I, SITE'S STAT,
UPTI, PPICK, PPPICK
LOS ANGELES
M,K)
M,K)
L,M,K)
L,M,K)
-------
Table 5-4 SUBROUTINE REGION1 LISTING (contJ
*' l*24*0'fc/ ' '
12500
12510
12520
12530^
12540
12550
12560
•' "r" '" * /"'•Jl'^ **
EMW(2)=.l
EMW(3)=.3
AMB(1>=0.01
RETURN
END
CO
00
-------
the total integrated yearly emission located in BAREA and TOBE .
All emission rates are stored in A, B and C matrices as differences
from the starting values, START. Therefore, the A matrix is initialized
to zero, representing the emission delta at the start of the first
simulation time period. Emission rates are weighted by the vehicle
population percentages generated in the attrition routines to obtain the
total emission rates by species.
The major equations of BLINE are:
(1) B = A + ^| x 4| x At M is mileage, t is time.
Where: Emission rate at the end of the simulation period (B) equals
that at the beginning (A) plus the deterioration rates times At.
(2) C = B - APD x || x At
D dU
Where: The post maintenance emission rate (C) equals B minus the
effects of voluntary maintenance AE. AE is computed by summarizing the
change in the parameter setting (APn) due to voluntary maintenance times
the appropriate influence coefficient. Figure 5-5 presents the flowchart
for subroutine BLINE and Table 5-5 the listing.
5.5 SUBROUTINE MICRO
Subroutine MICRO contains the logic for the inspection/maintenance
model. MICRO contains the calling sequence to the supporting subroutines
and generates a set of time histories and integrated averages for each
emission species. MICRO sets up in the CN array the starting emission
values and initializes the THIST and the THISTT arrays in which the
emission time histories are eventually stored. The A matrix is initialized
5-39
-------
c
SUBROUTINE BLINE
INITIALIZE A ARRAY TO ZERO
MOVE START INTO BHIST (I, 1)
AVERAGED BYTPER
YES
PRINTOUT HEADER
SET UPTIME
LOOP (N =2)
SET UP EMISSION
LOOP (1 = 1)
NO
7
SET UP POWER
TRAIN (J = l)
AND CONTROL
TYPE(K = 1) LOOPS
©
-------
©
DECAY EMISSION
RATES
B = A + COEFB*TMIL*BINT
COMPUTE VOLUNTARY
MAINTENANCE DIFFERENCE
DELB = T~ FPERC X PAR X BINT
SUBTRACT VOLUNTARY MAINTENANCE
C = B-DELB
COMPUTE AVERAGE EMISSION RATES
WEIGHTED BY VEHICLE DISTRIBUTION
20
30
LAST POWER
TRAIN-CONTROL
TYPE
NO
MOVE AVERAGE EMISSION
RATE INTO BHIST
40
LAST EMISSION
TYPE
NO
Figure 5-5 Subroutine BLINE Flowchart (cont.)
5-41
-------
/
PRINT OUT EMISSION RATES
A, B, AND C
43
MOVE ENDING EMISSION
RATES FOR THIS PERIOD
INTO STARTING RATES FOR
NEXT PERIOD (C -A)
CALL FIT TO CURVE
FIT EMISSION RATES
INTEGRATE THE RESULTING
POLYNOMIAL TO GET TOTAL
EMISSIONS IN GRAMS PER
VEHICLE AND TONS PER YEAR
C
RETURN
J
Figure 5-5 Subroutine BLINE Flowchart (cont.)
5-42
-------
Table 5-5 SUBROUTINE BLINE LISTING
en
i
CO
17C80
17C9C
171CC
17110
1712C
17130
17140
17150
17160
17170
17180
17190
172CO
17210
17220
17230
17240
17250
17260
1727C
17280
17290
17300
17310
17320
1733C
17340
17350
17360
1737C
17380
17390
17400
17410
17420
17430
1744C
17450
1746C
17470
1748C
SiePCLTIlvE ELINE
CIPEISSICN A(15,3),E (15,3) ,C( 15,3
CCPPCN /CCKC1/ Af-E (3) ,ALAB,
4
4
4
4
4
4
CC ACC2
4
4
4
4
CC ACC3
4
4
4
CC ACC4
4
4-
4
EAREA(3), BLD1,
EHIST(3,16),
ATA6LEX(9,10,3),ATA
CCI^CN /CCMC2/
CARSY, CBSLN,
CINCON, CPCE, CP
CN(15,3,16),
CPART (10,15)
CGfftN /CCNC3/
EMK(3), EP(10,15)
FREtA, FPEGE,
HCRZN, HGRZNY,
t-PC(15f 16)t
HPS(6,15,lt),
HFTCTS(16)
CC^MCN /C0^04/
KSTART, KSTCF,
LICLE, L1NT(16),
MEASE, MPH,
M(1C,3), ^^S,
CCKfCN /CCV05/
NIMR, MMKK,
NFTRN, NPTS,
CCIY, CCMY,
CC ACC5
CCJ-NCN /COH06/PARM(3,3
4 PC(15), PCS115),
+
4
4-
4
4
4
PP(10,15) ,PS(6,lt>),
PAR(10,15,3) ,
P$A(15), P1A(5),
,PAYF IN
CCfl'CN /CCNC7/
SALE, SALL,
BLD2,
BLEY(9,10
CAR'A,
CCCSTI,
I, C
CCEFEC15
CELPCV,
,EFF(1C),
FPERCdO
hPCS(15,
HPT(5,16
HE,
LCPT, LP
LPSPPdO
NSTART,
MVP
M*E(50)
^^ctlE,
NSTEPS,
CPTI,
), PART,
PHK14),
PT(5),
PARK10,
PPICKUC
FCCTviF,
PEINSP,
SALP,
)
BINT,
Bsicnrr
,3) ,ASTABLX
CARIY,
CCCSTI",
PVPV, CS
,3),
C'PtlOt 15)
DELIT(3) ,
t3),
16),
) ,
EXTRA,
(9, 6, 3), A
CARI^Y,
CGTT,
Lt , C
CGTFBPU
.CFLFMS,
HPP(10,1
HPTCT (16
ITL, ITP,
ICKdOnLLFTCK,
),LSTART, LSTCP,
NSTCP,
, NCNTR, NEMIS,
NL,
NTR,
CFT^.OPTS
PAYIVEW
PLC(l^) ,
PTCT,
3,3),
),PPP1CK,PS
PATTNTdC
RNAVE,
SITEI,
MJHlbt
MTR8,
(50) ,CVCI-
, PAYGF
PLTKAX(3
pTsrsrr
PLL'SdO,
TAR,PI(15
1 10,^)
RSIZE,
SITEM,
B3I"Z^,'
STAfaLY(9,6,3)
CARPOP(16) ,
ARAY,
0,15),
16),CTELr{3r,
5, It),
),
ITIME(16) ,
NEMP,
NPAR,
NPICK(IO) ,
K3),cvchy(3)
F(3),
) ,P^CDEL,
"PAYACJ,
15),
.10),
RSTGP,
SLANE,
-------
Table 5-5 SUBROUTINE BLINE LISTING (cont.)
en
i
1749C
175CC
17510
17520
17530
17540
1755C
17560
17570
17580
17590
176CC CC
; 1761C
1762C
1763C
1764C CC
17650
17660
; 1767C
1768C
176SC
177CC
1771C
1772C CC
1773C
1774C
1775C CC
1776C
1777C
1778C
177SC
178CC
1781C
1782C CC
17830 CC
1784C
1785C
1786C
1767C
1789C
17SCO
4 SPCCEL, SlAPTdS
4 SCALhBM3),
4 SXCLK6.3),
4 SIGPE(IO),
4 SIGRATE, S1ST,
4 S7AELEX(33,6 ,15 ) ,
COPMCN /CCM10/
4 TINT, TCEE 13) ,
4 TXTRA, TSIZE,
4 THIS! (5,3,16) ,
4 TIMEX 10, 15) ,
AOC10
CCPPCN /CCM11/
4 X16P(3,3,t), >II\T,
4 XTM(16), XEASE(9,
ACCH
CCPPCN /CCM12/
4 YES, YStf,
4 21* Z2,
4 Z7, Z8,
4 Z13, Z14,
4 ZCARI, ZCAPW,
4 2213,3)
ACC12
CCPMCN /CEBLG/
4 LCEBUG, MCEEUG,
ACCC
REAL ITE,
4 PCS, PPH,,
4 NAPE, NC,
4 IN, MSFIRE
INTEGER RNOE,
4 TCIST, XLANE,
,3) , STAT
SN (6, 15
S 1 G ( 1 0 ,
S1GMNE(
SIGS(6
STABLE
T £R£A (3
TCNX,
TSIG(3
Tt-ISTT(
TAELEXt
VtF (10) ,
XINT
3 ) , YE ASE (
V 1BP(3,
YIP ( 16)
Z3,
zs,
Z15,
ZIC,
ACEEUC,
PCEEUG,
HL,
MU ,
LCEBUG,
SITE!,
CFTI,
, STIfE
) ,
3),
1C),
,15),
Y(33,6,15)
), TC IST( 10
TQTE(3) ,
), TPERU6
3,16),
33,10,15) ,
B, XLANE
9,3)
3,10),
, Y108P
Z4 ,
Z10,
Z16,
ZSUP ,
BCEBUG,
QCEEUG ,
ITP,
PVPR
MCEBLG,
SITEP,
PPICK,
(3),
SPARdO
SIGCE
SIGP( 1C
SIGSDE
«3)f TIOLE
TPCB(3)
,15), TM
,15,6) ,
(3),
,15) ,
(3) ,
,TIPEI (3,16) ,
, TPDT'(3)f
IL ( 16 , 15 ) ,
TIHEC( 10, 15 )»
TABLEY
, XSUM
Y2BP(3,
(4,4,10) ,
Z5,
Zll ,
Z17,
CCEEUG,
SDEEL'Gf
ITIPE,
»
STAT,
PPPICK
(33,10,15)
, XCLT ( 10 ,3) ,
3,10) ,
Y20BP(4,4,10)
Z6,
212,
CCEOUG,
TDEBUG
*** EASEL1NE EMSSICNS
EMSSICN SPECIE
CC 5 I=1,NENIS
BhlST( If 1)=0
CC "4 oJ=l,NPTRN
CC 4 K=1,NCNTR
f ( J,I)=C.
fiHIST( 1,1 )=BHIST( I, 1)4
HC,CC,NO
STAHT(J, I
NEMISU)
)*TPE^(1,J)
-------
Table 5-5
Ul
tn
179 1C
17920
17930
17940
17950
1796C
17970
1798C
17990
18CCC
18010
18C2C
18C3C
18040
18050
18060
j 1807C
i 1808C
| 18090
18100
18110
18120
18130
1£14C
1615C
18160
18170
1818C
18190
18200
18210
1822C
18230
18240
1825C
18260
1827C
18280
18290
163CC
18310
18320
4 CCNTIME
5 CCNTIMJE
IF(ECEEljG.EG.YES) KRITE (£,500)
500 FORMAT (lHl,lC(/),35X,5C(l(-*)//,45X,
+ *START CF THE E AS EL IME*/ 5CX , *FL£ET ANALYSIS*//
* 35X,5C(lh«) )
CC 50 N=2,NTP8
C:
C: ACJLST EMSSICN ^fcANS FCR INCOMING NEK CtRS.
C: 10.8 PERCENT CF THE FLEET IS NEK EACH YEAR.
C:
IFtN.EC-2) GCTQ 24
CC 23 oJ=l,NFTRN
J=JJ+10
CC 23 1=1,3
IF(TPEK(N,J) .LT.C.1C8/5. ) GCTC 23
IF(M J, I) .LE.O. ) GOTC 23
C:
C: THE A ARRJY IS A CELTA E ARRAY. ThEPFCRE, THE
C: STARTING VALUE IS ZERU.
C:
A(J,I)=A(J,I)*(TFER(N-l,J)-.108/5-)/7PEP(N-l,J)
23 CCNTINUE
24 CCNTIME
CC 40 I=1^EMS
CO 30 JJ=1,NPTRN
CC 20 K^KSTART ,KSTOP
CELB=C.
CC 1C N=1,NPAR
CELe=CELR+FPERClf,K)*PAH|N,J,I)*BINT/12.
10 CCNTINLE
CiJ,I) = E( J, I)-CEL£
SLMJ=SUf J+(B{ J, I)+C(J,I)+2.*START{J,I))/2.*TPER(K,J)
20 CCNTINUE
30 CCNTIME
EH IST( I ,N ) = SLNJ
4G CCNTIME
IF(E£tELC-.EC.NC) GC TC 43
fcRITE (6,42) N
-------
Table 5-5 SUBROUTINE BLINE LISTING (cont.)
en
4^
CTl
18330 * s
18340
18350
18360
18370
16380
18390
184CC
18410
18420
18430
18440
18450
18460
18470
18480
18490
18500
18510
18520
18530
*-'»«•«"• 4|«- FORNA7Ilhl,4CX,*TIME HISTCRY PCIM *t!3t* *t
+ 2X,*EASELIKE*,/)
CALL PRINT2U,
* 5CFEKISSICN DELTA BEFORE DECAY
* ?6,5ChEMI$$lCN DELTA AFTER DECAY
4 .CfSChEMISSlCN CELTA AFTER MAINTENANCE
* J
43 CC 45 I = 1,NEMS
CC 45 JJ=1,NPTRN
CC 45 K=1,NCNTR
45 / (J,I)=C( J,I)
50 CCNTIMJE
CO IOC I=lfNEHIS
CALL FIT(BHIST,NTRe,AAl,/A2tAA3f I)
EAREAU )=(AAi*XINTB^AA2*XINTB**2/2.4AA3*XINTB**3/3. )*
+ M£AS£*BINT
TCBEU l = BAREA(I)*CAPFCPtl6)/CGTT
100 CCMINUE
RETLRN
EKC
-------
to zero then represents the starting emission values (emission values
in the A, B and C arrays are stored as differences from the starting
value). Next, MICRO initializes the N loop, from 2 to NTR, where NTR is
the number of inspection intervals. If the LPICK flag A is "turned on",
MICRO calls OPTMUM to compute the optimal parameter cutpoints for an
inspection/maintenance program. MICRO then adjusts the average emission
rates to reflect new cars entering the population and starts the actual
inspection/maintenance simulation.
Simulation of the inspection/maintenance process begins with the
parameter deterioration routine which adjusts the engine parameters
distributions based on parameter deterioration over time. MICRO then
calls EDECAY to similarly deteriorate the vehicle emission levels.
Subroutine TEST, which simulates the actual inspection process, is
called next. TEST computes rejection rates and mean value of rejected
parameters for each subfleet in the population. Subroutine TEST also
calls the PMAINT routine which adjusts parameter distributions to
account for mandatory maintenance. MICRO next calls MAINT which computes
the actual emission reduction achieved due to the maintenance treatment.
MICRO then outputs these calculations, based on appropriate flags
and updates the emission arrays. This is done by moving the BM array
which represents the post maintenance emission rates back into the A
array. The time value is incremented and, if the NPICT flag is set, the
statistical routines are executed and MICRO proceeds to the next
inspection interval.
After simulating the inspection/maintenance process over its entire
time horizon, MICRO calls FIT to curve fit the emission time histories
5-47
-------
using a second degree polynomial. This polynomial is integrated to obtain
total yearly emissions for the program. The mandatory and voluntary
emission time histories are plotted by calling subroutine PLOT. Figure 5-6
contains a flowchart of MICRO and Table 5-6 a listing.
5.6 SUBROUTINE TEST
Subroutine TEST contains the logic and algorithms for performing a
mandatory inspection on a vehicle population. Input to TEST are indicies
JO and N, where JJ is the parameter power train type and N is the in-
spection interval number. TEST initializes the appropriate variables
to zero and branches on inspection type. For a parameter inspection,
TEST computes the expected value of rejected parameters by calling AREA
with the first argument equal to one and the expected rejection rates by
calling AREA with the first argument equal to zero. TEST also calls
PMAINT which updates the parameter distributions. For an Emission
Inspection, TEST computes the rejection rate based on the mode emission
distributions and specified cutpoints. These values are then used to
adjust the parameter distributions. Subroutine TEST then computes, for
both parameter and emission cases ,the total overall rejection rate for the
vehicle population (i.e., number of cars that failed). Subroutine TEST
also computes various cost information and prints out all computations
when the TDEBUG flag is set to YES. TEST returns control to subroutine
MICRO.
Output from subroutine TEST consists of the average rejection rates,
mean value of the rejected parameters, and new post maintenance parameter
distributions for each of the six distributed parameters. Figure 5-7
contains a flowchart of TEST and Table 5-7 a Listing.
5-48
-------
(SUBROUTINE MICRO)
MOVE START INTO CN(1)
AVERAGE START BY TPER AND
STORE INTHIST
AVERAGE ALL STARTS INTO
THIST
ZERO OUT THE A ARRAY
INITIALIZE LI, LLPIC,
PPPICTOONE
INIALIZETIME
COUNTER (N= 2).
LOOP UNTIL N = NTR
©
Figure 5-6 Subroutine MICRO Flowchart
5-49
-------
INITIALIZE ARRAYS
TO ZERO
YES
HAS CUTPOINT
OPTIMIZATION BEEN
REQUESTED FOR
JHIS TIME
YES
INCREMENT LLPIC
K = 1
COST = 1
CALL OPTMUM
CONST
= CONST
X.9
NO
YES
PRINTOUT MESSAGE
'"R LOWERING CONSTRAINTS'
YES
0
s -x * THIS IS AN ERROR RETURN (KILL = 1) WHICH SIGNIFIES
(RETURT*) NO FEASIBLE SOLUTION IN THE LINEAR PROGRAM
Figure 5-6 Subroutine MICRO Flowchart (cont.)
5-50
-------
22
,
CHECK PPICK INPUT
TO MAKE SURE PPICK (1)^1
LOOP ON POWER
TRAIN TYPE AND
EMISSION TYPE
STARTING
EMISSION RATES FOR
THIS TIME PERIOD <0 ?
(IE: LESS THAN
NEW CAR
RATES
ADJUST CONTROLLED VEHICLE
EMISSION RATES TO REFLECT
NEW CARS ENTERING POPULATION
AT AN INCREMENTAL EMISSION RATE
LAST
POWER TRAIN
AND EMISSION
TYPE
Figure 5-6 Subroutine MICRO Flowchart (cont.)
5-51
-------
?"
START THE MAIN
POWER TRAIN LOOP
COMPUTE PART •= FRACTION
OF CARS TREATED SO FAR
(USED FOR SPREADING l/M
OVER TINT)
Figure 5-6 Subroutine MICRO Flowchart (cont.)
5-52
-------
9.
50
MOVE BM - A
(FOR NEXT PERIOD)
55
COMPUTE TIME AT
END OF PERIOD
STATS REQUESTED
FOR THIS TIME
PERIOD
END OF
TIME HORIZON
Figure 5-6 Subroutine MICRO Flowchart (cont.)
5-53
-------
©
START EMISSIONS LOOP
CALL FIT
TO CURVE FIT
EMISSION HISTORY
INTEGRATE EMISSION HISTORY
CALL FIT
TO INTEGRATE EMISSION RATE
DIFFERENCES BETWEEN BASE
AND TEST RUNS
INTEGRATE DIFFERENCE CURVE
TO GET TOTAL DIFFERENCE IN
EMISSIONS BETWEEN TEST AND
BASELINE PROGRAM
NO
YES
COMPUTE INTEGRATED DIFFERENCE
BASED ON LAST TIME PERIOD ONLY
CONVERT DELTA TO TONS/YEAR
CALL PLOT
TO PLOT EMISSION HISTORIES
c
RETURN
Figure 5-6 Subroutine MICRO Flowchart (cont.)
5-54
-------
Table 5-6 SUBROUTINE MICRO LISTING
en
en
en
18420
18430
18440
18450
18460
18470
18480
18490
18500
18510
18520
18530
18540
13550
18560
| 18570
18580
; 18590
18600
18610
18620
i 18630
18640
18650
18660
18670
18680
; 18690
i 18700
18710
13720
18730
18740
18750
18760
18770
18780
18790
18800
i 18910
: 18820
SUBROUTINE MiCRG (KILL
DIMENSION A(lb,3),B( 15,
COMMON /C'JMOl/ AM3
3) ,13 *M1 5,3
(3 ) , ALA3,
+ BAREA(3), 3LD1, BLD2,
+ BHIST(3,16), BMMIdO.l
+ ATABLEX(9,10,3) , AT ABLE Y (9, 10 ,
COMMON /COV02/
+ LARSY, C3SUM,
+ CINCON, CPCB, CP
+ CN(15,3,16),
+ CPART(10,15)
CC AD02
COMMON /COM03/
+ EMW( 3) , EP(10, 15)
+ FREOA, FRE06,
+ HORZM, HORZNY,
+ HPCd5,16),
+ HPS(6,15,16) ,
+ hPTCTS(16)
CC ADD3
COMMON /COM04/
-•• KSTART, KSTOP,
+ LIDLE, LINT(16),
+• MBASE, MPH,
+ MU( 10,3) , MMSdO,
CC AOD4
COMMON /COM05/
+ NINTR, NINTRB,
+ NPTRN, NPTS,
+ OCIY, OCMY,
CC AOD5
COMMON /CCM06/PARM(3,3
+ PC(15), PCS(IS),
+ PP{ 10,15), PS(6, 15),
+ PARdO,15,3),
+ PMl 10,15) ,
+ PSAd5) , PTA(5) ,
+ ,PAYFIN
COMMON /COM07/
+ RTYPE,
+• SALE, SALL,
AW, L)I
BSIG(3) ,
5,3),
3) , ASTABLXl
NT,
BXTRA,
9,6,3 ),
CA.^A, CARIY, CAP MY,
CCOEFdO) tCCOSTI, CCOSTM,
I, CPVPY, CSUM,
COEFB( 15,
DELPCV,
,EFF(13) ,
FPERC( 10,
HPCSd5,l
HPT(5,16)
ITE,
LOPT, LP
LPSPP( 10)
MSPEC(IO)
15) ,
NAME(50),
NMODE,
NSTEPS,
OPTI,
), PART,
PHK14) ,
PT(5),
PARl(iO,3
PPICKdO)
PCONF,
REINSP,
SALP,
3) ,
0 P ( 1 0 , 1 5 ) ,
OELITO),
3) ,
6) ,
ITL,
ICKdO),LLP
,LSTART,
,MSTART,
MVPR( 10,
NCNTR,
NO,
NTR,
OPTM.GPTS (
PAYNES,
PLOt 14) ,
COEFBPt
DEL EM (3
HPPdO,
HPTOT (1
ICK,
LSTOP,
MSTOP,
15)
NEMIS,
NOPTS,
NTRB,
50) ,OVC
PAYU
PLTMAXt
PTUT, PTS(5),
.3), PLUS<10
,PPPICK,PSTAR, PI (1
PAR I NT ( 10,
RNAME,
SITEI,
10,9)
RSIZE,
SIT EM,
BSIZE,
AST ABLY (9, 6, 3}
CARPQP(16) ,
CGTT,
CA»AY,
10,15),
,16) ,OELI (3) ,
15,16),
6),
ITIV,E( 16),
NEMP,
NPAR,
;MPICK( 16) ,
HI(3),OVCHM(3)
FF(3) ,
?) , PMUDEL,
PAYADJ »
,15) ,
5,10) ,
RSTOP,
SLANE,
-------
Table 5-6 SUBROUTINE MICRO LISTING (cont.)
en
in
en
18830
18h40
IP850
1PP60
18B70
18880
18890
18900
18910
18920
18930
18940
18950
16960
18970
18980
18990
19000
19010
19020
19030
19040
19050
19060
19070
19030
19Q90
19100
19110
19120
19130
19143
19150
19160
19170
19180
19190
19200
19210
19220
19230
19240
__ . ._ + SM'JOEL, START(15
* SCALtb'M 3) ,
+ SXoUT(6,3),
+ SIGKE(IO),
+ SIGRAT5, SIST,
+ STABLEX(33,6,15) ,
COMMON /COM1CV
+ TINT, TOoP(3),
+ TXTRA, TSIZE,
+ THI ST(5 ,3,16) ,
+ TIMEM( 10,15) ,
CC ADD10
COMVCN /COM11/
"+"" x'lBP(3, 3,6) ,' x'lNT,"
* XTM(16) , XiiASE(9,
CC AOD11
COMKCJN /COM12/
+ YES, YSUM,
+ 21, Z2f
+ Z7, 28,
•«- ,7 1 3 , 714,
+ ZCAKI, ZLARM,
+ 72(3,3)
CC ADD12
COMMON /DEBUG/
+ LDEBUG, MDE3UG,
CC ADDO
R E AL I T E ,
+ MMSt MPH,
+ NAME, MO,
+ IN, MISFIRE
INTEGER RNAME,
+ TDIST, XLAMEt
THISTT( l,l)=THISTT(2tl
DO 20 I=1,NEMIS
DU 20 JJ=1,NPTRN
TH=0
T=0
DO 10 K=1.NCNTR
J=JJ+5*(K-1 )
CN( J, I , 1) = START( J,I )
TH=TH+START(J,I )*TPER(
, 3) , STAT
S "i<5,l 5
SIG( ID,
SIG^^El
SIGS(i.
STABLE
T AREA13
TDNX,
T S I G ( 3
THloTK
TAdLEX(
•J K 1 3 ) ,
xi"a
j) , Y3ASEI
Y1BP(3,
YTM(lt>)
23,
Z9,
215,
Z 1C,
AUEBUG,
PDEBUG,
ITL,
MSPEC,
LDEBUG,
SITEI ,
QPTI,
)=THISTT(
1, J )
, s T i M e (
) .
3) ,
13),
,15) ,
Y( 33 ,6, IS)
) , T D I S T ( 1 0 ,
TOTt (3) ,
), TPER(16,
3 , 1 o ) ,
33,10,15) ,
§T" "~XLANE,
9,3)
J , 1 0 ) ,
Y1D6P(
Z4,
Z10,
Z16,
ZSUM,
BDEBUG,
•JDE6UG,
ITP,
MU,
MDE6UG,
S ITEM,
PPICK,
3, 1)=0.
3J , SUMR
SPAR( 13
SIGCL
SIGP( 10
S1GSOE
3) .T lULt
TPUB( 3)
15), TM
TIMECU
TABLEY
XSUM
Y2BP( 3,
4,4, 10)t
25,
211 ,
Z17,
CDEBUG,
S DEBUG,
ITIME,
MVPR,
STAT,
PPPICK
,-1(3), . __
,15,6),
(3) ,
, 15) ,
(3),
,TIMEI ( 3 , 16) ,
, TPOT13),
11(16,15),
0,15),
(33, 10,1 5)
/"x'CJTffo'f 3~f,
3,10),
Y2DBP(4,4,10) T
26,
212,
DDE8UG,
TDEBJG
-------
en
en
1 —
;.... '"' 19250
19260
19270
19280
19290
19300
19310
19320
19330
19340
19350
19360
19370
19380
19390
19400
19410
19420
19430
19440
19450
19460
19470
19480
19490
19500
19510
1952G
19530
19540
1955C
19560
19570
19530
19590
19600
19610
'19620
19630
19640
19650
19660
Table 5-6 SUBROUTINE MICRO LISTING (cont. )
T=T+TPERll, J)
10 CONTINUE
TH1ST( JJ,I,1)=TH/T
THISTT(I,l)=THISTT(I,l)+ThIST(JJ,I,l)*(TPER(l,JJ)
+ +TPER (l,JJ+5)+TPEK(l,JJ+10))
DO 20 K=IT(\JCNTR
J = J J+5*(K-1 )
A( J,I )=0.
20 CONTINUE
TF(MDEBUG.FQ.YES) WRITE (6,505)
505 FORMAT! 1H1, 10(7) f35X,50
-------
Table 5-6 SUBROUTINE MICRO LISTING (cont.)
19630
19o90
19700
19710 C:
10720 C:
19730 C:
19740 C:
10750
19^60 23
10770 24
19780
19790 C:
19800 C. :
19810 C:
19R20
19830
19840
19850
19860
19870
19980
19890 25
19900
19910
19920
19930 30
19940
1 9950
1P960
19970
19983
19990
20000
20010 35
20020
20030
20040 4D
20050
20060
20070
20080
no 23 1=1,3
IF(TPER(N,J) .LT. 0.108/5.) GOTO 23
IF{ A( J, IJ.LF.O. ) GOTO ?3 . .. ...
THE A ARRAY IS A DELTA E ARRAY. THERFORE, THE
STARTING VALUE IS ZERO.
A(J,I)=A(J,I)*(TPER(N-l,J)-.108/b.)/TPER(N-l,J)
CONTINUE
CONTINUE
DO 50 JJ=1,NPTRN
START THE POWER TRAIN LOOP.
PART=PART + TPE°. (1,JJ)+TPER(1,JJ*5)+TPER(1,JJ-HO)
IF(MDEBUG.EJ.YES) WRITE (t>,25) TIME
CALL PDECAY(JJ.N)
CALL EDECAY( A.fl, JJ.N)
CALL TFST(JJ,N)
CALL MA I NT (6, DM, J J , N )
FORMAT < 1H1,40X,*CEBUG — MICRO*// 38X ,*T IME DURATION IS *,
+ F5.1* MONTHS*)
IFd-1DE8UG.EO.Nlj) GO TO 50
LvRITE (6,30) NAML(JJ-HO)
FORMAT ( 1H1,40X,AS// ,
+ /,35X,*A — EMISSION DELTA BEFORE DECAY*/
+ 35X,*B — EMISSION DELT4 AFTER DECAY*/, 35X,
+ *C — EMISSION DELTA AFTER DECAY AND MAINTENANCE*/)
DO 40 I=1,NE-IIS
VnRITt (6,35) NAMEt I ) ,NAME(4) , ^IAME(5 ) ,NAME(o) ,
+ AIJJ, I),A(JJ + 5, I } , A( JJ-HO, I) ,3(JJ, I),8(JJ+5,I) ,
+ B( JJ + 1C, I) ,BM< JJ, I ) ,Bi1( J J + 5,I i ,BM{ JJ-HO, I)
FORMAT (/,40X,A2t* cMISSION DELTA*,/,
+ / ,26X,A8,12X,A8 ,12X ,A8 , / / , 18X, *A * , 3 { 5X, El 5.4) ,
+ /,16X,*b *,3(i)X,E15.4)/, 18X,*C * , 3 ( 5X, El 5. 4) / )
CJNTINUC
IF (RTYPE.EO. SHOOED CALL PR1NT5(
•f SM.50HMEAN VALUE OF THE MODE EMISSIONS
+ ,S IGS.50HSIGMA VALUES OF THE MODE EMISSIONS
-------
Table 5-6 SUBROUTINE MICRO LISTING (cont.)
01
vo
20090
20103
20110
20120
20130
20140
! 20150
20160
20170
20180
20190
i 20200
20210
20220
20230
20240
20250
20260
20270
20280
20290
20300
! 20310
20320
20330
20340
20350
20360
50 CGNTINUF
,NN = 3*NPTRN
00 55 J=1,NN
00 55 I=1,NEMIS
55 A( J,I ) = BM( J,I)
TIME=TINT*(N-1)
ISil=N-l
IF(MDEBUG.EO.YES) CALL PRINT3(
+ PM.50HPM - PARAMTER MEAN VALUES AFTER PDECAY
+ , PLUS.50HPLUS — PARAMETER CHANGE — DECAY AND MAINT
+ )
IF{N,NE.NPICK(L1M GO TO 100
L1=L1+1
CALL STATS(N.l)
100 CONTINUE
00 150 I=1,NEMIS
CALL FIT(THISTT,NTRtCCl,CC2»CC3,I )
T AREA (I )=(CCl*XINH-CC2*XINT**2/2.+CC3*XINT**3/3.) *
*TINT*M8ASE
CALL FIT(DELEM,NTR,D01,OD2,D03, 1)
DELHI } = (001*XINT+DD2*XINT**2/2.+
+ DD3*XINT**3/3. ) *TI NT*MBASE*CARPOP( 16)
IFCNPICK(l) . EO.NTR) DEL I ( I )=OELEMt I ,NTR)*MBASE*TINT*CARPOP{ NTR)
DELITd ) = DELHI)/CGTT
CALL PLOT(THISTT,8HIST»NTR,TXTRA,7t 0, T INT,0. » PLTMAX ( 1 ) , I)
150 CONTINUE
999 FORMAT(lHl)
RETURN
20370
END
-------
G>
(^SUBROUTINETEsf)
INITIALIZE ALL
STORAGE AND
SUMATION
ARRAYS TO ZERO
PTOT=PTOTS = PTOTA
PARAMETER MODEL)
INITIALIZE K DO
LOOP FROM KSTART
TO KSTOP
(CONTROL TYPE)
= JJ +5x (K-l)
INITIALIZE M
LOOP FROM
MSTART TO MSTOP
(PARAMETER)
©
Figure 5-7 Subroutine TEST Flowchart
5-60
-------
TDIST(M,J) -
THIS PARAMETER
USED
EP=AREA (1)
COMPUTE PARAMETER XP(X)
i
PP = AREA
COMPUTE
FRACTION
(0)
REJECTED
(PARAMETER)
CALL PMAINT
PERFORM MAINTENANCE
ON THE PARAMETER
DISTRIBUTION
PP
NO
>>S YES
fr
pp = l
-------
220
NO
-©
NO
Figure 5-7 Subroutine TEST Flowchart (cont.)
5-62
-------
300
SIGNATURE MODEL
INITIALIZE K LOOP
FROM KSTART TO KSTOP
(CONTROL TYPE)
J = JJ +5* (K-l)
INITIALIZE L LOOP
FROM LSTART TO LSTOP
(MODE EMISSION TYPE)
= L + 10
PS - AREA (0)
REJECTED FRACTION
OF MODE EMISSION DISTRIBUTION!
350
INITIALIZE M LOOP
FROM MSTART TO MSTOP
(PARAMETER)
Figure 5-7 Subroutine TEST Flowchart (cont.)
5-63
-------
TDIST (M,J) =
THIS PARAMETER
USED
NO
YES
L = LPSPP (M)
L IS THE MODE EMISSION
ASSOCIATED WITH THE
M'TH PARAMETER
NO MODE EMISSION
ASSOCIATED WITH THE
M'TH PARAMETER
MOVE: XIBP (K, L) - XDM
YIBP (K,M)-YIDUM
Y2BP (K,M)-*Y2DUM
360
PP = FUNI (PS, XDUM, YIDUM)
LOOK UP PARAMETER REJECTION PERCENTAGE
BASED ON EMISSION REJECTION PERCENTAGE
PP = min (PP, PS)
CHECK PP > 0
Figure 5-7 Subroutine TEST Flowchart (cont.)
5-64
-------
0
MVPR = FUNI (PS, XDUM, YDUM)
LOOK UP PARAMETER MEAN REJECTED
VALUE BASED ON MODE EMISSION
REJECTION PERCENTAGE
NO
YES
EP = AREA (1)
COMPUTE EXP XFOR
THE ICO PARAMETER
pp = ps = AREA (0)
RECOMPUTE REJECTION FRACTION
BASED ON ICO PARAMETER
DISTRIBUTION
RECOMPUTE
MVPR = EP/PP
Figure 5-7 Subroutine TEST Flowchart (cont.)
5-65
-------
NO
EP = AREA (1)
RECOMPUTE EXPECTED
REJECTED VALUE FOR
MISFIRE PARAMETER
PP = AREA (0)
RECOMPUTE REJECTION
FRACTION BASED ON
MISFIRE ALGORITHM
NO
RECOMPUTE
MVPR = EP/PP
COMPUTE
EP = MVPRxPP
FOR ALL PARAMETERS
DP = PS - PP
Figure 5-7 Subroutine TEST Flowchart (cont.)
5-66
-------
CALL PMAINT
TO PERFORM PARAMETER
MAINTENANCE
PARAMETER AND
SIGNATURE MODELS
SET DUM 1 AND
DUM 2 ARRAYS TO
ZERO
107
MOVE PP - HPP (N)
PC = UNION (PP)
COMPUTE UNION OF PP'S
OVER M
MOVE PC (J) (THE OVERALL
REJECTION RATE) INTO HPC (J, N)
AND DUM 2(K)
120
Figure 5-7 Subroutine TEST Flowchart (cont.)
5-67
-------
0
AVERAGE PC OVER CONTROL
TYPES, STORE IN HPT (JJ, N)
PTOT = PTOT + HPT x TTTTT
SUMMING FOR TOTAL REJECTED RATE
HPTA = 0
HPTOT (N) = PTOT FOR PRINTOUT
G>
101
INITIALIZE K LOOP
FROM KSTART TO KSTOP
= JJ+5x(K-l)
INfTIALIZE M LOOP
FROM MSTART TO MSTOP
XTM = XTM + TIMEM x PP x TPER
+ TIMECx PS x TPER
COMPUTE AVERAGE USER TIME
REQUIREMENT BASED ON
APPROPRIATE REJECTION RATES
(PS = PP + DP). TIME=TIME +
MAINTENANCE TIME +
INSPECTION TIME
XTM = XTM + TIMEM x PP x TPER
COMPUTE AVERAGE USER TIME
REQUIREMENT BASED ON THE
REJECTION RATES AND MAIN-
TENANCE TIME FOR EACH
PARAMETER
Figure 5-7 Subroutine TEST Flowchart (cont.)
5-68
-------
YES
MOVE PS - HPS (N)
MOVE PS — DUM1
PSA = UNION (DUM1)
COMPUTE UNION OF PS'S OVER L
AFFIRM PSA* 0
STORE PSA — HPCS (N)
475
AVERAGE PSA OVER CONTROL
TYPES. STORE IN PTS (JJ)
PTOTS = PTOTS + PTS x TTTTT
SUMMING FOR TOTAL MODE EMISSION
REJECTED PERCENTAGE
STORE PTOTS IN HPTOTS FOR PRINTOUT
0
Figure 5-7 Subroutine TEST Flowchart (cont.)
5-69
-------
PRINTOUT TEST DEBUG
DATA INCLUDING ALL
REJECTION RATES, MVPR'S
UNIONS, ANDTDIST
RETURN
RETURN
Figure 5-7 Subroutine TEST Flowchart (cont.)
5-70
-------
Table 5-7 SUBROUTINE TEST LISTING
20380
2C390
20400
20410
20420
20430
""" 20440
20450
20460
20470
20480
20490
20500
20510
20520
20530
2054C
20560
20570
20580
20590
20600
20610
20620
20630
20640
20650
20660
20670
20680
20690
20700
20710
20720
20730
20740
20750
20760
20770
20780
SUBROUTINE TESHJJ,N)
DIMENSION! DUMK 10) ,UIK2
DIXENSICM XDUM(3) ,Y10UM
(3 I ,011
(3) ,Y2
COMMON /CL.M01/ AMB(3),AL
+ BAREA(3), BL01, BL02,
+ RH 1ST (3, 16), 3f-MI(
" " + AT A6L>T(9,ToY3)", ATABLEY(9
COMMON /COM02/ CAKA,
+ CARSY, CBSUM, CCOEF
-»- CINCGN, CPC3, CP
+ CN(15,3,lo),
+ CPART(10,15)
CC ADD2
COMMON /CQM03/
+ E M W ( 3 ) , E P ( 1 0 , 1 5 )
+ FRECA, FREQ8,
+ HORZN, HORZNY,
+ HPC(15,16),
+ HPS (o, 15,16) ,
+ HPTOTS(16)
CC ATD3
COMMON /COM04/
+ KSTART, KSTGP,
+ LIDLE, LINT(16),
+ MBASE, MPH,
+ MU(10,3), MMSdO,
CC AOD4
COMMON /COM05/
+ NINTR, NINTRB,
+ NPTRN, NPTS,
CC ADDS
COMMON /CQM06/PARM{3,3
+ PCJ15), PCS115),
+ PP( 10,15), PS(6, 15),
+ PAR (10, 15,?) ,
+ PSA ( 15) , PTA(5),
* .PAYFIN
COMMON /COM07/
+ RTYPE,
It
COEFB
•1i(3
JUM(
Aij
10
,1
(1
(
UELPCV
,EFF( 10
HPCS(
HPT (5
ITE,
LHPT,
LPS°P
15) ,
NA.MEt
NMOOE
NSTEP
) , PA
1
,
(
(
1
,
)
5
i
i.
i
~
50
,
5 ,
RT
PHH14)
PT{5) ,
PARK 10
PPICK
PCONF
{
»
REINSP
1
,
,
,1
0,
0)
CP
5,
,
)
3) ,Y1DUUM(
AW, B
B S I G ( 3 ) ,
5, 3) ,
3) ,ASTABLX
CARI Y,
,CCOSTI,
3,3)
,Y
INT,
BATRA
(9,0,3
CAKMY
CCOST
VPY, CSUM,
3) , COE
0 P < ! 0 , 1 5 )
JELIT(3),
,16) ,
o)
LP
0)
0)
),
t
f
,3
0)
,
,DEL
HPP
HPT
ITL, IIP
IC!«10),LLPICK
,LSTART, LST
, v»ST ART,
N'VPR( 10
NCNTR,
NO,
NTR,
GPTM,OPTS
PAYNEW
PLU( 14),
PTOT,
,3) ,
,15)
NEM
NQP
(50)
T
2'JUU/H
,
) ,
FBP(
EM
(3
6
ASIA
C
C
3,3)
SIZE,
BLY< 9,o,3 )
ARPQPU6) ,
GTT,
CARAY,
10, 15) ,
,16}
,DEL H3),
(10, 15,16) ,
OT
f
»
OP
OP
IS
TS
U
'
,
,
,nvc
PAYO
PLTMAXf
PTS(5),
PLUS( 10
, "PPICK, PSTAR,
PARINT{ 10,10,
KNAME,
RSI
PI
9)
ZE
(1
,
6),
I
TIME( 16),
NEMP,
NPAR,
NPICM 16),
HH3
FF(3
),OVCHM(3)
),
3),PMODEL,
PAYAOJ ,
,15) ,
5,10
R
) ,
STOP ,
-------
Table 5-7 SUBROUTINE TEST LISTING (cont.)
20790
01
i
»j
ro
20800
20810
2C8_2p_
"20830
20H40
20850_
20860
20870
_2J°_?JP_
20890
20900
20910
"20920"
20930
20940
20950"
20960
_20_970_
2~0980
20990
J1000
2*1016"
21020
J5-J30
21040"
21050
210?Q
YioTo"
21080
21_090
" 211OO"
211 n
_2_112_0
21130
21140
2_1_15Q_
"21160
21170
21180
21190
21200
SALE
S MODEL,
SCALEBM(3),
SXCUT(6,3),
SALLi
START
CC
+ SIGME(IO),
+ SIGRATE, S1ST,
* STAflLEXt33,6,15
COMMON "/CUMIO/
* TINT, TOBcl
* T_X TJRA_»___ T_S IZ E
+• THIST(5,3Tl6)Y
+ TIMEM(10,15),
A0pj.0_
COMMUN /CGM11/
+ XlflP(3,3,o),
±_ ^JL^U-^LL XUASE
"cc"Abo"ii " "" " "
COMMON /COM12/
+ YES, JSUM,
12,
Z8,
Zl.^«
ZC ARM
(15
L»
3),
_SlJ_E_I_i
STIMEC
SALP,
3) , STAT,
5^(6,15),
S 1^(10,3), _
"SIGMNEl 10) ,
SIGS(6,15) ,
STA3LEY(33,6. 15) _
TAREA(3), TDISTt10,
SITEM,
.SLANE,
3) , SUM6M(3) ,
SPAR(13,15,6),
5 IGCE(3) ,
SIGP( 10,15) ,
SIGSOE(3),
TONX,
JSJGJJ.)^.
~THI STT(3 ,:
TAoLEX(33
3) ,T IDLE.TIMEI(3,16),
fOTE(3), TPDB(3), TPDT(3 ),
TPER ( 16^L5J_, TMIL( 16,15) ,
6), TIMEC(10,15),
10,15), TABL£Y(33,10,15)
XINT,
wF( 10),
XINTb,
),Y3ASc(9,3)
XLANE
XSUM, XCUT(10,3),
Zlt
Z7,
_Z 1_3 ,_ _
Z'CARI,"
ZZ(3,3)
YlbPt 3,3,10), Y2BP( 3, 3,10) ,
YTM(lo) , YlDBP(4,4,10).Y2DBP(4,4t10)
Z6,
Z3,
J. 1 b_»-
ZIC,
Z4,
Z10,
Z_IA? _
ZSUM,
Z5,
Zll,
Z17,
Z12
CC A0012
CC
+
4DOD
COMMON /DEBUG/
LDEBUG, MOE6UG,
'REAL
+ MMS,
_+_ NAME,
<• " I~N,
INTEGER
+ __TDI_ST,_ „
" PA'RAMETQR MODEL
DO 5 I=1,NEMIS
DO 5 K^l.NCNJR
TTE',~"
MPH',
NO,
'MlSfik'E"
RNAME,
XLANE_,
ADE3UG,
P L) E 8U G,
TIL,"
MSP EC,
L_D_E_BUG_,_
SITEI,
OPTI,
liDEBUG,
QDEBUG,
CDEBUG,
SDEBUG,
ODEBUG,
TDEBUG
ITP,
,«iU,
MDEttUG,
ITIME,
MVPR,
SITEM,
PPICK,
STAT,
PPPICK
DO A_!'=JL!_N_PAR
uUMl(M)=6."
OP(M,J)=0.
-------
Table 5-7 SUBROUTINE TEST LISTING (cont.)
FP(M.J)=0.
OJ
21220
21230
21240
21250
21260
21270
21280
2129Q
21300
21310
21320
21330
21340
21350
21360
21370
21380
2 1 39 0
21400
21410
21420
21430
21440
21450
21460
21470
21480
21490
21500
21510
21520
21530
21540
21550
21560
21570
21580
21590
21600
21610
21620
5
CC
CC
CC
CC
CC
CC
CC
CC
CC
CC
CC
CC
CC
CC
CC
CC
CC
CC
CC
CC
100
220
PPIM, J)=0.
PCU)=0.
MVPR(M, J)=0.
DO 5 L=1,NMQDE
PS( L, J)=0.
CONTINUE
PTt JJ)=C.
IF(JJ.EO.l) PTOT=PTOTS=PTOTA=0.
IF(RTYPE.EQ.SMODEL) GO TO 300
ENGINE PARAMETERS
M=l DELTA CO
M=2 DELTA RPM
M=3 DELTA TIMING
«=4 MISFIRE
M-5 NOX CUNTRQL
M=6 AlftPUMP
M=7 PCV
M=8 AIR CLEANER
M=9 VACCUUM CHOKE KICK
M=10 CHCKE BLADE SETTING
L = 1 HC - IDLE
L = 2 CO - IDLE
L = 3 NO - IDLE
L = 4 HC CRUISE (45)
L = 5 CO CRUISE (45)
L = 6 NO CRUISE (45)
OPT] - 1 — INSPECT PARAMETERS 123
- -2 — INSPECT PARAMETERS 12345
- 3 — INSPECT PARAMETERS 123456789 10
DO 220 K=KSTART,KSTOP
J=J J+5=MK-1 )
DO 100 M=MSTART,PSTOP
IF( TDIST(M,K) . NE.l > GOTO 100
EP(M, J)=AREA(ltMtJ«KTN)*PI ( J,M)
PP(M, J)=AREA(0,M,J,K,N)*?I ( J,M)
CALL PMAINT(0,M, J,K,N)
PP(M, J)=AMIN1(PP
-------
Table 5-7 SUBROUTINE TEST LISTING (cont.)
01
21630
21640
21650
2 I 663
21670
21680
21690
21700
21710
21720
21730
21740
21750
21760
21770
21780
21790
21800
. 21810
21820
21830
21840
' 21850
21860
21870
21880
21890
21900
21910
21920
21930
21940
21950
21960
21970
21980
21990
22000
22010
22020
22030
22040
GLJ TO 250
300 CONTINUE
DC 400 K=KSTART,KSTOP
J=JJ+5*(K-1)
DO 350 L=LSTART,LSTOP
LL=L+10
PS(L,J)=AREA(0,LL, J,K,N)
PS(L,J)=AMAXKPS(L,J),0.)
PS(Lt J)=AMIN1(PS(L,J) ,1.)
353 CONTINUE
DO 375 M=MSTART,I«STOP
IF(TDIST(M,K).NE.l ) GOTU 375
L=LPSPP(M)
IF(L.EJ.O) GO TO 375
DO 3oO 11=1,3
XDUM( I 1J=X1BP( I 1 ,K,L)
Y1DUMC I1)=YIBP( I 1,K,M)
Y2DUM( I1)=Y28P( I 1,K,M)
360 CONTINUE
PP( M, J)=FUM(PS(L, J) ,XJUM ,Y1UUVI,3)
PP(M, J)=AMIN1(PP(M, J),PSl L, J) )
IF(PP(M,J).LT.O.) PP(M,j;=0.
MVPR(M,J)=FUN1(PS(L,J) , XDUM, Y2DUM, 3 )
IF(M.EO.l) EP(M, J)=AREA(1 ,M,J,K,N)*PI(J,M)
IF(M.EQ.l) PP(M,J)=PS(2,J)=AREA(0,ltJ»K,N)*PI(J,M)
IF(M.E0.1.AND.PP(M,J).GT.l.t-5) MVPR (M, J) =E P{ M, J) /PP ( M, J )
' IF(M.E0.4) EP(M, J)=AREA(1 ,M, J ,K ,N)*P I ( J,M)
IF(M.E0.4) PP(M,J)=AREA{0,MfJ,K,N)*PI(JfM)
IF(M.E0.4.AND.PP(M, J).GT.l.E-5) MVPR{ M, J) =EP( M, J J /PP (M, J )
EP(M,J)=PP(M,J)*MVPR(M, J)
DP(M,J)=PS(UJ)-PP
-------
Table 5-7 SUBROUTINE TEST LISTING (cont.)
22050
22060
22070
22080
107
22090
22100
22 np_
'22120
22130
22140
110
120
NL)_=0.,
CONTINUE
DO 120 K=KSTART,KSTOP
J=JJ+5*(K-1 )
DO 110 M=1,NPAR
HPP(M,J,N)=PP(M»J)
_PUM1 (_M ) = P_£iM ,J )
PC(J)=u¥lON(DUM1,NPAR,1)
HPC(J,N)=PC(J)
DUM2(K)=PC(J)
22150
22160
_22_17_0_
22180
22190
22200
tn
i
•vl
en
22210
22220
22230
22240
22250
_2_2260_
22270
22280
2_2290_
"22300
22310
22320
22330
22340
22350
22360
22370
22380
22390
22400
_2_241_0_
22420
22430
22440
22450
22460
HPT{JJ,N)=PCUJ)*TPER(N,JJ)+PC( J J + 5 ) *TPER(N,
*,JJ-«-10)
—TUIIflPJ R (J1»_J J >_±IfLiEiil'_JjJ + 5.LtI PER(NtJJ-HO)
IF( TTfTT.GT.lO.E-10) HPT( j"j,N ) =HPT ( J J , N) /TTTT T
PTOT=PTOT+HPT( JJ,N)*TTTTT
HPTOT (N)=PTOT
JJ + 10) *TPER(N
DO 55 K=KSTART»KSTOP
00 55 M=MSTART,MSTQP
IF(RTYPE.EQ.SMODEL)
XTM
-------
Table 5-7 SUBROUTINE TEST LISTING (cont.)
tn
i
.i2.47_CL . eUJjLJAijro] „ _ _.
22430 510 FiTR^AT (40X,*DE!5UJ -- TEST*)
774=10 wRITE (6,520)
77500 _ j>20_f_J_RMA_T I//,40X,*V AK I_AcLE - A_ - P£ ' > A D I L I T Y_ *
22510 -»• VptK PARA'VETER —" PP*/ 4: X , *V A4 I A8L t - o - EXPECTED *
22523 + , *VALUE PER PARAMETER -- EP*/40X,*VARAIbLE - C - *
22531 + ,_*.V^A_N VALUE OF THE _KQ.J ECT ED JARAMETER — MVPR*t/
22540 ' " *- 40A,*VAR I A3LE" - J - P:S '- J'P ( S I GNA TURE ONLY)*)
22550 /JRITE (6,530) J J ,NAME( J J* 10 ) , ( J , J=l , 10 )
22560 _ ___ 53 J. .FCJ^VATjy ,4 OX , *P_J>i KT.\A I \* , I 3,* .-^ _1». ^lO.//
27580 Ou 550 K = Kb TAR T , K.STOP
22590 J = JU+5* (K-l ) _ _
22600 " "" WRITE (6,540) ': AXE ( K -t-b ) , (PP (^ , J )", M'= 1 ,1fc ) ,
22610 * ( EP( M, J) ,;^1,10) , MVPKC-1, J ) , 1=1, lu ) , ( UPM, J) ,M = 1,10)
22620 54C:±ORMAT ( /j A 3,* A* , 1 OE 1 3. Z/8X , * •}* , 1 3 E 1 0 . 2 / 8X ,_* C * , JO E
72630 " "+ XrfxT* U*.10E10.2/)'
22640 550 CONTINUE
22650 __ IF_(_JJ.EC._5_) WHITE (5,570) tHC(J),J=lt15)t(PT(Jj),JJ =
226t>0 + ,XTM(N) ,YTM(.s) , PTQTS "
22670 l;70 FORMAT(/,* PC = */ 10X , 5 El 2 . 5/ J.OX, 5E 12. 5/10X , 5E1 2. 5/ /
72680 _+ * PT _= */ 10X, 5E1^. 5/* PToT = *E12.5/,* XTM = *,
226QQ" " """•«• ti'5".~5,5xV*YTM = *E15.^/,* PT JTS~="*E1 S'Vs')""""
22700 vVRI TF (6,580) TO 1ST
72710 __ _ 560 FORMAT (// , 3_OX, *TDI ST*,/_3( _5.X_t 101 5/)_,_/_/_)
72770"' " "" 99v"FORMAT( 1H1) " - - - -- - ----- -
22730 KETUkN
2274^ EN)
-------
5.7 MAINTENANCE ROUTINES
The maintenance routines estimate the effects of a specific main-
tenance treatment on the emission and parameter distributions. Estimates
of the emission reduction achieved from maintenance are based on the
influence coefficients and garage efficiency factors. Subroutine MAINT
computes the adjustment in average emission rates based on maintenance,
while subroutine PMAINT updates the parameter distributions.
5.7.1 Subroutine MAINT
Subroutine MAINT computes the reduction in the average vehicle
emission rate based on the maintenance of parameters which were rejected
by inspection. MAINT computes, for each control type, DELB, the effect
of voluntary maintenance on emission rates and DELT the effect of
mandatory maintenance. DDI, developed in Function EINT computes the
impact of engine parameter on emission rates. MAINT subtracts DELB,
DELT and DDI from the average emission rate A to compute AM, the post
maintenance emission rate. MAINT then averages and summarizes the
emission rates in the CN array for later use in MICRO. The THIST and
THISTT matrices are updated and averaged for printout, curve fitting
and plotting in MICRO.
Table 5-8 contains a complete listing of subroutine MAINT while
Figure 5-8 documents its techniques and variables in an extensive flow-
chart.
5.7.2 Subroutine PMAINT
Subroutine PMAINT updates the parameter distributions based on
maintenance treatment. Input to subroutine PMAINT are XOPT, M, the
parameter number, J the control-power train type, K the control type
5-77
-------
(
SUBROUTINE MAI NT
INITIATE I DO LOOP
FROM ONE TO THE
NUMBER OF EMISSION
SPECIE
SUMI -0
INITIATE K DO LOOP
FROM KSTART TO FSTOP
J = JJ+5 * (K-l)
DELT = DELB=0
INITIATE M LOOP
FROM 1 TO NPAR
DELB = DELB + TINT X PAR X FPERC X (1-PP)/12
VOLUTARY MAINTENANCE CONTRIBUTION TO
EMISSION REDUCTION. FPERC * TINT/12 IS
THE AMOUNT OF VOLUNTARY MAINTENANCE
NORMALLY TO PARAMETER M IN THE TIME PERIOD
BDEL(M) =DELB FOR PRINTOUT
DELT = DELT + PAR X MVPR X EFF X PP
MANDATORY MAINTENANCE CONTRIBUTION
TO EMMISSION REDUCTION
TDEL (M) = DELT FOR PRINTOUT
END
OF PARAMETER
LOOP (M)
Figure 5-8 Subroutine MAINT Flowchart
5-78
-------
DDDI=0
NO
YES
DDDI = EINT (I)
SECOND ORDER PARTIAL
CONTRIBUTION TO EMISSION
REDUCTION
AM = A - DELB - DELT - DDDI
POST MAINTENANCE EMISSION LEVEL
(AM)( EQUALS PRE-MAINTENANCE LEVEL (A)
MINUS THE EFFECTS OF MAINTENANCE
AVERAGE AM AND A AND DECAY
THE RESULT TO THE END OF THE
TIME PERIOD USING THE APPROPRIATE
DECAY RATE (COEFB (J, I) ).STORE IN S
AVERAGE S OVER CONTROL AND
POWER TRAIN TYPE. SUM IN SUMI
STORE ACTUAL EMISSION LEVEL AT
END OF PERIOD (S + START) IN CN
Figure 5-8 Subroutine MAINT Flowchart (cont.)
5-79
-------
'PRINTOUT MAINTENANCE
FACTORS FOR EMISSION
SPECIES I
™
7
NO
-©
YES
FILL PERMENANT EMISSION
PROFILE ARRAYS BY NORMALIZING
SUMI AND STORING IN THIST (JJ, I, N)
THISTT = THISTT + SUMI
FOR OVERALL EMISSION RATES
LAST
TIME PERIOD
AND LAST POWER
TRAIN AND
TXTRA
>.05,
YES
NO
INTERPOLATE BETWEEN LAST TWO
THISTT POINTS TO GET CORRECT EMISSION
LEVEL AT THE END OF THE TIME HORIZON
IN CASE THE SIMULATION DOES NOT END AT
THE END OF AN INSPECTION INTERVAL
END
OF I LOOP
(EMISSION
TYPE)
NO
Figure 5-8 Subroutine MAINT Flowchart (cont.)
5-80
-------
Table 5-8 SUBROUTINE MAINT LISTING
tn
oo
22750
22760
2277JL
22780
22790
_228qO_
228TO
22820
22830
"22840
22350
2 2J 6_0_
22870
22880
22890
"22900"
22910
22920
22930"
22940
_22950
22960"
22970
_2_2980_
'22990
23000
?_30iq
23020"
23030
SUBROUTINE ilAIMT (A, AM, JJ, N )
OIMEHSICN A( 15,3 ) , AM 15,3 ) , BOEL ( 1 0) , TO EL ( 10)
_ C J Mf'i J N / C0 M 0 1 / AM a ( 3 ) , A^AB ,_ A VJ^ , _ 6 I f1iv_U>\l /C_JM04/
Y KSTART, KSTQP,
+ LIOLE, LINK16),
+ (MBASE, MPH,
HPCSt 15,16) ,
HPT(5,16) ,
HPPdO,
HPTOTd
15,lo),
6),
_._
23050
23060
23070_
"2 30 8 6
23090
23iqp_
"23"llO
23120
_23130
23140 '
23150
CC ADD4
+
_ "*" _
"cc"~Abb"5~
MU (10 , 3 ) ,
_
MN'fk,"
f-.PTRN,
LCIY,
ny s'io , is ),
I IE, ILL, _IIP_t
LOPT, LPICK(IO),LLPICK,
LPSPP(IO).LSTAKT, LSTOP,
"1S_P- § Q tlO) ' !§ T_A_R T , _ MSTJj P ,
MVPRTlb,~15)
I TIME(16),
;^"lNf Rd,"
NPTS,
OCMY,
"NMODE,"
NSTEPS,
CPTI,
NCJNTTK,
"NO, "" '
MTR, NTR8,
OPTM.OPTS(50),OVC
NEMP,
N P AP ,
NPICM16),
HI(3),OVCHM(3)
COMXiON /COM06/PARM(3,3
+ PC(15), PCS(15),
+
+
PP( 10,15) ,PS(6
PAR (10, 15, 3),
P S A { 1 5 ) , P T A (
,15) ,
b) ,
), PART
PT(5)
PARK
PPICK
PCGMF
,
1
(
»
»
D,
10
PAYisiEW, PAY OF
PLQ( 14) , PLTMAX(
3
)
PTOT,
,3) ,
,P PPICK
PAR I NT
PTS(5
PLUS(
,PSTAR, PI
( 10, 10, 9}
),
10
(1
F(3) ,
3) ,P MODEL,
PA
,15)
5,10
YADJ,
,
) ,
+ .PAYFIN
__COM^G_N /CtJMOTV REINSP, RNAME, RSJZE , RSTuP ,
"+ R'TYPE, ~" " """" " "" "" " ""
+ SALE, SALLr SALP, SITEI, SITEM, SLANE,
-------
Table 5-8 SUBROUTINE MAINT LISTING (cont.)
0°
r\>
2316D
23170
23180
23190
23200
23210
23220
23230
232^0
23250
23260
23270
23280
23290
23300
23310
23320
23330
23340
23350
23360
23370
23380
: 23390
23400
23410
23420
23430
23440
23450
23460
23470
23480
23490
23500
23510
23520
23530
23540
23550
23560
23570
+ SMJOEL. START (_1 5. 3). STAT. <;TIMF<^)t MJMBMfU,
+ SCALEBM<3),
+ SXCUT(6,3),
* SIGRATE, SIST,
+ STARLEX(33,6,15),
COMMON /CQM10/
+ TINT, TOBE(3),
+ TXTRA, TSIZE,
+ TH1ST(5,3,16),
+ TIMEM( 10,15) ,
CC ADD10
COMMON /COM11/
+ X1BP(3,3,6), XI NT,
+ XTM116), XBASE(9,3i
CC 40011
COMMON /COM12/
+ YES, YSUM,
+ Z 1 1 Z 2 ,
+ Z7, Z9,
+ 713, Z14,
+ ZCARI, ZCARM,
+ 7Z(3,3)
CC AD012
COMMON /DEBUG/
+ LDEBUG, MDEBUG,
CC AODD
REAL ITE,
-I- MMS, MPH,
+ NAME, NO,
+ IN, MISFIRF
INTEGER RNAME,
+ TDIST, XLANE,
00 50 I=1,NEMIS
SUM 1 = 0.
DO 40 K=KSTART,KSTOP
J=JJ-»-5*(K-l)
D£LT=UtL3=0.
00 30 M=1,NPAR
UELB=DELB + TINT/12.*PARd''
S M ( 6 , 1 5 ) ,
SIG(13,3) ,
S IGM^c (ID),
SIGS(o,15) ,
STA8LEY(33,6, 15)
TA^tA(3), TO 1ST (10
TONX, TOTE(3) ,
THISTT( 3,15) ,
TABLEX( 33,10,15),
HF( 10) ,
XI.MTB, XLANE
) , YBASE(9,3)
Y13P(3,3,10) ,
YTM(16), Y10BP
Z3, Z4,
Z9, Z10,
Z15, Z16,
ZIC, ZSUM,
AOEBUG, 60EBUG,
PDE3UG, QDE8UG,
ITL, ITP,
MSPEC, MU,
LDEbUG, MDEBUG,
SITEI, SITEM,
OPTI, PPICK,
«, J, I)*FPERC(M,K)*(
8DELIM)=DELB
DELT=DELT+PAR«M, J, I ) *MVPR i M , J ) *EFF ( M) *PP( M
SPAR( 10
SIGCE
SIGP( n
SIGSOE
,3) ,TIDLE
TPDB( 3)
,15), TM
TIMECd
TARLEY
, XSUM
Y2BP( 3,
(4,4, 10),
Z5,
Zll.
Z17,
CDEBUG,
SDEBUG,
ITIME,
MVPR,
STAT,
PPPICK
l.-PP(M,J
t J)
, 15, o) ,
(3) ,
,15),
(3) ,
,TIMEI(3 ,16) ,
, TPUT(3),
1L( 16, Ib) ,
0,15 ),
(33, 10,15)
, XCUT(10,3),
3,10)t
Y20BP<4,4,10) ,
Z6,
Z12,
ODEBUG,
TOEBUG
-?:-;
) )
-------
en
00
CO
23580
23590
23600
23610
23620
23630
23650
23660
23670
; 23680
23690
i 23700
23710
23720
23730
1 23740
23750
23760
23770
23780
23790
23800
23810
23820
23830
23840
23850
23860
23870
Table 5-8 SUBROUTINE MAINT LISTING (cont.)
TDEL(M)=DELT
30 CONTINUE
DDDI=0,
IF(LOPT.E0.2) DDUI = EINT( I ,K ,J)
AM{ J, I ) = A(J, I)-DELB-DELT-ODOI
91 FCRMAT( 1X.F10.6)
SUM 1= SUM I -K S-t-STARTt J,I) )*TPfcR(N,J)
CN( J, I ,N) = S + START< J, I)
IF(MDEBUG.EQ.lMU) GO TO 40
WRITE(6,1234) ODD I
1234 FOPMAT(1X,E20.10)
WRITE (6,90)
90 FORMAT(/,50X,*DEBUG - MAINT EFFECTS SUMMED*)
WRITE (6, 100) NAME( I ) ,NAME(K + 3) , ( BOE L ( M ) ,M=1 , NPAR) ,
+ (TDEL(M) ,M=1,NPAR)
100 FORMAT(2X,A2,2X, A8 , * BASE*, 10E9. 2/ , 14X ,* TEST*, 10E9 .2)
40 CONTINUE
C:
C: FILL PERMENANT EMISSION PROFILE ARRAYS.
C: (INSIDE I LOCP)
C:
THISTf JJ,I,N)=SUMI/ (TPER(N,JJ)+TPER
-------
and N the inspection interval. Also input to PMAINT (via the common
block) are the parameter or mode emission distributions stored in
TABLEX, TABLEY, or STABLEX or STABLEY, respectively. Output from PMAINT
is returned through the TABLEX, TABLEY and STABLEX, STABLEY matrices.
Subroutine PMAINT first branches on parmeter or emission inspection
type. For parameter inspection the limits of the rejected population
are computed by reference to the LINT array which specifies upper and or
lower end rejection. The TABLEX and TABLEY arrays are moved into the
XBP and YBP working storage. For the emission case, since, for mode
emissions, the upper end is always rejected, the rejection limits are
set at the cutpoint and highest value in the STABLEX array, and the
STABLEX and the STABLEY data is moved into XBP and YBP.
For both the emission and the parameter case subroutine PMAINT
normalizes the parameter or mode emission distribution and calls AREA
to compute the rejected fraction. The portion of the distribution which
was rejected is then reduced by a factor of PI, the inspection efficiency
parameter. The vehicles that were rejected and, therefore, maintained
are then added back into the population at the manufacturer's specifi-
cation point. The distribution is then packed to discard long tail
ends and moved back into STABLEX or STABLEY or TABLEX, TABLEY.
Subroutine PMAINT provides debug output when the ADEBUG flag is
turned on.
Table 5-9 contains a complete listing of subroutine PMAINT while
Figure 5-9 displays graphically the PMAINT coding technique in a des-
criptive flowchart.
5.8 DETERIORATION SUBROUTINES
The Decay subroutines model the deterioration of emission rates,
5-84
-------
(^SUBROUTINE PMAINT J
NN = NSTEPS + 1
BRANCH TO A BLOCK OF CODE
DEPENDING ON PARAMETER NUMBER.
MODE EMISSIONS USE A PARAMETER
NUMBER EQUAL TO THE MODE EMISSION
NUMBER PLUS TEN
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
RPM
TIMING
MISFIRE
NOX CONTROL
AIR PUMP
PCV
AIR CLEANER
VACUUM KICK
HEAT RISER
HC-IDLE (MODE EMISSION
CO-IDLE (MODE EMISSION
NO-IDLE (MODE EMISSION
HC-45 (MODE EMISSION
CO-45 (MODE EMISSION
NO-45 (MODE EMISSION
NO.l)
NO. 2)
NO. 3)
NO. 4)
NO. 5)
NO. 6)
RETURN
RETURN
RETURN J
RETURN J
LOWER PAR
OF DISTRIBUTION
FAILED
Figure 5-9 Subroutine PMAINT Flowchart
5-85
-------
10
©
LOWER
PART
FAILED
50
UPPER
PART
FAILED
XLOR = TABLEX(1)
XHIR = XCUT
REJECTED INTERGRATION LIMITS
XLOA = XCUT
XHIA = TABLEX (NN)
ACCEPTED INTEGRATION LIMITS
XLOR = XCUT
XHIR=TABLEX(NN)
REJECTED INTEGRATION LIMITS
XLOA = TAB LEX (1)
XHIA = XCUT
ACCEPTED INTEGRATION LIMITS
TOO
MOVE TABLE ARRAYS
INTO BX, BY AND XBP,YBP
SIGNATURE
MODEL
LL = M- 10
XLOA = STAB LEX (1)
XHIA = SXCUT
ACCEPTED INTEGRATION LIMITS
XLOR = SXCUT
XHIR = STABLES (NN)
REJECTED INTEGRATION LIMITS
MOVE STABLE ARRAYS
INTO BX, BY AND XBP, YBP
170
©
Figure 5-9 Subroutine PMAINT Flowchart (cont.)
5-86
-------
190
SIGNATURE AND
PARAMETER MODELS
CALL NORM
TO NORMALIZE THE DISTRIBUTION
CALL INTEG
TO COMPUTE THE REJECTION PERCENTAGE
XHI = XHIA
XLO = XLOA
DELXH = (XHI - XLO)/NSTEPS
FIND LOCATION OF MANUFACTURES
SPECIFICATION (ZERO) IN DISTRIBUTION
STORE THE INDEX IN MID. MOVE XBP AND YBP INTO X AND
Y WITH AX = DELXH.
AFFIRM Y*0 FOR EACH POINT
400
NO
YES
PRINTOUT ACCEPTED POPULATION
Figure 5-9 Subroutine PMAINT Flowchart (cont.)
5-87
-------
NO MAINTAINED
VEHICLES ADDED
MOVE X AND Y BACK
INTO THE APPROPRIATE
ARRAYS (TABLE OR STABLE)
2000
c
RETURN
©
3000
COMPUTE HEIGHT OF MAINTAINED
VEHICLE SPIKE AT MANUFACTURERS
SPEC TO BE THE PERCENTAGE
REJECTED DIVIDED BY A X.
IF MID IS AN END POINT THE SPIKE
MUST BE TWICE AS HIGH TO HAVE
THE SAME AREA (A).
ADD ON THE SPIKE AT MID.
CALLSTD2
TO NORMALIZE AND COMPUTE
POST MAINTENANCE MEAN (PM)
Figure 5-9 Subroutine PMAINT Flowchart (cont.)
5-88
-------
o
PRINTOUT POST MAINTENANCE
DISTRIBUTION
7
490
MOVE X AND Y BACK
INTO TABLEX AND TABLEY
AND INTO AX AND AY
500
f RETURN J
Figure 5-9 Subroutine PMAINT Flowchart (cont.)
5-89
-------
Table 5-9 SUBROUTINE PMAINT LISTING
36070
360-0
36090
36100
36120
3ol 30
36140
^6150
3cloO
36170
JolOO
3ol90
36200
36210
36220
36230
36243
36260
362HO
36790
36303
36310
36320
36330
36340
36350
36300
36370
36390"
36400
36410
36430
36450
3o460
SJBRGUT iMt Pf-,AI \T( XGPT , M, J, * , •J )
JlXiEfsS IL\ X(15),Y(35),X3:M35l,YdP(35)
_ COMMC^_/C_UM01/ _ A/J m , A_L_Ao, AW, _fll_l
+ B AREA! *} , BLOI , 3LQ2, SSIG(3),
* BHIST(3,16), BVMK 13,15,3) ,
*_ _ ATA8LFX(9, 10,3) ,ATAdl_EY(9, 10,3) , AbTAbLX
COMMON /COM02/ CA-sA, OAR1Y,
+ CAKSY, CBSUM, CLUEFdO) .CCOSTI,
+ CI.MCCK, CPCB, CPI, CPVPY, CSi
•»• CN( 15,3, lo) ,
+ CPARTf 10,15)
CC AJ3D2
COMMGiM /CGM03/
••- E.-I'^O) , EPdO,
+ __}• KE_OA_, _ FKF'.OB,
<- HORZN, HOKZNY
+ hPC(15,16i,
+ HPS(6,15,16) ,
+ HPTnTS(16)
CC ADD 3
C(JM,v,Gr-J /CC: 404/
+ "KS'TART", ~" KSTOP,
* LIDLE, LINTd
* . .Niri.A_S_£_!. _.'^PH-'^
CC AOD4
CflMKON /CJM05/
+ MNTx, NINTRB
+ .MPTRN, NPTS,
+ L.CIY, OCKY,
CC *DC>5
COMKON /Cf'M J6/PAR*'' (
+ PC(15), PCS(15
~+" ~ PPdO", 15) , PS (6,1
* PAK ( 10, 15,3) ,
+ PM( 10,15) ,
+ PSA( 15) , PTA( 5)
+ ''TYPE,
* SALb, SALL,
CL-EKBI is
OtLPCV,
15) ,Ef-F ( 10) ,
F P-f RC( i 0
riPCS(15,
Mr1 Tip, 16
1 TE,
LUPT, LP
6), LPSPPdO
.-,SPEC( 10
10,13),
, NKuvE,
NSTEPS,
OPT I,
3,3), PART,
), PHI (IV),
5), PT(5) ,
PARK 10,
PPICM 10
, PCG^F,
KB INS?,
SAL!',
,3) ,
JP( 10,15)
JEL IT(3) ,
,3) ,
16) ,
I TL,
ICK ( 10),LLP
) ,L6TART,
) ,M START,
MVPKt 10
, N C N T R ,
•M 0 ,
MTR,
PAYNtEW,
PLC( 14) ,
NT, .. .__
6XTRA, BS1ZE,
(9,o,3), ASTABLY( 9,6,3)
CARMY, C APPQP( lo) ,
CCUSTM, CGTT,
JM, CARAY,
CGEFiiP( 10,15) ,
,DtLEM(3 ,lo; ,DEL 1(3),
HPP( 10, 15,16) ,
HPTOT(16) ,
1TP, ITIMF(16),
ICK,
LSTOP,
MSTUP,
',15) " " "" ~"
NtMIS, NEMP,
i\OPTS, i-.PAR,
(50) ,DVCHI(3) ,OVCHM(3)
PAYOf:F(3) ,
PLTMAXt 3) , P'lUOEL ,
PTOT, PTS(5), PAYAOJ,
3,3), PLUS(10,15),
),PPPICK,PSTAR, PI (15,10),
P AKlMt ID
i 1TE I,
,10,9)
RSIZF, 9 STOP,
ilTFM, bLAi^E,
-------
CJl
1
1
36470
36480
36490
36500
36510
36520
36530
36540
36550
36560
36570
36580
36590
36600
36610
36620
36630
36640
36650
36660
36670
36680
36690
36700
36710
36720
36730
36740
36750
36760
36770
36780
36790
36800
36810
36820
36830
36840
36850
36860
36870
36880
Table 5-9 SUBROUTINE PMAINT LISTING (cont.)
+ SMODEL, "
+ SCALEBM13
+ SXCUT(6,3
+ SIGME(IO)
STAR'tt 15,3) . STAT, STIME13), SUM8M(3),
), SM(6,15), SPAR( 10,15,6) ,
), SIG(!0,3), SIGCEO),
, SIG^E( 10) , SIGP( 10,15) ,
+ SIGRATE, SIST, SIGS(6,15), SIGSDE(3),
+ STA6LEX(33,6,15) , STABLEY < 33 , 6, 15 )
COMMON /COM10/ TAREA(3), TD IS T( 10, 3) , T IDLE ,TIMEI ( 3 , 16) ,
+ TINT,
+ TXTRA,
+ THIST(5,3
+ II
CC ADD10
COMMO
MEM( 10,
N /COM1
+ X 1 3 P ( 3 , 3 ,
+ XTMJ16),
CC ADD11
TOBE(3), TU.-JX, TOTE(3), TPOB<3), TPDT(3),
TSIZE, TSIG(3), TPER(16,15), TM IL ( 16, 15 ) ,
,16), THIc>TT(3,16) , TIMEC(10,15),
15), TA8LEX(33,10,15) , TABLEY < 33, 10, 15 )
I/ rt'F(lO),
i>) , XINT, XINTB, XLANE, XSUM, XCUT(10,3),
XbASE(9,3 ) , Yt5ASE(9,3)
COMMON /COM12/ Y1BP( j,3, 10 ) , Y 2BP( 3, 3, 10 ) ,
+ YES, YSUM, YTMU6), Y 10BP ( 4 , 4, 10 ) , Y20b P (4, 4 , 1C ) ,
+ lit Z2, Z3, Z4, Z5, Z6t
+ Z7
•t- Zl
+ zc
t
3,
ARI ,
ZS, Z9, Z10, Zll, Z12,
Zl^t, Z15, Z16, Z17,
ZCARM, ZIC, ZSUM,
+ ZZC3.3)
CC AD012
COMMON /DEBUG/ ADEBuu, 3DEBUG, CDEBUG, DDEBUG,
+ LDE3UG,
CC AODD
REAL
+ MMS.
+ NAME,
+ IN,-
INTEGER
+ TDIST,
li'-iTtGFR XHPT
CC LINT
CC
CC
N.\ = NST
GO TO
2 RETURN
1 IGG=LI
GO TO
- L I M I
- 1 -
- 2 -
EPS+1
(1,1,1
NT(M)
( 10,50)
MOEBUG, PDEBUG, ^DE8UG, SDEBUG, TDEBUG
ITE, ITL, ITP, ITIME,
>1PH, MSPEC, MU, MVPR,
NO, L DEBUG, M DEBUG,
MISFIRE
RiMAME, SITEI, SITE^, STAT,
XLAME, UPTI, PPICK, PPPICK
TS OF INTEGERAT10N CRITERIA (REJECTED)
- XLO TO XCJT
- XCUT TO XHI
, 2, 2, 2, 1, 1 , 1,2, 160, loO, 160,153, 160, 160) ,M
, I GO
-------
Wl
I
vo
ro
-' """... , Table 5-9 SUBROUTINE PMAINT LISTING (cont. )
36890 "
36900
36910
36920
36930
36940
36950
36960
36970
36980
36990
37000
37010
37020
37030
37040
37050
37060
37070
37080
37090
37100
37110
37120
37130
37140
37150
37160
37170
37180
I 37190
37200
37210
37220
37230
37240
37250
37260
37270
37280
37290
! 37300
10 CONTINUE
CC CUT LOWER POKTIUN
XLOR=TABLEX ( If M, J)
XHIR=XCUT(M, K)
XLOA=XCUT
-------
Table 5-9 SUBROUTINE PMAINT LISTING (cont.)
tn
ID
CO
37310
37320
37330
37340
37350
37360
37370
37380
37390
37400
37410
37420
37440
37450
37460
37470
37430
37490
37500
37510
37520
37530
37540
37550
37560
37570
37580
37590
37600
37610
37620
37630
37640
| 37650
1 37660
j 37670
37680
37690
37700
1 37710
I 37720
YU) = FUN1(X(I), XBP, YRP.NN )
IF( AW SI X( I ) -MMS( M, J ) ) ,LE. :)LLXH/2. ) MID = I
IF( Y( I ) .LT.O. ) Y< I ) = C.
CC MAINTENANCE REMOVAL OF HAD CARS
F(X(I).GE.XLOR.AND.X(I).Lt.XHIR) YlI)-Y»lJ#ll«~PltJ»M)
400 CONTINUE
IF ( AOEOUG.EO.NO) GO TO 450
WRITE (o,410) ( I,X( I ),Y( I ) , I=1,NN)
410 FORMAT! //,5X,* POPULATION 3CFORE ADDING MAINTENANCE*
+ //,3(3X,*N*,8X,*X*tl5X,*Y*,5X)//
+ 13(I4,2E15.4,I4,2E15.4,I4,2E15.4/} )
450 CONTINUE
IF(XCPT-NE.2) GO TO 3000
CC STORAGE OF ACCEPTED PURTION
CALL PACKD
-------
Table 5-9 SUBROUTINE PMAINT LISTING (cont.)
CONTINUE
37740 999 FORMAT(1H1)
37750 RETURN
37760 END
-------
mode emissions, and parameters over time. The deterioration rates for
each of these three dimensions of the vehicle have been developed
empirically and are used to update emission levels between maintenance
treatments. The three decay routines are called EDECAY, MDECAY and
PDECAY.
5.8.1 Subroutine EDECAY
Subroutine EDECAY computes the deterioration in average vehicle
emission rates over the inspection interval TINT. Input to EDECAY are
A, the pre-decay emission rates, JJ the power train type and N the
inspection interval number. Output from EDECAY consists of the array
B representing the average emission rates of the vehicle population
after deterioration. The emission rate of decay, COEFB, which was
computed in subroutine INITIAL, is multiplied by the appropriate time
interval and added to the emission level for determining the post
deterioration value.
Figure 5-10 presents a flow chart and Table 5-10 contains a listing of
subroutine EDECAY.
5.8.2 Subroutine MDECAY
Subroutine MDECAY deteriorates the mode emission levels based on
estimated changes in the engine parameters. MDECAY uses a technique
similar to that used in PDECAY in adjusting the mode emission distributions,
Table 5-11 contains a listing of MDECAY and Figure 5-11 a flow chart.
5.8.3 Subroutine PDECAY
Subroutine PDECAY is used to estimate the rate of parameter deterio-
ration between inspection intervals. Figure 5-12 contains a complete
5-95
-------
SUBROUTINE EDECAY
INITIATE I LOOP
FROM 1 TO NEMIS
INITIATE K LOOP
FROM KSTART TO
KSTOP
J= JJ+5*(K-I)
ADD= COEFB*TMIL
TINT* PART
ADD=COEFB*riNT*
*(TMIL*PART +
TMI L -KI-PART)
B = A + ADD
(RETURN)
Figure 5-10 Subroutine EDECAY Flowchart
5-96
-------
Table 5-10 SUBROUTINE EDECAY LISTING
en
i
10
23880
23890
23900
23910
23920
23930
23940
23950
23960
23970
23980
23990
24000
24010
24020
! 24030
1 24040
! 24050
24060
24070
24080
; 24090
24100
24110
24120
24130
24140
24150
24160
24170
24180
24190
24200
24210
24220
24230
24240
24250
24260
: 24270
! 24280
SUBROUTINE EDECAY(A,B,J
DIMENSION A( 15,3) ,B( 15,
COMMON /COM01/ AMB
J,N)
3)
(3 ) , ALA.J, AW, B
+ BAREA{3), BLD1, BLD2, rfSIGIB),
+ BHIST(3,16), liMMK 10,15, 3) ,
+ ATABLEX(9,10,3),ATA8LEY(9,10,3) ,ASTABLX
COMMON /COM02/
+ CARSY, CBSUM,
+ CINCON, CPC4, CP
+ CN(15,3,16),
+ C PART (10, 15)
CC AD02
COM'MCN /COM03/
+ EMM 3) , tP( 10, 15)
+ FREGA, FREUB,
+ HORZN, HORZNY,
+ HPCd5,16),
+ HPS(6,i5,16) ,
+ HPTOTSC16)
CC ADD3
COMMON /COM04/
+ KSTART, KSTOP,
+ LIDLE, LINT(16),
+ H8ASE, MPH,
CC ADD4
COMMON /CuMOS/
* NINTR, NINTR3,
+ NPTRN, NPJS,
+ UCIY, OCMY,
CC ADDS
COMMON /COM06/PARM(3,3
+ PC(15), PCS(15),
+ PP( 10,15), PS(6, 15),
+- PARdO, 15,3) ,
+ PMdOtlS),
+ PSAdS) , PTA<5) ,
+ , PAYFIN
COMMON /CQM07/
+ RTYPE,
+ SALE, SALL,
INT,
BXTRA,
<9,6,3),
CARA, CARIY, CARMY,
CCOEFf 10) ,CCOSTI, CCOSTM,
I, CPVPY, CSUM,
COEFB( 15,3) ,
OELPCV, OPdO,15)
,EFF(10), 0£LIT(3),
FPERCdO,3) ,
HPCS( 15,16) ,
riPT(5,16) ,
ITE, ITL,
LOPT, LPICK(10),LL
LPSPP( 10) .LSTART,
MSPECdO) ,MSTART,
15), MVPRdO
NAME(bO), NCNTR,
NMOD'E, NO,
N STEPS, NTR,
OPTI, OPTMtOPTS
), PART, PAYiMEW
PHK14), PLO(14),
CQEFBP<
,UELEM(3
HPPdO,
HPTOTd
ITP,
PICK,
LSTOP,
MSTOP,
,15)
NEMIS,
NOPTS,
NTRB,
(50),OVC
BSIZE,
ASTA6LY(9,6,3)
CARPOP(16) ,
CGTT,
CAPAY,
10,15),
,16) ,UELI(3),
15,16) ,
6),
ITIME( 16),
NEMP,
NPAR,
N PICK (16) ,
HI(3),OVCHM<3)
, PAYOFF(3),
PLTMAX(3),PMODEL,
PT(5), PTOT, PTSJ5),
PAR1(1Q,3,3) , PLUSdO
PPICKt 10) ,PPPICK,PSTAR,PI (1
PCGNF, PAR I NT (10
REINSP, RNAME,
SALP, SITEI,
RSIZE,
SIT EM,
PAYAOJ,
,15) ,
5,10) ,
RSTUP ,
SLAKE,
-------
Table 5-10 SUBROUTINE EDECAY LISTING (cont.)
en
£
24290
24300
.'4310
24 -s?0
243oO
24370
24380
24390
24400
24410
24420
24430
?4440
24450
24460
24470
24480
P4490
24500
24510
24520
24530
24540
?4550
245c,0
24570
24580
24590
24600
24610
24620
24630
24640
24650
24660
24670
24630
24690
74700
7*710
+ SMLOEL. STAHTf
+ SCALER.-K 3) ,
+ SXCUT(6,3),
+ SIGME(IO),
+ SIGRATc, SIST,
* STAiiLEX( 33,6,15)
CGMMUN /COM10/
+ TINT, TO BE (3
+ TXTPA, TSIZE,
+ THISK5, ?,16) ,
+ TIMEM( 10,15) ,
CC AuUlO
COMMON /COM! I/
15.3), STAT. STIMt{3), SUM,\ML3Jj .
SM(6,15) ,
S IG( 13, 3) ,
SIGXNEf 10) ,
SIoS(o, 15) ,
STAbLEY(33,to, 15)
TAREA(3), TDISTdO
), TONX, TOTE(3),
TSIG(3), TPER(16
THISTK 3 ,lo) ,
TABLEX( 33, 10, li) ,
WF< 10),
+ XlbP(3,3,6), XINT, XI\TB, XLANE
+ XTM(16), XBASE(9,3) ,YdASE(9,3)
CC ADD 11
COMMON /COM12/
+ YES, YSUM,
* 21, Z2,
+ 27, 28,
* Z13, Z14,
+ ZCARI, ZCARM,
+ 22(3,3)
CC ADD12
COMMON /DEBUG/
+ LDEBUG, i-'iOEBUG
CC ADDD
REAL ITE,
+ MMS, MPH,
+ NAME, NO,
+ IN, MISFIR
INTEGER RNAME,
+ TDIST, XLANE,
DO 50 I=1,NEMIS
DO 40 K=KSTART,KSTQP
J=JJ+5*(K-1)
ADD=COEFB( J, I)*TINT*
IFIN.E0.2) ADO=COEFB
o( J.I )=A( J, I J+ADO
43 CONTINUE
50 CONTINUE
RETURN
END
Y1BP(3,3,10),
YTM(lo), Y1DBP
23, Z4,
29, Z10,
Z15, Z16,
ZIC, ZSUM,
ADEBUG, bDEBUG,
, PDEBUG, JDEBUG,
ITL, ITP,
MSPEC, MU,
LDEBUG, MDEBUG,
E
SITEI, SITEM,
JPTI, PPICK,
(TMIL (N,J)*PART-i-TMIL(N
iPAK( 10 , 1 5 , 6) ,
S IGCr ( 3) ,
SIGP( 1J, 15) ,
SIGSDE (3) ,
,3) ,T IDLE ,TIMEI(3 ,16) ,
TPDB( 3) , TPDT( 3) ,
,15), T.v|IL( lo, 13) ,
TIMEC (10,15 ),
TA6LEY(33, 10, 15)
, XSUM, XCUT(10,3) ,
Y2BP( 3,3,10), '
(4,4, 10), Y2UBP(4,4,10) ,
25, 26,
Zll, 212,
217,
CDEBUG, ODEBUG,
SDEBUG, TDEBUG
ITIME,
MVPR,
STAT,
PPP ICK
-1,J)*(1.-PART))
(J,I)*TMIL(N,J) *TINT*PART
-------
c
SUBROUTINE MDECAY
0-
SUM = 0
INITIATE L LOOP
FROM 1 TO NMODE
SUMI =0
INITIATE K LOOP
FROM KSTART TO KSTOP
J = JJ +5 « (K-l)
SUMP = 0
INITIATE M LOOP
FROM 1 TO NPAR
ADD = COEFBP X TMIL X TINT X SCALEBM
COMPUTE PARAMETER DECAY
YES
ADD = ADD X (PART-TPER)
SCALE ADD FOR INCOMPLETE INTERVAL
Figure 5-11 Subroutine MDECAY Flowchart
5-99
-------
©
SDMI = FPERC X TINT/12 X (1-PP)
COMPUTE VOLUNTARY MAINTENANCE
NO
YES
/PRINTOUT BHIST, M,/
ADD, SUM, SUM /
SUMP = SUMP + SPAR X (ADD-SUMI)
COMPUTING L^|AP = AE
NO
YES
NN = NSTEPS + 1
Fi re 5-11 Subroutine MDECAY Flowchart (cont.)
5-100
-------
NO
YES
PRINTOUT SUMP, XBP, YBP
7
MOVE STABLES INTO
BX AND BY, AND
XBP AND YBP
IS L BET WEEN
LSTART AND LSTOP
YBP (NN + 2) = YBP (NN) + YRATE
XBP (NN + 2) = XBP (NN) + SUMP X XRATE
ADD TAIL TO DISTRIBUTION
YBP(NN + 1) = (YBP(NN) +2 X YBP(NN +2)/3
XBP (NN + 1) = (XBP (NN) + XBP(NN +2)/2
ADD A POINT HALF WAY TO NN + 2 WITH
THE Y VALUE 2/3 THE WAY DOWN.
THIS GIVES THE DISTRIBUTION A NORMAL
LOOKING TAIL
Figure 5-11 Subroutine MDECAY Flowchart (cont.)
5-101
-------
0
ADDI = DELXDX (LL-1)
ADDI RUNS FROM 0 TO 2
ADDI = (e DDI -l)/e2 X SUMP
DECAY ALGORITHM
STABLEX = X + ADDI
LL LOOP
FINISHED?
DECAYED.DISTRIBUTION
CONSTRUCTED
YES
MOVE STABLE'S INTO
AX,AY,XBP, AND YBP
450
CALL STD2
TO NORMALYZE THE DISTRIBUTION
AND COMPUTE MEAN AND
VARIANCE
Figure 5-11 Subroutine W)ECAY Flowchart (cont.)
5-102
-------
XBP(NN + 1) =XBP(NN)X 1.01
YBP (NN+2) =XBP(NN) X 1.02
DO ESSENTIALLY NOTHING TO
THE SHAPE OF A NON-TESTED
MODE EMISSION DISTRIBUTION
350
DELX = (XBP(NN +2) - XBP(1)/NSTEPS
DELXD=2/NSTEPS
DELX IS THE X INCREMENT REQUIRED TO
FIT THE DISTRIBUTION INTO THE
STANDARD 33 POINTS. DELXD IS A
DUMMY VARIABLE USED FOR DECAY
INITIATE LL LOOP
FROM 1 TO NN (33)
(DISTRIBUTION POINT NUMBER)
0>
X = XBP(1) + DELX(LL-1)
COMPUTE CORRECTED X VALUE
STABLEY = FUNI (X, XBP, YBP)
LOOK UP Y VALUE AT THAT X
Figure 5-11 Subroutine MDECAY Flowchart (cont.)
5-103
-------
YES
CALL EPLOT
TO PLOT BEFORE AND AFTER
DECAY DISTRIBUTIONS
Figure 5-11 Subroutine MDECAY Flowchart (cont.)
5-104
-------
Table 5-11 SUBROUTINE MDECAY LISTING
o
CJl
iBr • ' " :w-.--. •-. ., v 'A
24720
24730
24740
24750
24760
24770
24780
24790
24800
! 24810
24820
24830
24840
24850
24860
24870
24880
j 24890
24900
24910
24920
i 24930
i 24940
i 24950
24960
24970
24980
24990
25000
25010
25020
25030
25040
25050
25060
25070
25080
25090
25100
i 25110
25120
SUBROUTINE MDECAY(JJ,N)
DIMENSION YRATE16)
DIMENSION XRATE(6)
DIMENSION XBP(35),YBP(35)
COMMON /COM01/ AMBC3),ALAB
* BAREA13), BLD1, BLD2,
+ BHIST(3,16), BMMIdO
+ ATABLEX(9,10,3) ,ATABLEY(9,1
COMMON /COM02/ CARA,
+ CARSY, CBSUM,
+ CINCCN, CPCB, CP
+ CN(15,3,16),
-t- CPART(10,15)
CC ADD2
COMMON /COM03/
+ EMW(3) , EP(10,15)
•I- FREOA, FREOB,
+ HORZN, HORZNY,
+ HPCd5,16),
-i- HPS16,15,16) ,
+ HPTOTS(16)
CC ADD3
COMMON /COM04/
+ KSTART, KSTOP,
+ LIDLE, LINT(ld),
+ MBASE, MPH,
+ MUC10,3), MMSdO,
CC AOD4
COMMON /COM05/
+ NINTR, NINTRB,
+ NPTRN, NPTS,
+ OCIY, OCMY,
CC ADDS
COMMON /COM06/PARM(3,3
+ PC(15), PCS(15),
+ PP(10,15J,PS(6,15J ,
+ PARdO,15,3),
+ P,MC10,15),
+ PSA(15), PTA(5),
+ .PAYFIN
COMMON /COM07/
CCOEFd
I,
COEF3{ 1
DELPCV,
,EFF(10)
FPERCd
, AW,
BSIG(3)
BINT,
, 6XTRAf
,15,3),
0,3) ,ASTABLX(9,6,3),
CARIY, CARMY,
0) ,CCOSTI,
CPVPY,
5,3) ,
DP( 10,1
, DELIT(3
0,3) ,
HPCS( 15,16) ,
HPT(5,16) ,
ITE,
LOPT,
LPSPPd
MSPECd
15),
NAME150
NMQDE,
NSTEPS,
OPTi,
>, PART,
PHId-V)
PT<5),
PARH10
PPICKt 1
PCONF,
REINSP,
ITL,
LPICK(IO) ,
0) ,LSTART,
0) ,MSTART,
MVPRC
), NCNTR,
NO,
CCOSTM,
CSUM,
COEFBPl
5),OELEM(3
**
HPPdO,
HPTOTd
ITP,
LLPICK,
LSTOP,
MSTOP,
10,15)
NEMIS,
NOPTS,
NTR, NTRB,
-------
Table 5-11 SUBROUTINE MDECAY LISTING (cont.)
Wl
I
75130
25140
75150
25160
25170
25180
25190
25200
25210
25220
25230
25240
75250
25260
25270
25280
25290
j 25300
i 25310
25320
25330
25340
25350
25360
25370
25380
75390
25400
25410
25420
25430
25440
25450
25460
25470
25480
25490
25500
25510
25520
1 25530
25540
+ RTYPE,
* SALE, SALL,
+ SMCOEL, STARK 15
+ SCALcBM(3),
+ SXCUT(6,3I,
+ SIGME(IO),
+ SIGRATE, SIST,
* STABLEX( 33,6,15) ,
COMMON /CQM10/
* TINT, TOBE<3),
+ TXTRA, TSIZE,
* THIST<5,3,16),
+ TIMEM( 10,15) ,
CC ADD1Q
COMMON /CGM11/
* X10P{3,3,6), XINT,
+ XTM(16), XbASE(9,
CC AD011
COMMON /COM12/
+ YES, YSUM,
+ Zl, Z2,
+ Z7, Z8,
+ Z13, Z14,
+ ZCARI, ZCARM,
+ ZZ(3,3)
CC AOD12
COMMON /DEBUG/
+ LbEBUG, MDE8UG,
CC ADOO
REAL ITE,
+ MMS, MPH,
+ NAME, NO,
+ IN, MISFIRE
INTEGER RNAME,
+ TOIST» XLANE,
DATA XRATE/3.,3. ,3. ,3.
DATA YRATE/6*0,i5/
SUM=0.
DO 1000 L=l ,NMODE
SUM1=0.
DO 500 K=KSTART,KSTOP
J=JJ+5*(K-1 )
SALP,
,3) , STAT
SM16.15
SIGllOt
SIGMNE(
SIGS(6
STAbLE
TAREA(3
TONX,
TSIG(3
THISTT(
TA8LEX(
WF( 10),
XINT
3) ,YBASE(
Y1BP(3,
YTM(16)
Z3,
Z9,
Z15,
ZIC,
AUEbUG,
P DEBUG,
ITL,
MSPEC,
LDEBUG,
SITEI,
OPTI,
,8. ,3./
SITEI,
, STIME<
) ,
3) ,
10)»
,15) ,
Y(33,6, 15)
), TOISTdOt
TOTE(3) ,
), TPER(16,
3,16),
33,10,15) ,
B, XLANE,
9,3)
3,10),
, Y1DBP(
Z4,
Z10,
Z16,
ZSUM,
dDEBUG,
3DEBUG,
ITP,
MU,
MOEBUG,
SITEM,
PPICK,
SITFM,
3), SUMb
SPAR( 10
SIGCE
SIGP( 10
SIGSDE
3) ,TIDLE
TPUB(3)
SLANE ,
M(3) ,
,15,6),
(3),
,15) ,
(3) ,
,TIMEI (3 , 16),
, TPDT(3),
15), TMIL(16,15)t
TIMEC(10,15),
TABLEY(33, 10,15)
XSUM
Y2BP13,
4,4, 10),
Z5,
Zll ,
Z17,
CDEBUG,
SDEBUG,
ITIME,
MVPR,
STAT,
PPPICK
, XCUT(10,3),
3,10) ,
Y2UBP14,4,10) ,
Z6,
Z12,
DDEBUG,
TDEBUG
•': / '
-------
Table 5-11 SUBROUTINE MDECAY LISTING (cont.)
SUMErl
25560
25570
25580
25590
25600
25610
25620
25630
25640
25650
25660
DO 300 M=1,NPAR
ADO=COEFBPt MiJ)*TINT*(PART*TMIL(NtJ H( l.-PART )*TMIL 1 N- 1 , J) )
IF5,5X,* SUM = *E15.ii,
+ 5Xt*SUMl = *E15.5J
_2_567Q
25680*
25690
en
i
_.
25710"
25720
25730
S UW P= S UMP.+ S P^.R (JitJ tJ- i * 1 A Dp _ j^SUM U.
300 'CONTINUE
NN=NSTEPS-H
I FJ 0_D EBJJ G ._EQ . Y E S 1 WRITE ( 6 , 30 5J_ SJJ MP_tX BP_( NIM j , YoP (_NN .
305 FORMA'f (* SUM"? "="*Ei'5.4,5X",*X = *E15.4,5X,*Y = *E15.'
DO 325 LL=ltNN
XBP(LL)=STABLEX{LL,L,J)
25740
25750
25J60
"25770"
25780
25790
25800
25810
25820
25830
25840
25850
25860
25870
_2_5_880.
25890"
25900
_25_91_0
25920"
25930
_25_940
25950"
25960
525
YflP(LL)=STABLEY(LL,L,J)
CONTINUE
I f_( L._L T_.JLS_J_ART_^0R. L ._GT_.JLS TGP ) G
IF(SUMP.LT.O.) SUMP=0.6i"
YBP
-------
o
00
Table 5-11 SUBROUTINE MDECAY LISTING (cont.)
P5970
26010
26020
26030
26050
YoP(LL)=STAbLEY(LL,L,J)
<+j9 CONTINUE
CALL STD2tXyP,Y6P,NN,S1tL,JJ,SIGS(L,J))
jjc ***»!(-( Qpe BUG. EQ. YES. AND. N. E3.P PICNtPPPICKI.ANO.JJ. E Q . 1 J_
,*"**** CALL EPLOT (BX.bY, AX,AY,NN,LI-MT(M))
SCO CONTINUE
1000 CUNTINUF
RET UF N
b I'J 0
-------
flowchart of PDECAY which documents the programming techniques used.
Table 5-12 gives the program listings.
5.9 SUBROUTINE COSTS
The General Economic Effectiveness Program contains data and
algorithms for estimating the economic impact of a mandatory vehicle
inspection and maintenance program. Subroutine COSTS contains the
equations for estimating user inconvenience costs, inspection station
land, building, and management costs and labor training costs. COSTS
also computes the various figures-of-merit and average emission re-
ductions. The listing and flowcharts contained in Table 5-13 and
Figure 5-13 respectively describe in detail the techniques and data
assumptions used.
5.10 SUBROUTINE STATS
Subroutine STATS contains the algorithms for conducting a statis-
tical analysis of the predicted emission reduction results. The model
makes two basic assumptions: 1) all distribution functions can be
adequately described by tables regardless of their shape, and 2) these
distribution functions are independent of each other.
The model begins with a set of engine parameter distributions that
characterize the state of vehicles as they now exist.in the population.
These distributions are modified to reflect the maintenance treatment
and various system errors. There are basically three classes of errors --
inspection, maintenance, and model generated. The resulting distribution
yields an estimate of the emission variance for a fleet of vehicles that
has passed through the inspection/maintenance process. The final distribution
5-109
-------
SUBROUTINE PDECAY^)
SUM1 = 0
INITIATE K LOOP
FROM KSTART TO KSTOP
PDEBUG \. NO
ON
PRINTOUT HEADINGS
INITIATE M LOOP
FRM MSTART TO MSTOP
PARAMETER
DISTRIBUTED
Figure 5-12 Subroutine PDECAY Flowchart
5-110
-------
THIS PARAMETER
USED.TDIST =
YES
ADD = COEFBP x TMIL x TINT x SCALEBM
AMOUNT OF DETERIATION
PLUS =ADDx PRATE-FPERCx TINT/12 x (1-PP)
COMPUTE DETERIORATION MINUS VOLUNTARY
MAINTENANCE
N =2?
FIRST TIME
PERIOD
9
NO
RECOMPUTE DECAY BASED ON LESS THAN
COMPLETE TIME PERIOD . AND NO TESTING
PLUS = ADD x PRATE-FPERC x TINT/12 x PART
SUM = O
NN = NSTEPS + 1
LPLUS=O
Figure 5-12 Subroutine PDECAY Flowchart (cont.)
5-111
-------
MOVE TABLE ARRAYS
INTO BX, BY AND XBP, YBP
SHIFT ARRAYS BY LPLUS IN XBP, YBP
LOWER END REJECTED
XBP(l) = XBP(3) + PLUS
XBP(l) =YBP(3) x QRATE
XBP (2) = (XBP (1) + 3 x XBP (3) )/4
YBP (2) «(3 x YBP(l) +YBP(1) )/4
FILL IN POINTS TO PUT A TRAIL
ON THE DISTRIBUTION
Figure 5-12 Subroutine PDECAY Flowchart (cont.)
5-112
-------
LINT =
HIGH END
REJECTED
NO
YES
ADD = (e2 -l)/e2 x PLUS-ADD
RECOMPUTE ADD TO BE:
XDUM(L) = X+ADD
NO
400
YES
CALL STD2
TO COMPUTE SIGMA AND MEANS
AND NORMALIZE DISTRIBUTIONS
MOVE XDUM AND YDUM INTO
AX, AY AND TABLEX,TABLEY
PRINT PLOT HEADINGS
7
CALL EPLOT TO
PLOT PARAMETER DISTRIBUTIONS
Figure 5-12 Subroutine PDECAY Flowchart (cont.)
5-113
-------
©
UPPER END REJECT ION
300
AFFIRM PLUS * O
XBP(NN +2) = XBP(NN) + PLUS
YBP(NN + 2) = YBP(NN) x QRATE
XBP(NN + 1) = (3 x XBP(NN) XBP(NN +2) )/4
YBP(NN + 1) = YBP(NN) +3x YBP(NN +2) )/4
FILL IN POINTS TO PUT A TAIL
ON THE DISTRIBUTION
350
UPPER OR LOWER
END REJECTION
DELX = (XBP(NN + 2) + XBP(1 )/NSTEPS
DELXD =2/NSTEPS
INITIATE L LOOP FROM
ONE TO NN (33)
X = XBP(1) + DELXx (L-l)
YDUM (L) =FUNI(X, XBP,YBP)
LOOK UP YDUM (L) IN XBP-YBP
TABLE AS A FUNCTION OF X
ADD = DELXD x (L-l)
ADD RUNS FROM 0 TO 2
ADD = (eADD -l)/e2x PLUS
O
Figure 5-12 Subroutine PDECAY Flowchart (cont.)
5-114
-------
10
PRINTOUT DECAY DATA
RETURN J
Figure 5-12 Subroutine PDECAY Flowchart (cont.)
5-115
-------
Table 5-12 SUBROUTINE PDECAY LISTING
1
260oO
7 6 n 7 o
76090
26130
76110
76120
26130
76140
76150
26160
26170
26180
26190
26200
i 26210
26220
26230
26740
26250
26260
76270
26280
26290
26300
26310
26320
26330
26340
26350
26360
26370
26380
26390
26400
26410
26420
26430
26440
26450
26460
SJHP.rjllTlNE POECAY(JJ,N)
DlM^NSICr; XSP(50) , YBP( 50)
ul MEN SICK }.,ATE< 10, 3 ) , PRAT^l 13, 3)
L'IMENSIC'\ BX(35) ,HY(35) ,AX(35) , AY
COMMON /COM01/ AM3<3 ) , ALAS,
___+ t3APFA( 3) , BLD1 , BL02,
+ ATABLFM 9,10,3) ,ATAdLEY( 3,10,
COMMON /COM02/ CAKA,
+ CARSY, CBSUM,
+ CINCON, CPCB, CP
..___+ CN( 15,3,16) ,
+ L PART (10, 15)
CC ADD2
COMMON /COM03/
+ EMW(3) , EP(10,15)
+ FKECA, FRE08,
+ HORZN, HURZNY,
+ HPC(15,16),
+ HPS(6,15,16) ,
+ HPTOTS(16)
CC AOD3
COMMON /COM04/
+ KSTART, KSTUP,
+ LIOLC, LINT(16),
+ MBASE, MPH,
CC ADD4
COMMON /COM05/
+ NINTR, NINTR8,
+ NPTRN, NPTS,
+ GCIY, OCMY,
CC ADDS
COMMON /COM06/PARM(3,3
+ PC(15), PCS(15),
+ PP( 10,15) ,PS(6,15) ,
+ PAR(10,15,3),
+ PMdO.15),
+ PSA115), PTA(5),
+ .PAYFIN
COMMON /COM07/
(35) ~
AVV, B
3 S I G ( 3 ) ,
5,3),
3) , AST ABLX
CARI Y,
INT,
6XTRA,
(^,c,3 ),
CAR MY,
CCOtFdO) tCCOSTI, CCOSTM,
I, CPVPY, CSUM,
.._COEFL<( 15, 3) , ._ . COEFBP(_
DELPCV, DPI 10, 15) ,D6LEM(3
tEFF(lO) ,
FPFRCl 10,
HPCS( 15,1
HPT(5, 16)
ITE,
LUPT, LP
LPSPP( 10)
i^SPEC( 10J
15) ,
iNAME{50),
NMGDE,
•JSTEPS,
OPTI,
), PART,
PHI (14) ,
PT(5) ,
PAKl(10,3
PPICK(IC)
PCJi\F,
REINSP,
OELIT13),
3) ,
u) ,
t
ITL,
ICKdO) ,LL
,LSTAKT,
.MSTART,
MVPR( 10
.\1CNTR,
NO,
\TR,
OPTM,QPTS
PAYNEW,
PLO( 14),
PTOT,
,3) ,
, PPPICK.PS
PARIKT( 10
RNAME,
HPPdO,
HPTOT (1
ITP,
PICK,
LSTOP,
MSTOP,
, 15)
NEMIS,
NOPTS,
NTKB,
(50) ,OVC
PAY OF
PLTMAXC
PTS(5),
PLUS( 10
TAR, PI (1
,10,9)
RSIZE,
.BSIZF,
ASTABLYt 9,6, * )
C ARPOP( 16) ,
GGTT,
CARAY,
l.Q_,J 5)_,_
, lo) ,DfcLT (3) ,
15, 16),
6),
I TIME( 16),
NEMP,
N P AP ,
NPICM 16) ,
HK3 ) ,OVCHM(3)
F(3) ,
?),PMOOEL,
PAYADJ,
,15) ,
5,10),
RSTOP,
-------
26470
26480
26490
26500
26510
26520
26530
26540
26550
26560
! 26570
' 26580
26590
26600
26610
26620
26630
26640
1 26650
26660
26670
26680
26690
26700
26710
26720
26730
26740
26750
26760
26770
26780
26790
26800
26810
26820
26830
26840
26850
26860
| 26870
' 26880
Table 5-12 SUBROUTINE PDECAY LISTING (cont.)
+ RTYPE.
+• SALE, SALL,
+ SMODEL, STARTdS
+ SCALEGM(3),
+ SXCUT<6,3),
+ SIGME(IO),
+• SIGRATE, SIST,
+ STABLEX(33,6,15) ,
COMMON /COM10/
+• TINT, TOBE(3),
-»- TXTRA, TSIZEt
+ THIST(5,3,16) ,
+ TIMEMt lOtlii),
CC ADD10
COMMON /COM11/
+• X1BP( 3",3,6) , XINT,
+ XTMU6), XBASE(9,
CC ADD11
COMMON /COM12/
+ YES, YSUM,
+ Zl, Z2,
-t- Z7, Z8,
4- Z13, Z14,
+ ZCARI, ZCARM,
+ ZZ(3,3)
CC AOD12
COMMON /DEBUG/
+ LDEBUG, MDEBUG,
CC ADOD
REAL ITE,
+ MMS, MPH,
+ NAME, NO,
+ IN, MISFIRE
INTEGER RNAME,
+ TDIST, XLANE,
DATA ORATE/ .33,9*. 16,.
DATA PRATE/2.,1.,9.,0.
+• 2. ,1. ,0. ,2. ,1. ,9. ,0.,
DO 20 K=KSTART,KSTOP
J = JJ-»-5*(K-l)
IF(PDEBUG.EO.NO) GO TO
SALP,
,.3>, STAT,
SM(6,15 ),
SIGC10.3)
SIGMNEJ 10
SIGS(6,1
STA3LEY(
TAREA(3) ,
TONX,
TSIG13),
THISTTi 3,
TABLEXt 33
WF( 10) ,
XIMTB,
3), YBASE(9,
Y18P(3,3,
YTM(16) ,
Z3,
Z9,
Z15,
Z 1C,
ADEBUG,
POE8UG,
ITL,
MSPEC,
LDEBUG,
SITEI,
SITEI,
STIME(
,
),
5) ,
33,6, 15)
TDISTl 10,
TCTE(3) ,
TP6R(16,
16) ,
,10,15),
XLANE,
3)
10) ,
Y10BPI
Z4,
Z10,
Z16,
ZSUM,
QDE8UG,
JDEBUG,
ITP,
MU,
MOE8UG,
SITEM,
OPTI, PPICK,
33, 9*. 16, .33,9*. 16/
tO. ,0., 1. ,2. , 1. »0. ,2.
0., 0. ,1. ,2.
5
,1. ,0./
SITEM,
3), SUMBM
SPAR( 10,
SIGCEt
SIGP( 10,
SIGSOE,{
3) ,TIDLE ,
TPDB(3) ,
SLANE,
(3) ,
15,6),
3) ,
15) ,
3),
TIMEI(3,16) ,
TPDT( 3),
15), TMIL(16tl5)f
TIMEC(10,15 ),
TABLEY(33, 10,15)
XSUM,
Y2BP(3, 3
XCUT(10,3),
,10),
4,4, 10), Y2DBP<4,4,10) ,
Z5, Z6,
Zll, Z12,
Z17,
CDEBUG,
SDEBUG,
ITIME,
MVPR,
STAT,
PPPICK
, l.t 12. ,0
DDEBUG,
TDE3UG
»»0«,0. ,1.,
-------
Table 5-12 SUBROUTINE PDECAY LISTING (cont.)
00
26903
26910
2 6 92 G
26930
26^0
26930
?6970
26^0
26990"
27000
27010
27020
^7030
27050
27060
_270_70
2"70BO"
27090
27100
2 7 UO
27120
27130_
"27140
27150
2 716 3_
27170
27180
27_19_0_
27200
27210
27220
"27230
27240
2 7250
27260"
27270
272SO
_Lf
IF(PPICK(PPPICK) .NE.M GCTO 5
fcRITE- (6,3D)
+ <~PM~ ~ (> , jTrM=T,"l6T7 ( S"l GP"(":i, J / , M=Tt"N~PA~R')
DO 10 M=MSTART,MSTOP
JfJjM. F:0._5._gR_._M._EQ.6) Gu TU lj
IF( TDISKM, K).KE .1) GOTO 10
_ApjD=Cl£EJ_BP ( M_,_J_) * T I fsIT* < P A_R T*T_M_I_L ( U . J ) + ( l.-PART ) *Ttt IL ( N-1
IF'(N."E0.2)~ADO=COEFBP"(-.-l", J )"*TINf *TMI L(N, J)
PLUSJ.'I, J)=ADD*PRATE(M,,<) -FPERC ( X , K ) *T INT/ 1 2. * ( 1. -P P ( M,
t J J )
J ))
)»PART
NN=NSTEPS+1
LPLUS = 0 _
IF( LINfYy).EQ.l)
DO 2CO L=1,NN
,M, J
200
CONTINUE
IGO=L INT(M)
250
CC_
GU TP (250,300) t IGO
CONTINUE
REJECT LJ^iFR POKTILN _ ______
IF( PLUS(M,J ) .GT.O. T PLJSCV, J)=-0.01
X3P(1) =X8P( 3)* PLUSU",J)
YBPd )=
D-t-3.VxBP(3))/V.
Y8P(2) = (YBP( j)-»-3.*Y8P( l))/4.
GO TO 350
300
CC
CONTINUE
IF(PLUS
-------
I
vo
1 '* • _.' .
27320
27330
27340
27350
27360
27370
27330
27390
27400
27410
27420
27430
27440
27450
27460
! 27470
27480
27490
27500
27510
27520
27530
27540
27550
27560
27570
27580
27590
27600
27610
27620
27630
Table 5-12 SUBROUTINE PDECAY LISTING (cont.) , < ,
nO 400 L=1.NN
X=XBP( 1)+DELX*(L-1)
AY( L)=FUNHX,XBP,YBP,
ADD=DELXD*( L-l)
NrJ + 2)
ADD={EXP
-------
(
SUBROUTINE COSTS
MM =2
NTR = NTR + 1
NTRB = NTRB +
XX =1
ZERO OUT XSUM,
ZSUM, ICOST(l), CARI(l),
YSUM, CSUM, CBSUM,
GARB, CARC, CARD, CARA
COMPUTE DISCOUNTING
FACTORS TO BRING
FACILITIES (XKZP), EQUIPMENT
XKZE) AND LAND XKZL
COSTS BACK TO PRESENT VALUE
COST
#1
G>
INITIALIZE N LOOP
FROM 2 TO NTR
ITIME (N) = O
CAPEL (N) = O
COMPUTE NUMBER OF CARS
INSPECTED.
HPTOTx REINSP IS THE
PERCENTAGE FAILED TIMES
THE PERCENTAGE REINSPECTED
Figure 5-13 Subroutine COSTS Flowchart
5-120
-------
SUM CARI IN CARA
MAXIMIZE CARI INTO
CMAXI
CARM = NUMBER OF
CARS MAINTAINED.
CARS = NUMBER OF CARS
REJECTED BY THE SIGNATURE
INSPECTION
SUM CARM INCARB
SUM CARS IN CARC
COMPUTE TOTAL MAINTENANCE
TIME REQUIRED
100
Figure 5-13 Subroutine COSTS Flowchart (cont.)
5-121
-------
COMPUTE AVERAGE
NUMBER OF CARS PER
YEAR INSPECTED,
REJECTED AND MAINTAINED.
NO
VERIFYCARMYSCARSY
INITIALIZE N
LOOP FROM 2 TO NTR
COMPUTE TIME REQUIRED
FOR INSPECTION
YES
+Z14
UNLOADED"^ YES
TESTS
FRANCHISED GARAGE
INSPECTIONS
ZX = Z2
Figure 5-13 Subroutine COSTS Flowchart (cont.)
5-122
-------
COMPUTE TOTAL INSPECTION
COST (OPERATING)
COMPUTE TOTAL MAINTENANCE
COST (OPERATING)
TOTAL OPERATING COST = SUM OF
INSPECTION AND MAINTENANCE
OPERATING COSTS
COMPUTE INCONVENIENCE COST
FOR THOSE CARS WHICH FAILED
THE SIGNATURE INSPECTION BUT
PASSED THE PARAMETER INSPECTION
(ERRORS OF COMMISSION)
COMPUTE PER CAR INSPECTION
COST TO USER
COMPUTE TOTAL OPERATING
COST FOR INSPECTION AND
MAINTENANCE AND USER
TIME AND INCONVENIENCE
x DISCOUNTED TO PRESENT
VALUE
Figure 5-13 Subroutine COSTS Flowchart (cont.)
5-123
-------
222
SUM OCOSTI IN XSUM
OCOSTM IN ZSUM
COST IN CSUM
OCOST IN YSUM
SUM WITH SCALING BY TXTRA
OCOSTI IN XSUM
OCOSTM IN ZSUM
COST IN CSUM
OCOST IN YSUM
223
COMPUTE COST PER
VEHICLE PER YEAR
COMPUTE COST PER
INSPECTION
COMPUTE YEARLY OPERATING
INSPECTION AND MAINTENANCE
COSTS
SET SITEI = O
CCOSTI = O
CCOSTM = O
Figure 5-13 Subroutine COSTS Flowchart (cont.)
5-124
-------
©
I 10
STATELANE INSPECTION
FACILITIES
INITIATE N LOOP
FROM 2 TO NTR
COMPUTE NUMBER OF
INSPECTION SITES
COMPUTE ARRIVAL
RATE A
COMPUTE RATIO OF
ARRIVAL RATE TO
DEPARTURE RATE
CALL QUEUE ING MODEL
TO GET WAIT ING TIME
AND LENGTH OF QUEUE
COMPUTE USER INCONVENIENCE
TIME = INSPECTION TIME + AVERAGE
DISTANCE TO INSPECTION FACILITY
DIVIDED BY AVERAGE SPEED +
WAITING TIME IN THE QUEUE
COMPUTE USER INCONVENIENCE
COST FOR THOSE CARS WHICH FAIL
THE SIGNATURE INSPECTION BUT
PASS THE PARAMETER INSPECTION
(IE. ARE NOT MAINTAINED)
Figure 5-13 Subroutine COSTS Flowchart (cont.)
5-125
-------
COMPUTE OPERATING
INSPECT ION COST =
TOTAL INSPECTION TIME x
THE NUMBER OF EMPLOYEES
(PLUS MANAGERS) PER LANE
+ AMATORIZED CAPITAL COSTS
+ DATA PROCESSING COST
TOTAL OPERATING COST =
INSPECTION COST + MAINTENANCE
COST
COST(N) = TOTAL COST DISCOUNTED
TO PRESENT WORTH
YES
NO
SUM WITH SCALING BY TXTRA
OCOSTI INTO XSUM
OCOSTM INTO ZSUM
COST INTO CSUM
OCOST INTO YSUM
333
SUM OCOSTI INTO XSUM
OCOSTM INTO ZSUM
COST INTO CSUM
OCOST INTO YSUM
300
COMPUTE COST PER CAR
PER YEAR
COMPUTE COST PER INSPECTION
Figure 5-13 Subroutine COSTS Flowchart (cont.)
5-126
-------
COMPUTE AVERAGE YEARLY
INSPECTION AND MAINTENANCE
COSTS
CCOSTM = O
O
20
GARAGE AND STATE
LANE INSPECTION
COMPUTE TOTAL VOLUNTARY
MAINTENANCE COST (BASELINE)
TONX = O
TONY = O
TONZ = O
RESET NTR = NTR-1
NTRB = NTRB-1
INITIALIZE I LOOP
FROM 1 TO NEMIS (3)
TOTE = TAREA x CARPOP CONVERTED
TO TONS
TONYX = EMW x (TOBE-TOTE)
TOTAL EMISSIONS DELTA
Figure 5-13 Subroutine COSTS Flowchart (cont.)
5-127
-------
= £EMWx DELIT
INTEGRAL OF DELTA
TONZ =£EMWx (BHIST(NTR)-THISTT(NTR)
THE APPROPRIATE CONVERSIONS
IMPLEMENTED DELTA (LAST PERIOD)
PAYOFF =
TOBE-TOTE
TOBE
x 100
PERCENTAGE REDUCTION DUE TO
I/M PROGRAM
PAYNEW = XSUMAONX
PAYADJ = COST(NTR) x 12/(TONY x TINT)
PAYFIN =COST(NTR)/x 12/(TONZ x TINT)
Figure 5-13 Subroutine COSTS Flowchart (cont.)
5-128
-------
©
COMPUTE TON PER
DAY EMISSION RATES FOR
BASE AND TEST PROGRAMS
PRINTOUT ALL COST
ASSOCIATED DATA
f RETURN J
7
Figure 5-13 Subroutine COSTS Flowchart (cont.)
5-129
-------
COMPUTE TOTAL
USER TIME COST
LOOKUP COST OF EQUIPMENT
COMPUTE FACILITIES COST
COMPUTE LAND COST
ESTIMATE SIZE OF
STATION IN SQUARE FEET
COMPUTE TRAINING COSTS
COMPUTE TOTAL INSPECTION
OPERATING COST
DISCOUNT CAPITAL REQUIREMENTS
TO PRESENT VALUE
COMPUTE TOTAL YEARLY INSPECTION
HOURS REQUIRED
COMPUTE OPERATING MAINTENANCE
COSTS = MAINTENANCE TIME COST +
COST OF PARTS + OVERCHARGE
Figure 5-13 Subroutine COSTS Flowchart (cont.)
5-130
-------
5-13 SUBROUTINE COSTS LISTING
tn
~i
co
t»
27640
27650
27660
j 27670
; 27680
27690
27700
27710
27720
27730
27740
27750
27760
27770
27780
1 27790
27800
j " 27810
27820
27830
27840
: 27850
27860
i 27870
27880
27890
27900
27910
27920
27930
27940
27950
27960
27970
27980
27990
28000
28010
28020
28030
28040
SUBROUTINE COSTS
DIMENSION CARI (lt>) ,CARM(16) ,Tl
+ TCP(16) ,TT I ( 16) ,OCOST(16) ,CUS
2 ICOST( 16) ,CAPEL(16) ,ACAPC( 16
+ QCOSTI (16) ,OCOSTMd6),irfTIME<
DIMENSION CARS(16) ,CARSA( 16)
COMMON /COM01/
+ 6AREA13), BLD1,
+ 3HISK3 ,16) ,
+ ATABLEX(9,10,3) ,
COMMON /COM02/
+ CARSY, CBSUM,
+ CINCON, CPC3,
+ CN(15,3,16),
+ CPART(10,15)
CC ADD?
COMMON /COM03/
+ EMW(3) , EP(10,
+ FREGA, FREQB,
+ HORZN, HORZNY
+ HPC(15,16),
+ HPS(6, 15,16) ,
+ HPTOTS(16)
CC ADD3
AMd(3 ) ,AL
BMMK
ATA6LEY(9
CARA,
CCOEF
CPI,
COEFB
)
1
:•!
r
,
6
10
,
(
(
0 E L PC V
15) ,EFF(10
FPERC
,
HPCS(
HPT(5
COMMON /COM04/ ITC,
+ KSTAPT, KSTOP, LOPT,
+ LIDLE, LINT(16), LPSPP
-*- MBASE, MPH,
+ MU(10,3), MMS(
CC ADD4
COMMON /COM05/
+ NINTR, NINTRB
+ NPTRM, NPTS,
-t- OCIY, OCMY,
CC AOD5
COMMON /COM06/PARH(
+ PC(15), PCSI15
+ PP( 10,15), PS(6, 1
+ PAR(10,15,3),
+ PMdO,15),
+ PSA(15), PTA(5)
MSPEC
10,15) ,
(
i
f
(
(
1
1
1
1
)
1
5
1
1
1
NAME(50
, NMODE,
NSTEPS,
OPTI,
3,3), PART
1
), PHK14)
5), PT(5),
PAR1 ( 10
PPICK
, PCONF
(
,
I
(16) ,TEIMEM( 16),
( 16) ,
COSTB( 16) ,TTM
)
,1
0,
0)
( 16
AW, BINT,
BSIG(3), BXT
5,3),
3) ,ASTABLX(
CARIY,
fCCOSTI,
CPVPY, CSU
5,3) ,
0,
,1
6)
IP
0)
0)
},
,
,3
0)
DP( 10,15) ,
DELIT(3),
3) ,
6) ,
),
RA
9,6,3
CAR MY
CCOST
M,
COE
DEL
HPP
FB
EM
(1
, HPTOT
ITL,
ICK(IO) ,LLP
,LSTART,
,MSTART,
MVPRdO,
NCNTR,
NO,
NTR,
OPTM,OPTS(
PAYNEW,
PLO( 14) ,
PTOT,
,3) ,
IIP
ICK
LSI
*
f
OP
MSTOP
15)
NEMIS
NOPTS
NTRB,
50)
P
,
),
,
M,
P(
(3
0,
(1
,
T
,
,
B
SIZE,
ASTABLY< 9,6,3)
CARPOP(16) ,
CGTT,
CARAY,
10,15) ,
,16)
15,1
6),
I
,DELI(3) ,
6),
TIME( 16),
NEMP,
NPAR,
NPICK(16),
,GVCHH3
AYOFF(3)
PLTMAX(
PTS(5),
PLUS( 10
,PPPICK,PSTAR,
PARINTdO,10,
PI
9)
(1
) ,OVCHM(3)
,
3) ,PMOUEL,
PAYADJ,
,15) ,
5,10
),
-------
Table 5-13 SUBROUTINE COSTS LISTING (cont.)
21060
.PAYFIN
en
i
CO
ro
?8080
'~2~nb90~
2« no
2 8 1 K>_
2P12C
2 fl 1 3 1
? 8 1 4 0
2~8150
2R160
_28 1 70
28180
28190
28201
2P210
28220
?_& 23 0_
28240"
2P250
2826J3
'28270
28280
28 2 90_
28330"
2R310
28320
RTYPE
S"iLE,
SAIL,
SMODbl,
SCALEBM(
.S XC_U TJ 6_,_
SIGME(10
SIGKATE,
STABLEX(
STARTU5,
3) ,
3 J t
) ,
5 1ST ,
33,6,IJ>) ,
REINSP,
SALP.
3) , STAT,
S M ( 6 , 15 ) ,
SI G (_U_T_3J.
s i G~-INE ( io
RNAME,
S I T E I ,
RSIZE,
i, ITEM,
SLANE,
,
) ,
STIMfc{3), SUMf3M(3) ,
SPAR( 10, 15,6),
_ _ __ _S_I_GCE (31,
SJ.GPC 10, 15) ,
SIGSDE(3) ,
STAQLfYl 33,6, 15)
COMMON
TINT,
TXTKA,
T! ! T c T i c
TGrlE ( 3) ,
T S I Z E , __
T IMFM( 10, 15 ) ,
TAREA(3),
T C Nl X ,
_ J 3 IG ( 3 )_,.
THl'STT(3,
TAriLEXt33
TDISTdO,
TOTE(3),
T_P E M.IA»
1'j),"
,10,15),
?),TIOLE,TIMEI(3,
TPDB( 3) , TPDT(3
15 ) ,_ _TM_I L LLojJLL?
T IMEC(10,lb ),
TABLEY(33, 10,15
16J,
),
»
CC ADD10
CC
COMMON /COM
+ X1UP(3,3
_+ XTM < 1 6 ),
COMMON /COM
YES,
71,
Z7,
2JL3 •
ZCARI, "
ZZ(3,3)
H/
,6), XI NT,
XB ASE( 9,3
12/
__Y_SJJM ,
Z2,
ZR,
Z14
\rtf( 10),
XIivJTB,
),YBASE(q,
YlttP( 3,3,
Y T M (1 6 ) ,
XLANE,
XSUM, XCUT(10i3)
10 ),
Y2bP(3, 3,10) ,
Z3,
Z9,
Z15,
Z4,
ZlOt
Z16,
Z5,
Zll,
Z17,
Z6,
Z12,
ZCARM,
ZIC,
CC AD012
28330
283^0
28350
^28360"
28370
28380
COMMON /DEBUG/
LDEBUG,
(•iOEBUG,
AOEBUG,
PDEBUG,
BDEBUG,
QOE3UG,
CDEBUG,
SOEBUG,
ODEBUG
TDE6UG
CC ADDD
REAL
+ MMS,
+ NAVE,
ITE,
MPH,
NO,
ITL,
MSPEC,
LDEBUG,
ITP,
MU,
MDEBUG,
ITIME,
MVPP,
28390
28400
2J341C
28420"
28430
28440
IN,
INTEGER
TDIST,
MISFIRE
HNAME,
XLANE,
SITEI,
OPTI,
SITEM,
PPICK,
STAT,
PPPICK
REAL ICOST.LO
CC
*** COST MODEL
28450
28^60
-------
Table 5-13 SUBROUTINE COSTS LISTING (cont.)
2841CL
C7I
I
Co
CO
28480
28490
285GO
28510
28520
28530
28540
28550
28560
28570
28 580
28590
28600
28613
28620
28630
28640
28650
i o £ / r\
28670
28680
28690
28700
28710
23720
23733
28740
28750
28760
ICOST( 1)=0.
CARI < 11=0.
XX = 1.
CAR8=CARC=0.
CARA=0.
XKZP=(l.-SALP)*ZIC*(l.+ZIC)**ITP/(( 1 , + ZIC ) ** I TP-1 .) +1 1 C*5ALP
XKZE=(1.-SALE)*ZIC*<1.*ZIC)**ITE/({1.+ZIC)**ITE-1 .)+ZIC*SALE
XK7I-M — <;AM)*7Tf;T((l + 7T(')**TT1/<(1 + /ir)##ITI— 1 ) +7 I f #SAI 1
DO iOO N=2,NTR
I T I r-1 L J ,\ 1 - C A P E L ( N ) - 0 .
CARI (M=CARPJP('N}*( 1 ,-HHPT OT ( N) *RE IN SP )
IF(N.GE.NTR) XX=TXTRA
CAFA=CARA+CARI ( N) *XX
CMAXI = AMAXHCARId\-lJ , CARI < ;\ ) )
CAkM(N)=HPTOT(N)*CARKiM)/ ( 1 . + HPTOT ( N ) *RE I NSP )
CARS(N)=HPTOTS(iM)*CARI d\) / ( 1 . +HPT QT S ( N ) *RE I IMS P )
CARB=CARB+CARM( N)*XX
CARC~CAPC-«-CAR.S(N)'!cXX
TTW( N)=XTM (N)*CAP;I ( M
100 CONTINUE
CARIY=CARA/HORZNY
\_, Ar\tSi'~~v*ArND/ riUr\/_jjY
C~ A S ^ Y ~^f"APf^/M~l(5 ^ rvJ Y
CARSY = CAP.MY
It-i 5LANE.EO. 10HSTATF i GO TO ID
00 200 N-2-.NTR-
CC FRANCHISED GARAGE INSPECT IQiNi/ MA INTENANCE
23780
28790
2_8_8Q_q_
"28813
28820
cc ^jLfA^LLJJEJLAA/1^ _ _
T"t I l"jsi) =C AR I l"i'J) * T I i"i £ l"( OPT f, N f
ZX=Z2
..
" "OCDS T I { N ) = ZX* iN ) z i b* C AP I {i\ ) + UV CHI (OPT I ) "*C AR I {N")
aCOSTM{N) = ZX*TTM(,N)+TCP( K) +OVCHM (OPT 1 J*CARM( N)
OCOST (:si) =OCOSTI ( M) +OCOSTIM N )
._
28840
28853
_2_8860
28870"
28880
ICOST(N ) = Z9*(TIMEI(OPTI )+Z7 )*(CARI(MJ-CARMJN) )
CINCCN = Z9*{ TIME I (OPTIi^-Z7)
COST ( N )^(J_CyS TIN) +_OCjjS_T ( N U_*_( (_ 1_. +_Z4) /J_ i_. +Z 5 }__) **y R_
"lF"{NVGE".NTRJ~Gryfo" 222 "" "" " "~
XSUM=XSUM+OCOSTI(N)
-------
1
28B90
2P900
28910
23920
28940
2*950
23970
29COO
29020
29030
29050
290oO
29070
29080
29090
?9ljQ
29110
29120
29130
29140
29150
29T6C
29180
29190
29200
29710
29230
29240
29250
29260
29270
29230
2^290
293OO
Table 5-13 SUBROUTINE COSTS LISTING (cont.)
CSUM=CSLM+COST(N)
Y$UH=YSUtt+OCnST ( Nl J
GOTO 223
222 CONTINUE
XSUM=XSUM+nCOSTI (N)*TXTRA
CSUi< = CSUM-i-COST( N) *TXTRA
YSUiv.= YSUM + OCGST < N) *TXTkA
2?j CONTINUF
200 CONTINUF
IF (CARU.GT. 1.E-2GJ
* CPVPY=ZSUM/CARB+XSUM/CAKA .__. _
CP I=YSUM/CARA
HCl Y=XSUM/HORZNY
CCOSTM=0.
SITEI=0
CCOSTI=0.
GO TO 20
CC STiTELANF INSPECTION
CC FACILITIES SIZING USIKG I NCO. WI ENC E COSTS
10 DO 300 N=2,NTR
SITFI=STAT/XLANE-»-.99
XLAM=CMAXI/ ( STAT*250.*8.*60.*TINT/12.)
RHC=XLAM*ST IN|E(OPTI J/XLANE
CALL QUEUE ( RHO , LQ, WT L-1E( N) ,XLANE)
ITIME(NJ = STIME(OPTI ) + 2 .* SORT ( ( AL Ad/ SI TEI)/3.1-tl5)*2./
ICCST(N)=Z9*ITIME(N)/60.#(CARI (N)-CARM(N) )
CINCOf\i=Z9*ITIME(NJ /60.
CC COSTS CF FACILITIES, EQU I PMEiMT , L AND
CAE=ZZ(XLANE,LIDLEJ
CAP=Z10*(8LD1+BLD2*XLANE )
SIST=CAL/Z13
CAT=Z6*1{ JPTI )*CARM(N>
OCQST T(N)=(ZH-NEMP )*Z16*TT I ( N ) +
-------
Table 5-13 SUBROUTINE COSTS LISTING (cont.)
I
CO
29310
29320
29330
29340
! 29350
29360
29370
29380
29390
29400
29410
29420
29430
29440
29450
29460
29470
29480
29490
.2.9500
29510
29520
29530
29540
29550
29560
29570
29580
29590
29600
, 29610
29620
29630
29640
; 29650
; 29660
; 29670
29680
29690
29700
29710
29720
+ CAPEL (N)+Z15*CARI(N)
OCOST(N)=OCOSTI ( N) +OCOSTM ( N)
COST(N) =
-------
en
CO
o>
,, —
1
29730
29740
2973C
2Q760
2°77Q
29780
29790
79800
29810
29820
29R?0
29840
29850
29860
29870
29B80
29890
29900
29910
29920
2^930
29940
20950
29960
29970
29980
29990
30000
Table 5-13 SUBROUTINE COSTS LISTING (cont.)
TPD6{ I )=TORE(I )/(HQRZNY*365. )
66 CONTINUE
IF(CDEBUG.CQ.NQ) RETURN
WRITE (6f 304)
504 FORMATdHl,* FROM SUSRQUT I slE COST* //3X, *C AR I* , 6X ,*C ARM* »
1 7X,*TTM*,6X,*TCP*,6X,*TTI*,5X*OCOST*, 5X,*CO$T* ,4X, *I T 1 '-IE* , 4X,
2 *CAPEL*,4X,*OCOSTI*f 3Xt*OCC)STM*t 3X t*C03T8*/)
DO 505 N=lt\INTR
WRITE (6,502) C AR I ( N ) , CAR.'-I (N ) t TTM ( N ) , TCP (N ) , TT I { N) , OCOSTfN ) t
1 COST(M),ITIME(N)fCAPEL(N) , OC JoTI ( ,>l ) ,OCOSTM(N) , COSTB(N)
502 FOF^ATIZX, 12E9.2)
535 CONTINUE
WRITE(6,501) CARIY.CARMY , XSUM ,Y SUM TZSUM , CARA, CCOST I ,CPV PY,
1 CPIt iTAT.SITEI
501 FORMAT(/* CAR I Y = *E 1 2 . 5 , 1GX , *C AR MY = *E12.5,
1 /* XSUM= *E12.5,!?X,*YSUM= *E12 . 5 , 13X,*ZSUM= *E12.5,/
2 * CARA = *Elc.5/* CCOSTI = *E12.5/* CPVPY = *E12.5/* CPI = *
3 E12.5/* STAT = *I5/* SITEI = *I4/)
DO 530 I=l,NEMIS
WRITE 16,510) NAME ( I ) , TUNX , PAYNEW , P AYOPF( I) ,TOTE( I) ,
+ TAREA( I) ,TPDT( I ) ,TPi)B( I)
510 FORMATl// ,30X,A2,* EMISSION OcLTA*/ / ,5X,* TUN = *E15.5,5X,
+ * PAYNEW = *E15.5,5X,* PAYOFF = *£15.5//5X»* TOTE = *
+ E15.5,5X,* TAREA - *E1 5. 5//t 5X, * TPDT = *E15.5,5X,
+ * TPDB = *E15.5/)
530 CONTINUE
R E T UR N
END
-------
is compared with the distribution from a base fleet that has not
been subjected to a mandatory maintenance program. This comparison
determines if the program has produced a statistically significant
reduction in emissions for the species of interest.
The primary unit function of the statistical model is the inte-
gration of two distributions. This is accomplished mathematically by
convoluting two distributions. The convolution procedure combines two
independent distributions of a given population into a third distribution
that represents the sum of the first two. Convolution is linear in the
sense that the mean and variance of the new distribution are, respectively,
the sums of the means and variances of the two input distributions.
Similarly, the number of degrees of freedom of the output distribution
is the sum of the degrees of freedom of the two input distributions i.e.,
(n, - 1) + (r\2 - 1) = N3. Mathematically, the degrees of freedom repre-
sent the number of independent observations. If two independent distri-
butions are added together, the number of independent variables would
also be added to give the number of independent variables in the output
distribution. If many distributions are added via convolution, the
degrees of freedom of the resulting distribution would be expected to be
large.
Also built into the convolution procedure is a test that determines
whether or not a change in any one parameter distribution will have any
significant effect on the total distribution. If one of the input
ranges is sufficiently smaller than the other, then the smaller input
will be ignored, and the convolution step will be by-passed. This check
was built into the model to reduce the number of calculations during the
5-137
-------
convolution process. While the error introduced by ingoring distribution
with relatively small standard deviations is at most 2.5%, the accumu-
lative effect of this could bias the final distribution.
Those cars that fail the inspection test undergo a maintenance
treatment. This treatment modifies the initial distribution according
to the extent of maintenance and rejection rates. Next these engine
component distributions are converted, using the influence coefficients
to vehicle emission distributions. Lastly, the model errors (deterio-
ration, influence coefficient) are convoluted to give a final distribution.
This last step yields a distribution which corresponds to the mean
emission levels forecasted with the E/E model.
Finally, the adjusted emission distribution (without model errors)
is compared with the emission distribution of a base fleet. To do this,
convolution is used to subtract the former distribution from the latter.
This gives a distribution that represents the reduction in emission that
is obtained from the specific program. By numerical integration,
i.e. approximating the area under the "left hand side" of the distribution
curve, the 10% level of this distribution is calculated, and this is used
to test the statistical-significance of the emission reduction and deter-
mine confidence limits for emission reduction. This is the only valid
method to obtain the confidence limits from this distribution. In
particular, the standard normal test, also known as the z-score test,
cannot be used since it assumes a normal distribution with mean equal
to zero. However, the model contains an alternative test which compares
the test fleet and base fleet distributions without first combining them
into a single distribution.
5-138
-------
An alternate method of testing the significance of the emission
reduction is to compare the mean of the test fleet distribution and the
mean of the base fleet distribution by using a t-test. First, the model
uses an F-test to insure that the standard deviations are nearly equal.
This test gives confidence limits similar to the ones found by using
the numerical method. The t-test compares the two means with each other,
and the model test works with the difference of the two means. The com-
bination of the F-test followed by the t-test eliminates one convolution
and the numerical integration approximation and is thus, computationally
more efficient. However, these tests assume normal distributions, and
if the emission rate distributions are skewed, they may yield misleading
results.
Figure 5-14 presents a detailed flowchart for subroutine STATS. A
computer listing of STATS is given in Table 5-14.
5.11 UTILITY ROUTINES
GEEP employs several functions and subroutines which perform such
standard mathematical operations as computing means and standard deviations,
curve fitting, linear interpolation and integration. These routines are
further described in detail, with flowcharts and listings, in the following
sections.
5.11.1 Subroutine CONVOL
Subroutine CONVOL is a generalized routine which convolutes two
input distributions to generate a third. The input distributions are
stored in PI and Yl, P2 and Y2, with output in P3 and Y3. The sizes of
the two input distributions are LI and 12, while that of the output
distributions is N3. All input to CONVOL comes through an argument list.
Subroutine CONVOL first checks if either distribution is an approximate
5-139
-------
c
SUBROUTINE STATS
1
NN = NSTEPS +1
WHICH TYPE
OF ANALYSIS
EMPIRICAL
•0
ANALYTICAL
FILL DEX AND DEY
WITH ZEROS
10
Nl = N2 = N3= NN
INITIATE M LOOP FROM
MS TART TO MSTOP
IS MA
NON-DISTRIBUTED
PARAMETER
9
Figure 5-14 Subroutine STATS Flowchart
5-140
-------
30
AVERAGE PAR OVER
ALL VEHICLES USING
TPER. STORE AVERAGE
PARTIALS IN PAR2
50
MOVE PARAMETER DISTRIBUTIONS
INTO XI AND Yl
NORMALIZE X I, Y I
GENERATE MEASUREMENT
ERROR DISTRIBUTION AND
CONVOLUTE WITH XI, Yl.
STORE NORMALIZED
RESULT IN X3, Y3
FOR EACH EMISSION SPECIES
CONVERT AP TO AE BY MULTIPLYING
BY PAR2 AND CONVOLUTE DISTRIBUTION
INTO DEX, DEY
300
END OF PARAMETER
LOOP (M)
NO
-—I B
Figure 5-14 Subroutine STATS Flowchart (cont.)
5-141
-------
G>
I
INITIATE I LOOP
FROM I TO NEMIS
MOVE DEX, DEY
INTO X3, Y3
GENERATE AND CONVOLUTE
INTO X3 AND Y3 THE INFLUENCE
AND DETERIORATION COEFFICIENT
ERROR DISTRIBUTIONS
STORE RESULT IN XI, Yl FOR PRINTOUT
MOVE XBASE, YBASE INTO X2, Y2
1170
FIND STANDARD DEVIATION
OF TEST CASE EMISSION
DISTRIBUTION
NO
PRINTOUT MISCELLANEOUS
DEBUG INFORMATION
7
Figure 5-14 Subroutine STATS Flowchart (cont.)
5-142
-------
GET MEAN AND
SIGMA FOR BASE
CASE
COMPUTE MEAN AND
STANDARD DEVIATION
FOR TEST DISTRIBUTION
RESET TMU TO
MODEL RESULT
COMPUTE T*
COMPUTE T
VALUE
YES
PRINTOUT DATA
7
DELEM = 0
1180
DELEM = BMU-TMU-TSTAR x SIGDIFF
PRINTOUT DATA
7
Figure 5-14 Subroutine STATS Flowchart (cont.)
5-143
-------
1185
SHIFTIEST AND BASE
DISTRIBUTIONS TO MATCH
MEANS WITH THISTT AND
BHIST. TRANSPOSE TEST
DISTRIBUTION
1186
CONVOLUTE BASE WITH
TRANSPOSED TEST DISTRIBUTION
INTEGRATE UP TO CONFIDENCE
LIMIT. Z= SIGNIFICANT DELTA
Figure 5-14 Subroutine STATS Flowchart (cont.)
5-144
-------
INITIATE I LOOP FROM 1 TO NEMIS
2050
COMPUTE T* FROM
STORED STANDARD DEVIATIONS
AND MODEL COMPUTED MEANS
NO
DELEM= O
PRINT OUT RESULTS
NO
COMPUTE
T VALUE
YES
DELEM = BMU-TMU-TSTAR x SIG DIFF
PRINT OUT RESULTS
f RETURN J
Figure 5-14 Subroutine STATS Flowchart (cont.)
5-145
-------
Table 5-14 SUBROUTINE STATS LISTING
RUN2.3L 03/21/73. 17.56.03.
SUBROUTINE STATSJN, 10PT)
DEXt33,3),OEY(33,3),Xl<33),X2<33),X3<33),Yl(33),
000005
000005
DIMENSION
* Y2(33),Y3133) ,PCXBP< 5) , PCY8P15 ) , PAR2 ( 3)
COMMON /CCMOl/ AMB(3),ALAB, BINT,
BLD2,BSIG<3),BXTRA,BSIZE,
TABLEY(9,10,3),ASTABLX<9,6,3),ASTA8LY<9,6,3)
BAREAJ3), BLD1,
BHIST(3,16),
ATABLEX(9,10,3},A
COMMON /COM02/
CARSY, CBSUM,
CINCON, CPCB,
CARPOP(U),
000005
CARA~;CARIY,CAR MY ,
CCOSTI, CCOSTM, CGTT,
CPI, CPVPY, CSUM, CARAY,
COEFBP(10,15),
CN(15t3tl6)»
CPART(10,15)
COEFB(15,3),
CC ADD2
000005
COMMON /COM03/
*• EMW13), EP(10,15)
+ FREQA, FREQB,
+ HORZ.N, HORZNY,
+ HPC(15,16),
+ HPS(6,15,16) ,
DELPCV,
,EFFdO) ,
FPERCdO
hPCS(15,
HPT( 5,16
OP(
CEL
,3),
16),
),
1
I
0,
T(
li>
3)
),DELEM(
,
HPPdO
HPTOT(
3
,
1
,16
15,
6) ,
) ,DEL1(3)
16),
i
HPTOTS(16)
CC AD03
000005 COMMON /COMOW
+ KSTART,
+ LIDLE,
* MBASE,
KSTOP,
LINTd6
MPH,
* MU(10»3), MM5,
CC ADD*
000005 COMMON /COM05/
* NINTR,
•»- NPTRN,
* OCIY,
NINTRB,
NPTS,
OCMY,
CC ADDS
000005 COMMON /CCM06/PARM(3
* PCdSI, PCS(15)
ITE,
LOPT, LPI
), LPSPPdO)
NSTART,
MVPR
NAME(50) ,
NMODE,
NSTEPS,
OPTI,
,3) , PART,
, PHU14),
~i rs-v t &• «
ITL, ITP,
CK(10),LLPICK,
,LSTART, LSTCP,
( 10,15)
NCNTR, NEMIS,
NO, NOPTS,
NTR, NTRB,
CPTM,OPTS(50) ,OVCHI
PAYNEW, PAYOFFi
PLOd<»), PLTMAX(S)
ITIM£( 16) ,
NEMP,
NPAR,
NPiCK(lO) ,
(3),OVCHM(3)
3),
,PMODEL,
PAR(1O,15,3),
PMtlO.15) ,
PARl(10,3,3), PLUS(1O,15>,
PPICKI1O1 , PCPICK.PSTAR.PI <15, 1O> ,
-------
Table 5-14
en
n?j
000005
000005
^ v
+ PSA(15), PTA(5),
+ ,PAYFIN
COMMON /CCM07/
+ RTYPE,
+ SALE, SALL,
+ SMODEL, STARTd
* SCALEBM<3),
+ SXCUT(6,3),
+ SIGRATE, SIST,
+ STABL€X{33,6,15),
COMMON /COM10/
* TINT, TOBE(3)
* TXTRA, TSIZE,
*• THISTC5,3,16>,
* TIM£MUO,15),
CC ADD10
STATS
PCONF, PARINTU
REINSP, RNAME*
SALP, SITEI,
5,3), STAT, STIME
SM(6,15),
SIG(10,3),
SIGMNE(IO) ,
SIGS(6,15J,
STABLEY(33,6,15)
TAREA(3), TDISTdO
, TONX, TOT£(3),
TSIGO), TPER(16
THISTT(3,16),
TABLEX<33»10,15>,
••'
0,10,9)
RSJZE, RSTOP,
SITEM, SLANE,
(3),
SPAR( 10,15,6) ,
SIGCE(3J ,
SIGP{10,15),
,3),TIDLE,TIM€I (3,16),
TPDB(3), TPDT(3),
,15), TMILC16,15),
Tl«£CtlO»15l,
TA8LEY<33,10,15)
000005
COMMON /COM11/
X1BP(3,3,6), XINT,
XTM(16), XBASE(9,
WF(IO),
XINTB,
31,YBASE(9,3)
XLANE
XSUM, XCUT(10,3),
000005
000005
OOO005
000005
CC ADS11
COMMON /CCM12/
+ YES, YSUM,
* Zl,
* Z7,
+ Z13,
+ ZCARI ,
+ ZZI3,3I
CC AD012
Z2,
Z8,
Z14,
ZCARM,
COMMON /DEBUG/
+ LDEBUG, MDEBUG,
CC ADDD
REAL
-i- MMS, -
+ NAME,
t IN,
INTEGER
-«• TDIST,
ire,
MPH,
NO,
MISFIRE
RNAME,
XLANE,
Y18P*3,3,10), Y2BP«3,3,10J,
YTMC16) , Y108P<4,^,10*,Y2DSP<4,4,10J,
Z3,
Z9,
Z15,
ZIC,
AOEBUG,
PDEBUG,
ITL,
MU»
LDEBUG,
SITEI,
OPTI,
Z4,
Z10,
Z16,
ZSUM,
8DEBUG,
QOEBUG,
ITP,
MVPR,
MOEBUG,
SITEM,
PPICK,
Z5, Z6,
Zllf Z12,
Z17,
CDEBUG, ODE BUG,
SDEBUG, TDEBUG
IT! ME,
STAT,
PPPICK
-------
en
i
00
RUN2.3L
000005
000005
1
000005
000007
000011
000013
00001 1*
000022
000026
000032
000033
000053
000055
000063
000063
000063
00006^
000072
000073
000077
000100
000117
000124
000126
000135
000143
JD00145
000150
000160
000171
000203
000206
000211
Table 5-14 SUBROUTINE STATS LISTING (cont. )
0^/21/73. 17.56.03. STATS
DATA PCXBP/80.,90. , 95 . , 99 . ,99.9/
DATA PCYBP/. 84, 1.2 8, 1.64 5, 2. 33,3.087
CC IOPT =1 — FOR GIVEN MEANS AND SIGMAS FROM GEEP
CC IOPT = 2 ~ FOR STATS GENERATION OF MEANS AND SIGMAS
NN=NSTEPS+1
IF( IOPT.EQ.1) GO TO 2050
1 DO 10 1=1 ,NEMIS
DO 10 L=1,NN
DEX
-------
Table 5-14 SUBROUTINE STATS J.ISTING (cont.)
STATS
000222 190 FORMATUH1 ,/5X,*ENISSION NO.
000222 DO 200 L=1,NN
000224
000230
000235
200
I >*X3(L)
XHO=D£X
000244
000246
000257
000314
000316
CALL NORM(X1,Y1,N1)
CALL CONVOL(Xl,Yl,X3,Y3,X2,Y2,NltN3tN2)
CALL OISTPR(Xl,Yl,X3,Y3,X2tY2fNl,N3,N2,
000271
000274
-i- 50HCONVOL OF
DO 210 L=1,NN
DEX(L,I)=X2(L)
EM
ISS
ION
D
1ST
FOR
PARAME
TERS )
000301 210 DEY(L,I)=Y2(L)
000310 300 CONTINUE
000312 1000 CONTINUE
C
C
C
DEX,
OEY ARE
ERROR
THE
DIST.
TEST
»
FLEET
EMISS
I
ON
SPECIE
DECR
-
EMENT
00 1500 I = IfNEMIS
IF{SDEBUG.EQ.3HYES)
WRITE (6,190) I
000327
000331
000336
1100
DO 1100 L»1»NN
X3(L)=DEX(L,I)
Y3(L)=OEY(L,I)
000345
000355
000366
000421
000433
CALL TABLE(M,1 ,SIGCE( I ) , 0. ,X] , Yl , N 1 }
CALL CONVOL(X3,Y3t XI, Yl, X2 t Y2 ,N3 , Nl ,l\2 )
CALL DISTPR(X3,Y3,Xl,Yl,X2,Y2tN3,Nl,N2,
+ 50HSPECIE D
000400
000410
CALL
CALL
TABLE(M
DISTPR(
1ST +
,1
X2
»
»
SIG
Y2,
RESPONSE SURFACE ERRORS J
SDE
XI,
(I
Yl
) tO.,
»XlfY
XI, Yl
1,N2,
tM>
NNtNl
)
CALL DISTPR(X2tY2,XltYl,XI,Yl,N2,Nl ,N1,
50HEMIS. AND RESP. OIST. + EMISSICN DECAY ERROR
DO 1170 L=1,NPTS
000436
000443
000447
1170
X2(L)=XBASE(LtI)
Y2(LJ=Y8ASE«L,I)
CONTINUE
000452
000455
000501
606
CALL STD2(X1,Y1,N1,TMU,TSD)
IF(SDEBUG.EQ.YES) WRITE(6,606)
FORMAK* EMISSION - *,A2,*
NAMEd ) ,THiSTT( I ,N),TSD
MEAN AND SD (COSMETICI ZED)
r
-------
en
o
M
000501
000505
000510
000513
000516
000523
000527
000536
000541
000554
000554
000563
000570
000605
000605
000612
000612
000612
000616
000622
000641
000643
000643
000643
OOO647
OOO653
OOO&Sfe
|FAj 'able b-14 SUBROUTINt SIAIS L1SI1NG (cont. )
L ^3/21/7^. 17.56103. STATS
+ 2E15.8)
IF(NTEST.GT.l) GOTO 1185
BMU*BHIST(I,N)
6SD=BSIG(l)
CALL STD2(X3,Y3,N3,TMU,TSO)
TMU=THISTT(I ,N)
TSTAR=FUN1(PCONF,PCXBP,PCYBP,5)
SIGDIFF=SQRT(TSD*TSD/TSIZE+BSD*
BSD/BSIZE)
T=(BMU~TMU)/SIGDIFF
IF(I.EQ.l) WRITE (6,505) N
505 FORMAT(1H1,20X,*STATISICAL ANALYSIS OF EMISSION REDUCTIONS*,
+ //,30X,*YEAR *,I2//>
WRITE (6,1190) NAME(I)
IF(T.GT.TSTAR) GO TO 1180
WRITE (6,600) PCONF,T,TSTAR,TMU,BMU
600 FORMAT(/,5X,*ACCEPT THE NULL HYPOTHESIS.*/
+ 5X,*THERE IS NOT A SIGNIFICANT DIFFERENCE IN THE MEANS*,/
* 5X,*AT A CONFIDENCE LEVEL OF *
+ 5X,* T = *E15.4,5X,*TSTAR = *E
••• 5X,*TEST MU = *E15.4,5X,*BASE
OELEMi I,N)=0.
GOTO 1500
1180 CONTINUE
,F10.2/
15. 4/
MU = *E15.4//J
' • "" '^- 'z ^. f
A=BMU-TMU-TSTAR*SIGDIFF
DELEM(I,N)=A
WRITE (6,700) PCONF,A,T,TSTAR,TMU,EMU
GOTO 1500
700 FORMAT(/,5X,*REJECT NULL HYPOTHESIS.*,/ ^^ %^"
*• 5X,*THERE IS A SIGNIFICANT DIFFERENCE IN THE MEANS*,/
* 5X,*AT A CONFIDENCE LEVEL OF *
+ 5X,*THE LOWER CONFIDENCE LIMIT
+ 5X,*T = *E15.4,5X,*TSTAR = *E1
* 5X,*TEST MU = *E15.4,5X,*BASE
1185 CONTINUE
CALL ST02(X2,Y2,NPTS*BMU,BSO>
CALL ST02(X3,Y3,N3 ,TMU,TSD»
DO 1187 L=1,NPTS
1187 X2 tL»=X2C L >»BH IST( I .Nl-BMU
,F1C.2/
IS *,E15.4/
5.4/
MU « *E15.4//)
-------
tn
(7*
000670
000671
000703
000713
000713
000717
000723
000727
000736
000736
000750
000754
000755
000755
000757
000763
000766
000771
000775
001004
001007
001022
001031
001036
001053
001060
001060
001060
001064
001070
001107
001113
001114
TO n, laoie s-14 5UI
f^%M%T$fl8£
-------
identity with respect to the other. In this case, a convolution is not
performed, but the mean of the non-identity distribution is shifted by
the mean of the approximate identity and the new distribution is output
in P3 and Y3.
If neither distribution is an approximate identity with respect to
the other, CONVOL performs a standard numeric convolution of the two
distributions. A flowchart of CONVOL is found is Figure 5-15 and a
listing in Table 5-15.
5.11.2 Function AREA
The AREA routine integrates a parameter or mode emission distribution
based on cutpoints stored in XCUT or SXCUT. The limits of the rejected
portion of the distribution are determined by the LINT array and the
upper and lower values stored in the distribution. If LINT for a para-
meter is one, indicating the lower portion of the distribution is
rejected, the limits are set at the first entry and the cutpoint respec-
tively. If LINT is two for a parameter, indicating the upper portion of
the distribution is rejected, the limits are set at the cutpoint and the
upper value of the distribution respectively. All mode emission distri-
butions are rejected at the upper end, and therefore have no associated
LINT value. After establishing the rejected fraction integration limits
the AREA routine calls subroutine INTEG which performs a standard
numerical (trapezoidal) integration of the distribution between the
limits specified. The area under the rejected portion of the distribution
is returned in AREA.
For non-distributive parameters such as NO control, air pump,
/\
choke blade, and misfire, algorithms have been incorporated into the
5-152
-------
c
SUBROUTINE CON VOL
NPTS = L1
Nl = LI
N2=L2
MOVING INPUT VALUES INTO
INTERNAL VARIABLES
CALL SWITCH
WITH BOTH DISTRIBUTIONS TO
INSURE THEY HAVE INCREASING
X VALUES
COMPUTE MEDIANS FOR BOTH
DISTRIBUTIONS
MOVE PI AND Yl INTO P AND
Y RESPECTIVELY
MOVE P2 AND Y2 INTO PP AND
YY RESPECTIVELY
IMAX = 50
ZERO OUT D ARRAY
COMPUTE RANGE OF EACH
DISTRIBUTION
Figure 5-15 Subroutine CONVOL Flowchart
5-153
-------
DO
'THE RANGES^
DIFFER BY MORE
THAN A FACTOR
OF FIVE
YES
INO
SMALL A MIN 1 (RANGE 1, RANGE 2)
CELLWTH «SMALL/(NPTS-1)
FOR NEW CONVOLUTION DISTRIBUTION
CALL RESIZE
WITH BOTH DISTRIBUTIONS TO CHANGE
AX TO CELLWTH . (SMALLER OF THE TWO)
SUM = 0
RANGES = INT
RANGE!2 +RANGE22
CELLWTH
N3 = RANGE3 +2
YES
N3 = RANGE3 + 3
150
N4 = (N3 - Nl)/2
N5 = (N3 - N2)/2
Figure 5-15 Subroutine CONVOL Flowchart (cont.)
5-154
-------
/ES
NO
SHIR P AND Y DISTRIBUTIONS
TO CENTER OF P AND Y ARRAYS.
ZERO OUT OLD DATA AT BOTH ENDS
YES
NO
SHIFT PP AND YY DISTRIBUTIONS
TO CENTER OF P AND Y ARRAYS.
ZERO OUT OLD DATA AT BOTH ENDS
205
MEAN = (N3 + l)/2
INITIATE I AND J LOOPS
FROM 1 TO N0
II =1 +J
12 = 1 - J
13 =MEAN +J
14 = MEAN - J
Figure 5-15 Subroutine CONVOL Flowchart (cont.)
5-155
-------
D(l) = D(l) + Y(I4) + Y(l 2) x YY (13)
220
YY(MEAN)
SUM = SUM + D (1)1
Figure 5-15 Subroutine CONVOL Flowchart (cont.)
5-156
-------
NORMALIZE D ARRAY
BY DIVIDING BY SUM X CELLv/TH
STORE IN DD (FREQUENCY)
240
MED3 = MED1 + MED2
D (MEAN) = MED3
SET UP X VALUES IN
D ARRAY BY MOVING INTEGRAL MULTIPLES OF
CELLWTH TO EITHER SIDE OF MED3
260
RANGE1/RANGE2 ^ .2
MOVE Y1-Y3
MOVE PI - P3
BY MED2
N3 = LI
SECOND DISTRIBUTION
CONSIDERED AN
APPROXIMATE IDENTITY
AT MED2
I
RETURN J
Figure 5-15 Subroutine CONVOL Flowchart (cont.)
5-157
-------
320
MOVE Y2
MOVE P2
BY MED1
N3 = L2
Y3
P3 OFFSETTING
FIRST DISTRIBUTION
CONSIDERED AN
APPROXIMATE
IDENTITY AT
MED1
RETURN J
400
RANGES =D(N3) - D(l)
CELLWTH = RANGE3/(NPTS-1)
CALL RESIZE
TO CHANGE AX TO
CELLWTH
MOVE D
AND DD
450
INTO P3
INTO Y3
RETURN J
Figure 5-15 Subroutine CONVOL Flowchart (cont.)
5-158
-------
Table 5-15 SUBROUTINE CONVOL LISTING
en
01
vo
I
33220
33230
33240
33250
33260
33270
33280
33290
33300
33310
33320
33330
33340
33350
33360
33370
33380
33390
33400
33410
33420
33430
3344O
33450
33460
33470
33480
33490
335OO
3351O
33520
33530
33540
. 33550
33560
33570
33580
33590
33600
33610
2
4
10
C
C
c
c
c
c
c
c
c
c
/ •..-..•..•..... .... ,.'.'' ''"'-':
SUBROUTINE CONVOH P 1 ,Y1 , P2 , Y2 , P3, Y3 ,L1 ,L2 ,N3)
DIMENSION P(50),Y<50),PP(50)tYY(50) , 0( 50) , OD( 50 ) ,
+ P1(1),Y1( 1),P2( 1) ,Y2( 1) ,P3(1),Y3( 1)
REAL MED1,MED2»MED3 ; ', ; & r
NPTS=L1 ,
Nl = LI
N2 = L2
CALL SWITCH(Pl*YltNlJ
CALL SWITCH(P2,Y2,N2)
M£D2=P2UN2-H>/2)
DO 2 I = 1,N1
PI I) = PKI)
Y{ I ) = Y1U )
DO 4 1= 1,N2
ppcn = P2(i)
YY( I) - Y21IJ
IMAX = 50
DO 10 I = 1 ,IMAX
D( I > = 0.0
CALC. RANGE 1 AND RANGE2
RANGE1 * ABS
-------
tn
en
o
33630
33640
33650
33663
33670
33680
33690
33700
33710
3 3 72 0
33730
33740
33750
33760
33770
33780
33790
33800
33810
33820
33830
33840
33850
33860
33870
33880
33890
33900
33910
33920
33930
3.394.0
33950
33960
33970
33980
33990
34000
34010
34020
34030
34040
Tab!
140
150
C
C
c
160
170
175
180
-™
200
205
210
C
C
C
e b-lb SUBROUTINE CONVOL LISTING (cont.)
RANGE 3= I NT < SORT ( RANGE 1*RANGE 1+R ANGE2*R4NGE 2 ) /CE LL rtT H)
KTEST = RANGE3/2.0
IF( RTEST-INT(RTEST) .LE. 0.3) GO TU 140
N3 = RANGE3 + 2
GO TO 150
N3 = RANGE3 + 3
N4 = (N3-ND/2
N5 = (N3-N2J/2
SHIFT BCTH PRIMARY AND SECONDARY TO FIT RESULTANT
IF(N4 .LE. 0) GO TO 180
DO 160 I = l.Nltl
II = N1+N4-I+1
IJ = Nl-I+1
PHI) = P( I J)
Y( I I) = Y( I J)
DO 170 I = 1,N4,1
P( I ) =0.0
Y( I ) = 0.0
I I = N3-N4 +1
DO 175 I = II.N3
P( I ) = 0.0
Y< I) = 0.0
IF(N5 .LE. 0) GO TO 210
DO 190 I = l,N2tl
I I = N2+N5-I+1
IJ = N2-I+1
PP( II ) = PP( IJ)
YY( II ) = YY( IJ) '
DO 200 I = 1,N5,1
PP( I) = 0.0
YY ( I ) = 0 .-9
II = N3-N5 -H
DO 205 I = II»N3
PP( I) = 0.0
YY( I) = 0.0
MEAN = (N3+l)/2
CONVOLUTION
DO 230 I = 1.N3, 1
-------
CJl
Table 5-1 b SUBROUMNt CUNVUL LIMING (cont.)
34050
34060
34070
34080
34090
34100
34110
34120
34130
34140
34150
; 34160
34170
34130
34190
34200
34210
34220
34230
34240
34250
34260
34270
34280
3429C
34300
34310
34320
34330
34340
34350
34360
34370
34380
34390
34400
: 34410
34420
34430
34440
i 34450
34460
220
230
240
250
260
C
C
C
300
C
C
C
305
310
C
C
c
320
330
c
* DO 220 J = 1.N3, 1
11 = I+J
12 = I-J
13 = MEAN + J
14 = MEAN -J
IF{ 11 .GT. N1+N4) 11 = IMAX
IF< 12 .LT. 1 +N4) 12 = IMAX
IF(I3 .GT. N2+N5) 13 = IMAX
IF ( 14 .LT. 1 +N5) 14 = IMAX
D(IJ = DU) «• Y(I1)*YY(I4) + Y(I2J*YY(I3)
DU ) = 0(1) + Y( IJ*YY(MEAN)
SUM = SUM +0(1)
DO 240 I = ltN3,l
DD(I) = D( I )/
-------
Table 5-15 SUBROUTINE CONVOL LISTING (cont.)
en
i •
ro
r
34470
34480
34490
34500
34510
34520
34530
34540
34550
34560
34570
34580
. ,»j .-,- - - , , -, , £i.
"* RETURN
C
C RESIZE THE
C
RESULTANT
400 RANGE3=D(N3)-D< 1)
CELLWTH = RANGE3/CNPTS-1)
CALL RES I ZE( CELLWTH, RANGE 3, D,DD,N3)
DO 450 I =
P3( I) =0(1
450 CONTINUE
RETURN
END
1.N3
)
-------
AREA function for estimating rejection rates. These algorithms utilize
a rejected mean value of one (i.e., failed mode).
Figure 5-16 contains a detailed flowchart of the AREA function.
Table 5-16 lists the corresponding computer code.
5.11.3 Subroutine INTEG
Subroutine INTEG integrates an unspecified function over some given
bounds using a trapezoidal technique. The data is manipulated in tabular
form as a set of x's and corresponding y's at N points. The trapezoidal
technique utilizes the following equation:
N-l , ,
Area = £ |l/2(Yi + ] + Y.) Ax}
i=l
Subroutine INTEG is listed in Table 5-17 and flowcharted in
Figure 5-17.
5.11.4 Function FUN!
Many mathematical functions in GEEP are represented in tabular form.
Function FUN1 returns an interpolated value for y given an arbitrary x and
a table of values for x and y.
Function FUN! is flowcharted and listed in Figure 5-18 and Table 5-18
respectively.
5.11.5 Function FUN2
Function FUN2 contains a double table look-up with linear inter-
polation routine. Input to FUN2 is a matrix containing values of the
dependent variable and two coordinate vectors. FUN2 is called with
X and Y values which are referenced against the coordinate vectors to
5-163
-------
FUNaION AREA J
NN = NSTEPS + 1
AREA = 0
BRANCH TO APPROPRIATE
AREA DEPENDING ON
PARAMETER NUMBER
J
1
2
3
4
5
6
7
8
9
10
11
12-
13
14
15
16
IDLE CO
RPM
TIMING
MISFIRE
NOX
AIR PUMP
PCV
AIR CLEANER
VACUUM CHOKE KICK
HEAT RISER
HC - IDLE (MODE EMISSION 1)
CO - IDLE (MODE EMISSION 2)
NO - IDLE (MODE EMISSION 3)
HC - 45 MPH (MODE EMISSION 4)
CO - 45 MPH (MODE EMISSION 5)
NO - 45 MPH (MODE EMISSION 6)
Figure 5-16 Function AREA Flowchart
5-164
-------
DISTRIBUTED PARAMETERS
LINT= 1?
CUT LOWER PART
OF DISTRIBUTION
XLOR = TABLE X(l)
XHIR = XCUT
REJECTED PORTION INTEGRATION LIMITS
50
XLOR = XCUT
XHIR= TABLE X(NN)
REJECTED PORTION INTEGRATION
MOVE TABLE ARRAYS
INTO
BX, BY AND XBP, YBP
100
150
Figure 5-16 Function AREA Flowchart (cont.)
5-165
-------
160
LL = M- 10
XLOR = SXCUT
XHIR = STABLE X(NN)
REJECTED PORTION INTEGRATION LIMITS
MOVE STABLE ARRAYS INTO
BX, BY, AND XBP, YBP
190
DISTRIBUTED PARAMETERS
AND MODE EMISSION
MODEL
CALL NORM
TO NORMALIZE THE
XBP, YBP DISTRIBUTION
CALL INTEG
TO INTEGRATE DISTRIBUTION
FOR REJECTED PERCENTAGE
Figure 5-16 Function AREA Flowchart (cont.)
5-166
-------
PRINTOUT AREA DATA
7
RETURNJ
MISFIRE
AREA = 0
YES
COMPUTE AREA USING
COEFBP COEFFICIENT
RETURN J
RETURN
COMPUTE AREA USING
COEFBP COEFFICIENT
RETURN
NOX CONTROL
Figure 5-16 Function AREA Flowchart (cont.)
5-167
-------
4 AIR PUMP
COMPUTE AREA US ING
COEFBP COEFFICIENT
RETURN
0
CHOKE BLADE SETTING
COMPUTE AREA USING
COEFBP COEFFICIENT
RETURN
Figure 5-16 Function AREA Flowchart (cont.)
5-168
-------
Table 5-16 FUNCTION AREA LISTING
CJl
I
(0
34590
34600
34610
34620
34630
34640
34650
34660
34670
34680
34690
34700
34710
34720
34730
34740
34750
34760
34770
34780
34790
34800
34810
34820
34830
34840
34850
34860
34870
34880
34890
34900
34910
34920
34930
34940
34950
34960
34970
34980
34990
FUNCTION AREA(XUPT,M, J,
DIMENSION X6P(35), YBP( 3
COMMON /COM01/ AMd
+- BAREAC3), 8LD1,
+ BHIST(3,16),
+ ATABLEX(9, 10,3) , ATA
COMMON /COM02/
+ CARSY, C6SUM,
+ CIiMCON, CPCB, CP
+ CN( 15,3, 16) ,
+ CPART(10,15)
CC AOD2
COMMON /CGM03/
+ E M « ( 3 ) , E P ( 1 0 , 1 5 )
+ FRECA, FREQB,
+ HORZN, HORZNY,
+ HPC(15,16),
+ HPS(6,15,16) ,
+ HPTOTS(16)
CC ADD3
COMMON /COM04/
+ KSIART, KSTCPi
+ LIDLE, LINTU6),
+ M8ASE, MPH,
+ MU( 10,3) , MMS( 10,
CC ADD4
CGMtXCN /COM05/.
+ NINTR, NINTR8,
-i- NPTRN, NPTS,
+ OCIY, GCMY,
CC ADDS
CUMMGN /COM06/PARM(3f3
+ PC(15), PCSC5),
•»- PP(10,15) ,PS(6,15),
+ PAK(10,15,3) ,
+ PM(10,15),
+ PSA(15), PTA(5),
+ ,PAYFIN
COMMON /CGM07/
+ RTYPE,
+ SALE, SAIL,
i
K.lvJ)
5)
(3),ALAB, AVV, '3INT,
ALDZ, dSIb(3), BXTRAt BSIZE,
SMMK 10,15,3),
8LEY(9,10,3) , AS TA8LX( 9,6,3 J, AST ABLY ( 9,6,3 )
CARA, CARIY, CARMY, CARPOP(16),
CCOEF< 10) ,CCGSTI, CCOSTM, CGTT,
I, CPVPY, CSUM, CARAY,
COEF3(15,3), COEFBP( 10,15) ,
DELPCV, OP( 10,15) , DEL EH (3 ,16) ,DELI (3) ,
,EFF(10), OELIT(3),
FPERC( 10,3) ,
riPCS(15,16), HPPdO, 15,16),
HPT(5,16), HPTOT116),
ITE, ITL, ITP, I TIME (16),
LOPT, LPICK (10) ,LLP ICK,
LPSPP(IO) .LSTART, LSTOP,
MSPECUO) ,MSTART, MSTOP,
15), MVPR(10,15)
MAME(50), NCNTR, NEMIS, ,\EMP,
NMODE, NO, NOPTS, NPAR,
.NiSTEPS,
-------
Table 5-16 FUNCTION AREA LISTING (cont.)
en
i
-vl
o
35000
35010
35020
35040
3S050
3'j060
^5070
350RO
35090
+ SMODEL,
-t- SCALtBM
+ SXCUTI6
STARTJ 15,3)
(3) ,
.3),
+ SIGRATE, SIST,
+ STAl?LEX(33,6,15) ,
COMMON /CGM10/
+ TINT,
+ TXTRA,
+ THIST(5
T03E(3),
TSIZE,
,3,16) ,
S
S
S
T
, STAT,
M(6,15) ,
IG(10,3)
IbMNEt 10
SIGS(6,1
STAuLtYt
AREA(3 ) ,
T 0 N X ,
TSIG13) ,
THISTT(3,
STI
),
5) ,
33,6, 15
TOIST(
TOTE (3
TPER(
ME(
)
10,
),
16,
3»
S
S
3)
T
15
T
j SUMbM(3
PAR< 10
SIGCfc
IGP( 10
SIGSOE
,TIDLE
PDB( 3)
), TM
IMECd
,
(
,
(
,
,
I
G
15
3)
15
3)
TI
L(
,1
) ,
,6) ,
) ,
ME 1(3, 16),
TPDT( 3),
16,15) ,
5),
TA8LEX( 33,10,15)
35110
35120
35130
35140
'51.50
35160"
35170
5180
3"5190~
35200
35_2JLO_
35220
35230
35240_
35250
3526C
35270
"35280
35290
+ TIMEH(10,15),
CC A0010
COMMON /CDM11/ _
+ X1BP(3, 3,6)","XINTT
+ XTM(16), XUASE(9,3),YbASE(9,3)
CC ADD 11
TA6LEYC33,10,15)
XLANE,
XSUM, XCUT(10,3),
CC
CC
COMMON /CO
+ YEi>,
+ Zl,
-»- Z7,
*• Z13,
+ ZCARI,
+ ZZ(3,3)
AD012
COMMON /OE
+ LDE3UG,
ADDD
YSUM,
Z2,
za,
Z14,
BUG/
MOEbUG,
YTM(16) ,
Z3,
Z9,
Z15,
ZIC,
AUEBUG,
POEtiUG,
Y1DBP!
Z4,
Z10,
Z16,
ZSUM,
BOEBUG,
QDE3UG,
Y2BP(3,3,10) ,
[4,4, 10), Y20dP<4,4,!0) ,
Z5, Z6,
Zll, Z12,
Z17,
CDEBUG, DDtBUG,
SDEBUG, TJEBUG
KhAL
ITL
ITP
ITIME,
__
35310
35320
35340
35350
35360
35?7^
35380
35390
"35400
35410
CC
CC
CC
CC
C:
L :
" CC
CC
MhS,
NAME,
INTEGER
TOIST,
INTEGER XOPT
MPH,
NO,
MISFIRE
XLANE,
MSPEC,
LOE3UG,
SITEI ,
UPTI,
MDEBUG,
SITEM,
PPICK,
MVPR,
STAT,
PPPICK
XOPT - FUNCTION OPTIUN
0 - F(X) — FUNCTION
1 - X*F(X) — EXPECTION VALUE
2 - F(X) — ONLY (NO MAINTENANCE)
3 - F(X) — AREA ONLY (.MC MAIi\TAINANC£
4_- F(X)*X — _tX_P£CTt:Jp VALUE (NO MA INT.
LIN'T" - "LI MIT'S OF ""INTEGERAT'I GN CRITE'R IA
- i — XLO TO XCJT
AT
)
ALL )
-------
Table 5-16 FUNCTION AREA LISTING (cont.)
tfl
35420
35430
35440
35450
35460
35470
35480
35490
35500
35510
35520
35530
35540
35550
35560
35570
35580
35590
35600
35610
35620
35630
35640
35650
35660
35670
35680
35690
35700
35710
35720
35730
35740
35750
35760
35770
35780
35790
35800
35310
35820
35830
CC - 2 — XCUT TO XHI
NN=NSTEPS+1
AREA=0.
GO TO (1,1,1,2,3,
1 IGO=LINT(M)
GO TO (10,50) ,IGO
10 CONTINUE
CC CUT LOWcR PORTION
XLOR=TABLEX( 1,M, J)
XHIR=XCUT(M,K)
GO TO 100
50 CONTINUE
CC CUT UPPER PORTION
XLOR=XCUT(M,K)
XHIR=TAELEX(NN,M,J
100 CONTINUE
DO 150 L=1,NN
XBP(L)=TA3LEX(L,M
YBP
, J)
LL, J)
LL,J)
NN)
I R, XL OR ,XBP,YBP,iM STEPS, A)
IF( ADEBUG.EQ.NQ) RETURN
WRITE (6,225) M, J, K, XOPT, AREA ,DELXL , XLQR, XHIR
225 FORMATt 1H1 , 5X, *PAR AMETER NO. *, 12 , 5X ,*POWERTRAI N NO.*,
+ 12 ,5X,*CONTRGL TY
+ 5X,*AREA = *E15.4
+ 5X,*XLG REJ = #E1
RETURN
2 CONTINUE
PE *, I2//5X,*XOPT = *,I2,
, 5X,*DELX = *E15.4/
5.4,5X,*XHI REJ = *E15.4X)
-------
Table 5-16 FUNCTION AREA LISTING (cont.)
•vj
ro
•1
1
35840 C
?5850 CC
35860
35870
35880
35890
35900 3
35910 C
35920
35930
35940
35950 4
35960 C
35970
35980
35990
36000 5
! 36010 C
36020
36030
36040
36050
MISFIRE DISTRIBUTION
DEJECTED PERCENTAGE
A R E A= 0 .
IF(LIDLE.EO.Z) AREA = CGEFLiP(4, J)*TMIL(N,J)*T INT
+ *SCALERM(1)
R E T UR N
CONTINUE
NOX DISTRIBUTION
AREA=COEFBP(5iJ)*TMILMtJ)*Tr>JT
RETURN
CONTINUE
AIK PUMP DISTRIBUTION
AREA=CCEFBP(6, J)*TMIL(N,J )*Ti;-JT
* *SCALEriM{ 1 J
RETURN
CONTINUE
CHOKE BLADE SETTING
AREA=COEF3P( 10,J)*TMIL(N,J)*TINT
+ *SCALE8M(1)
RETURN
ENO
-------
c
SUBROUTINE INTEG
NN = NSTEPS + 1
A=0
DELXL = (XHI - XLO)/NSTEPS
INITIATE I LOOP FROM
1 TO THE NUMBER OF POINTS
X = XLO + (1-1) x DELXL
Y = FUNI (X)
LOOK UP Y VALUE AT X
A = Ax DELXL
( RETURN J
Figure 5-17 Subroutine INTEG Flowchart
5-173
-------
Table 5-17 SUBROUTINE INTE6 LISTING
en
i
37770
37780
37790
37800
37810
37820
37830
37840
37850
37860
37870
37880
37890
37900
37910
37920
37930
SUBROUT INF
DIMENSION X
NN=NSTEPS+1
INTEG(IGPT,XHI,XL(JtXBP,YBP, NSTEPS, A)
BPU ) ,YB?( 1)
A=0.
OELXL=( XHI-XLO)/NSTEPS
00 200 1=1, NN
X=XLu+< 1-1) *DELXL
Y=FUN1(X,XBP,YBP,NN)
IFCY.LT.O.) Y=0.
IF( IOPT.EO.
A=A+Y
IF( I.EO.l)
IF( I.EU.NN)
200 CONTINUE
A=A*DELXL
RETURN
END
1) Y=Y*X
A=A-Y/2.
A=A-Y/2.
-------
c
FUNCTION FUNI
INITIATE II LOOP
FROM 2 TO THE NUMBER OF
POINTS IN XBP AND YBP
DX=.(X-XBP(I 1))/(XBP(1)-XBP (I- 1) )
FUNI = YBP (I- l) + DXx (YBP (I)-YBP (I 1))
C RETURN J
Figure 5-18 Function FUNI Flowchart
5-175
-------
Table 5-18 FUNCTION FUN1 LISTING
in
i
37940
37950
37960
1 37970
37980
i 37990
38000
38010
38020
1 38030
38040
i 38050
3F~60
3,i '0
38^«0
CC
CC
CC
1
10
20
FUNCTION FUNKXt XBPtYBPtNf
LINEAR INTERPOLATION
DIMENSION XBP(N) ,Y3P(N)
DO 1 11=2, N
I = I I
IF( X .LT. XBP( I ) ) GO T!J 10
IF(XBP< 1-1) .NE.XBPC I ) ) GUTO 20
FUN1=Y8P( I)
RETURN
DX=(X-XBP(I-1) )/(XBP(I )-XBP(I-m
FUN1 = YBP( I-1) + DX*(YBP(I )-YBP< 1-1) )
RETURN
END
-------
get the appropriate entries in the storage matrix. A linear interpolation
is performed (in two dimensions) to obtain the required value.
Figure 5-19 presents a flowchart and Table 5-19 contains a listing of
FUN2.
5.11.6 Subroutine FIT
Subroutine FIT performs a least square binomial curve fit using
orthonormal polynomials and inner products. The Chebyshev technique is
used to generate an approximation from tabular data.
Figure 5-20 exhibits a flowchart and Table 5-20 provides a listing
of subroutine FIT.
5.11.7 Function UNION
The function UNION computes the total rejection rate for N individual
rejection fractions. Input to UNION are the individual probabilities,
the number of values and a flag indicating whether these are parameter
or mode emission rejection rates. For parameter rejection rates, function
UNION simply computes the set theoretical union of probabilities and
returns that value in functional variable UNION. For mode emission re-
jection rates the function computes the set theoretical union corrected
for non-independence. This correction is necessary because of the statisti-
cally significant dependence observed between several of the mode emissions,
Output from function UNION is the function itself. A flowchart of UNION
is given in Figure 5-21 while Table 5-21 presents a computer listing.
5.11.8 Subroutine QUEUE
Subroutine QUEUE contains a standard queuing model for a multiple
server Poission input queuing problem. Input to QUEUE is RHO, the ratio
of arrival time to serving time and J, the number of lanes in the
5-177
-------
FUNCTION FUN2
DETERMINE LOCATION OF
ARG2 IN THE ARG2BP VECTOR
LINEARLY INTERPOLATE
BETWEEN TABLE POINTS TO COMPUTE
CORRECT VALUE
RETURN
Figure 5-19 Function FUN2 Flowchart
5-178
-------
Table 5-19 FUNCTION FUN2 LISTING
en
i
62790
62800
62810
62820
62830
62840
62850
62860
62870
62880
62890
62900
62910
62920
62930
62940
62950
FUNCTION- FUN2(ARG1,ARG1BP,ARG2,ARG2BP,FUN2BP, 11,12)
DIMENSION ARGIBP(II) ,ARG2BP(I2) ,FUN2BP ( I 1 , 12)
DO 10 JJ1=2,I1
Jl^JJl
10 IF{ARG1.LE.ARG1BP{ Jl))
20 DO 30 JJ2=2t 12
J2=JJ2
30 IF(ARG2.LE.ARG2BP(J2))
40 ARG=ARG1BP( Jl-1)
FUN*FUN2BP( J1~U J2-1 )
DX=
-------
(SUBROUTINE FIT)
INITIATE I LOOP
FROM 1 TO 3
= C=O
INITIATE J LOOP
FROM 1 TO N
COMPUTE VALUE OF CHEBYSHEV
POLYNOMIAL NUMBER J
Al = A (I)
A2 =-2 x A (2)/M - 6 x A (3)/M x (M-l)
A3 = 6 x A (3)/(M x (M-])
RETURN
Figure 5-20 Subroutine FIT Flowchart
5-180
-------
Table 5-20 SUBROUTINE FIT LISTING
en
oo
38090
38100
38110
38120
38130
38140
38150
38160
38170
38180
38190
38200
38210
38220
38230
38240
38250
38260
38270
38280
38290
38300
SUBROUTINE F IT ( Y, N , A 1 , A2 , A3, II)
DIMENSION A(3) ,0(3,2)
DIMENSION Y(3,16)
COMMON /CQM99/ OPTI ,OPTM, XL ANE, SLANE , RTYPE , YES, NO,RSTOP r
+ SMODELtPMODEUNAMElSO) ,OPTS ( 50 ) t NQPTS ,SI TE I , SI TEM, RNA«E,L I OLE
COMMON /DEBUG/ 8 DEBUG ,MDE BUG, TOE BUG ,G DEBUG* AOEbUG,LDeBU G, POEBUG,
+ DDEBUG,ODE6UG,SOE8UG
DATA D/0., 2. ,2*0. ,2*6. /
DO 30 1=1,3
B=C=0,
DO 20 J=1,N
F=l.-0( I,1)*(J-1)/(N-1 }+ri( I ,2)*(J-i)*( J-2)/UN-2)*(N-l) )
B = B+Y( II,J)*F
20 C=C+F*F
30 A( I J=B/C
M=N-1
A1=A{ l)n-A(2) + A(3)
A2=-A(2)*2./M-A(3)*6,/M-6.*A(3}/(M*(M-1}J
A3=A( 3)*6./ (M*(M-1 ) )
40 FORMAT(* Al = * , E 12. 5 , 5X , *A2 = * , E 1 2. 5, 5X, *A3 = *,E12.5/)
RETURN
END
-------
^FUNCTION UNIONj
INITIATE I LOOP
FROM 2 TO N
I PT = PT + P (I) - PT x P (I)
NO
Figure 5-21 Function UNION Flowchart
5-182
-------
PP(1) = P
PP (2) = 0
(2) -CON! x P(l)x P(2)
PP (2) = P (4) + P (5) - COM2 x P (4) x P (5)
PT = PP (1) + PP (2) - PP (1) x PP (2)
UNION = PT
RETURN
Figure 5-21 Function UNION Flowchart (cont.)
5-183
-------
Table 5-21 FUNCTION UNION LISTING
<• , " i -•-'" ' *-*,.' '
38310
38320
38330
38340
38350
38360
38370
38380
38390
38400
38410
38420
38430
38440
3R450
38460
38470
38480
38490
38500
38510
38520
FUNCTION UNION! P,N,K)
DIMENSION P(N)
DIMENSION PP(4)
DATA CON1,CON2/1.2,1.05/
IF(K.GT.l) GOTO 10
PT= P( 1)
IF(N.LT.2) GO TO 5
DO 1 1=2. N
1 PT=PT+P(I)-PT*P(I )
5 UNION=PT
RETURN
10 PT=P(1)
IF(N.LT.2) GOTO 7
PP( 1) = P( 1)4-P(2)-CON1*P< 1J*P(2)
PP(2)=0.
IFIP(4).LE.O.) GOTO 8
PP(2)=P<4)+P(5)-CON2*P{4)*P(5)
8 CONTINUE
PT=PP( l}-*-PP(2)-PP(l)*PP(2 )
7 UNION=PT
RETURN
END
-------
inspection station. Output from QUEUE are ZQUEI, the expected size of
the queue and WTQI the expected waiting time in the queue. The equations
for ZQUEI and WTQI are fully documented in Volume III. Figure 5-22 gives
a flowchart for subroutine QUEUE. A detailed listing of QUEUE is present
in Table 5-22.
5.11.9 Function IFACT
Function IFACT is a GEEP utility routine which computes the factorial
of an input J. Output from IFACT is simply J factorial stored in the
functional variable IFACT.
J
IFACT(J) = J! = £ I
1=1
A flowchart of IFACT is given in Figure 5-23. Table 5-23 presents the
actual computer code.
5.11.10 Subroutine STD
Subroutine STD, a GEEP utility routine, computes the mean and
standard deviation of an input vector of N real numbers, X. The com-
putations in STD are simply:
SD =J (X-AVE.)
~~
2
These are simply the standard equations for average and standard deviation.
STD outputs AVE and STD. Figure 5-24 contains a flowchart and Table 5-24
a listing of STD.
5.11.11 Subroutine STD2
GEEP subroutine STD2 computes the mean and standard deviation of an
input distribution. The input distribution is specified by two vectors,
X and Y, and N the length of each vector. Output from STD2 is
5-185
-------
SUBROUTINE QUEUE
C=J
DPO = O
INITIATE N LOOP
FROM 1 TO J
NN = N - 1
NF = NN:
YES
DPO =DPO + (C x RHO) (N-1)/NF
DPO = DPO + (C x RHO)C/(CF x (1 - RHO) )
PO = 1/DPO
ZQUEI = RHO x (C x RHO)C x PO/(CF x (1 - RHO)2 )
ZQUEl/RHO
(
RETURN
Figure 5-22 Subroutine QUEUE Flowchart
5-186
-------
Table 5-22 SUBROUTINE QUEUE LISTING
oo
38530
38540
38550
38560
38570
38580
38590
38600
38610
38620
38630
38640
38650
38660
38670
38680
38690
38700
SUBROUTINE QUEUE (RHO, ZQUE I , WTQI
INTEGER C
OJ
DPO=0
DO 10 N=1,J
NN=N-1
NF = IFACT(iMN)
IF(N.EO.l) GO TO 10
DPO=DPO-HC*RHO)**(N-1)/NF
10 CONTINUE
ICF=IFACT( J)
CF=ICF
DPO=OPO-HC*RHOJ**C/ (CF* { 1 .-RHO)
PO=1/DPO
ZOUEI=RhO*(C*RHO)**C*PO/(CF*(l.
RETURN
END
,JJ
-RHO )**2)
-------
NO
FUNCTION IFACT
IFACT = 1
YES
•c
RETURN
NO
INITIATE K COOP
FROM 2 TO J
IFACT = IFACT x K
YES
C
RETURN
Figure 5-23 Function IFACT Flowchart
5-188
-------
Table 5-23 FUNCTION IFACT LISTING
en
00
38710
38720
38730
| 38740
38750
! 38760
38770
FUNCT1CN IFACT(J)
IFACT=1
IFU.LT.2) RETURN
DO 10 K=2,J
10 IFACT=IFACT*K
RETURN
END
-------
c
SUBROUTINE STD
SUM = 0
SUM=ZX(|)
10
AVE =
SUM = 0
SUM = Z(X(I) - AVE
SD =
N-l
C
RETURN
Figure 5-24 Subroutine STD Flowchart
5-190
-------
Table 5-24 SUBROUTINE STD LISTING
• . ',>W,
38780
38790
38800
38810
38820 " •*V,-:!f&
38830
38840
38850
38860
! m 38870
« 38880
38890
38900
,-•,., If f fit 8iV? -'• 1?. ' •
SUBROUTINE STD ( X VN , AVE , SD )
DIMENSICN X(N)
C UNIFORM DISTRIBUTION
SUM = 0,0 $
3 DO 10 1*1, N •* m
v 10 SUM»= SUM+Xd)" " m ,4
AVE = SUM/N
SUM = 0.0
DO 20 I=1,N
20 SUM«SU«-»-(X(n~AVE}**2
, SO*SORT{SUMXiN-l))
RETURN s -v « **'*""
END
-------
AVE the mean and SD the standard deviation. AVE and SD are computed
from standard moment equations using an arbitrary distribution.
The equations in STD2 are:
v =V*x.Y.AX (first moment about orgin)
4—*i 1 ~\
v =V>x.2Y.AX (second moment about orgin)
i i
AVE = vx (Mean)
SD = \j v 2 - Vi2 (Square root of variance)
Figure 5-25 gives a flowchart for STD2 and Table 5-25 presents a listing
of the code.
5.11.12 Subroutine NORM
Subroutine NORM normalizes an input distribution X, Y of size N.
NORM simply integrates the entire X, Y distribution and divides each Y
value by that integral. The integral of the resultant distribution is
unity, i.e. normalized.
This technique can be specified mathematically as:
uu
C = f Y dx
Y1 - Yn. for i = 1 to
A flowchart of this routine is given in Figure 5-26. Table 5-26
presents a computer listing of subroutine NORM.
5-192
-------
c
SUBROUTINE STD2
DELX=|X (2) -X
CALL NORM (X,Y, N)
AVE =0
SUM = 0
AVE = 2X (I) x Y(l) x | X (I + 1) - X (I- 1) | /2
SUM= 1X(I) x X(l)x Y(l)x | X (1 + 1) -X (I -1) | /2
APPROPRIATELY ADJUSTED AT END POINTS
Figure 5-25 Subroutine STD2 Flowchart
5-193
-------
Table 5-25 SUBROUTINE STD2 LISTING
en
38910
38920
38930
38940
38950
38960
38970
38980
38990
39000
39010
39020
39030
39040
39050
' 39060
39070
39080
SUBROUTINE
C PROBABILITY
DIMENSION X
C
C NORMALIZE I
C
DELX = ABS(
CALL NORM(X
AVE = SUM =
STD2(X
OISTR
(1) ,Y(
NPUT
X(2)-
.Y,N)
0.0
00 10 I = ItN
IFl I. GT. LAND. I.
IF(I.EO.N) OELX=
AVE = AVE+X( I )*Y
10 SUM = SUM«-X( I )*X
SD = SORT(SUM-AV
IF< ABS( AVE)
RETURN
END
.LT.
»
I
1
X(
YtN
BUT
)
1
LT.
ABS
) )
,AVE
ION
N)
(X(
0
N
(I )*DEL
(I )*Y< I
E*AVE)
1
.E-10
t SD)
(NORMAL, ETC)
ELX=A8S< (X(I*1)-X( 1-1) )/2. )
)-X(N-l) )
X
)*
)
DE
LX
AVE = 0.0
-------
c
SUBROUTINE NORM
DELX= |X(2) - X
SUM = 0
SUM = 2 (I) x AX
APPROPRIATELY ADJUSTED FOR ENDPOINTS
RETURN
NO
DIVIDE EACH Y ENTRY BY
SUM
20
C
RETURN
Figure 5-26 Subroutine NORM Flowchart
5-195
-------
Table 5-26 SUBROUTINE NORM LISTING
vo
01
39090
39100
39110
39120
39130
39140
39150
39160
39170
39180
39190
39200
39210
39220
39230
SUBROUTINE NORM(X,Y,N)
DIMENSION X( 1) * Yd)
CC NORMALIZE INPUT
SUH=0.
00 10 I=1,N
DELX=ABS(X( H-1)-X( I ) )
IF(I.EO.l) DELX=DELX/2.
IF(I.EQ.N) DELX=ABS(X(N)-X(N-l))/2.
10 SUM=SUM+Y( IJ*DELX
IF(SUM.LE.O.) RETURN
DO 20 I=1,N
Yd >=Y(I)/SUM
20 CONTINUE
RETURN
END
-------
5.11.13 Subroutine RESIZE
Subroutine RESIZE resizes an arbitrary distribution based on an
input range and cell width. Input to RESIZE consists of the old dis-
tribution X,Y with Nl equalling the number of points and the required
width and range for the new distribution: WIDTH and Rl. The distribution
is resized to have range Rl with cell width WIDTH. The variable Nl is
reset to the number of points in the new distribution.
The fundamental equations for RESIZE are:
N21 = R1/(WIDTH x 2) rounded up to an integer
N2 = N21 x 2 + 1 total number of points in new
distribution
After resizing the resultant distribution is normalized and returned in
X and Y. Figure 5-27 presents a flowchart of RESIZE while Table 5-27
gives a listing of the code.
5.11.14 Function XPT
The function XPT computes the cutpoint required to yield a given
rejection fraction. Input to XPT are the distribution X, Y and the
number of points N, and the required rejection rate, A. Output is the
computed cutpoint in the functional value XPT. Function XPT integrates
the input distribution until the accepted area exceeds 1 minus the input
rejection fraction. At that point a linear interpolation is performed
between the boundary points on the distribution to estimate the exact
cutpoint at which the input rejection fraction would be realized.
Figure 5-28 contains a detailed flowchart for XPT while Table 5-28 pre-
sents a computer listing.
5-197
-------
(SUBROUTINE RESIZE)
N2 = R1/(WIDTH x 2) + .99
N2 = N2 x 2 + 1
COMPUTE NUMBER OF POINTS
REQUIRED
1
DX = (N2 - 1) x WIDTH - Rl
XLO = (1) - DX/2
INITIATE I LOOP
FROM 1 TO N2
[ XX (I) = XLO + WIDTH x (I - 1)1
YY (I) = FUNI (XX (I), X, Y)
NO
Figure 5-27 Subroutine RESIZE Flowchart
5-198
-------
MOVE XX - X
ANDYY - Y
20
Nl =N2
CALL NORM
TO NORMALIZE RESULTING
DISTRIBUTION
RETURN
PRINTOUT ERROR MESSAGE
7
Figure 5-27 Subroutine RESIZE Flowchart (cont.)
5-199
-------
Table 5-27 SUBROUTINE RESIZE LISTING
en
ro
o
o
. -, • ^Y&i .
39240
39250
39260
39270
39280
! 39290
39300
39310
39320
39330
39340
39350
39360
39370
39380
39390
39400
39410
39420
39430
39440
39450
39460
39470
39480
39490
39500
39510
SUBROUTINE RESIZE(HIDTH,R1,A,Y,N1)
DIMENSION X(1),Y(1),XX(50),YY(50)
N2 = R1/(WIDTH*2.0) + .99
C
C GET AVE FRJM STD2
C
N2=N2*2+1
DX=(N2-1)*WIDTH-R1
XLO=X( D-DX/2.
IF1N2.GT.50) GO TO 40
DO 10 I = ltN2
XX(I) = XLO + WIDTH*U-1)
YY(I) = FUNKXX(I) fXtYfNl)
10 IF(YY(I) .LT. 0.) YYU) = 0.0
DO 20 I = 1.N2
X( I) = XXU )
20 Y( I) = YY(I )
M * N2
C
C RE-NORMALIZE THE RE-SIZED CURVE
C
CALL NORMJX,Y,N1)
RETURN
40 WRITE 16,50) N2
50 FORMAT!//,* INSUFFICIENT DIMENSION SIZE IN RESIZE — *
+ *CALLED FROM CONVOL — *,I5//)
STOP
END
-------
(FUNCTION XPT)
AR = i - A/ioo
XPT =
Nl=3x N
YES
RANGE = X(N) - X(l)
DX = RANGE/(NI-1 )
INTERPOLATE X,Y DISTRIBUTION
OUT TO 3 x N POINTS IN XX, YY
10
INTEGRATE OUT UNTIL
AREA (SUM)>AR
DID THIS HAPPEN
ON THE FIRST
POINT
XPT - XX(II) + (AR-AI)/(SUM-AI) x DX
RETURN
PRINT OUT ERROR
MESSAGE
C
RETURN
RETURN
Figure 5-28 Function XPT Flowchart
5-201
-------
Table 5-28 FUNCTION XPT LISTING
01
ro
o
ro
39790
39800
39810
| 39820
39830
j 39840
39850
3°860
39870
39880
39890
?9900
39910
39920
39930
39940
39950
39960
3Q970
39980
39990
40000
1 40010
, 40020
40030
4C040
40050
40060
40070
i 40080
40090
FUNCTICN XPT(X,Y,N,A)
CC THIS SUBROUTINE SUPPORTS STATS BY INTEGRATING THE INPUT
CC CURVE UNTIL AN AREA IS ACHEIVEJ AND RETURNING THE
CC X-AXIS VALUE
DIMENSICN X(1),Y(1),XX(110),YY<110)
AREA=1. -A/100.
XPT=X( 1 )
N1 = 3*N
IF( N1.GT.110) GO TO 40
RANGE=ABS(X(N)-X(1) )
DX=RANGE/(N1-1)
DO 10 1 = 1, Ml
XX( I)=X(l)-«-DX*( 1-1 )
10 YY( I)=FUN1(XX< 1 ) ,XTY,N)
CALL NORM(XX,YY,N1)
SUM=0.
DO 20 1=1, Nl
11=1-1
12=1
A1=SUM
SUM=SUM+YY( I J*DX
IF(SUM.GT.AREA) GO TO 30
20 CONTINUE
30 IF(Il.tC.O) RETURN
XPT=XX( 11)+ (AREA-A1 ) / ( SUM-A1 ) *,3X
RETURN
40 WRITE (6,50) Nl
50 FGRMAT{//,# INSUFFICIENT DIMENSION IN XPT CALLED FROM *
+ , *STATS — *, 157)
STOP
END
-------
5.11.15 Subroutine SWITCH
Subroutine SWITCH reorders a distribution for increasing values on
the X axis. Input to subroutine SWITCH is a distribution X, Y and its
size N. SWITCH assumes an odd number of points in the distribution and
transposes the distribution around its central point - if and only if
the distribution has decreasing X's - and therefore outputs a distribution
identical to the input but reordered such that the last X value exceeds
the first one. Figure 5-29 contains a detailed flowchart for subroutine
SWITCH and Table 5-29 a listing of the code.
5.11.16 Subroutine ADD-
Subroutine ADD mathematically adds two distributions XI, Yl and X2,
Y2, with sizes Ml and N2 respectively. Output consists of the sum
distribution X3, Y3 with size N3. Subroutine ADD, expecting each vector
to have nine points, checks to see if either distribution is empty and,
if so, moves the non-empty distribution into the resultant and returns.
If neither distribution is empty ADD creates a new distribution with
domain equal to the union of the domains of the input vectors. Figure 5-30
contains a detailed flowchart of subroutine ADD and Table 5-30 a listing
of the code.
5.11.17 Function EINT
Function EINT contains the algorithms for assessing the second
order parameter interactions. While MICRO assumes a linear relationship
between parameter adjustments and emission reductions, function EINT
assesses the nonlinear second order parameter interactions which con-
tribute to emission reductions. EINT outputs a value, DELI, for each
5-203
-------
SUBROUTINE SWITCH^
INITIATE I LOOP
FROM I TO NN
SWAP X(IW*~X(N-I + I)
NO
RETURN
Figure 5-29 Subroutine SWITCH Flowchart
5-204
-------
Table 5-29 SUBROUTINE SWITCH LISTING
en
ro
o
en
4010D
40110
40120
40130
40140
40150
40160
40170
40180
40190
40200
40210
40220
40230
40240
SUBROUTINE SWI TCH{ X , Y, N )
DIMENSICN X( 1) ,Y(1 )
CC REORDER OIST FOR ODD NO OF PTS
IF(X<1) .LT.X(N) ) RETURN
NN=(N-l)/2
DO 10 1=1, NN
DUM=X( I )
X ( I ) = X ( N- I + 1 )
X(N-I+1)=DUM
OUM=Y( I )
Y( I ) = YIN-H-1)
Y{N-I+1)=DUM
10 CONTINUE
RETURN
END
-------
XI DISTRIBUTION
VERY SMALL
X2 DISTRIBUTION
VERY SMALL
XMIN =min (Xl(l) )
XMAX = mox (X2(9), 42(9))
DX = (XMAX-XMIN)/8
COMPUTE NINE X3 POINTS
BETWEEN XMIN AND XMAX.
LOOK UP Yl AND Y2 VALUES
AT THESE X3'S
STORE Yl + Y2 -* Y3
CALL NORM
TO NORMALIZE X3, Y3
c
RETURN
Figure 5-30 Subroutine ADD Flowchart
5-206
-------
Table 5-30 SUBROUTINE ADD LISTING
tn
ro
o
40250
402oO
40270
40280
40290
40300
40310
40320
40330
40340
40350
40360
40370
40380
40390
40400
40410
40420
40430
40440
40450
40460
40470
40480
40490
40500
40510
40520
SUBkOUT INE
D I MEMS ICN
IF ( ABS(X1(
IF
OX
00
X3
IF
A
(
(
IFl
Y3(
10 CON
CA
RE
70 00
X3
25 Y3
,\3
KE
30 DO
X3
35 *3
!\3
RE
S
X— A
(X2(
X
1
1
ADO
1(9
)-X
)
X
X
(
)
1
-X2
1( 1
1(9
(XMAX-XMIN)/
10 1=1,9
I) =XMIN+DX*(
Al .
FUN
LT.O
KX3
A2 .LT.O
I)=A1+A
TINUE
LL NORM<
TURN
25 1 = 1,
(
(
IJ =
IJ =
N2
TURN
35
< n =
T
URN
X2( I
Y2( I
I=lt
Yl( I
•
{
•
X
9
)
)
9
]
j
I
)
3
A
j,
X
,
(
(
)
)
8
I
1 =
X2
A2=
»Y3
,
1,Y1,X2,Y2,X3,Y3,N1 ,N2,N3)
Y1(9),X2(9),Y2(9),X3(9),Y3(9)
9U.LT..01) G'JTO 20
9) ) .LT. .01 ) GOTO 3D
*X2( 1) )
,X2(9) )
0
»
0
1)
•
Y2.N2)
•
N3)
Ei'JD
-------
emission species which is used in computing the total emission reduction
achieved from the maintenance treatment. Figure 5-31 presents a flow-
chart of EINT and Table 5-31 gives a computer listing.
5.11.18 Subroutine PACKD
Subroutine PACKD eliminates the tail ends of parameter and mode
emission distributions. It computes the 1 and 99 percent points of the
distribution and resizes it to these endpoints. Input to PACKD is the
distribution X, Y with size N. The packed and resized distribution is
returned to the same vectors, X and Y. Figure 5-32 presents a flowchart
of PACKD and Table 5-32 a listing.
5.12 VEHICLE POPULATION MODEL
The Vehicle Population Model (VPM) is a general methodology for
projecting future distributions of vehicle population versus vintage year.
Used in conjunction with GEEP, VPM can provide estimates of the vehicle
population makeup for the period 1970 - 1980 under a variety of growth/
attrition rate combinations.
The basic model methodology involves analytically describing the
"birth and death" process taking place within the vehicle population
itself. Older vehicles are continually aging, with the oldest leaving
the population entirely after many years of service. Simultaneously,
new vehicles are being added to the population at some forecasted rate.
Because of this process, the relative weights of various vehicle age
groups in determining the net emissions change with time. Any accurate
emissions projection must account for this phenomenon.
VP.'-'i computes the vehicle age distribution over time, adjusting for
both new cars and vehicle attrition. This distribution provides a set
of weighting factors for each age class and for each year analyzed.
5-208
-------
(FUNCTION EINT)
SUM =
COMPUTE:
SUM = 2^;OP ^] PARINT MVPR(M) x MVPR(mm)
ii = MSTART mm = MSTART x PPfmmj
:m
EINT = SUM
RETURN
Figure 5-31 Function EINT Flowchart
5-209
-------
Table 5-31 FUNCTION EINT LISTING
ui
i
ro
5.7380
57300
57400
52410
52420
S243C
52440
52450
574^0
' 52470
52480
52490
52500
57510
5 2 52 0
52530"
52540
52550
52560
5?570
52580
52590
52600
52610
~526?0"
52630
52640
52650"
52660
_52670
52o30
52690
52703
52710
52720
52730_
52740
52750
527oO
~5277~0'
5?780
AW, BINT ,
3 S I b ( 3 ) , _B X T_H ; A r
b_SJ Z Fj
FUiNCT H,N EINT( I , is , J)
C OMMOiM /CUM01/ AM6(3) , ALA J,
_£-ARtA( 3) , BL01 , _ b_LJ2,
BH~I S T ( j , IS) , 3PHIi i : ,15,3),'
ATAbLtX(9,10,3),ATADlEY(9,10,3),ASrA8LX(9,6,3), ASTAbLY(9,6,3 )
CJMKOJJ /CpM_D2/ LAP A, _QARIY_, CARMY_, C AR_POP_( 16Jj_
1 CARSY, CHSUM, CCOEK 10) , uCCS TI, CCuSTM, CGTT,
LIlMCON, CPCB, CPI, CPVPY, CSUM, CARAY,
' __ 5-lN!< 15,3,J._6_)_, CLHEFHd.5, 3) , CGEFBP( 10, 15) ,
- ~C PART (10,15)
CC AD02
4-
*
EMW( 3) ,
FRFOA,
L)ELPCV.,___._p.PdO_il5.) , UELEM_(_3 ,16) ,DEL 1(3)
EP ( lo", 15) , JFF (10) , DEL IT( 3 ) ,
FREQB, FPEPH10,3) ,
HPC(15,16J,
HPS(o,15,l6),
HPTOTSt16)
HPCSt15,16),
HPT(5,16),
HPPdO, 15, 16) ,
HPTOTU6) ,
CC ADD3
COVrtQN /COM04/ ITE, ITL, ITP,
KSTAKT, KSTOP, _ LGPJ, LPI_CK ( 1.0 ) ,_LLP ICK, __
Li'oLEt LiNTd6)","LPSPPdO) ,'LSTAKT, "LSTOP",
MbASE, MPH, MSPECdJ) .MSTART, MSTOP,
MU(10,3), MMS(10,15J, MVPR(10,15)
ITIME (16),
CC
CC
NEMP,
NPAR,
NTR, NTkB, NPICK(16),
OPTM,OPTS(f)0) ,OVCHI(3) ,OVCHM(3)
C'JMMUK /COM05/ ^AMEtSO), ^CNTR, NEMIS,
+•_ _\INTR_,_ _MINTRB, NMCD£_, N_G, _ _ NOPTS_,
___ NPTRN, " NPTS,~~ MSYEPS, NTR, " " NTk~B,~"
+ OCIY, OCMY, OPT I,
AL)L)5_ _ _. .
COMMCN /C()M06/PARM(3,3) , PAkT, PAYNEW, PAYOFF(3),
+ PC(15), PCS115), PHK14), PLO(14), PLT MAX( 3) , PMOOEL,
+ P_P { !_0_, 1.5 ) , P S 16 ,15) , P TJ 5 ) , _ _P T 0 T , P T S ( 5J ,___P_AY ADJ.
* PAR( 10, 15,3) , PARK 10,3,3) , PLUS( 1~0 ,15) ,
* PMdOflS). PPICK(IO) ,PPPICK,PSTAR,PI(15,10) ,
* _ PS.AJiJ'L' _PTA(?J. • _P.CPN?» _P.A^m1"l LQ'l^'_?J
+ ", PAY FIN" " ' """
COMMON /COM07/ RfcluSP, RNAME, RSIZE, KSTUP,
SALE, SALL, iALP, SITEI, SITEM, SLANE,
bMOOEL, bTART(15,3), STAT, STIMEOJ, SUM.JM(3),
-------
Table 5-31 FUNCTION HINT LISTING (cont.)
tn
ro
i 52790 "'""
52800
52810
52820
52330
52340
52850
52860
52870
52880
52890
52900
52910
52920
52930
52940
52950
52960
52970
52980
52990
53000
53010
530?0
53030
53040
53050
53060
53070
53080
53090
53100
53110
53120
53130
53140
53150
53160
53170
53180
53190
53200
+ SCALEBM(3), SM(6,15),
> SXCUT(6,3),
+ SIGMEI10),
+ SIGRATE, SIST,
+ STABLEX<33,6,15) ,
COMMON /COM10/
+ TINT, TOBE<3),
+ TXTRA, TSIZE,
+ THIST(5,3,16),
-*• TIMEM(10,15) ,
CC ADD10
COMMON /COM11/
+ X1BP(3,3,6), XINT,
+ XTM(16), X3ASE(9,3
CC AOD11
COMMON /COM12/
+ YES, YSUM,
+ Zl, Z2,
+ Z7, Z8,
+ Z13, Z14,
+ ZCARI, ZCARM,
+ ZZ(3,3)
CC A0012
COMMON /DEBUG/
+ LDEBUG, MOE6UG,
CC ADDD
REAL ITE,
+ MMS, MPH,
+ NAME, NO,
+ IN, MISFIRE
INTEGER RNAME,
+ TDIST, XLANE,
SUM=0.
00 100 II=MSTART,MSTCP
DJ 100 MM=MSTART,II
IF(MM.GE.II ) GO TO 100
SIG(10,3) ,
SIGMNE( 10),
SIGS(o,15) ,
STABLEYi
TAREA{3) ,
TONX,
TSIG(3) ,
THISTT( 3,
TAJLEX( 33
WF(10),
XINTB,
) , YBASE(9,
Y13P(3,3,
YTMQ6) ,
Z3,
Z9,
Z15,
ZIC,
AOE6UG,
PDEBUG,
ITL,
MS PEC,
LOEBUG,
SITEI,
OPTI,
33,6,15)
TDISTUO,
TOTE(3),
TPER(16,
16),
,10,15),
XLANE,
3)
10) ,
Y1DBP(
Z4,
Z10,
Z16,
ZSUM,
BOEBUG,
QOEBUG,
I TP,
ML),
MDEBUG,
S ITEM,
PPICK,
SPAR! 10,15,61,
SIGCEOI*
SIGP( 10,15) ,
SIGSDE(3) ,
r.
3) ,TIDLE,TIHEI<3,16),
TPDB(3), TPOT(3),
15), TMIL(16,15)i
TIMEC(10,15),
TABLEY (33, 10,15)
XSUM, XCUT(LO,3),
Y2BP(3,3,10) ,
4,4,10), Y20SP(4,4,10) ,
Z5, Z6,
Zll, Z12,
Z17,
COEBUG, OOEBUG,
SOEBUG, TOEBUG
I TIME,
MVPR,
STAT,
PPPICK
SUM=SUM + PARINK II ,MM,L )*
+ ,4V PR 1 I I, J)*MVPR(MM, J)*PP ( II,J )*PP( MNit J)*EhF{ II )*EFF(MM)
100 CONTINUE
EINT=SUM
RETURN
END
-------
(SUBROUTINE PACKD)
R2 = 1% POINT OF DISTRIBUTION
Rl =99% POINT OF DISTRIBUTION
RANGE = Rl - R2
WIDTH = RANGE/(N-2)
CALL RESIZE
TO ELIMINATE LONG TAILS ON
EITHER END OF DISTRIBUTION
YES
PRINT ERROR MESSAGE
J^D ' T»aw«cr»inu»-«J.- .•, .«,*»*.,-, ^
-C RETURN )
Figure 5-32 Subroutine PACKD Flowchart
5-212
-------
Table 5-32 SUBROUTINE PACKD LISTING
en
ro
co
64330
64340
64350
64360
64370
64380
64390
64400
64410
64420
64430
_6_44_40_
644>0
SUBROUTINE P ACKD ( X , Y , M
DIMENSICN X ( 1) ,Y(1)
RANGE=A3S(K1-R2)
N 1 = N
CALL RESIZE(WlDTHtPANGfcfXiY,Nl)
IF(Nl.EC.N) RETURN
lvRITE(6tlOO)
100 FORNATl//* NUMBER OF ENTRIES PROBLEM IN PACKD *,/////)
STOP ; ,__ .
END
-------
Combined with independently estimated vehicle emission rates, this dis-
tribution data can lead to emission projections weighted for changes in
vehicle population characteristics.
This weighting process is crucial in making accurate projections.
Under the current vehicle breakdown, three separate classes of light
duty vehicles are considered: uncontrolled (pre-1968), controlled
(1968 - 1970) and post 1970. Emission levels of the first two groups rise
substantially over time due to vehicle deterioration. Yet, due to natural
attrition processes, their numbers decline. The net contribution of these
groups depends upon the interaction of both vehicle attrition and deterio-
ration. Similarly, post-1970 vehicles have substantially reduced emission
levels. (The emission levels for new cars are assumed to be in compliance
with promulgated standards). As they enter the population and represent
an increasingly large fraction, the aggregate emissions characteristics of
the population will approach those of the post-1970 cars. It is this
complex interaction between vehicle attrition, entrance of new cars and
resultant population emission levels which is described quantitatively by
VPM and which can provide a straightforward mechanism for projecting
emission levels over future periods.
The following sections present detailed descriptions of the sub-
routines comprising VPM.
5.12.1 Subroutine PERMIL
Subroutine PERMIL is the attrition routine for VPM. PERMIL accepts
as input TINT, the inspection interval, KSTART and KSTOP, the control
type limits for the simulation, and NPTRN the number of power train
types.
5-214
-------
PERMIL calls the PERCNT and MILAGE subroutines which fill the PPER
and PMILES arrays with the percentages and annual vehicle miles travelled
of each control and power train type. PERMIL then interpolates these
data to the TINT inspection interval and returns the percentage distri-
bution of power trains and control type in TPER and annual vehicle miles
travelled in TMIL. Both TPER and TMIL are referenced by inspection
interval number, N. Present in Figure 5-33 is a flowchart for subroutine
PERMIL. A listing of PERMIL is given in Table 5-33.
5.12.2 Subroutine PERCNT
Subroutine PERCNT simulates the vehicle age distribution over time
to account for vehicle attrition and population growth. Input to PERCNT
is N, the number of years since the start of the simulation. Output is
PPER the vehicle age distribution by control and power train type, the
J index. The main equation of PERCNT is:
- v n
' L
DIFF(L-l)
where the DIFF vector represents vehicle attrition rates and X is the
vehicle age vector. For each year, PERCNT sums the appropriate entries
in the X array to fill the PPER array with the percentages for uncon-
trolled, controlled and POST 70 vehicles.
Figure 5-34 is a complete flowchart of the PERCNT routine which
pictorially describes the techniques used. Table 5-34 contains a
listing.
5-215
-------
(^SUBROUTINE PERMlf)
CALL PERCNT (N)
CALL MILAGE (N)
FOR N = l TO 15
10
INITIATE N LOOP
FROM 1 TO 15
T =TINTx (N-D/12
T=T + 1
Nl =T +0.0001
N2 = Nl -H
FOR EACH POWER TRAIN
FOR EACH CONTROL TYPE
J =JJ +5x (K-l)
INTERPOLATE PERCENTAGE DISTRIBUTIONS
AND AVERAGE ANNUAL MILEAGE BETWEEN
YEARS Nl AND N2 TO T.
STORE IN TPER AND TMIL RESPECTIVELY
THROW OUT CONTROL TYPES NOT BEING MODELED
20
NORMALIZE TPER BY DIVIDING
15
BY SZ TPER(N,J)
NO
RETURN
Figure 5-33 Subroutine PERMIL Flowchart
5-216
-------
Table 5-33 SUBROUTINE PERMIL LISTING
en
ro
50440
50450
50460
' 50470
50480
50490
50500
50510
50520
50530
50540
50550
50560
50570
50580
50590
50600
50610
50620
50630
50640
50650
50660
50670
50680
50690
50700
50710
50720
50730
50740
SUBROUTINE PERMIL(TPER,TMIL,TINT,KSTART,KSTOP,NPTRN)
DIMENSION TPER(16,15),TMIL{16,15)
COMMON /SAVE/ PPERU6, 15) ,PMILES( 16,15)
DO 10 N=l,15
CALL PERCNT(N)
10 CALL iMILAGE(N)
DO 40 N=l,15
T=TINT*
-------
(SUBROUTINE PERCNT^
YES
DIFF(15)
DIFF(H)
COMPUTE NEW PERCENTAGE OF 15 YEARS AND OLDER
DIFF
NEWX(L)=OLD X(L-Dx-D1FF(L_1)
FOR ALL CARS 2 TO 14 YEARS OLD
10
CALL NOMAD
TO NORMALIZE X
X(l)= GROWTH
CALL NOMAD
TO RENORMALIZE X
= 15 (
= N + 7 J
= N +6 )
= N+2 )
Nl =
N2
N3 =
N4
N5 = N + 1
N6 = !
UNCONTROLLED
YEARS (AGES>
CONTROLLED
YEARS
POST '70
YEARS(AGES)
AFFIRM N3<15
AFFIRM N5< 15
-------
A=B=C=O
YES
60
PPER(N, 1-5)= A/5
PPER(N, 6-10)=B/5
90
PPER(N, 11-15) = Q/5
100
RETURN
J
Figure 5-34 Subroutine PERCNT Flowchart (cont.)
5-219
-------
Table 5-34 SUBROUTINE PERCNT LISTING
tn
i
ro
ro
o
50750
50760
50770
50780
50790
50800
50310
50820
50830
50840
! 50850
! 50860
50870
50880
50890
50900
50910
50920
50930
50940
50950
50960
50970
50980
50990
51000
51010
51020
51030
i 51040
51050
51060
51070
51080
' 51090
51100
51110
^1120
51130
51140
5115O
SUBROUTINE PERCNT(N)
COMMON /BADOQR/ X ( 1 5 ) , ANNU AL ( i '-> )
COMMON /SAVE/ PPER ( lo, 1 5 ) , PMI LE S( 16 t 15 )
DIMENSICN DIFF( 16)
DATA X/10.b,l0.5tl0.2f9.8,9.3f8.8f8.1f7.2fto.2f5.1f
* 4. 1, 3.0,2.0,0. 9,4. O/
DATA DIFF/l.,l.,l.,.98f.96,.93f.86,.75f.61f.47,.34f
* .75, .19, .13, .11 ,.08/
DATA GROWTH/. 121/
IF(N.EO.l) GOTO 15
X(15)=X(15)*DIFF(16)/DIFF(15)+X{14)*DIFF(15)/DIFF(14)
DO 10 J=2,14
L=16-J
M=L-1
10 X(L)=X( M)*(DIFF ( U/DIFFIM ) )
X<1) = 0
CALL NOMAD(X)
X( 1) = GROWTH
15 CONTINUE
CALL NOMAD( X)
Nl=15
N2=N+7
N3=N+6
N4 = N+2
N5=N-H
IF(N3.GT.15) N3=15
IF(N5.GT.lb) N5=15
N6=l
A=0
B=0
C = 0
IFCN1.LT.N2) GOTO 40
DO 30 J=N2,N1
30 A=A+X
-------
Table 5-34 SUBROUTINE PERCNT LISTING (cont.)
51160
51170
51180
51190
51200
51210
DO 90 J=6,10
<30 PPEfUN, J)=B/5.
DO 100 J=ll,15
100 PPER(Nt JJ=C/5.
RETURN
END
ro
ro
-------
5.12.3 Subroutine NOMAD
Subroutine NOMAD is a GEEP utility routine which normalizes a popu-
lation age distribution X. The fundamental equation for NOMAD is:
Jlj- —* Xi for each i
LS
which simply sums the X vector and divides each component by that sum.
Figure 5-35 contains a flowchart of NOMAD. Table 5-35 presents a computer
listing.
5.12.4 Subroutine MILAGE
Subroutine MILAGE computes the vehicle miles travelled distribution
for a population at each time point in the simulation. MILAGE sums the
annual vehicle miles travelled for each control and power train type
(the J index) and stores the average mileage for each subfleet in the
PMILES array. Input to subroutine MILAGE is the time period N. Output
is the PMILES matrix which is returned through common block SAVE.
Figure 5-36 contains a complete flowchart of the MILAGE routine and
Table 5-36 a listing.
5.13 LINEAR PROGRAMMING MODEL
The Linear Programming Model is used for optimizing the parameter
cutpoints based on input influence coefficients and cost constraints.
The model is contained in a series of four routines which solve for a
set of optimal cutpoints. Basically, the process starts with a set of
cutpoints and uses them to estimate the corresponding rejection fractions.
The final results of the analysis are a set of "optimal" cutpoints
for the distributed parameters along with that combination of non-distributed
parameters which yields the largest weighted emission reduction within
the given cost constraints.
5-222
-------
^SUBROUTINE NOMADj
NORMALIZE X ARRAY
BY DIVIDING BY XX
20
("RETURNJ
Figure 5-35 Subroutine NOMAD Flowchart
5-223
-------
171
ro
ro
Table 5-35 SUBROUTINE NOMAD LISTING
51220
51230
51240
51250
51260 10
51270
51280 20
51290
51300
SUBROUTINE NOMALMX)
DIMENSION X( 1)
XX = 0
DO 10 J-=l,15
XX=XX+X( J)
DO 20 J=ltl5
X( J)=X( JJ/XX
RETURN
END
-------
^SUBROUTINE MILAGE*)
Nl = 15 v
N2 = N + 7 ;
N3 = N + 6 i
N4 = N + 2 '
N5= N + 1
N6 = 1
,
'
UNCONTROLLED
YEARS
CONTROLLED
YEARS
POST '70
YEARS
AFFIRM N3 < 15
AFFIRM N5< 15
A= B = C= O
AA = BB = CC = O
AAA = BBB = CCC = O
MOVE O -—PMILES
YES
A - X x
A, A- IX x ANNUAL
20
AAA = AA/A
B -I X
BB = IX x ANNUAL
BBB BB/8
Figure 5-36 Subroutine MILAGE Flowchart
5-225
-------
0
CC =IX x ANNUAL
60
CCC = CC/C
PMILES(N, 1-5) = AAA/12
70
PMILES(N,6-10) = BBB/12
88
PMILES(N, 11-15) =CCC/12
90
RETURN
J
UNCONTROLLED
CONTROLLED
POST '70
Figure 5-36 -Subroutine MILAGE Flowchart (cont.)
5-226
-------
Table 5-36 SUBROUTINE MILAGE LISTING
en
ro
ro
51310
51320
51330
51340
51350
51360
51370
51380
51390
51400
51410
51420
51430
51440
51450
51460
51470
51480
51490
51500
51510
51520
51530
51540
51550
51560
51570
i 51580
i 51590
|_ 51600
51610
51620
51630
! 51640
i 51650
' 51660
51670
51680
51690
1 51700
I 51710
SUBROUTINE MILAGE(N)
COMMON /BADDOR/ X ( 1 5 ) , ANNUAU 15 )
COMMON /SAVE/ PPER ( 16, 15) , PMILES ( 16 , 15 )
Nl = 15
N2=N+7
N3=N+6
N4=N+2
N5=N+1
N6=l
IFtN3.GT.15) N3=15
IF(N5.GT.li>) N5=15
A=0
B = 0
C=0
AA=0
BB = 0
CC=0
AAA=0
BBB=0
CCC=0
00 10 J=l,15
10 PMILES(NUJ)=0
IF(N1.LT.N2) GOTO 30
DO 20 J=N2,N1
A=A+X( J)
20 AA = AA+X(J)*ANNUAL( J)
AAA=AA/A
30 IF(N3.LT,N4) GOTO 50
DO 40 J=N4,N3
B=B+XIJ)
^0 BB=BB-i-X(J)*ANNUAL( J)
BBB=BB/B
50 DO 60 J=N6,N5
C=C+X( J)
60 CC=CC + XCJ)*ANNUAL( J)
CCC=CC/C
DO 70 J=l,5
70 PMILES(N,J)=AAA/12.
DO 80 J=6,10
80 PMILES(NtJ)=BBB/12.
DO 90 J=ll,15
-------
Table 5-36 SUBROUTINE MILAGE LISTING (cont.)
.__ _ _ <3U PMILES{N,J)=CCC£t2,
51730 RETURN
51740 END
en
ro
ro
oo
-------
This iterative scheme then computes for the rejected vehicle popu-
lation a set of mean value engine parameter settings. Using the basic
engine parameter distributions, a systematic search is made to find the
pass/fail criteria which will yield the optimal rejection fraction. In
this manner, then, a linear programming algorithm can provide an
approximate mechanism for determining pass/fail criteria for multi-parameter
inspections.
5.13.1 Subroutine OPTMUM
Subroutine OPTMUM contains the logic for computing the optimal cut-
points for a set of engine parameters. OPTMUM sets up and solves the
following linear program:
Maximize: V*C.X.
t-~i i i
where X. are the distributed parameter rejection rates.
and C. are 9E
Subject to:
Xi > 0 for i = 1 to 6
n. < b. for i = 1 to 6
VA7.X. < COST
l^ i
.Xi > GOALS (j)
where b. is the rejection fraction
based on a minimum deviation cutpoint.
where A7. is the cost of parameter
maintenance and COST is the input
cost constraint (adjusted for
non-distributed parameter cost).
for j=l to 3 (emission species)
GOALS are the minimum percentage
reductions and A., are 3E. in
percent. J1 -
5-229
-------
.X. < 1.05 x p* where P* is the input constant re-
1 "• jection rate and PS are the "union
of X." coefficients from subroutine
X.>0.95x P*
The linear program is solved sixteen times, once for each possible
combination of non-distributed parameters. An array of possible
combinations of the four non-distributed parameters is stored in the
vector ITRYS and for each of the sixteen entries the linear programming
loop is executed. OPTMUM then finds that combination of non-distributed
parameters which yields the maximum emission reduction within the given
cost constraints. That optimal solution along with the resulting cut-
points is returned in the TDIST and XCUT arrays, both of which are con-
tained in the common blocks. OPTMUM outputs miscellaneous debugging
information when the LDEBUG flag is set to YES. Figure 5-37 contains a
flowchart of OPTMUM and Table 5-37 a listing.
5.13.2 Subroutine CUTPNT
Subroutine CUTPNT performs the final setup operations prior to
optimizing the parameter cutpoints. Subroutine CUTPNT, which is called
from OPTMUM, initializes the various arrays containing constraints
coefficients, constraints and utility functions for use by LPAX, the
linear programming algorithm. CUTPNT determines an optimal set of
cutpoints by iterating on the rejection fractions for each parameter.
Final output from CUTPNT consists of the converged cutpoints in the
XCUT matrix and the optimal value of the corresponding utility function.
Figure 5-38 details exactly the techniques and algorithms used for
setting up the linear optimization program. Table 5-38 contains a
complete listing.
5-230
-------
c
SUBROUTINE OPTMUM
J = 5x (K-l)+ 1
LDEBUG ON
AND
FIRST TIME INTO
ROUTINE
PRINT OUT DEBUG
HEADER
COMPUTE COST OF INSPECTION AND
MAINTENANCE FOR EACH NON-
DISTRIBUTED PARAMETER
COST = INSPECTION COST + REJECTION
FRACTION X MAINTENANCE COST
MOVE PAR - P
INITIATE ITRY LOOP
FROM 1 TO 16
IS THIS A CASE
WHICH NEVER
OCCURS
YES
MOVE ITRYS(ITRY) - TEMP
10
4
COMPUTE COST = Z COST(L) x TEMP(L)
L=l
20
©
Figure 5-37 Subroutine OPTMUM Flowchart
5-231
-------
COMPUTE EXPECTED PERCENTAGE EMISSION
REDUCTION FOR EACH EMISSION FROM THE
NON-DISTRIBUTED PARAMETER MAINTENANCE
4
AE= Z
1 = 1
« x TEMP x EFF x REJECTED FRACTION
9K START
30
SUBTRACT NON-DISTRIBUTED
PARAMETER COST FROM COST CONSTRAINT
AFFIRM Bl (1)*O
SUBTRACT NON-DISTRIBUTED EMISSION
DROPS FROM MINIMUM IMPROVEMENT
CONSTRAINTS TIMES CONST
40
Bl(4) = -.
CALL CUTPNT
TO DETERMINE OPTIMAL CUTPOINTS
Figure 5-37 Subroutine OPTMUM Flowchart (cont.)
5-232
-------
COMPUTE UTILITY FUNCTION
OR EMISSION DROP DUE TO
DISTRIBUTED PARAMETERS
50
ADD CONTRIBUTION OF
NON DISTRIBUTED PARAMETERS
TO UTILITY FUNCTION
COMPUTE TOTAL COST FOR THE I/M
PROGRAM. (ADD DISTRIBUTED PARAMETER
CONTRIBUTION)
ADD DISTRIBUTED PARAMETER CONTRtBlFHON
TO EMISSION DROP
63
PRINTOUT INTERMEDIATE LINEAR
PROGRAMMING RESULTS
Figure 5-37 Subroutine OPTMUM Flowchart (cont.)
5-233
-------
IMAXU = ITRY
UTIL=U
MOVE XCUT—»XCUTM
XN —»XNM
HAVE WE TRIED
ALL COMBINATIONS
OF NON-DISTRIBUTED.
PARAMETERS
MOVE XCUTM —»XCUT
RETURN J
Figure 5-37 Subroutine OPTMUM Flowchart (cont.)
5-234
-------
MOVE ITRYS (IMAXU)
120
SET TDIST FOR DISTRIBUTED
PARAMETERS BASED ON
XNM>O
130
RETURNJ
Figure 5-37 Subroutine OPTMUM Flowchart (cont.)
5-235
-------
Table 5-37 SUBROUTINE OPTMUM LISTING
en
ro
co
C.2360
6?370
623BO
SUBROUTINE OPTMUM(Ki
DIMENSICN 3SAVE(4,3)
DIMEIsSICiM OROP(3),P(
62390
62400
62410
KlLL.iM.COMST)
,61(4),COST(4),LCOCE(4),ITRYS(16,4)
4,3),TEMP(4) __^_
OIMENSICN XCUTM(10),
OIMtNSION XN(6),C(6)
COMMON /COM01/ AHB(
XNM(10)
,NCODE(6),A(15, 15)
3),ALAd, AW, BINT,
62420
62430
62440
62450
6?460
6?470
62480
62490
6?500
62510
62520
62530
62540
62550
62560
62570
62580
62590
+ BAREA(3J. BLD1, BL02, BSIG(3), BXTRA, bSIZE,
+ BHIST(3,16), "iMMK 10,15, 3) ,
+ ATABLEX(9,10,3),ATABLEY(9,10,3),ASTABLX(9,6,3), ASTAbLY( 9,6,3 )
COMMON /COM02/
+ CARSY, CBSUM,
+ CINCON, CPCB, CP
+ CN(15,3,16),
+ CPART(10,15)
CC ADD2
COMMON /COM03/
+ EMW(3) , EP( 10, 15)
+ FRtQA, FREQ8,
+ HURZN, HORZNY,
+ HPC(15,16),
+ HPS(6, 15,16) ,
+ HPTOTS(16)
CC ADD3
COMMON /COMO+/
CARA, CARIY,
CCOEFt 10J .CCQSTI
I, CPVPY,
CUCF3< 15,3) ,
DELPCV, DPUOt
,EFF(10), DELIT(
FPERC( 10,3) ,
H PC S( 13,16) ,
HPT(5,16) ,
ITE, ITL,
CARMY, CARPOPC16),
, CCOSTM, CGTT,
CSUM, CARAY,
COEFbP( 10t 1 5) ,
13) ,DELEM(3 ,16i ,DELI (3),
3),
HPP(10, 15, 16) ,
HPTOT(16),
ITP, ITIME(16)t
62600
62610
62620
KSTART,
LIULE,
MBASE,
KSTOP, LOPT, LPICK(10),LLPICK,
LINT(16Jt LPSPP(IO),LSTART, LSTOP,
MPH, MSPEC(IO)tMSTART, MSTOP,
t.2630
62640
62650
KU( 10,3) ,
MMS(10,15),
MVPR(10,15)
CC ADD4
COMMON /COM05/
NAME(50), NCNTR
NEMIS
NEMP,
626oO
62670
62680
NINTR,
NPTRN,
OCIY,
NINTRB, AlMULiE, NO, NOPTS, NPAR,
NPTS, MSTFPS, NTRt NTkB, NPICK116),
.PCMY, GPTIj 3PTM,QPTS (50) ,OVCHI( 3) , JVCHM(3)
62690
62700
62710
62720
62730
62740
62750
CC ADD5
COMMON
+ PC(
+ PP(
+ PAR
+ PM(
/COM06/PAR
15), PCS(
10,15) ,
( 10, 15,
10,15),
* PSA( 15) ,
•«• , P AY F I N
PS(6
3) ,
PTA(
M(
15
,1
5)
3,
),
5)
•
3), PART,
PHI (14) ,
, PT(5) ,
PARldD.3
PPICKdO)
PCONF,
PAYNEW,
PLO( 14) ,
PTOT,
,3) ,
,PPPICK,PS
PARINTdO
PAYOF
PLTMAX(
PTS(5),
PLUS( 10
TAR, PI d
,10,9)
F
3
,
5
(3)
),P
PA
15)
,10
MODEL,
YAOJ,
,
) ,
-------
en
ro
CO
62773
62780
62790
62800
62810
62820
62830
62840
62850
62860
!' 62870
, 62880
I 62890
62900
62910
62920
! 62930
62940
! 62950
62960
62970
62980
: 62990
: 63000
63010
63020
63030
63040
63050
63060
63070
63080
63090
63100
63110
63120
63130
63140
63150
63160
i 63170
o3180
Table 5-37 SUBROUTINE OPTMUM LISTING
:" " COMMCN /CJPM07/ REINSP.
+ RTYPE,
+ SALE, SALL,
+ SMODEL, STARTUP,
+ SCALEBM{3),
+ SXCUT(6,3),
+ SIGME(IO),
+ SIGRATE, SIST,
+ STABLEX(33,6,15) ,
COMMON /CQM10/
+ TINT, TOBE(3),
+ TXTRA, TSIZE,
+ THIST(5,3,16),
+ TIMEM(10,15) ,
CC AOD10
COMMON /COM11/
+ X1BP<3,3,6), XINT,
+ XTM116), XBASE<9,3
CC ADD11
COMMON /COM12/
+ YES, YSUM,
* Zl, Z2,
+ Z7, ZS,
+ Z13, Z14,
* ZCARI, ZCARM,
+ ZZ<3,3)
CC ADD12
COMMON /DEBUG/
+ LDEBUG, MDEBUG,
CC ADDD
REAL ITE,
+ MMS, MPH,
+ NAME, NO,
+ IN, MISFIRE
INTEGER RNAME,
+ TOIST, XLANE,
DATA ITRYS/8*0,8*1,4*0,
•H 2*0,2*1,2*0,2*1,0,1,0,
DATA LCODE/4,5,6,10/
DATA BSAVE/lO.t .03..03,
DATA NCODE/1,2,3,7,8,9/
J=5*(K-1)-H
SALP,
3), STAT
SM(6,15
SIGUO.
SIGMNEt
SIGS<6
STABLE
TAREA(3
TONX,
TSIG(3
THISTTt
TABLEX(
WF( 10),
XINT
),Y8ASE(
Y1BP13,
YTMda)
Z3,
Z9,
Z15,
ZIC,
ADEBUG,
PDtBUG,
ITL,
MSPEC,
LOEBUG,
SITEI,
OPTI,
4*1,4*0,
1,0,1,0,
0. ,15. ,.
(cont.)
RNAMEj
S ITEI,
, STIME(
3),
10),
,15) ,
Y(33 ,6, 15)
), TDISTdO,
TOTE(3),
), TPER(16,
3,16) ,
33,10,15),
B, XLANE,
9,3)
3,10) ,
, Y1DBP(
Z4,
Z10,
Z16,
ZSUM,
3DE8UG,
QDEBUG,
ITP,
MDEBUG,
SITEM,
°PICK,
4*1, 2*0,2*1,
1,0, 1,0,1,0,
10, .03,0. ,20
RSIZE,
RSTOP.
SITEM, SLANE,
3), SUMBM13),
SPAR< 10
SIGCE
SIGP( 10
SIGSDE
3) ,TIDLE
TPDB(3)
15), TM
TIMECd
TABLEY
XSUM
Y2BP( 3,
4,4,10),
Z5,
Zll,
Z17,
CDEBUG,
SOEBUG,
ITIME,
MVPR,
STAT,
PPPICK
2*0,2*1,
1,0, I/
. , .10, ,0
,15,6) ,
,15) ,
(3),
,TIMEI(3,16),
, TPOTC3),
IL(16tl5)t
0,153,
(33, 10,15)
, XCUT(10t3)t
3,10) ,
Y2DBP(4,4,10) ,
Z6,
Z12,
DDEBUG,
TOEBUG
5,0./
-------
Table 5-37 SUBROUTINE OPTMUM LISTING (cont.)
01
I
ro
co
oo
: 63190
63200
63210
63270
63230
03240
63250
63260
63270
63280
63290
63300
63310
63320
63330
63340
63350
63360
63370
63380
63390
63400
63410
63420
63430
63440
63450
63460
63470
63480
63490
63500
63510
63520
63530
63540
63550
63560
63570
63580
5
C:
C:
C:
10
C:
C:
C:
20
C:
C:
C:
30
C:
C:
C:
C:
C:
IF(LDEEUG.EO. YES. AND. CONST. GT. 0.99) WR ITE ( 6 , 1000) K
DO 5 L=l,4
LL=LCODE(L)
COST(U = Z2*TIMEC
-------
"Table 5-37 SUBROUTINE OPTMUM LISTING (cont.)
en
ro
CO
63610
63620
63630
63640
63650
03660
! 63670
63680
63690
63700
63710
63720
63730
63740
63750
63760
63770
63780
63790
63800
63810
63820
63830
63840
63850
638oO
63870
63880
63890
63900
63910
63920
63930
63940
6395C
63960
63970
03980
63990
64000
64010
40
C:
C:
C:
C:
C:
C:
50
60
C:
C:
C:
62
63
65
C:
C:
C:
7C
C:
C:
M=I+1
Rl (M)=BSAVE(M,GPTI ) *CONST -DROP ( I)
CONTINUE
01(4)=-. 1
CALL LINPRO
CALL CUTPNTtKtKILLt iH,C.XNf NCiJJt.N, A)
COMPUTE UTILITY FUNCTION
U=0.
IF(KILL.EC.I) GOTO 63
DO 50 M=l,6
U=U-XiN(M)*C
U=U+EMW
-------
en
r\i
£
I
1
64020
o4G30
64040
64050
64060
64070
64080
64090
64100
64110
64120
64130
64140
64150
64160
64170
> 64180
64190
i 64200
64210
64220
64230
i 64240
1 64250
i 64260
64270
64280
642QO
64300
64310
64320
Table 5-37 SUBROUTINE OPTMUM LISTING (cont)
C: SET KILL=1 IF NO CASES rtGRKES
C:
100 CONTINUE
KILL=0
IF(UTIL.LT.-5.) KILL=1
IFfUTIL.LT.-5.) RETURN
C:
C: MOVE BACK OPTIMAL CUTPOINTS
C:
DO 110 M=lt 10
110 XCUT(M,K)=XCUTM(M)
C:
C: FILL TOIST ARRAY
C:
DO 120 L=lt4
LL=LCODt(L)
120 TDIST(LL,K)=ITRYS( IMAXU.L)
DO 130 M=lf6
MM=NCOOE(M)
TDIST(MM,K)=0
IF (XwM(M).GT.l.E-5) TDI ST (MMfK ) •=!
130 CONTINUE
RETURN
1000 FORMAT( 1H1,/40X,*CUTPOINT ANALYSIS ( K=*, 12, * ) *, // ,
+ 62X,*OISCRETE PARAMETER*,/,
+ 20X,*PARAMETER REJECTI3;^ RATEi* , l3Xt *I/M EMISSION DELTA*,
+ * WEIGHTED*,/,* 4 5 6 13 1 *, 7X ,*2* , 7X, *3*, 7X,
+ *7*,7X,*8*,7X,*9 COSTS PERCENT EMISSION*
+, /,69X,*HC CO NO DROP*//)
1010 FGRMAT(1X,4I2,6F8.2,F6.2, IX , 3F7 .4, F 7.4 ,/ }
END
-------
SUBROUTINE CUTPNlf)
J = l +
JCNT =
(K-l) x
O
5
KILL=O
FIXCOST=O
INITIATEM LOOP
FROM 1 TO 6
MM = NCODE(M)
B(M) = 0.0001
BET WEE N
MSTART AND
MSTOP
YES
XCUT = XCUTLO
NO
SUM THE FIXED COST CONTRIBUTIONS
OF THE DISTRIBUTED PARAMETERS
COMPUTE VARIABLE COST FOR THIS
PARAMETER
B = AREA(O) x PI
ASSOCIATED WITH MINIMUM PARAMETER
SETTING (XCUTLO) CUTPOINT
NO
Figure 5-38 Subroutine CUTPNT Flowchart
5-241
-------
0
10
MOVE -Bl (M-6) -^ B(M)
FOR THE THREE EMISSION
SPECIES
B(7)= -Bl(l) -FIXCOST
= 1.05x PSTAR
B(12) = 0.95x PSTAR
FOR PSTAR > 0
B(12) =
FOR PSTAR = 0
FOR EACH EMISSION TYPE
FOR EACH DISTRIBUTED PARAMETER
COMPUTE THE COEFFICIENT WHICH,
WHEN MULTIPLIED BY THE REJECTED
PERCENTAGE AND MVPR YIELDS THE
APPROPRIATE AE
20
COMPUTE COEFFICIENTS FOR UTILITY
FUNCTION. SAME AS CONSTRAINT
COEFFICIENTS EXCEPT NOT PERCENTAGE
BUT ACTUAL REDUCTION
40
MOVE CUTIN - CUT
50
0
Figure 5-38 Subroutine CUTPNT Flowchart (cont.)
5-242
-------
MOVE Al
51
CALL PXCOEF
TO GET PSTAR COEFFICIENTS
COMPUTE DELTA FOR EACH
DISTRIBUTED PARAMETER.
AP =
MVPR
PP
BASED ON CUT CUTPOINTS
IF PP = O USE APPROPRIATE ENDPOINTS
55
FOR EACH DISTRIBUTED PARAMETER
Cl x DELTA - C
IF C
-------
CALL LPAX
TO SOLVE LINEAR PROGRAM
L.P. RESULTS
GOOD
PRINT OUT LINEAR
PROGRAM RESULTS
INITIATE M LOOP
FROM 1 TO 6
MM = NCODE(M)
CUTN (M) = O
M BETWEEN \. NO
MSTART AND MSTOP > "H F
Figure 5-38 Subroutine CUTPNT Flowchart (cont.)
5-244
-------
FACTOR
HERAT
IPRINT
MAXIT
= FACTO
= 0
= O
= 190
o
XXI = CUT(M)
XCUT (M) = XXI
XX2 = XX1 x 1.1
AA1 = AREA(O) x PI
REJECTED FRACTION AT XCUT = XXI
i
I XCUT = XX2 I
AA2 = AREA(O) x PI
REJECTED FRACTION AT
XCUT = XX2
IS AA2 WITHIN
1 PERCENT OFXN
Figure 5-38 Subroutine CUTPNT Flowchart (cont.)
5-245
-------
RESET AA2 10% AWAY
FROM AA1 IF AA1 AND
AA2 BOTH EQUAL EITHER
0 OR 1
NO
(XXI - XX2)
XX3 = XX2 + (XN -AA2) _^2) y FACTOR
XXI = XX2
XX2 = XX3
AA1 = AA2
XN CLOSER
TO AA1 THAN
AA2
YES
XX2 = XX1 + (XN-AA1)
(XX2 -XXI)
(AA2 -AA1)
FACTOR
[PRINT OUf
TERATION DATA
7
j
CHECK FOR NON-CONVERGENCE
PROBLEMS AND ATTEMPT TO REMIDY
BY ADJUSTING FACTOR AND/OR XX2
Figure 5-38 Subroutine CUTPNT Flowchart (cont.)
5-246
-------
IPRINT
= 1
100
CUTN = XCUT
105
BB = AREA(1)
XRN = BB/AA2
Figure 5-38 Subroutine CUTPNT Flowchart (cont.)
5-247
-------
YES
102
NO
= CUTMIN
XRN =CUTMIN
CUTN = CUT MAX
XRN = CUTMAX
NO
YES
104
AA2 =1.0
CUTN =CUTMIN
XCUT =CUTN
CUTN = CUTMAX
AA2 =1.0
XCUT = CUTN
9
mo
DELTA N =
XRN
COMPUTE NEXT GUESS AT CUTPOINTS
OUT = CA x CUT + CB x CUTN
JNCT = JCNT + 1
0
Figure 5-38 Subroutine CUTPNT Flowchart (cont.)
5-248
-------
MOVE CUTN—*o
-------
Table 5-38 SUBROUTINE CUTPNT LISTING
in
ro
in
o
1 — "•• —
I
5322J
53230
53250
53260
5? 280"
53290
53300
53310
53320
! 53330
53340
53350
53360
53370
53380
53400
53410
53420
53430
53440
53450
53460
53470
53480
53490
53500
53510
53520
53530
53540
53550
53560
53570
53580
53590
53600
53610
53620
SUBROUTINE CUTPNT(K,KIL
C:
C: THIS RUUTINE USES A
C: (LINPRO) TO PROOUCE
C: CUTPCINTS.
+ BAREA(3), BLU1,
+ DHIST(J,16),
+ ATARLEXJ9, 10,3) , ATA
COMMON /COMD?/
* CARSY, C8SUM,
+ CINCQN, CPCH, CP
+ CN( 15,3 , 16) ,
+ CPARTCO,15)
CC ADU2
COMMON /COM03/
+ EMW( 3) , EP( 10, 15)
+ FRECA, FREOB,
+ HORZN, HiJPZNY,
+ HPC(15,16),
+ HPS(o,15,16) ,
+ HPTOTS(16)
CC ADD3
COMMON /COM04/
+ KSTART, KSTOP,
+ LIDLE, LINK16),
+ MBASE, MPH,
+ MU(10,3), MMSdO,
CC ADD4
COMMON /COM05/
+ .NINTR, NINTRB,
+ NPTRN, NPTS,
* OCIY, OCMY,
CC ADDS
COMMON /COM06/PARM(3,3
* PC(15), PCS(15),
+ PP( 10,15) ,PS(6,15) ,
-»• PAR( 10, 15,?),
+ PMC 10,15).
+ PSA( 15) . PTA(5J .
L, 61,C,XN,NCODE ,N, A)
LINEAR PROGRAMMING P.
ACKAGF
THE OPTIMAL PARAMETER
ALA3, AVV", BKjr,
rlLU2, BSIG(3) , BXTRA ,
liM'-II ( 10,15, 3) ,
BLEY(9,10,
CARA,
CCOEK10)
3) .ASTABLX
CARIY,
•CCOSTI,
-
b S I Z E ,
(9,6,3), ASTABLY<9,6,3 )
CARMY, CARPOPt 16) ,
CCOSTM, CGTT,
I, CPVPY, CSUM, CARAY,
COEFB(15,3), COEFBP( 10, 15) ,
OELPCV,
,EFF(10) ,
,-PERCdO,
HPCS< 15, 'I
HPTtS.lb^
ITE,
LOPT, LPI
LPSPP(IQ)
MSPEC(IO)
15),
NAME(50) ,
NM130E,
MSTEPS,
OPT I,
), PART,
PHI ( 14) ,
PK5) ,
P A R 1 ( 1 0 , ?
PPICM 10)
PCONP,
UP( 10,15)
DELIT(3),
3) ,
O 1 ,
*
ITL,
CK ( 10),LLP
,LSTAP.T,
.MSTART,
MVPkt 10
NCNTR,
NTR,
QPTM.UPTS
PAYN6W,
PLO( 14) ,
PTOT,
,3) ,
,DELEM<3 ,16) ,DELI (3),
HPPdO, 15
HPTOT(lb)
ITP,
ICK,
LSTOP,
MSTOP,
,15)
NEMIS,
NOPTS,
NTRB,
(50) ,OVCHI
PAYOFFl
PLTMAX( 3)
PTS(5),
PLUS( 10,1
,PPPICK,PSTAR,PI(15,
PARINTHO.10,9)
,16) ,
t
ITIME( 16),
NEMP,
f-iPAR,
N PICK (16),
(3),OVCHM(3)
3),
,PMODEL,
PAYAUJ ,
5) ,
10) ,
-------
Table 5-38 SUBROUTINE CUTPNT LISTING (cont.)
5269C
ro
tn
527GC
5271C
5272C
5273C
527AC
i 5275G
5276C
5277C
5278C
5279C
52800
52B1C
5282C
5283C
5284C
5285C
5286C
5287C
5288C
5289C
529CC
529 1C
5292C
5293C
S294C
5295C
529€C
52970
5298C
5299C
53CCC
5301C
5302C
53C3C
5304C
5305C
53C6G
5307C
5308C
53C9C
531CC
4
4
4
4-
4
4-
4
CC ACC1
4
4
CC ACC1
4
+
4
4
CCWCN /CCNC7/
RTYPE,
SALE, SALL,
SKCDEL, STAPT(15,3
SCALEBKO),
SXCLT(6,3),
SIGf E(10),
SIGRATE, SIST,
STAELEX(23,fc,15) ,
CC»»KCN /CCM10/
TIM, TCBE<3),
TXTRA, TSIZE,
lh!ST(5,3,16) ,
TIMEMllO, 15),
0
CCHfCN /CCM11/
X1EP(3,3,£), >INT,
XTN<16), XEASE(9t3)
1.
CCPNCN /CCM12/
YES, YSL^,
21, 22 f
Z7, Z8,
213, Z14,
4 ZCARI, ZCARN,
4 ZZ(3,3)
CC ACC12
4
CC AECC
4-
4-
+
4-
*
c
CCFMCN yCEBLG/
LCEBUG, WDEEUG,
PEAL ITE,
f\AI*E, NC,
IN, MISFIRE
INTEGER RMPE,
TCIST, XLANE,
C1(6),A1(1C,6),DELTA(6)
CU^(60),^CCDE{6),E1('!») ,
I^EMSICN CLTIN(1G),COST
REINSP,
SALP,
), STAT,
SM(6,15),
SIG(10,3)
RNAME,
SITEI,
STIME
SIGMNE(IC),
SIGS(6,15),
STABLEY(33,6,15)
TCNX,
TSIG43),
ThISTTO,
1ABLEX133
kFtlO)*
XINTB,
,YEASE(9,
Y1BP(3,3,
YTM16) ,
23,
215,
2IC,
ACEfiUG,
PCEBUG,
III ,
MU,
LCEEUG,
SITEI,
CPTI,
(6) ,A( 15,
,CLTN(6) ,
XCLTLCH6)
(6)
TDISTUO
TOTE(3>,
TPER(16
16),
,10,15),
XLANE
3)
10),
Y1DBP
Z4,
Z10,
Z16,
ZSUM,
BCEBUG,
QCEBLG,
ITP,
NVPR
NCEBLG,
SITEf,
PPICK,
15),XRN{6
DELTAM6)
,PSTARC(6
RSIZE,
SITEM,
(3),
SPARC10
SIGCE
SIGPdO
SIGSDE
RSTOP,
SLANE,
,15,6),
(3),
,15),
(3),
,3),TIDLE,TiMEIt3,16),
TPC8{3), TPDT(3),
,15), IMIL(16,15),
TIMEC(10,15),
TABLEY(33,10,15)
, xsu,
Y2BP(3,
25,
Zll»
Z17,
C DEBUG,
SDEBUG,
ITIME,
STAT,
PPPICK
,XM6) ,
, XCUTUC,3),
3,10),
Z6,
Z12,
CDEBUG,
TCEBUG
-------
tn
ro
en
ISJ
5311C
< 312C
531JC
5314C
5315C
5316C
5317C
' 3 1 fi C
UISC
<320C
; 5 32 1C
: 5322C
; 5223C
5324C
i325C
5326C
5327C
5328C
532SC
S330C
5331C
f 232C
5333C
5334C
5335C
5336C
5337C
5338C
5339C
5340C
5341C
5343C
5344C
5345C
53A7C
53A8C
53ASC
5350C
|~~ 5351C
« 5352C
Table 5-38 SUBROUTINE CUTPNT LISTING (cont. )
CATA CA,CB/.7,.3/
CATA Al/l.,0.,C.,C.,C.,C.,C.,C.,C.fC.t
* c"1c"Ci"c">o"0c."Cc"'c"l"0o"
< C. ,C. ,C. ,1. ,0. ,C.»C.,0. ,C. ,0. ,
' C«vC«TC*tO«ffC«fl«fC«fC*fC«fC*/
CATA CLTIN/l.,-lCC.t2.t-l.flOO.,-.l/
CATA 1PPNT/1/
CATA >CUTLC/l.,-lC.fl.t-.ltlO.,-.C5/
C:
C: SET LP CLNSTHAINT ANC L1IL1TY FLNCTICN MATRICES
C:
NN=NSTEFS+1
J=l + (l«-l )*5
JCNT=C
KUL=C
FIXCCST=C.
CC 10 f=lt6
[f )-C.CLCl
IFtff .LT.WSTART.CR.MM.GT.fSTCP) GOTO 1C
C:
C: CCt-PlTE CCST FCR ThE CISTR1BLTEC PARAMETERS
C:
10 HjuiiiliSliiijSi""'"'"10
C:
C: ^LVE ThE EMSSICN CELT/ ANC CCST CCNSTRAINTS INTC
C: THE E ARR/iY. £(P)
C:
CC 15 N=6,1C
E(7)=E1(1)-FIXCCST
E ( 11) = 1.05*PSTAP
E ( 12) = C.S5*PSTAR
IF (FSTA^.LT.l.E-5 ) E(llj = 20.
IFIPS1AR.LT.1.E-5) E(12)=-20.
-------
5353C
5354C
5355C
5356C
5357C
5358C
5359C
536CC
5361C
5362C
5363C
5364C
5365C
5366C
5367C
5368C
5369C
537CC
5371C
5372C
5373C
5374C
5375C
5376C
5377C
5378C
5379C
538CC
Table 5-38 SUBROUTINE CUTPNT LISTING (cont. )
C:
C: CGNFLTE ENISSICN CCNSTFAINT CCEF.
C:
CC 2C 1=1,3
11=1+7
CC 20 N=l,6
C:
C: fGVE TEHPCRARV CCEFFICIENTS IMC THE A ARRAY -A(10,6)-
C:
CC «C l» = l,6
C1(^)=C.
NM=t\CCCE (C)
CC 4C 1=1,3
CC 5C 1=1,6
5C CLT U)=CUTIM I)
54 CC 51 1=1,10
CC 51 P=l,6
51 t(l,f}=tLiLtfl
C:
C: CCf-FUTE EXPECTED EMISSUN CRCP (CELTAJ
C:
CC 55 M=l,6
^'^=^cccE
C:
C: THPCk CUT NCN FCSITIVE CUNTKI BUT ING DISTRIBUTIVE PARAMETERS
-------
Table 5-38 SUBROUTINE CUTPNT LISTING (cont.)
en
5395C
5396C
5357C
53S8C
53S9C
SAOCC
5A02C
5403C
5AOAC
5A05C
5A06C
5AG7C
5A08C
5ACSC
5AICC
5A11C
5A12C
5A13C
5A15C
5A16C
5A17C
5A18C
5A19C
5A2CC
5A21C
5A23C
5A2AC
! 5A25C
5A26C
5A27C
5A28C
1 5A29C
5A3CC
5A31C
5A32C
5A33C
5A3AC
5435C
5A36C
C:
60
(5
1010
1C20
C:
C:
C:
70
C:
C:
C:
C:
C:
C:
C:
105
101
Cs
IF(C(M .LT.O. ) B(M) = C.CCC1
A (7.f)=CCST(f j
CO 6C L=8,1C
/(L,N)=-/l(Lf^}*CELT/{M)
IF ( IFRNT.EC.C) GCTC 7C
IF( JC^T.^E.o.A^c.JC^T.NE.5.ANC.JC^T.^E.lC) GL TO 7C
CO t5 L=lf12
L» D f T £ / £> lOOOk f A 1 1 fa 1 U-~1 /s\ C/l I
Vif^l IClCfXu^uJ Ir^lLfilf" "™* X f O * f C(L-/
FCRyAT(/6FlC.^/ )
FCR^AT (7F1C.A)
CALL LINEAR PROGRAMING ROUTINE.
CALL LPAX{A,E,C,XN,CLI'S15,12,t,IERR,C,2.)
CC^PLTE OPTICAL CLTFCINTS EASEC ON THE LPTIPAL
REJECTION FRACTICN FPC^ LINPRC.
1FI IERR.NE.C) GCTC S5
IF( IPRM.EC.l) V»PITE(6,15C) XN
CO 11C N=l,t
CLTN(N)=C.
IF(MF.LT.PSTART.CP.fH.GT.frSTGP) GOTO 110
IFtXN(M.LT.O.COl) GCTO 1C1
IF(XMP).GT.C.SSS) GCIO 1C3
XCLT(^'^,K)=XFT{TAELEX(1,^^, J),TABLEY(lfMPf J),NN»XN(M) )
AA2=AREA(C,NM,J,K,N)
CC«»PtTE REJECTED PCPUL/TICN MEAN.
EE=ARE/i tlT^Ct JtK,NJ
XRN(I»)=EB/AA2
C-CTC 11C
IF(LIM (HHl.EC.l) GCTC 1C2
-------
!
cn
PO
in
cn
5437C
54380
5439C
5440C
5441C
5442 C
5443C
5444C
5445C
5446C
5447 C
5448C
544SO
545CC
54510
5452C
54530
54540
5455C
5456C
5457C
5456C
5459C
5460 C
5461C
5462C
5463C
5464C
54* 5 C
5466C
5467C
5468C
5469C
5470C
5471C
5472C
5473C
5474C
5475C
5476C
5477C
5478C
C
C
C
C
C
1
1
C
C
C
C
C
C
C
C
C
C
1
C
C
C
1
«
:
*
*
•
*
02
03
*
•
*
•
104
110
•
•*
*
*
«
30
150
—
•
•
6C
Table 5-38 SUBROUTINE CUTPNT LISTING (coirt ._)___
REJECT THE HIGH END. REJECT FRACTICN=C.
XRMM-CUTMXin'
GCTC 11C
REJECT THE LCWER END. REJECT FRACTICN=0,
XfiMlil-CUlJlMi)'
GDTC 11C
1F(LHVT{*M.£<;.1) GCTC 104
REJECT THE HIGH END. REJECT FRACTICN = 1.
CCTC 1C5
REJECT THE LCWER ENC. REJECT FRACTICN = 1.
CLTMf ) = CUTC/iXif )
AA2=1.C
CCTC 1C5
CELT/iMf" ) = X»N (N)
CO 130 N=l,6
CuFPLTE NEXT CLTFGINT GLESSES ANC GC TC
THE TCP CF THE LOOP.
CCT (^)-CA*CCT(J')-»CE:*CLTN(N)
FCRf/ST{* X*TF8.4 ,5F10.4)
JCKT=JCNT+1
IF( JCNT.LE.1C) GCTC 54
NCVE OFTIML CLTFCINTS INTO XCUT
CC 160 !*=!,&
«L,,«.K,-CLIM,,
-------
Table 5-38 SUBROUTINE CUTPNT LISTING (cont.)
5480C <35 KlL=l
5481C f
-------
5.13.3 Subroutine LPAX
Subroutine LPAX is the actual linear programming algorithm used
in the model. LPAX is a TRW proprietary programming package and con-
sequently has not been included in this writeup.
5.13.4 Subroutine PXCOEF
Subroutine PXCOEF computes the coefficients necessary for estimating
the union of a set of parameter rejection rates. The coefficients are
used in the linear programming model for the P* option in which a con-
stant rejection rate is required. The fundamental equation of PXCOEF
computes the union of probabilities for independent occurrences. The
coefficients are computed for each of the distributed parameters and
multiplied by the rejection rate X in the OPTMUM optimization loop.
Figure 5-39 contains a complete flowchart of the subroutine while
Table 5-39 includes a listing.
5.14 OUTPUT ROUTINES
Since GEEP is a user oriented program, an effort has been made to
make the output as clear and self-explanatory as possible. This require-
ment has, of course, lead to a large number of specialized output routines
with a variety of output options including plots, tables, debug information,
and summary level results. The following routine descriptions provide an
overview of the various output options. The reader is referred to
Section 3.0 for more details on program output.
5.14.1 Subroutine DISTPR
Subroutine DISTPR is an output subroutine used in the convolution
routine of GEEP. DISTPR prints out three distributions along with their
respective means and standard deviations. Usually these distributions
5-257
-------
(^SUBROUTINE PXCOEF^
MOVE 1.0 INTO C(1)-C(6)
110
FOR I = 1 TO 5
6
LET C(l) = C(l) - 2Z X(j)
220
FOR I = 1 TO 4
LET
j = I + 1 k = j +1
X(i)xXflc)
320
FOR I = 1 TO 3
45 6
LET C(l) = C(l) - £1 5 -
j = 1 k = j + 1 I =
X(j)xX(k)xX(l)
420
FOR I = 1 TO 2
345 6
LET C(l) = C(l) + XT XZ SH ^IZ X(j)xX(k)xX(l)xX(m)
j = 1 k = j + 1 I=k + l m = 1 + 1
520
- X(2) x X(3) x X(4) x X(5) x X(6)
RETURN
Figure 5-39 Subroutine PXCOEF Flowchart
5-258
-------
en
i
ro
01
Table 5-39 SUBROUTINE PXCOEF LISTING
64460
64470
64480
j 64490
i 64500
! 64510
64520
64530
64540
64550
64560
64570
64580
64590
64600
! 64610
64620
64630
64640
64650
64660
64670
64680
64690
64700
64710
64720
64730
64740
64750
64760
64770
64780
! 64790
i 64800
' 64810
64820
64830
64840
64850
64860
i 64S~70
64880
SUBROUTINE PXCOEF(X,C)
DIMENSION X(l) ,C(1)
DO 110 1=1,6
no cm=uo , -
DO 220 1=1,5
J1=I+1
A = 0
DO 210 J=J1 ,6
210 A=A+X(J)
220 C(I)=C
-------
will be two arbitrary distributions and their convolution. A flowchart
of DISTPR is found in Figure 5-40. Table 5-40 presents a listing of the
code.
5.14.2 Subroutine OUT
Subroutine OUT is the main output routine for the General Economic
Effectiveness Program. All computed cost values, payoff functions,
Inspection/Maintenance descriptors, and emission time histories are
printed by subroutine OUT. Several unit conversion and index calculations
appear for referencing name arrays and outputting data in meaningful units.
Figure 5-41 contains a summary level flowchart for subroutine OUT.
Table 5-41 provides a complete listing of output variables and formats.
5.14.3 Subroutine GEEPER
Subroutine GEEPER is a header routine which prints a GEEP/CRC Logo
on the first page of each run. GEEPER is called only once for each run.
Figure 5-42 contains a flowchart for GEEPER while Table 5-42 contains a
listing.
5.14.4 Plot Routines
Output from GEEP is provided in easy-to-read tables and plots. The
following plot routines perform specialized functions involved in generating
the summary and debug plotted output for a GEEP execution. The basic
plot routine, PLOTJK, is a well known standard output routine for dis-
playing data on a digital line printer. It works with an alphanumeric
array initialized blank and fills it with characters for the functions
being plotted. There is theoretically no limit to the number of functions
which can be plotted on one graph, but for GEEP, in the interest of
clarity, that number has been limited to two. Off-scale flags at both
ends of the plot indicate out-of-bounds data, but since GEEP automatically
adjusts the scales to the data, this data range error should never occur.
5-260
-------
SUBROUTINE DISTPR
RETURN
PRINTOUT NAME OF DISTRIBUTIONS
AND DISTRIBUTIONS
/
/
CALLSTD2
WITH EACH DISTRIBUTION TO
GET MEAN AND SIGMAS
/
PRINTOUT MEANS AND
SIGMAS
/
/
f
RETURN
J
)
Figure 5-40 Subroutine DISTPR Flowchart
5-261
-------
Table 5-40 SUBROUTINE DISTPR LISTING
01
ro
o>
ro
1 - • ' — — - • ••
I
39520
39530
39540
39550
39560
I 39570
^°580
3^590
39600
396LO
39620
39630
3°640
39650
39660
39670
39680
' 396^0
39700
39710
39720
39730
39740
39750
?
-------
c
SUBROUTINE OUT
PRINT OUT MAIN
GEEP OUTPUT VARIABLES
PRINT OUT TIME HISTORY
REJECTION RATES
RETURN J
Figure 5-41 Subroutine OUT Flowchart
5-263
-------
Table 5-41 SUBROUTINE OUT LISTING
* 3 5
'ME DUT
COMMUiJ /CQM01/ A'«n(3)
6 A K F A ( 3 ) , rt L D 1 ,
L 0 2
AW , i3INT,
iS IG(3), bXTkA,
BSIZE ,
40570
4 0 580
BHIST(3,16),
ATAflLEX(9,10,3),ATA
COKMuN /CUM02/
3fS,-1I< 10,15,3) ,
dLEY(9,10,3),ASTA6LX(9,6,3),ASTABLY(9,0,3)
CAR A, CARIY, CAkMY, CARPOP(16) ,
en
i
ro
4J600
40610
40623
40630
40640
tSs
40680
40690
40700
+ CAkSY, CF5SUM,
+ CINCCN, CPCB, LP
+ CN< 15,3, 16) ,
+ CPART110.15)
CC ADD?
COMMON /COM03/
+ EMW( 3) , EP( 10, 15)
+ Fk£GA, FREUd,
-t- HOR7N, HORZNY,
+ HPCU5.16),
+ HPS(6,15,16) ,
+ HPTCTS1 16)
CCUEFl 10) ,CCUSTI , CCOSTM, CGTT,
I, CPVPY, CSUM, CARAY,
CGEFcsi 15,3) , COEl-BP< 10,15) ,
DEL PC V, J'P( 10, 15), DEL EM (3, 16) , DEL I (3),
FPtiRCf 10,3),
HPCS113.16), HPP ( 10, 15, 16) ,
riPT(5,16), HPTOT(16),
40710
43720
4073_0
40740^
40750
40760
CC ADD3
COMMON /COM14/
KSTART, J^.SJU_?_,_
L1DLE, LINT116),
MBASE, MPH,
ML) ( 10,3) , MM SI 13,
IT£, I TL, 1TP,
LOPT, LPICK(10),LLPICK,
ITJME( 16),
LPSPP(10),LSTART, LSTOP,
MSPEC(IO).MSTART, HSTOP,
15), MVPR I 10,15)
40770
40780
40793
40800
43810
43820
40830
40840
40850
40860
40370
40880
43890
40900
t3910
40920
40930
CC ADD4
+
+
CC ADD5
+
-t-
-*•
+
-«•
+
COMMON /COM05/
NINTR, iMINTRB,
NPTRN, NPT$,
OCIY, OCMY,
COMMON /COM06/PARM13,
PC( 15) , PCSl 15 ),
PP( 10, 15) ,PS(6,15)
PAR( 10, 15,3) ,
PMl 10,15),
PSAU5), PTA(5),
.PAYFIN
COMMCi\ /COM07/
RTYPE,
SALE, SALL,
SMQDEL, START(lt>
.vl Artel 50) ,
OPTI,
3), PART,
PHI (14) ,
, PT(5l ,
PARK 10,3
PPICKl 10)
PCONF,
REINSP,
SALP,
,3J , STAT ,
NCNTR, NEMISt i\EMP,
NO, NOPTS, i\PAR,
NTR, NTRB, NPICK(l6),
OPTM,OPTS(50) ,OVCHI(3) .UVCHM13)
PAYNEw, PAYOFF13) ,
PLO( 14) , PLTMAXl 3) ,PMUJEL»
PTOT, PTS15), PAYADJ,
,3) , PLUS< 10,15) ,
, PPPICK.PS TAR, PI (15, 10),
PARINT(13,10t 9)
RNAME, RSIZE, R STUP ,
SITEI, SITEM, SLANE,
STIMEl 3) , SUMBMO) ,
-------
Table 5-41 SUBROUTINE OUT LISTING (cont.)
en
ro
&>
en
" 40940 '
40950
40960
40970
1 40980
40990
41000
41010
41020
41030
41040
41050
i 41060
41070
41080
41090
; 4iioo
41110
41120
41130
41140
41150
41160
41170
41180
41190
41200
41210
41220
41230
41240
41250
41260
41270
41280
^1290
^1300
41310
41320
41330
41340
41350
+ SCALEBMO),
+ SXCUT(6,3),
+ SIG^EUO),
+ SIGRATE, bIST,
+ STA8LEX( 33,6,15) ,
COMMON /CUM10/
+ TINT, TOBEJ3),
+ TXTRA, TSIZE,
+ THISTI 5 ,3,16) ,
+ TIMEMt 10,15) ,
CC AUDIO
COMMON /COM11/
+ X16P(3,3,6), XI NT,
+ XTM( 16) , X8ASE19, 3
CC ADD11
COMMON /COM12/
+ YES, YSU/i,
+ Zl, Z2,
+ Z7, Z8,
+ Z13, Z14,
+ ZCARI, ZCARM,
+ Z Z ( 3 , 3 )
CC AOD12
COMMON /DEBUG/
* LDEBUG, MDE8UG,
CC ADDD
REAL ITE,
+ v,MS, MPH,
+ NAME, NO,
+ IN, MISFIRE
INTtGER RNAME,
-i- TDIST, XLANE,
DATA XNAME/4HIDLE, 1H ,1
+ 1HB/
I=OPTI
VEHPOP = CARPOP( D/1.E6
WRITE (6,1) NAME(20+NN)
1 FORMAT ( 1H1,/30X,2A10,*
WRITE (6,2)
2 FORMAT(//20X,*EMISSICN
+ *TRVv/ARB*)
SM(6,15) ,
S IG(10,3) ,
S IGMNE( 10) ,
SIGS(6,15) ,
STA8LEY(33 ,6, 15)
TAREA(3), IDISTdO,
TONX, TOTE(3),
TSIG13), TPERU6,
THI STT( 3,16) ,
TABLEXt 33,10,15),
*!F( 10),
XI;N(TS, XLANE,
) , Y8ASE(9,3)
Y 1 3 P ( i , 3 , 1 0 ) ,
YT'-Uio) , Y1DBP(
i3t Z4,
Z 9 , Z 1 0 ,
Z15, Lib,
LIC, ZSUM,
ADE8UG, BOE3UG,
POE3UG, QDEBUG,
ITL, ITP,
MS PEC, MU,
LOEBUG, MDEbUG,
SITE I, SITEM,
0 P T I , P P I C K ,
OH EXT E.MS IV E ,1HA,10H
REGIONAL DATA*)
SPAR( 10,15,6) ,
SIGCE (3) ,
S IGP( 10,15) ,
SIGSOE (3) ,
3) ,TIOLE ,TIMEI(3,16),
TPDBI3) , TPUT( 3),
15), TMIL(16,15),
TIMEC(10,15 ),
TABLEY(33, 10, 15)
XSUM, XCUT(10,3),
Y28P( 3, 3 ,10 ) ,.
4,4, 10), Y20rtP(4,4,10) ,
Z5, Z6,
Zllf Z12,
Z17,
CDEBUG, DDE8UG,
SDEBUG, TDEBUG
ITIME,
MVPR,
5TAT,
PPPICK, XNAMt(6)
EXTENSIVE ,
SURVcILLANCt DATA SOURCE*, T73,
-------
O1
ro
1 41360
41370
41 380
41390
41400
41410
41420
41430
41440
41450
41460
41470
41480
41490
41500
41510
41520
41530
41540
41550
41560
415^0
41580
41590
41600
41610
41620
41630
41640
41650
41660
41670
41680
41690
41700
41710
41720
41730
4 1 74 0
41750
41760
41770
Table 5-41 SUBROUTINE OUT LISTING (cont. )
WRITE t6,3) (AMtH I ) , 1=1 ,NEMIS)
3 FORMAT (/,20X,*FEDERAl 1975 MJT JR VOHICLE STANDARDS "> , / .
+ 40X,*HC*,T71,F6.2,* G/MI * /40X , *CO* , T7 1 , F6. 2 , * G/MI*,/
+ 40X,*NO*,T71 ,Ft>.2, * G/MI*)
WRITF (6,4) lEMW(I) , I=1,,NEMIS)
4 FORMAT (/,20X,*EMISSICN SPECIE WEIGHTING FUNCTION*,/
+ / ,40X,*HC* , T71,Fb. 2./40X ,*CO*,T71,F6.2,/
-»• 40X,*NU*,T71,F6.2)
C*****WRITE (6,5) (GOALS( I ) , 1=1 .NEMIS)
5 FORMAT { /,20X,*MI N1MUM EMISSION REDUCTION GOALS*//
* 40X,*HC*,T71,F6.2* PERCE NT*/40X, *CG* , T71 , F 6. 2 , * PERCENT*/
+ 40X,*NC*,T71,F6.2,* PERCENT*)
WRITE 6,6) RSIZE
6 FORMAT /,20X,*REGI3NAL AR t A* , To9 , F 8 . 2 , * SQ MI*)
WRITE 6,7) VIPH
7 FORMAT /,20X,*AVERAGE VEHICLE S PE ED* , T71 , F6 . 2 , * MPH*)
WRITE 6,8) VEHPCP
8 FORMAT(/,20X,*V6HICLE POPULATI ON* ,T 72 , F5 . 2, * MILLION*,/)
WRITE (6,9) SITEM
9 FORMAT (20X, *NUM8ER OF CLASS /A* FRANCHISED GARAGES*,
+ T71, 14)
WRITE (6,10)
10 FORMAT(1H1,/,36X,34( 1H*)/36X, 1H*,4X,
+ *TRw INSPECTION/MAINTENANCE*, 2X, 1H* , / 36X , 1H* , 1 OX ,
+ *SYSTEM MODEL*, 10X, 1H* ,/ 36X, 34( 1H* ),/)
WRITE (6,25)
25 FORMAT (43X,*SUMMAPY INFORMATION*,/)
WRITE (6,50) RTYPE,XNAME(2*I-1) ,XNAMF(2*I)
50 FORMAT(37X,*ENGINE *,A9,* STRATEGY *,A10,A1)
WRITE (6,20) TINT
20 FORMAT ( 38X, * INSPECT ICN PERIOD IS*,F5.1,* MONTHS*)
WRITE (6,60) PAYNtrt
60 FORMAT(//,T20,*PAYOFF FUNCTION UNADJUSTED (DOLLARS/*,
+ *.^EIGHTED EMISSION) *,T90,F15.2)
WRITE(6,65) PAYADJ
63 FORMAT(T20,*PAYOFF FUNCTION STATISTICALLY ADJUSTED*,
•••* (DOLLARS/WEIGHTED EMISSION) *,T90,F15.2)
WRITE (6,66) PAYFIN
66 FORMAT(T20,*PAYOFF FUNCTION AT ENO OF LAST YEAR*,
-»• * (DOLLARS/WEIGHTED E M I S S I ON ) * , T9 D , F 1 5. 2 )
WRITE (6,70) ( NAME( I ) ,PAYOFF( I) ,1=1 .NEMIS)
70 FORMAT (T20, A3, *EM[ SSION REDUCTION { P ER CENT ) * , T9 0, Fl 5 . 2 j
-------
tn
IT- ' \
41780 '
41790
41800
41810
41820
: 41830
41840
41850
41860
41870
41880
41890
41900
41910
41920
41930
41940
; 41950
41960
41970
41980
41990
42000
42010
42020
42030
42040
42050
42060
42070
42080
<*2090
42100
42110
42120
42130
42140
42150
42160
42170
; 42180
: 42190
*> Table 5-41 SUBROUTINE OUT LISTING (cont. )
•*. • *..* WRITE (6,80) (NAMEd J.TPOK I),I=1,NEMIS)
80 FORMAT (T20,A2,* AVERAGE EMISSIONS ( TONS/DAY )*, T90 ,F 15 . 2 )
YSUM=YSUM/HORZNY
WRITE (6,90) YSUM
90 FORMAT(T20,*TOTAL COSTS FOR MANDATORY PROGRAM*,
+ * (DOLLARS/YEAR)*, T90,F15. 2)
CBSUM=CBSUM/XINTB
WRITE (6,100) CBSUM
100 FORMAT(T20,*TOTAL COSTS FOR VOLUNTARY PROGRAM (DOLLARS/*,
•»-*YEAR)*,T90,F15.2)
RCS=(YSUM/CBSUM)*100.
WRITE (6,215) RCS
WRITE (6,110) CCOSTI
110 FORI"AT(T20,*INSPECTION CAPITAL COSTS (DOLLARS/STATION)*
+ ,T90,F15.2)
WRITE (6,120) OCIY
120 FORMAT(T20,*AVERAG6 INSPECTION 0- CRATING COSTS (DOLLARS*,
+*/YEAR)*,T90,F15.2)
WRITE (6,130) CCOSTM
130 FORMAT(T20,*MAINTENANCE CAPITAL COSTS ( DOLL ARS) * , T9 0 ,
+ F15.2)
WRITE (6,140) OCMY
140 FORMAT(T20,*AVERAGF MAINTENANCE OPERATING COSTS (DOLLARS*,
+*/YEAR)*,
-i- T90.F15.2)
WRITE (6,150) CINCQN
150 FORMAT T20,*OSER COSTS (DOLLARS/CAR) *,T90,F15.2)
WRITE 6,lbO) CPI
160 FORMAT T20,*COST PER INSPECTION*, T90tF15. 2)
WRITE 6,170) CPVPY
170 FORMAT T20,*CQST PER VEHICLE MAINTAINED*,
+ T90.F15.2)
URITE (6,180) CARIY
180 FORMAT(T20,*AVERAGE NUMBER OF CARS I NSPECTED/ YE AR*,
+ T90.F15.2)
WRITE (6,185) CARSY
185 FORMAT(T20,*AVERAGf NUMBER OF CARS REJECTED/YEAR*,
+ T90,F15.2)
WRITE (6,190) CARMY
190 FORMAT(T20,*AVERAGE KUMBER OF CARS MAINTAINED/YEAR*,
+ T90,F15.2)
AVEFAIL=CARMY/CARIY
-------
Table 5-41 SUBROUTINE OUT LISTING (cont.)
tn
i
ro
00
• t /' ? 0 0
4;vi 3
»/?20
42240
42253
4?260
42270
42280
42290
42300
42310
42320
42330
42340
42350
42360
42370
42380
42390
42400
42410
42420
42430
42440
42450
42460
42470
42480
42490
42500
42510
42520
42530
42540
42550
42560
42570
42580
42590
42600
42610
210
215
220
2?0
240
260
420
310
330
o30
610
620
630
640
650
WPITE (6,210) AVEFAIL
FORMAT(T20,*AVERAGE FAILURE PFK CtivlT AGE * »T90 , F 15 .2 )
FORMAT (T20, *hATIO OF MANDATORY Tu VOLUNTARY COSTS (PERCENT)*
+,TqO,F15.2)
WRITE (6,220) HORZNY
FORMAT( T20,*TOTAL PROGRAM DURATION ( YE ARS ) * , T90 , F 15 . 2 )
WRITE(6,230) (1,1=1,10)
FORMAT ( 1H1, /,40X,*PASS/F4 IL INSPtiCTION CRITERIA*,////,
* 1ZX,*PARAMETER * , 3X , 1 J I S , / )
WRITE (6,240) (NAXE (K + 3) , ( XCUT ( 1 , K, ) , M=l ,3) , ( TOIST( M,K) , M =
+ 4,6) ,(XCUT(M,K) ,M=7,9) , TO I S T ( 10 ,K ) , K= 1 , 3 )
FORMAT(17X,A10,F8.2,FP.O,F8.2, 3(Io,2X),F8.4,F8.2,F8.4,I6i
WRITE(6,250) ( I ,!=!,&)
FORMAT (///, 12X,*MUOE EKMIMGNS * , I c. , 5 I 8 , / )
WRITE (6, 2 60) (NAMEtK+3) , ( SXCUTIM.K) , M=1,6),K=1,3)
FORMAT(17X,A10,F8.0,F8.2,F8.0,F8.0,F8.2,F8.0)
WRITE (6,420) ( NAME ( I ) , 1= 1 , NtMI S) , ( TPDB( I ) , 1 = 1 , NE MI S) ,
-*• (TPDT( I ) ,I = 1,NEMISJ
FORMAT(///////,35X,* TOTAL EMISSION LEVELS (TONS/DAY)*,
-»- /,T30,A2,T50,A2,T70,A2/20X,*BASE*,
+ T25,F10.2,T45,F10.2,Tt>5,FlC.2/,20X,*TEST*,
+ T25,F1C.2,T45,F10.2,T65,F10.2/)
FOPMAT(//,20X,5( 1H* ) , A4 ,*LE VEL — END OF *,
+ *INSPECTIUN INTERVAL ( GR / VEHI CLE-M I LE ) *,5(1H*)/)
CONTINUE
IF(RTYPE.EQ.PMODEL) GO TO 335
WRITE (6,600)
FORMAT( 1H1, //,40X,*STATELANh INSPECTION CONFIGURATION*)
WRITE (6,610) STAT
FORMAT(///,20X,*TOTAL NUMBER OF STATE OPERATED INSPECTION*
+ ,* LANES*, T84, 13)
WRITE (6,620) XLANE
FORMAT(/,20X,*NUM6ER OF LANES PER S I TE* ,T86 , I 1 )
NS=STAT/XLANE+.5
WRITE (6,630) NS
FORMAT(/,20X,*TOTAL NUMBER OF S ITES *,T 85, I 3)
WRITE (6,640) STIME
FORMAT( /,20X,*VEHICLE INSPECTIJN TIMES*/
+ 25X,*IDLE*,T75,F15.2,* M I N*/25X, *L OADED* , T75 , F 15 .2 ,* MIN*
+ /25X,*HYBRID*,T75,F15.2, * MIN*)
WRITE (6,650)
FORMAT(/.20X,*EOUIPMENT REQUIREMENTS AND COSTS*/
-------
** 42620
42630
42640
42650
42660
42670
42680
42690
42700
42710
42720
42730
42740
42750
42760
42770
42780
42790
Y1 42800
£ 42810
* 42820
42830
i 42840
! 42850
: 42860
42870
42880
42890
42900
42910
42920
42930
42940
42950
42960
42970
42980
42990
43000
43010
43020
i 43030
'>FSV', ".V.
H
H
H
660
^
670
580
o90
^
700
i
707
335
340
350
^
360
370
380
390
400
8 Table 5-41 SUBROUTINE OUT LISTING (cont.) |
^ 25X,*NDIR*,T83,*2000 DOLLARS/LANE*/
H 25X,*COMPUTER*,T82,*15000 DOLLARS/ LANE*/
+ 25X,*MISC.*,T83,*3000 DOLL ARS/ LANE*/
i- 25X,*DYNO*,TB3,*7000 DOLLARS/LANE*}
WRITE (6,660) Z15
FQRMAT(/,2QX, INFORMATION PROCESSING COSTS* , T75 ,F15 .2
i- * DOLLARS/CAR*)
WRITE (6,670J Z9
FORMAT(/,20X,*USER TIME C OS TS* , T7 5, F 15 .2, * DOLL ARS/ HR.* )
WRITE (6,680) ITIME(2)
FORMAT(/,20X,*TOTAL USER TIME PER PERSON* tT75»F 15.2 »* HIM*)
WRITE (6,690) NEMP
FORMAT(/,20X,*NUM8ER OF STATE EMPLOYEES PER LANE*,
H T84, 13)
SSIZE=BLD1+BLD2*XLANE
rtRITE (6,700) SSIZE
WRITE (6,707) SIST
FORMAT(/,20X,*STATION SIZE (FACILITIES ONLY)*
H,T75,F15.2,* SO. FT.*)
FOPN , 1= 1,NEMIS)
FORMAT( 1HO,5(/) , 40X, *SUMMARY EMISSION HISTORIES*
i- //,3X,*TEST*,3X,*TIME*,T32,A2, T55, A2, T80,A2,/
•- 4X,*NO*,5X,*MO*,T26,3(*8ASE*,8X,*TEST*,8X)/)
DO 410 N=1,NTR
TIME=TINT*(N-1)
IF(N.EG.NTR) TIME=HORZiM
WRITE (6,400) N,TIME,(BHIST(I,N) ,THISTT( I ,N) ,I=1,NEMIS)
FORMAT{4X,I2,3X,F4.1,5X,6F12.3)
-------
I
ro
- 43040 ' *•" *
43050
43060
43070
43080
43090
43100
43110
43120
43130
43140
43150
43160
43170
43180
43190
43200
43210
43220
43230
43240
43250
43260
43270
43280
SiZ-tf
500
510
520
530
535
540
550
560
999
Table 5-41 SUBROUTINE OUT LISTING (cont. )
"CONTINUE
00 560 N=2,NTR
TIME=(N-1)*TINT
WRITE (6,500)
FORMAT( 1H1,45X, *FAILURE PROBABILITIES*)
WRITE (6,510) N,TIME,HPTOT(N) \
FORMAT(/,28X,*TIME HISTORY POINT*, I 3,F6. 1,* MONTHS*, 5X,
+ *TOTAL FAILURE IS *,F9. 3 ,*<*,/)
00 550 JJ=1,NPTRN
WRITE (6,520) J J ,NAME( J J+10) ,HPT ( J J ,N) , ( 1 1 , 1 1 = 1 , 10)
FORMAT(/,35X,*POWERTRAIN TYPE*, 14,* — *A8, F9.3 ,*s* ,
4 //,* PARAMETER*, 5X, 12, 9(7X, 12) ,4X,*UNION*J
00 540 K=KSTART,KSTOP
J=JJ+5*(K-1)
WRITE (6,530) NAME( K+3 ) , ( HPP( M, J , N) , M= 1, NPAR) ,HPC ( J , N)
WRITE (6,535) ( HPS < L , J, N) , L=l ,NMODE ) ,HPCS ( J , N)
FORMAT{2X,A8,11F9.3>
FORMAT (4X,*MODE*,2X,6F9.3,36X,F9. 3)
CONTINUE
CONTINUE
CONTINUE
WRITE (6,999)
FORMAT (1H1)
RETURN
END
-------
(SUBROUTINE GEEPER^)
PRINT OUT LOGO
GEEP
c
RETURN
Figure 5-42 Subroutine GEEPER Flowchart
5-271
-------
Table 5.42 SUBROUTINE DEEPER LISTING
en
i
PO
43290
43300
43310
[ 433?0
43330
43340
43350
43360
43370
43380
43390
43400
43410
43420
43430
43440
43450
43460
43470
43480
43490
43500
43510
i 43520
43530
43540
43550
43560
43570
43580
43590
43600
43610
43620
43630
43640
43650
t3660
43670
43680
43690
" »
SUBROUTINE GEEPER
DO 2 I I 11 = 1, 1
WRITE (6,999)
WRITE(6,50)
WRITE(6,51)
WRITE 16,52)
WRITE(6,51)
WRITE (6,50)
WRITE ( 6,53)
WRITE(6,54)
WRITE(6,55)
WRITE(6,56)
WRITE(6,57)
WRITE (6,50)
WRITE (6, 51)
WRITE (6, 52)
WRITE (6,51)
WRITE(6,50)
WRITE (6, 49)
WRITE( 6,58)
WRITE(6,59)
WRITE(6,60)
WRITE(6,60)
WRITE(6,61)
WRITE(6,62)
WRITE(6,63)
WRITE (6,64)
WRITE(6,64)
WRITE(6,65)
WRITE(6,66)
WRITE(6,67)
2 CONTINUE
49 FORMAT(/////J
50 FORMAT(19X,9(1HC))
51 FORMAT(18X,11(1HC) )
52 FORMAT(18X,3(1HCJ)
53 FORMAT (/3X, 12(1HT),3X,10{1HR),4X,2( 1HW ) ,9X, 2 ( 1H W ) )
54 FORMAT (3X,12( 1HT),3X,2( 1HR ) , 7X , 2( 1HR ) , 4X , 2( 1HW ) , 3X, 1HW,3X,2 ( 1HW) )
55 FORMAT(8X,2( 1HT ) , 8X , 10 ( 1HR ) ,6X, 2 ( 1H W ) i IX, 3( 1HW J , IX, 2 ( 1HW ) )
56 FORMAT19X,2( 1HT ) , 3X , 2( 1HR ) , 4X, 2 ( IHR ) , 9 X, 3 ( 1 HW ) , IX ,3 ( 1HW ) )
57 FORMAT<8X,2< 1HT) ,8X,2( IHR) ,5X,2«1HR) ,9X,1HW,3X, 1HW /J
-------
Table 5-42 SUBROUTINE GEEPER LISTING (cont.)
CJl
oo
&*• ^
' -;
"'• 43700 ~
43710
43720
43730
43740
43750
43760
43770
43780
43790
43800
43810
43820
43830
43840
58
'59
60
ol
62
63
b4
65
66
67
FORMAT!
FORMAT!
FORMAT!
X2( 1HP) )
FORMAT!
FORMAT!
FORMAT!
FORMAT!
FORMAT!
FORMAT!
FORMAT!
FORMAT
RETURN
END
27X,
26X,
25X,
25X,
25X,
25X,
25X,
25X,
26X,
27X,
(1H1
6(
8!
2!
2!
2!
2!
2!
2!
8 (
6!
1HG
1HG
1HG
1HG
1HG
1HG,
1HG
1HG
1HG,
1HG
,7X,
.6Xt
,13X
, 13X
,13X
,4X,
I,6X,
»6Xt
t 7X,
10(1HE)
10! 1HEJ
2! 1HG) ,
,2(1HE)
0(1HE)
,5(1HEJ
4! 1HG) t
2! 1HGJ ,
lO(lriE)
10C1HE)
,5X, 10! 1HE
,5X,10( 1HE
5X, 2! 1HE),
,13X,2! 1HE
,10X,5( 1HF
t lOXt 5! 1HE
i>X,2( 1HE) ,
5X,2( 1HE) ,
i 'JX.1D! 1HE
,5X,10i 1HE
),5X,
),5X,
13X.2
) ,13X
) ,10X
) ,10X
13X,2
13X.2
it 5X,
J»5X,
9( 1HP)
10(1 HP
( 1HE ) ,
)
))
13X,2( 1HPJ ,6Xf
,2(lHPi, 6X,2!1HP ))
,10! 1HPJ )
,9! 1HP))
(1HEJ,
( IHfc),
2! IMP)
2( IhP)
13X,2( 1HPJ J
13X,2( IHP) )
)
)
-------
5.14.5 Subroutine EPLOT
Subroutine EPLOT graphically displays two parameter distributions -
usually before and after maintenance. EPLOT accepts as input the two
distributions stored in AX, AY and BX, BY respectively and N, containing
the number of points in the two distributions. Computations include Y
axis values for labeling and individual Y values to be plotted. Sub-
routine EPLOT calls the GEEP utility program PLOT JK to output each plot
line. Figure 5-43 contains a flowchart for subroutine EPLOT. Table 5-43
contains a detailed listing of subroutine EPLOT which describes the
techniques involved.
5.14.6 Subroutine PLOTJK
Subroutine PLOTJK is a standard utility plot program for displaying
continuous information on a digital output device. Subroutine PLOTJK
accepts as input three functions, their minimum and maximum values and
an independent variable value to be printed. PLOTJK computes the
appropriate column in which a character is to be plotted for each of
the three functions and fills an output array (initialized blank) with
the respective output characters. Figure 5-44 presents a flowchart of
subroutine PLOTJK while Table 5-44 contains a computer listing.
5.14.7 Subroutine PLOT
Subroutine PLOT is the GEEP output routine which displays the emission
rate time histories in graphical form. PLOT calls PLOTJK to print each
individual line of output.
Figure 5-45 contains a flowchart of PLOT. The listing in Table 5-45
explains the looping required to set up the output plot.
5-274
-------
SUBROUTINE EPLOT
XLO =MIN ( AX(1), BX(1) )
XHI = MAX ( AX(NN), BX(NN) )
DX = (XHI-XLO)/(NN-1)
YLO =O
YHI =O
COMPUTE MAXIMUM Y VALUE
COMPUTE GRID COORDINATE
VALUES
PRINT GRID VALUES
FOR EACH OF THE NN POINTS
CALL PLOTJK TO PRINT THE
EMISSION HISTORIES
RETURN
Figure 5-43 Subroutine EPLOT Flowchart
5-275
-------
Table 5-43 SUBROUTINE EPLOT LISTING
en
ro
43850
43860
43870
; 43380
43890
43900
43910
43920
43930
43940
43950
43960
43970
43980
43990
44000
44010
44020
44030
•44040
44050
44060
44070
44080
44090
44100
44110
SUBROUTINE EPLUT ( BX , BY , AX , A Y , N\i , L I MT )
DIMENSICN 3X
-------
SUBROUTINE PLOTJK
MO =O
V(2)
NK
NPL
NBL
NO
NU
NX
KL
KH
"T", "B1
"Q"
nyn
"X"
BLANK OUT KP
80
PUT GRID ON KP
82
FOR EACH FUNCTION TO BE PLOTTED
COMPUTE COLUMN FOR CHARACTER.
CHECK LIMITS AND SET OUT OF BOUND
FLAGS IF APPROPRIATE
MOVE NK(J) INTO THE CALCULATED
COLUMN
86
PRINT PLOT LINE
C
RETURN
Figure 5-44 Subroutine PLOTJK Flowchart
5-277
-------
Table 5-44 SUBROUTINE PLOTJK LISTING
en
r\>
-•j
CO
'I ,
t
'» 4 1 2 0
441T)
44140
44150
44160
44170
44180
44190
44200
! 44210
44220
44230
44240
44250
44260
44270
44280
44290
44300
44310
44320
44330
44340
44350
44360
44370
44380
j 44390
i 44400
1 44410
44420
44430
44440
44450
1 44460
L 44470
44480
44490
44500
j-^i 44510
• - 44520
- 4-:- ,.---,.
SUBROUTINE PLOTJMNC.T, vi , VMXI, VMM , v2 ,vwx2 , VMN2, V3 , VMX3,VMN3)
DIMENSION V<3) ,VMX(3) ,V^M3) ,CHI (3) ,NK(3) ,KP( 91), 11(3)
REAL NK,NPL,NBL,!MU,iMU,NX
REAL KL.KP.KH
M0=0
MU = 0
V( 1 ) = V1
V( 2)=V2
V( 3)=V3
VMX(l)=VMXl
VMX(2)=VMX2
VMX(3)=VMX3
VMNd )=VMiM!
VMN(2)=VMN2
VMN(3)=VMN3
NK( D = lHii
NK( 2)=1HA
NK(3)=1H=
NPL=1H+
,\8L=1H
NO=1HO
NU=1HU
NX=1HX
00 80 1=1,91
KP( I)=NBL
80 CONTINUE
DO 82 1=1,91,15
KP( I)=NPL
82 CONTINUE
00 86 J=1,NC
CHI (J)=(VMX( J)-VMN(J) J/90.
II ( J) = ( V/( J)-VMN( J) 1/CHI (J)*1.5
IF( IK J J) 83,83,84
33 MU-MU— 1
GU TO 86
84 IF( 92-IIU)) 85,85,101
85 MO=MO+1
GO TO 86
101 KK=II(J)
KP(KK)=NK(J )
36 CONTINUE
-------
TabTe 5-44 SUBROUTINE PLOTsJK LISTING (cont.)
tn
ro
1 *"' '*^f: '•"* .-',.
! '445^0
44540
44550
44560
: 44570
44580
44590
44600
44610
44620
44630
44640
44650
44660
44670
44680
j 44690
; 44700
i 44710
44720
44730
44740
301
302
303
111
201
202
203'
204
205
206
150
IF'(NC.EO.l)
NC1=NC-1
DO 303 1 = 1,
IP1=I+1
DO 303 J*IP
IR IK I 1-IT
IF{ III I J*(
KK=II ( I )
KP( KK)=NX
CONTINUE
IF(MU) 201,
KL = NU
GO TC 203
KL=NBL
IF(MO) 204,
KH=NBL
GO TO 2C6
KH=NG
WRITE(6,150
RETURN
FORMAT ( IX,
END
GO TO 111
NCI
1,NC
(J)) 303,301,303
92-IHUJJ 303,303,302
202,202
2 04 , 2 05
> T,KL,KP,KH
1E9.2.103A1)
-------
SUBROUTINE PLOT J
COMPUTE Y-AXIS
GRID VALUES
PRINT EMISSION
TYPE AND Y-AXIS
GRID VALUES
COMPUTE NUMBER OF
LINES PER DATA PLOT
LINE
INITIATE I LOOP
FROM 1 TON
PLOT ILNS-I BLANK
LINES (EXCEPT FOR
THE FIRST YEAR)
COMPUTE T
FOR DATA PLOT LINE
CALL PLOTXY
TO PLOT DATA POINTS
NO
X
s,
c
^END OF^S
v 1 LOOP ^
^^L^
T YES
RETURN
Figure 5-45 Subroutine PLOT Flowchart
5-280
-------
Table 5-45 SUBROUTINE PLOT LISTING
en
ro
00
44750
44760
44770
44780
44790
44800
44810
44820
44830
44840
44850
44860
44370
44R30
44890
44900
44910
44920
44930
44940
44950
44960
44970
44980
44990
45000
45010
45020
45030
' 45040
45050
45060
45070
SUBROUTINE PLOT ( A , B , N, F LAST , L ENGTH, XO, DX, YMN, YKX, II )
DIMENSION A{ 3,16) ,B( 3,16)
DIMENSION NAME(3)
REAL NAME
DATA NAME/2HHCt 2HCO,2HNU/
Y2=(5.*YMN+YMX)/6.
Y3=(4.*YMN+2.#YMX)/6.
Y5=(2.*YMN+4.*YMX)/6.
Y6=(YMN+5.*YMX)/6*
WRITE (6T10) NAME(II)
10 FORMAT(lHl,30X,A2t
+ * DATA HISTORY -- EM IS S I ON( GPM ) VS. TIME(MO.J*,
+ * B = BASF T = TEST*//)
«PITE (6, 105) YMN,Y2,Y3,Y4,Y5,Y6,YMX
105 FORMAT(6X,F8.2»6(7X,F8.2) )
ILNS=LENGTH*6/N
00 100 I = 1,N
IF (I . EO.N.ANO.FLAST. GT. .05) ILNS = I LNS*FLAST
KK=ILNS-1
IF( I.EO.l) GO TO 95
IF(KK.LE.O) GO TO 95
DO 90 J=1,KK
T=XO+( I-2)*DX+J*DX/ILNS
IF{ I.EO.N.ANO.FLAST.GT..05) T^XO-K I -2 ) *DX+J*DX/ ILNS *FLA ST
90 CALL PLOTXY ( Of T , 0. , 0. , 0. , 0. )
95 CONTINUE
T=XO+( I-1)*OX
IF (I .EO.N.AND.FLAST.GT..05) T=T-DX+DX*FLAST
CALL PLOTXY(2tT,AtUt IK BUI, I ),YMX,YMN)
100 CONTINUE
RETURN
END
-------
5.14.8 Subroutine PLOTXY
Subroutine PLOTXY is a modified version of the utility routine PLOTJK
which outputs one line of plotted data. PLOTXY uses a slightly different
format than PLOTJK for grid spacing and independent variable display.
Figure 5-46 contains a flowchart and Table 5-46 a listing.
5.14.9 Array Output Routines
The array output routines were designed to provide the user with a
maximum amount of debugging information in a compact tabular format. Each
of the five subroutines outputs the values of a matrix of fixed dimensions
along with its identifier name. Various other information labeling the
dimensions of the matrix is also displayed.
5.14.10 Subroutine PRINT1
Subroutine PRINT1 displays two variables, each dimensioned 10x5x3.
Inputs to PRINT1 are the variable names for the two matrices and their
respective values. Figure 5-47 presents a flowchart of subroutine PRINT1
and Table 5-47 a listing.
5.14.11 Subroutine PRINT2
Displays output similar to PRINT1 (10x3 matrix). See 5.14.10 for
flowchart and listing format.
5.14.12 Subroutine PRINT3
Displays output similar to PRINT1 (10x15 matrix). See 5.14.10 for
flowchart and listing format.
5.14.13 Subroutine PRINT4
Displays output similar to PRINT! (10x15x4 matrix). See 5.14.10 for
flowchart and listing format.
5-282
-------
SUBROUTINE PLOTXY
MO
V(2)
NK
NPL
NBL
NO
NU
NX
KL
KH
= 0
= V1
= V2
c"T" "B"
O"
•U"
•X"
BLANK OUT KP
80
PUT GRID ON KP
82
FOR EACH FUNCTION TO BE PLOTTED
COMPUTE COLUMN FOR CHARACTER.
CHECK LIMITS AND SET OUT OF BOUND
FLAGS IF APPROPRIATE
MOVE NK(J) INTO THE CALCULATED
COLUMN
86
PRINT PLOT LINE
c
RETURN
Figure 5-46 Subroutine PLOTXY Flowchart
5-283
-------
Table 5-46 SUBROUTINE PLOTXY LISTING
tn
i
ro
oo
45030
45090
45100
1 45110
45120
! 45130
45140
45150
45160
1 45170
45180
'. 45190
45200
45210
45220
45230
45240
45250
45260
45270
45280
45290
45300
45310
45320
45330
45340
45350
45360
45370
45380
45390
45400
45410
45420
45430
45440
45450
45460
45470
45480
SUB ROUT I, ME PLUTXY{ NC,T,V1,V2,VMX,VMN)
DM EN SI ON K>P(91) ,V(2),NK(2)
M0 = 0
C
C DEFINE SYMBOLS
C
V( 1 )=V1
V(2)=V2
NK( 1J=1HT
NK( 2)=1HB
NPL=1H+
NRL=1H
M'J=1HO
NU=1HU
NX=1HX
KL=NBL
KH=N6L
C
C FILL IN BLANK FIELD
C
DO 60 1=1,91
80 KP( I)=N8L
C
C SET UP GRID
C
DO 8? 1=1,91,15
82 KP( I)=NPL
DO 86 J=1,NC
IF (NC.EO.DJ GOTO 206
C
C COMPUTE COLUMN NUMBER FOR EACH POINT
C
CHI = { VMX-Vi^N)/90
II =
-------
Table 5-46 SUBROUTINE PLOTXY LISTING (cont.)
ro
00
en
\. 45490
45500
45510
45520
; 45530
j 45540
45550
45560
45570
45580
45590
45600
45610
45620
45630
45640
45650
45660
45670
45680
45690
86
C
C
C
111
201
202
203
204
205
C
C
C
206
150
KP
-------
c
z
SUBROUTINE PRINT 1
PRINT HEADER WITH
VARIABLE NAMES
FOR EACH EMISSION SPECIES
PRINT OUT A PAGE CONTAINING
VARIABLE VALUES BY POWER TRAIN
AND CONTROL TYPE
C
RETURN
Figure 5-47 Subroutine PRINT! Flowchart
5-286
-------
Table 5-47 SUBROUTINE PRINT! LISTING
en
i
ro
00
\ • •/._•-- . * ^ :-^ t.&£ • "- -- -n .' *
1
45700
45710
45720
; 45730
45740
45750
45760
45770
45780
t 45790
45800
1 45810
45820
45830
45840
I 45850
1 45860
! 45870
45380
45890
45900
45910
: 45920
i 45930
45940
45950
45960
I 45970
' 45980
i 45990
46000
46010
46020
j 46030
i 46040
i 46050
46060
46070
46080
i 46090
46100
SUBROUTINE PRINTKVAR1,
DIMENSION VARll 10,15,3)
DIMENSION VAR2( 10, 15,3)
COMMON /COM01/ AMB<3),
+ BAREA13), BLD1,
+ BHIST(3,16),
VNAME1,VAR2, VNAME2)
.VNAMEK5)
,VNAME2( 5)
ALAB, AW, BINT,
BLD2, BSIG(3),
6MMK 10^15,3),
+ ATABLEX(9,10,3),ATABLEY(9,10,3) , ASTABLX
COMMON /COM02/ CARA, CARIY,
+ CARSY, CBSUM, CCOEF( 10) ,CCOSTI ,
+ CINCON, CPC8, CP
+ CN(15,3,16),
+ CPART(10,15)
CC ADD2
COMMON /COM03/
+ EMW(3), EPllOtlS)
* FREQA, FREOB,
+ HORZN, HORZNY,
+ HPC(15,16),
+ HPS<6,15,16) ,
-I- HPTCTS(16)
CC ADD?
COMMON /COM04/
+ KSTART, KSTOP,
+ LIOLE, LINT(16),
+ MBASE, MPH,
+ MU<10,3), MMSdO,
CC AD04
COMMON /COM05/
•»• NINTR, NINTRB,
•»• NPTRN, NPTS,
+ OCIY, OCMY,
CC AOD5
COMMON /COM06/PARM(3,3
+ PC(15), PCS(15),
+ PP(iO,15),PS(6,15) ,
+ PARilO, 15,3) ,
-«- PM(10,15),
+ PSA( 15) , PTA( 5),
+ ,PAYFIN
COMMON /COM07/
+ RTYPE,
BXTRA,
(9,6,3),
CAR MY,
CCOST.M,
If CPVPY, CSUM,
COEFB(15,3), COEFBPC
OELPCV, DP(10,15)
,EFF(10), !JELIT(3),
FPERC(10,3) ,
HPCS(15,16) ,
HPT(5,16) ,
ITE, ITU
LOPT, LPICK(10),LLP
LPSPP(IO) ,LSTARTt
MSPEC( 10) ,MSTART,
15), MVPR(10
NAME(50), NCNTR,
NMOOE, NO,
NSTEPS, NTR,
OPTI, OPTM,OPTS
), PART, PAYNEW,
PHK14), PLOJ14),
PT(5), PTOT,
PAR1(10,3,3) ,
PPICK(IO) ,PPPICK,PS
PCONF, PARINTdO
REINSP, RNAME,
,OELEM(3
HPPClOt
HPTOTd
ITP,
ICK,
LSTOP,
MSTOP,
,15)
NEMIS,
NOPTS,
NTRB,
(50) ,OVC
PAY OF
PLTMAXt
PTS<5),
PLUS( 10
TAR, PI (1
,10,9)
RSIZE,
BSIZE,
ASTABLY(9,b,3 )
CARPOP(16) ,
CGTT,
CARAY,
10,15) ,
,16) ,DELI(3),
15,16),
6) ,
ITIMEU6),
NEMP,
NPAR,
NP1CK( 16),
HK3 ) ,OVCHM(3)
F(3) ,
3) ,PMODEL,
PAYADJ,
5,10),
RSTOP,
-------
Table 5-47 SUBROUTINE PRINT1 LISTING (cont.)
en
i
ro
! 46110
46120
46130
45140
46150
46160
46170
46180
46190
46200
46210
46220
46230
46240
46250
46260
j 46270
46280
1 46290
46300
46310
46320
1 46330
1 46340
; 46350
46360
46370
46330
I 46390
: 46400
46410
46420
46430
46440
46450
46460
46470
46490
46490
46500
j 46510
! 46520
+ SALE, SALL,
+ SMODEL, STARK 15,
+ SCALEBM(3),
* SXCUT(6,3),
+ SIGME(IO),
* SIGRATE, SIST,
«• STABLEX(33,6,15),
COMMON /CUM10/
+ TINT, TOBEt 3),
+ TXTRA, TSIZE,
+ THIST(5,3,16),
-»- TIMEM( 10,15) ,
CC ADD10
COMMON /COM11/
+ X1BP13,3,6), XINT,
+ XTM(16), XBASE(9,3
CC AOD11
COMMON /COM12/
+ YES, YSUM,
+ Zlt Z2,
+ Z7, Z8,
+ Z13, Z14,
+ ZCARI, ZCARM,
+ ZZ(3,3)
CC AD012
COMMON /DEBUG/
+ LDEBUG, MDEBUG,
CC ADDD
*EAL ITE,
+ MMS, MPH,
+ NAME, NO,
+ IN, MISFIRE
INTEGER RNAME,
+ TDIST, XLANE,
SALP,
3), STAT,
SM(6,15),
SIG(10,3)
SIGMNE( 10
SIGS(o,l
STABLEY(
TAREA(3) ,
TONX,
TSIG( 3) ,
THISTT(3,
TABLEX(^3
^(F( 10),
XINT6,
),YBASE(9,
Y1BP(3,3,
YTM(16) ,
Z3,
Z9,
Z15,
ZIC,
ADEBUG,
PDEBUG,
ITL,
MSPEC,
LDE8UG,
SITtl,
OPTI,
S1TEI.
STIME(
5) ,
33,6,15)
TDISTtlO,
TOTE (3) ,
TPER(16,
16) ,
,10,15),
XLANE,
3)
10),
Y1DBP(
Z4,
Z10,
Z16,
ZSUM,
BDEBUG,
OOEBUG,
ITP,
MUt
MOEBUG,
SITEM,
PPICK,
SITEM,
3), SUMdM(3
SPAR( 10, 15
SIGCE(3)
SIGP( 10
S1GSDE
3) ,TIDLE
TPDB( 3)
15), TM
TIMECd
TABLEY
XSUM
Y2BP(3,
4,4, 10),
Z5,
Zll,
Z17,
CDEBUG,
S DC BUG,
I TIME,
MVPR,
STAT,
PPPICK
,15
(3)
,TI
,
0,1
(33
SLANE,
,6) ,
Jf
MEK3, 16) ,
TPDT( 3) ,
16,15) ,
5),
, 10,15)
, XCUT(10,3),
3,10),
Y20BP(4,4,10),
Z6,
Z12,
DDE8UG,
TDEBUG
WRITE (6,10) VNAME1,VNAME2
10 FORMAT(35X,*VARIABLE - A - *5A10/
+ 35X,*VARIABLE - S - *5A10)
DO 100 I=1,NEMIS
IF(I.GT.l) WRITE (6,999
*RITE (6,200) NAME! I)
200 FORMAT(/,43X,A2,* EMISS
DO 50 JJ=1,NPTRN
'
ION DELTA*
'
-------
Table 5-47 SUBROUTINE PRINT1 LISTING (cont.)
ro
oo
46530
46540
46550
46560_
46570
46580
_4659Q_
46600
46610
46620_
46630
46640
_46650_
46660
20
WRITE (6.20) JJ i NA_M£ < JJ+10) • (M. M=l. NPAR)
FORMAT(/,40X,*POWERTRAIN*,I3,* — *,A10//
+ *
DO
PARAMETER*, 10(3X, 12. 5XJ )
90 K=KSTAR7 .KSTOP
WRITE (6,40) ,MAME(K + 3) , (V ARUM, J, I) ,M=L,NPAR) ,
-------
5.14.14 Subroutine PRINTS
Displays output similar to PRINT1 (6x15 matrix). See 5.14.10 for
flowchart and listing format.
5.14.15 Subroutine PRINTS
Subroutine PRINTS is the main output routine for the attrition model.
PRINTS displays a summary of the vehicle population and annual miles
travelled distributions along with a summary level emission rate report
by control type. Figure 5-48 contains a flowchart of PRINTS and Table 5-48
a listing.
5.15 BLOCK DATA ROUTINE
The majority of the data in GEEP is normally invariant under the
various inspection/maintenance alternatives. Consequently, nominal
values for all data sets are permanently stored in the BLOCK DATA
routine. BLOCK DATA is a non-executable function, but provides a con-
venient method of grouping the data.
The listing in Table 5-49 contains detailed information concerning
the values of the various data sets.
5-290
-------
^SUBROUTINE PRINT6^)
N= NYEARS
J = O
/ PRINT OUT PAGE HEADER /
NN= LINES PER PAGE
OR N IF NKNPERPG+ 1
INITIATE I LOOP
FROM 1 TO NN
J = J+
/SKIP A LINE
TM= O
TP = 100
INITIATE K LOOP
FROM 1 TO 3
P= El = E2 = E3 = O
Kl = (K-l)x5+ 1
K2= Kl +4
SUM WEIGHTED EMISSION LEVELS
IN El, E2, E3, ANDTE1,TE2,TE3.
SUM PERCENTAGE TIMES 100 IN P
SUM WEIGHTED MILEAGE IN TM
FOR L= Kl TO K2
©
Figure 5.48 Subroutine PRINT6 Flowchart
5-291
-------
©
MM = TMILx 12 + 0.5
NORMALIZE El, E2, E3
PRINT OUT CONTROL TYPE,
PERCENTAGE AND EMISSION RATES
30
PRINT OUT SUMMARY
EMISSION LEVELS
7
©
Figure 5.43 Subroutine PRINT6 Flowchart (cont.)
5-292
-------
Table 5-48 SUBROUTINE PRINTS LISTING
in
ro
ID
co
51750
51760
51770
1 51780
i 51790
i 51800
51810
5182C
51830
51840
51850
: 51860
51870
51880
51890
51900
51910
51920
51930
51940
51950
51960
51970
51980
51990
52000
52010
52020
1 52030
52040
52050
52060
52070
; 52080
i 52090
: 52100
52110
52120
52130
52140
; 52150
SUBROUTINE PRINT6( EM IS , TPER,TMI Li NY EARS, CAR POP J
DIMENSION CARPOPU6)
DIMENSION EMIS(15,3,16),TPER(16,15),TMIL(16,15)
DIMENSION HEAO(4,4)
DATA HEAD/
* 6HPRECCN,6HTROLLE»6HD ,6H
*,6HCONTRO,6HLLED ( ,6H 1966-1 ,6H970)
*,6HPOST 1.6H970 , 6H ,6H
*,6H ,6HTOTALS,6H ,6H
* /
DATA NPERPG/6/
N=NYEARS
J=0
10 rtRITE (6»100)
NN=NPERPG
IFCN.LE.NPERPG+1 ) NN=N
DO 20 1=1, NN
J=J+1
wRITE(6,110)
MTM=TEl=TE2=Te3=0
TM=0
TP=100,
no 30 K=i,3
P=0
El=0
£2=0
E3 = 0
K1=(K-1)*5-H
K2=Kl+4
DO 40 L=K1,K2
P=P+TPER(J,L)*100
E1=E1+EMIS(L,1,JJ*TPER(J,L)
£2=E2+EMIS(L,2,J)*TPER
-------
Table 5-48 SUBROUTINE PRINTS LISTING (cont.)
52160
IFCP.GT. 0.0001) E2=E2*100./P
1
in
I i ,
ro
4k
<>2173
52180
52190
52200
52210
52220
52230
52P40
52250
52260
52270
52280
52290
52300
52310
52320
52330
52340
52350
52360
52370
30
20
100
110
120
140
130
IFtP.GT. 0.0001) El=Fl*100./P
WRITE (6, 120)
-------
Table 5-49 BLOCK DATA ROUTINE LISTING
en
i
tNS
10
Ol
02740
02750
02760
02770
02780
02790
02800
02810
02820
02830
02840
02850
02860
02870
02880
1 02890
02900
I 02910
02920
02930
02940
1 02950
02960
02970
02980
02990
03000
03010
'. 03020
L 03030
03040
03050
03060
03070
03080
03090
03100
03110
03120
03130
i 03140
BLUCK. DAI A
COMMON /COM01/ AMB(3),ALAB, AW, BINT,
+ BAREA(3), BLD1, 8LD2, 3SIGC3), BXTRA, BSIZE,
+ BHIST<3tl6), 8^Ml( 10,15,3) , * ' - ?.
* ATABLEX(9,10,3) , ATABLEY (9, 10, 3) , ASTA8LX ( 9,6 ,3 ), ASTABLY< 9f 6,3 )
COMMON /CUM02/ CARA, CARIY, CARMY, CARPQP(16),
+ CARSY, CBSUM, CCOEF( 10 ) , CCOSTI , CCOSTM, CGTT,
+ CI'MCON, CPCB, CPI, CPVPY, CSUM, CARAY,
+ CN(15,3,16), COEF6(15,3), COEFBP( 10, 1 5) ,
+ CPART(10,15) »
CC AOD2
COMMON /COM03/ DELPCV, DP ( 1 0,15 ) , DELEM (3 , 16 ) , DEL I (3 ) ,
+EMW(3), EP(10,15),EFF(10) , DELIT(3),
+ FREOA, FREQB, FPERC(10,3),
+ HORZN, HORZ.NY,
+ HPC(15,16), HPCS(15,16J, HPP ( 10, 15,16) ,
+ HPS(6,15,16) , HPT(5,16), HPTOT(16),
•i- HPTOTS(16)
CC ADD3
COMMON /COM04/ ITE, ITL, IIP, ITIME(16),
+ KSTARTi KSTOP, LOPT, LPI CK { 10) ,LLPICK,
+ L1DLE, LINTU6), LPSPP 1 10 ) ,LSTART , LSTOP,
-«- MBASE, MPH, MSPECUO) .MSTART, MSTOP,
+ KU(10,3), MMS(10,15), MVPR(10,15)
CC ADD4
COMMON /CGM05/ N AME( 50) ,' NCNTR, NEMIS, NEMP,
+ NINTR, NINTR8, NMODE, NU, NOPfS, NPAR,
* NPTRN,. MPTS, NSTEPS, NTR, NTRB, NPICK116),
+ OCIY, OCMY, OPTI, OPTM,OPTS<50} ,GVCHI ( 3 ) ,OVCHM(3)
CC AOD5
COMMON /CQM06/PARM(3,3) , PART, PAYNEW, PAYOFFO),
+ PC(15), PCS(15), PHK14), PLO(14), PLTMAXC 3) , PMCOE L ,
+ PP(10,15),PS(6,15), PT(5), PTOT, PTS(5), PAYAOJ,
+ PAR(10,15,3) , PAR1(10,3,3J , PLUS(10,15I,
-•- PM(10,15), PPICK(IO) »PPP!CK,PSTARf PI (15,10),
+ PSA(15), PTA(5), PCONF, P ARI NT ( 10 , 1 0, 9)
+ ,PAYFIN
COMMON /COM07/ REINSP, RNAME, RSIZE, RSTQP,
+ RTYPE,
+ SALE, SALL, SALP, SITEI, SITEM, SLANE,
-------
Table 5-49 BLOCK DATA ROUTINE LISTING icont.)
ro
10
0)150
"03160
03170
03 130
03200
0321 3
03220
03230
03240
03250
03260
03270
03280
03290
03300
03310
03320
03330
03340
03350
03360
0^370
03380
03390
03400
03410
03420
0343C
03440
03450
03460
J3470
0348G
03490
03500
03520
03530
03540
C3550
03560
_ + SMQnELj_ STAPT(15,3
«• SCALES.-* (3),
+ SXCUT(6,3),
+ SlGMEdO),
+ SIGRATt, SIST,
+ STAbLEXl 33,6,15) ,
COMMON /COM10/
+ TIi,T, TObt- < 3) ,
+ TXTRA, TSIZE,
+ TNI ST( 5 ,3,16) ,
+ T I M E M ( 1 0 , 1 5 ) ,
CC ADD10
COMMON /CTiMll/
+ X1HP( 3,3,6), XINT,
+ XTMdo) , XBASE(9,3 )
cc Anon
COMMCivl /CUM12/
+ YES, YSUM,
+ Zlt Z2,
+ 11, 78,
' + Z 1 3 , Z 1 4 ,
+ ZCARI, ZCAKM,
+ 7 Z ( 3 , 3 )
CC AUU12
COMMON' /DEBUG/
+ LOfcoUG, MDEHUG,
CC AOJD
SEAL ITt,
+ MMS, MPH,
•*• NAME, NO,
+ IN, MISFIRE
INTFbFR PNAME,
+ TOIST, XLANE,
OAT A P I /I 50*1. O/
DATA NAME/2HHC, 2HCO,2HN:J
^ 10H IDLE , 10H IG^I
+ 1H ,BH GM , Sri FORJ
> i SLAT , STIME(
S 'I ( 6 , 1 5 ) ,
S IGdD,?),
S IGMIMh ( 10) ,
SIGS(6,15) ,
STADLEY(33 ,6, 15)
TARLAC3), TOIST (10,
TOMX, TOTt (3) ,
TSIG(3), TPEK(16,
THIbTT(j.lo),
TAt-LtX( 33, 10, 15) .
rtF( 1C) ,
XI.MTB, XLANE,
, YBASEl 9,3)
Y lbP(3,3,lD) ,
YTMl Ib) , Y1DBPI
7 b , Z 4 ,
Z ^, 7 10,
Z 15, Z 16,
ZIC, ZSUM,
ADE6UG, BDcBUG,
PJEBUo, wDEtJuG,
ITL, ITP,
^ISPtC, MUt
L DEBUG, M DEBUG,
SITEI, SITEM,
,1PTI, PPICK,
SPA K ( "10
SIGCE
SIGP( 13
SIGSOE
3) ,T IDLc
TPl;B( 3)
15), TM
T IMECd
TABLEY
XSUK
Y2bP(3,
4,4, 10),
Z5,
Zll ,
Z17,
CDEBUG,
SDEBUG,
ITIMEf
MVPR,
STAT,
PPPICK
, 3H UNCOUTH, 8H CUNTK , 8H P
TION ,IOH INDUCTION ,
,8H CHRY ,
M ( ? ) ,
,15,6),
(3) ,
»15), ___
(3) ,
,TIMEI (3,16),
, TPUT(3),
IL( 16,15 ),
0,15 ),
(33, 10, 15)
, XCUT(10,3),
3,10),
Y2DBP(4,4,LO) ,
Z6,
Z12,
DDEBUG,
TDEBUG
OST 70,
'•f 6H AMC ,Sh IMPORTS ,5*1H ,
+ 10H LOS A\G,10HELES BASIM.1JH NLA YU-sK/,
+ 13HNE,%' JERSEY, 10H -s AS H 1 N , 1 D hGT._,.-j 0. C.,
+ 10H ,10H OE
<- lOh IDLE CO ,10H Kp A
-JVER, lOHDtTKGIT
, IDrl TIMING ,
, 1H ,
-------
Table 5-49 BLOCK DATA ROUTINE LISTING (cont.)
en
ro
10
03570
03580
03590
03600
03610
03620
03630
03640
03650
03660
03670
03680
, 03690
03700
03710
03720
i 03730
03740
03750
03760
03770
03780
; 03790
03800
03810
03820
03830
03840
03850
03860
03870
03880
03890
03900
03910
03920
03930
03940
03950
03960
: 03970
03980
+ 10H MISFIRE , 10H NOX , 10H AIR PUMP ,
+ 10H PCV flOHAIR CLcAN , 10HVAC KICK ,
+ 10HHEAT RISER,
+ 10H HC - IDLE,10H CO - IDLt.lOH NO - IDLE ,
+ 10H HC - 45 ,1 OH CO - 45 , 1 OH NO - 45 /
CC DATA FOR SUBROUTINE COST
DATA REINSP,XLAIME,TIDLE/0. ,!,!./
DMA BL01.BLD2, ALAB.AVV/600. , 600 . , 1 250. , 30 ./
DATA SALE,SALL,SALP,ZIC,ITE,ITL,ITP/0.,l.,0.,.07,4.,3u.,30./
DATA NEMP/2/ |
DATA CPCB/40./
DATA Z1.Z2, Z3, Z4,Z5/.33,10. ,10. ,.07/
DATA Z6, Z7, ZS, Z9, Zl 0/500. ,.25,0., 2. ,1Q./
DATA Z11,Z12,Z13,Z14,Z15/16000.,50DO.,2.,.5,1./
DATA Z16,Z17/3.5,7000./
DATA ZZ/20000.,33000. , 45000 ., 32 000. , 34000., 76000. ,
+ 35000. ,60000. ,85000.7
DATA STAT/80/
DATA LIDLE/1/
uATA YES,NU/3HYES,2HNO/
DATA RSTQP, RTYP E/2HNO , 9 HP AR AMET ER /
DATA PMGDELtSMODEL/9HPARAMETER, 9HSI GNATUKE/
DATA B DEBUG »MDE BUG, T DEBUG, COIBUG, AD E8UG, LDhBUG, PDEBU&,
-(- DOEBUG.QDE BUG, S DEBUG/ 10*2Hi\IO/
DATA PLTMAX/10. ,150. ,10./
DATA OPTS/10HDEBUG , 1 OHPARAMETE R , 10HSI GNAT UR E ,
+ 10HSTOP , lOHUNCQ'JTRGL , 1 OHC J.MT ROL ,
+ 10HPOST 70 .1QHIDLE ,10HIGNTTIuN , lOhl NDUC TI ON ,
+ 10HBLINE ,10HMICRO ,10riTE3T ,
+ lOriCOSTS .10HAREA ,10HCUTPTS ,10HPOECAY ,
-i- 10HDATA .10HMOECAY .10HSTATS ,
+ 10HLA , 10HNY , lOH^ASri ,
+ 10HOENVER .10HLOADED ,10HUNLOADED ,10HHYBRID ,
+ 10HSTATE ,10HGARAGE
+ 10HICO ,10HIHC ,10HHC45 , 10HC045 ,
+ 10HMISFIRE , 10HOETROIT ,10HINO , 10HN045 /
DATA NPICK/16*0/
DATA NOPTS/37/
DATA DELPCV/5./
uATA FPERC/.8,25.,1.0,.005,0.,0.,0.1,20.,0.,0.,
* .9,30. ,1.0,. 00 5,0. ,0. ,0. 1 ,30. , 0. ,0.,
* 1.0,35.,1.0t.006,.l,0. ,0.1,40. ,0. ,0./
-------
Table 5-49 BLOCK DATA ROUTINE LISTING (cont.)
CJl
ro
oo
33990
04000
04010
34020
04C30
04040
04050
04060
04070
04080
04090
04100
34110
04123
04130
04140
04150
04160
04170
04180
04190
04200
04210
04220
04230
04240
04250
04260
04270
04280
04290
04300
04310
04320
1 04330
i 04340
04350
04360
04370
04380
' 04390
04400
DATA LPSPP/2, lj.1. 4, 0.5. 5.5,0, O/
DATA LINT /2 , 1 , 2 ,0 , 0,0 , 1 , 2, 1, 0, £ , 2, 0 , 2 , 2, O/
DATA PLO/.01,0.,0.,3.,0.,0.,-./+,0.,0.,0.,4*.01/
DATA PHI/8.,0.,0.,5.,0.,0.,l.t>,130.,3.,0.,8.,700.,
•«• bOO.,6./
DATA SCALEBM/3*!./
DATA HORZN, M6ASE , T I NT/oO. , 685 ,12./
DATA NEI"IS,NPTRN,MCNTP. NP AR ,NST EPS , .\PT S/3, 5, 3, 10,32, 9/
DATA NMODE/6/
DATA MMS/150*0./
DATA FREUA,FRE08/.4,.6/
DATA CGTT/9.08E5/
DATA BINT/12./
DATA UVCHI/1.5,5.0,5.0/
DATA OVCHM/0., 12., 15. /
CC TIME ELEMENTS USED IN CALCULATION OF COSTS
DATA TIMEM/
+ 0. 1,0. 1,0. 1,1. 0,0., 0. ,0. 1,0. 05, 0.25, 0.25,
+ 0.1,0. 1,0. 1,1. 0,0., O.,0. 1,0. 35, 0.25, 0.25,
+ 0.1,0.1,0.1,1.0,0.,0.,0.1,0.35,0.25,3.25,
+ 0.1,0.1,0.1,1.0,0.,0.,0. 1,0. 35, 0.25, 0.25,
* 0.1,0.1,0.1,1.0,0.,0.,3.1,0.05,0.25,0.25,
+ 0. 1,0. 1,0. 1,1. 0,0., 0.7, 0.1, 0.3 5, 0.25, 0.25,
+ 0. 1,0. 1,0. 1,1. 0,0., 0.7, 3. 1,0. 35, 0.25, 0.25,
+ 0, 1,0. 1,0. 1,1. 0,0., 0.7, 0.1, 0.35, 0.25, 0.25,
-«- 0. 1,0. 1,0. 1,1. 3,0., 0.7, 0.1, 0.35, 0.25, 0.25,
+ 0.1,0. 1,0. 1,1. 0,0., 0.7, 3.1, 0.3 5, 0.25, 0.25,
+ 0.1, 0.1,0. 1,1. 0,0. 75,0., 0.1, 0.05, 0.25, 0.25,
+ 0. 1,0. 1,0. 1,1. 0,0. 75,0. ,0.1, 3. 05, 3. 25, 0.25,
+ 0.1,0. 1,0. 1,1.0,0.75,0., 0.1,0.05,0.25,0.25,
+ 0.1,0.1,0, 1,1. 0,0. 75,0., 0.1, 0.0i>,0.25, 0.25,
+ 0.1,0. 1,0. 1,1. 0,0. 7 5, 3., 0.1, 3. 05, 0. 25, 0.25 /
DATA STIME/1.5,2.4,2.4/
DATA TIMEC/
+ 0. 05, 0. 05, 0. 05, 0.1 5, O.,0., 0.1, 0.05,0. 1,0.05,
+ 0.05,0.05,0.05,0.15,0.,0.,0.1,0.05,0.1,0.05,
+ 0.05,0.05,0.05,0. 15, C. ,0. , 0.1, 0.35 , 0.1,0. 05,
+ 0. 05, 0. 05, 0. 05,0. 15, 0. ,0. , 0.1, 0.05, 0.1, 0.05,
+ 0.05,0.05,0.05,0. 15,0., 0. ,0.1,0.05 ,0.1,0.05,
+ 0.05,0.05,0.05,0.15,0. ,0.25,0.1,0.05,0.1,3.05,
+ 0.05, 0.05, 0.05, 0.15,0., 0.25,0. 1,0. 05, 0.1, 0.05,
+ 0.05, 0.05, 0.05, 0.15,0., 0.25, 0.1, 0.05, 0.1, 0.05,
-------
Table 5-49 BLOCK DATA ROUTINE LISTING (cont.)
en
ro
10
vo
; 04410 *" " ' " '
04420
04430
04440
04450
04460
04470
04480
04490
04500
04510
04520
04530
04540
04550
04560
j 04570
1 04580
1 04590
04600
04610
04620
04630
: 04640
: 04650
04660
04670
04680
04690
04700
04710
04720
04730
04740
04750
04760
04770
04780
04790
04800
; 04810
04820
+ 0,05,0.05,0.05,0.15,0. ,0.25,0,1,0.05,
+ 0.05, 0.05, 0.05, 0.15,0., 0.25, 0.1, 0.05,
+ 0.05,0.05,0.05,0.15,0.10,0.,0.1,0.05,
+ 0. 05, 0. 05, 0. 05, 0. 15,0. 10, 0., 0.1, 0.05,
+ 0.05, 0.05, 0.05, 0.1 5, 0.10,0., 0.1, 0.05,
+ 0.05,0.05,0.05,0.15,0.10,0.,0.1,0.05,
* Q.05,0.05,0.05,0.15,0.10,0.,0.1,0.05,
DATA CPART/
+ O.»0.,0..17.,0.,0.,2.0,5.0,0.,0.»
*• O.*0.,0.»17.»0.»0.,2.0,5.0,0.,0.»
+ O.,0.,0.,17.,0.,0.,2.0,5.0,0.,0.,
-«• O.,0.,0.»17.,0.»0.,2.0,5.0,0.,0.»
+ O.,0. ,0.,17.,0.,0.,2.0,5.0,0.,C.»
+ O.,0.,0.,17.,0. ,47. ,2. 0,5. 0,0. ,0.,
•+ 0. ,0. ,0.,17.,0. ,47. ,2.0,5.0,0. ,0.,
+ O.,0,,0.»17.,0.»47.»2.0»5.0»0.,0,,
+ 0. ,0.,0«,17.,0.,47.,2.0,5.0,0. ,0.,
+ O.*0.,0.,17.,0. ,47. ,2. 0,5. 0,0. ,0.,
+ O.,0.,0.,17,,20.,0.,2.0,5.0,0.,0.»
+ O.,0.,0.,17.,20.,0.,2.0,5.0,0.,0.,
+ O.,0.,0.,17.t20.,0.,2.0,5.0,0.,0.,
+ 0., 0., 0., 17., 20. , 0. , 2. 0,5. 0,0. ,0,,
+ O.,0.,0.,17.,20.,0.,2.0,5.0,0. ,0./
DATA EFF/. 60, .85, .70, .85, .20,. 20, .30,.
DATA WF/1.,2.,2.,7*1./
DATA QPTI ,OH»TM/1 ,!/
DATA (COEFBP( I ), 1=1,50) /
+ 2.5CE-4,-1.0E-3,8.00E-5, 5.2E-6 ,0 . , 0. ,
+ 5.99E-5,
+ 2.50h-4,-i.OE-3,8,OOE-5,5,2E-6,0. ,0. ,
•»- 5.99E-5,
+ 2. 50 E- 4, -I . OE-3,8.00E-5, 5.2E-6,0.,0.,
+ 5.99E-5,
+ 2. 50E-4,-l,OE-3,8.00E-5, 5.2E-o,0.,Q.,
-»• 5.99E-5,
+ 2.50E-4,-1.0E-3,8.00E-5, 5.2E-6 ,0. , 0. ,
+ 5.99E-5/
DATA ( COEFBPd ), 1 = 51,100) /
+1.5E-4,-7.5E-4,6.7E-5,3.E-6,0.,8.15E-6
+ 3.76E-5,
-H.5E-4,-7.5E-4,6.7E-5,3.E-6,0.,8.15E-6
+ 3.76E-5,
0.1,0.05,
0.1,0.05,
0.1,0.05,
0.1,0.05,
0.1,0,05,
0.1,0.05,
0.1,0.05/
75, .20, .40/
-5.00E-5, 6.86E-3,
-5.00E-5,6.86E-3,
-5.00E-5, 6. 86E-3,
-5.00E-5,6. 86E-3,
-5.00E-5,6. 86E-3,
,-3.25E-5,5.0E-3,
,-3.25E-5,5.0E-3,
-2.4E-6,
-2.4E-6,
-2.4E-6,
-2.4E-6,
-2.4E-6,
-2.3E-6,
-2.3E-6,
-------
Table 5-49 BLOCK DATA ROUTINE LISTING (cont.)
I
LO
8
0-
0^850
0^86 j
._+_!_. 5 E.- 4 i - 7 . 5 E - 4 , y . 7 L - 5 t 3_. 5:
+ 3.7"cE-5,
04S90
"04900
04010
Q49_?0
04930"
04940
04950
"04960
0497u
• b., C'..., 3., 1_3 E - u , -_3_. 2 i> E - b , 5 . 3 F - 3 , -2 ._ 3 t- -6 ,_
+ l.bi>4,-7.5t-4,&.7E-5,3.E-b,3.,:i.:3E-6,-3.2bE-5,b.OE-^,-I.*F-o,
* 3.7oE-5_, __ _ _
Vf.5E-4 ,-7 .\, F-4, b ,"7E-5 , 3.c-uVo.~, c~.TbF-6 ,-3 .2bE-5 , 5.0E-3,-2.3E-6,
* 3.76E-5/
r)_^T_A < CCE_F8P( I) , 1=101, 153 ) / . . _.....
"*•" l". OE -4 ,-4. OE~-4 , 4. E-5 ,1 /5 E-6,~5.1} t- 6 ,0
-t- - 1 . u E - 6, C. ,
+ 1.0E-4.-4.0E-4,'
04990
0500C
05010
•«• -1.8E-6,0.,
+ 1.0F-4,-4.0E-t.
•*• - 1_. 6 E - 6 , 0 . ,
-»- l'. OE"-4,-4.0E."-4,"
* -l.CF-6,0.,
.t 1 • Of - ^_. -4..JO.L-:* ,
V -"l . SE-"6,0."/
DATA PARM/3.F-3,
+ -3 .< ' -fc E - 7
4.E-5, 1.5E-6.5. -oJ_-6_, 0
4.E-5,1.5E-6,3.93E-6,0
4.E-5, 'l . 5 E-6, 5 . ^3 t- 6 , 0
4. c -5, 1 .. 3 c - c , b . 9 3_L_- _6 , 0
".,-2.00E-5, 3. Ofc-j,
..-2.00E-5,3. OE:-3 ,
c.c
05030
03040
05050"
05060
05_070_
05030
05090
05100
O'5'llO
05120
.
05140
05150
C5170
05180
05190
05200
05210
05220
05230
05240
PARTIALS —
DATA (PARU
+ 0.3756,-3.
+ 0.3756,-3.
+ 0.375o,-3.
375_6_Lr3.
3 7 5 o,-3.
02b6,-5.
02 816 , -5.
C2 b 6 , —5,
02 66,-5.
02_S_p_,j-5._
C979"6,3.
0.09798,3.
0.09 796,3.
0. 3c/798,3.
0.
"o",
0,
0.
0,
0.
_0_.
0.
43E-4
43£-4
43E-4
4"3E-4
43F-4
JAT4 (PAR( I ) , 1=1
0.0973
,
+ 6. o2 14 ,0.0434,-
+_6. ul 14 , 3.0434,
* b". 6?"l 4,0."3434,-
+ 6.6^14,0.3434,
9.b£-6,b.2E-b,2.E-4, 1.
_ ,-b".9fc-6/_
D E L T A E H I S S I J N / OE l"f A "p A R AM
) ,I = 1,15C)/
73E-3,.08683,27.23,3.,0. ,,0.
7 3E- 3 ,. 08683 ,2 7.23 , 0 . ,0." , 0 .
73E-3,.08683,27.23,0.,D.,C.
73E-3 ,. 0 8683 , 2 7_. 23 , 0 . , 0_._, 0 .
7 3E-3 , .08633 , 2~7 .~23 , J ~. ,"0. , 0.'
5E-3,0.0498,22.71,0.,0.602,
5E-3,0.0498,22.71,0.,0.602,
5E-3, 0. 0498 , 22 .'"'I ^. Vo .6 C2 ,
5E-3,0.0498,22.71,3.,0.602,
5_E-3_,0.3498,22.71, 3j._i_0_._&L0_2_,
, 0.112 94,"l 8. S~9, 0.631,0
,3.11294,18.89,0.601,0
, 0 . 1129 4, 1 -i .5 ^, 0..63 L? p
,0. 11294, lo.89,0.601,0
,0.11294,18.39,0.631,3
51,3CO)/
•1.366,3., 0. ,3. »-£• 729,
1.366,3.,3.,0.,-2.729,
1. 0 D 6, 3 . , 0. ,_ J ., - 2 . 7 2 9 ,
1.36fc,3., 3., 0.,-2.729,
1.366,3.,0.,0.,-2.729,
.,-2.00E-5,3.0F-3,
.,"-2, 00lt~5~,~3~.~0l~3 ,
., - 2. 0 0 E -_5, 3. 0 h -_3j_
2E-4.9.9F-5,
061_92_, 7.46E-3 ,-!_. 372E-3
06192 , 7 .48E -3 t - 1 . 372E-3
06192,7.48E-3,-1.372E-3
06192,7.48E-_3 , - 1 . 37_2F-3
06 192 ,7.4 8E -3" , - 1 ."37 2V- 3
-O.Ob01,9.1E-4,0. ,0. ,
-O.OBOL,9.1E-4,0_. ,0._L_
-0."03"oi,9Vl'E-4",6. ,0. ,
-0.0801,9.1E-4,0.,0.,
^0_. 0 80 1 , 9. IE- 4,0 . , , C . _,_
.,-0. 175d , 1 .31E-3,"0. , 0.
.,-0. 1758,1.31E-3fO.,0.
.0. ,
t 0. ,
,0. ,
, 0. ,
,0.,
. ,-0.1753,1.31E-3,C.,G.,
.,-0.1758,i.31E-3,0.,0./
C. l"47 2"", -0". 041 , 0."i
3.1472,-C.041,0.,
0.1472,-0JL041,0. ,
3. 147 2~,-6 . 041 , 0.,
C.1472,-0.041,0.,
-------
Table 5-49 BLOCK DATA ROUTINE LISTING (cont.)
CO
o
i 052VO
05260
05270
05280
05290
05300
05310
05320
05330
05340
05350
05360
05370
05380
05390
05400
; 05410
05420
05430
05440
05450
05460
05470
05480
05490
05500
05510
05520
; 05530
05540
05550
05560
05570
05580
05590
05600
05610
05620
05630
05640
05650
05660
' + 7.*
+ 7.
+ 7.
+ 7.
-•• 7.
* 11
+ 11
+ 11
+ 11
+ 11
178,0.02124,
178,0.02124,
178,0.02124,
178,0.02 124,
178,0.02124,
.433,0.34845
.433,0.04845
.433,0.04845
.433,0.04845
.433,0.04845
DATA {PARU),l =
+ -0.1714.1.05E-
+ -0.1714, 1.05E-
+ -o
+ -o
•*• —o
+ 0.
+ 0.
-*- 0.
+ 0.
+ 0.
+ -0
+ -0
+ -0
+ -o
. 1714,1. 05E-
. 1714,1. 05E-
.1714,1. 05E-
0 ,2.5E-4,
0 ,2.5E-4,
0 .2.5E-4,
C ,2,5E-4,
C ,2.i>E-4,
.0271,4. 34E-
.0271.4.34E-
.0271,4. 34E-
.C271,4.34E-
-»- -0.0271, 4. 34E-
DATA CCUEF7 .165
DATA ( SPARf 11,1
+ 36
+ 36
+ 36
+ 36
+ 36
+ 8.
+ 8.
+ 8.
+ 8.
+ 8.
> 13
+ 13
+ 13
+ 13
. 1 o2 »-l. 655*
.162, -1.655,
.162 ,-1. 655,
.162,-!. 655,
.162 ,-1.655,
2706, -0.549,
2706, -0. 549,
2706, -0.549,
2706, -0.549,
2706, -0.549,
.53, -0.3424,
.53, -0.3424,
.53, -0.3424,
.53, -0.3424,
-0.342.0
-0, 342,0
-0.342,0
- C . 3 4 ? , 0
-0.342,0
,-1.3477
,-1.3477
,-1.3477
,-1.3477
,-1.3477
301,450)
3,0.1724
3,3. 1724
3,0. 1724
3,0. 1724
3,0. 1724
0.095,0.
0.095,0.
0.095,0.
0.095,0.
0.095,0.
4,0.1553
4,0.1558
4,0.1558
4,0.1553
4,0. 1558
, .0066, .
=1,150)7
17.81,13
17.81,13
17.81,13
17.81, 13
17.81 ,13
7.97, 137
7.97, 137
7.97, 137
7.97, 137
« ,
. ,
,0
,0
,0
,0
,0
, o
,0
,0
,3
,3
,0
,0
,0
,0
,0
, 0
,0
,0
,0
,0
00
7.
7.
7.
7.
7.
. b
0^
0.
0.
0.
0.
. ,
• »
. ,
. ,
. ,
. ,
» ,
. ,
. ,
. ,
. ,
. ,
. »
. ,
. ,
. ,
. »
. ,
. ,
. ,
6,
i>/
57
57
57
57
7,
.57,
.57,
.57,
7.97, 137.5
11.35,137.
11.55,137.
11.55, 13
11.55,13
7.
7.
7,
57
57
57
57
..t.7
,7
,7
,7
,7
-7
-7
-7
-7
-7
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
.2
,0
.C
,0
,0
,0
0.
0.
0.
0.
0.
,1
,1
.51,-!
. 5 i , - 1
.5l,-l
.51,-!
.51,-!
.302,0
.302, J
.302,0
.307,0
.302,0
, 0 . , 0 .
»3.jO.
, 0 . , 0 .
, 0 . , 0 .
, 0 . , 0 .
,0.080
,0.080
,0.080
,0.080
,0.080
716,0.
716,0.
716,0.
716,0.
716,0.
,0. , .0
. , 0 . , 0
. , 0 • , 0
. » 0 « , J
. ,0. , 3
. , 3. ,0
, 5o.85
,56.85
,56.85
,56.85
,56.85
C5.8,0
05.3,0
,105.6,0
,105.6 ,0
.912,0.0764,
.91
.91
.91
.91
. , —
. » —
. » —
. » —
. , —
037
037
037
037
337
lt-
1»-
1,-
1,-
1.-
, 0 .
,0.
,0.
,0.
,0.
2,2
. ,0
.,0
. ,0
.,0
. ,0
,0.
,0.
,0.
,0.
,0.
. , —
. , —
• t —
. ,—
2,0.0764,
2,G.07o4,
2,0.0764,
2,0.0764,
9.751,0.1
9.751,0.1
9.751,0.1
J. 751, 0.1
9.751,0.1
,-4.2E-3,
,-4.2E-3,
.-4.2E-3,
,-4.2E-3,
.-4.2E-3,
2.1E-3.0.
2.1E-3,0.
2.1E-3.0.
2.1E-3,0.
2.1E-3,0.
132, -2. 62
-0.2978,
-0.2978,
-0.2978,
-0.2978,
2.999,
2.999,
2.999,
2.999,
-0.2978,2.999,
142, -0.2978,2.999,
142, -0.2978, 2. 999,
142, -0.2
142, -G. 2
142, -0.2
0.1710,-
0.1710,-
0. 1710,-
0.171C,-
0. 1710,-
, 0 , ,
,0.,
,0.,
, 0 . ,
,0.,
E-3, O.,0
132,-2.6^E-3, O.,0
132.-2.62E-3, 0., 0
132,-2.62E-3, C.,0
132, -2. 62
., 1., .2,2
.04749,0.
.04749,0.
.04749,0.
.04749,0.
.04749,0.
,3.1755,0
,0.1755,0
,0.1755,C
,0.1755,0
,0.1755,0
2.968,-0.
2.963 ,-0.
2.968.-0.
2.968,-0.
E-3, C.,0
0.7
,0.,
,0.,
,0 .,
,0.,
, 3 . ,
. ,0. ,
. ,0. ,
. ,0. ,
.,0. ,
.,0. ,
09418,0.
09418,0.
09 41 8,0.
09418,0.
978, 2.999,
978,2.999,
978,2.9997
0.439,
0.439, .
0.439,
0.439,
0.439,
• ,
•» t
. ,
./
, 0 . ,
»0. ,
,0. ,
,0. ,
-------
Table 5-49 BLOCK DATA ROUTINE LISTING (cont.)
01
I
CO
o
ro
05670
056SO
05700
05710
05720
05730
0574C
05750
05760
1 05770
05780
05790
05810
05820
05330
05840
05850
05860
0587C
05310
05890
05900
05910
05920
05930
05940
05950
05960
05970
05980
05990
06000
06010
06020
06030
06040
06050
06060
06070
06080
+ 13. 53, -0.3424, 11. -35, 13 7. 57,105.8,j.,-2.^oS,-0.0941P,0.,r./
DATA ( SPAM I ), 1=151 ,300)/
+ 0.<-51,0.,3.207E-3,0.,0.,0.,-D.31338,0.,u.,0.,
+ 0.951,0. ,3.2371-3, 3. ,3. , 0. ,- 3. 01 3 b 3 , 0 . , 0 . , 0. ,
+• 0 951 0 !i 207F— 3 000 —0 013^8 000
+ 0.951,0.,3.207E-3,0.,0.,0.,-0.01358,0.,0.,0.,
+ ^:3_._95_1_, 0. ,_3_. 20JE-3 , 0. ,0 . , 3_. ,j- 0_. _0!_2j58_,_p_. , _0._,_0_._,
* 0.8712,3.4t-4,1.19E-3,0.,3. ,3.979o,0. , 1 . 3C-4 , 0 . , 0. ,
* 0. 8712 , 3.4E-4, 1 . 19E-3, 0. , 0 . , 3. 97Q6 , 0. , 1 . 3E-4 , 0 . , 0. ,
+ 0.8712,3.4E-4, 1 . 1 9E-3, 0. , 0 . , 0. Q79o , 0. , 1. 8E-4 , 0 . , 0. ,
+ 0. 8712,3.4E-4,1 .l->E-3,0.,3.,0.97c>o,0.,1.8E-4,0.,0. ,
+ 1. 02 7, -4.? 19E-4,3.08E-4, 3 . ,0 . 025 34 , 0 . ,-0_. 3_12_5 ,_7. 94 Z_t_^5 , 0 . , 0., _
'+ "l.02>,-4,2f9E-4V3.08L-4, 0. ,0 . 025 3'+Y6 . ,-0~.0 1 2 5/7. 942 E-5 , 6. ,0.,
*• 1.027,-4.21QE-4,3.08E-4,0.,0.02534,0.,-0.0125,7.942F-5,0.,0.,
+ 1. 02 7, -4. 2 19t- 4,3.0 dE -4, 0. ,0.02534 ,0. ,-0.0125, 7. Q42E-5 , 0. , 0. ,
* 1.02 7, -4. 2 19E-4,3.0^F-4, 0., 0. 32534, 0., -0.0125, 7.942E-5,C. , O./
DATA tSPARl I ) ,1=301 ,450)/
+ -9. R45, 0.0 5 804, 0.7 348,0. ,0.,0. ,- 1. 043 ,-7. 923E- 3, 0. , 0, ,
*- -9.845,0.05804,0.7348,0. ,0.,0.,-1.343,-7.923E-3,0.,0.,
«• -9.845,0.05304,0. 734d, 0. , 0. , 0. ,- 1 . 343 ,-7.923 E-3, 0. , C. ,
+ -9.645,0.05804,0.7348, 0. , 0 . , 0 . , - 1 . 043 ,-7. 9 23 E-3, 0. ,0. ,
* -9.845,0.05804,0. 7?48,0.,0.,0. ,- 1 . 043 ,-7. 923E-3 , 0. ,0.,
+ -2. 752, 0. 1153, -0. 230, O.,0., -2. 848, -2. 548, 0.0 15 0,0. ,0.,
«• -2.752,0.1153,-0.230,0.,0. ,-2 . 843, -2. 548 , 0 . 0150, 0. ,0. ,
+ -2. 752, 0. 1 1 53, -C. 230, O.,0., -2. 84 8, -2. 548,0. 0150,0. ,0.,
* -2. 752, 0. 1 1 53, -0. 230, O.,0., -2. 84 4, -2. 548, 0.0150,0. ,0.,
+ -2.752,0,1153,-0.230,0.,0. ,-2. 848, -2. 548 , 0 . 0150, 0. ,0. ,
+ -38.35,0.3857, 0.4285, 0 . , 4C.O, 0. ,-3 .941,-Q. 0435 8 , 0. ,0.,
+ -38. 3 5, 0.3 3 57, 0.4285,0., 40. 0,0., -3. 941, -0.04 35 3,0. ,0. ,
+ -3 8. 35,0.3 8 57, 0.42 85, 3., 4 0.0,0., -3. 941, -0.0435 8,0. ,0. ,
+ -38. 35, 0.38 57, 0.4285,0. ,40. 3,0. ,-3. 941, -0.04 35 8,0. ,0.,
+ -3 B. 3 5, 0.3 9 57, 0.42 8 5,0., 40.0, 3., -3. 941, -0.0435 8,0. ,0./
DATA (SPAR( I) , 1=451 ,600)/
+ 1.959, -0,02213, 4. 201, 128. 0,0. , 0. ,- 5. 916, 0. 08041, 0. , 0. ,
+ 1. 959, -0. 022 1 3, 4. 201,1 28. 0,0.,0.,- 5. 9 16, 0.0804 1,0. ,0. ,
+ 1.959, -0.02 213, 4. 201, 128 . 0,0. , 0. ,- 5.9 16, 0.0804 1, 0. , 0. ,
+ 1. 95 9, -0. 0 22 13, 4. 201,1 26. 0,0. ,0. , -5. 9 16, 0.08 04 1,0. ,0. ,
+ l.P59,-0.02213,4.201,128.C,0.,0.,-5.916,0.09041,0.,0.,
+ 0. 969, -0. 045 1, 3. 256, 128. 0, 0. ,-18. 4 57, -0.541, -0.0 744,0., 0.,
* 0.969, -0.0451, 3. 2 56, 12 8. 0,0., -18. 4 57, -0.541, -0.0 744,0. ,0. ,
* 0. 9b 9, -0.0451, 3. 256, 12 8. 0,0., -18. 457, -0.541, -0.0 744, O.,0.,
-------
Table 5-49 BLOCK DATA ROUTINE LISTING (cont.)
en
i
CO
o
CO
i 06090
06100
06110
06120
'' 06130
06140
06150
06160
06170
06180
06190
06200
06210
06220
06230
06240
' 06250
06260
j 06270
06280
06290
06300
1 06310
06320
06330
06340
06350
06360
06370
06380
06390
06400
06410
06420
06430
06440
06450
06460
06470
06480
i 06490
• 06500
, • • - ^
4-
4-
4-
4-
4-
0.969, -0.0 45 1,3. 2 5 6, 12 8. 0,0., -18. 4 57, -0.541, -0.0 74 4,0. ,0.,
0. 969, -0. 0451, ?. 256, 128. 0,0., -IB. 457, -0.541, -0.0 74 4, O.,0.,
0.60 26, -0.0228 5, 4. 049, 12 8. 0,11 .2 , J . ,-6. 854,0 .08607 , 0. , 0. ,
0.602 6, -0.0 228 5, 4. 049, 12 8. 0,1 1.2,0 . ,-6.854, 0 .08607 ,0. ,0. ,
0. 6026, -0.022 8 5, 4. 049, 12 8. 0,1 1.2,0., -6. 854, 0.0 8607, O.rO.,
0.60 26, -0.022 85, 4. 049, 12 3.0, 11. 2,0. ,-6.354,0.08607,0. , 0. ,
0.6026, -0.0 2285, 4. 049, 12 8. 0,1 1.2, 3. ,-6.854,0.08607,0. ,0.7
DATA (SPAR( I ), 1=601, 750)7
+ 0.01607,4.529E-5,8.585E-3,0. , 0 . , 0. ,-0 .05327 , 1 . 61 9E-3, 0 . ,0. ,
+ 0.01607,4. 529E-5,8.585E-3,0. ,0. ,0. ,-0.05327, 1. 61 9E-3, 0 . , 0. ,
4-
4-
4-
4-
4-
4-
4-
*
4-
4-
4-
4-
4-
4-
4-
4-
4-
4-
4-
0.01607,4,529E-5,8.585E-3,0. ,0.,0, ,-0.05327, 1. 619E -3, 0, , 0. ,
0. 01 60 7, 4. 5 29E- 5,8.5856-3,0. , 0 . , 0. ,-0 .05327 , 1. 619E-3, C . , 0. ,
0. 01 60 7, 4. 5 2 9E- 5, 3. 5 85 E- 3,0. ,0 ., 0. ,-0 ,05327, 1. 619E -3,0 ., 0. ,
0.01736,0. ,-2.96E-3,0. ,0 . , 0. 0815 ,- 3. 42E-3, 2. 79E-3, 0. , 0 . ,
0.01736,0. ,-2.96E-3,0. ,0. , 0. 3815 , - 3. 42E-3, 2 . 79E-3, O.,0.,
0.01736,0. ,-2.9 6E-3.0. ,0. , 0. 03 15 ,- 3.42E-3, 2. 79E-3, 0. , 0 . ,
0.01736,0. ,-2.96E-3,0. ,0. , 0.0815 ,- 3.42E-3, 2. 79E-3, 0. ,0 . ,
0.01736,0. ,-2. 96E-3,0.,0., 0.08 15,- 3. 42E-3, 2.79E-3, 0. ,C . ,
-0.0 10 8,0., -0.0 11 58,0. ,-0.01464,0. ,-0 .1424, 2.93E-3 ,0. , 0.,
-0.0 10 8,0., -0.01158,0. ,-0.01464, 0. , -0 .1424, 2 . 93E-3 , 0. , 0. ,
-0.010 3,0. , -0.0115 8,0., -0.0146 4,0. , -0 . 1424 , 2 .93E-3 , 0. , 0.,
-0.0 108,0., -0.0 1158,0. ,-0.01464,0. ,-0 . 1424 , 2. 93E-3 , 0. , 0. ,
-0.0 10 8,0. ,-0.01158,0. ,-0.01464,0. ,-0 . 1424, 2 .93E-3 , 0. , 0.7
DATA (SPARl I)il=751, 900)7
0. ,0.2014, 73.28,0. ,0.,0. , -72.29, -3. 9249, 0. ,0.,
0.,0.2014,73.28,0.,0.,0.,-72.29,-0.9249,0.,0.,
0. ,0.2014, 73.28,0. ,0. ,0. ,-72. 2 9, -0.92 49,0. ,0.,
0., 0.2014, 73. 28, 0.,0.,0. ,-72.29 , -0 .9249, 0. ,0.,
0., 0.2014, 73. Z8,0.,0.,0. , -72. 29,-0 . 9249, 0. ,0.,
0. ,0.0886, 55.59,0. , 0, ,-99. 44,9.429 , 0. 5536, 0. ,0.,
0., 0.0 886, 55. 59,0. , 0. , -99.44,9.429 , 0. 5536, 0. ,0,,
0. , 0. 0 886, 5 5. 5 9, O.,0., -9 9. 44, 9. 4 29, 0.5536, O.,0.,
O.,0.088b,55.59,0.,0. ,-99.44,9.429,0.5536, 0. ,0. ,
0. ,0.0886,55.59,0. ,0., -9 9. 44, 9. 429, 0.5536,0. ,0.,
-1.773, -0.04294, 9 1.62,0. ,313.6,0., 53 . 78 ,-0,6949, 0. ,0. ,
-1.7 7 3, -0.04294, 91. 62,0. , 313.6 ,0 ., 53 . 78, -0 .6949, 0. ,0.,
-1.773, -0.0 *2 94, 9 1.62,0. ,3 13. 6,0., 53. 78, -0.6949, Q. ,0.,
-1.7 7 3, -0.04294, 9 1.62,0. , 313 . £> , J . , 53. 78 ,-0 .6949, 0. , 0. ,
-1.77 3, -0.04294, 9 1.62,0. ,313.6,0., 53. 78 , -0. 6949, 0. ,0.7
DATA XI BP7. 45,. 28,. 08,. 36,. 26,. 2,. 44,. 31,. 26,. 41,. 2 8,. 18,
.41,, 3,. 19,. 43, .3, .21, 9*0., 9*1. ,.4 4,. 24,. I,. 4,. 21,
.05, ,32, .17, .05,9*0.7
-------
Table 5-49 BLOCK DATA ROUTINE LISTING (cont.)
tn
i
OJ
O
C 6 'j I 0
0 o 5 ? J
0 6 5 M
0 0 'j 4 )
Ob )7o
065^0
Oo'/'O
0660 )
06610
06o VO
066'tO
•j66'iU
T6660
06670
C6680
066'vn
06700
06710
067?0
06730
00740
0675)
Oo760
06770
06780
06790
06*00
Oo310
06820
06830
06R40
06850
06860
06870
063*0
06890
06900
06910
06920
DATA YlJP/.34, .28,.Id,.3o,. 30,. 19,.35, .3, .2 ,
* . 04 1, . O 21 , . 3 1 3 , . 11 , . y> , . ) 7 , . 1 1 , . 1 0 , . O^ ,
* . ? , . 1 1 , . 0 5 , . 1 3 , . 1 0 , . J R , . 1 6 , . J "> , . 0'} ,
*• . 02, . 02, . J2, .02 , .02 ,. ,">2, .02i.J2,.02,
4- 9*0. ,
-t- 3*0. , .01 , . M, .01, 3*C. ,
+• . 047 , .047, .024, ,0>7 ,.•)?', .314, . Ooo , .044, .02'"-',
* . 0 72,0.041 , .Olt,. 043, . J22 , . J 3 1 ,. 3>o,.023,.008,
+• 13*0./
DiVTA Y.
-1?
. ,-1 50. ,-1'jj., -Ib
, 5 . j , 'j . 7 , 'j . 1 , •> . 2 ,
. 7 , + . a
* 3 . J , 4 . 0,
<- 9* 13. , ')*Q. , 3*0. ,3*1 .0, 3*0. ,
* -Z. ,-?.,-,.'., - 1 . , -I. , - 1 . , - . 0 , - . 6, -.6,
*- I 3 6. , 1 M 2 . , 1 t 3 . , 1 il. , I t 3. , 1 oO . , 1 3 7 . , 1 3 7 . , 1 -j 0 . , v *0 .,
DATA F-'JK SJHSHuTINh iT^TS
DATA SI^SDP/. 15, 1.3,0./
DATA SI tittNE /10*0 ./
DATA b I ijMF. / . 04? , 9*0. /
OA FA SIGCE/ .6,.8 , .o/
DATA XlJAbC/1.,3.,4.,5.,6.,'3.,12.,13.,20.,
<• 10., 30. ,'tO. ,bO. ,60. , 130. , 130. , 160. ,200. ,
*• 1. ,2. ,3., t. , 7 . , 9. , 11., 13., 15./
DAI A Yt'ASt:/.021 , .106, .1 1? , . 107, .0 95 , .071, .O3'j, . Cl 8,
+• .00^ , . 3? 35, .0093, .0091,.00 84,.0056, .0038,.0026,.00
DATA TSIZb, 155176/2*150. /
DATA PCulMH/90./
DATA TSIG,r!SlL./.25,37. ,2. , l.l^,37. ,2.1/
DATA 1PARIMTlI ) , 1 = 1,100)/
* 0. ,-.0003°,.001254,O.,0. ,0.,-3. ^e-4 ,-I.p6E-b ,0 .,
* 0. ,0.,-.0006305 ,0. ,0.,0. ,0.,:.,0.,0.,
* 0. ,0. ,0. ,0. ,0. ,0. , 1.23t-u,l.). llt-7 ,0.,0.,
* 10*0.0,
* 10*0.,
* 10*0.,
* 10*0.,
* !0*0.,
* 10*C.,
* 10*0.
* /
DATA (PARINTl I) , 1= 101,20u)/
.003,
13,
0.
-------
Table 5-49 BLOCK DATA ROUTINE LISTING (cont.)
en
i
CO
o
on
; 06930
06940
06950
06960
06970
06980
06990
o^ooo
07010
07020
07030
07040
07050
07060
07070
07080
1 07090
07100
07110
07120
07130
07140
07150
07160
07170
07130
07190
07200
07210
07220
07230
07240
07250
07260
07270
07280
07290
07300
07310
07320
07330
~ 07340
* 0. ,-. 0 00 16, 0. , 0. , 0. ,-.0726,0. ,0.00 046, 0.,0.,
* 0. ,0. , -.000056, 0.,0.,0.,L>.,0.,0.,3.,
* O.,0.,0.,0.,0.,.0023,3., .00005,0. , J. ,
* 0. ,0. ,0. ,0. ,6*0.,
* 10*0.,
* 10*0.,
* 1C*0.,
* 10*0.,
* 20*C./
DATA (PAKINTU) , 1 = 201, 30J)/
* 0. ,.000532, -.0121 1,0.,-. 0379, Q.,-0. 117,4.54E-5,0.,0.,
* 0. ,0. ,-.0000823,0. ,-.0031623,0. ,6. 17E-5 ,0.,0.,0.,
* 3.,0.,0.,G.,.00743,0.,0.,-2.13E-7,0.,0.,
* 0. ,0. ,0. ,0. ,6*0. ,
* 0.,0.,J.«0.,0.,0.,0.,-7.72E-6,0.,0.,
* O.,0.»0.»0.,0.»0.,0.,'3..0.,0.,
* 7*0. .-5.05E-7 ,0,,0.,
* 3*3. ,0.,0. ,
* 20*0./
DATA ( PARINTd ) , I=?G1,430)/
* 0.,.302938,-.1015?,3.,0.,0.,0.,-6.43E-4,0.,3.,
* 0. ,3. ,8*0. t
* 3*0. ,0.,0. ,0., 1.71E-3, 8.98E-7,0.,0.,
* 4*0. ,6*0. ,
* 5*0. ,5*0. ,
* 6*0. ,4*0.,
* 7*0. , 1. 165-6,0. ,0. ,
* 13*0.,
* 20*0./
DATA (PARINTU ), 1 = 401, 500)/
* 0.,.00738,-.102,0.,0.,-.7736,3.,-.0015,0.,3.,
* 0 . , 0 . » a * 0 . ,
* 3*0. , O.,0.,-. 01 02, -.00 33, -.30 017, 3., 0.,
* 4*0. ,6*0.,
* 5*0. ,5*0.,
* 6*0. ,0.,-. 0043,0. ,0.,
* 7*0. ,-.00031,3. ,0. ,
* 10*0.,
* 20*0. /
DATA (PARTNTU ), 1=501, oOC) /
* 0.,. 00 802,. 01105,0., .134 2,0., -.84, 1.58E-4,0. ,0.,
* 2*0.,-.001986,0.,-.C0703,0.,-8.95E-3,0.,0.,0.,
-------
Table 5-49 BLOCK DATA ROUTINE LISTING (cont.)
en
CJ
O
G7350
Q-M60
07370
073SO
073^0
07400
0^410
07420
07430
07440
07450
07463
07470
07430
07490
07500
07510
07520
07530
07540
0755D
07560
07570
07580
07590
07600
07610
07620
07630
07640
07650
07660
07670
07680
' 07690
07700
07710
07720
07730
07740
i 07750
; 07760
. ..* _3*2.j.G.,.3624, J.,-0.1D43,-.7.^Er5j.J.»0.f... _ .. — .
* 4*?. ,6*0.,
* 5*'J. , J. ,1. 33o .-4.0E-4, J. , 0. ,
* 6*0. ,4*0. , ._
* 7*0. t-4. 625-4,0. .0. ,
* 3*0. ,0.,0. ,
* 9*0. , .01167,1 0*0. /
DATA ( P\R IMT( I ) , 1=601, 730 J /
* 0.,-.0000971,-.00°99,0.,0.,0.,.0105,-4.9E-3,0.,0.,
* ?*0.,3*C.,
* 3*G. ,0.,0. ,0.,-. 002 15 1,1.6256-5,0. , 0. ,
* 4*0. ,6*0. ,
* 5*0., 5*0.,
* 10*0.,
* 10*0.,
* 10*0. ,
* 20*0. /
DATA (PARINTl I ) , 1=701, 300) /
* 0. ,0. , .00143,0. ,0. , C., .004,. 0002 6, 0. , 0. ,
* 0. ,0. , .0000037, O.tO.fO.tO.fO.tO.iO.,
* 3*0.,0.,0.,0.,.0088,.000023,0.,0.,
* 4*0. ,6*0.,
* 10*0.,
* 10*0.,
* 10*0.,
* 10*0.,
* 20*0. /
DATA (PARINT(I), 1=801, yOO)/
* 0. ,.000034 8, -.01426,0., -.04487,0., 8.79E-3, -3 .1 4E-5 , 0. , 0.,
* 2*0. ,-.000014,0.,-.000231,0.,5.58E-5, 1.06E-7 ,0 . , 0. ,
* 3*0. ,0.,. 02487,0. ,-0. 0 19 38 ,-1 . 45E-6 ,0 . ,0 . ,
* 4*0. ,6*0.,
* 5*0. ,0.,-7.73E-4,-3.4E-5,0.,0. ,
* 6*0. ,4*0.,
* 10*0.,
* 10*0.,
* 20*0. /
DATA Y1D8P,Y2DBP/160*0. ,160*0. /
DATA LOPT/2/
DATA PPICK/2,9*0/
RETURN
END
-------
APPENDIX A
PROGRAM NOMENCLATURE
-------
APPENDIX A
PROGRAM NOMENCLATURE
Table A-l contains a complete nomenclature list for the General
Economic Effectiveness Program. Variable names for all subroutines
are included in alphabetical order. For those identifiers with more
than one SIGNIFICANT meaning, several entries in the nomenclature list
have been made. This list was designed for use by a FORTRAN IV programmer
in conjunction with the flowcharts and listings in Section 5.
A-l
-------
Table A-l PROGRAM NOMENCLATURE
* *
* C RC ECONOMIC
INSPECTION TYPF
T_DLF
~"TXTFNSTVE~"A~
EXTENSIVE R
INSPECTION FACILITIES
STATE LANE
FRAMCHISFD GARAGE
REG I ON
c cnr A N GEI E s
NEW YORK
WASHINGTON
DENVER
DETROIT
ENGINE PARAMETERS «
CO
RPM
EFFECTIVENESS> " PRO~G~RAM~ "NOMENCLATURE
* * *
_I_DL_E _
TG'IXITTION
INDUCTION
STATE ~
GARAGE
NY
WASH
DEN
DFT
ro
* *
M = l IDLF
M=? DELTA
M = 3 DELTA TIMING
M=4 MISFIRF
M=5 NOX CONTROL
_M±^_A IR PUMP
~M^T~P'CV ~~
M=R AIR CLEANER
M=9 BLADE SETTING
M=10 HEAT RISER "
MODE EMISSIONS * *
L=l ICO
(VACUUM KICK)
L = 3
L = 4
~" |_ = 5
L = f>
INO
CCO
CHC"
CMO
(45)
(45)~
(45)
NAME
DESCRIPTION
RANGE
A
A
A A "
AAA
AA1
AA3
MEAN EMISSION LEVELS BEFORE DETERIORATION
PECENTAGE SUMMATION VARIABLE - UNCONTROLLED
suMMfNG YARTABLE "I'N MILEAGE CALCOCATTON
AVERAGE ANNUAL MILEAGE - UNCONTROLLED
COEFFICIENT FOR POLYNOMIAL CURVE-FIT
TfjfFniriwr" ro R~P~OT YNOMTAC^CT/R v E~rrr
COEFFICIENT FOR POLYNOMIAL CURVE-FIT
_UNITS
GR/MI
MTTFSVYFAfT
MILES/YEAR
-------
CJ
Table A-l PROGRAM NOMENCLATURE (cont.)
,
ADD
ADD
RATE OF EMISSION DETERIORATION X MILAGE ACCUMULATION
RATE OF MODE DETERIORATION X MILAGE ACCUMULATION
- HC
H co
- NO
G/M
PPM/MILE
PPM/MILE
PPM/MILE
ADD
THE CHANGE IN PARAMETER SETTING DUE TO DECAY
ADD1 MODE EMISSION DETERIORATION
ADEBUG AREA DEBUG FLAG
ALAB AREA REGIONAL BASIN
2HNO
1250(LA)
G/MIL/MIL
SO.MI
, AM
AMB
ANAME
EMISSION AFTER MAINTENANCE
FEDERAL 1976 AIR QUALITY CRITERIA
HC,NOX- UG/M3, CO- MG/M3
ANNUAL ANNUAL MILEAGE
ANNUA1 ANNUAL MILEAGE
ANNUA2 ANNUAL MILEAGE
AS A FUNCTION OF
DISTRIBUTION FOR
DISTRIBUTION FOR
AGE.
LOS ANGELES FLEET
NEW YORK FLEET
ANNUA3 ANNUAL MILEAGE
ANWJA4 ANNUAL MILEAGE
ANNUA5 ANNUAL MILEAGE
DISTRIBUTION
DISTRIBUTION
DISTRIBUTION
FOR WASHINGTON FLEET
FOR DENVER FLEET
FOR;DETRQIT FLEET
AR 1- TARGET AREA IN XPT O.-l
ASTABLX MODE EMISSION INPUT DISTRIBUTION.X VALUES. 9 POINT
ASTABLY MODE EMISSION INPUT PISTRI BUT ION.Y VALUES. 9 POINT
ASTABX INPUT MODE EMISSION DISTRIBUTION BY REGION -X
ASTA8Y INPUT MODE EMISSION DISTRIBUTION BY REGION -Y
ATABLEX PARAMETER INPUT DISTRIBUTION. X VALUES. 9 POINTS.
ATABLEY PARAMETER INPUT DISTRIBUTION. Y VALUES. 9 POINTS.
ATABX INPUT PARAMETER DISTRIBUTION BY REGION -X
ATABY INPUT PARAMETER DISTRIBUTION BY REGION -Y
~AV~EAVERAGE PARAMETER VALUE IN StATS
AVEFAIL AVERAGE FRACTION OF CARS FAILED FOR OUTPUT 0,-1,
AX TEMPORARY STORAGE FOR DISTRIBUTIONS TO BE PLOTTED
AY
Al
Al
TEMPORARY STORAGE FOR DISTRIBUTIONS TO BE PLOTTED
TEMPORARY INTEGRAL (AT LAST POINT) IN XPT O.-l
X1-Y1 DISTRIBUTION POINT AT X3 IN ADD
A2
8
B
X2-Y2 DISTRIBUTION POINT AT X3 IN ADD
MEAN EMISSION LEVELS AFTER DETERIORATION
PECENTAGE SUMMATION VARIABLE •* CONTROLLED
G/M
BAREA INTEGRATED EMISSION LEVEL
BB SUMMING VARIABLE IN MILEAGE CALCULATION
BBB AVERAGE ANNUAL MILEAGE - CONTROLLED
GRAMS
MILES/YEAR
MILES/YEAR
BDEBU&
BDEL
BASELINE
EMISSION
DEBUG FLAG
RATE IMPROVEMENT
2HNO
-------
-P".
RHI ST
RHI ST
RI NT
RLD1
Bin?
RM
MMll
RSAVF
RSD
PS in
RSI7F
PUP
RX
RXTRA
RY
Rl
C
C "' ~"
CA
CAF
CAL
CAP
CAPFL
CAR A
CARAV
GARB
GARC
CARI
GARIY
CARM
GARMY
CARPOP
CARPOP
CARS
CARSY
CAT
CR
CBSUM
cc
ccc
Table A-l PROGRAM NOMENCLATURE (cont.)
RASELINF EMISSION HISTORY
FMTSSIOM LEVEL AT TIME N FOR RASELINE
RASELINF INSPECTION TIME INTERVAL
SURFACF AREA INSPECTION SHED 300
SURFACE AREA INSPECTION LANF 300
POST MAINTENANCE EMISSION RATES
"MEAN EMISSION RATE 'FOR " RA~SE CA'SE
STORED CONSTRAINT VALUES RY OPT I IN OPTMUM
FMTSSION RATE STANDARD DEVIATION FOR RASE CASE
RASELINE EMISSION DISTRIBUTION ERROR
SAMPLE SIZE FOR THE RASELINE FLEET
ADDITION AT MANUFACTURERS SPEC FOR MAINTENANCE
TEMPORARY STORAGE FOR DISTRIBUTIONS TO RF PLOTTED
THAT PORTION OF THE FINAL TEST INTERVAL THAT WOULD
EXTEND PAST THE TOTAL TEST DURATION
TEMPORARY STORAGE FOR DISTRIBUTIONS TO BE PLOTTED
CONSTRAINT ARRAY FOR INPUT TO CUTPNT FROM OPTMUM
EMISSION DELTA AFTER DECAY AND MAINTENANCE
pFT;er?TA"G'r--"siJMWATTn"Kr"vARTARi"F: ~ -~ P~OTT TTTCV ~~ ~~
COEFFICIENT FOR NEW CUTPOINT GUFSS IN CUTPNT O.-l.
CAPITAL EQUIPMENT COSTS
CAPITAL LAND COSTS
CAPITAL FACILITIES COST
CAPITAL COST FOR INSPECTION ST AT ION ( D I SCOUNTED )
SUM OF CARS INSPECTED OVFR HORIZON]
AVERAGE NUMBER OF CARS IN POPULATION
SUM OF CARS MAINTAINED OVER HORIZON
TOTAL CARS FAILING SIGNATURE INSPECTION OVER TIME
NO. OF CARS UNDERGOING INSPECTION
AVERAGE NO. OF CARS INSPECTED PER YEAR
NO. OF CARS MAINTAINED
AVERAGE NO. OF CARS MAINTAINED PER YEAR
REGIONAL CAR POPULATION 4M(LA)
VEHICLE POPULATION
TOTAL CARS FAILING SIGNATURE INSPECTION
AVERAGE NUMBER OF MODE REJECTED CARS
TRAINING COST
COEFFICIENT FOR NEW CUTPOINT GUESS IN CUTPNT O.-l.
VOLUNTARY I/M COST
SUMMING VARIABLE IN MILbAGt CALLULAI1UN
AVERAGE ANNUAL MILEAGE - POST 70
G/M
GR/MI
MONTHS
SO. FT.
SO. FT.
R/MILE
CARS
MONTHS
GR/MI
$
t
$
CARS
CARS
CARS
CARS
CARS
CAR/YEAR
CARS
CAR/YEAR
CARS
CARS
CARS/YEAR
CARS/YEAR
DOLLARS
DOLLARS
MILbb/YEAR
MILES/YEAR
-------
Table A-1 PROGRAM NOMENCLATURE (cont.)
cn
CCOSTI
CCOSTM
CC1
CC2
CC3
CDEBUG
CELLWTH
CF
CGTT
CHI
CINCON
CMAXI
CN
COEFB
COEFBP
CONST
CON1
CON2
COST
COSTB
CPART
CPCB
CPI
CPVPY
CSUM
CUT
CUTIN
CUTMAX
CUTMIN
CUTN
Cl
D
DO
ODD I
DOEBUG
DD1
DD2
DD3
DELB
DELEM
DELI
INSPECTION CAPITAL COSTS
MAINTENANCE CAPITAL COSTS
COEFFICIENT FOR POLYNOMIAL CURVE-FIT
COEFFICIENT FOR POLYNOMIAL CURVE-FIT
COEFFICIENT FOR POLYNOMIAL CURVE-FIT
COST DEBUG FLAG 2HNO
DELTA ON X-AXIS OF A DISTRIBUTION
J FACTORIAL IN QUEUE
CONVERT GRAMS TO TONS 9.08M
CHANGE IN Y PER COLLUMN
USER INCONVENIENCE COST
MAXIMUM NO. OF CARS INSPECTED IN ANY ONE YEAR
POST MAINTENANCE EMISSION RATES
EMISSION DECAY RATES
PARAMETER DECAY RATE
CUTPOINT OPTIMIZATION CONSTRAINT FACTOR O.-l.
CONSTANT REFLECTING MODE EMISSION NON- INDEPENDANCE
CONSTANT REFLECTING MODE EMISSION NON-INDEPENDANCE
DISCOUNTED OCOST
BASELINE VOLUNTARY MAINTENANCE CO.ST
COST OF PARTS FOR MAINTENANCE
COST OF BASE MAINTENANCE TUNEUP 35-85
COST PER INSPECTION
COST PER VEHICLE PER YEAR
TOTAL COST FOR TEST PROGRAM
CURRENT CUTPOINT GUESS IN CUTPNT
STARTING CUTPOINT GUESSES IN CUTPNT
UPPER LIMIT OF DISTRIBUTED PARAMETERS IN CUTPNT
LOWER LIMIT OF DISTRIBUTED PARAMETERS IN CUTPNT
NEW CUTPOINTS FROM L.P. MODEL IN CUTPNT
UTILITY FUNCTION COEFFICIENTS IN CUTPNT
TEMPORARY DISTRIBUTION STORAGE IN CONVOL
TEMPORARY DISTRIBUTION STORAGE IN CONVOL AND DISTPR
SECOND PARTIAL CONTRIBUTION TO EMISSION DELTA
DATA DEBUG FLAG 2HNO
COEFFICIENT FOR POLYNOMIAL CURVE-FIT
COEFFICIENT FOR POLYNOMIAL CURVE-FIT
COEFFICIENT FOR POLYNOMIAL CURVE-FIT
EMISSION REDUCTION BASE MAINTENANCE
DIFFERENCE BETWEEN TEST AND BASE EMISSION RATES
INTEGRAL OF BASE-TEST EMISSION RATES
$
$
G/TONS
DOLLARS
CARS
GRAMS/MILE
G/MIL/MIL
$/YEAR
DOLLARS
DOLLARS
^/INSPECTION
$/CAR/YEAR
$
G/M
GRAMS/MILE
GRAMS
-------
Table A-l PROGRAM NOMENCLATURE (cont.)
n'F-'L'l'T
OFLT
_n_F LT A_
~n F CT A~N
OELX
DFLXD
D F L~XTf ~
OFX
DEY
"nTFF"~
OP
DPO
DROP
DUM
ntiwx
"TWW
DUM1
OX
FFF
FMIS
FMW
GROWTH
""HFTAff
HORZN
HORZNY
'RFC ----
HPCS
HPP
FP
Fl
F2
E3
F
FACTO
"FACTOR" "
FIXCOST
FLAST
FPFRC
INTEGRAL'OF RASF-TFST FMfSSION RATES " " TONS
EMISSION REDUCTION TEST MAINTENANCE G/M
J^ARAMEJFR SETTINT, CHANGE DUE TO MAI NTEN ANCE^_CUTJP_NJ _
NF~W PTR'AMETER "DELTA" ' I'M "CUTPNT
DELTA ON X-AXIS OF A DISTRIBUTION
DUMMY X VALUE FOR DFTERI OR AT ION. RANGES 0 TO 2
DE'LfA" XTN MAINTAINED DISTRIBUTION
TEST FLEFT EMISSION SPECIE DECREMENT ERROR DIST.-X
TEST FLEET EMISSION SPECIE DECREMENT ERROR DIST.-Y
ATTRiriOT;r RATES. ~DTFF(NT = PERCT^TA'G"E"rrF"N~YEAR OLD "CARS STILL IN "USB
THF CHANGE IN PARAMETER MEANS FOR MAINTENANCE (SIG. ONLY)
SUMMATION VARIABLE IN QUEUE FOR PO CALCULATION 1/PROBAB
FMTSSION REDUCTION FROM I/M OF ~NON-DI STR I RIITED P S
TEMPORARY STORAGE IN SWITCH
TEMPORARY DISTRIBUTION STORAGE _ __
"FM'PORTR'Y DISTRIBUTION STORAGE " ~ "
TEMPORARY REJECTION RATE STORAGE FOR UNION
DELTA X IN A DISTRIBUTION
MAINTENANCE EFFECTIVENESS FACTOR 100
EMISSION RATES FOR ATTRITION .MODEL OUTPUT
EMISSION WEIGHTING FACTORS
TX"PeCTF'D~VA"LO'E""0"F REJECTED "PAR AM FT "ER
PRINT6 - HC
PRINT6 - CO
PRINT6 - NOX
POLYNOMIAL
• IN CUTPNT
HPT
EMISSION SUMMING VARIABLE IN
EMISSION SUMMING VARIABLE IN
EMISSION SUMMING VARIABLE IN
VALUE OF CHEBYSHEV DRTHGONAL
INITIAL FACTOR FOR ITERATION
"CONVERGENCE" FACTOR""'IN "C'UTPNT"
FIXED COST FOR I/M OF DISTRIBUTED PARAMETERS
FRACTION OF INSPECTION INTERVAL AT END
THAT PORTION OF THE BASELINE MAINTENANCE THAT
THE PARAMETER DFCAY RATES
POPULATION GROWTH FACTOR
HFADTNG ~ARR~~AY CONTAING~~CaNTRO~L TYT>E~~T\TA~M
PROGRAM HORIZON
PROGRAM HORIZON
HISTORY OF PC "
UNION OF SIGNATURE INSPECTION REJECTION
HISTORY OF PP
STOKED STGNTATIJRT- INSPTCTTDW R E TFCTT CrN~R^
HISTORY OF PT
UG/M3
MG/M3
UG/M3
DOLLARS
AFFECTS
:S
RATES
60
O.-l.
O.-l.
MONTHS
YEARS
-------
Table A-l. PROGRAM NOMENCLATURE (cont.)
HPTOT
HPTOTS
I
I COST
I ERR :;'
I GO
II
IJ
ILNS
IMAX
IMAXU
IN
INT
INTB
IOPT
IOPT
I PLUS
I PR I NT
IPRNT
IP1
IT
ITE
ITERAT
ITIME
ITL
ITP
ITRY
ITRYS
11
11
12
13
14
J
JCNT
JJ
K
KH
KI
KILL
KK
HISTORY OF PTOT
TOTAL UNION OF SIGNATURE REJECTION RATES O.-l.
EMISSION LOOP INDEX. 1=HC » 2=CO, 3=NOX 1-3
INCONVENIENCE COSTS $
ERROR FLAG OUTPUT FROM LPAX IN CUTPNT 0
COMPUTED GOTO INDEX. USED FOR ALL COMPUTED BRANCHES
MISCELLANEOUS INDEX
INDEX IN CONVOL
NUMBER OF LINES PER PAGE REQUESTED IN PLOT LINES
CONSTANT IN CONVOL - 50
ITRY AT MAXIMUM UTILITY FUNCTION IN OPTMUM
INPUT KEYWORD VECTOR.
NUMBER OF INSPECTION INTERVALS - TEST CASE
NUMBER OF INSPECTION INTERVALS - BASE CASE
INTEGRATE F{X) OR X*F(X) FLAG
EMPIRICAL OR THEORETICAL STATISTICAL ANALYSIS FLAG
TEMPORARY INDEX INCREASE IN PRINT2
PRINT FLAG IN CUTPNT 0
PRINT FLAG IN CUTPNT 0
I PLUS 1 IN PLOTJK
INTEGRAL VALUE OF INDEPENDENT VARIABLE IN PLOTXY
EQUIPMENT AMMORIZATION 4 YEARS
NUMBER OF ITERATIONS IN CUTPNT
INCONVENIENCE TIME MIN
LAND AMMORIZATION 30 YEARS
FACILITY AMMORIZATION 30 YEARS
COUNTER FOR ITRYS - COMB. OF NON-DISTR. PARAMETERS
ARRAY OF POSSIBILITIES FOR NON-DISTR. PARAMETERS.
DO LOOP INDEX
INDEX FOR CONVOLUTION FUNCTION
INDEX FOR CONVOLUTION FUNCTION
INDEX FOR CONVOLUTION FUNCTION
INDEX FOR CONVOLUTION FUNCTION
CONTROL TYPE-POWERTRAIN COUNTER= J J+3* ( K-l ) . 1-15
CUTPNT COUNTER FOR CUT POINT OPTIMIZATION 1-10
POWER TRAIN TYPE INDEX
CONTROL TYPE INDEX. 1=GM , 2=FORD , 3=CHRY, 4= AMC, 5= IMPORTS
OUT OF BOUND-HIGH PLOT FLAG 1H OR 1 HO
USES K=2 FOR K=3 CASE FOR DETROIT - NO CONTROLLED
FATAL ERROR FLAG. IF KILL=1 THEN A SUBCASE ABORTS
TEMPORARY STORAGE OF COLUMN TO RE PLOTTED
-------
Table A-1 PROGRAM NOMENCLATURE (cont.)
00
KI HUT OF ROUNDS-LOW PLOT FLAG
KP PLOTTING WOPK AREA
KSTART LOWER ROUND FOR CONTROL TYPE. (K)
K^TFTF(JP'PFR" ROUND FDR CONTROL TYPFmO
Kl DO LOOP INDEX IN PXCOEF
Kl STARTING J VALUF FOR CONTROL TYPE K
K2 ENDING J VALUATOR CONTROL TYPE" K
L MODE EMISSION INDEX AND DISTRIBUTION
LCODF ARRAY DESIGNATING THE FOUR NON-DISTR
TT7FWJG"LINEARTrRTTGR"AM DEBUG" FLSTT
LENGTH LENGTH OF PLOT
I.IDLF LOADED INSPECTION FL AG . 1=UNLOADFD
LINT LIMITS"OF INTEGRATION ~ " "" ' "
LL MISCELLANEOUS DO LOOP INDEX
LLPICK COUNTER FOR LPICK __
TPTCK~~ CUTP OT NT "OPT IMIZATIO~N " TI "ME PERIOD "V FcTO R"
LPLUS TEMPORARY INDEX FOR HIGH OR LOW DECAY
LPSPP_ A CORRELATION BETWEEN THE FOUR EMISSION MOPF_S
THF TEN "PARAMETER ~ " """
1,6.11
5,10,15
MOVING DO-LOOP-INDEX
PARAMETERS.
2=LOADED,3=HYBRID
" """ " ~ 4R
INCHES
MONTHS
0 OR 2
AMD
LPSPP
LO
LSTART
LSTOP
LI
L 1
L2
M
MATCH
MAXIT
MBASF
MDEBUG
MEAN
MFD1
MED2
MED3
MID
MISFIRE
MM
MMM
MMS
MO
MODE EMISSION TO PARAMETER RELATION
LENGTH OF THE INSPECTION OUEUE
LOWER LIMIT FOR MODE EMISSION INDEX. (L)
UPPER LIMIT FOR MODE EMISSION INDEX. (L)
COUNTER FOR NPICK - STATS PICK VECTOR
'"SIZE OF INPUT CONVOLUTION DISTRIBUTION 1
SIZE OF INPUT CONVOLUTION DISTRIBUTION 2
PARAMETER INDEX. RANGE IS MSTART TO MSTOP
VECTOR USED TO STORE INPUT KEYWORD CODE NUMBERS
MAXIMUM ITERATIONS BEFORE DEBUG PRINT IN CUTPNT
BASE FLEET INSPECTION INTERVAL
MAINTENANCE DEBUG FLAG
MIDPOINT OF DISTRIBUTION IN CONVOL
MEDIAN OF INPUT CONVOLUTION DISTRIBUTION 1
MEDIAN OF INPUT CONVOLUTION DISTRIBUTION 2
MEDIAN OF OUTPUT CONVOLUTION DISTRIBUTION
LOCATION OF MANUFACTURERS SPEC IN DISTRIBUTION
MISFIRE FLAG. =3HYES FOR MISFIRE INSPECTION
NAME VECTOR POINTER
YEARLY MILEAGE, ROUNDED OFF (BY CONTROL TYPE)
MANUFACTURERS RECOMMENDED PARAMETER SPECIFICATI
FLAG INDICATING OUT OF ROUNDS HIGH POINTS
CARS
1-6
1-6
1-NTR
33 NOMINALLY
33 NOMINALLY
12000 MILES
2 HMD
2HNO
MILES/YEAR
ONS 0
-------
Table A-l PROGRAM NOMENCLATURE (cont.)
10
MPH
MSTART
MSTOP
MTM
MU
MU
MU1
MU2
MU3
MVPR
Ml
N
NAME
MBL
NC
NCNTR
MCODE
NCI
NEMIS
NEMP
NF
NINS
NINTR
NINTRB
NK
NMODE
MM
NO
NOPTS
NPAR
NPERPG
NPICK
NPL
NPTRN
MPTS
NRUM
NS
NSTEPS
NTR
NTRB
NU
AVERAGE TRIP SPEED MPH
LOWER LIMIT FOR PARAMETER INDEX (M)
UPPER LIMIT FOR PARAMETER INDEX (M)
AVERAGE YEARLY MILEAGE MILES/YEAR
FLAG INDICATING OUT OF BOUNDS LOW POINTS -PLOTJK
MEAN VALUE FOR A DISTRIBUTION
MEAN OF PRINTOUT DISTRIBUTION IN DISTPR
MEAN OF PRINTOUT DISTRIBUTION IN DISTPR
MEAN OF PRINTOUT DISTRIBUTION IN DISTPR
MEAN VALUE OF THE REJECTED PARAMETER
DO LOOP INDFX IN PXCOEF
TIME INTERVAL COUNTER
MISCELLANEOUS NAME ARRAY
CONSTANT 1H
NUMBER OF VARIABLES TO BE PLOTTED IN PLOTJK
NO. OF POLLUTION CONTROL TYPES 3
ARRAY DESIGNATING THE SIX DISTRIBUTED PARAMETERS.
NC-1 IN PLOTJK. MC = NUMBER OF VARIABLES FOR PLOTTING
NO. OF EMISSION TYPES 3
NUMBER OF EMPLOYEES AT INSPECTION STATION
N FACTORIAL IN QUEUE
NUMBER OF KEYWORDS INPUT
INTEGERIZED XINT MONTHS
INTEGERIZED XINTB MONTHS
CONSTANT IN PLOTJK (PLOT CHARACTERS) 1HA,B,C
NO. OF THE EMISSION MODES FOUR
GENERALLY NUMBER OF POINTS IN A DISTRIBUTION
CONSTANT 2HNO
NUMBER OF KEYWORD OPTIONS AVAILABLE 37
NO. OF ENGINE PARAMETERS CONSIDERED 10
NUMBER OF YEARS PER PAGE TO BE DISPLAYED YEARS
TIME PERIOD FOR PAYOFF DELTA CALCULATIONS
CONSTANT IN PLOTJK 1 H+
NO. OF POWER TRAIN TYPES 5
NUMBER OF POINTS IN A DISTRIBUTION
RUN NUMBER
INDEX FOR REGION NAME OUTPUT
NO. OF STEPS TAKEN FOR SIMPSON IMTEGR. SCHEME
NIMTR+1=TIME HORIZON FOR TEST CASE MONTHS
NINTRB+1=TIME HORIZON FOR BASE CASE MONTHS
CONSTANT IN PLOTJK 1HU
-------
Table A-l PROGRAM NOMENCLATURE (cont.)
I
o
NX
MYFARS
N]
M2
N3
N4
N5
N6
OCIY
nCMY
ncosi
DCOSTI
OCOSTM
OPT I
OPTS
OVCHI
OVCHM
P
PAR
PAR I NT
PARM
PART
PAR1
PAR2
PAYADJ
PAYFIN
PAYNbW
PAYOFF
PC
PC( J)
PCONF
PCXBP
PCYBP
PDEBUG
PI
PLTMAk
PLUS
PM
CONMANT IN PLOTJK 1 MX
NUMBER OF YEARS TO RE PRINTED
ENDING YEAR OF UNCONTROLLED AGE GROUP
STARTING YEAR OF UNCONTROLLED AGE GROUP
ENDING YEAR OF CONTROLLED AGE GROUP
STARTING YEAR OF CONTROLLED AGE GROUP
ENDING YEAR OF- POST 70 AGE GROUP
STARTING AGE YFAR FOR POST 70 CARS
AVERAGE INSPECTION OPERATING COSTS PER YEAR
AVERAGE MAINTENANCE OPERATING COSTS PER YEAR
OCOSTI+OCOSTM
YEARLY INSPECTION COSTS
YEARLY MAINTENANCE COSTS
INSPECTION TYPE I NDEX r 1 = 1 DL F , 2= I GN I T I ON , 3= I NDUCT ION
ARRAY OF KEYWORD OPTIONS
OVERCHARGE FOR INSPECTION
OVERCHARGE FOR MAINTENANCE
TEMPORARY DISTRIBUTION STORAGE IN CONVOL
EMISSION RESPONSE SURFACES (SEE LISTING)
SECOND PARTIAL DERIVETIVES OF E/P
EMISSION DECAY NON-ATTRIBUTABLE TO PARAMETER DECAY
THAT PART OF THE TEST INTERVAL AT WHICH A PARTICULAR
POWERTRAIN IS TESTED
DE/DP AVERAGED BY CONTROL TYPE
AVERAGE DE/DP FOR ALL VEHICLES
PAYOFF FUNCTION IN COST
PAYOFF FUNCTION IN COST
PAYUH-h »-UNt 1 1UN
PERCENTAGE REDUCTION IN EMISSIONS
UNION OF PARAMETER REJECTION RATES BY POWER TRAIN
PROBABILITY OF RE JECT ION ( CONTROL )
DESIRED CONFIDENCE LEVEL FOR STATS
TSTAR TABLE BY CONFIDENCE LIMIT
TSTAR TABLE BY CONFIDENCE LIMIT
PARAMETER DECAY DEBUG FLAG 2HNO
SUCCESSFUL INSPECTION PERCENTAGE
MAXIMUM PLOT LIMITS - HC 10
- CO 50
- NO 10
THE TOTAL CHANGE DUE TO DECAY AND MAINTENANCE
PARAMETER DISTRIBUTION MEAN VALUES
YFARS
t/YEAR
$/YtAR
WYEAR
*/YEAR
*/YEAR
DF/DP
S/L>6
G/M
G/M
G/M
-------
Table A-1 PROGRAM NOMENCLATURE (cont.)
rPMILES "
| PMODEL
PP
PPER
PPICK
PPPICK
PO
i PRATE
PS
PSA
PSTAR
PSTARC
" PT
PTOT
PTOTS
PTS
PI
P2
P3
ODE BUG
ORATE
; RANGE
RANGE1
I RANGE2
'• RANGE 3
I RCS
REINSP
RHO
RNAME
RPERC
RSIZE
RSTOP
RTEST
RTYPE
Rl
R2
S
SALE
SAIL
SALP
"MONTHY MILEAGE ON -J- "PAR AMETER. "BASED ~ON YEARLY AfTRTtlON "
CONSTANT. PARAMETER CASE WHEN EQUAL TO RTYPE 9HPARAMETER
REJECTION RATE FOR PARAMETER INSPECTION O.-l.
YEARY POPULATION DISTRIBUTION BY -J- PARAMETER
VECTOR OF TIME PERIODS FOR PLOTTED OUTPUT
COUNTER FOR PPICK - PLOT FLAG
PROBABILITY OF NO CARS IN THE INSPECTION QUEUE 0-1
PARAMETER DECAY FACTOR
MODE EMISSION REJECTION RATE 0.0-1.0
UNION OF MODE EMISSION REJECTION RATES OVER MODES 0.0-1.0
INPUT CONSTANT REJECTION RATE
PSTAR CONSTRAINT COEFFICIENTS
UNION OF "PARAMETER REJECTION" RATES "OVER POWER TRAIN ~ ' "
TOTAL REJECTION PROBABILITY
TOTAL SIGNATURE REJECTION RATE
UNION OF MODE EMISSION REJECTION RATES OVER JJ
INPUT DISTRIBUTIONS TO CONVOL
INPUT DISTRIBUTIONS TO CONVOL
INPUT DISTRIBUTIONS TO CONVOL
MODE EMISSION DECAY DEBUG FLAG
PARAMETER DECAY FACTOR
RANGE OF DISTRIBUTION IN XPT
RANGE OF DISTRIBUTION IN CONVOL
RANGE OF DISTRIBUTION IN CONVOL
RANGE OF DISTRIBUTION IN CONVOL
RATIO OF MANDATORY TO VOLUNTARY COST (PERCENT) PERCENT
PERCENTAGE OF CARS REIMSPECTED 0
RATIO OF CAR ARRIVALS TO DEPARTURES
RUN TYPE - SIGNATURE OR PARAMETER
REGIONAL SIZE SO. MI.
PROGRAM STOPS EXECUTION AFTER SUBSEQUENT I AL 3HYES 2HNO
TEST VALUE FOR RANGF3 EVEN
PARAMETER MODEL ANALYSIS 9HPARAMETER 9HPARAMETER
SIGNATURE ANALYSIS 9HSIGNATURE
1 PECENT POINT IN DISTRIBUTION - PACKD
99 PERCENT POINT IN DISTRIBUTION - PACKD
EMISSION RATE SUMMING VARIABLE
EQUIPMENT SALVAGE FRACTION , 0
LAND SALVAGE FRACTION 100
FACILITIES SALVAGE FRACTION 0
-------
Table A-1 PROGRAM NOMENCLATURE (cont.)
l
ro
SCAI FBM
SD
SDFBUG_
c^ni ~
SD?
SD3
sir,
SIGC F
s IGDIFF
s i GM F
SIGMNE
SIGSDE
SIGP
SIGP
STGS
A SCALING" v'F'cf OR FOR BASEL IMF "MAINTENANCE
STANDARD DEVIATION OF A DISTRIBUTION
DEBUG_
OF
OF
OF
OF
STATS
STANDAPD
STANDARD
STANDARD
STANDARD
FL_AG
DEVIATION
DEVIATION
DEVIATIOM
DEVIATION
2HNO
SIST
SITFI
SITFM
SLANE
SM
SMALI
SMODFT"
SMS
SPAR
SSIG
SSI7E
STARLEX
PRINTOUT DISTRIBUTION
PRINTOUT DISTRIBUTION
PRINTOUT DISTRIBUTION
PARAMETER DISTRIBUTIONS
PARAMETER-EMISSION CORRELATION ERROR
SIGNIFICANT DIFFERENCE ___
TN S P E C T 10 N""M E A SUR E M E N T ~ E R R~0R~ Tl N sTR^uTrE"NTATTO~N j
MAINTENANCE EFFECTIVENESS ERROR - STANDARD DEVIATION
STANDARD DEVIATION OF DETERIORATION RLATE_ERRORS
PARAMETER DISTRIBUTION ERRORS
STANDARD DEVIATION PARAMETER SETTINGS
SJ_GN_AJ_l)RF MODE PI STRI BUTIOM FRROR^_
~sT7E"OF INSPETTION TTA~TTTJN
NUMBER OF STATF LANE INSPECTION STATIONS
NO. OF MAINTENANCE SITES
STATE LANE VS GARAGE FLAG. =1OHSTATE,OR 10HGARAGE
SIGNATURE MODF DISTRIBUTION MEAN VALUES
SMALLER OF RANGE1 AND RANGE? IN CONVOL
~S T (TN ATU
SITES
CASE WHEN EGUAL TO RTYPE
CONST ANT
MODE EMISSION MEAN
SIGNATURE (EMISSION) RESPONSE SURFACES
MODE EMISSION STANDARD DEVI AT TOM
SIZE OF INSPECTION FACILITY FOR OUTPUT -FACILITIES
MODE EMISSION DISTRIBUTION X VALUES. 33 POINTS.
9H SIGNATURE"
SQUARE FT
STABLEY
START
STA_R!L_
"START 2
START3
START4
MODE EMISSION DISTRIBUTION Y VALUES. 33 POINTS.
POPULATION STARTING EMISSION RATES
_STARJING EMISSION LEVELS FOR LOS ANGELES FLEET
EMISSION LEVELS FOR NEW YORK FLEET
EMISSION LEVELS FOR WASHINGTON FLEET
EMISSION LEVELS FOR DENVER FLEET
STARTING
STARTING
STARTING
START5
STAT
STATSV
' S T I M E~
SUM
SUM
STARTING EMISSION LEVELS FOR DETROIT FLEET
TOTAL NUMBER OF LANES
STAT SAVING VARIABLE IN CASE STAT IS CHANGED
I'MSTFCT IOM T rWE~TTr"A~STATE"TA"N1T"ST ATION
FFFECT OF VOLUNTARY MAINTENANCE ON MODE EMISSIONS
THF CHANGE IN PARAMETER SETTING DUE TO BASELINE MAINENANCE
TN~
LANES
SUMJ
SUMMING VARIABLE
BASELINE EMISSION
MAIN]
TIME HISTORY
SUMMING VARIABLE
-------
Table A-l PROGRAM NOMENCLATURE (cont.)
oo
SUMP
SUM1
SXCUT
SXCUTI
T
TABLEX
TABLEY
TAREA
TCP
TDEBUG
TDEL
TDIST
TDST
TE1
TE2
TE3
TH
THIST
THISTT
TIME
TIMEC
TIMEI
TIMEM
TINT
TM
TMIL
TMU
TOBE
TONX
TONY
TOMZ
TOTE
TP
TPDB
TPDT
TPER
TSD
TSIG
TSIZE
TSTAR
TT
TOTAL MODE EMISSION DECAY
EFFECT OF MANDATORY MAINTENANCE ON MODE EMISSIONS
EMISSION PASS/FAIL CRITERIA
INPUT MODE EMISSION CUTPOINTS BY REGION
FRACTION COUNTER FOR NORMALIZATION O.-l.
INITIAL PARAMETER DISTRIBUTION (X-AXIS)
INITIAL PARAMETER DISTRIBUTION (Y-AXIS)
INTEGRATED THISTT
TOTAL PARTS COST PER PERIOD
TEST DEBUG FLAG 2HNO
DELTA E STORAGE FOR PRINTOUT IN MAINT
ENGINE PARAMETER DISTRIBUTION TYPE 1-NORMAL
INPUT PARAMETER USAGE FLAG VECTOR BY REGION
OVERALL EMISSION SUMMING VARIABLES IN PRINT6
OVERALL EMISSION SUMMING VARIABLES IN PRINT6
OVERALL EMISSION SUMMING VARIABLES IN PRINT6
FRACTION COUNTER FOR NORMALIZATION O.-l.
HISTORY OF EMISSIONS FOR EACH POWERTRAIN FOR TEST FLEET
EMISSION LEVEL PER EMISSION TYPE FOR THE TEST FLEET
TIME AT INSPECTION INTERVAL
INSPECTION TIME BY PARAMETER AND VEHICLE TYPE
ENGINE PARAMETER INSPECTION TIMES (SEE LISTING)
ENGINE PARAMETER MAINTENANCE TIMES
INSPECTION INTERVAL 6-24-
MILEAGE SUMMING VARIABLE IN PRINT6
MONTHY MILEAGE ON -J- PARAMETER. BASED ON TINT
MEAN EMISSION RATE FOR TEST CASE
TOTAL EMISSION QUANTITY FOR BASE FLEET
WEIGHTED SUM OF DIFFERENCE OF BASE-TEST
STATISTICALLY SIGNIFICANT BASE-TEST EMISSION RATES
BASE-TEST EMISSIONS BASED ON LAST TIME PERIOD
TOTAL EMISSION QUANTITY FOR TEST FLEET
CONSTANT IN PRINTS 100.
BASELINE EMISSION RATES
TEST FLEET EMISSION LEVEL
POPULATION DISTRIBUTION B -J- PARAMETER BASED ON TINT.
EMISSION RATE SIGMA FOR TEST CASE
TEST EMISSION DISTRIBUTION ERROR
SAMPLE SIZE FOR THE TEST FLEET
STATISTICAL SIGNIFICANCE TESTING PARAMETER
TOTAL FRACTION FOR NORMALIZING
G
$
UG/M3
MG/M3
UG/M3
GR/MI
GR/MI
MONTHS
HOURS
MINUTES
MINUTES
MONTHS
MILES/YEAR
TONS
TONS
TONS/YEAR
TOMS/YEAR
TONS
PERCENT
TONS/DAY
TONS/DAY
-------
Table A-1 PROGRAM NOMENCLATURE (cont.)
I
4*
TTI
TTM
TTTTT
TXTRA
II
UTIL
V
VAR1
VAR2
VAR3
VEHPOP
VMN
VMNl
VMN2
VMN3
VMX
VMX1
VMX2
VMX3
VNAMF1
VNAME2
VNAME3
VI
V2
V3
WIDTH
WF
W6TI
WTIME
WW1
X
XBASE
XBP
XCUT
XCUTI
XCUTLO
XCUTM
XDUM
XHI
XHIA
XHIR
TOTAL INSPECTION TIME PER PERIOD MIN
TOTAL MAINTENANCE TIME 1
TOTAL FRACTION FOR NORMALIZING
NINTR-XINT MONTHS
UTILITY FUNCTION IN OPTMUM
MAXIMUM UTILITY FUNCTION IN OPTMUM
ARRAY OF VARIABLE VALUES TO BE PLOTTED
VARIABLE VALUE TO BE PRINTED
VARIABLE VALUE TO BE PRINTED
VARIABLE VALUE TO BE PRINTED
STARTING VEHICLE POPULATION IN MILLIONS (OUTPUT) CARS*10**6
ARRAY OF VARIABLE MINIMUMS
MINIMUM VALUE FOR VARIABLE 1 IN PLOTJK
MINIMUM VALUE FOR VARIABLE 2
MINIMUM VALUE FOR VARIABLE 3
ARRAY OF VARIABLE MAXIMUMS
MAXIMUM VALUE FOR VARIABLE 1 IN PLOTJK
MAXIMUM VALUE FOR VARIABLE 2
MAXIMUM VALUE FOR VARIABLE 3
VARIABLE NAME FOR ARRAY OUTPUT
VARIABLE NAME FOR ARRAY OUTPUT
VARIABLE NAME FOR ARRAY OUTPUT
VALUE OF VARIABLE 1 TO BE PLOTTED IN PLOTJK
VALUE OF VARIABLE 2 TO BE PLOTTED IN PLOTJK
VALUE OF VARIABLE 3 TO BE PLOTTED
X AXIS POINT SPREAD FOR PACKED 'DI STR I BUT ION-PACKD
PARAMETER DECAY WEIGHTS
WAITING TIME IN THE INSPECTION QUEUE
WAITING TIME IN THE INSPECTION QUEUE , MINUTES
TOTAL SUBPOPULATION PERCENTAGE FOR NORMALIZING
VEHICLE AGE DISTRIBUTION OVER 15 YEARS O.-l.
DISTRIBUTION DISCRETION FOR BASELINE (X-AXIS)
DUMMY ARRAY USED FOR MANIPULATING THE PARAMETER DIST.
PARAMETER PASS/FAIL CRITERIA
INPUT PARAMETER CUTPOINTS BY REGION
MINIMUM SIGNIFICANT PARAMETER SETTING
CUTPOINTS AT MAXIMUM UTILITY FUNCTION
TEMPORARY DISTRIBUTION STORAGE
UPPER X INTEGRATION LIMIT
UPPER INTEGRATION LIMIT FOR ACCtPlbD DISTRIBUTION
UPPER INTEGRATION LIMIT FOR REJECTED DISTRIBUTION
-------
Table A-l PROGRAM NOMENCLATURE (cont.)
cn
XI NT
XINTB
XKZE
XKZL
XKZP
XL AM
XLANE
XLO
XLOA
XL OR
XM
XMAX
XMIN
XN
XNAME
XNM
XO
XOPT
XR
XRATE
XRN
XSUM
XTM
XX
XI
X1BP
X2
X3
X4
X5
Y
YBASE
YBP
YES
YHI
YLO
YMN
YMX
YR
YSUM
NO. OF INSPECTION INTERVALS ( TEST )
NO OF MAINTENANCE INTERVALS ( BASEL INE )
AMORTIZATION CONSTANT FOR EQUIPMENT
AMORTIZATION CONSTANT FOR LAND
AMORTIZATION CONSTANT FOR FACILITIES
LAMBDA - ARRIVAL RATE
NO OF LANES PER STATION
LOWEST X VALUE
LOWER INTEGRATION LIMIT FOR ACCEPTED
LOWER INTEGRATION LIMIT FOR REJECTED
INTERPOLATED PERCENTAGE
LAGEST X VALUE IN XI OR X2 IN ADD
SMALLEST X VALUE IN XI OR X2 IN ADD
OPTIMAL REJECTION RATES RETURNED FROM
INSPECTION TYPE NAMES -OUTPUT ONLY
OPTIMAL REJECTION RATES AT MAX UTILIT
MINIMUM X VALUE IN A DISTRIBUTION OR
INTEGRATE F(X) OR X*F(X) FLAG
48 MONTHS
48 MONTHS
1-4 LANES
DISTRIBUTION
DISTRIBUTION
CUTPNT O.-l.
Y FUNCTION 0-1.
PLOT
PARAMETER SETTING CHANGE DUE TO M AI NTEN ANCE-CUTPNT
MODE EMISSION DECAY FACTOR
NEW PARAMETER DELTA IN CUTPNT
SUMMING VARIABLE IN COST
AVERAGE MAINTENACE TIME FOR TEST FLEET
TEMPORARY STORAGE
INITIAL VEHICLE DISTRIBUTION FOR LOS
INTERPOLATION BREAK PTS (X-AXIS) FOR
ESTIMATIONS (SIGNATURE ONLY)
ANGELES FLEET
PP AMD MVPR
INITIAL VEHICLE DISTRIBUTION FOR NEW YORK FLEET
INITIAL VEHICLE DISTRIBUTION FOR WASHINGTON FLEET
INITIAL VEHICLE DISTRIBUTION FOR DENVER FLEET
INITIAL VEHICLE DISTRIBUTION FOR DETROIT FLEET
TEMPORARY STORAGE OF DISTRIBUTION IN CONVOL
DISTRIBUTION DISCRIPTION FOR BASELINE (Y-AXIS)
DUMMY ARRAY USED FOR MANIPULATING THE PARAMETER OIST.
CONSTANT FOR CHECKING FOR FLAGS ON OR OFF 3HYES
MAXIMUM Y VALUE TO BE PLOTTED IN EPLOT
LOWEST Y VALUE TO BE PLOTTED (ALWAYS
LOWEST Y VALUE TO BE PLOTTED (ALWAYS
HIGEbT Y VALUE TO BE PLOTTED IN PLOT
TIME AT AN INSPECTION INTERVAL
SUMMING VARIABLE IN COST
ZERO) - EPLOT
ZERO) - PLOT
-------
Table A-1 PROGRAM NOMENCLATURE (contj
YTH
YY
Yl
Y1BP
Y1DUM
Y2
Y2
Y2RP
Y2DIIM
Y3
Y4
Y5
Y6
ZIC
ZOUEI
-ZSUM
ZX
ZZ
Zl
Z2
73
Z4
Z5
Z6
Z7
Z8
Z9
Z10
Zll
Z12
Z13
Z14
715
216
Z17
AVERAGE PARTS COST1FOR TEST FLEET
TEMPORARY STORAGE OF DISTRIBUTION IN CONVOL
VALUE OF FIRST FUNCTION POINT TO BE PLOTTFD-
INieRPOLATlON BREAK PlS
-------
APPENDIX B
SAMPLE PROBLEMS
-------
APPENDIX B
SAMPLE PROBLEMS
This appendix presents two sample cases which are designed to illu-
strate many of GEEP's input/output options. The data for the first case,
consisting of an Engine Inspection coupled with Extensive B Maintenance,
is given in Table B-l. In this example, the input includes all three
control groups (Uncontrolled, Controlled and Post 1970). Shown in Table B-2
is computer output of the input data. This page is useful in checking
for input errors. Tables B-3 through B-7 show typical output data for
the selected case. These include a results summary, vehicle population
characteristics, Los Angeles Basin data, pass/fail analysis for engine
inspection, developed pass/fail inspection criteria, and resultant engine
parameter rejection rates. Depending on the applications, the pass/fail
criteria can be inputted directly or determined from the optimization
algorithm. The XCUT vector specifies the pass/fail criteria for each
of the ten engine parameters for each control fleet. The SXCUT vector
performs a similar function for six exhaust mode emissions.
The program also generates a set of emission time history plots as
depicted in Figures B-l through B-3 for HC, CO and NO , respectively.
X
These plots are augmented by actual numerical data as shown in Table B-9.
Here, the emission histories are given by power train type for each
inspection interval. Finally, Table B-10 presents the results of a
statistical analysis for predicted emission reductons . In this example,
results are shown for each exhaust emission at year six. This completes
the standard output generated during a normal run. More detailed
B-l
-------
information can be obtained through the use of PPLOT and DEBUG options.
The second sample case selected for presentation involves an
Emission Inspection with Extensive B Maintenance. The required input
data is shown in B-ll. It should be noted that only the data that is
different from the first case need to be inputted. For example, both
cases utilized all three control types and consequently it was not
necessary to respecify them again in the second case. Table B-12 shows
a computer generated listing of the input data for the second case.
This output corresponds to the data shown in Table B-2. Table B-13
presents inputted and calculated data specific to the State Lane Emission
Inspection Strategy. Input data includes total number of lanes for
system, inspection times and equipment costs. Calculated output consists
of total user time and facilities configuration. Lastly, Table B-14
gives the summary results for case 2. Results depicting the remaining
standard output have not been shown since they are analoguous to those
presented in the first case.
B-2
-------
Table B-l SAMPLE PROBLEM #1 (ENGINE INSPECTION EXTENSIVE B PROGRAM)
c
c
1
KEYWORD
PARAMETER
LA
CONTROL
UNCONTROL
POST 70
CUTPTS
IDLE
IGNITION
INDUCTION
LOADED
THAT'S ALL
P$NAM1
PPICK = 0
LPICK = 2
NPICK = 6
$END
DESCRIPTION
Parameter Inspection
Los Angeles Area
Include all three control types.
Cutpoint optimization debug output.
Include all ten parameters.
Test under loaded conditions
End of keyword data flag.
Namelist input card.
No plotted output.
Optimize cutpoints at first period
only.
Statistical analysis at last period
only.
End of namelist data and end of case
flag.
B-3
-------
Table B-2 INPUT DATA FOR FIRST CASE
RUN TYPE — PARAMETER MODEL
JiAJLLNL
CAR POPULATICN TYPE ~ UNCONTR
CONTR
>A_RAMETERS CCNSIDEEED — 1 _I_DLE_C0
3 TIMING
4 .MISFIRE .
5 NOX
6 AIR PUMP
7 P.CV
8 AIR CLEAN
9 VAC KICK
f iO_.. „_ HEAT .RIS.E.K
DEBUG OPTIONS FOR THE FOLLOWING SUBROUTINES
MICRO NO
TEST NU
_C.Q5J_S NO
AREA NO
LINPRO YES
' PHECAY NO..
DATA NO
STATS NO
$NAM1
PPICK=0
NPICK=6
SEND
-------
Table B-3 SUMMARY RESULTS FOR CASE 1
****************#***#************#
* TRrt INSPECTION/MAINTENANCE *
_* SYSTEM MODEL *_
ENGINt PARAMETER STRATEGY EXTtiMSIVt b
_J NSPECTION PERIOD I S _L£ JL P _ MuNTH^
PAYCFf ._FiiNC_IlC_NLUNADJUM^-JJ&LLA&LlM£l£iiI£fl EMJS-SJGjU 1863.76
PAYCFF FUNCTION STATISTICALLY ADJUSTED ( OLLL ARS/WEI GhTEu EMISSION) 932.76
PAYCFF FUNCTION AT END OF LAST YEAR ( DOLL ARS/rtE IGhTfcD EMISSION) 633.72
hC EMISSION REDUCTION (PERCENT) ____ ..... ___ ____ . ___ _ ____________ ' IQ.7Q
CO EMISSION REDUCTION (PERCENT) 6.14
NO EMISSION REDUCTION (PERCENT) . -,O7
7JJ> .42
CO AVERAGE EMISSIONS (TONS/DAY) 9318.10
NO AVERAGE EMISSIONS (TONS/DAY) . 541. Co
W _______ :
_
TOTAL COSTS FOR VOLUNTARY PROGRAM (DOLLARS/YEAR) 17249G<5£0.25
RATIO OF MANDATORY TO VOLUNTARY COSTS (PERCENT) . 60.97
INSPECTION CAPITAL COSTS (DOLLARS/STATION) ____________________________ Q.QG
AVERAGE INSPECTION OPERATING COSTS ( DOLL ARS/ YEAR) 56762290.23
MAINTENANCE CAPITAL COSTS (DOLLARS) O.UO
AVERAGE MAINTENANCE OPERATING COSTS (DOLLARS/YEAR) ____ . _ _____ 484C93&9.S5
USER COSTS (DOLLARS/CAR) i.95
COST PER INSPECTION 24.04
COST PER VEHICLE MAINTAitiFD ___ ..... ___________________________________________ ____ 33.09
AVERAGE NUMBER OF CARS INSPECTED/YEAR ^37*727. 91
4VERAGE NUMBER OF CARS REJECTED/YEAR 24Gci55.cb
NUHBEB_flf_£ARS -ftA.IliIAlN£Q^ ttLAR _________ _. _____ _ 2406155.68
AVERAGE FAILURE PERCENTAGE .55
TOTAL PROGRAM DURATION (YEARS) 5.00
-------
Table B-4 VEHICLE POPULATION CHARACTERISTICS
YEAR
VEHICLE
CO
PRECCNTRLLLEC
CLMHCLLE J (
POST 197T
T'jTALi
PRECCMRCLLE J
CCNTkCLLEJ (I<5t6-1970)
PCST 197C
TuT ALi
PRECCNTKCLLEO
CCNTRCLLEO (1966-1970)
PCST 197T
PRECGNTrtCLLEC
CCNTRCLLEC ( 19t 6- 1 970 )
POST 1S7D
TJTALs
PRECCNTRCLLEC
CCNTPCLLED (1966-1970)
PUST 197^
TOTALS
PkECCNTKClLEO
CCNTPCLLtO (1966-1970)
PCST 1970
TOTALS
£RCE
32.
10.
21.
10J.
c t .
^ i «
3 i .
100.
18.
_»V.
L~ .
.00.
13.
3t.
52.
100.
v<
Zd.
61.
100.
7.
zz .
70.
.•->-).
,\T
5
^
^
0
t.
~
~,
0
•i
7
3
u
•>
t,
2
0
7
7
6
0
1
7
2
^
l.iCKcnc 7.
12192 H.
d3U 7.
i;o^ x2.
54T9 7.
1 A T 7 1 4 .
dJJti 6.
340^ 12.
47^3 7.
1 07 o j 4.
o3 ^5 o.
i 2 6« 12 .
^4^^. o.
lOluo 4.
M 3 1 h D .
"7 •*
^C
•. .'
lo
3t
3 1
/7
sy
^c
So
b9
--
bl
I 3
JH
77
7<*
tl
56
vG
7s
1U
•*7
Ht
c M l« 1 ^ 6 U.
CU
oKA-'J/KlL
1 2 V» ou
t- o • 0
6 jJ . + 3
y ^ . 7 j
13J.S.:
•? J .-t
7 j . o V
^ L"1 * V £
lac.at
^ j. t 0
75.00
i ^ . c 7
la-.-o
w 2 A. U
7 J • *t >
78. ^u
'K.^
li=.0t
9^.69
79. 4t
8 9 . •:• "
156.^5
91.31
d ij « i '•>
i ., - ^
.. LcVcl
!'•< ; J
t;
.- . / 7
d . _• •+
S. Vv
3. ;> J
3. 7t
G . i. o
i.d --
5.^^
J.35
t! . 1 t
3. OH
i. ••>•->
- . t -
6. J?
5.41
2.35
i.,4
5.-*o
r .20
^ . «- A
<: . co
5 . ^ TI
T.y ^
^ . j i
J Lo JU J
41..
.. ^oOO
-------
Table B-5 LOS ANGELES"BASIN"DATA
EMISSION SURVEILLANCE DATA SCURCE TK*/AkB
HC .41 G/MI
CO 3.40 u/Pl
Nu 3.00 o/MI
EMISSION SPECIE WEIGHTING FUNCTION
HC . 6 0
CO .10
_NO .. ,_»iO
ro MINIMUM EMISSICN REDUCTION GOALS
HC 10.00 HEKCENT
CO 10.00 PcKCEiNT
NO U.OO PERCENT
REG1CNAL AREA 1250.00 Sw MI
T7ERAGE~vTt-ICLE SPEED ~" ~30.~00
VEHICLE POPuLATICu _ ._ __ .._. _ .. _ 4.00
NUMBER OF CLASS *A* FRAi^ChlSEL GARAGES 1000
-------
Table B-6 PASS/FAIL ANALYSIS FOR ENGINE INSPECTION
CO
00
5 6 10
PARAMETER REJECTION RATES
2373
I/M
COSTS
EMISSION DELIA
PERCENT
fcLC CU NO ....
wEl&HTEU
EMISSION
_Q_ja_Q_ o -LOO -i.cc - L«_OO._
0001 -1.00 -I.CC -1.00
0100 -Tlci -i.c'T -iTocT
0131 -l.QO -1TCO -1.00
.._-.l»Q.O_. -1.00 -1».QQ_ 0.00 O.OOOC O.JCQO O.QQQO .Q.«.000_0
-l.CO -1.00 -1.00 .50 0.0000 0.0000 O.OOOC 0.0000
1
1
1
0
0
I
0
0
0
0
1
0
.42
.42
-.42
c
0
Q
.00
.CO
.CO
0.
0.
0.
00
00
0.0
.39
.39
.39
.44 .14 <
.44 .14 (
.44 .14 '
-l.CO -1.00 -1.00 1.58 .0021 -.0018 .OOlfi O.UOOO
-l.CO -l.QD _Z.OJJ .0021 -.0018 .0018 0.0000
6.38 .1023 .2C74 -.0160 1.5581
.14 6.88 .1023 .2C74 -.0160 1.5581
.1044 .2 056.-.(11*1 1.5557
1101
Q.CC
0.00
.39
8.H6
.1044 .2056 -.0141 1.5557
-------
Table B-7 PASS/FAIL INSPECTION CRITERIA
PARAMETER
CD
UNCGNTR
CCNTR
_PJLST 7C.
WOOE EMMSICNS
UNr.CNTR
CCNTR
POST 1C
1.00
1.00
25C
200C
2
-999
-12
-999
2
6.00
4.00
3.00
3
10.00
1.03
10.00
3
4000
5000
4000
t
1
1
.. 1 ...
4 .
4_5_Q
250
200
\ 5
0
0
0
5
3.50
1.50
1.00
6 7
0 -.1173
1 -.1136
o -.1124
6
4000
5000
4000
6 9
10.63 -l.OOOQ
10. oO -.0520
10.32 -.0521
10
0
i.
0
-------
Table B-8 ENGINE PARAMETER REJECTION RATES FOR FIRST TIME INTERVAL
T[ML hlSTLRY POINT
1Z.O
TOTAL FAILURE IS
,902<
GM
PARAMET fcR
UNCL'NT"
MUOE
C JNTK
MODE
POST 70
WOOL
PARAMETER
UNLJNTR
MOOE
CJNTR
MOJE
POST 70
MODE
PAKAMETER
UNCONTR
MODE
CONTk
MOOE
POST ?0
Moje
I 2
.35* C.OUO
3 . r : -) c . OC •>
.i57 .510
3 . < C 3 C.^30
.1 ?4 C.OOO
?.rr3 C.OOO
1 2
.3 a'* C.3C3
O.I CJ C.OOO
. m .510
O.f !3 C.3^0
.-t5J C.OOG
0.( 33 C.OOn
1 <.
.372 C.OOT
O.LOJ C.OOO
.-•32 .510
•3.c:3 c.ooo
.It i C.OOO
•:.C-3 C.303
3
o . j 3 o
0 . 0 " ?
. 35n
r . r • "! ->
C . 0 C 0
".CCO
PU
^
?.OCO
J. w GO
. ?;><->
?.o:-:
C. OCu
v . C C ^
FU
-
^.c :r
G.OOO
.354
f . 0 0 o
C.OOO
^ . c ~ o
i,.
. 3 <_ "
O.OC'O
. u^2
0.3 f • J
. 0<:?
0.000
.022
v>.000
.020
. - . -
5 '
:).OC 3
0.^00
O.OLO
0.303
0.000
0.303
TYPt 2 —
~,
O.OG3
0 . u 0 0
o./?03
•">.'.'-)
0. GOO
,;.?o-
TYPE ; —
^
0 . ^ r 0
o. ot d
0.30°
0.000
0. COO
c
: . c 3 o
O.oOO
.059
0.000
0 . (_ 0 0
3.30 T
f UKO
6
c . c 3 ;
O.oJ^
.359
3 . " 3 0
0 . u u G
' • • - v •_
C.HK V
6
c.cc-o
o.oOo
. 359
^.QOJ
Q Q ,-.
: . c o c
7 d 9 10 UMUiN
.477 .559 0.000 0.3^? .031
u.OOJ
.420 .504 .129 .273 ,?7t
0 . 3 0 J
• Jdi •i+j4 • 1 2 6 O.ooC « ti3 o
T >
.9005=
7 ti 9 lw UNi-.x
.477 .5^9 3.3"0 0.3-0 .b^c
u . 0 J o
.430 .3Ct «iii7 .^73 .v7<_
o . o j o
• idl " .4^.4 .1^0 O.oLO ,d35
D.-->J-
.90.S
7 o 9 i? UiMiL.<
.477 .559 C. '>••>;• J.OJO .^bc
b . oO VJ
.4iO ,£C4 .1.2? .t.7 i .-il o
C . uOO
.jd1 .-^<+ .l^d J.^Oj .ej-s
L. • uO j
-------
KG DATA. KISTJRY ..... -- EMISS I
_V.i>.. TlMEiMO. J_B. =_&AS£
.= _Tjt_SJ __
O.QQ_
1 0 +
i 1 4
5 +
6 +
! 10 +
! 12 +
15 +
1.7 +
1 fi 4
| 20 +
! 22 +
24 +_
25 +
27 +
29 4
i 30 +
! , 32 +
34 4
36 +
37 +
39 4
! 41 4
1 42 +
44 +
46 +
48 +
49 4
51 +
53 +
5 4. _._+__ _
56 +
58 +
60 +
1.67 _
4
4
4
4
4
4
4
4
4
4
4
4
4
4
4
4
4
4
4
4
4
.... . 3.33
4
4
4
4
4
4
4
4
4
4
4
4
4
4
4
4
4
4
4
4
4
4
4
4
4
4
4
4
4
4
4
4
4
4
4
Figure B-l HC Emission Time History Plot
-------
CC LATJL_tLLSIOR* — EMJLSSILh
CO
i
ro
I
1
3
5
6
8
10
12
13
15
17
18
20
22
24
25
27
29
30
32
34
36
37
39
41
42
44
46
48
49
51
53
56
58
ft.O
O.CQ_ . 25*_00
4 4
4 4
* +
4 4
+ 4
4 4
4 4
4 4
4 4
4 4
4 4
4 4
4 4
4 4
4 4
4 4
4 4
4 4
4 4
4 4
4 4
4 4
4 4
4 4
4 4
4 4
4 4
4 4
4 4
4 4
4 4
4 4
4 4-
4 4
4 4
4 4
_iC, 00.
4
4
4
4
4
4
4
4
4
4
4
4
4
4
4
4
4
4
4
4
4
4
4
4
4
4
4
4
4-
4
4
4
4-
4
4
4
.15. 00
4
4
4
4
4
4
4
4
4
4
4
•r
4
4
4
4
4
4
4 C
4 i
4
4
4
4
4
4
4-
4
4
4
4 ,
4 j
.. - + j
4 j
4 1
..+ 1
A 4
% 4
1 •»•
| 4
• 4
1 »+
II
I I
/ I
i^
1
I
1
1
.1
bl
I
F
4
4
4
4
4
4
4
4
4
4
4
-K.
4^^
4
4
4
4-
4
4
4
4
4 +
4 4
4 *
4 4
4 4
4 4
4 4
4 4
4 4
4 4
4 4
4 4
4 4
4 4
4 4
4 4
4 4
4 4
4 4
4 4
4 4
4 4
4 4
4 4
'& ' 4 4
jm 4 4
1 4 4
J 4 4
4 <
+• ^
4 4
4 i
4 <
+ -t
+ •(
4 4
Figure B-2 CO Emtssion Time History Plot
-------
-NIL..CATA HISTORY ,._rr EJUSSlCISLL(iP.M.l_ vs. TIM£(MLi.l d = aAS.t.. T = TEST
•f
•f
Figure B-3 NO Emission Time History Plot
-------
"Table B-9 EMISSION"HISTORY SUMMARY
*****HC LEVEL -- cNL OF INSPECTION INTcnVAL
-------
Table B-9 EMISSION HISTORY SUMMARY (cont.)
________ *****NO_._J-t.V.EL -_.T_._ EkD_
INTERVAL ( GK/ VEhlCLc-MILE ) *«*»* ___
co
i
en
TEST JiCU___
1
3
4
5
6
GM
5.4973
5.4606
5.3489
5.2015
5.0273
POrtERTKAIN TYPE
_Ctit<_Y_ AJLC.
5.4973
5.5078
5.4630
5.3510
5.2035
5.0290
5.4973
5.5089
5.464b
5.35^7
5.2.05Z
5.03C5
5.4973
5.5102
5.4668
5.3547
5.2071
5.0321
5.4973
5.5114
5.^668
5.3565
5.2089
5.0335
TEST
NO
1
2
3
4
5
A
TIME
I*C
0.0
12.0
24. C
36.0
48.0
60. G
I
HC
6ASE
8.178
6.228
8.071
7.877
7.663
7.445
SUMMARY EMISSION HISTORIES
TEST
BASE
TEST
8.178
7.891
7.253
6.768
6.304
5.859
95.698
99.817
99.120
98.535
98.103
97.761
BASE
TEST
95.698
96. 916
92.672
90.911
86.996
80, o39
5.4*7
5.470
5.396
5.293
5.1^7
4.972
5.497
5.509
5.4o5
5.353
5.205
5.030
-------
Table B-10 STATISTICAL ANALYSIS OF PREDICTED EMISSION REDUCTIONS
YEAR 6
HC EMISSION
REJECT NULL HYPQTHES Li.
THERE IS A SIGNIFICANT DIFFERENCE IN THE MEANS
AT A CONFIDENCE LEVEL OF 90.00
THE LOWER CCNFIDENCE LIMIT IS 1.3855E+CC
T = 1.0135E+01 TSTAR = 1.2800E+00
TEST MU = 5.S5S1E+00 BASE MU = 7.
CO EMISSION
REJECT NULL HYPOTHESIS.
THERE IS A SIGNIFICANT DIFFERENCE IN THE MEANS
AT A CCNFIDENCE LEVEL OF SO.00
THE LOHER CONFIDENCE LIMIT IS 5.A533E±00
T = 2.5564E+CC TSTAR = 1.2800E+00
TEST MU = 8.6829E+01 BASE MU = 9.7761E+01
NO EMISSION
ACCEPT The NULL HYPCTHESIS.
THERE IS NOT A SIGNIFICANT DIFFERENCE IN THE MEANS
AT A CONFIDENCE LEVEL OF 90.00
T = -2.4512E-C1 TSTAR = I.28QOE+00
TEST MU = 5.03C5E+00 BASE MU = *
-------
Table B-ll SAMPLE PROBLEM #2
(EMISSION INSPECTION EXTENSIVE B PROGRAM)
SIGNATURE Mode emission inspection
IHC
ICO
Mode emissions (signatures)
LU4b inspected
HC45
STOP Last case flag
THAT S ALL End of case flag
P$NAM1
NPICK=6 Statistical analysis at last time
STAT=100 Pen'°d
. 100 inspection stations
•pLNL)
Note: Keyword and namelist input data from
the previous cases is still in affect
B-17
-------
Table B-12 INPUT DATA FOR SECOND CASE
RUN ( YPt — Sio\ATUrsL MJUbL
AKtA CGNSlUErlLJ — LuS
CAR POPULATION TrPb —
CUNTR
HUSf 70
PAKAXETEKS C J^ S L JE km — 1 I L/L E LU_
^ - -^-^
4 MISFlKt
"
00
o
7
d
Al
AIR
VAC
K PUMP
PCV
CLtAi\i
KICK
;>! J:\ATUKt i^ijJbb uCi\S i OckHU — 1
4
P
o
r1L
CU
i^U
HC
UJ
- lULfc
- IDLE
- iULb
- 45
::»
JtliuG OPTluNS FOR THfc hdLLUwINo
bLlNE NO
rtlCK'J ,^U
TEST NU
COSTS NO
A
-------
Table B-13 INSPECTION LANE SYSTEM
DO
vo
TuTAL nUi"loLts i;l- S1ATL uP cKA I LU Ij^iJitl-T i_u_N LMNtjs luu
.^JPiottN ur Lni\LS H i_K Si I C: 1
TuTAL ;\iUn^bK of SiTES ' lou
VbhiLLL i.NSPECTlL-^ TiUbS
1 jL i i . 5 u i'i 1 A
L^AUcU Z.-^O rtl.M
r 1YbK t u _ Z./tO flit*
Lwo I H.-.tM KE-yjlJlKc-McfJTS Au^ LbbTb
,_vJ j K _ ^Ouu DuLLAKo/L
LO.'IJ-J I" LI\ l^Uwu (JUL LAKi>/ LMI\ C
:>JuJ
i i-4t-u,-xnAl i U,'<
J o L r- I 1 ivi n C G i. 1 o
11 .Mr.
.OJ ULi-LAKS/hK
r.^tK uF Swlc
Al'ii,;* bi/.t: (F
A I" iu \ L AlML, i> I
/,HLuYLcS
o ou.uu iw« M
ij>3»ia Sw• r I
-------
Table B-14 SUMMARY RESULTS FOR CASE 2
,\rt 11^ St-'trC 1 iu.V /iAi NTci\A.\C t *
************************¥*********
\TiUN
iloiMATUKt STkHTuuY CAlcNilVc. u
T I J vi Kcixiou i S i^.a
i u f- r f-jji_No_,l IJjjl_ 0" AJJUS 1 _c_u ( DDL LAK SV «c i u H I t: u c M 1 6 S A u.> j _ _
i j)-r ru.MLllo.J STATISTICALLY AbJJSfciJ ( uui_L AKS/ ti S.SICjVS_{ f o^S/UAY J . llV. l^
ISj
o v-^ ^xL.sAijb Li'i i S S iLi.^S ( Tu'Ni S/ j/v'r J
A1 .' AV L r AL>L tlvi i S S iL I\S ( I oi\l S/ y A Y )
i v. I AL uuSfj »• JK MAiViUATUKY PxliL-kA.1 t JOL L A Kb/ r t AK I
TolAt LUSTS h-oK VuLUNfAKV HKuGKAM ( OuLL AKS/ Y tAK ) 1
.\Alli. ul- ••,A,VL!ATbKY To VOLUNTARY CJSfS lPct Ju.oS
1 '<.> Hr ^ I lou LAPiTAL COSTS I uJLLAK^>/S TA! Aui\ ) i d^>266 .66
.wrt,/7"d HMSHtJTTLN 'jf-c:4l ti«AI\C C CHCK Al i ,Mu LJSlS t L^ULL AKS / V C AK )
uSt:^ CJsTS ( utJLL AkS/uAK)
Uoil r-cK li^SP tCl iLi\
LJSi Kti\ VcHICLb MAlKTAi.^cu
Avcr^iijL. i^Ui'iubK ui- CAKS i.^SKt
Ai/LK*-^t NvJ^DLK Lf LARS KtJtL
A/t.h.A^E iNOMUL1^ bf- UMk S riAli^T.
CT tJ/YtAK
Ttu/YcAA
Ai Ntb/YtAk
.97
^2^02^!^
AVci^AuL. 1-AlLOKt PfcjSCti\TAob .1>2
fulAc P*\UbKAK UbHATION (/t;AKSJ i).UU
------- |