|
1
2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 |
INTEGER FUNCTION ILADIAG( DIAG )
* * -- LAPACK routine (version 3.2.1) -- * * -- April 2009 -- * * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- * * .. Scalar Arguments .. CHARACTER DIAG * .. * * 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. * * Arguments * ========= * DIAG (input) CHARACTER*1 * = 'N': A is non-unit triangular; * = 'U': A is unit triangular. * ===================================================================== * * .. 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 * END |