
                               					20-May-1983 10:18:26	VAX-11 FORTRAN V3.2-37              Page   1
								 4-May-1983 13:35:42	CAD$VOLSET:[GARY.STATS.SOURCE]STATFCP.FOR;15

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:
0025    !   STATFCP gathers the information the system keeps on File 
0026    !   Control Primitives. STATFCP is really a front for the real 
0027    !   worker, GETFCP.
0028    !
0029    ! ENVIRONMENT:
0030    !   VAX11 VMS
0031    !
0032    ! AUTHOR: Gary Smith, CREATION DATE: 6/24/82
0033    !
0034    ! MODIFIED BY:
0035    !
0036    !--
0037    !
0038    ! TABLE OF CONTENTS:
0039    !
0040    !
0041    ! INCLUDE FILES:
0042    !   mousesubs.for
0043    !
0044    ! MACROS:
0045    !   none
0046    !
0047    ! EQUATED SYMBOLS:
0048    !   see mousesubs.for
0049    !
0050    ! EXTERNAL REFERENCES:
0051    !   none
0052     
0053    !++
0054    ! FUNCTIONAL DESCRIPTION:
0055    !   Due to the funny nature of FCP's, this routine is merely a
0056    !   front for the MACRO subroutine that does all the work.
0057    !

                               					20-May-1983 10:18:26	VAX-11 FORTRAN V3.2-37              Page   2
								 4-May-1983 13:35:42	CAD$VOLSET:[GARY.STATS.SOURCE]STATFCP.FOR;15

0058    ! FORMAL PARAMETERS:
0059    !   none
0060    !
0061    !
0062    ! IMPLICIT INPUTS:
0063    !   fcp
0064    !
0065    !
0066    ! IMPLICIT OUTPUTS:
0067    !   fcp
0068    !
0069    !
0070    ! ROUTINE VALUE and
0071    ! COMPLETION CODES:
0072    !   none
0073    !
0074    !
0075    ! SIDE EFFECTS:
0076    !   none to date
0077    !
0078    !
0079    !--
0080              SUBROUTINE STATFCP !! collect FCP information
0081     
0082              include 'mousesubs.for'
0285              include 'defrec.for'
0387     
0388              integer  last(fcp_size), temp
0389     
0390              call GETFCP( rec_fcp(fcp_calls),
0391         .                 rec_fcp(fcp_cache),
0392         .                 rec_fcp(fcp_cpu  ),
0393         .                 rec_fcp(fcp_read ),
0394         .                 rec_fcp(fcp_write) )
0395     
0396    !++
0397    ! compute the differences from the last time
0398    !--
0399              do i = 1, fcp_size
0400                 temp = rec_fcp(i)
0401                 rec_fcp(i) = rec_fcp(i) - last(i)
0402                 last(i) = temp
0403              end do
0404     
0405              return
0406              end

STATFCP                        					20-May-1983 10:18:26	VAX-11 FORTRAN V3.2-37              Page   3
								 4-May-1983 13:35:42	CAD$VOLSET:[GARY.STATS.SOURCE]STATFCP.FOR;15

PROGRAM SECTIONS

    Name				 Bytes   Attributes

  0 $CODE                                   62   PIC CON REL LCL   SHR   EXE   RD NOWRT LONG
  2 $LOCAL                                  52   PIC CON REL LCL NOSHR NOEXE   RD   WRT LONG
  3 REC_COMMON                             348   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

    Total Space Allocated                  462


ENTRY POINTS

    Address  Type  Name                                        References

  0-00000000       STATFCP                                        80     


VARIABLES

    Address  Type  Name                            Attributes  References

  2-00000018  I*4  I                                             399=      400       401(3)    402     
  3-00000108  I*4  REC_RESPONSE                    COMM EQUIV    288       345     
  2-00000014  I*4  TEMP                                          388       400=      402     


ARRAYS

    Address  Type  Name                            Attributes        Bytes  Dimensions       References

  2-00000000  I*4  LAST                                                20  (5)                 388       401       402=    
  3-00000000  I*4  REC_CPU_MODES                   COMM EQUIV          36  (9)                 290       302     
  3-00000024  I*4  REC_FCP                         COMM EQUIV          20  (5)                 296       309       390(5)A 
											       400       401(2)= 
  3-00000120  I*4  REC_LOCK_MODES                  COMM EQUIV          28  (7)                 298       364     
  3-00000080  I*4  REC_MEM_MODES                   COMM EQUIV           8  (2)                 291       314     

  3-00000038  I*4  REC_MISC                        COMM EQUIV          72  (18)                293       311     
  3-0000010C  I*4  REC_NET_MODES                   COMM EQUIV          20  (5)                 297       354     
  3-00000088  I*4  REC_PGFLT                       COMM EQUIV          28  (7)                 295       318     
  3-0000013C  I*4  REC_POOL_MODES                  COMM EQUIV          32  (8)                 299       375     
  3-000000A4  I*4  REC_SCH_STATE                   COMM EQUIV          56  (14)                294       323     

  3-000000DC  I*4  REC_SWAP                        COMM EQUIV          36  (9)                 292       329     
  3-00000100  I*4  REC_TIME                        COMM EQUIV           8  (2)                 289       336     
  3-00000000  I*4  STATS_REC                       COMM EQUIV         348  (87)                286       300       302     
											       309       311       314     
											       318       323       329     
											       336       345       354     
											       364       375     

STATFCP                        					20-May-1983 10:18:26	VAX-11 FORTRAN V3.2-37              Page   4
								 4-May-1983 13:35:42	CAD$VOLSET:[GARY.STATS.SOURCE]STATFCP.FOR;15

PARAMETER CONSTANTS

  Type  Name                                                   References

   I*2  ARRLOCPK                                                 229#    
   I*2  ARRTRAPK                                                 230#    
   CHAR ASCII_DELTA_TIME                                          87        88#    
   I*2  BIGHOLE                                                  263#    
   I*2  BJOBCNT                                                  119#    

   I*2  BUFIO                                                    140#    
   I*2  CEF                                                      186#    
   I*2  COLPG                                                    184#    
   I*2  COM                                                      195#    
   I*2  COMO                                                     196#    

   I*2  COMPAT                                                   117#    
   I*2  CPU_SIZE                                                 122#      279       290       309       311       314     
							         318       323       329       336       345       354     
							         364       375     
   I*2  CUR                                                      197#    
   I*2  DEPLOCPK                                                 231#    
   I*2  DEQ                                                      245#    

   I*2  DIRHIT                                                   149#    
   I*2  DIRIO                                                    139#    
   I*2  DIRMISS                                                  150#    
   I*2  DLCKFND                                                  246#    
   I*2  DLCKSRCH                                                 247#    

   I*2  DZROFLTS                                                 171#    
   I*2  ENQCVT                                                   248#    
   I*2  ENQNEW                                                   243#    
   I*2  ENQNOTQD                                                 249#    
   I*2  ENQWAIT                                                  244#    

   I*2  EXEC                                                     114#    
   I*2  EXTHIT                                                   151#    
   I*2  EXTMISS                                                  152#    
   I*2  FAULTS                                                   172#    
   I*2  FCP_CACHE                                                129#      390     

   I*2  FCP_CALLS                                                128#      390     
   I*2  FCP_CPU                                                  130#      390     
   I*2  FCP_READ                                                 131#      390     
   I*2  FCP_SIZE                                                 134#      279       296       311       314       318     
							         323       329       336       345       354       364     
							         375       388       399     
   I*2  FCP_WRITE                                                132#      390     

   I*2  FIDHIT                                                   153#    
   I*2  FIDMISS                                                  154#    
   I*2  FPG                                                      194#    
   I*2  FREECNT                                                  163#    
   I*2  GETDVI_EF                                                102#    

   I*2  HIB                                                      190#    

STATFCP                        					20-May-1983 10:18:26	VAX-11 FORTRAN V3.2-37              Page   5
								 4-May-1983 13:35:42	CAD$VOLSET:[GARY.STATS.SOURCE]STATFCP.FOR;15

   I*2  HIBO                                                     191#    
   I*2  HISWPCNT                                                 209#    
   I*2  HIT                                                      146#    
   I*2  HOLECNT                                                  262#    

   I*2  HOLESUM                                                  266#    
   I*2  HOSWPCNT                                                 208#    
   I*2  IDLE                                                     118#    
   I*2  IJOBCNT                                                  120#    
   I*2  INT                                                      116#    

   I*2  IRPCNT                                                   261#    
   I*2  ISPAGCNT                                                 204#    
   I*2  ISWPCNT                                                  205#    
   I*2  KERNEL                                                   112#    
   I*2  KEY_SIZE                                                 108#    

   I*2  LEF                                                      188#    
   I*2  LEFO                                                     189#    
   I*2  LOCK_SIZE                                                254#      279       298       375     
   I*2  LOGNAM                                                   141#    
   I*2  LRPCNT                                                   267#    

   I*2  MBREADS                                                  142#    
   I*2  MBWRITES                                                 143#    
   I*2  MEM_SIZE                                                 166#      279       291       318       323       329     
							         336       345       354       364       375     
   I*2  MFYCNT                                                   164#    
   I*2  MISC_SIZE                                                158#      279       293       314       318       323     
							         329       336       345       354       364       375     

   I*2  MWAIT                                                    185#    
   I*2  NET_SIZE                                                 238#      279       297       364       375     
   I*2  NUM_MODES                                                123#    
   I*2  OPEN                                                     148#    
   I*2  OPENS                                                    147#    

   I*2  OSWPCNT                                                  207#    
   I*2  PFW                                                      187#    
   I*2  PGFLT_SIZE                                               179#      279       295       323       329       336     
							         345       354       364       375     
   I*2  POOL_SIZE                                                274#      279       299     
   I*2  PREADIO                                                  173#    

   I*2  PREADS                                                   175#    
   I*2  PROCCNT                                                  206#    
   I*2  PWRITES                                                  176#    
   I*2  PWRITIO                                                  174#    
   I*2  QUOHIT                                                   155#    

   I*2  QUOMISS                                                  156#    
   I*2  RCVBUFFL                                                 232#    
   I*2  RDFLTS                                                   177#    
   I*2  REC_SIZE                                                 279#      300     
   I*2  RES                                                      224#    

   I*2  RESPONSE_SIZE                                            223#      279       354       364       375     

STATFCP                        					20-May-1983 10:18:26	VAX-11 FORTRAN V3.2-37              Page   6
								 4-May-1983 13:35:42	CAD$VOLSET:[GARY.STATS.SOURCE]STATFCP.FOR;15

   I*2  SCH_SIZE                                                 199#      279       294       329       336       345     
							         354       364       375     
   I*2  SMALLCNT                                                 265#    
   I*2  SMALLHOLE                                                264#    
   I*2  SPLIT                                                    145#    

   I*2  SRPCNT                                                   268#    
   CHAR STANDARD_NEST_FILE                                        94        95#    
   I*2  SUPER                                                    113#    
   I*2  SUSP                                                     192#    
   I*2  SUSPO                                                    193#    

   I*2  SWAP_SIZE                                                211#      279       292       336       345       354     
							         364       375     
   I*2  SWAP_SPARES                                              212#    
   I*2  TIME_SIZE                                                217#      279       289       345       354       364     
							         375     
   I*2  TRCNGLOS                                                 233#    
   I*2  TURN                                                     144#    

   I*2  USER                                                     115#    
   I*2  WAIT_EF                                                  101#    


FUNCTIONS AND SUBROUTINES REFERENCED

  Type  Name                                                   References

        GETFCP                                                   390     


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

  /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

STATFCP                        					20-May-1983 10:18:26	VAX-11 FORTRAN V3.2-37              Page   7
								 4-May-1983 13:35:42	CAD$VOLSET:[GARY.STATS.SOURCE]STATFCP.FOR;15

COMPILATION STATISTICS

  Run Time:           2.14 seconds
  Elapsed Time:       6.93 seconds
  Page Faults:        465
  Dynamic Memory:     842 pages
