3
* =========== DOCUMENTATION ===========
5
* Online html documentation available at
6
* http://www.netlib.org/lapack/explore-html/
9
*> Download LSAMEN + dependencies
10
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/lsamen.f">
12
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/lsamen.f">
14
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/lsamen.f">
21
* LOGICAL FUNCTION LSAMEN( N, CA, CB )
23
* .. Scalar Arguments ..
24
* CHARACTER*( * ) CA, CB
34
*> LSAMEN tests if the first N letters of CA are the same as the
35
*> first N letters of CB, regardless of case.
36
*> LSAMEN returns .TRUE. if CA and CB are equivalent except for case
37
*> and .FALSE. otherwise. LSAMEN also returns .FALSE. if LEN( CA )
38
*> or LEN( CB ) is less than N.
47
*> The number of characters in CA and CB to be compared.
52
*> CA is CHARACTER*(*)
57
*> CB is CHARACTER*(*)
58
*> CA and CB specify two character strings of length at least N.
59
*> Only the first N characters of each string will be accessed.
65
*> \author Univ. of Tennessee
66
*> \author Univ. of California Berkeley
67
*> \author Univ. of Colorado Denver
70
*> \date November 2011
72
*> \ingroup auxOTHERauxiliary
74
* =====================================================================
1
75
LOGICAL FUNCTION LSAMEN( N, CA, CB )
3
* -- LAPACK auxiliary routine (version 2.0) --
4
* Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd.,
5
* Courant Institute, Argonne National Lab, and Rice University
77
* -- LAPACK auxiliary routine (version 3.4.0) --
78
* -- LAPACK is a software package provided by Univ. of Tennessee, --
79
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
8
82
* .. Scalar Arguments ..
9
83
CHARACTER*( * ) CA, CB
14
* $Id: lsamen.f 19697 2010-10-29 16:57:34Z d3y133 $
19
* LSAMEN tests if the first N letters of CA are the same as the
20
* first N letters of CB, regardless of case.
21
* LSAMEN returns .TRUE. if CA and CB are equivalent except for case
22
* and .FALSE. otherwise. LSAMEN also returns .FALSE. if LEN( CA )
23
* or LEN( CB ) is less than N.
29
* The number of characters in CA and CB to be compared.
31
* CA (input) CHARACTER*(*)
32
* CB (input) CHARACTER*(*)
33
* CA and CB specify two character strings of length at least N.
34
* Only the first N characters of each string will be accessed.
36
87
* =====================================================================
38
89
* .. Local Scalars ..