[Dnanalytics-commits] SF.net SVN: dnanalytics: [446] nli/trunk/NativeCode/ATLAS_CLAPACK

[<mar...@us...>]

Revision: 446
          http://svn.sourceforge.net/dnanalytics/?rev=446&view=rev
Author:   marcuscuda
Date:     2007-02-08 08:14:30 -0800 (Thu, 08 Feb 2007)

Log Message:
-----------


Added Paths:
-----------
    nli/trunk/NativeCode/ATLAS_CLAPACK/dsecnd.c
    nli/trunk/NativeCode/ATLAS_CLAPACK/second.c

Added: nli/trunk/NativeCode/ATLAS_CLAPACK/dsecnd.c
===================================================================
--- nli/trunk/NativeCode/ATLAS_CLAPACK/dsecnd.c	                        (rev 0)
+++ nli/trunk/NativeCode/ATLAS_CLAPACK/dsecnd.c	2007-02-08 16:14:30 UTC (rev 446)
@@ -0,0 +1,22 @@
+#include "f2c.h"
+#ifndef USE_CLOCK
+   #include <sys/times.h>; 
+#endif
+#include <sys/types.h>
+#include <time.h>
+
+#ifndef CLK_TCK
+#define CLK_TCK 60
+#endif
+
+doublereal dsecnd_()
+{
+#ifdef USE_CLOCK
+	 return (doublereal)(clock()) / CLK_TCK;
+#else
+   struct tms rusage;
+
+  times(&rusage);
+  return (doublereal)(rusage.tms_utime) / CLK_TCK;
+
+} /* dsecnd_ */
\ No newline at end of file

Added: nli/trunk/NativeCode/ATLAS_CLAPACK/second.c
===================================================================
--- nli/trunk/NativeCode/ATLAS_CLAPACK/second.c	                        (rev 0)
+++ nli/trunk/NativeCode/ATLAS_CLAPACK/second.c	2007-02-08 16:14:30 UTC (rev 446)
@@ -0,0 +1,22 @@
+#include "f2c.h"
+#include <sys/times.h>
+#ifndef USE_CLOCK
+   #include <sys/times.h>; 
+#endif
+#include <time.h>
+
+#ifndef CLK_TCK
+#define CLK_TCK 60
+#endif
+
+doublereal second_()
+{
+#ifdef USE_CLOCK
+	return (doublereal)(clock()) / CLK_TCK;
+#else
+  struct tms rusage;
+
+  times(&rusage);
+  return (doublereal)(rusage.tms_utime) / CLK_TCK;
+
+} /* second_ */
\ No newline at end of file


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.