      subroutine timer(timediff)
      real*8 timediff,timearray(2),dtime

      timediff = dtime(timearray)
c      print *,'Time =',timediff

      end
