reset_normalisations_config Subroutine

private subroutine reset_normalisations_config(self)

Resets the config object to the initial empty state

Type Bound

normalisations_config_type

Arguments

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

Contents

Source Code

reset_normalisations_config

Source Code

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