is_called_group Function

private function is_called_group(self, group) result(called)

Check if a CLAs group has been run.

Type Bound

command_line_interface

Arguments

Type IntentOptional Attributes Name
class(command_line_interface), intent(in) :: self

CLI data.
character(len=*), intent(in) :: group

Name of group (command) of CLAs.

Return Value logical

Check if a CLAs group has been runned.


Calls

proc~~is_called_group~~CallsGraph proc~is_called_group flap_command_line_interface_t::command_line_interface%is_called_group proc~is_defined_group flap_command_line_interface_t::command_line_interface%is_defined_group proc~is_called_group->proc~is_defined_group

Called by

proc~~is_called_group~~CalledByGraph proc~is_called_group flap_command_line_interface_t::command_line_interface%is_called_group program~flap_test_group_examples flap_test_group_examples program~flap_test_group_examples->proc~is_called_group program~flap_test_nested flap_test_nested program~flap_test_nested->proc~is_called_group

Source Code

  function is_called_group(self, group) result(called)
  !< Check if a CLAs group has been run.
  class(command_line_interface), intent(in) :: self   !< CLI data.
  character(*),                  intent(in) :: group  !< Name of group (command) of CLAs.
  logical                                   :: called !< Check if a CLAs group has been runned.
  integer(I4P)                              :: g      !< Counter.

  called = .false.
  if (self%is_defined_group(group=group, g=g)) called = self%clasg(g)%is_called
  endfunction is_called_group