real*8 function tmr()
      
      real*8 second
      
c      tmr = second
      tmr = 0
      
      return
      end