char_equal Function

  1. Misc.f90
  2. misc
  3. char_equal

public pure elemental function char_equal(c1, c2)

logical function to compare character keys

Arguments

Type IntentOptional AttributesName
character(len=*), intent(in) :: c1
character(len=*), intent(in) :: c2

Return Value logical


Calls

proc~~char_equal~~CallsGraph proc~char_equal char_equal lowcase lowcase proc~char_equal->lowcase

Called by

proc~~char_equal~~CalledByGraph proc~char_equal char_equal interface~operator(.iseq.) operator(.iseq.) interface~operator(.iseq.)->proc~char_equal

Contents

Source Code

char_equal

Source Code

    pure elemental logical function char_equal(c1,c2)
        character(*), intent(in) :: c1
        character(*), intent(in) :: c2

        char_equal = lowcase(trim(c1))==lowcase(trim(c2))

    end function char_equal