home *** CD-ROM | disk | FTP | other *** search
/ Microsoft Programmer's Library 1.3 / Microsoft-Programers-Library-v1.3.iso / sampcode / fortran / secnds.for < prev    next >
Encoding:
Text File  |  1988-08-11  |  685 b   |  27 lines
  1. C
  2. C     INTERFACE ROUTINE FROM DEC TO PC FOR GETTING TIME
  3. C
  4.       FUNCTION SECNDS(X)
  5. CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
  6. C
  7. C     RETURN CURRENT TIME - MIDNIGHT - X
  8. C
  9. C
  10.       REAL*4    SECNDS, X
  11. C
  12. C
  13.       INTEGER*2 IHOUR, IMINUT, ISECON, IHUND
  14.       REAL*4    RHOUR, RMINUT, RSECON, RHUND
  15.       REAL*4    X1
  16. C
  17.       CALL GETTIM(IHOUR, IMINUT, ISECON, IHUND)
  18.       RHOUR     =  FLOAT( IHOUR )
  19.       RMINUT    =  FLOAT( IMINUT)
  20.       RSECON    =  FLOAT( ISECON)
  21.       RHUND     =  FLOAT( IHUND )
  22.       X1        =  RHOUR*3600.0 + RMINUT*60.0 + RSECON +
  23.      &             RHUND/100.0    
  24.       SECNDS    =  X1 - X
  25. C
  26.       RETURN
  27.       END