clasg_assign_clasg Subroutine

private elemental subroutine clasg_assign_clasg(lhs, rhs)

Assignment operator.

Type Bound

command_line_arguments_group

Arguments

Type IntentOptional Attributes Name
class(command_line_arguments_group), intent(inout) :: lhs

Left hand side.
type(command_line_arguments_group), intent(in) :: rhs

Right hand side.

Calls

proc~~clasg_assign_clasg~~CallsGraph proc~clasg_assign_clasg flap_command_line_arguments_group_t::command_line_arguments_group%clasg_assign_clasg proc~assign_object flap_object_t::object%assign_object proc~clasg_assign_clasg->proc~assign_object

Source Code

  elemental subroutine clasg_assign_clasg(lhs, rhs)
  !< Assignment operator.
  class(command_line_arguments_group), intent(INOUT) :: lhs !< Left hand side.
  type(command_line_arguments_group),  intent(IN)    :: rhs !< Right hand side.

  ! object members
  call lhs%assign_object(rhs)
  ! command_line_arguments_group members
  if (allocated(rhs%group)) lhs%group = rhs%group
  if (allocated(rhs%cla  )) then
    if (allocated(lhs%cla)) deallocate(lhs%cla) ; allocate(lhs%cla(1:size(rhs%cla,dim=1)),source=rhs%cla)
  endif
  lhs%Na          = rhs%Na
  lhs%Na_required = rhs%Na_required
  lhs%Na_optional = rhs%Na_optional
  lhs%is_called   = rhs%is_called
  endsubroutine clasg_assign_clasg