FTN4,L SUBROUTINE TIMEC(SEC, ISTRN) C C------------------------------------------------------------- C C C M. CHAMBREAU 17MAY76 REV. A C C "C" COPYRIGHT HEWLETT-PACKARD COMPANY 1976. C ALL RIGHTS RESERVED. NO PART OF THIS PROGRAM C MAY BE PHOTOCOPIED, REPRODUCED OR TRANSLATED C TO ANOTHER PROGRAM LANGUAGE WITHOUT THE PRIOR C WRITTEN CONSENT OF THE HEWLETT-PACKARD COMPANY. C C------------------------------------------------------------- C DIMENSION ISTRN(9) C IHR = IFIX(SEC / 3600.0) FHR = FLOAT (IHR) MIN = IFIX(SEC / 60.0) MIN = MIN - 60 * (MIN / 60) FMIN = FLOAT (MIN) FISEC = 3600.0 * FHR + 60.0 * FMIN ISEC = IFIX (SEC - FISEC) FISEC = FISEC + FLOAT(ISEC) MSEC = IFIX (1000.0 * (SEC - FISEC)) C C NOW BUILD STRING C ISTRN(1) = 12 ISTRN(2) = (256 * (IHR/10) + IHR - 10 * (IHR/10)) + 2H00 IF (IHR .GT. 99) ISTRN(2) = 2H** ISTRN(3) = MIN / 10 + 2H:0 ISTRN(4) = 256 * (MIN - 10 * (MIN/10)) + 2H0: ISTRN(5) = (256 * (ISEC/10) + ISEC - 10 * (ISEC/10)) + 2H00 ISTRN(6) = MSEC / 100 + 2H.0 MSEC = MSEC - 100 * (MSEC / 100) ISTRN(7) = (256 * (MSEC/10) + MSEC - 10 * (MSEC/10)) + 2H00 END END$