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$
                                                                                                                                                                                                                      