cla_get_flag Subroutine

public subroutine cla_get_flag(key, logical_value)

Arguments

Type IntentOptional Attributes Name
character(len=*) :: key
logical :: logical_value

Calls

proc~~cla_get_flag~~CallsGraph proc~cla_get_flag cla_get_flag proc~cla_get_char cla_get_char proc~cla_get_flag->proc~cla_get_char proc~cla_command_argument_count cla_command_argument_count proc~cla_get_char->proc~cla_command_argument_count proc~cla_get_command_argument cla_get_command_argument proc~cla_get_char->proc~cla_get_command_argument 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_str_eq cla_str_eq proc~cla_get_char->proc~cla_str_eq proc~cla_key_arg_match->proc~cla_str_eq proc~cla_show->proc~cla_get_char proc~cla_key_present cla_key_present proc~cla_show->proc~cla_key_present proc~cla_message cla_message proc~cla_show->proc~cla_message proc~cla_key_present->proc~cla_command_argument_count proc~cla_key_present->proc~cla_get_command_argument proc~cla_key_present->proc~cla_key_arg_match proc~cla_key_present->proc~cla_show proc~cla_fatal cla_fatal proc~cla_key_present->proc~cla_fatal

Source Code

    subroutine cla_get_flag(key,logical_value)
      implicit none
      character(len=*)  :: key
      character(len=STRLEN)  :: value
      logical :: logical_value
      integer(kind=int_kind) :: k

      logical_value = .false.

      call cla_get_char(key,value)
      if (index(trim(value),trim(cla_empty)) == 0) then
         do k=1,6
            if (index(trim(value),trim(cla_true_str(k))) /= 0) then
               logical_value = .true.
            endif
         end do
      end if
    end subroutine cla_get_flag