
                               					20-May-1983 10:29:19	VAX-11 FORTRAN V3.2-37              Page   1
								10-May-1983 10:43:26	[GARY.STATS.SOURCE]STATSHLP.FOR;10          

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: Give the user helpful information
0025    !   
0026    !
0027    ! ENVIRONMENT: VAX VMS unpriv
0028    !   
0029    !
0030    ! AUTHOR: Gary Smith, CREATION DATE: 10/25/1982
0031    !
0032    ! MODIFIED BY:
0033    !
0034    !--
0035    !
0036    ! TABLE OF CONTENTS:
0037    !
0038    !
0039    ! INCLUDE FILES: statsubs.for
0040    !
0041    !
0042    ! MACROS: none
0043    !
0044    !
0045    ! EQUATED SYMBOLS: none
0046    !
0047    !
0048    ! EXTERNAL REFERENCES: LIB$GET_INPUT, LIB$PUT_OUTPUT
0049    !
0050     
0051    !++
0052    ! FUNCTIONAL DESCRIPTION: When the confused user wants help he types help
0053    !                         and some query. This accesses the help file
0054    !                         and presents it to the user.
0055    !
0056    !
0057    !

                               					20-May-1983 10:29:19	VAX-11 FORTRAN V3.2-37              Page   2
								10-May-1983 10:43:26	[GARY.STATS.SOURCE]STATSHLP.FOR;10          

0058    ! FORMAL PARAMETERS: The command minus the "HELP"
0059    !
0060    !
0061    !
0062    ! IMPLICIT INPUTS: The help file
0063    !
0064    !
0065    !
0066    ! IMPLICIT OUTPUTS: The help information
0067    !
0068    !
0069    !
0070    ! ROUTINE VALUE and
0071    ! COMPLETION CODES: none
0072    !
0073    !
0074    !
0075    ! SIDE EFFECTS: none to date
0076    !
0077    !
0078    !
0079    !--
0080              SUBROUTINE STATSHLP( command )
0081     
0082              include 'statsubs.for'
0135     
0136              character * (*)   command
0137              character * 63    helplib / standard_help_lib /
0138     
0139              integer * 4       LIB$GET_INPUT
0140              integer * 4       LIB$PUT_OUTPUT
0141     
0142              external          LIB$GET_INPUT
0143              external          LIB$PUT_OUTPUT
0144     
0145     
0146    !++
0147    ! get help
0148    !--
0149     
0150              if ( command .eq. ' ' ) command = 'STATS'
0151     
0152              call LBR$OUTPUT_HELP( LIB$PUT_OUTPUT,,command,helplib,
0153         .                          '21'x, LIB$GET_INPUT )
0154              return
0155              end

STATSHLP                       					20-May-1983 10:29:19	VAX-11 FORTRAN V3.2-37              Page   3
								10-May-1983 10:43:26	[GARY.STATS.SOURCE]STATSHLP.FOR;10          

PROGRAM SECTIONS

    Name				 Bytes   Attributes

  0 $CODE                                   49   PIC CON REL LCL   SHR   EXE   RD NOWRT LONG
  1 $PDATA                                   9   PIC CON REL LCL   SHR NOEXE   RD NOWRT LONG
  2 $LOCAL                                 108   PIC CON REL LCL NOSHR NOEXE   RD   WRT LONG

    Total Space Allocated                  166


ENTRY POINTS

    Address  Type  Name                                        References

  0-00000000       STATSHLP                                       80     


VARIABLES

    Address  Type  Name                            Attributes  References

 AP-00000004@ CHAR COMMAND                                        80       136       150(2)=   152A    
  2-00000000  CHAR HELPLIB                                       137D      152A    


PARAMETER CONSTANTS

  Type  Name                                                   References

   I*2  EOF                                                      134#    
   I*2  EQUAL                                                    109#    
   I*2  FAILURE                                                   94#    
   I*2  GREATER                                                  110#    
   I*2  KEYED_READ                                               100#    

   I*2  LESS                                                     108#    
   I*4  MAXINT                                                   133#    
   I*2  MAX_CAT                                                  116#    
   I*2  MAX_ENT                                                  117#    
   R*4  MINUTES_IN_DAY                                           127#    

   R*4  MINUTES_IN_HOUR                                          124#    
   I*2  NEST_CLOSE                                               102#    
   I*2  NEST_OPEN                                                 99#    
   R*4  SECONDS_IN_DAY                                           126#    
   R*4  SECONDS_IN_HOUR                                          125#    

   R*4  SECONDS_IN_MINUTE                                        123#    
   I*2  SEQ_READ                                                 101#    
   CHAR STANDARD_HELP_LIB                                         87        88#      137     
   I*2  SUCCESS                                                   93#    

STATSHLP                       					20-May-1983 10:29:19	VAX-11 FORTRAN V3.2-37              Page   4
								10-May-1983 10:43:26	[GARY.STATS.SOURCE]STATSHLP.FOR;10          

FUNCTIONS AND SUBROUTINES REFERENCED

  Type  Name                                                   References

        LBR$OUTPUT_HELP                                          152     
        LIB$GET_INPUT                                            139       142       152A    
        LIB$PUT_OUTPUT                                           140       143       152A    


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

  /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.01 seconds
  Elapsed Time:       2.33 seconds
  Page Faults:        414
  Dynamic Memory:     825 pages
