integer function iladiag

(

character

DIAG

)

ILADIAG

Download ILADIAG + dependencies [TGZ] [ZIP] [TXT]

Purpose:

 This subroutine translated from a character string specifying if a
 matrix has unit diagonal or not to the relevant BLAST-specified
 integer constant.

 ILADIAG returns an INTEGER.  If ILADIAG < 0, then the input is not a
 character indicating a unit or non-unit diagonal.  Otherwise ILADIAG
 returns the constant value corresponding to DIAG.

Author

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

Date

November 2011

Definition at line 60 of file iladiag.f.

*
*  -- LAPACK computational routine (version 3.4.0) --
*  -- LAPACK is a software package provided by Univ. of Tennessee,    --
*  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
*     November 2011
*
*     .. Scalar Arguments ..
      CHARACTER          diag
*     ..
*
*  =====================================================================
*
*     .. Parameters ..
      INTEGER blas_non_unit_diag, blas_unit_diag
      parameter( blas_non_unit_diag = 131, blas_unit_diag = 132 )
*     ..
*     .. External Functions ..
      LOGICAL            lsame
      EXTERNAL           lsame
*     ..
*     .. Executable Statements ..
      IF( lsame( diag, 'N' ) ) THEN
         iladiag = blas_non_unit_diag
      ELSE IF( lsame( diag, 'U' ) ) THEN
         iladiag = blas_unit_diag
      ELSE
         iladiag = -1
      END IF
      RETURN
*
*     End of ILADIAG
*