
                               					20-May-1983 10:25:19	VAX-11 FORTRAN V3.2-37              Page   1
								10-May-1983 10:29:44	CAD$VOLSET:[GARY.STATS.SOURCE]STATS.FOR;221 

0001    !
0002    !			  COPYRIGHT (c) 1982 BY
0003    !	      MOSTEK CORPORATION, CARROLLTON TX
0004    !
0005    ! This software is furnished under a license and may be used and  copied
0006    ! only  in  accordance  with  the  terms  of  such  license and with the
0007    ! inclusion of the above copyright notice.  This software or  any  other
0008    ! copies  thereof may not be provided or otherwise made available to any
0009    ! other person.  No title to and ownership of  the  software  is  hereby
0010    ! transferred.
0011    !
0012    ! The information in this software is subject to change  without  notice
0013    ! and  should  not  be  construed  as  a commitment by MOSTEK
0014    ! CORPORATION.
0015    !
0016    ! MOSTEK assumes no responsibility for the use or  reliability  of  its
0017    ! software on equipment which is not supplied by MOSTEK.
0018    !
0019     
0020    !++
0021    ! FACILITY:
0022    !   MOSTEK CORPORATION
0023    !
0024    ! ABSTRACT:  STATS is the second half of the dichotomy of a stats reporting
0025    !            system. STATS reads the RATSNEST file left by MOUSE for 
0026    !            information about the performance of the system. STATS forms
0027    !            the user interface also
0028    !            
0029    !
0030    ! ENVIRONMENT: VAX/VMS unpriveleged
0031    !   
0032    !
0033    ! AUTHOR: Gary Smith, CREATION DATE: Aug 2 1982
0034    !
0035    ! MODIFIED BY:
0036    !
0037    !--
0038    !
0039    ! TABLE OF CONTENTS:
0040    !
0041    !
0042    ! INCLUDE FILES:
0043    !   mousesubs.for
0044    !   statsubs.for
0045    !
0046    ! MACROS:
0047    !   none
0048    !
0049    ! EQUATED SYMBOLS:
0050    !   see mousesubs.for
0051    !   see statsubs.for
0052    !
0053    ! EXTERNAL REFERENCES:
0054    !                     SYS$BINTIM, SYS$SCHDWK, SYS$HIBER, SS$_NORMAL
0055    !                     JPI$_STS, PCB$V_BATCH, SYS$GETJPI, SYS$GETMSG
0056    !
0057    !++

                               					20-May-1983 10:25:19	VAX-11 FORTRAN V3.2-37              Page   2
								10-May-1983 10:29:44	CAD$VOLSET:[GARY.STATS.SOURCE]STATS.FOR;221 

0058    ! FUNCTIONAL DESCRIPTION: STATS reads the user commands. The command line
0059    !                         is passed to PARSER which does the hard part of 
0060    !                         parsing input. Based on the success or failure 
0061    !                         of the parse, STATS reads information from the 
0062    !                         RATSNEST file left by MOUSE. This information
0063    !                         is either presented in tabular form or is presented
0064    !                         in a plot ( Communist or otherwise ).
0065    !
0066    !
0067    !
0068    ! FORMAL PARAMETERS:
0069    !   none
0070    !
0071    !
0072    ! IMPLICIT INPUTS:
0073    !   RATSNEST file
0074    !
0075    !
0076    ! IMPLICIT OUTPUTS:
0077    !   Tabular information or plots
0078    !
0079    !
0080    ! ROUTINE VALUE and
0081    ! COMPLETION CODES:
0082    !   none
0083    !
0084    !
0085    ! SIDE EFFECTS:
0086    !   none to date
0087    !
0088    !
0089    !--
0090              program stats
0091     
0092    !++
0093    ! subs for the sizes of local things in STATS
0094    !--
0095     
0096              parameter lx_size        = 10000     ! size of grammar lexicon
0097              parameter in_buffer_size = 256       ! size of input buffer
0098              parameter pcb_size       = 256       ! size of parse control blk
0099              parameter stack_size     = 500       ! size of parser work space
0100              parameter keyword_size   = 9         ! size of root node
0101              parameter file_len       = 64        ! size of file names
0102              parameter interrupt_bell = 7         ! alarm bell
0103              parameter command_size   = 11        ! number of commands
0104              parameter index1         = 1         ! index for equivalences
0105              parameter index2         = 990 * 1 + 1 ! index for equivalences
0106              parameter index3         = 990 * 2 + 1 ! index for equivalences
0107              parameter index4         = 990 * 3 + 1 ! index for equivalences
0108     
0109              include 'statsubs.for'
0162              include 'mousesubs.for'
0365     
0366              dimension lx1(990), lx2(990), lx3(990), lx4(310)
0367              dimension lx(lx_size), in_buffer(in_buffer_size)
0368              dimension stack(stack_size), pcb(pcb_size)

STATS                          					20-May-1983 10:25:19	VAX-11 FORTRAN V3.2-37              Page   3
								10-May-1983 10:29:44	CAD$VOLSET:[GARY.STATS.SOURCE]STATS.FOR;221 

0369              dimension keyword(keyword_size)
0370              
0371              character *  9  stats_commands(command_size)
0372              character * 16  start_time, end_time, saved_start, saved_end
0373              character * 16  time_1, time_2
0374              character * 23  key_to_date
0375              character * 23  time_of_day, snooze_spec
0376              character * 27  greeting / ' STATS Version 1.1 here at ' /
0377              character * 63  cat_title(rec_size)
0378              character * 80  out_buffer
0379              character * 132 compress
0380     
0381              character * (file_len)  nest_file, old_nest_file
0382              character * (file_len)  file_spec
0383     
0384              logical start_set, end_set, file_present, alarm_set
0385              logical multi_plot, batch
0386     
0387              integer in_unit, out_unit, pcb, stack
0388              integer end, start, trace, ret_code
0389              integer key_compare, entries, pcb_ptr
0390              integer status, frame, frames_to_do
0391              integer item_list(3), delta_time(2), deltat
0392              integer cat_state(max_cat, max_ent), cat_len(rec_size)
0393              integer SYS$BINTIM, SYS$SCHDWK, SYS$HIBER, SYS$GETMSG
0394     
0395              real * 8 snooze_time
0396     
0397              common / io_com / in_unit, out_unit, batch
0398              common / nest_common / nest_file
0399              common / category / cat_state, cat_title, cat_len
0400     
0401              equivalence ( lx1(1), lx(index1) )
0402              equivalence ( lx2(1), lx(index2) )
0403              equivalence ( lx3(1), lx(index3) )
0404              equivalence ( lx4(1), lx(index4) )
0405     
0406              data start_set / .false. /, end_set / .false. /
0407     
0408              data stats_commands( 1) / 'SET START' /
0409              data stats_commands( 2) / 'SET END'   /
0410              data stats_commands( 3) / 'DISPLAY' /
0411              data stats_commands( 4) / 'EXIT' /
0412              data stats_commands( 5) / 'PLOT' /
0413              data stats_commands( 6) / 'USE' /
0414              data stats_commands( 7) / 'PDL' /
0415              data stats_commands( 8) / 'SHOW' /
0416              data stats_commands( 9) / 'REPLAY' /
0417              data stats_commands(10) / 'SNOOZE' /
0418              data stats_commands(11) / 'HELP' /
0419     
0420              data nest_file / standard_nest_file /
0421     
0422              data lx1 /
0423         .    1,  503, 3279,    1,    0,    0,    0,    0,    0,    0,          0
0424         .    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,         10
0425         .    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,         20

STATS                          					20-May-1983 10:25:19	VAX-11 FORTRAN V3.2-37              Page   4
								10-May-1983 10:29:44	CAD$VOLSET:[GARY.STATS.SOURCE]STATS.FOR;221 

0426         .    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,         30
0427         .    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,         40
0428         .    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,         50
0429         .    0,    0,    0,    0,    0,    0,    0,    0,    0,  508,         60
0430         .    0,  758, 1263, 1403, 1473,    0, 1557,    0,    0,    0,         70
0431         . 1756, 2019,    0, 1276, 2462,    0, 2554, 2745,    0,  790,         80
0432         .    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,         90
0433         .    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,        100
0434         .    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,        110
0435         .    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,        120
0436         .    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,        130
0437         .    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,        140
0438         .    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,        150
0439         .    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,        160
0440         .    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,        170
0441         .    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,        180
0442         .    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,        190
0443         .    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,        200
0444         .    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,        210
0445         .    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,        220
0446         .    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,        230
0447         .    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,        240
0448         .    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,        250
0449         .    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,        260
0450         .    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,        270
0451         .    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,        280
0452         .    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,        290
0453         .    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,        300
0454         .    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,        310
0455         .    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,        320
0456         .    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,        330
0457         .    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,        340
0458         .    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,        350
0459         .    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,        360
0460         .    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,        370
0461         .    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,        380
0462         .    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,        390
0463         .    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,        400
0464         .    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,        410
0465         .    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,        420
0466         .    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,        430
0467         .    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,        440
0468         .    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,        450
0469         .    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,        460
0470         .    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,        470
0471         .    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,        480
0472         .    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,        490
0473         .    0,    0,    0,    0,    0,    0,    0,    0,    5,   60,        500
0474         .   65,   67,   84,   62,  583,    0,    0,    9,   60,   68,        510
0475         .   73,   83,   80,   76,   65,   89,   62, 1386,    0,    0,        520
0476         .    6,   60,   80,   76,   79,   84,   62, 2537,    0,  530,        530
0477         .    5,   60,   80,   68,   76,   62, 2508,    0,    0,    6,        540
0478         .   60,   83,   72,   79,   87,   62, 3254,    0,    0,    8,        550
0479         .   60,   82,   69,   80,   76,   65,   89,   62, 2633,    0,        560
0480         .  549,    8,   60,   83,   78,   79,   79,   90,   69,   62,        570
0481         . 3209,    0,   32,    5,    1,    5,    1,    3,  518,    1,        580
0482         .    9,    3,  531,    1,   13,    3,  541,    1,   17,    3,        590

STATS                          					20-May-1983 10:25:19	VAX-11 FORTRAN V3.2-37              Page   5
								10-May-1983 10:29:44	CAD$VOLSET:[GARY.STATS.SOURCE]STATS.FOR;221 

0483         .  550,    1,   21,    3,  560,    1,   25,    3,  572,    1,        600
0484         .   29,    6,    1,    1,    0,    0,    5,   60,   67,   80,        610
0485         .   85,   62,  713,    0,    6,    3,   75,   69,   82,   78,        620
0486         .   69,   76,    2,    1,    1,    5,    3,   83,   85,   80,        630
0487         .   69,   82,    2,    1,    2,    4,    3,   69,   88,   69,        640
0488         .   67,    2,    1,    3,    4,    3,   85,   83,   69,   82,        650
0489         .    2,    1,    4,    3,    3,   73,   78,   84,    2,    1,        660
0490         .    5,    6,    6,   67,   79,   77,   80,   65,   84,    2,        670
0491         .    1,    6,    4,    3,   73,   68,   76,   69,    2,    1,        680
0492         .    7,    5,    3,   66,   65,   84,   67,   72,    2,    1,        690
0493         .    8,    6,    3,   79,   78,   76,   73,   78,   69,    2,        700
0494         .    1,    9,   44,    5,    1,    5,    1,   15,  625,    1,        710
0495         .    9,   15,  636,    1,   13,   15,  646,    1,   17,   15,        720
0496         .  655,    1,   21,   15,  664,    1,   25,   15,  672,    1,        730
0497         .   29,   15,  683,    1,   33,   15,  692,    1,   37,   15,        740
0498         .  702,    1,   41,    6,    1,    1,    0,  616,    9,   60,        750
0499         .   67,   79,   77,   77,   65,   78,   68,   62,  818,    0,        760
0500         .  517,    5,   60,   68,   69,   67,   62, 1354,    0,    0,        770
0501         .    6,   60,   69,   88,   73,   84,   62, 1456,    0,    0,        780
0502         .    5,   60,   85,   83,   69,   62, 3270,    0,    0,    6,        790
0503         .   60,   72,   69,   76,   80,   62, 1739,    0,  771,    5,        800
0504         .   60,   68,   67,   76,   62, 1311,    0,   32,    5,    1,        810
0505         .    5,    1,    3,  772,    1,    9,    3,  509,    1,   13,        820
0506         .    3,  781,    1,   17,    3,  791,    1,   21,    3,  800,        830
0507         .    1,   25,    3,  810,    1,   29,    6,    1,    1,    0,        840
0508         .  809,    9,   60,   68,   73,   95,   76,   73,   83,   84,        850
0509         .   62,  880,    0,  851,    8,   60,   68,   73,   95,   79,        860
0510         .   80,   84,   62, 1137,    0,    1,    1,   44,    0,   32,        870
0511         .    3,  865,    5,    0,    5,   20,    9,   21,   15,  876,        880
0512         .   13,   17,    3,  865,    1,   17,    6,    0,   21,    0,        890
0513         .    5,    1,   25,    1,   13,    0,    1,   29,    6,    0,        900
0514         .    1,    0,  864,    8,   60,   68,   69,   67,   78,   69,        910
0515         .   84,   62,  990,    0,    8,    4,   65,   82,   82,   76,        920
0516         .   79,   67,   80,   75,    2,    9,    1,    8,    4,   65,        930
0517         .   82,   82,   84,   82,   65,   80,   75,    2,    9,    2,        940
0518         .    8,    3,   68,   69,   80,   76,   79,   67,   80,   75,        950
0519         .    2,    9,    3,    8,    3,   82,   67,   86,   66,   85,        960
0520         .   70,   70,   76,    2,    9,    4,    8,    3,   84,   82,        970
0521         .   67,   78,   71,   76,   79,   83,    2,    9,    5,   28/        980
0522     
0523     
0524              data lx2 /
0525         .    5,    1,    5,    1,   15,  925,    1,    9,   15,  938,        990
0526         .    1,   13,   15,  951,    1,   17,   15,  964,    1,   21,       1000
0527         .   15,  977,    1,   25,    6,    1,    1,    0,    3,    3,       1010
0528         .   67,   80,   85,    2,    3,    1,    3,    3,   70,   67,       1020
0529         .   80,    2,    3,    2,    4,    4,   77,   73,   83,   67,       1030
0530         .    2,    3,    3,    6,    3,   77,   69,   77,   79,   82,       1040
0531         .   89,    2,    3,    4,    5,    5,   80,   71,   70,   76,       1050
0532         .   84,    2,    3,    5,    5,    3,   83,   67,   72,   69,       1060
0533         .   68,    2,    3,    6,    4,    4,   83,   87,   65,   80,       1070
0534         .    2,    3,    7,    6,    2,   85,   80,   84,   73,   77,       1080
0535         .   69,    2,    3,    8,    6,    3,   68,   69,   67,   78,       1090
0536         .   69,   84,    2,    3,    9,    4,    4,   76,   79,   67,       1100
0537         .   75,    2,    3,   10,    8,    3,   82,   69,   83,   80,       1110
0538         .   79,   78,   83,   69,    2,    3,   11,    4,    4,   80,       1120
0539         .   79,   79,   76,    2,    3,   12,   56,    5,    1,    5,       1130

STATS                          					20-May-1983 10:25:19	VAX-11 FORTRAN V3.2-37              Page   6
								10-May-1983 10:29:44	CAD$VOLSET:[GARY.STATS.SOURCE]STATS.FOR;221 

0540         .    1,   15, 1019,    1,    9,   15, 1027,    1,   13,   15,       1140
0541         . 1035,    1,   17,   15, 1044,    1,   21,   15, 1055,    1,       1150
0542         .   25,   15, 1065,    1,   29,   15, 1075,    1,   33,   15,       1160
0543         . 1084,    1,   37,   15, 1095,    1,   41,   15, 1106,    1,       1170
0544         .   45,   15, 1115,    1,   49,   15, 1128,    1,   53,    6,       1180
0545         .    1,    1,    0,  913,   10,   60,   68,   65,   89,   95,       1190
0546         .   78,   65,   77,   69,   62, 1242,    0,    9,    3,   89,       1200
0547         .   69,   83,   84,   69,   82,   68,   65,   89,    1,    3,       1210
0548         .    5,    3,   84,   79,   68,   65,   89,    1,    4,    8,       1220
0549         .    3,   84,   79,   77,   79,   82,   82,   79,   87,    1,       1230
0550         .    5,   20,    5,    1,    5,    1,   15, 1208,    1,    9,       1240
0551         .   15, 1221,    1,   13,   15, 1230,    1,   17,    6,    1,       1250
0552         .    1,    0, 1194,    9,   60,   68,   65,   89,   95,   69,       1260
0553         .   88,   80,   62, 1289,    0,    0,    9,   60,   79,   70,       1270
0554         .   70,   95,   83,   69,   84,   62, 2078,    0,   16,    3,       1280
0555         . 1195,    5,    0,    5,    1,    9,    1,    3, 1277,    1,       1290
0556         .   13,    6,    0,    1,    0,    1,    1,   36,    1,   12,       1300
0557         .    8,   15, 1306,    5,    0,   13,    0,    1,    0,    3,       1310
0558         .    2,   83,   69,   84,    0,  571,   11,   60,   83,   69,       1320
0559         .   84,   95,   83,   84,   65,   82,   84,   62, 3144,    0,       1330
0560         . 1326,    9,   60,   83,   69,   84,   95,   69,   78,   68,       1340
0561         .   62, 3096,    0,   20,   15, 1320,    5,    0,    5,    1,       1350
0562         .    9,    1,    3, 1327,    1,   13,    3, 1342,    1,   17,       1360
0563         .    6,    1,    1,    0,    7,    2,   68,   73,   83,   80,       1370
0564         .   76,   65,   89,    1,    3,   16,    5,    1,    5,    1,       1380
0565         .   15, 1375,    9,   13,    3,  852,    1,   13,    6,    1,       1390
0566         .    1,    0,  780,    9,   60,   69,   78,   68,   95,   69,       1400
0567         .   88,   80,   62, 1423,    0,    3,    3,   69,   78,   68,       1410
0568         .    1,    2,   16,   15, 1416,    5,    0,    5,    1,    9,       1420
0569         .    1,    3, 1277,    1,   13,    6,    0,    1,    0,    4,       1430
0570         .    2,   69,   88,   73,   84,    1,    4,    4,    1,   81,       1440
0571         .   85,   73,   84,    1,    4,   16,    5,    1,    5,    1,       1450
0572         .   15, 1440,    1,    9,   15, 1448,    1,   13,    6,    1,       1460
0573         .    1,    0,    0,    5,   60,   70,   67,   80,   62, 1528,       1470
0574         .    0,    4,    3,   67,   65,   76,   76,    2,    2,    1,       1480
0575         .    5,    3,   67,   65,   67,   72,   69,    2,    2,    2,       1490
0576         .    3,    3,   67,   80,   85,    2,    2,    3,    4,    3,       1500
0577         .   82,   69,   65,   68,    2,    2,    4,    5,    3,   87,       1510
0578         .   82,   73,   84,   69,    2,    2,    5,   28,    5,    1,       1520
0579         .    5,    1,   15, 1482,    1,    9,   15, 1491,    1,   13,       1530
0580         .   15, 1501,    1,   17,   15, 1509,    1,   21,   15, 1518,       1540
0581         .    1,   25,    6,    1,    1,    0,  799,   10,   60,   72,       1550
0582         .   73,   84,   95,   76,   73,   83,   84,   62, 1682,    0,       1560
0583         .    5,    5,   79,   80,   69,   78,   83,    2,    3,    9,       1570
0584         .    4,    4,   79,   80,   69,   78,    2,    3,   10,    6,       1580
0585         .    4,   68,   73,   82,   72,   73,   84,    2,    3,   11,       1590
0586         .    7,    4,   68,   73,   82,   77,   73,   83,   83,    2,       1600
0587         .    3,   12,    6,    4,   69,   88,   84,   72,   73,   84,       1610
0588         .    2,    3,   13,    7,    4,   69,   88,   84,   77,   73,       1620
0589         .   83,   83,    2,    3,   14,    6,    4,   70,   73,   68,       1630
0590         .   72,   73,   84,    2,    3,   15,    7,    4,   70,   73,       1640
0591         .   68,   77,   73,   83,   83,    2,    3,   16,    6,    4,       1650
0592         .   81,   85,   79,   72,   73,   84,    2,    3,   17,    7,       1660
0593         .    4,   81,   85,   79,   77,   73,   83,   83,    2,    3,       1670
0594         .   18,   48,    5,    1,    5,    1,   15, 1571,    1,    9,       1680
0595         .   15, 1581,    1,   13,   15, 1590,    1,   17,   15, 1601,       1690
0596         .    1,   21,   15, 1613,    1,   25,   15, 1624,    1,   29,       1700

STATS                          					20-May-1983 10:25:19	VAX-11 FORTRAN V3.2-37              Page   7
								10-May-1983 10:29:44	CAD$VOLSET:[GARY.STATS.SOURCE]STATS.FOR;221 

0597         .   15, 1636,    1,   33,   15, 1647,    1,   37,   15, 1659,       1710
0598         .    1,   41,   15, 1670,    1,   45,    6,    1,    1,    0,       1720
0599         .    4,    2,   72,   69,   76,   80,    1,   11,   16,   15,       1730
0600         . 1731,    5,    0,    5,    1,    9,    1,   13,    0,    1,       1740
0601         .   13,    6,    0,    1,    0,    0,    6,   60,   76,   79,       1750
0602         .   67,   75,   62, 1846,    0,    6,    5,   69,   78,   81,       1760
0603         .   78,   69,   87,    2,   10,    1,    7,    4,   69,   78,       1770
0604         .   81,   87,   65,   73,   84,    2,   10,    2,    3,    3,       1780
0605         .   68,   69,   81,    2,   10,    3,    7,    5,   68,   76,       1790
0606         .   67,   75,   70,   78,   68,    2,   10,    4,    8,    5,       1800
0607         .   68,   76,   67,   75,   83,   82,   67,   72,    2,   10,       1810
0608         .    5,    6,    4,   69,   78,   81,   67,   78,   84,    2,       1820
0609         .   10,    6,    8,    4,   69,   78,   81,   78,   79,   84,       1830
0610         .   81,   68,    2,   10,    7,   36,    5,    1,    5,    1,       1840
0611         .   15, 1766,    1,    9,   15, 1777,    1,   13,   15, 1789,       1850
0612         .    1,   17,   15, 1797,    1,   21,   15, 1809,    1,   25,       1860
0613         .   15, 1822,    1,   29,   15, 1833,    1,   33,    6,    1,       1870
0614         .    1,    0,    0,    6,   60,   77,   73,   83,   67,   62,       1880
0615         . 1974,    0,    5,    5,   68,   73,   82,   73,   79,    2,       1890
0616         .    3,    1,    5,    5,   66,   85,   70,   73,   79,    2,       1900
0617         .    3,    2,    6,    3,   76,   79,   71,   78,   65,   77,       1910
0618         .    2,    3,    3,    6,    3,   77,   66,   82,   69,   65,       1920
0619         .   68,    2,    3,    4,    7,    3,   77,   66,   87,   82,       1930
0620         .   73,   84,   69,    2,    3,    5,    4,    3,   84,   85,       1940
0621         .   82,   78,    2,    3,    6,    5,    3,   83,   80,   76,       1950
0622         .   73,   84,    2,    3,    7,    3,    3,   72,   73,   84,       1960
0623         .    2,    3,    8,   44,    5,    1,    5,    1,   15, 1893/       1970
0624     
0625     
0626              data lx3 / 
0627         .    1,    9,   15, 1903,    1,   13,   15, 1913,    1,   17,       1980
0628         .   15, 1924,    1,   21,   15, 1935,    1,   25,   15, 1947,       1990
0629         .    1,   29,   15, 1956,    1,   33,   15, 1966,    1,   37,       2000
0630         .    3, 1558,    1,   41,    6,    1,    1,    0, 1883,    5,       2010
0631         .   60,   77,   69,   77,   62, 2051,    0,    7,    3,   70,       2020
0632         .   82,   69,   69,   67,   78,   84,    2,    4,    1,    6,       2030
0633         .    3,   77,   70,   89,   67,   78,   84,    2,    4,    2,       2040
0634         .   16,    5,    1,    5,    1,   15, 2028,    1,    9,   15,       2050
0635         . 2040,    1,   13,    6,    1,    1,    0,    1,    1,   43,       2060
0636         .    1,    1,    1,    1,   45,    1,    2,   20,    5,    1,       2070
0637         .    5,   17,   15, 2068,    1,    9,   15, 2073,    1,   13,       2080
0638         .    6,    1,   17,    0,   13,    0,    1,    0,  540,    6,       2090
0639         .   60,   80,   79,   79,   76,   62, 2198,    0,    6,    3,       2100
0640         .   73,   82,   80,   67,   78,   84,    2,   12,    1,    5,       2110
0641         .    3,   72,   79,   76,   69,   83,    2,   12,    2,    6,       2120
0642         .    3,   76,   66,   76,   79,   67,   75,    2,   12,    3,       2130
0643         .    6,    3,   83,   66,   76,   79,   67,   75,    2,   12,       2140
0644         .    4,    8,    3,   83,   77,   65,   76,   76,   67,   78,       2150
0645         .   84,    2,   12,    5,    6,    3,   84,   83,   80,   65,       2160
0646         .   67,   69,    2,   12,    6,    6,    3,   76,   82,   80,       2170
0647         .   67,   78,   84,    2,   12,    7,    6,    3,   83,   82,       2180
0648         .   80,   67,   78,   84,    2,   12,    8,   40,    5,    1,       2190
0649         .    5,    1,   15, 2109,    1,    9,   15, 2120,    1,   13,       2200
0650         .   15, 2130,    1,   17,   15, 2141,    1,   21,   15, 2152,       2210
0651         .    1,   25,   15, 2165,    1,   29,   15, 2176,    1,   33,       2220
0652         .   15, 2187,    1,   37,    6,    1,    1,    0, 2099,    7,       2230
0653         .   60,   80,   71,   70,   76,   84,   62, 2332,    0,    8,       2240

STATS                          					20-May-1983 10:25:19	VAX-11 FORTRAN V3.2-37              Page   8
								10-May-1983 10:29:44	CAD$VOLSET:[GARY.STATS.SOURCE]STATS.FOR;221 

0654         .    3,   68,   90,   82,   79,   70,   76,   84,   83,    2,       2250
0655         .    5,    1,    6,    3,   70,   65,   85,   76,   84,   83,       2260
0656         .    2,    5,    2,    7,    7,   80,   82,   69,   65,   68,       2270
0657         .   73,   79,    2,    5,    3,    7,    7,   80,   87,   82,       2280
0658         .   73,   84,   73,   79,    2,    5,    4,    6,    3,   80,       2290
0659         .   82,   69,   65,   68,   83,    2,    5,    5,    7,    3,       2300
0660         .   80,   87,   82,   73,   84,   69,   83,    2,    5,    6,       2310
0661         .    6,    3,   82,   68,   70,   76,   84,   83,    2,    5,       2320
0662         .    7,   36,    5,    1,    5,    1,   15, 2250,    1,    9,       2330
0663         .   15, 2263,    1,   13,   15, 2274,    1,   17,   15, 2286,       2340
0664         .    1,   21,   15, 2298,    1,   25,   15, 2309,    1,   29,       2350
0665         .   15, 2321,    1,   33,    6,    1,    1,    0, 2239,    8,       2360
0666         .   60,   80,   76,   95,   79,   80,   84,   62, 2409,    0,       2370
0667         . 1341,    5,   60,   83,   67,   72,   62, 3016,    0, 2381,       2380
0668         .    6,   60,   83,   87,   65,   80,   62, 2861,    0,  559,       2390
0669         .    5,   60,   82,   69,   83,   62, 2618,    0,   52,    5,       2400
0670         .    1,    5,    1,    3,  617,    1,    9,    3, 1474,    1,       2410
0671         .   13,    3, 1884,    1,   17,    3, 2020,    1,   21,    3,       2420
0672         . 2240,    1,   25,    3, 2382,    1,   29,    3, 2391,    1,       2430
0673         .   33,    3, 2401,    1,   37,    3,  914,    1,   41,    3,       2440
0674         . 1757,    1,   45,    3, 2100,    1,   49,    6,    1,    1,       2450
0675         .    0, 2369,   10,   60,   80,   68,   76,   95,   76,   73,       2460
0676         .   83,   84,   62, 2480,    0,    1,    1,   44,    0,   20,       2470
0677         .    3, 2370,    5,    0,    5,    3,    9,    1,   15, 2476,       2480
0678         .   13,   17,    3, 2370,    1,   17,    6,    0,    1,    0,       2490
0679         .    3,    3,   80,   68,   76,    1,    7,   20,    5,    1,       2500
0680         .    5,    1,   15, 2501,    9,   17,    3, 2463,   13,   17,       2510
0681         .   13,    0,    1,   17,    6,    1,    1,    0,    4,    2,       2520
0682         .   80,   76,   79,   84,    1,    5,   16,    5,    1,    5,       2530
0683         .    1,   15, 2529,    9,   13,    3, 2370,    1,   13,    6,       2540
0684         .    1,    1,    0, 2400,   10,   60,   82,   69,   80,   95,       2550
0685         .   76,   73,   83,   84,   62, 2572,    0,    1,    1,   44,       2560
0686         .    0,   32,    3, 2370,    5,    0,    5,   20,    9,   21,       2570
0687         .   15, 2568,   13,   17,    3, 2370,    1,   17,    6,    0,       2580
0688         .   21,    0,    5,    1,   25,    1,   13,    0,    1,   29,       2590
0689         .    6,    0,    1,    0,    8,    3,   82,   69,   83,   80,       2600
0690         .   79,   78,   83,   69,    2,   11,    1,    4,   15, 2605,       2610
0691         .    1,    0,    6,    3,   82,   69,   80,   76,   65,   89,       2620
0692         .    1,    9,   16,    5,    1,    5,    1,   15, 2623,    9,       2630
0693         .   13,    3, 2555,    1,   13,    6,    1,    1,    0, 2390,       2640
0694         .    8,   60,   83,   72,   95,   79,   80,   84,   62, 2686,       2650
0695         .    0,    5,    2,   83,   84,   65,   82,   84,    1,    1,       2660
0696         .    3,    3,   69,   78,   68,    1,    2,    4,    4,   70,       2670
0697         .   73,   76,   69,    1,    3,   20,    5,    1,    5,    1,       2680
0698         .   15, 2662,    1,    9,   15, 2671,    1,   13,   15, 2678,       2690
0699         .    1,   17,    6,    1,    1,    0, 2650,    9,   60,   83,       2700
0700         .   72,   95,   76,   73,   83,   84,   62, 2724,    0,    1,       2710
0701         .    1,   44,    0,   20,    3, 2651,    5,    0,    5,    4,       2720
0702         .    9,    1,   15, 2720,   13,   17,    3, 2708,    1,   17,       2730
0703         .    6,    0,    1,    0, 2707,   11,   60,   83,   84,   65,       2740
0704         .   82,   84,   95,   69,   88,   80,   62, 2769,    0,    5,       2750
0705         .    2,   83,   84,   65,   82,   84,    1,    1,   16,   15,       2760
0706         . 2760,    5,    0,    5,    1,    9,    1,    3, 1277,    1,       2770
0707         .   13,    6,    0,    1,    0,    8,    3,   73,   83,   80,       2780
0708         .   65,   71,   67,   78,   84,    2,    7,    1,    7,    3,       2790
0709         .   73,   83,   87,   80,   67,   78,   84,    2,    7,    2,       2800
0710         .    7,    3,   80,   82,   79,   67,   67,   78,   84,    2,       2810

STATS                          					20-May-1983 10:25:19	VAX-11 FORTRAN V3.2-37              Page   9
								10-May-1983 10:29:44	CAD$VOLSET:[GARY.STATS.SOURCE]STATS.FOR;221 

0711         .    7,    3,    7,    3,   79,   83,   87,   80,   67,   78,       2820
0712         .   84,    2,    7,    4,    8,    3,   72,   79,   83,   87,       2830
0713         .   80,   67,   78,   84,    2,    7,    5,    8,    3,   72,       2840
0714         .   73,   83,   87,   80,   67,   78,   84,    2,    7,    6,       2850
0715         .   32,    5,    1,    5,    1,   15, 2786,    1,    9,   15,       2860
0716         . 2799,    1,   13,   15, 2811,    1,   17,   15, 2823,    1,       2870
0717         .   21,   15, 2835,    1,   25,   15, 2848,    1,   29,    6,       2880
0718         .    1,    1,    0,    5,    3,   67,   79,   76,   80,   71,       2890
0719         .    2,    6,    1,    5,    3,   77,   87,   65,   73,   84,       2900
0720         .    2,    6,    2,    3,    3,   67,   69,   70,    2,    6,       2910
0721         .    3,    3,    3,   80,   70,   87,    2,    6,    4,    3,       2920
0722         .    3,   76,   69,   70,    2,    6,    5,    4,    4,   76,       2930
0723         .   69,   70,   79,    2,    6,    6,    3,    3,   72,   73,       2940
0724         .   66,    2,    6,    7,    4,    4,   72,   73,   66,   79,       2950
0725         .    2,    6,    8,    5,    5,   83,   85,   83,   80,   79/       2960
0726     
0727     
0728              data lx4 /
0729         .    2,    6,   10,    4,    4,   83,   85,   83,   80,    2,       2970
0730         .    6,    9,    3,    3,   70,   80,   71,    2,    6,   11,       2980
0731         .    3,    3,   67,   79,   77,    2,    6,   12,    4,    4,       2990
0732         .   67,   79,   77,   79,    2,    6,   13,    3,    3,   67,       3000
0733         .   85,   82,    2,    6,   14,   64,    5,    1,    5,    1,       3010
0734         .   15, 2894,    1,    9,   15, 2904,    1,   13,   15, 2914,       3020
0735         .    1,   17,   15, 2922,    1,   21,   15, 2930,    1,   25,       3030
0736         .   15, 2938,    1,   29,   15, 2947,    1,   33,   15, 2955,       3040
0737         .    1,   37,   15, 2964,    1,   41,   15, 2974,    1,   45,       3050
0738         .   15, 2983,    1,   49,   15, 2991,    1,   53,   15, 2999,       3060
0739         .    1,   57,   15, 3008,    1,   61,    6,    1,    1,    0,       3070
0740         .    3,    3,   69,   78,   68,    1,    2,    5,    2,   83,       3080
0741         .   84,   65,   82,   84,    0,   32,   15, 3081,    5,    0,       3090
0742         .    5,    1,    9,    1,    3, 1404,    1,   13,   15, 3088,       3100
0743         .   17,   21,    9,    0,    1,   29,    3, 1264,    1,   25,       3110
0744         .   13,    0,    1,   29,    6,    1,    1,    0,    5,    2,       3120
0745         .   83,   84,   65,   82,   84,    1,    1,    3,    3,   69,       3130
0746         .   78,   68,    0,   32,   15, 3129,    5,    0,    5,    1,       3140
0747         .    9,    1,    3, 2746,    1,   13,   15, 3138,   17,   21,       3150
0748         .    9,    0,    1,   29,    3, 1264,    1,   25,   13,    0,       3160
0749         .    1,   29,    6,    1,    1,    0,    6,    2,   83,   78,       3170
0750         .   79,   79,   90,   69,    1,   10,    5,    2,   65,   76,       3180
0751         .   65,   82,   77,    1,    1,    4,    4,   84,   73,   76,       3190
0752         .   76,    0,    3,    3,   70,   79,   82,    0,   36,   15,       3200
0753         . 3177,    5,    0,    5,    1,    9,   17,   15, 3187,    1,       3210
0754         .   13,    6,    0,   17,    0,    5,    1,   21,   33,   15,       3220
0755         . 3196,    1,   25,   15, 3203,    1,   29,    6,    1,   33,       3230
0756         .    0,   13,    0,    1,    0,    4,    2,   83,   72,   79,       3240
0757         .   87,    1,    8,    8,   15, 3246,    5,    0,    3, 2708,       3250
0758         .    1,    0,    3,    3,   85,   83,   69,    1,    6,    8,       3260
0759         .   15, 3263,    5,    0,   13,    0,    1,    0,   16,   60/       3270
0760     
0761     
0762     
0763              external SYS$BINTIM, SYS$SCHDWK, SYS$HIBER, SS$_NORMAL
0764              external JPI$_STS, PCB$V_BATCH, SYS$GETJPI, SYS$GETMSG
0765     
0766              external msg_setstart, msg_nochange, msg_endequal
0767              external msg_notset, msg_endless, msg_opdipfil

STATS                          					20-May-1983 10:25:19	VAX-11 FORTRAN V3.2-37              Page  10
								10-May-1983 10:29:44	CAD$VOLSET:[GARY.STATS.SOURCE]STATS.FOR;221 

0768              external msg_oppdlfil, msg_opperfil, msg_startset
0769              external msg_endset, msg_oprepfil, msg_invalidtime
0770              external msg_syntax, msg_inlilenex, msg_unknown, msg_tooearly
0771     
0772    !++
0773    ! start type or root node
0774    !--
0775              data keyword/ 60, 67, 79, 77, 77, 65, 78, 68, 62 /
0776    !                       <   C   O   M   M   A   N   D   >
0777              in_unit = 5
0778              out_unit = 6
0779     
0780    !++
0781    ! open wide for input and output
0782    !--
0783     
0784              open( unit=in_unit, file='SYS$INPUT:', recl=256, iostat=ios,
0785         .          carriagecontrol='NONE', status='OLD' )
0786              open( unit=out_unit, file='SYS$OUTPUT:', recl=256,
0787         .          iostat=ios, carriagecontrol='FORTRAN', status='OLD' )
0788     
0789    !++
0790    ! determine if STATS is being run as a batch job
0791    !--
0792              batch = .true.
0793              item_list(1) = 4 + %LOC(JPI$_STS)*(2**16) 
0794              item_list(2) = %LOC(jpi_sts)
0795              status = SYS$GETJPI( %VAL(0), %VAL(0), %VAL(0),
0796         .                         item_list, %VAL(0), %VAL(0), %VAL(0) )
0797              is_batch = 2**%LOC(PCB$V_BATCH)
0798              if ( iand(jpi_sts, is_batch) .eq. 0 ) then 
0799                   call controlt
0800                   batch = .false.
0801              end if
0802     
0803     
0804    !++
0805    ! get time of day and date for later use and write a cheery msg
0806    !--
0807     
0808              status = SYS$ASCTIM( , time_of_day, , )
0809              out_buffer = greeting // time_of_day 
0810              write( out_unit, 5 ) out_buffer(1:MK$LENGTH(out_buffer))
0811    5         format( /, A )
0812              call read_nest( nest_open, start_time, ios )
0813     
0814    !++
0815    ! Determine what the sampling ratio is by the difference in time keys )
0816    !--
0817     
0818              call read_nest( seq_read, time_1, ios )
0819              call read_nest( seq_read, time_2, ios )
0820              interval = deltat( time_1, time_2 )
0821    !++
0822    ! build up the correspondence table between the lengths of the titles
0823    ! in category common and the titles. I know this is a bit stupid to
0824    ! do this each time the program is done, but I would rather the program

STATS                          					20-May-1983 10:25:19	VAX-11 FORTRAN V3.2-37              Page  11
								10-May-1983 10:29:44	CAD$VOLSET:[GARY.STATS.SOURCE]STATS.FOR;221 

0825    ! do it than I do it. So there!
0826    !--
0827     
0828              do i = 1, rec_size
0829                 cat_len(i) = MK$LENGTH(cat_title(i))
0830              end do
0831     
0832    !++
0833    ! set trace flag off
0834    !--
0835              trace = 0
0836    !++
0837    ! read user's request and zero pcb
0838    !--
0839     
0840    10        continue
0841              i = 1
0842              call terminal_read( in_buffer, i, end )
0843              do j = 1, pcb_size
0844                 pcb(j) = 0
0845              end do
0846    !++
0847    ! if request is null, prompt again
0848    !--
0849              if ( end .eq. 0 ) goto 10
0850    !++
0851    ! determine the statement type
0852    !--
0853              start = 1
0854              l = keyword_size
0855              call parser( keyword, l, in_buffer, start, end, lx, stack,
0856         .                 trace, irkf, pcb, ltr, ret_code )
0857     
0858    !++
0859    ! check that statement type was valid
0860    !--
0861              if ( ret_code .eq. success ) then
0862    !++
0863    ! pick up statement type
0864    ! 1  = set start 
0865    ! 2  = set end
0866    ! 3  = display
0867    ! 4  = end
0868    ! 5  = plot
0869    ! 6  = use
0870    ! 7  = pdl
0871    ! 8  = show
0872    ! 9  = replay
0873    ! 10 = snooze
0874    ! 11 = help
0875    ! 12 = a DCL command
0876    ! note that we are unconcerned with the first two elements in stack
0877    ! they indicate that a literal was found and how many
0878    !--
0879                 i = pcb(3)
0880                 start = irkf
0881                 goto ( 100, 200, 300, 400, 500, 600, 500, 800, 900,

STATS                          					20-May-1983 10:25:19	VAX-11 FORTRAN V3.2-37              Page  12
								10-May-1983 10:29:44	CAD$VOLSET:[GARY.STATS.SOURCE]STATS.FOR;221 

0882         .              1000, 1100, 1200 ) i
0883     
0884    !++
0885    ! command was SET START
0886    !--
0887     
0888    100          continue
0889                 saved_start = start_time
0890                 start_set = .false.
0891    !++
0892    ! Determine if the starting time is the first time in the file or
0893    ! if it is some other time. 
0894    !--
0895                 call set_time( pcb, start_time, ret_code )
0896     
0897                 if ( ret_code .ne. success ) then
0898                      start_time = saved_start
0899                 else
0900                      start_set = .true.
0901                 endif
0902     
0903                 goto 10
0904     
0905    !++
0906    ! command was SET END
0907    !--
0908     
0909    200          continue
0910     
0911    !++
0912    ! determine if the end is to be the end of the file or a regular time
0913    !--
0914     
0915                 end_set = .false.
0916                 saved_end = end_time
0917     
0918                 call set_time( pcb, end_time, ret_code )
0919     
0920                 if ( ret_code .ne. success ) then
0921                      end_time = saved_end
0922                 else
0923                      end_set = .true.
0924                 endif
0925     
0926                 if ( end_set ) then
0927                    if ( key_compare(end_time, start_time) ) 210, 220, 230
0928     
0929    !++
0930    ! end_time < start_time 
0931    !--
0932     
0933    210                continue
0934                       call LIB$SIGNAL( msg_endless )
0935                       call LIB$SIGNAL( msg_nochange )
0936                       end_time = saved_end
0937                       end_set = .false.
0938                       goto 10

STATS                          					20-May-1983 10:25:19	VAX-11 FORTRAN V3.2-37              Page  13
								10-May-1983 10:29:44	CAD$VOLSET:[GARY.STATS.SOURCE]STATS.FOR;221 

0939     
0940    !++
0941    ! end_time = start_time
0942    !--
0943     
0944    220                continue
0945                       call LIB$SIGNAL( msg_endequal )
0946                       call LIB$SIGNAL( msg_nochange )
0947                       end_time = saved_end
0948                       end_set = .false.
0949                       goto 10
0950     
0951    !++
0952    ! end_time > start_time, ok. See if the times are coincident with the 
0953    ! times of the current performance file.
0954    !--
0955     
0956    230                continue
0957                       time_1 = start_time
0958                       call read_nest( keyed_read, time_1, ios )
0959                       if ( key_compare( time_1, end_time )
0960         .                                      .eq. greater ) then
0961                          call LIB$SIGNAL( msg_tooearly )
0962                          start_set = .false.
0963                          end_set = .false.
0964                       end if
0965                       goto 10
0966     
0967                 endif
0968                 goto 10
0969     
0970    !++
0971    ! command was DISPLAY something
0972    !--
0973     
0974    300          continue
0975     
0976    !++
0977    ! determine how many entries to process and if a file name is present
0978    !--
0979     
0980                 entries = 0
0981                 pcb_ptr = 4
0982     
0983                 do while ( ( pcb(pcb_ptr) .eq. 5 ) .or. 
0984         .                  ( pcb(pcb_ptr) .eq. 4 ) )
0985                    entries = entries + 1
0986                    pcb_ptr = pcb_ptr + pcb(pcb_ptr + 1) + 2
0987                 end do
0988     
0989    !++
0990    ! see if a file name was present, ie, pcb(pcb_ptr) = 3
0991    !--
0992     
0993                 if ( pcb(pcb_ptr) .eq. 3 ) then
0994                     file_spec = compress( pcb(pcb_ptr+1) )
0995                     out_unit = 7

STATS                          					20-May-1983 10:25:19	VAX-11 FORTRAN V3.2-37              Page  14
								10-May-1983 10:29:44	CAD$VOLSET:[GARY.STATS.SOURCE]STATS.FOR;221 

0996                     open( unit=out_unit, status='NEW',
0997         .                 file=file_spec(1:MK$LENGTH(file_spec)),
0998         .                 carriagecontrol='LIST', err=320 )
0999                     file_present = .true.
1000                 end if
1001     
1002                 if ( start_set .and. end_set ) then
1003                     j = 7
1004     
1005                     do i = 1, entries
1006                        call display( start_time, end_time, pcb(j),
1007         .                            pcb(j-1) )
1008                        j = j + 4
1009                     end do
1010     
1011                 else
1012                    call LIB$SIGNAL( msg_notset )
1013                 end if
1014     
1015    !++
1016    ! if an output file was speciifed, reset the output and close the file
1017    !--
1018     
1019                 if ( file_present ) then
1020                    close( unit=out_unit )
1021                    out_unit = 6
1022                    file_present = .false.
1023                 end if
1024     
1025                 goto 10
1026    !++
1027    ! error occurred on a DISPLAY file
1028    !--
1029     
1030    320          continue
1031                 out_unit = 6
1032     
1033                 call LIB$SIGNAL( msg_opdipfil, %VAL(1), 
1034         .                        file_spec(1:MK$LENGTH(file_spec)) )
1035                 goto 10
1036     
1037    !++
1038    ! command was EXIT
1039    !--
1040     
1041    400          continue
1042                 call read_nest( nest_close, end_time, ios )
1043                 close ( unit=in_unit )
1044                 close ( unit=out_unit )
1045                 stop 'STATS normal exit...'
1046     
1047    !++
1048    ! command was PLOT or PDL
1049    !--
1050     
1051    500          continue
1052                 if ( start_set .and. end_set ) then

STATS                          					20-May-1983 10:25:19	VAX-11 FORTRAN V3.2-37              Page  15
								10-May-1983 10:29:44	CAD$VOLSET:[GARY.STATS.SOURCE]STATS.FOR;221 

1053     
1054    !++
1055    ! create PDL file according to the specification made in the user line
1056    !--
1057                   multi_plot = .false.
1058                   frames_to_do = 1
1059     
1060                   if ( pcb(3) .eq. 7 ) then
1061     
1062    !++
1063    ! determine if this is a multiple plot invocation
1064    !--
1065     
1066                     index_lit = 8
1067                     frames_to_do = 1
1068                     if ( pcb(index_lit) .eq. 5 ) multi_plot = .true.
1069     
1070                     do while ( pcb(index_lit) .eq.  5 )
1071                        frames_to_do = frames_to_do + 1
1072                        index_lit = index_lit + 4
1073                     end do 
1074     
1075                     file_spec = compress( pcb(index_lit+1) )
1076                     open( unit=12, file=file_spec(1:MK$LENGTH(file_spec)),
1077         .                 status='NEW', err=520 )
1078                   end if
1079     
1080                   do j = 1, frames_to_do
1081                     call plot( start_time, end_time, i, pcb(6+(j-1)*4),
1082         .                      pcb(7+(j-1)*4), j, multi_plot, interval )
1083                   end do
1084     
1085                   if (  pcb(3) .eq. 7 ) close( unit=12 )
1086                 else
1087                     call LIB$SIGNAL( msg_notset )
1088                 end if
1089                 goto 10
1090     
1091    !++
1092    ! error occurred in the creation of the PDL file. Give'em a message
1093    !--
1094     
1095    520          call LIB$SIGNAL( msg_oppdlfil, %VAL(1),
1096         .                        file_spec(1:MK$LENGTH(file_spec)) )
1097                 goto 10
1098     
1099    !++
1100    ! use command 
1101    !--
1102     
1103    600       continue
1104     
1105    !++
1106    ! first close down the old nest file
1107    !--
1108              call read_nest( nest_close, end_time, ios )
1109     

STATS                          					20-May-1983 10:25:19	VAX-11 FORTRAN V3.2-37              Page  16
								10-May-1983 10:29:44	CAD$VOLSET:[GARY.STATS.SOURCE]STATS.FOR;221 

1110              old_nest_file = nest_file
1111              nest_file = ' '
1112              nest_file = compress( pcb(5) )
1113     
1114    !++
1115    ! try to open up the new nest file
1116    !--
1117              call read_nest( nest_open, time_1, ios )
1118              if ( ios .ne. 0 ) then
1119                 call LIB$SIGNAL( msg_opperfil, %VAL(1),
1120         .                        nest_file(1:MK$LENGTH(nest_file)) )
1121                 nest_file = old_nest_file
1122                 call read_nest( nest_open, time_1, ios )
1123                 goto 10
1124              end if
1125     
1126    !++
1127    ! The alternate nest file is there; tell'em where it starts. 
1128    !--
1129     
1130              call read_nest( seq_read, time_1, ios )
1131              status = MK$FILENAME( nest_file )
1132              write( out_unit, 620 ) nest_file(1:MK$LENGTH(nest_file)),
1133         .                           key_to_date(time_1)
1134    620       format( ' ', A, ' begins at ', A )
1135              goto 10
1136     
1137    !++
1138    ! command was SHOW something or the other
1139    !--
1140              
1141    800       continue
1142              j = 6
1143              do while ( pcb(j) .ne. 0 )
1144                 goto ( 810, 820, 830 ) pcb(j)
1145    !++
1146    ! show start
1147    !--
1148    810          continue
1149                 if ( start_set ) then
1150                    write( out_unit, 815 ) key_to_date( start_time )
1151    815             format( ' The starting time is ', A, '.' )
1152                 else
1153                    call LIB$SIGNAL( msg_startset )
1154                 end if
1155                 goto 899
1156    !++
1157    ! show end
1158    !--
1159    820          continue
1160                 if ( end_set ) then
1161                    write( out_unit, 825 ) key_to_date( end_time )
1162    825             format( ' The ending time is ', A, '.' )
1163                 else
1164                    call LIB$SIGNAL( msg_endset )
1165                 end if
1166                 goto 899

STATS                          					20-May-1983 10:25:19	VAX-11 FORTRAN V3.2-37              Page  17
								10-May-1983 10:29:44	CAD$VOLSET:[GARY.STATS.SOURCE]STATS.FOR;221 

1167     
1168    !++
1169    ! show file
1170    !--
1171    830          continue
1172                 status = MK$FILENAME( nest_file )
1173                 write( out_unit, 835 ) nest_file(1:MK$LENGTH(nest_file))
1174    835          format( ' The current STATS file is ', A, '.' )
1175     
1176    899          j = j + 3
1177              end do
1178              goto 10          
1179     
1180    !++
1181    ! command was replay
1182    !--
1183     
1184    900       continue
1185     
1186    !++
1187    ! determine how many entries to process and if a file name is present
1188    !--
1189     
1190                 entries = 0
1191                 pcb_ptr = 4
1192     
1193                 do while ( pcb(pcb_ptr) .eq. 5 )
1194                    entries = entries + 1
1195                    pcb_ptr = pcb_ptr + pcb(pcb_ptr + 1) + 2
1196                 end do
1197     
1198    !++
1199    ! see if a file name was present, ie, pcb(pcb_ptr) = 3
1200    !--
1201     
1202                 if ( pcb(pcb_ptr) .eq. 3 ) then
1203                     file_spec = compress( pcb(pcb_ptr+1) )
1204                     out_unit = 7
1205                     open( unit=out_unit, status='NEW',
1206         .                 file=file_spec(1:MK$LENGTH(file_spec)),
1207         .                 carriagecontrol='LIST', err=920 )
1208                     file_present = .true.
1209                 end if
1210     
1211                 if ( start_set .and. end_set ) then
1212                     j = 6
1213     
1214                     do i = 1, entries
1215                        call replay( start_time, end_time, pcb(j),
1216         .                           pcb(j+1) )
1217                        j = j + 4
1218                     end do
1219     
1220                 else
1221                     call LIB$SIGNAL( msg_notset )
1222                 end if
1223     

STATS                          					20-May-1983 10:25:19	VAX-11 FORTRAN V3.2-37              Page  18
								10-May-1983 10:29:44	CAD$VOLSET:[GARY.STATS.SOURCE]STATS.FOR;221 

1224    !++
1225    ! if an output file was speciifed, reset the output and close the file
1226    !--
1227     
1228                 if ( file_present ) then
1229                    close( unit=out_unit )
1230                    out_unit = 6
1231                    file_present = .false.
1232                 end if
1233     
1234                 goto 10
1235    !++
1236    ! error occurred on a REPLAY file
1237    !--
1238     
1239    920          continue
1240                 out_unit = 6
1241                 call LIB$SIGNAL( msg_oprepfil, %VAL(1),
1242         .                        file_spec(1:MK$LENGTH(file_spec)) )
1243                 goto 10
1244              
1245    !++
1246    ! command was snooze
1247    !--
1248     
1249    1000         continue
1250                 alarm_set = .false.
1251     
1252                 if ( pcb(4) .eq. 3 ) then
1253                    pcb_ptr = 5
1254                 else
1255                    pcb_ptr = 8
1256                    alarm_set = .true.
1257                 end if 
1258     
1259                 snooze_spec = compress( pcb(pcb_ptr) )
1260                 status = SYS$BINTIM( snooze_spec, snooze_time )
1261     
1262                 if ( status .ne. %LOC(SS$_NORMAL) ) then
1263                    call LIB$SIGNAL( msg_invalidtime, %VAL(1),
1264         .                           snooze_spec(1:MK$LENGTH(snooze_spec)) )
1265                    goto 10
1266                 endif
1267     
1268                 status = SYS$SCHDWK( , ,snooze_time, )
1269                 write( out_unit, 1020 )
1270    1020         format( ' ', 'Zzzz...' )
1271                 status = SYS$HIBER()
1272                 if ( alarm_set ) then
1273                    do j = 1, 7
1274                       write( out_unit, 1030 ) interrupt_bell
1275    1030               format( '$', A )
1276                    end do
1277                 end if
1278     
1279                 goto 10
1280     

STATS                          					20-May-1983 10:25:19	VAX-11 FORTRAN V3.2-37              Page  19
								10-May-1983 10:29:44	CAD$VOLSET:[GARY.STATS.SOURCE]STATS.FOR;221 

1281    !++
1282    ! command was help
1283    !--
1284     
1285    1100         continue
1286     
1287                 call statshlp( compress( pcb(5) ) )
1288                 goto 10
1289     
1290    !++
1291    ! do a DCL command
1292    !--
1293     
1294    1200      continue
1295     
1296              status = LIB$SPAWN( '$' // compress( pcb(5) ) )
1297              if ( .not. status ) then
1298                 out_buffer = ' '
1299                 status = SYS$GETMSG( %VAL(status), %VAL(0), out_buffer,
1300         .                            %VAL(0), %VAL(0) )
1301                 write( out_unit, 1210 ) out_buffer(1:MK$LENGTH(out_buffer))
1302    1210         format( ' ', A )
1303              end if
1304     
1305              goto 10
1306     
1307    !++
1308    ! Syntax error occurred
1309    !--
1310     
1311              else
1312                 if ( pcb(3) .lt. 1 ) then
1313                    call LIB$SIGNAL( msg_unknown )
1314                 else
1315                    call LIB$SIGNAL( msg_syntax, %VAL(1),
1316         .                         stats_commands(pcb(3))
1317         .                         (1:MK$LENGTH(stats_commands(pcb(3)))) )
1318                 end if 
1319     
1320              end if
1321              goto 10
1322              end

STATS                          					20-May-1983 10:25:19	VAX-11 FORTRAN V3.2-37              Page  20
								10-May-1983 10:29:44	CAD$VOLSET:[GARY.STATS.SOURCE]STATS.FOR;221 

PROGRAM SECTIONS

    Name				 Bytes   Attributes

  0 $CODE                                 2617   PIC CON REL LCL   SHR   EXE   RD NOWRT LONG
  1 $PDATA                                 198   PIC CON REL LCL   SHR NOEXE   RD NOWRT LONG
  2 $LOCAL                               45744   PIC CON REL LCL NOSHR NOEXE   RD   WRT QUAD
  3 IO_COM                                  12   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG
  4 NEST_COMMON                             64   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG
  5 CATEGORY                              6693   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

    Total Space Allocated                55328


ENTRY POINTS

    Address  Type  Name                                        References

  0-00000000       STATS                                          90     


VARIABLES

    Address  Type  Name                            Attributes  References

  2-0000AE3C  L*4  ALARM_SET                                     384      1250=     1256=     1272     
  3-00000008  L*4  BATCH                           COMM          385       397       792=      800=    
  2-0000AE44  I*4  END                                           388       842A      849       855A    
  2-0000AE34  L*4  END_SET                                       384       406D      915=      923=      926       937=    
							         948=      963=     1002      1052      1160      1211     
  2-0000ACBB  CHAR END_TIME                                      372       916       918A      921=      927A      936=    
							         947=      959A     1006A     1042A     1081A     1108A    
							        1161A     1215A    

  2-0000AE54  I*4  ENTRIES                                       389       980=      985(2)=  1005      1190=     1194(2)= 
							        1214     
  2-0000AE38  L*4  FILE_PRESENT                                  384       999=     1019      1022=     1208=     1228     
							        1231=    
  2-0000ADE4  CHAR FILE_SPEC                                     382       994=      996(2)A  1033(2)A  1075=     1076(2)A 
							        1095(2)A  1203=     1205(2)A  1241(2)A 
  2-0000AE60  I*4  FRAME                                         390     
  2-0000AE64  I*4  FRAMES_TO_DO                                  390      1058=     1067=     1071(2)=  1080     

  2-0000AD39  CHAR GREETING                                      376D      809     
  2-0000AE78  I*4  I                                             828=      829(2)    841=      842A      879=      881     
							        1005=     1081A     1214=    
  2-0000AE8C  I*4  INDEX_LIT                                    1066=     1068      1070      1072(2)=  1075     
  2-0000AE74  I*4  INTERVAL                                      820=     1081A    
  3-00000000  I*4  IN_UNIT                         COMM          387       397       777=      784A     1043A    

  2-0000AE68  I*4  IOS                                           784=A     786=A     812A      818A      819A      958A    
							        1042A     1108A     1117A     1118      1122A     1130A    
  2-0000AE84  I*4  IRKF                                          855A      880     
  2-0000AE70  I*4  IS_BATCH                                      797=      798     
  2-0000AE7C  I*4  J                                             843=      844      1003=     1006(2)   1008(2)=  1080=    
							        1081(3)A  1142=     1143      1144      1176(2)=  1212=    
							        1215(2)   1217(2)=  1273=    

STATS                          					20-May-1983 10:25:19	VAX-11 FORTRAN V3.2-37              Page  21
								10-May-1983 10:29:44	CAD$VOLSET:[GARY.STATS.SOURCE]STATS.FOR;221 

  2-0000AE6C  I*4  JPI_STS                                       794       798     

  2-0000AE80  I*4  L                                             854=      855A    
  2-0000AE88  I*4  LTR                                           855A    
  2-0000AE40  L*4  MULTI_PLOT                                    385      1057=     1068=     1081A    
  4-00000000  CHAR NEST_FILE                       COMM          381       398       420D     1110      1111=     1112=    
							        1119(2)A  1121=     1131A     1132(2)A  1172A     1173(2)A 
  2-0000ADA4  CHAR OLD_NEST_FILE                                 381      1110=     1121     

  2-0000AD54  CHAR OUT_BUFFER                                    378       809=      810(2)A  1298=     1299A     1301(2)A 
  3-00000004  I*4  OUT_UNIT                        COMM          387       397       778=      786A      810       995=    
							         996A     1020A     1021=     1031=     1044A     1132     
							        1150      1161      1173      1204=     1205A     1229A    
							        1230=     1240=     1269      1274      1301     
  2-0000AE58  I*4  PCB_PTR                                       389       981=      983(2)    986(3)=   993       994     
							        1191=     1193      1195(3)=  1202      1203      1253=    
							        1255=     1259     
  2-0000AE50  I*4  RET_CODE                                      388       855A      861       895A      897       918A    
							         920     
  2-0000ACDB  CHAR SAVED_END                                     372       916=      921       936       947     

  2-0000ACCB  CHAR SAVED_START                                   372       889=      898     
  2-0000AD22  CHAR SNOOZE_SPEC                                   375      1259=     1260A     1263(2)A 
  2-0000AE28  R*8  SNOOZE_TIME                                   395      1260A     1268A    
  2-0000AE48  I*4  START                                         388       853=      855A      880=    
  2-0000AE30  L*4  START_SET                                     384       406D      890=      900=      962=     1002     
							        1052      1149      1211     

  2-0000ACAB  CHAR START_TIME                                    372       812A      889       895A      898=      927A    
							         957      1006A     1081A     1150A     1215A    
  2-0000AE5C  I*4  STATUS                                        390       795=      808=     1131=     1172=     1260=    
							        1262      1268=     1271=     1296=     1297      1299(2)= 
  2-0000ACEB  CHAR TIME_1                                        373       818A      820A      957=      958A      959A    
							        1117A     1122A     1130A     1132A    
  2-0000ACFB  CHAR TIME_2                                        373       819A      820A    
  2-0000AD0B  CHAR TIME_OF_DAY                                   375       808A      809     

  2-0000AE4C  I*4  TRACE                                         388       835=      855A    


ARRAYS

    Address  Type  Name                            Attributes        Bytes  Dimensions       References

  5-000018C9  I*4  CAT_LEN                         COMM               348  (87)                392       399       829=    
  5-00000000  I*4  CAT_STATE                       COMM               864  (12, 18)            392       399     
  5-00000360  CHAR CAT_TITLE                       COMM              5481  (87)                377       399       829A    
  2-0000AC40  I*4  DELTA_TIME                                           8  (2)                 391     
  2-00009C40  I*4  IN_BUFFER                                         1024  (256)               367       842A      855A    

  2-0000AC34  I*4  ITEM_LIST                                           12  (3)                 391       793=      794=    
											       795A    
  2-0000AC10  I*4  KEYWORD                                             36  (9)                 369       775D      855A    
  2-00000000  I*4  LX                                   EQUIV       40000  (10000)             367       401       402     
											       403       404       855A    
  2-00000000  I*4  LX1                                  EQUIV        3960  (990)               366       401       422D    
  2-00000F78  I*4  LX2                                  EQUIV        3960  (990)               366       402       524D    

STATS                          					20-May-1983 10:25:19	VAX-11 FORTRAN V3.2-37              Page  22
								10-May-1983 10:29:44	CAD$VOLSET:[GARY.STATS.SOURCE]STATS.FOR;221 


  2-00001EF0  I*4  LX3                                  EQUIV        3960  (990)               366       403       626D    
  2-00002E68  I*4  LX4                                  EQUIV        1240  (310)               366       404       728D    
  2-0000A810  I*4  PCB                                               1024  (256)               368       387       844=    
											       855A      879       895A    
											       918A      983(2)    986     
											       993       994A     1006(2)A 
											      1060      1068      1070     
											      1075A     1081(2)A  1085     
											      1112A     1143      1144     
											      1193      1195      1202     
											      1203A     1215(2)A  1252     
											      1259A     1287A     1296A    
											      1312      1315(2)  
  2-0000A040  I*4  STACK                                             2000  (500)               368       387       855A    
  2-0000AC48  CHAR STATS_COMMANDS                                      99  (11)                371       408D      409D    
											       410D      411D      412D    
											       413D      414D      415D    
											       416D      417D      418D    
											      1315(2)A 



PARAMETER CONSTANTS

  Type  Name                                                   References

   I*2  ARRLOCPK                                                 309#    
   I*2  ARRTRAPK                                                 310#    
   CHAR ASCII_DELTA_TIME                                         167       168#    
   I*2  BIGHOLE                                                  343#    
   I*2  BJOBCNT                                                  199#    

   I*2  BUFIO                                                    220#    
   I*2  CEF                                                      266#    
   I*2  COLPG                                                    264#    
   I*2  COM                                                      275#    
   I*2  COMMAND_SIZE                                             103#      371     

   I*2  COMO                                                     276#    
   I*2  COMPAT                                                   197#    
   I*2  CPU_SIZE                                                 202#      359     
   I*2  CUR                                                      277#    
   I*2  DEPLOCPK                                                 311#    

   I*2  DEQ                                                      325#    
   I*2  DIRHIT                                                   229#    
   I*2  DIRIO                                                    219#    
   I*2  DIRMISS                                                  230#    
   I*2  DLCKFND                                                  326#    

   I*2  DLCKSRCH                                                 327#    
   I*2  DZROFLTS                                                 251#    
   I*2  ENQCVT                                                   328#    
   I*2  ENQNEW                                                   323#    
   I*2  ENQNOTQD                                                 329#    


STATS                          					20-May-1983 10:25:19	VAX-11 FORTRAN V3.2-37              Page  23
								10-May-1983 10:29:44	CAD$VOLSET:[GARY.STATS.SOURCE]STATS.FOR;221 

   I*2  ENQWAIT                                                  324#    
   I*2  EOF                                                      161#    
   I*2  EQUAL                                                    136#    
   I*2  EXEC                                                     194#    
   I*2  EXTHIT                                                   231#    

   I*2  EXTMISS                                                  232#    
   I*2  FAILURE                                                  121#    
   I*2  FAULTS                                                   252#    
   I*2  FCP_CACHE                                                209#    
   I*2  FCP_CALLS                                                208#    

   I*2  FCP_CPU                                                  210#    
   I*2  FCP_READ                                                 211#    
   I*2  FCP_SIZE                                                 214#      359     
   I*2  FCP_WRITE                                                212#    
   I*2  FIDHIT                                                   233#    

   I*2  FIDMISS                                                  234#    
   I*2  FILE_LEN                                                 101#      381       382     
   I*2  FPG                                                      274#    
   I*2  FREECNT                                                  243#    
   I*2  GETDVI_EF                                                182#    

   I*2  GREATER                                                  137#      959     
   I*2  HIB                                                      270#    
   I*2  HIBO                                                     271#    
   I*2  HISWPCNT                                                 289#    
   I*2  HIT                                                      226#    

   I*2  HOLECNT                                                  342#    
   I*2  HOLESUM                                                  346#    
   I*2  HOSWPCNT                                                 288#    
   I*2  IDLE                                                     198#    
   I*2  IJOBCNT                                                  200#    

   I*2  INDEX1                                                   104#      401     
   I*2  INDEX2                                                   105#      402     
   I*2  INDEX3                                                   106#      403     
   I*2  INDEX4                                                   107#      404     
   I*2  INT                                                      196#    

   I*2  INTERRUPT_BELL                                           102#     1274     
   I*2  IN_BUFFER_SIZE                                            97#      367     
   I*2  IRPCNT                                                   341#    
   I*2  ISPAGCNT                                                 284#    
   I*2  ISWPCNT                                                  285#    

   I*2  KERNEL                                                   192#    
   I*2  KEYED_READ                                               127#      958     
   I*2  KEYWORD_SIZE                                             100#      369       854     
   I*2  KEY_SIZE                                                 188#    
   I*2  LEF                                                      268#    

   I*2  LEFO                                                     269#    
   I*2  LESS                                                     135#    
   I*2  LOCK_SIZE                                                334#      359     

STATS                          					20-May-1983 10:25:19	VAX-11 FORTRAN V3.2-37              Page  24
								10-May-1983 10:29:44	CAD$VOLSET:[GARY.STATS.SOURCE]STATS.FOR;221 

   I*2  LOGNAM                                                   221#    
   I*2  LRPCNT                                                   347#    

   I*2  LX_SIZE                                                   96#      367     
   I*4  MAXINT                                                   160#    
   I*2  MAX_CAT                                                  143#      392     
   I*2  MAX_ENT                                                  144#      392     
   I*2  MBREADS                                                  222#    

   I*2  MBWRITES                                                 223#    
   I*2  MEM_SIZE                                                 246#      359     
   I*2  MFYCNT                                                   244#    
   R*4  MINUTES_IN_DAY                                           154#    
   R*4  MINUTES_IN_HOUR                                          151#    

   I*2  MISC_SIZE                                                238#      359     
   I*2  MWAIT                                                    265#    
   I*2  NEST_CLOSE                                               129#     1042      1108     
   I*2  NEST_OPEN                                                126#      812      1117      1122     
   I*2  NET_SIZE                                                 318#      359     

   I*2  NUM_MODES                                                203#    
   I*2  OPEN                                                     228#    
   I*2  OPENS                                                    227#    
   I*2  OSWPCNT                                                  287#    
   I*2  PCB_SIZE                                                  98#      368       843     

   I*2  PFW                                                      267#    
   I*2  PGFLT_SIZE                                               259#      359     
   I*2  POOL_SIZE                                                354#      359     
   I*2  PREADIO                                                  253#    
   I*2  PREADS                                                   255#    

   I*2  PROCCNT                                                  286#    
   I*2  PWRITES                                                  256#    
   I*2  PWRITIO                                                  254#    
   I*2  QUOHIT                                                   235#    
   I*2  QUOMISS                                                  236#    

   I*2  RCVBUFFL                                                 312#    
   I*2  RDFLTS                                                   257#    
   I*2  REC_SIZE                                                 359#      377       392       828     
   I*2  RES                                                      304#    
   I*2  RESPONSE_SIZE                                            303#      359     

   I*2  SCH_SIZE                                                 279#      359     
   R*4  SECONDS_IN_DAY                                           153#    
   R*4  SECONDS_IN_HOUR                                          152#    
   R*4  SECONDS_IN_MINUTE                                        150#    
   I*2  SEQ_READ                                                 128#      818       819      1130     

   I*2  SMALLCNT                                                 345#    
   I*2  SMALLHOLE                                                344#    
   I*2  SPLIT                                                    225#    
   I*2  SRPCNT                                                   348#    
   I*2  STACK_SIZE                                                99#      368     


STATS                          					20-May-1983 10:25:19	VAX-11 FORTRAN V3.2-37              Page  25
								10-May-1983 10:29:44	CAD$VOLSET:[GARY.STATS.SOURCE]STATS.FOR;221 

   CHAR STANDARD_HELP_LIB                                        114       115#    
   CHAR STANDARD_NEST_FILE                                       174       175#      420     
   I*2  SUCCESS                                                  120#      861       897       920     
   I*2  SUPER                                                    193#    
   I*2  SUSP                                                     272#    

   I*2  SUSPO                                                    273#    
   I*2  SWAP_SIZE                                                291#      359     
   I*2  SWAP_SPARES                                              292#    
   I*2  TIME_SIZE                                                297#      359     
   I*2  TRCNGLOS                                                 313#    

   I*2  TURN                                                     224#    
   I*2  USER                                                     195#    
   I*2  WAIT_EF                                                  181#    


LABELS

    Address   Label                                            References

  1-0000003F  5'                                                 810       811#    
  0-00000139  10                                                 840#      849       903       938       949       965     
							         968      1025      1035      1089      1097      1123     
							        1135      1178      1234      1243      1265      1279     
							        1288      1305      1321     
  0-000001A2  100                                                881       888#    
  0-000001CC  200                                                881       909#    
  0-00000206  210                                                927       933#    

  0-00000226  220                                                927       944#    
  0-00000246  230                                                927       956#    
  0-00000279  300                                                881       974#    
  0-00000383  320                                                996      1030#    
  0-000003AA  400                                                881      1041#    

  0-000003D0  500                                                881(2)   1051#    
  0-000004C8  520                                               1076      1095#    
  0-000004E8  600                                                881      1103#    
  1-00000042  620'                                              1132      1134#    
  0-000005F0  800                                                881      1141#    

  0-00000613  810                                               1144      1148#    
  1-00000055  815'                                              1150      1151#    
  0-00000665  820                                               1144      1159#    
  1-00000072  825'                                              1161      1162#    
  0-000006B6  830                                               1144      1171#    

  1-0000008D  835'                                              1173      1174#    
  0-000006FF  899                                               1155      1166      1176#    
  0-00000709  900                                                881      1184#    
  0-00000807  920                                               1205      1239#    
  0-0000082E  1000                                               881      1249#    

  1-000000AF  1020'                                             1269      1270#    
  1-000000BC  1030'                                             1274      1275#    
  0-0000091A  1100                                               881      1285#    

STATS                          					20-May-1983 10:25:19	VAX-11 FORTRAN V3.2-37              Page  26
								10-May-1983 10:29:44	CAD$VOLSET:[GARY.STATS.SOURCE]STATS.FOR;221 

  0-00000952  1200                                               881      1294#    
  1-000000C1  1210'                                             1301      1302#    



FUNCTIONS AND SUBROUTINES REFERENCED

  Type  Name                                                   References

   CHAR COMPRESS                                                 379       994      1075      1112      1203      1259     
							        1287      1296     
        CONTROLT                                                 799     
   I*4  DELTAT                                                   391       820     
        DISPLAY                                                 1006     
        FOR$CLOSE                                               1020      1043      1044      1085      1229     

        FOR$OPEN                                                 784       786       996      1076      1205     
        JPI$_STS                                                 764       793     
   I*4  KEY_COMPARE                                              389       927       959     
   CHAR KEY_TO_DATE                                              374      1132      1150      1161     
        LIB$SIGNAL                                               934       935       945       946       961      1012     
							        1033      1087      1095      1119      1153      1164     
							        1221      1241      1263      1313      1315     

   I*4  LIB$SPAWN                                               1296     
   I*4  MK$FILENAME                                             1131      1172     
   I*4  MK$LENGTH                                                810       829       996      1033      1076      1095     
							        1119      1132      1173      1205      1241      1263     
							        1301      1315     
        MSG_ENDEQUAL                                             766       945A    
        MSG_ENDLESS                                              767       934A    

        MSG_ENDSET                                               769      1164A    
        MSG_INLILENEX                                            770     
        MSG_INVALIDTIME                                          769      1263A    
        MSG_NOCHANGE                                             766       935A      946A    
        MSG_NOTSET                                               767      1012A     1087A     1221A    

        MSG_OPDIPFIL                                             767      1033A    
        MSG_OPPDLFIL                                             768      1095A    
        MSG_OPPERFIL                                             768      1119A    
        MSG_OPREPFIL                                             769      1241A    
        MSG_SETSTART                                             766     

        MSG_STARTSET                                             768      1153A    
        MSG_SYNTAX                                               770      1315A    
        MSG_TOOEARLY                                             770       961A    
        MSG_UNKNOWN                                              770      1313A    
        PARSER                                                   855     

        PCB$V_BATCH                                              764       797     
        PLOT                                                    1081     
        READ_NEST                                                812       818       819       958      1042      1108     
							        1117      1122      1130     
        REPLAY                                                  1215     
        SET_TIME                                                 895       918     


STATS                          					20-May-1983 10:25:19	VAX-11 FORTRAN V3.2-37              Page  27
								10-May-1983 10:29:44	CAD$VOLSET:[GARY.STATS.SOURCE]STATS.FOR;221 

        SS$_NORMAL                                               763      1262     
        STATSHLP                                                1287     
   R*4  SYS$ASCTIM                                               808     
   I*4  SYS$BINTIM                                               393       763      1260     
   R*4  SYS$GETJPI                                               764       795     

   I*4  SYS$GETMSG                                               393       764      1299     
   I*4  SYS$HIBER                                                393       763      1271     
   I*4  SYS$SCHDWK                                               393       763      1268     
        TERMINAL_READ                                            842     


  +----------------------------------------------+
  |           KEY TO REFERENCE FLAGS             |
  |   =   - Value Modified                       |
  |   #   - Defining Reference                   |
  |   A   - Actual Argument, possibly modified   |
  |   D   - Data Initialization                  |
  |  (n)  - Number of occurrences on line        |
  +----------------------------------------------+



COMMAND QUALIFIERS

  FORTRAN /DEBUG/OBJECT=OBJ:STATS/LIST=LIS:STATS/CONT=99/CROSS/NOOPT SRC:STATS

  /CHECK=(NOBOUNDS,OVERFLOW,NOUNDERFLOW)
  /DEBUG=(SYMBOLS,TRACEBACK)
  /STANDARD=(NOSYNTAX,NOSOURCE_FORM)
  /SHOW=(NOPREPROCESSOR,NOINCLUDE,MAP)
  /F77  /NOG_FLOATING  /I4  /NOOPTIMIZE  /WARNINGS  /NOD_LINES  /CROSS_REFERENCE  /NOMACHINE_CODE  /CONTINUATIONS=99


COMPILATION STATISTICS

  Run Time:           14.87 seconds
  Elapsed Time:       62.43 seconds
  Page Faults:        934
  Dynamic Memory:     975 pages
