Add files via upload

code/new/timer.f

@@ -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
+