      subroutine remtms(ct)
      implicit none
c
      real ct, etime
      real a(2)
c
       ct=etime(a)
c       ct=0.
c      write (6,*)'in remtms:',ct,a
c
      return
      end
