cla_str_eq Function

public function cla_str_eq(str1, str2)

Arguments

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

Return Value logical


Called by

proc~~cla_str_eq~~CalledByGraph proc~cla_str_eq cla_str_eq proc~cla_get_char cla_get_char proc~cla_get_char->proc~cla_str_eq proc~cla_key_arg_match cla_key_arg_match proc~cla_get_char->proc~cla_key_arg_match proc~cla_show cla_show proc~cla_get_char->proc~cla_show proc~cla_key_arg_match->proc~cla_str_eq proc~cla_posarg_register cla_posarg_register proc~cla_posarg_register->proc~cla_str_eq proc~cla_register cla_register proc~cla_register->proc~cla_str_eq proc~cla_validate_info cla_validate_info proc~cla_validate_info->proc~cla_str_eq proc~cla_validate_info->proc~cla_key_arg_match interface~cla_get cla_get interface~cla_get->proc~cla_get_char proc~cla_get_float_r4 cla_get_float_r4 interface~cla_get->proc~cla_get_float_r4 proc~cla_get_float_r8 cla_get_float_r8 interface~cla_get->proc~cla_get_float_r8 proc~cla_get_int_i4 cla_get_int_i4 interface~cla_get->proc~cla_get_int_i4 proc~cla_get_int_i8 cla_get_int_i8 interface~cla_get->proc~cla_get_int_i8 proc~cla_get_logical cla_get_logical interface~cla_get->proc~cla_get_logical proc~cla_get_flag cla_get_flag proc~cla_get_flag->proc~cla_get_char proc~cla_get_float_r4->proc~cla_get_char proc~cla_get_float_r8->proc~cla_get_char proc~cla_get_int_i4->proc~cla_get_char proc~cla_get_int_i8->proc~cla_get_char proc~cla_get_logical->proc~cla_get_char proc~cla_key_present cla_key_present proc~cla_key_present->proc~cla_key_arg_match proc~cla_key_present->proc~cla_show proc~cla_show->proc~cla_get_char proc~cla_show->proc~cla_key_present proc~cla_validate cla_validate proc~cla_validate->proc~cla_validate_info proc~get_cla_gvec_to_jorek get_CLA_gvec_to_jorek proc~get_cla_gvec_to_jorek->proc~cla_posarg_register proc~get_cla_gvec_to_jorek->proc~cla_register proc~get_cla_gvec_to_jorek->interface~cla_get proc~get_cla_gvec_to_jorek->proc~cla_key_present proc~get_cla_gvec_to_jorek->proc~cla_validate program~gvec GVEC program~gvec->proc~cla_posarg_register program~gvec->interface~cla_get program~gvec->proc~cla_validate

Source Code

    logical function cla_str_eq(str1,str2)
      implicit none
      character(*) :: str1, str2
      integer :: str_test
      str_test = index(trim(str1),trim(str2))*index(trim(str2),trim(str1))
      cla_str_eq = .false.
      if (str_test /= 0) cla_str_eq = .true.
    end function cla_str_eq