|
From: <mar...@us...> - 2007-02-08 16:14:34
|
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.
|