Calculate_HCF_Durner_Implementation Submodule

Uses

- Ancestors:
- Calculate_HCF
Help

Graph Key

Nodes of different colours represent the following:

Solid arrows point from a submodule to the (sub)module which it is descended from. Dashed arrows point from a module or program unit to modules which it uses.
Where possible, edges connecting nodes are given different colours to make them easier to distinguish in large graphs.

Module Functions

module function Calculate_Kflh_Base_Durner(self, h) result(Kflh)

Arguments

Type	Intent	Optional	Attributes		Name
class(Type_HCF_Base_Durner),	intent(in)			::	self
real(kind=real64),	intent(in)			::	h

Return Value real(kind=real64)

module function Calculate_Kflh_Base_Impedance_Durner(self, h, thetaI) result(Kflh)

Arguments

Type	Intent	Optional	Attributes		Name
class(Type_HCF_Base_Impedance_Durner),	intent(in)			::	self
real(kind=real64),	intent(in)			::	h
real(kind=real64),	intent(in)			::	thetaI

Return Value real(kind=real64)

module function Calculate_Kflh_Base_Impedance_Viscosity_Durner(self, h, thetaI, Temperature) result(Kflh)

Arguments

Type	Intent	Optional	Attributes		Name
class(Type_HCF_Base_Impedance_Viscosity_Durner),	intent(in)			::	self
real(kind=real64),	intent(in)			::	h
real(kind=real64),	intent(in)			::	thetaI
real(kind=real64),	intent(in)			::	Temperature

Return Value real(kind=real64)

module function Calculate_Kflh_Base_Viscosity_Durner(self, h, Temperature) result(Kflh)

Arguments

Type	Intent	Optional	Attributes		Name
class(Type_HCF_Base_Viscosity_Durner),	intent(in)			::	self
real(kind=real64),	intent(in)			::	h
real(kind=real64),	intent(in)			::	Temperature

Return Value real(kind=real64)

module function Calculate_kr_Base_Durner(self, h) result(kr)

Arguments

Type	Intent	Optional	Attributes		Name
class(Type_HCF_Base_Durner),	intent(in)			::	self
real(kind=real64),	intent(in)			::	h

Return Value real(kind=real64)

module function Calculate_kr_Base_Impedance_Durner(self, h) result(kr)

Arguments

Type	Intent	Optional	Attributes		Name
class(Type_HCF_Base_Impedance_Durner),	intent(in)			::	self
real(kind=real64),	intent(in)			::	h

Return Value real(kind=real64)

module function Calculate_kr_Base_Impedance_Viscosity_Durner(self, h) result(kr)

Arguments

Type	Intent	Optional	Attributes		Name
class(Type_HCF_Base_Impedance_Viscosity_Durner),	intent(in)			::	self
real(kind=real64),	intent(in)			::	h

Return Value real(kind=real64)

module function Calculate_kr_Base_Viscosity_Durner(self, h) result(kr)

Arguments

Type	Intent	Optional	Attributes		Name
class(Type_HCF_Base_Viscosity_Durner),	intent(in)			::	self
real(kind=real64),	intent(in)			::	h

Return Value real(kind=real64)

module function Calculate_kr_Durner_Base(alpha1, n1, m1, w1, alpha2, n2, m2, w2, l, h) result(kr)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=real64),	intent(in)			::	alpha1
real(kind=real64),	intent(in)			::	n1
real(kind=real64),	intent(in)			::	m1
real(kind=real64),	intent(in)			::	w1
real(kind=real64),	intent(in)			::	alpha2
real(kind=real64),	intent(in)			::	n2
real(kind=real64),	intent(in)			::	m2
real(kind=real64),	intent(in)			::	w2
real(kind=real64),	intent(in)			::	l
real(kind=real64),	intent(in)			::	h

Return Value real(kind=real64)

module function Construct_Type_HCF_Base_Durner(Ks, alpha1, n1, w1, alpha2, n2, l, nsize) result(structure_HCF)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=real64),	intent(in)			::	Ks
real(kind=real64),	intent(in)			::	alpha1
real(kind=real64),	intent(in)			::	n1
real(kind=real64),	intent(in)			::	w1
real(kind=real64),	intent(in)			::	alpha2
real(kind=real64),	intent(in)			::	n2
real(kind=real64),	intent(in)			::	l
integer(kind=int32),	intent(in)			::	nsize

Return Value class(Abstract_HCF), allocatable

module function Construct_Type_HCF_Base_Durner_minimal() result(structure_HCF)

Arguments

None

Return Value class(Abstract_HCF), allocatable

module function Construct_Type_HCF_Base_Impedance_Durner(Ks, alpha1, n1, w1, alpha2, n2, l, Omega, nsize) result(structure_HCF)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=real64),	intent(in)			::	Ks
real(kind=real64),	intent(in)			::	alpha1
real(kind=real64),	intent(in)			::	n1
real(kind=real64),	intent(in)			::	w1
real(kind=real64),	intent(in)			::	alpha2
real(kind=real64),	intent(in)			::	n2
real(kind=real64),	intent(in)			::	l
real(kind=real64),	intent(in)			::	Omega
integer(kind=int32),	intent(in)			::	nsize

Return Value class(Abstract_HCF), allocatable

module function Construct_Type_HCF_Base_Impedance_Durner_minimal() result(structure_HCF)

Arguments

None

Return Value class(Abstract_HCF), allocatable

module function Construct_Type_HCF_Base_Impedance_Viscosity_Durner(Ks, alpha1, n1, w1, alpha2, n2, l, Omega, useViscosity, nsize) result(structure_HCF)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=real64),	intent(in)			::	Ks
real(kind=real64),	intent(in)			::	alpha1
real(kind=real64),	intent(in)			::	n1
real(kind=real64),	intent(in)			::	w1
real(kind=real64),	intent(in)			::	alpha2
real(kind=real64),	intent(in)			::	n2
real(kind=real64),	intent(in)			::	l
real(kind=real64),	intent(in)			::	Omega
integer(kind=int32),	intent(in)			::	useViscosity
integer(kind=int32),	intent(in)			::	nsize

Return Value class(Abstract_HCF), allocatable

module function Construct_Type_HCF_Base_Impedance_Viscosity_Durner_minimal() result(structure_HCF)

Arguments

None

Return Value class(Abstract_HCF), allocatable

module function Construct_Type_HCF_Base_Viscosity_Durner(Ks, alpha1, n1, w1, alpha2, n2, l, useViscosity, nsize) result(structure_HCF)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=real64),	intent(in)			::	Ks
real(kind=real64),	intent(in)			::	alpha1
real(kind=real64),	intent(in)			::	n1
real(kind=real64),	intent(in)			::	w1
real(kind=real64),	intent(in)			::	alpha2
real(kind=real64),	intent(in)			::	n2
real(kind=real64),	intent(in)			::	l
integer(kind=int32),	intent(in)			::	useViscosity
integer(kind=int32),	intent(in)			::	nsize

Return Value class(Abstract_HCF), allocatable

module function Construct_Type_HCF_Base_Viscosity_Durner_minimal() result(structure_HCF)

Arguments

None

Return Value class(Abstract_HCF), allocatable

Module Subroutines

module subroutine Update_Kflh_Base_Durner(self, arr_h)

Arguments

Type	Intent	Optional	Attributes		Name
class(Type_HCF_Base_Durner),	intent(inout)			::	self
real(kind=real64),	intent(in)			::	arr_h(:)

module subroutine Update_Kflh_Base_Impedance_Durner(self, arr_h, arr_thetaI)

Arguments

Type	Intent	Optional	Attributes		Name
class(Type_HCF_Base_Impedance_Durner),	intent(inout)			::	self
real(kind=real64),	intent(in)			::	arr_h(:)
real(kind=real64),	intent(in)			::	arr_thetaI(:)

module subroutine Update_Kflh_Base_Impedance_Viscosity_Durner(self, arr_h, arr_thetaI, arr_Temperature)

Arguments

Type	Intent	Optional	Attributes		Name
class(Type_HCF_Base_Impedance_Viscosity_Durner),	intent(inout)			::	self
real(kind=real64),	intent(in)			::	arr_h(:)
real(kind=real64),	intent(in)			::	arr_thetaI(:)
real(kind=real64),	intent(in)			::	arr_Temperature(:)

module subroutine Update_Kflh_Base_Viscosity_Durner(self, arr_h, arr_Temperature)

Arguments

Type	Intent	Optional	Attributes		Name
class(Type_HCF_Base_Viscosity_Durner),	intent(inout)			::	self
real(kind=real64),	intent(in)			::	arr_h(:)
real(kind=real64),	intent(in)			::	arr_Temperature(:)