species_names_match Function

public function species_names_match(a, b)

Returns true if two species names are identical (case-insensitive, whitespace-trimmed).

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: a

First name.
character(len=*), intent(in) :: b

Second name.

Return Value logical


Source Code

   logical function species_names_match(a, b)
      character(len=*), intent(in) :: a !< First name string to compare.
      character(len=*), intent(in) :: b !< Second name string to compare.
      species_names_match = trim(lowercase(adjustl(a))) == trim(lowercase(adjustl(b)))
   end function species_names_match