cla_key_arg_match Function

public function cla_key_arg_match(key, longkey, arg)

Arguments

Type IntentOptional Attributes Name
character(len=*) :: key
character(len=*) :: longkey
character(len=*) :: arg

Return Value logical


Calls

proc~~cla_key_arg_match~~CallsGraph proc~cla_key_arg_match cla_key_arg_match proc~cla_str_eq cla_str_eq proc~cla_key_arg_match->proc~cla_str_eq

Called by

proc~~cla_key_arg_match~~CalledByGraph proc~cla_key_arg_match cla_key_arg_match proc~cla_get_char cla_get_char proc~cla_get_char->proc~cla_key_arg_match proc~cla_show cla_show proc~cla_get_char->proc~cla_show 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_validate_info cla_validate_info 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_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_key_present proc~get_cla_gvec_to_jorek->interface~cla_get proc~get_cla_gvec_to_jorek->proc~cla_validate program~gvec GVEC program~gvec->interface~cla_get program~gvec->proc~cla_validate

Source Code

    logical function cla_key_arg_match(key,longkey,arg)
      implicit none
      ! do a match that includes two alternate keys and possibility of = in arg
      integer :: iequal
      character(*) :: key,longkey,arg
      cla_key_arg_match = .false.
      cla_key_arg_match = cla_str_eq(trim(key),trim(arg)) .or. &
                      cla_str_eq(trim(longkey),trim(arg))
      if (cla_key_arg_match) return
      iequal = index(arg,"=")
      if (iequal > 1) &
         cla_key_arg_match = cla_str_eq(trim(key),arg(1:(iequal-1))) .or. &
                         cla_str_eq(trim(longkey),arg(1:(iequal-1)))
    end function cla_key_arg_match