LAPACK 3.11.0 LAPACK: Linear Algebra PACKage
Searching...
No Matches

## ◆ lsamen()

 logical function lsamen ( integer N, character*( * ) CA, character*( * ) CB )

LSAMEN

Purpose:
``` LSAMEN  tests if the first N letters of CA are the same as the
first N letters of CB, regardless of case.
LSAMEN returns .TRUE. if CA and CB are equivalent except for case
and .FALSE. otherwise.  LSAMEN also returns .FALSE. if LEN( CA )
or LEN( CB ) is less than N.```
Parameters
 [in] N ``` N is INTEGER The number of characters in CA and CB to be compared.``` [in] CA ` CA is CHARACTER*(*)` [in] CB ``` CB is CHARACTER*(*) CA and CB specify two character strings of length at least N. Only the first N characters of each string will be accessed.```

Definition at line 73 of file lsamen.f.

74*
75* -- LAPACK auxiliary routine --
76* -- LAPACK is a software package provided by Univ. of Tennessee, --
77* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
78*
79* .. Scalar Arguments ..
80 CHARACTER*( * ) CA, CB
81 INTEGER N
82* ..
83*
84* =====================================================================
85*
86* .. Local Scalars ..
87 INTEGER I
88* ..
89* .. External Functions ..
90 LOGICAL LSAME
91 EXTERNAL lsame
92* ..
93* .. Intrinsic Functions ..
94 INTRINSIC len
95* ..
96* .. Executable Statements ..
97*
98 lsamen = .false.
99 IF( len( ca ).LT.n .OR. len( cb ).LT.n )
100 \$ GO TO 20
101*
102* Do for each character in the two strings.
103*
104 DO 10 i = 1, n
105*
106* Test if the characters are equal using LSAME.
107*
108 IF( .NOT.lsame( ca( i: i ), cb( i: i ) ) )
109 \$ GO TO 20
110*
111 10 CONTINUE
112 lsamen = .true.
113*
114 20 CONTINUE
115 RETURN
116*
117* End of LSAMEN
118*
logical function lsamen(N, CA, CB)
LSAMEN
Definition: lsamen.f:74
logical function lsame(CA, CB)
LSAME
Definition: lsame.f:53
Here is the call graph for this function:
Here is the caller graph for this function: