subroutine mshmsmr (secm_i, ihr, imn, sec)
c
c-----------------------------------------------------------------------
c
c Routine converts from milliseconds of day to hours, mins, secs and
c
c-----------------------------------------------------------------------
c
      integer*4 ihr, imn
      real*8 hr, mn, sec, secm_i
c
c-----------------------------------------------------------------------
c-----------------------------------------------------------------------
c
      ihr = 0
      imn = 0
      sec = 0.0
c
c-----------------------------------------------------------------------
c-----------------------------------------------------------------------
c
      if ( secm_i .le. 0.0) return
c
c-----------------------------------------------------------------------
c-----------------------------------------------------------------------
c
      ihr = secm_i / 3600000000.0
      hr = float(ihr) * 3600000000.0
      imn = (secm_i - hr) / 60000000.0
      mn = float(imn) * 60000000.0
      sec = (secm_i - hr - mn) / 1000000.0
c
c-----------------------------------------------------------------------
c-----------------------------------------------------------------------
c
      return
      end