LAPACK  3.8.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.
Date
December 2016

Definition at line 60 of file ilatrans.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 trans
68 * ..
69 *
70 * =====================================================================
71 *
72 * .. Parameters ..
73  INTEGER blas_no_trans, blas_trans, blas_conj_trans
74  parameter( blas_no_trans = 111, blas_trans = 112,
75  $ blas_conj_trans = 113 )
76 * ..
77 * .. External Functions ..
78  LOGICAL lsame
79  EXTERNAL lsame
80 * ..
81 * .. Executable Statements ..
82  IF( lsame( trans, 'N' ) ) THEN
83  ilatrans = blas_no_trans
84  ELSE IF( lsame( trans, 'T' ) ) THEN
85  ilatrans = blas_trans
86  ELSE IF( lsame( trans, 'C' ) ) THEN
87  ilatrans = blas_conj_trans
88  ELSE
89  ilatrans = -1
90  END IF
91  RETURN
92 *
93 * End of ILATRANS
94 *
integer function ilatrans(TRANS)
ILATRANS
Definition: ilatrans.f:60
logical function lsame(CA, CB)
LSAME
Definition: lsame.f:55
Here is the caller graph for this function: