SUBROUTINE CLKSEC(CLUNK,NSECS) C C Routine to convert an 8 byte CLUNK value to the number of C seconds since 17-NOV-1958. This is an Integer*4 number C and allows a fortran program to easily compare contemporary C time/date values. The Integer*4 size limitation works out to C about 68 years, so this routine is good for the period of time C 17-NOV-1958 to 2026 C IMPLICIT INTEGER*4 (A-Z) BYTE CLUNK(8) C CALL DIVQ(CLUNK,NSECS) ! Let RMS return total IF (NSECS.LT.0) NSECS = 2147483647+NSECS NSECS = NSECS-1008189951 ! Second value at 17-NOV-58 IF (NSECS.LT.0) NSECS = 2147483647+NSECS RETURN END