Loading...
Searching...
No Matches

## 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.