added lapack 3.7.0 with latest patches from git

2017-01-06 11:48:40 +01:00
parent 24efbbd339
commit d35baf30cf
6320 changed files with 1778621 additions and 0 deletions
@@ -0,0 +1,61 @@
+*> \brief \b SECOND Using INTERNAL function CPU_TIME.
+*
+*  =========== DOCUMENTATION ===========
+*
+* Online html documentation available at
+*            http://www.netlib.org/lapack/explore-html/
+*
+*  Definition:
+*  ===========
+*
+*      REAL FUNCTION SECOND( )
+*
+*
+*> \par Purpose:
+*  =============
+*>
+*> \verbatim
+*>
+*>  SECOND returns the user time for a process in seconds.
+*>  This version gets the time from the INTERNAL function CPU_TIME.
+*> \endverbatim
+*
+*  Authors:
+*  ========
+*
+*> \author Univ. of Tennessee
+*> \author Univ. of California Berkeley
+*> \author Univ. of Colorado Denver
+*> \author NAG Ltd.
+*
+*> \date December 2016
+*
+*> \ingroup auxOTHERauxiliary
+*
+*  =====================================================================
+      REAL FUNCTION SECOND( )
+*
+*  -- LAPACK auxiliary routine (version 3.7.0) --
+*  -- LAPACK is a software package provided by Univ. of Tennessee,    --
+*  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
+*     December 2016
+*
+* =====================================================================
+*
+*     .. Local Scalars ..
+*
+      REAL T
+*
+* .. Intrinsic Functions ..
+*
+      INTRINSIC CPU_TIME
+*
+* .. Executable Statements .. *
+*
+      CALL CPU_TIME( T )
+      SECOND = T
+      RETURN
+*
+*     End of SECOND
+*
+      END