SpinProj_t Derived Type

type, public :: SpinProj_t

Contents

Variables

val

Type-Bound Procedures

eq_SpinProj_t_SpinProj_t operator(==) neq_SpinProj_t_SpinProj_t operator(/=) add_SpinProj_t_SpinProj_t operator(+) mult_SpinProj_t_int operator(*) sub_SpinProj_t_SpinProj_t neg_SpinProj_t operator(-)

Components

Type	Visibility	Attributes		Name		Initial
integer,	public		::	val			Twice the spin projection as integer. $S_z = 2 \cdot \text{val}$

Type-Bound Procedures

procedure, private, :: eq_SpinProj_t_SpinProj_t

private elemental function eq_SpinProj_t_SpinProj_t(lhs, rhs) result(res)

Arguments

Type	Intent	Optional	Attributes		Name
class(SpinProj_t),	intent(in)			::	lhs
class(SpinProj_t),	intent(in)			::	rhs

Return Value logical

generic, public :: operator(==) => eq_SpinProj_t_SpinProj_t

private elemental function eq_SpinProj_t_SpinProj_t(lhs, rhs) result(res)

Arguments

Type	Intent	Optional	Attributes		Name
class(SpinProj_t),	intent(in)			::	lhs
class(SpinProj_t),	intent(in)			::	rhs

Return Value logical

procedure, private, :: neq_SpinProj_t_SpinProj_t

private elemental function neq_SpinProj_t_SpinProj_t(lhs, rhs) result(res)

Arguments

Type	Intent	Optional	Attributes		Name
class(SpinProj_t),	intent(in)			::	lhs
class(SpinProj_t),	intent(in)			::	rhs

Return Value logical

generic, public :: operator(/=) => neq_SpinProj_t_SpinProj_t

private elemental function neq_SpinProj_t_SpinProj_t(lhs, rhs) result(res)

Arguments

Type	Intent	Optional	Attributes		Name
class(SpinProj_t),	intent(in)			::	lhs
class(SpinProj_t),	intent(in)			::	rhs

Return Value logical

procedure, private, :: add_SpinProj_t_SpinProj_t

private elemental function add_SpinProj_t_SpinProj_t(lhs, rhs) result(res)

Arguments

Type	Intent	Optional	Attributes		Name
class(SpinProj_t),	intent(in)			::	lhs
class(SpinProj_t),	intent(in)			::	rhs

Return Value type(SpinProj_t)

generic, public :: operator(+) => add_SpinProj_t_SpinProj_t

private elemental function add_SpinProj_t_SpinProj_t(lhs, rhs) result(res)

Arguments

Type	Intent	Optional	Attributes		Name
class(SpinProj_t),	intent(in)			::	lhs
class(SpinProj_t),	intent(in)			::	rhs

Return Value type(SpinProj_t)

procedure, private, :: mult_SpinProj_t_int

private elemental function mult_SpinProj_t_int(lhs, rhs) result(res)

Arguments

Type	Intent	Optional	Attributes		Name
class(SpinProj_t),	intent(in)			::	lhs
integer,	intent(in)			::	rhs

Return Value type(SpinProj_t)

generic, public :: **operator(*)** => mult_SpinProj_t_int

private elemental function mult_SpinProj_t_int(lhs, rhs) result(res)

Arguments

Type	Intent	Optional	Attributes		Name
class(SpinProj_t),	intent(in)			::	lhs
integer,	intent(in)			::	rhs

Return Value type(SpinProj_t)

procedure, private, :: sub_SpinProj_t_SpinProj_t

private elemental function sub_SpinProj_t_SpinProj_t(lhs, rhs) result(res)

Arguments

Type	Intent	Optional	Attributes		Name
class(SpinProj_t),	intent(in)			::	lhs
class(SpinProj_t),	intent(in)			::	rhs

Return Value type(SpinProj_t)

procedure, private, :: neg_SpinProj_t

private elemental function neg_SpinProj_t(m_s) result(res)

Arguments

Type	Intent	Optional	Attributes		Name
class(SpinProj_t),	intent(in)			::	m_s

Return Value type(SpinProj_t)

generic, public :: operator(-) => sub_SpinProj_t_SpinProj_t, neg_SpinProj_t

private elemental function sub_SpinProj_t_SpinProj_t(lhs, rhs) result(res)

Arguments

Type	Intent	Optional	Attributes		Name
class(SpinProj_t),	intent(in)			::	lhs
class(SpinProj_t),	intent(in)			::	rhs

Return Value type(SpinProj_t)

private elemental function neg_SpinProj_t(m_s) result(res)

Arguments

Type	Intent	Optional	Attributes		Name
class(SpinProj_t),	intent(in)			::	m_s

Return Value type(SpinProj_t)