LAPACK  3.8.0
LAPACK: Linear Algebra PACKage

◆ iladiag()

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
December 2016

Definition at line 60 of file iladiag.f.

60 *
61 * -- LAPACK computational routine (version 3.7.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 * December 2016
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 *
integer function iladiag(DIAG)
ILADIAG
Definition: iladiag.f:60
logical function lsame(CA, CB)
LSAME
Definition: lsame.f:55