1 files changed, 32 insertions, 0 deletions
diff --git a/timer.f b/timer.f
new file mode 100644
index 0000000..5535ccf
--- /dev/null
+++ b/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
+