LAPACK  3.10.0
LAPACK: Linear Algebra PACKage

◆ ilatrans()

integer function ilatrans ( character  TRANS)

ILATRANS

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

Purpose:
 This subroutine translates from a character string specifying a
 transposition operation to the relevant BLAST-specified integer
 constant.

 ILATRANS returns an INTEGER.  If ILATRANS < 0, then the input is not
 a character indicating a transposition operator.  Otherwise ILATRANS
 returns the constant value corresponding to TRANS.
Author
Univ. of Tennessee
Univ. of California Berkeley
Univ. of Colorado Denver
NAG Ltd.

Definition at line 57 of file ilatrans.f.

58 *
59 * -- LAPACK computational routine --
60 * -- LAPACK is a software package provided by Univ. of Tennessee, --
61 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
62 *
63 * .. Scalar Arguments ..
64  CHARACTER TRANS
65 * ..
66 *
67 * =====================================================================
68 *
69 * .. Parameters ..
70  INTEGER BLAS_NO_TRANS, BLAS_TRANS, BLAS_CONJ_TRANS
71  parameter( blas_no_trans = 111, blas_trans = 112,
72  $ blas_conj_trans = 113 )
73 * ..
74 * .. External Functions ..
75  LOGICAL LSAME
76  EXTERNAL lsame
77 * ..
78 * .. Executable Statements ..
79  IF( lsame( trans, 'N' ) ) THEN
80  ilatrans = blas_no_trans
81  ELSE IF( lsame( trans, 'T' ) ) THEN
82  ilatrans = blas_trans
83  ELSE IF( lsame( trans, 'C' ) ) THEN
84  ilatrans = blas_conj_trans
85  ELSE
86  ilatrans = -1
87  END IF
88  RETURN
89 *
90 * End of ILATRANS
91 *
logical function lsame(CA, CB)
LSAME
Definition: lsame.f:53
integer function ilatrans(TRANS)
ILATRANS
Definition: ilatrans.f:58
Here is the call graph for this function:
Here is the caller graph for this function: