
                               					20-May-1983 10:28:11	VAX-11 FORTRAN V3.2-37              Page   1
								10-May-1983 10:05:08	CAD$VOLSET:[GARY.STATS.SOURCE]PLOT.FOR;118  

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: Plot the components collected by MOUSE
0025    !   
0026    !
0027    ! ENVIRONMENT: VAX VMS unpriv
0028    !   
0029    !
0030    ! AUTHOR: Gary Smith, CREATION DATE: 8/23/1982
0031    !
0032    ! MODIFIED BY:
0033    !
0034    !--
0035    !
0036    ! TABLE OF CONTENTS:
0037    !
0038    !
0039    ! INCLUDE FILES: statsubs.for
0040    !                defrec.for
0041    !                mousesubs.for
0042    !                catdef.for
0043    !
0044    !
0045    ! MACROS: none
0046    !
0047    !
0048    ! EQUATED SYMBOLS: see statsubs.for
0049    !                      mousesubs.for
0050    !                      defrec.for
0051    !
0052    !
0053    ! EXTERNAL REFERENCES: read_nest
0054    !
0055     
0056    !++
0057    ! FUNCTIONAL DESCRIPTION: PLOT plots the information gleaned from

                               					20-May-1983 10:28:11	VAX-11 FORTRAN V3.2-37              Page   2
								10-May-1983 10:05:08	CAD$VOLSET:[GARY.STATS.SOURCE]PLOT.FOR;118  

0058    !                         the RATSNEST file and diplays it to the user
0059    !                         in a hopefully comprehensible form. The RATSNEST
0060    !                         file is keyed by time. PLOT uses start_time as
0061    !                         the beginning with keyed read. It then reads 
0062    !                         sequentially until the key returned is greater
0063    !                         than the end_time.
0064    !
0065    !
0066    !
0067    ! FORMAL PARAMETERS: start_time -> the beginning key to start reading
0068    !                    end_time   -> the end point of reading
0069    !                    plot_type  -> special for response
0070    !                    category   -> the base class of option
0071    !                    type       -> the particular thing to plot
0072    !                    frame      -> frame number 1 to 4 inclusive
0073    !                    multi_plot -> multiple things to plot flag
0074    !                    interval   -> the sampling interval of MOUSE
0075    !
0076    !
0077    !
0078    ! IMPLICIT INPUTS: info read from the RATSNEST file
0079    !
0080    !
0081    !
0082    ! IMPLICIT OUTPUTS: a coherent plot of the gathered information
0083    !
0084    !
0085    !
0086    ! ROUTINE VALUE and
0087    ! COMPLETION CODES: none
0088    !
0089    !
0090    !
0091    ! SIDE EFFECTS: none to date
0092    !
0093    !
0094    !
0095    !--
0096              SUBROUTINE PLOT( start_time, end_time, plot_type, 
0097         .                     category, type, frame, multi_plot, interval )
0098     
0099              include 'mousesubs.for'
0302              include 'statsubs.for'
0355              include 'defrec.for'
0457              include 'catdef.for'
0688     
0689              common / io_com / in_unit, out_unit 
0690              common / category / cat_state, cat_title, cat_len
0691     
0692              character * 16  start_time, end_time, nest_key, save_time
0693              character * 16  sav_start_time, sav_end_time, ascii_mid_nite
0694              character * 23  begin, finish, ascii_start_time
0695              character * 23  key_to_date
0696              character * 80  x_title, y_title
0697              character * 63  cat_title(rec_size)
0698     
0699              logical multi_plot

PLOT                           					20-May-1983 10:28:11	VAX-11 FORTRAN V3.2-37              Page   3
								10-May-1983 10:05:08	CAD$VOLSET:[GARY.STATS.SOURCE]PLOT.FOR;118  

0700     
0701              integer category, count, dif_time, deltat, plot_type
0702              integer in_unit, out_unit, type, frame, status
0703              integer cat_state(max_cat,max_ent), cat_len(rec_size)
0704              integer SYS$BINTIM, STR$UPCASE
0705     
0706              real x_values(100000), y_values(100000)
0707     
0708              real     maximum, minimum
0709              real * 8 mid_nite
0710     
0711              nest_key = start_time
0712     
0713    !++
0714    ! plot the particular category and type. if the ending time is less
0715    ! than the entry in the file, let him know he's starting too early.
0716    !--
0717     
0718              continue
0719     
0720              maximum = 1.0*10E-10
0721              minimum = maxint
0722              count = 1
0723              call read_nest( keyed_read, nest_key, ios )
0724              sav_start_time = nest_key
0725              begin = key_to_date( nest_key )
0726              save_time = nest_key
0727     
0728    !++
0729    ! Run thru the current nest file until we overstep our bounds.
0730    ! Note the special-casing of response
0731    !--
0732     
0733              do while ( key_compare(end_time, nest_key) .eq. greater )
0734                 if ( cat_state(category,type) .eq. c_response ) then
0735                      current_val = real(rec_response) / 100.0
0736                 else
0737                      current_val = stats_rec(cat_state(category,type))
0738                 end if
0739     
0740    !++
0741    ! decide if there has been a lapse in the nest file for some reason such
0742    ! as a machine going down or otherwise.
0743    !--
0744     
0745                 dif_time = deltat( save_time, nest_key )
0746                 if ( dif_time .gt. (interval + 0.1 * interval) ) then
0747     
0748                    do i = count, count + ( dif_time / interval )
0749                       y_values(i) = 0.0
0750                       x_values(i) =  ( count * interval ) /
0751         .                                seconds_in_minute
0752                       count = count + 1
0753                    end do
0754     
0755                 minimum = 0.0
0756                 end if

PLOT                           					20-May-1983 10:28:11	VAX-11 FORTRAN V3.2-37              Page   4
								10-May-1983 10:05:08	CAD$VOLSET:[GARY.STATS.SOURCE]PLOT.FOR;118  

0757     
0758                 y_values(count) = current_val
0759                 if ( current_val .gt. maximum ) 
0760         .          maximum = current_val
0761                 if ( current_val .lt. minimum )
0762         .          minimum = current_val
0763                 x_values(count) =  ( count * interval ) /
0764         .                           seconds_in_minute
0765                 count = count + 1
0766                 save_time = nest_key
0767                 call read_nest( seq_read, nest_key, ios )
0768                 if ( ios .eq. eof ) goto 1001
0769              end do
0770     
0771    !++
0772    ! All thru, see how far we went. This includes the time between
0773    ! the start and end time and the time since mid-night of the day
0774    ! in question.
0775    !--
0776     
0777    1001      continue
0778              finish = key_to_date( nest_key )
0779              dif_time = deltat( sav_start_time, nest_key )
0780              ascii_start_time = key_to_date( sav_start_time )
0781              status = SYS$BINTIM( ascii_start_time(1:12) //
0782         .                         '00:00:00.00' , mid_nite )
0783              encode( 16, 1002, ascii_mid_nite ) mid_nite
0784    1002      format( Z16 )
0785              since_mid_nite = deltat( ascii_mid_nite, sav_start_time ) /
0786         .                     seconds_in_minute
0787              since_mid_nite = jint( since_mid_nite )
0788     
0789    !++
0790    ! depending on the delta time, scale the time into hours or days
0791    !--
0792     
0793              if ( ( dif_time .ge. seconds_in_hour) .and.
0794         .         ( dif_time .le. 2.0 * seconds_in_day ) ) then 
0795     
0796                 do i = 1, count
0797                    x_values(i) = x_values(i) / minutes_in_hour 
0798                 end do
0799     
0800              else if ( ( dif_time .ge. seconds_in_hour ) .and.
0801         .         ( dif_time .gt. 2.0 * seconds_in_day ) ) then
0802     
0803                 do i = 1, count
0804                    x_values(i) = x_values(i) / minutes_in_day
0805                 end do
0806                 
0807              end if 
0808     
0809              x_title = begin // ' TO ' // finish
0810              y_title = cat_title(cat_state(category,type))
0811              status = STR$UPCASE( y_title, y_title )
0812     
0813    !++

PLOT                           					20-May-1983 10:28:11	VAX-11 FORTRAN V3.2-37              Page   5
								10-May-1983 10:05:08	CAD$VOLSET:[GARY.STATS.SOURCE]PLOT.FOR;118  

0814    ! now, plot it 
0815    !--
0816     
0817              if ( plot_type .eq. 5 ) then
0818                   call plot_line( x_values, y_values, count-1,
0819         .                         0.0, x_values(count-1), minimum,
0820         .                         maximum, x_title, y_title, dif_time,
0821         .                         since_mid_nite )
0822              else if ( .not. multi_plot ) then
0823                   call pdl_line(  x_values, y_values, count-1,
0824         .                         0.0, x_values(count-1), minimum,
0825         .                         maximum, x_title, y_title, dif_time,
0826         .                         since_mid_nite )
0827              else 
0828                   call multi_pdl( x_values, y_values, count-1,
0829         .                         0.0, x_values(count-1), minimum,
0830         .                         maximum, x_title, y_title, dif_time,
0831         .                         frame, since_mid_nite )
0832              endif
0833     
0834              return
0835     
0836             end




PROGRAM SECTIONS

    Name				 Bytes   Attributes

  0 $CODE                                  908   PIC CON REL LCL   SHR   EXE   RD NOWRT LONG
  1 $PDATA                                  26   PIC CON REL LCL   SHR NOEXE   RD NOWRT LONG
  2 $LOCAL                              800676   PIC CON REL LCL NOSHR NOEXE   RD   WRT QUAD
  3 REC_COMMON                             348   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG
  4 IO_COM                                   8   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG
  5 CATEGORY                              6693   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

    Total Space Allocated               808659


ENTRY POINTS

    Address  Type  Name                                        References

  0-00000000       PLOT                                           96     


VARIABLES

    Address  Type  Name                            Attributes  References

  2-000C3540  CHAR ASCII_MID_NITE                                693       783       785A    
  2-000C357E  CHAR ASCII_START_TIME                              694       780=      781     
  2-000C3550  CHAR BEGIN                                         694       725=      809     
 AP-00000010@ I*4  CATEGORY                                       96       701       734       737       810     
  2-000C3640  I*4  COUNT                                         701       722=      748(2)    750       752(2)=   758     

PLOT                           					20-May-1983 10:28:11	VAX-11 FORTRAN V3.2-37              Page   6
								10-May-1983 10:05:08	CAD$VOLSET:[GARY.STATS.SOURCE]PLOT.FOR;118  

							         763(2)    765(2)=   796       803       818(2)    823(2)  
							         828(2)  

  2-000C3658  R*4  CURRENT_VAL                                   735=      737=      758       759(2)    761(2)  
  2-000C3644  I*4  DIF_TIME                                      701       745=      746       748       779=      793(2)  
							         800(2)    818A      823A      828A    
 AP-00000008@ CHAR END_TIME                                       96       692       733A    
  2-000C3567  CHAR FINISH                                        694       778=      809     
 AP-00000018@ I*4  FRAME                                          96       702       828A    

  2-000C365C  I*4  I                                             748=      749       750       796=      797(2)    803=    
							         804(2)  
 AP-00000020@ I*4  INTERVAL                                       96       746(2)    748       750       763     
  4-00000000  I*4  IN_UNIT                         COMM          689       702     
  2-000C3654  I*4  IOS                                           723A      767A      768     
  2-000C364C  R*4  MAXIMUM                                       708       720=      759(2)=   818A      823A      828A    

  2-000C3638  R*8  MID_NITE                                      709       781A      783     
  2-000C3650  R*4  MINIMUM                                       708       721=      755=      761(2)=   818A      823A    
							         828A    
 AP-0000001C@ L*4  MULTI_PLOT                                     96       699       822     
  2-000C3500  CHAR NEST_KEY                                      692       711=      723A      724       725A      726     
							         733A      745A      766       767A      778A      779A    
  4-00000004  I*4  OUT_UNIT                        COMM          689       702     

 AP-0000000C@ I*4  PLOT_TYPE                                      96       701       817     
  3-00000108  I*4  REC_RESPONSE                    COMM EQUIV    358       415       735     
  2-000C3510  CHAR SAVE_TIME                                     692       726=      745A      766=    
  2-000C3530  CHAR SAV_END_TIME                                  693     
  2-000C3520  CHAR SAV_START_TIME                                693       724=      779A      780A      785A    

  2-000C3660  R*4  SINCE_MID_NITE                                785=      787(2)=   818A      823A      828A    
 AP-00000004@ CHAR START_TIME                                     96       692       711     
  2-000C3648  I*4  STATUS                                        702       781=      811=    
 AP-00000014@ I*4  TYPE                                           96       702       734       737       810     
  2-000C3595  CHAR X_TITLE                                       696       809=      818A      823A      828A    

  2-000C35E5  CHAR Y_TITLE                                       696       810=      811(2)A   818A      823A      828A    


ARRAYS

    Address  Type  Name                            Attributes        Bytes  Dimensions       References

  5-000018C9  I*4  CAT_LEN                         COMM               348  (87)                690       703     
  5-00000000  I*4  CAT_STATE                       COMM               864  (12, 18)            690       703       734     
											       737       810     
  5-00000360  CHAR CAT_TITLE                       COMM              5481  (87)                690       697       810     
  3-00000000  I*4  REC_CPU_MODES                   COMM EQUIV          36  (9)                 360       372     
  3-00000024  I*4  REC_FCP                         COMM EQUIV          20  (5)                 366       379     

  3-00000120  I*4  REC_LOCK_MODES                  COMM EQUIV          28  (7)                 368       434     
  3-00000080  I*4  REC_MEM_MODES                   COMM EQUIV           8  (2)                 361       384     
  3-00000038  I*4  REC_MISC                        COMM EQUIV          72  (18)                363       381     
  3-0000010C  I*4  REC_NET_MODES                   COMM EQUIV          20  (5)                 367       424     
  3-00000088  I*4  REC_PGFLT                       COMM EQUIV          28  (7)                 365       388     


PLOT                           					20-May-1983 10:28:11	VAX-11 FORTRAN V3.2-37              Page   7
								10-May-1983 10:05:08	CAD$VOLSET:[GARY.STATS.SOURCE]PLOT.FOR;118  

  3-0000013C  I*4  REC_POOL_MODES                  COMM EQUIV          32  (8)                 369       445     
  3-000000A4  I*4  REC_SCH_STATE                   COMM EQUIV          56  (14)                364       393     
  3-000000DC  I*4  REC_SWAP                        COMM EQUIV          36  (9)                 362       399     
  3-00000100  I*4  REC_TIME                        COMM EQUIV           8  (2)                 359       406     
  3-00000000  I*4  STATS_REC                       COMM EQUIV         348  (87)                356       370       372     
											       379       381       384     
											       388       393       399     
											       406       415       424     
											       434       445       737     

  2-00000000  R*4  X_VALUES                                        400000  (100000)            706       750=      763=    
											       797(2)=   804(2)=   818(2)A 
											       823(2)A   828(2)A 
  2-00061A80  R*4  Y_VALUES                                        400000  (100000)            706       749=      758=    
											       818A      823A      828A    


PARAMETER CONSTANTS

  Type  Name                                                   References

   I*2  ARRLOCPK                                                 246#      596     
   I*2  ARRTRAPK                                                 247#      600     
   CHAR ASCII_DELTA_TIME                                         104       105#    
   I*2  BIGHOLE                                                  280#      663     
   I*2  BJOBCNT                                                  136#      469     

   I*2  BUFIO                                                    157#      485     
   I*2  CEF                                                      203#      537     
   I*2  COLPG                                                    201#      533     
   I*2  COM                                                      212#      555     
   I*2  COMO                                                     213#      557     

   I*2  COMPAT                                                   134#      467     
   I*2  CPU_SIZE                                                 139#      296       360       379       381       384     
							         388       393       399       406       415       424     
							         434       445       475       476       477       478     
							         479       484       485       486       487       488     
							         489       490       491       492       493       494     
							         495       496       497       498       499       500     
							         501       506       508       514       516       518     
							         520       522       524       526       533       535     
							         537       539       541       543       545       547     
							         549       551       553       555       557       559     
							         566       569       572       575       578       581     
							         589       596       600       604       608       612     
							         621       625       629       633       637       641     
							         645       655       659       663       667       671     
							         675       679       683     
   I*2  CUR                                                      214#      559     
   I*2  C_ARRLOCPK                                               596#    
   I*2  C_ARRTRAPK                                               600#    

   I*2  C_BIGHOLE                                                663#    
   I*2  C_BJOBCNT                                                469#    
   I*2  C_BUFIO                                                  485#    
   I*2  C_CACHE                                                  476#    

PLOT                           					20-May-1983 10:28:11	VAX-11 FORTRAN V3.2-37              Page   8
								10-May-1983 10:05:08	CAD$VOLSET:[GARY.STATS.SOURCE]PLOT.FOR;118  

   I*2  C_CALL                                                   475#    

   I*2  C_CEF                                                    537#    
   I*2  C_COLPG                                                  533#    
   I*2  C_COM                                                    555#    
   I*2  C_COMO                                                   557#    
   I*2  C_COMPAT                                                 467#    

   I*2  C_CPU                                                    477#    
   I*2  C_CUR                                                    559#    
   I*2  C_DEPLOCPK                                               604#    
   I*2  C_DEQ                                                    629#    
   I*2  C_DIRHIT                                                 494#    

   I*2  C_DIRIO                                                  484#    
   I*2  C_DIRMISS                                                495#    
   I*2  C_DLCKFND                                                633#    
   I*2  C_DLCKSRCH                                               637#    
   I*2  C_DZROFLTS                                               514#    

   I*2  C_ENQCVT                                                 641#    
   I*2  C_ENQNEW                                                 621#    
   I*2  C_ENQNOTQD                                               645#    
   I*2  C_ENQWAIT                                                625#    
   I*2  C_EXEC                                                   464#    

   I*2  C_EXTHIT                                                 496#    
   I*2  C_EXTMISS                                                497#    
   I*2  C_FAULTS                                                 516#    
   I*2  C_FIDHIT                                                 498#    
   I*2  C_FIDMISS                                                499#    

   I*2  C_FPG                                                    553#    
   I*2  C_FREECNT                                                506#    
   I*2  C_HIB                                                    545#    
   I*2  C_HIBO                                                   547#    
   I*2  C_HISWPCNT                                               581#    

   I*2  C_HIT                                                    491#    
   I*2  C_HOLECNT                                                659#    
   I*2  C_HOLESUM                                                675#    
   I*2  C_HOSWPCNT                                               578#    
   I*2  C_IDLE                                                   468#    

   I*2  C_IJOBCNT                                                470#    
   I*2  C_INT                                                    466#    
   I*2  C_IRPCNT                                                 655#    
   I*2  C_ISPAGCNT                                               566#    
   I*2  C_ISWPCNT                                                569#    

   I*2  C_KERNEL                                                 462#    
   I*2  C_LEF                                                    541#    
   I*2  C_LEFO                                                   543#    
   I*2  C_LOGNAM                                                 486#    
   I*2  C_LRPCNT                                                 679#    

   I*2  C_MBREADS                                                487#    

PLOT                           					20-May-1983 10:28:11	VAX-11 FORTRAN V3.2-37              Page   9
								10-May-1983 10:05:08	CAD$VOLSET:[GARY.STATS.SOURCE]PLOT.FOR;118  

   I*2  C_MBWRITES                                               488#    
   I*2  C_MFYCNT                                                 508#    
   I*2  C_MWAIT                                                  535#    
   I*2  C_OPEN                                                   493#    

   I*2  C_OPENS                                                  492#    
   I*2  C_OSWPCNT                                                575#    
   I*2  C_PFW                                                    539#    
   I*2  C_PREADIO                                                518#    
   I*2  C_PREADS                                                 522#    

   I*2  C_PROCCNT                                                572#    
   I*2  C_PWRITES                                                524#    
   I*2  C_PWRITIO                                                520#    
   I*2  C_QUOHIT                                                 500#    
   I*2  C_QUOMISS                                                501#    

   I*2  C_RCVBUFFL                                               608#    
   I*2  C_RDFLTS                                                 526#    
   I*2  C_READ                                                   478#    
   I*2  C_RESPONSE                                               589#      734     
   I*2  C_SMALLCNT                                               671#    

   I*2  C_SMALLHOLE                                              667#    
   I*2  C_SPLIT                                                  490#    
   I*2  C_SRPCNT                                                 683#    
   I*2  C_SUPER                                                  463#    
   I*2  C_SUSP                                                   549#    

   I*2  C_SUSPO                                                  551#    
   I*2  C_TRCNGLOS                                               612#    
   I*2  C_TURN                                                   489#    
   I*2  C_USER                                                   465#    
   I*2  C_WRITE                                                  479#    

   I*2  DEPLOCPK                                                 248#      604     
   I*2  DEQ                                                      262#      629     
   I*2  DIRHIT                                                   166#      494     
   I*2  DIRIO                                                    156#      484     
   I*2  DIRMISS                                                  167#      495     

   I*2  DLCKFND                                                  263#      633     
   I*2  DLCKSRCH                                                 264#      637     
   I*2  DZROFLTS                                                 188#      514     
   I*2  ENQCVT                                                   265#      641     
   I*2  ENQNEW                                                   260#      621     

   I*2  ENQNOTQD                                                 266#      645     
   I*2  ENQWAIT                                                  261#      625     
   I*2  EOF                                                      354#      768     
   I*2  EQUAL                                                    329#    
   I*2  EXEC                                                     131#      464     

   I*2  EXTHIT                                                   168#      496     
   I*2  EXTMISS                                                  169#      497     
   I*2  FAILURE                                                  314#    
   I*2  FAULTS                                                   189#      516     

PLOT                           					20-May-1983 10:28:11	VAX-11 FORTRAN V3.2-37              Page  10
								10-May-1983 10:05:08	CAD$VOLSET:[GARY.STATS.SOURCE]PLOT.FOR;118  

   I*2  FCP_CACHE                                                146#      476     

   I*2  FCP_CALLS                                                145#      475     
   I*2  FCP_CPU                                                  147#      477     
   I*2  FCP_READ                                                 148#      478     
   I*2  FCP_SIZE                                                 151#      296       366       381       384       388     
							         393       399       406       415       424       434     
							         445       484       485       486       487       488     
							         489       490       491       492       493       494     
							         495       496       497       498       499       500     
							         501       506       508       514       516       518     
							         520       522       524       526       533       535     
							         537       539       541       543       545       547     
							         549       551       553       555       557       559     
							         566       569       572       575       578       581     
							         589       596       600       604       608       612     
							         621       625       629       633       637       641     
							         645       655       659       663       667       671     
							         675       679       683     
   I*2  FCP_WRITE                                                149#      479     

   I*2  FIDHIT                                                   170#      498     
   I*2  FIDMISS                                                  171#      499     
   I*2  FPG                                                      211#      553     
   I*2  FREECNT                                                  180#      506     
   I*2  GETDVI_EF                                                119#    

   I*2  GREATER                                                  330#      733     
   I*2  HIB                                                      207#      545     
   I*2  HIBO                                                     208#      547     
   I*2  HISWPCNT                                                 226#      581     
   I*2  HIT                                                      163#      491     

   I*2  HOLECNT                                                  279#      659     
   I*2  HOLESUM                                                  283#      675     
   I*2  HOSWPCNT                                                 225#      578     
   I*2  IDLE                                                     135#      468     
   I*2  IJOBCNT                                                  137#      470     

   I*2  INT                                                      133#      466     
   I*2  IRPCNT                                                   278#      655     
   I*2  ISPAGCNT                                                 221#      566     
   I*2  ISWPCNT                                                  222#      569     
   I*2  KERNEL                                                   129#      462     

   I*2  KEYED_READ                                               320#      723     
   I*2  KEY_SIZE                                                 125#    
   I*2  LEF                                                      205#      541     
   I*2  LEFO                                                     206#      543     
   I*2  LESS                                                     328#    

   I*2  LOCK_SIZE                                                271#      296       368       445       655       659     
							         663       667       671       675       679       683     
   I*2  LOGNAM                                                   158#      486     
   I*2  LRPCNT                                                   284#      679     
   I*4  MAXINT                                                   353#      721     
   I*2  MAX_CAT                                                  336#      703     

PLOT                           					20-May-1983 10:28:11	VAX-11 FORTRAN V3.2-37              Page  11
								10-May-1983 10:05:08	CAD$VOLSET:[GARY.STATS.SOURCE]PLOT.FOR;118  


   I*2  MAX_ENT                                                  337#      703     
   I*2  MBREADS                                                  159#      487     
   I*2  MBWRITES                                                 160#      488     
   I*2  MEM_SIZE                                                 183#      296       361       388       393       399     
							         406       415       424       434       445       514     
							         516       518       520       522       524       526     
							         533       535       537       539       541       543     
							         545       547       549       551       553       555     
							         557       559       566       569       572       575     
							         578       581       589       596       600       604     
							         608       612       621       625       629       633     
							         637       641       645       655       659       663     
							         667       671       675       679       683     
   I*2  MFYCNT                                                   181#      508     

   R*4  MINUTES_IN_DAY                                           347#      804     
   R*4  MINUTES_IN_HOUR                                          344#      797     
   I*2  MISC_SIZE                                                175#      296       363       384       388       393     
							         399       406       415       424       434       445     
							         506       508       514       516       518       520     
							         522       524       526       533       535       537     
							         539       541       543       545       547       549     
							         551       553       555       557       559       566     
							         569       572       575       578       581       589     
							         596       600       604       608       612       621     
							         625       629       633       637       641       645     
							         655       659       663       667       671       675     
							         679       683     
   I*2  MWAIT                                                    202#      535     
   I*2  NEST_CLOSE                                               322#    

   I*2  NEST_OPEN                                                319#    
   I*2  NET_SIZE                                                 255#      296       367       434       445       621     
							         625       629       633       637       641       645     
							         655       659       663       667       671       675     
							         679       683     
   I*2  NUM_MODES                                                140#    
   I*2  OPEN                                                     165#      493     
   I*2  OPENS                                                    164#      492     

   I*2  OSWPCNT                                                  224#      575     
   I*2  PFW                                                      204#      539     
   I*2  PGFLT_SIZE                                               196#      296       365       393       399       406     
							         415       424       434       445       533       535     
							         537       539       541       543       545       547     
							         549       551       553       555       557       559     
							         566       569       572       575       578       581     
							         589       596       600       604       608       612     
							         621       625       629       633       637       641     
							         645       655       659       663       667       671     
							         675       679       683     
   I*2  POOL_SIZE                                                291#      296       369     
   I*2  PREADIO                                                  190#      518     

   I*2  PREADS                                                   192#      522     
   I*2  PROCCNT                                                  223#      572     

PLOT                           					20-May-1983 10:28:11	VAX-11 FORTRAN V3.2-37              Page  12
								10-May-1983 10:05:08	CAD$VOLSET:[GARY.STATS.SOURCE]PLOT.FOR;118  

   I*2  PWRITES                                                  193#      524     
   I*2  PWRITIO                                                  191#      520     
   I*2  QUOHIT                                                   172#      500     

   I*2  QUOMISS                                                  173#      501     
   I*2  RCVBUFFL                                                 249#      608     
   I*2  RDFLTS                                                   194#      526     
   I*2  REC_SIZE                                                 296#      370       697       703     
   I*2  RES                                                      241#      589     

   I*2  RESPONSE_SIZE                                            240#      296       424       434       445       596     
							         600       604       608       612       621       625     
							         629       633       637       641       645       655     
							         659       663       667       671       675       679     
							         683     
   I*2  SCH_SIZE                                                 216#      296       364       399       406       415     
							         424       434       445       566       569       572     
							         575       578       581       589       596       600     
							         604       608       612       621       625       629     
							         633       637       641       645       655       659     
							         663       667       671       675       679       683     
   R*4  SECONDS_IN_DAY                                           346#      793       800     
   R*4  SECONDS_IN_HOUR                                          345#      793       800     
   R*4  SECONDS_IN_MINUTE                                        343#      750       763       785     

   I*2  SEQ_READ                                                 321#      767     
   I*2  SMALLCNT                                                 282#      671     
   I*2  SMALLHOLE                                                281#      667     
   I*2  SPLIT                                                    162#      490     
   I*2  SRPCNT                                                   285#      683     

   CHAR STANDARD_HELP_LIB                                        307       308#    
   CHAR STANDARD_NEST_FILE                                       111       112#    
   I*2  SUCCESS                                                  313#    
   I*2  SUPER                                                    130#      463     
   I*2  SUSP                                                     209#      549     

   I*2  SUSPO                                                    210#      551     
   I*2  SWAP_SIZE                                                228#      296       362       406       415       424     
							         434       445       589       596       600       604     
							         608       612       621       625       629       633     
							         637       641       645       655       659       663     
							         667       671       675       679       683     
   I*2  SWAP_SPARES                                              229#    
   I*2  TIME_SIZE                                                234#      296       359       415       424       434     
							         445       589       596       600       604       608     
							         612       621       625       629       633       637     
							         641       645       655       659       663       667     
							         671       675       679       683     
   I*2  TRCNGLOS                                                 250#      612     

   I*2  TURN                                                     161#      489     
   I*2  USER                                                     132#      465     
   I*2  WAIT_EF                                                  118#    

PLOT                           					20-May-1983 10:28:11	VAX-11 FORTRAN V3.2-37              Page  13
								10-May-1983 10:05:08	CAD$VOLSET:[GARY.STATS.SOURCE]PLOT.FOR;118  

LABELS

    Address   Label                                            References

  0-00000185  1001                                               768       777#    
  1-0000000C  1002'                                              783       784#    


FUNCTIONS AND SUBROUTINES REFERENCED

  Type  Name                                                   References

   I*4  DELTAT                                                   701       745       779       785     
   I*4  KEY_COMPARE                                              733     
   CHAR KEY_TO_DATE                                              695       725       778       780     
        MULTI_PDL                                                828     
        PDL_LINE                                                 823     

        PLOT_LINE                                                818     
        READ_NEST                                                723       767     
   I*4  STR$UPCASE                                               704       811     
   I*4  SYS$BINTIM                                               704       781     


  +----------------------------------------------+
  |           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:PLOT/LIST=LIS:PLOT/CONT=99/CROSS/NOOPT SRC:PLOT

  /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:           6.43 seconds
  Elapsed Time:       18.24 seconds
  Page Faults:        619
  Dynamic Memory:     894 pages
