
                               					20-May-1983 10:18:00	VAX-11 FORTRAN V3.2-37              Page   1
								10-May-1983 10:17:33	[GARY.STATS.SOURCE]STATPGFLT.FOR;17         

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    !   STATPGFLT gets the page fault statistics.   
0026    !
0027    ! ENVIRONMENT:
0028    !   VAX11 VMS   
0029    !
0030    ! AUTHOR: Gary Smith, CREATION DATE: 6/24/82
0031    !
0032    ! MODIFIED BY:
0033    !
0034    !--
0035    !
0036    ! TABLE OF CONTENTS:
0037    !
0038    !
0039    ! INCLUDE FILES:
0040    !   mousesubs.for
0041    !
0042    ! MACROS:
0043    !   none
0044    !
0045    ! EQUATED SYMBOLS:
0046    !   see mousesubs.for
0047    !
0048    ! EXTERNAL REFERENCES:
0049    !
0050    !   PMS$GL_DZROFLTS     !! demand zero faults
0051    !   PMS$GL_FAULTS       !! page faults
0052    !   PMS$GL_PREADIO      !! page reads io
0053    !   PMS$GL_PWRITIO      !! page writes io
0054    !   PMS$GL_PREADS       !! page reads
0055    !   PMS$GL_PWRITES      !! page writes
0056    !   PMS$GL_RDFLTS       !! page read faults
0057    !   ML$L_PEEK

                               					20-May-1983 10:18:00	VAX-11 FORTRAN V3.2-37              Page   2
								10-May-1983 10:17:33	[GARY.STATS.SOURCE]STATPGFLT.FOR;17         

0058    !
0059    !++
0060    ! FUNCTIONAL DESCRIPTION:
0061    !   VMS keeps several locations of information about the page faulting
0062    !   that is going on in the system. Using ML$L_PEEK, store off these
0063    !   places into pgflt.
0064    !
0065    !
0066    ! FORMAL PARAMETERS:
0067    !   none
0068    !
0069    !
0070    ! IMPLICIT INPUTS:
0071    !   pgflt
0072    !
0073    !
0074    ! IMPLICIT OUTPUTS:
0075    !   pgflt
0076    !
0077    !
0078    ! ROUTINE VALUE and
0079    ! COMPLETION CODES:
0080    !   none
0081    !
0082    !
0083    ! SIDE EFFECTS:
0084    !   none to date
0085    !
0086    !
0087    !--
0088              SUBROUTINE STATPGFLT !! Page fault stats
0089     
0090              external PMS$GL_DZROFLTS     !! demand zero faults
0091              external PMS$GL_FAULTS       !! page faults
0092              external PMS$GL_PREADIO      !! page reads io
0093              external PMS$GL_PWRITIO      !! page writes io
0094              external PMS$GL_PREADS       !! page reads
0095              external PMS$GL_PWRITES      !! page writes
0096              external PMS$GL_RDFLTS       !! page read faults
0097     
0098              include 'mousesubs.for'
0301              include 'defrec.for'
0403     
0404              integer last(pgflt_size), temp
0405    !++
0406    ! grab up all the page fault stats and leave
0407    !--
0408              rec_pgflt( dzroflts ) = ML$L_PEEK( %LOC( PMS$GL_DZROFLTS ) )
0409              rec_pgflt( faults   ) = ML$L_PEEK( %LOC( PMS$GL_FAULTS   ) )
0410              rec_pgflt( preadio  ) = ML$L_PEEK( %LOC( PMS$GL_PREADIO  ) )
0411              rec_pgflt( pwritio  ) = ML$L_PEEK( %LOC( PMS$GL_PWRITIO  ) )
0412              rec_pgflt( preads   ) = ML$L_PEEK( %LOC( PMS$GL_PREADS   ) )
0413              rec_pgflt( pwrites  ) = ML$L_PEEK( %LOC( PMS$GL_PWRITES  ) )
0414              rec_pgflt( rdflts   ) = ML$L_PEEK( %LOC( PMS$GL_RDFLTS   ) )
0415     
0416    !++ 
0417    ! compute the differences between now and the last time

STATPGFLT                      					20-May-1983 10:18:00	VAX-11 FORTRAN V3.2-37              Page   3
								10-May-1983 10:17:33	[GARY.STATS.SOURCE]STATPGFLT.FOR;17         

0418    !--
0419              do i = 1, pgflt_size
0420                 temp = rec_pgflt(i)
0421                 rec_pgflt(i) = rec_pgflt(i) - last(i)
0422                 last(i) = temp
0423              enddo
0424     
0425              return
0426              end




PROGRAM SECTIONS

    Name				 Bytes   Attributes

  0 $CODE                                  250   PIC CON REL LCL   SHR   EXE   RD NOWRT LONG
  2 $LOCAL                                  44   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                  642


ENTRY POINTS

    Address  Type  Name                                        References

  0-00000000       STATPGFLT                                      88     


VARIABLES

    Address  Type  Name                            Attributes  References

  2-00000020  I*4  I                                             419=      420       421(3)    422     
  3-00000108  I*4  REC_RESPONSE                    COMM EQUIV    304       361     
  2-0000001C  I*4  TEMP                                          404       420=      422     


ARRAYS

    Address  Type  Name                            Attributes        Bytes  Dimensions       References

  2-00000000  I*4  LAST                                                28  (7)                 404       421       422=    
  3-00000000  I*4  REC_CPU_MODES                   COMM EQUIV          36  (9)                 306       318     
  3-00000024  I*4  REC_FCP                         COMM EQUIV          20  (5)                 312       325     
  3-00000120  I*4  REC_LOCK_MODES                  COMM EQUIV          28  (7)                 314       380     
  3-00000080  I*4  REC_MEM_MODES                   COMM EQUIV           8  (2)                 307       330     

  3-00000038  I*4  REC_MISC                        COMM EQUIV          72  (18)                309       327     
  3-0000010C  I*4  REC_NET_MODES                   COMM EQUIV          20  (5)                 313       370     
  3-00000088  I*4  REC_PGFLT                       COMM EQUIV          28  (7)                 311       334       408=    
											       409=      410=      411=    
											       412=      413=      414=    
											       420       421(2)= 
  3-0000013C  I*4  REC_POOL_MODES                  COMM EQUIV          32  (8)                 315       391     

STATPGFLT                      					20-May-1983 10:18:00	VAX-11 FORTRAN V3.2-37              Page   4
								10-May-1983 10:17:33	[GARY.STATS.SOURCE]STATPGFLT.FOR;17         

  3-000000A4  I*4  REC_SCH_STATE                   COMM EQUIV          56  (14)                310       339     

  3-000000DC  I*4  REC_SWAP                        COMM EQUIV          36  (9)                 308       345     
  3-00000100  I*4  REC_TIME                        COMM EQUIV           8  (2)                 305       352     
  3-00000000  I*4  STATS_REC                       COMM EQUIV         348  (87)                302       316       318     
											       325       327       330     
											       334       339       345     
											       352       361       370     
											       380       391     


PARAMETER CONSTANTS

  Type  Name                                                   References

   I*2  ARRLOCPK                                                 245#    
   I*2  ARRTRAPK                                                 246#    
   CHAR ASCII_DELTA_TIME                                         103       104#    
   I*2  BIGHOLE                                                  279#    
   I*2  BJOBCNT                                                  135#    

   I*2  BUFIO                                                    156#    
   I*2  CEF                                                      202#    
   I*2  COLPG                                                    200#    
   I*2  COM                                                      211#    
   I*2  COMO                                                     212#    

   I*2  COMPAT                                                   133#    
   I*2  CPU_SIZE                                                 138#      295       306       325       327       330     
							         334       339       345       352       361       370     
							         380       391     
   I*2  CUR                                                      213#    
   I*2  DEPLOCPK                                                 247#    
   I*2  DEQ                                                      261#    

   I*2  DIRHIT                                                   165#    
   I*2  DIRIO                                                    155#    
   I*2  DIRMISS                                                  166#    
   I*2  DLCKFND                                                  262#    
   I*2  DLCKSRCH                                                 263#    

   I*2  DZROFLTS                                                 187#      408     
   I*2  ENQCVT                                                   264#    
   I*2  ENQNEW                                                   259#    
   I*2  ENQNOTQD                                                 265#    
   I*2  ENQWAIT                                                  260#    

   I*2  EXEC                                                     130#    
   I*2  EXTHIT                                                   167#    
   I*2  EXTMISS                                                  168#    
   I*2  FAULTS                                                   188#      409     
   I*2  FCP_CACHE                                                145#    

   I*2  FCP_CALLS                                                144#    
   I*2  FCP_CPU                                                  146#    
   I*2  FCP_READ                                                 147#    
   I*2  FCP_SIZE                                                 150#      295       312       327       330       334     

STATPGFLT                      					20-May-1983 10:18:00	VAX-11 FORTRAN V3.2-37              Page   5
								10-May-1983 10:17:33	[GARY.STATS.SOURCE]STATPGFLT.FOR;17         

							         339       345       352       361       370       380     
							         391     
   I*2  FCP_WRITE                                                148#    

   I*2  FIDHIT                                                   169#    
   I*2  FIDMISS                                                  170#    
   I*2  FPG                                                      210#    
   I*2  FREECNT                                                  179#    
   I*2  GETDVI_EF                                                118#    

   I*2  HIB                                                      206#    
   I*2  HIBO                                                     207#    
   I*2  HISWPCNT                                                 225#    
   I*2  HIT                                                      162#    
   I*2  HOLECNT                                                  278#    

   I*2  HOLESUM                                                  282#    
   I*2  HOSWPCNT                                                 224#    
   I*2  IDLE                                                     134#    
   I*2  IJOBCNT                                                  136#    
   I*2  INT                                                      132#    

   I*2  IRPCNT                                                   277#    
   I*2  ISPAGCNT                                                 220#    
   I*2  ISWPCNT                                                  221#    
   I*2  KERNEL                                                   128#    
   I*2  KEY_SIZE                                                 124#    

   I*2  LEF                                                      204#    
   I*2  LEFO                                                     205#    
   I*2  LOCK_SIZE                                                270#      295       314       391     
   I*2  LOGNAM                                                   157#    
   I*2  LRPCNT                                                   283#    

   I*2  MBREADS                                                  158#    
   I*2  MBWRITES                                                 159#    
   I*2  MEM_SIZE                                                 182#      295       307       334       339       345     
							         352       361       370       380       391     
   I*2  MFYCNT                                                   180#    
   I*2  MISC_SIZE                                                174#      295       309       330       334       339     
							         345       352       361       370       380       391     

   I*2  MWAIT                                                    201#    
   I*2  NET_SIZE                                                 254#      295       313       380       391     
   I*2  NUM_MODES                                                139#    
   I*2  OPEN                                                     164#    
   I*2  OPENS                                                    163#    

   I*2  OSWPCNT                                                  223#    
   I*2  PFW                                                      203#    
   I*2  PGFLT_SIZE                                               195#      295       311       339       345       352     
							         361       370       380       391       404       419     
   I*2  POOL_SIZE                                                290#      295       315     
   I*2  PREADIO                                                  189#      410     

   I*2  PREADS                                                   191#      412     
   I*2  PROCCNT                                                  222#    

STATPGFLT                      					20-May-1983 10:18:00	VAX-11 FORTRAN V3.2-37              Page   6
								10-May-1983 10:17:33	[GARY.STATS.SOURCE]STATPGFLT.FOR;17         

   I*2  PWRITES                                                  192#      413     
   I*2  PWRITIO                                                  190#      411     
   I*2  QUOHIT                                                   171#    

   I*2  QUOMISS                                                  172#    
   I*2  RCVBUFFL                                                 248#    
   I*2  RDFLTS                                                   193#      414     
   I*2  REC_SIZE                                                 295#      316     
   I*2  RES                                                      240#    

   I*2  RESPONSE_SIZE                                            239#      295       370       380       391     
   I*2  SCH_SIZE                                                 215#      295       310       345       352       361     
							         370       380       391     
   I*2  SMALLCNT                                                 281#    
   I*2  SMALLHOLE                                                280#    
   I*2  SPLIT                                                    161#    

   I*2  SRPCNT                                                   284#    
   CHAR STANDARD_NEST_FILE                                       110       111#    
   I*2  SUPER                                                    129#    
   I*2  SUSP                                                     208#    
   I*2  SUSPO                                                    209#    

   I*2  SWAP_SIZE                                                227#      295       308       352       361       370     
							         380       391     
   I*2  SWAP_SPARES                                              228#    
   I*2  TIME_SIZE                                                233#      295       305       361       370       380     
							         391     
   I*2  TRCNGLOS                                                 249#    
   I*2  TURN                                                     160#    

   I*2  USER                                                     131#    
   I*2  WAIT_EF                                                  117#    


FUNCTIONS AND SUBROUTINES REFERENCED

  Type  Name                                                   References

   I*4  ML$L_PEEK                                                408       409       410       411       412       413     
							         414     
        PMS$GL_DZROFLTS                                           90       408     
        PMS$GL_FAULTS                                             91       409     
        PMS$GL_PREADIO                                            92       410     
        PMS$GL_PREADS                                             94       412     

        PMS$GL_PWRITES                                            95       413     
        PMS$GL_PWRITIO                                            93       411     
        PMS$GL_RDFLTS                                             96       414     

STATPGFLT                      					20-May-1983 10:18:00	VAX-11 FORTRAN V3.2-37              Page   7
								10-May-1983 10:17:33	[GARY.STATS.SOURCE]STATPGFLT.FOR;17         

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

  /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:           2.52 seconds
  Elapsed Time:       8.91 seconds
  Page Faults:        478
  Dynamic Memory:     846 pages
