lsamen()

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.

Definition at line 71 of file lsamen.f.

*
*  -- LAPACK auxiliary routine --
*  -- LAPACK is a software package provided by Univ. of Tennessee,    --
*  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
*
*     .. 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 call graph for this function:

Here is the caller graph for this function: