mod_cooling_settings Module

Contents

Derived Types

cooling_settings_t

Functions

new_cooling_settings is_enabled get_interpolation_points get_cooling_curve

Subroutines

enable disable set_interpolation_points set_cooling_curve

Derived Types

type, public :: cooling_settings_t

Components

Type	Visibility	Attributes		Name		Initial
integer,	private		::	n_interp
character,	private,	allocatable	::	cooling_curve
logical,	private		::	has_cooling

Type-Bound Procedures

procedure, public :: enable
procedure, public :: disable
procedure, public :: is_enabled
procedure, public :: set_interpolation_points
procedure, public :: get_interpolation_points
procedure, public :: set_cooling_curve
procedure, public :: get_cooling_curve

Functions

public pure function new_cooling_settings() result(cooling)

Arguments

None

Return Value type(cooling_settings_t)

private pure function is_enabled(this)

Arguments

Type	Intent	Optional	Attributes		Name
class(cooling_settings_t),	intent(in)			::	this

Return Value logical

private pure function get_interpolation_points(this)

Arguments

Type	Intent	Optional	Attributes		Name
class(cooling_settings_t),	intent(in)			::	this

Return Value integer

private pure function get_cooling_curve(this) result(cooling_curve)

Arguments

Type	Intent	Optional	Attributes		Name
class(cooling_settings_t),	intent(in)			::	this

Return Value character,allocatable

Subroutines

private pure subroutine enable(this)

Arguments

Type	Intent	Optional	Attributes		Name
class(cooling_settings_t),	intent(inout)			::	this

private pure subroutine disable(this)

Arguments

Type	Intent	Optional	Attributes		Name
class(cooling_settings_t),	intent(inout)			::	this

private pure subroutine set_interpolation_points(this, n_interp)

Arguments

Type	Intent	Optional	Attributes		Name
class(cooling_settings_t),	intent(inout)			::	this
integer,	intent(in)			::	n_interp

private pure subroutine set_cooling_curve(this, cooling_curve)

Arguments

Type	Intent	Optional	Attributes		Name
class(cooling_settings_t),	intent(inout)			::	this
character(len=*),	intent(in)			::	cooling_curve