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,95 @@
+*> \brief \b ILATRANS
+*
+*  =========== DOCUMENTATION ===========
+*
+* Online html documentation available at
+*            http://www.netlib.org/lapack/explore-html/
+*
+*> \htmlonly
+*> Download ILATRANS + dependencies
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/ilatrans.f">
+*> [TGZ]</a>
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/ilatrans.f">
+*> [ZIP]</a>
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/ilatrans.f">
+*> [TXT]</a>
+*> \endhtmlonly
+*
+*  Definition:
+*  ===========
+*
+*       INTEGER FUNCTION ILATRANS( TRANS )
+*
+*       .. Scalar Arguments ..
+*       CHARACTER          TRANS
+*       ..
+*
+*
+*> \par Purpose:
+*  =============
+*>
+*> \verbatim
+*>
+*> This subroutine translates from a character string specifying a
+*> transposition operation to the relevant BLAST-specified integer
+*> constant.
+*>
+*> ILATRANS returns an INTEGER.  If ILATRANS < 0, then the input is not
+*> a character indicating a transposition operator.  Otherwise ILATRANS
+*> returns the constant value corresponding to TRANS.
+*> \endverbatim
+*
+*  Arguments:
+*  ==========
+*
+*
+*  Authors:
+*  ========
+*
+*> \author Univ. of Tennessee
+*> \author Univ. of California Berkeley
+*> \author Univ. of Colorado Denver
+*> \author NAG Ltd.
+*
+*> \date December 2016
+*
+*> \ingroup auxOTHERcomputational
+*
+*  =====================================================================
+      INTEGER FUNCTION ILATRANS( TRANS )
+*
+*  -- LAPACK computational 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
+*
+*     .. Scalar Arguments ..
+      CHARACTER          TRANS
+*     ..
+*
+*  =====================================================================
+*
+*     .. Parameters ..
+      INTEGER BLAS_NO_TRANS, BLAS_TRANS, BLAS_CONJ_TRANS
+      PARAMETER ( BLAS_NO_TRANS = 111, BLAS_TRANS = 112,
+     $     BLAS_CONJ_TRANS = 113 )
+*     ..
+*     .. External Functions ..
+      LOGICAL            LSAME
+      EXTERNAL           LSAME
+*     ..
+*     .. Executable Statements ..
+      IF( LSAME( TRANS, 'N' ) ) THEN
+         ILATRANS = BLAS_NO_TRANS
+      ELSE IF( LSAME( TRANS, 'T' ) ) THEN
+         ILATRANS = BLAS_TRANS
+      ELSE IF( LSAME( TRANS, 'C' ) ) THEN
+         ILATRANS = BLAS_CONJ_TRANS
+      ELSE
+         ILATRANS = -1
+      END IF
+      RETURN
+*
+*     End of ILATRANS
+*
+      END