timer.f

Go to the documentation of this file.

c> \file timer.f
 
c> \brief This routine computes cpu time in double precision.
c>
c> This routine computes cpu time in double precision; it makes use of 
c> the intrinsic f90 cpu_time therefore a conversion type is
c> needed.
c>
c> @param ttime CPU time in double precision
      subroutine timer(ttime)
      double precision ttime
c
      real temp
c
c           J.L Morales  Departamento de Matematicas, 
c                        Instituto Tecnologico Autonomo de Mexico
c                        Mexico D.F.
c
c           J.L Nocedal  Department of Electrical Engineering and
c                        Computer Science.
c                        Northwestern University. Evanston, IL. USA
c                         
c                        January 21, 2011
c
      temp = sngl(ttime)
      call cpu_time(temp)
      ttime = dble(temp) 
 
      return
 
      end