SRC/ilauplo.f

   1 *> \brief \b ILAUPLO
   2 *
   3 *  =========== DOCUMENTATION ===========
   4 *
   5 * Online html documentation available at
   6 *            http://www.netlib.org/lapack/explore-html/
   7 *
   8 *> \htmlonly
   9 *> Download ILAUPLO + dependencies
  10 *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/ilauplo.f">
  11 *> [TGZ]</a>
  12 *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/ilauplo.f">
  13 *> [ZIP]</a>
  14 *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/ilauplo.f">
  15 *> [TXT]</a>
  16 *> \endhtmlonly
  17 *
  18 *  Definition:
  19 *  ===========
  20 *
  21 *       INTEGER FUNCTION ILAUPLO( UPLO )
  22 *
  23 *       .. Scalar Arguments ..
  24 *       CHARACTER          UPLO
  25 *       ..
  26 *
  27 *
  28 *> \par Purpose:
  29 *  =============
  30 *>
  31 *> \verbatim
  32 *>
  33 *> This subroutine translated from a character string specifying a
  34 *> upper- or lower-triangular matrix to the relevant BLAST-specified
  35 *> integer constant.
  36 *>
  37 *> ILAUPLO returns an INTEGER.  If ILAUPLO < 0, then the input is not
  38 *> a character indicating an upper- or lower-triangular matrix.
  39 *> Otherwise ILAUPLO returns the constant value corresponding to UPLO.
  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 ILAUPLO( UPLO )
  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          UPLO
  68 *     ..
  69 *
  70 *  =====================================================================
  71 *
  72 *     .. Parameters ..
  73       INTEGER BLAS_UPPER, BLAS_LOWER
  74       PARAMETER ( BLAS_UPPER = 121, BLAS_LOWER = 122 )
  75 *     ..
  76 *     .. External Functions ..
  77       LOGICAL            LSAME
  78       EXTERNAL           LSAME
  79 *     ..
  80 *     .. Executable Statements ..
  81       IF( LSAME( UPLO, 'U' ) ) THEN
  82          ILAUPLO = BLAS_UPPER
  83       ELSE IF( LSAME( UPLO, 'L' ) ) THEN
  84          ILAUPLO = BLAS_LOWER
  85       ELSE
  86          ILAUPLO = -1
  87       END IF
  88       RETURN
  89 *
  90 *     End of ILAUPLO
  91 *
  92       END