33 lines
880 B
Fortran
33 lines
880 B
Fortran
c
|
|
c L-BFGS-B is released under the “New BSD License” (aka “Modified BSD License”
|
|
c or “3-clause license”)
|
|
c Please read attached file License.txt
|
|
c
|
|
subroutine timer(ttime)
|
|
double precision ttime
|
|
c
|
|
real temp
|
|
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 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
|
|
|