Return to lsamen.f CVS log

Up to [local] / rpl / lapack / lapack

Annotation of rpl/lapack/lapack/lsamen.f, revision 1.9

1.9     ! bertrand    1: *> \brief \b LSAMEN
        !             2: *
        !             3: *  =========== DOCUMENTATION ===========
        !             4: *
        !             5: * Online html documentation available at 
        !             6: *            http://www.netlib.org/lapack/explore-html/ 
        !             7: *
        !             8: *> \htmlonly
        !             9: *> Download LSAMEN + dependencies 
        !            10: *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/lsamen.f"> 
        !            11: *> [TGZ]</a> 
        !            12: *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/lsamen.f"> 
        !            13: *> [ZIP]</a> 
        !            14: *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/lsamen.f"> 
        !            15: *> [TXT]</a>
        !            16: *> \endhtmlonly 
        !            17: *
        !            18: *  Definition:
        !            19: *  ===========
        !            20: *
        !            21: *       LOGICAL          FUNCTION LSAMEN( N, CA, CB )
        !            22: * 
        !            23: *       .. Scalar Arguments ..
        !            24: *       CHARACTER*( * )    CA, CB
        !            25: *       INTEGER            N
        !            26: *       ..
        !            27: *  
        !            28: *
        !            29: *> \par Purpose:
        !            30: *  =============
        !            31: *>
        !            32: *> \verbatim
        !            33: *>
        !            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.
        !            39: *> \endverbatim
        !            40: *
        !            41: *  Arguments:
        !            42: *  ==========
        !            43: *
        !            44: *> \param[in] N
        !            45: *> \verbatim
        !            46: *>          N is INTEGER
        !            47: *>          The number of characters in CA and CB to be compared.
        !            48: *> \endverbatim
        !            49: *>
        !            50: *> \param[in] CA
        !            51: *> \verbatim
        !            52: *>          CA is CHARACTER*(*)
        !            53: *> \endverbatim
        !            54: *>
        !            55: *> \param[in] CB
        !            56: *> \verbatim
        !            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.
        !            60: *> \endverbatim
        !            61: *
        !            62: *  Authors:
        !            63: *  ========
        !            64: *
        !            65: *> \author Univ. of Tennessee 
        !            66: *> \author Univ. of California Berkeley 
        !            67: *> \author Univ. of Colorado Denver 
        !            68: *> \author NAG Ltd. 
        !            69: *
        !            70: *> \date November 2011
        !            71: *
        !            72: *> \ingroup auxOTHERauxiliary
        !            73: *
        !            74: *  =====================================================================
1.1       bertrand   75:       LOGICAL          FUNCTION LSAMEN( N, CA, CB )
                     76: *
1.9     ! bertrand   77: *  -- LAPACK auxiliary routine (version 3.4.0) --
1.1       bertrand   78: *  -- LAPACK is a software package provided by Univ. of Tennessee,    --
                     79: *  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
1.9     ! bertrand   80: *     November 2011
1.1       bertrand   81: *
                     82: *     .. Scalar Arguments ..
                     83:       CHARACTER*( * )    CA, CB
                     84:       INTEGER            N
                     85: *     ..
                     86: *
                     87: * =====================================================================
                     88: *
                     89: *     .. Local Scalars ..
                     90:       INTEGER            I
                     91: *     ..
                     92: *     .. External Functions ..
                     93:       LOGICAL            LSAME
                     94:       EXTERNAL           LSAME
                     95: *     ..
                     96: *     .. Intrinsic Functions ..
                     97:       INTRINSIC          LEN
                     98: *     ..
                     99: *     .. Executable Statements ..
                    100: *
                    101:       LSAMEN = .FALSE.
                    102:       IF( LEN( CA ).LT.N .OR. LEN( CB ).LT.N )
                    103:      $   GO TO 20
                    104: *
                    105: *     Do for each character in the two strings.
                    106: *
                    107:       DO 10 I = 1, N
                    108: *
                    109: *        Test if the characters are equal using LSAME.
                    110: *
                    111:          IF( .NOT.LSAME( CA( I: I ), CB( I: I ) ) )
                    112:      $      GO TO 20
                    113: *
                    114:    10 CONTINUE
                    115:       LSAMEN = .TRUE.
                    116: *
                    117:    20 CONTINUE
                    118:       RETURN
                    119: *
                    120: *     End of LSAMEN
                    121: *
                    122:       END