<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">
                               					20-May-1983 10:28:01	VAX-11 FORTRAN V3.2-37              Page   1
								17-Nov-1982 10:40:31	CAD$VOLSET:[GARY.STATS.SOURCE]DELTAT.FOR;14 

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: Determines the difference in seconds between two times
0025    !   
0026    !
0027    ! ENVIRONMENT: VAX VMS unpriv
0028    !   
0029    !
0030    ! AUTHOR: Gary Smith, CREATION DATE: 9/8/1982
0031    !
0032    ! MODIFIED BY:
0033    !
0034    !--
0035    !
0036    ! TABLE OF CONTENTS:
0037    !
0038    !
0039    ! INCLUDE FILES: none
0040    !
0041    !
0042    ! MACROS: none
0043    !
0044    !
0045    ! EQUATED SYMBOLS: none
0046    !
0047    !
0048    ! EXTERNAL REFERENCES: LIB$SUBX, LIB$EDIV
0049    !
0050     
0051    !++
0052    ! FUNCTIONAL DESCRIPTION: Two strings that are the character representation
0053    !                         of the time of day converted to binary
0054    !                         equivalents and the delta time of the two is 
0055    !                         taken.
0056    !
0057    !

                               					20-May-1983 10:28:01	VAX-11 FORTRAN V3.2-37              Page   2
								17-Nov-1982 10:40:31	CAD$VOLSET:[GARY.STATS.SOURCE]DELTAT.FOR;14 

0058    !
0059    ! FORMAL PARAMETERS: start_time -&gt; the starting time
0060    !                    end_time   -&gt; the ending time
0061    !
0062    !
0063    ! IMPLICIT INPUTS: none
0064    !
0065    !
0066    !
0067    ! IMPLICIT OUTPUTS: none
0068    !
0069    !
0070    !
0071    ! ROUTINE VALUE and
0072    ! COMPLETION CODES: integer, the delta time of the inputs
0073    !
0074    !
0075    !
0076    ! SIDE EFFECTS: none to date
0077    !
0078    !
0079    !
0080    !--
0081              INTEGER FUNCTION DELTAT( start_time, end_time )
0082     
0083              character * 16 start_time, end_time
0084     
0085              integer  i_start_time(2), i_end_time(2)
0086              integer  quotient, difference(2), remainder
0087              integer  time, temp, status
0088     
0089              integer  LIB$SUBX, LIB$EDIV
0090     
0091              external LIB$SUBX, LIB$EDIV
0092     
0093              data time / 10 000 000 /
0094     
0095    !++
0096    ! turn the two character strings into binary
0097    !--
0098              decode( 16, 100, start_time ) i_start_time
0099    100       format( 2Z8 )
0100              decode( 16, 100, end_time   ) i_end_time
0101     
0102    !++
0103    ! make them into DEC's silly reversed format
0104    !--
0105              temp = i_start_time(2)
0106              i_start_time(2) = i_start_time(1)
0107              i_start_time(1) = temp
0108     
0109              temp = i_end_time(2)
0110              i_end_time(2) = i_end_time(1)
0111              i_end_time(1) = temp
0112     
0113    !++
0114    ! difference of the times

DELTAT                         					20-May-1983 10:28:01	VAX-11 FORTRAN V3.2-37              Page   3
								17-Nov-1982 10:40:31	CAD$VOLSET:[GARY.STATS.SOURCE]DELTAT.FOR;14 

0115    !--
0116              status = LIB$SUBX( i_end_time, i_start_time, difference, )
0117     
0118    !++
0119    ! put into seconds
0120    !--
0121              status = LIB$EDIV( time, difference, quotient, remainder )
0122     
0123              deltat = quotient
0124     
0125              return 
0126              end




PROGRAM SECTIONS

    Name				 Bytes   Attributes

  0 $CODE                                  158   PIC CON REL LCL   SHR   EXE   RD NOWRT LONG
  1 $PDATA                                   5   PIC CON REL LCL   SHR NOEXE   RD NOWRT LONG
  2 $LOCAL                                 168   PIC CON REL LCL NOSHR NOEXE   RD   WRT LONG

    Total Space Allocated                  331


ENTRY POINTS

    Address  Type  Name                      References

  0-00000000  I*4  DELTAT                       81       123=    


VARIABLES

    Address  Type  Name          Attributes  References

 AP-00000008@ CHAR END_TIME                     81        83       100     
  2-0000001C  I*4  QUOTIENT                     86       121A      123     
  2-00000020  I*4  REMAINDER                    86       121A    
 AP-00000004@ CHAR START_TIME                   81        83        98     
  2-0000002C  I*4  STATUS                       87       116=      121=    

  2-00000028  I*4  TEMP                         87       105=      107       109=      111     
  2-00000024  I*4  TIME                         87        93D      121A    


ARRAYS

    Address  Type  Name          Attributes        Bytes  Dimensions       References

  2-00000010  I*4  DIFFERENCE                         8  (2)                  86       116A      121A    
  2-00000008  I*4  I_END_TIME                         8  (2)                  85       100=      109       110(2)=   111=    
									     116A    
  2-00000000  I*4  I_START_TIME                       8  (2)                  85        98=      105       106(2)=   107=    
									     116A    

DELTAT                         					20-May-1983 10:28:01	VAX-11 FORTRAN V3.2-37              Page   4
								17-Nov-1982 10:40:31	CAD$VOLSET:[GARY.STATS.SOURCE]DELTAT.FOR;14 

LABELS

    Address   Label                          References

  1-00000000  100'                              98        99#      100     


FUNCTIONS AND SUBROUTINES REFERENCED

  Type  Name                                 References

   I*4  LIB$EDIV                                89        91       121     
   I*4  LIB$SUBX                                89        91       116     


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

  /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.13 seconds
  Elapsed Time:       3.48 seconds
  Page Faults:        360
  Dynamic Memory:     808 pages
</pre></body></html>