Return to lsamen.f CVS log

Up to [local] / rpl / lapack / lapack

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

1.1     ! bertrand    1:       LOGICAL          FUNCTION LSAMEN( N, CA, CB )
        !             2: *
        !             3: *  -- LAPACK auxiliary routine (version 3.2) --
        !             4: *  -- LAPACK is a software package provided by Univ. of Tennessee,    --
        !             5: *  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
        !             6: *     November 2006
        !             7: *
        !             8: *     .. Scalar Arguments ..
        !             9:       CHARACTER*( * )    CA, CB
        !            10:       INTEGER            N
        !            11: *     ..
        !            12: *
        !            13: *  Purpose
        !            14: *  =======
        !            15: *
        !            16: *  LSAMEN  tests if the first N letters of CA are the same as the
        !            17: *  first N letters of CB, regardless of case.
        !            18: *  LSAMEN returns .TRUE. if CA and CB are equivalent except for case
        !            19: *  and .FALSE. otherwise.  LSAMEN also returns .FALSE. if LEN( CA )
        !            20: *  or LEN( CB ) is less than N.
        !            21: *
        !            22: *  Arguments
        !            23: *  =========
        !            24: *
        !            25: *  N       (input) INTEGER
        !            26: *          The number of characters in CA and CB to be compared.
        !            27: *
        !            28: *  CA      (input) CHARACTER*(*)
        !            29: *  CB      (input) CHARACTER*(*)
        !            30: *          CA and CB specify two character strings of length at least N.
        !            31: *          Only the first N characters of each string will be accessed.
        !            32: *
        !            33: * =====================================================================
        !            34: *
        !            35: *     .. Local Scalars ..
        !            36:       INTEGER            I
        !            37: *     ..
        !            38: *     .. External Functions ..
        !            39:       LOGICAL            LSAME
        !            40:       EXTERNAL           LSAME
        !            41: *     ..
        !            42: *     .. Intrinsic Functions ..
        !            43:       INTRINSIC          LEN
        !            44: *     ..
        !            45: *     .. Executable Statements ..
        !            46: *
        !            47:       LSAMEN = .FALSE.
        !            48:       IF( LEN( CA ).LT.N .OR. LEN( CB ).LT.N )
        !            49:      $   GO TO 20
        !            50: *
        !            51: *     Do for each character in the two strings.
        !            52: *
        !            53:       DO 10 I = 1, N
        !            54: *
        !            55: *        Test if the characters are equal using LSAME.
        !            56: *
        !            57:          IF( .NOT.LSAME( CA( I: I ), CB( I: I ) ) )
        !            58:      $      GO TO 20
        !            59: *
        !            60:    10 CONTINUE
        !            61:       LSAMEN = .TRUE.
        !            62: *
        !            63:    20 CONTINUE
        !            64:       RETURN
        !            65: *
        !            66: *     End of LSAMEN
        !            67: *
        !            68:       END