diff options
author | Gard Spreemann <gspreemann@gmail.com> | 2017-02-02 21:23:01 +0100 |
---|---|---|
committer | Gard Spreemann <gspreemann@gmail.com> | 2017-02-02 21:23:01 +0100 |
commit | 173802e9f8d98a01019d3f5aff055f1f04479974 (patch) | |
tree | c47b4169dee35def4cdeaaad4cdebaaae5c722da /timer.f |
upstream/3.0+dfsg.3: Start git repository for package by importingdfsg/3.0+dfsg.3
upstream's 3.0 tarball DFSG-cleaned as currently used in published
Debian package.
Diffstat (limited to 'timer.f')
-rw-r--r-- | timer.f | 32 |
1 files changed, 32 insertions, 0 deletions
@@ -0,0 +1,32 @@ +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 + |