*> \brief \b LSAMEN * * =========== DOCUMENTATION =========== * * Online html documentation available at * http://www.netlib.org/lapack/explore-html/ * *> \htmlonly *> Download LSAMEN + dependencies *> *> [TGZ] *> *> [ZIP] *> *> [TXT] *> \endhtmlonly * * Definition: * =========== * * LOGICAL FUNCTION LSAMEN( N, CA, CB ) * * .. Scalar Arguments .. * CHARACTER*( * ) CA, CB * INTEGER N * .. * * *> \par Purpose: * ============= *> *> \verbatim *> *> 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. *> \endverbatim * * Arguments: * ========== * *> \param[in] N *> \verbatim *> N is INTEGER *> The number of characters in CA and CB to be compared. *> \endverbatim *> *> \param[in] CA *> \verbatim *> CA is CHARACTER*(*) *> \endverbatim *> *> \param[in] CB *> \verbatim *> 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. *> \endverbatim * * Authors: * ======== * *> \author Univ. of Tennessee *> \author Univ. of California Berkeley *> \author Univ. of Colorado Denver *> \author NAG Ltd. * *> \date December 2016 * *> \ingroup OTHERauxiliary * * ===================================================================== LOGICAL FUNCTION LSAMEN( N, CA, CB ) * * -- LAPACK auxiliary routine (version 3.7.0) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- * December 2016 * * .. Scalar Arguments .. CHARACTER*( * ) CA, CB INTEGER N * .. * * ===================================================================== * * .. Local Scalars .. INTEGER I * .. * .. External Functions .. LOGICAL LSAME EXTERNAL LSAME * .. * .. Intrinsic Functions .. INTRINSIC LEN * .. * .. Executable Statements .. * LSAMEN = .FALSE. IF( LEN( CA ).LT.N .OR. LEN( CB ).LT.N ) $ GO TO 20 * * Do for each character in the two strings. * DO 10 I = 1, N * * Test if the characters are equal using LSAME. * IF( .NOT.LSAME( CA( I: I ), CB( I: I ) ) ) $ GO TO 20 * 10 CONTINUE LSAMEN = .TRUE. * 20 CONTINUE RETURN * * End of LSAMEN * END