
                               					21-Apr-1983 16:21:09	VAX-11 FORTRAN V3.2-37              Page   1
								21-Apr-1983 16:21:01	CAD$VOLSET:[GARY.STATS.SOURCE]BUILDDSK.FOR;7

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: Create a list of the disks on the system from the performance
0025    !           record.
0026    !   
0027    !
0028    ! ENVIRONMENT: VAX/VMS unpriv
0029    !   
0030    !
0031    ! AUTHOR: Gary Smith, CREATION DATE: 4/05/83
0032    !
0033    ! MODIFIED BY:
0034    !
0035    !--
0036    !
0037    ! TABLE OF CONTENTS:
0038    !
0039    !
0040    ! INCLUDE FILES: mousesubs.for
0041    !
0042    !
0043    ! MACROS: none
0044    !
0045    !
0046    ! EQUATED SYMBOLS: see above
0047    !
0048    !
0049    ! EXTERNAL REFERENCES: none
0050    !
0051     
0052    !++
0053    ! FUNCTIONAL DESCRIPTION: BUILD_DISK takes the performance record read by
0054    !                         READ_NEST and builds up a list of the disks on the
0055    !                         system at that point in time. This list is later
0056    !                         used by VMATCH for parsing.
0057    !

                               					21-Apr-1983 16:21:09	VAX-11 FORTRAN V3.2-37              Page   2
								21-Apr-1983 16:21:01	CAD$VOLSET:[GARY.STATS.SOURCE]BUILDDSK.FOR;7

0058    !
0059    !
0060    ! FORMAL PARAMETERS: none
0061    !
0062    !
0063    !
0064    ! IMPLICIT INPUTS: the disk common
0065    !
0066    !
0067    !
0068    ! IMPLICIT OUTPUTS: a list of disks on the system
0069    !
0070    !
0071    !
0072    ! ROUTINE VALUE and
0073    ! COMPLETION CODES: none
0074    !
0075    !
0076    !
0077    ! SIDE EFFECTS: none to date
0078    !
0079    !
0080    !
0081    !--
0082              SUBROUTINE BUILD_DISK
0083     
0084              include 'mousesubs.for'
0302     
0303              character * (name_siz) disk_list(max_disks)
0304     
0305              integer disk(disk_size)
0306     
0307              common / disk_common / disk
0308              common / v_common /    disk_list
0309     
0310    !++
0311    ! run thru the common and put the names of the disks into the array
0312    !--
0313     
0314              do i = 1, disk(d_count)
0315                 status = ML$L_POKE( %loc(disk(2 + (i-1) * 5)),
0316         .                           %loc(disk_list(i)) )
0317              end do
0318         
0319              return
0320              end

BUILD_DISK                     					21-Apr-1983 16:21:09	VAX-11 FORTRAN V3.2-37              Page   3
								21-Apr-1983 16:21:01	CAD$VOLSET:[GARY.STATS.SOURCE]BUILDDSK.FOR;7

PROGRAM SECTIONS

    Name				 Bytes   Attributes

  0 $CODE                                   80   PIC CON REL LCL   SHR   EXE   RD NOWRT LONG
  2 $LOCAL                                  24   PIC CON REL LCL NOSHR NOEXE   RD   WRT LONG
  3 DISK_COMMON                            324   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG
  4 V_COMMON                               256   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

    Total Space Allocated                  684


ENTRY POINTS

    Address  Type  Name                                        References

  0-00000000       BUILD_DISK                                     82     


VARIABLES

    Address  Type  Name                            Attributes  References

  2-00000000  I*4  I                                             314=      315(2)  
  2-00000004  R*4  STATUS                                        315=    


ARRAYS

    Address  Type  Name          Attributes        Bytes  Dimensions       References

  3-00000000  I*4  DISK          COMM               324  (81)              305       307       314       315     
  4-00000000  CHAR DISK_LIST     COMM               256  (16)              303       308       315     


PARAMETER CONSTANTS

  Type  Name                                                   References

   I*2  ARRLOCPK                                                 231#    
   I*2  ARRTRAPK                                                 232#    
   CHAR ASCII_DELTA_TIME                                          89        90#    
   I*2  BIGHOLE                                                  265#    
   I*2  BJOBCNT                                                  121#    

   I*2  BUFIO                                                    142#    
   I*2  CEF                                                      188#    
   I*2  COLPG                                                    186#    
   I*2  COM                                                      197#    
   I*2  COMO                                                     198#    

   I*2  COMPAT                                                   119#    
   I*2  CPU_SIZE                                                 124#      296     
   I*2  CUR                                                      199#    
   I*2  DEPLOCPK                                                 233#    
   I*2  DEQ                                                      247#    


BUILD_DISK                     					21-Apr-1983 16:21:09	VAX-11 FORTRAN V3.2-37              Page   4
								21-Apr-1983 16:21:01	CAD$VOLSET:[GARY.STATS.SOURCE]BUILDDSK.FOR;7

   I*2  DIRHIT                                                   151#    
   I*2  DIRIO                                                    141#    
   I*2  DIRMISS                                                  152#    
   I*2  DISK_SIZE                                                291#      296       305     
   I*2  DLCKFND                                                  248#    

   I*2  DLCKSRCH                                                 249#    
   I*2  DZROFLTS                                                 173#    
   I*2  D_COUNT                                                  282#      314     
   I*2  ENQCVT                                                   250#    
   I*2  ENQNEW                                                   245#    

   I*2  ENQNOTQD                                                 251#    
   I*2  ENQWAIT                                                  246#    
   I*2  EXEC                                                     116#    
   I*2  EXTHIT                                                   153#    
   I*2  EXTMISS                                                  154#    

   I*2  FAULTS                                                   174#    
   I*2  FCP_CACHE                                                131#    
   I*2  FCP_CALLS                                                130#    
   I*2  FCP_CPU                                                  132#    
   I*2  FCP_READ                                                 133#    

   I*2  FCP_SIZE                                                 136#      296     
   I*2  FCP_WRITE                                                134#    
   I*2  FIDHIT                                                   155#    
   I*2  FIDMISS                                                  156#    
   I*2  FPG                                                      196#    

   I*2  FREEBLOCKS                                               283#    
   I*2  FREECNT                                                  165#    
   I*2  GETDVI_EF                                                104#    
   I*2  HIB                                                      192#    
   I*2  HIBO                                                     193#    

   I*2  HISWPCNT                                                 211#    
   I*2  HIT                                                      148#    
   I*2  HOLECNT                                                  264#    
   I*2  HOLESUM                                                  268#    
   I*2  HOSWPCNT                                                 210#    

   I*2  IDLE                                                     120#    
   I*2  IJOBCNT                                                  122#    
   I*2  INT                                                      118#    
   I*2  IRPCNT                                                   263#    
   I*2  ISPAGCNT                                                 206#    

   I*2  ISWPCNT                                                  207#    
   I*2  KERNEL                                                   114#    
   I*2  KEY_SIZE                                                 110#    
   I*2  LEF                                                      190#    
   I*2  LEFO                                                     191#    

   I*2  LOCK_SIZE                                                256#      296     
   I*2  LOGNAM                                                   143#    
   I*2  LRPCNT                                                   269#    

BUILD_DISK                     					21-Apr-1983 16:21:09	VAX-11 FORTRAN V3.2-37              Page   5
								21-Apr-1983 16:21:01	CAD$VOLSET:[GARY.STATS.SOURCE]BUILDDSK.FOR;7

   I*2  MAX_DISKS                                                289#      291       303     
   I*2  MBREADS                                                  144#    

   I*2  MBWRITES                                                 145#    
   I*2  MEM_SIZE                                                 168#      296     
   I*2  MFYCNT                                                   166#    
   I*2  MISC_SIZE                                                160#      296     
   I*2  MWAIT                                                    187#    

   I*2  NAME_SIZ                                                 290#      303     
   I*2  NET_SIZE                                                 240#      296     
   I*2  NUM_MODES                                                125#    
   I*2  OPCNT                                                    284#    
   I*2  OPEN                                                     150#    

   I*2  OPENS                                                    149#    
   I*2  OSWPCNT                                                  209#    
   I*2  PER_DISK                                                 288#      291     
   I*2  PFW                                                      189#    
   I*2  PGFLT_SIZE                                               181#      296     

   I*2  POOL_SIZE                                                276#      296     
   I*2  PREADIO                                                  175#    
   I*2  PREADS                                                   177#    
   I*2  PROCCNT                                                  208#    
   I*2  PWRITES                                                  178#    

   I*2  PWRITIO                                                  176#    
   I*2  QUOHIT                                                   157#    
   I*2  QUOMISS                                                  158#    
   I*2  RCVBUFFL                                                 234#    
   I*2  RDFLTS                                                   179#    

   I*2  REC_SIZE                                                 296#    
   I*2  REFCNT                                                   285#    
   I*2  RES                                                      226#    
   I*2  RESPONSE_SIZE                                            225#      296     
   I*2  SCH_SIZE                                                 201#      296     

   I*2  SMALLCNT                                                 267#    
   I*2  SMALLHOLE                                                266#    
   I*2  SPLIT                                                    147#    
   I*2  SRPCNT                                                   270#    
   CHAR STANDARD_NEST_FILE                                        96        97#    

   I*2  SUPER                                                    115#    
   I*2  SUSP                                                     194#    
   I*2  SUSPO                                                    195#    
   I*2  SWAP_SIZE                                                213#      296     
   I*2  SWAP_SPARES                                              214#    

   I*2  TIME_SIZE                                                219#      296     
   I*2  TRANSCNT                                                 286#    
   I*2  TRCNGLOS                                                 235#    
   I*2  TURN                                                     146#    
   I*2  USED                                                     287#    


BUILD_DISK                     					21-Apr-1983 16:21:09	VAX-11 FORTRAN V3.2-37              Page   6
								21-Apr-1983 16:21:01	CAD$VOLSET:[GARY.STATS.SOURCE]BUILDDSK.FOR;7

   I*2  USER                                                     117#    
   I*2  WAIT_EF                                                  103#    


FUNCTIONS AND SUBROUTINES REFERENCED

  Type  Name                                                   References

   I*4  ML$L_POKE                                                315     


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

  /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:           1.75 seconds
  Elapsed Time:       4.86 seconds
  Page Faults:        275
  Dynamic Memory:     839 pages
