CHARACTER*8 FUNCTION HMS(TIME)
C
C  Given a time in seconds, returns a character
C  string containing the formatted time as HH:MM:SS
C
      IMPLICIT NONE           
      INTEGER *4 TIME, H, M, S
      CHARACTER *8 TEMP
      H = TIME/3600
      M = MOD( TIME/60, 60 )
      S = MOD( TIME, 60 )
      TEMP(1:1) = CHAR( 48 + H/10 )
      TEMP(2:2) = CHAR( 48 + MOD(H,10) )
      TEMP(3:3) = ':'
      TEMP(4:4) = CHAR( 48 + M/10 )
      TEMP(5:5) = CHAR( 48 + MOD(M,10) )
      TEMP(6:6) = ':'
      TEMP(7:7) = CHAR( 48 + S/10 )
      TEMP(8:8) = CHAR( 48 + MOD(S,10) )
      HMS = TEMP
      RETURN
      END
      CHARACTER*12 FUNCTION RHMS(TIME)
C
C  Given a time in seconds, returns a character
C  string containing the formatted time as HH:MM:SS.SSS
C
      IMPLICIT NONE           
      REAL *8     TIME
      INTEGER *4 ITIME, H, M, S, MS
      CHARACTER *12 TEMP
      ITIME = 1000*TIME
      H = ITIME/3600000
      M = MOD( ITIME/60000, 60 )
      S = MOD( ITIME/ 1000, 60 )
      MS= MOD( ITIME, 1000)
      TEMP( 1: 1) = CHAR( 48 + H/10 )
      TEMP( 2: 2) = CHAR( 48 + MOD(H,10) )
      TEMP( 3: 3) = ':'
      TEMP( 4: 4) = CHAR( 48 + M/10 )
      TEMP( 5: 5) = CHAR( 48 + MOD(M,10) )
      TEMP( 6: 6) = ':'
      TEMP( 7: 7) = CHAR( 48 + S/10 )
      TEMP( 8: 8) = CHAR( 48 + MOD(S,10) )
      TEMP( 9: 9) = '.'
      TEMP(10:10) = CHAR( 48 + MS/100 )
      TEMP(11:11) = CHAR( 48 + MOD(MS,100)/10 )
      TEMP(12:12) = CHAR( 48 + MOD(MS, 10)    )
      RHMS = TEMP
      RETURN
      END