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

-------