
                               					20-May-1983 10:26:45	VAX-11 FORTRAN V3.2-37              Page   1
								25-Aug-1982 14:08:29	CAD$VOLSET:[GARY.STATS.SOURCE]KEYCOM.FOR;2  

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: Fake out a quad word compare 
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    !
0041    !
0042    ! MACROS: none
0043    !
0044    !
0045    ! EQUATED SYMBOLS: see statsubs.for
0046    !
0047    !
0048    ! EXTERNAL REFERENCES: none
0049    !
0050     
0051    !++
0052    ! FUNCTIONAL DESCRIPTION: KEY_COMPARE compares the first argument against
0053    !                         the second to establish greater, less or equal
0054    !                         based on the character representation of the 
0055    !                         system time
0056    !
0057    !

                               					20-May-1983 10:26:45	VAX-11 FORTRAN V3.2-37              Page   2
								25-Aug-1982 14:08:29	CAD$VOLSET:[GARY.STATS.SOURCE]KEYCOM.FOR;2  

0058    ! FORMAL PARAMETERS: first_arg  -> the testee
0059    !                    second_arg -> the testor
0060    !
0061    !
0062    !
0063    ! IMPLICIT INPUTS: none
0064    !
0065    !
0066    !
0067    ! IMPLICIT OUTPUTS: none
0068    !
0069    !
0070    !
0071    ! ROUTINE VALUE and
0072    ! COMPLETION CODES: -1  -> less
0073    !                    0  -> equal
0074    !                    1  -> greater
0075    !
0076    !
0077    !
0078    ! SIDE EFFECTS:
0079    !
0080    !
0081    !
0082    !--
0083              INTEGER FUNCTION KEY_COMPARE( first_arg, second_arg )
0084     
0085              include 'statsubs.for'
0138     
0139              character * 16 first_arg, second_arg
0140     
0141    !++
0142    ! make the comparison
0143    !--
0144     
0145              if ( first_arg .gt. second_arg ) then
0146                   key_compare = greater
0147     
0148              else if ( first_arg .eq. second_arg ) then
0149                   key_compare = equal
0150     
0151              else if ( first_arg .lt. second_arg ) then
0152                   key_compare = less
0153     
0154              endif
0155     
0156              return
0157              end

KEY_COMPARE                    					20-May-1983 10:26:45	VAX-11 FORTRAN V3.2-37              Page   3
								25-Aug-1982 14:08:29	CAD$VOLSET:[GARY.STATS.SOURCE]KEYCOM.FOR;2  

PROGRAM SECTIONS

    Name				 Bytes   Attributes

  0 $CODE                                   69   PIC CON REL LCL   SHR   EXE   RD NOWRT LONG
  2 $LOCAL                                  20   PIC CON REL LCL NOSHR NOEXE   RD   WRT LONG

    Total Space Allocated                   89


ENTRY POINTS

    Address  Type  Name                                        References

  0-00000000  I*4  KEY_COMPARE                                    83       146=      149=      152=    


VARIABLES

    Address  Type  Name                            Attributes  References

 AP-00000004@ CHAR FIRST_ARG                                      83       139       145       148       151     
 AP-00000008@ CHAR SECOND_ARG                                     83       139       145       148       151     


PARAMETER CONSTANTS

  Type  Name                                                   References

   I*2  EOF                                                      137#    
   I*2  EQUAL                                                    112#      149     
   I*2  FAILURE                                                   97#    
   I*2  GREATER                                                  113#      146     
   I*2  KEYED_READ                                               103#    

   I*2  LESS                                                     111#      152     
   I*4  MAXINT                                                   136#    
   I*2  MAX_CAT                                                  119#    
   I*2  MAX_ENT                                                  120#    
   R*4  MINUTES_IN_DAY                                           130#    

   R*4  MINUTES_IN_HOUR                                          127#    
   I*2  NEST_CLOSE                                               105#    
   I*2  NEST_OPEN                                                102#    
   R*4  SECONDS_IN_DAY                                           129#    
   R*4  SECONDS_IN_HOUR                                          128#    

   R*4  SECONDS_IN_MINUTE                                        126#    
   I*2  SEQ_READ                                                 104#    
   CHAR STANDARD_HELP_LIB                                         90        91#    
   I*2  SUCCESS                                                   96#    

KEY_COMPARE                    					20-May-1983 10:26:45	VAX-11 FORTRAN V3.2-37              Page   4
								25-Aug-1982 14:08:29	CAD$VOLSET:[GARY.STATS.SOURCE]KEYCOM.FOR;2  

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

  /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:       3.16 seconds
  Page Faults:        396
  Dynamic Memory:     812 pages
