Added arpack with bindings from scipy sandbox.

2007-10-11 09:45:05 +00:00
parent e932022249
commit e8b1980775
103 changed files with 37986 additions and 0 deletions
@@ -0,0 +1,36 @@
+      SUBROUTINE SECOND( T )
+*
+      REAL       T
+*
+*  -- LAPACK auxiliary routine (preliminary version) --
+*     Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd.,
+*     Courant Institute, Argonne National Lab, and Rice University
+*     July 26, 1991
+*
+*  Purpose
+*  =======
+*
+*  SECOND returns the user time for a process in seconds.
+*  This version gets the time from the system function ETIME.
+*
+*     .. Local Scalars ..
+      REAL               T1
+*     ..
+*     .. Local Arrays ..
+      REAL               TARRAY( 2 )
+*     ..
+*     .. External Functions ..
+      REAL               ETIME
+*      EXTERNAL           ETIME
+*     ..
+*     .. Executable Statements ..
+*
+
+      T1 = ETIME( TARRAY )
+      T  = TARRAY( 1 )
+
+      RETURN
+*
+*     End of SECOND
+*
+      END