PLASMA  2.4.5
PLASMA - Parallel Linear Algebra for Scalable Multi-core Architectures
 All Data Structures Namespaces Files Functions Variables Typedefs Enumerations Enumerator Macros Groups
lsamen.f
Go to the documentation of this file.
1  LOGICAL FUNCTION lsamen( N, CA, CB )
2 *
3 * -- LAPACK auxiliary routine (version 3.2) --
4 * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
5 * November 2006
6 *
7 * .. Scalar Arguments ..
8  CHARACTER*( * ) ca, cb
9  INTEGER n
10 * ..
11 *
12 * Purpose
13 * =======
14 *
15 * LSAMEN tests if the first N letters of CA are the same as the
16 * first N letters of CB, regardless of case.
17 * LSAMEN returns .TRUE. if CA and CB are equivalent except for case
18 * and .FALSE. otherwise. LSAMEN also returns .FALSE. if LEN( CA )
19 * or LEN( CB ) is less than N.
20 *
21 * Arguments
22 * =========
23 *
24 * N (input) INTEGER
25 * The number of characters in CA and CB to be compared.
26 *
27 * CA (input) CHARACTER*(*)
28 * CB (input) CHARACTER*(*)
29 * CA and CB specify two character strings of length at least N.
30 * Only the first N characters of each string will be accessed.
31 *
32 * =====================================================================
33 *
34 * .. Local Scalars ..
35  INTEGER i
36 * ..
37 * .. External Functions ..
38  LOGICAL lsame
39  EXTERNAL lsame
40 * ..
41 * .. Intrinsic Functions ..
42  INTRINSIC len
43 * ..
44 * .. Executable Statements ..
45 *
46  lsamen = .false.
47  IF( len( ca ).LT.n .OR. len( cb ).LT.n )
48  $ go to 20
49 *
50 * Do for each character in the two strings.
51 *
52  DO 10 i = 1, n
53 *
54 * Test if the characters are equal using LSAME.
55 *
56  IF( .NOT.lsame( ca( i: i ), cb( i: i ) ) )
57  $ go to 20
58 *
59  10 continue
60  lsamen = .true.
61 *
62  20 continue
63  return
64 *
65 * End of LSAMEN
66 *
67  END