cla_get_logical Subroutine

public subroutine cla_get_logical(key, logical_value)

Arguments

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

Calls

proc~~cla_get_logical~~CallsGraph proc~cla_get_logical cla_get_logical proc~cla_get_char cla_get_char proc~cla_get_logical->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

Called by

proc~~cla_get_logical~~CalledByGraph proc~cla_get_logical cla_get_logical interface~cla_get cla_get interface~cla_get->proc~cla_get_logical proc~get_cla_gvec_to_jorek get_CLA_gvec_to_jorek proc~get_cla_gvec_to_jorek->interface~cla_get program~gvec GVEC program~gvec->interface~cla_get

Source Code

    subroutine cla_get_logical(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_logical