cla_eq Function

public function cla_eq(str1, str2)

Arguments

Type IntentOptional Attributes Name
character(len=*) :: str1
character(len=*) :: str2

Return Value integer


Source Code

    integer function cla_eq(str1,str2)
      implicit none
      character(*) :: str1, str2
      cla_eq = index(trim(str1),trim(str2))*index(trim(str2),trim(str1))
    end function cla_eq