CTITLEEBCTIM -- CONVERT CENTISECONDS TO EBCDIC CODE                     00000010
C***********************************************************************
C                 COPYRIGHT ATLANTIC RICHFIELD COMPANY 1991            *
C***********************************************************************
CA                                                                      00000020
CA    SYSTEM PROGRAM         SYS1.SUBLIB                                00000030
CA    MAINTAINED BY          RESEARCH AND DEVELOPMENT                   00000040
CA    AUTHOR                 P. D. WITT                                 00000050
CA    DESIGNER               P. D. WITT                                 00000060
CA    LANGUAGE               S/360 ASSEMBLER-F                          00000070
CA    SYSTEM                 IBM (SEE CRAY)                             00000070
CA    WRITTEN                                                           00000080
CA                                                                      00000090
CA                                                                      00000100
CA    CALL EBCTIM (E, T)                                                00000110
CA          OUTPUT E = TIME IN EBCDIC CODE, HR:MI:SC                R8  00000120
CA          INPUT  T = TIME IN CENTISECONDS                         I4  00000130
CA                                                                      00000140
CA                                                                      00000150
CA    THIS PROGRAM CONVERTS CENTISECONDS TO EBCDIC, READY TO PRINT      00000160
CA    WITH FORTRAN FORMAT A8.                                           00000170
CAEND                                                                   00000190