logical function lsamen	(	integer	N,
		character*( * )	CA,
		character*( * )	CB
	)

LSAMEN

Download LSAMEN + dependencies [TGZ] [ZIP] [TXT]

Purpose:

 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.

Parameters

[in]	N	N is INTEGER The number of characters in CA and CB to be compared.
[in]	CA	CA is CHARACTER*(*)
[in]	CB	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.

Author

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

Date

November 2011

Definition at line 76 of file lsamen.f.

*
*  -- LAPACK auxiliary routine (version 3.4.0) --
*  -- LAPACK is a software package provided by Univ. of Tennessee,    --
*  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
*     November 2011
*
*     .. 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
*

Here is the caller graph for this function: