reset_theta_grid_salpha_config Subroutine

private subroutine reset_theta_grid_salpha_config(self)

Resets the config object to the initial empty state

Type Bound

theta_grid_salpha_config_type

Arguments

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

Contents


Source Code

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