SRC/iladiag.f

   1 *> \brief \b ILADIAG
   2 *
   3 *  =========== DOCUMENTATION ===========
   4 *
   5 * Online html documentation available at
   6 *            http://www.netlib.org/lapack/explore-html/
   7 *
   8 *> \htmlonly
   9 *> Download ILADIAG + dependencies
  10 *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/iladiag.f">
  11 *> [TGZ]</a>
  12 *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/iladiag.f">
  13 *> [ZIP]</a>
  14 *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/iladiag.f">
  15 *> [TXT]</a>
  16 *> \endhtmlonly
  17 *
  18 *  Definition:
  19 *  ===========
  20 *
  21 *       INTEGER FUNCTION ILADIAG( DIAG )
  22 *
  23 *       .. Scalar Arguments ..
  24 *       CHARACTER          DIAG
  25 *       ..
  26 *
  27 *
  28 *> \par Purpose:
  29 *  =============
  30 *>
  31 *> \verbatim
  32 *>
  33 *> This subroutine translated from a character string specifying if a
  34 *> matrix has unit diagonal or not to the relevant BLAST-specified
  35 *> integer constant.
  36 *>
  37 *> ILADIAG returns an INTEGER.  If ILADIAG < 0, then the input is not a
  38 *> character indicating a unit or non-unit diagonal.  Otherwise ILADIAG
  39 *> returns the constant value corresponding to DIAG.
  40 *> \endverbatim
  41 *
  42 *  Arguments:
  43 *  ==========
  44 *
  45 *
  46 *  Authors:
  47 *  ========
  48 *
  49 *> \author Univ. of Tennessee
  50 *> \author Univ. of California Berkeley
  51 *> \author Univ. of Colorado Denver
  52 *> \author NAG Ltd.
  53 *
  54 *> \date November 2011
  55 *
  56 *> \ingroup auxOTHERcomputational
  57 *
  58 *  =====================================================================
  59       INTEGER FUNCTION ILADIAG( DIAG )
  60 *
  61 *  -- LAPACK computational routine (version 3.4.0) --
  62 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --
  63 *  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
  64 *     November 2011
  65 *
  66 *     .. Scalar Arguments ..
  67       CHARACTER          DIAG
  68 *     ..
  69 *
  70 *  =====================================================================
  71 *
  72 *     .. Parameters ..
  73       INTEGER BLAS_NON_UNIT_DIAG, BLAS_UNIT_DIAG
  74       PARAMETER ( BLAS_NON_UNIT_DIAG = 131, BLAS_UNIT_DIAG = 132 )
  75 *     ..
  76 *     .. External Functions ..
  77       LOGICAL            LSAME
  78       EXTERNAL           LSAME
  79 *     ..
  80 *     .. Executable Statements ..
  81       IF( LSAME( DIAG, 'N' ) ) THEN
  82          ILADIAG = BLAS_NON_UNIT_DIAG
  83       ELSE IF( LSAME( DIAG, 'U' ) ) THEN
  84          ILADIAG = BLAS_UNIT_DIAG
  85       ELSE
  86          ILADIAG = -1
  87       END IF
  88       RETURN
  89 *
  90 *     End of ILADIAG
  91 *
  92       END