reset_stir_config Subroutine

private subroutine reset_stir_config(self)

Resets the config object to the initial empty state

Type Bound

stir_config_type

Arguments

Type IntentOptional Attributes Name
class(stir_config_type), intent(inout) :: self

Contents

Source Code


Source Code

  subroutine reset_stir_config(self)
    class(stir_config_type), intent(in out) :: self
    type(stir_config_type) :: empty
    select type (self)
    type is (stir_config_type)
       self = empty
    end select
  end subroutine reset_stir_config