SUBROUTINE TIMCLK(CLUNK) C C Routine to get the current time and return the time/date in the C 8-byte clunk format. C IMPLICIT INTEGER(A-Z) BYTE CLUNK(8),TMSTMP(20),ATIME(10),ADATE(10) C CALL TIME(ATIME) ! Get the current time/date CALL DATE(ADATE) CALL SCOPY(ATIME,TMSTMP,8) ! Form up string to convert CALL SCOPY(' ',TMSTMP(9),1) CALL SCOPY(ADATE,TMSTMP(10),9) CALL ASCCLK(TMSTMP,CLUNK) RETURN END