MathClass – plantFEM

Uses

- fMathClass

Interfaces

fstring input zeroif removeWord

Subroutines

heapsort calcgz eigen_2d trans_rank_2 inverse_rank_2 tensor_exponential tensor_expo_der removeWord_String

Interfaces

public interface fstring

public function fstring_int(x) result(a)

Arguments

Type Intent Optional Attributes Name

integer, intent(in) :: x

Return Value character(len=20)
public function fstring_real(x) result(a)

Arguments

Type Intent Optional Attributes Name

real(kind=8), intent(in) :: x

Return Value character(len=20)
public function fstring_int_len(x, length) result(a)

Arguments

Type Intent Optional Attributes Name

integer, intent(in) :: x

integer, intent(in) :: length

Return Value character(len=length)
public function fstring_real_len(x, length) result(a)

Arguments

Type Intent Optional Attributes Name

real(kind=8), intent(in) :: x

integer, intent(in) :: length

Return Value character(len=60)

public interface input

public function input_Int(default, option) result(val)

Arguments

Type Intent Optional Attributes Name

integer, intent(in) :: default

integer, intent(in), optional :: option

Return Value integer
public function input_Real(default, option) result(val)

Arguments

Type Intent Optional Attributes Name

real(kind=8), intent(in) :: default

real(kind=8), intent(in), optional :: option

Return Value real(kind=8)
public function input_IntVec(default, option) result(val)

Arguments

Type Intent Optional Attributes Name

integer, intent(in) :: default(:)

integer, intent(in), optional :: option(:)

Return Value integer, allocatable, (:)
public function input_Realvec(default, option) result(val)

Arguments

Type Intent Optional Attributes Name

real(kind=8), intent(in) :: default(:)

real(kind=8), intent(in), optional :: option(:)

Return Value real(kind=8), allocatable, (:)
public function input_IntArray(default, option) result(val)

Arguments

Type Intent Optional Attributes Name

integer, intent(in) :: default(:,:)

integer, intent(in), optional :: option(:,:)

Return Value integer, allocatable, (:,:)

public function input_RealArray(default, option) result(val)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=8),	intent(in)			::	default(:,:)
real(kind=8),	intent(in),	optional		::	option(:,:)

Return Value real(kind=8), allocatable, (:,:)

public function input_String(default, option) result(val)

Arguments

Type Intent Optional Attributes Name

character(len=*), intent(in) :: default

character(len=*), intent(in), optional :: option

Return Value character(len=len(default))
public function input_logical(default, option) result(val)

Arguments

Type Intent Optional Attributes Name

logical, intent(in) :: default

logical, intent(in), optional :: option

Return Value logical

public interface zeroif

public function zeroif_Int(val, negative, positive) result(retval)

Arguments

Type	Intent	Optional		Name
integer,	intent(in)		::	val
logical,	intent(in),	optional	::	negative
logical,	intent(in),	optional	::	positive

Return Value integer

public function zeroif_Real(val, negative, positive) result(retval)

Arguments

Type	Intent	Optional		Name
real(kind=8),	intent(in)		::	val
logical,	intent(in),	optional	::	negative
logical,	intent(in),	optional	::	positive

Return Value real(kind=8)

public interface removeWord

public subroutine removeWord_String(str, keyword, itr, Compare)

Arguments

Type	Intent	Optional		Name
character(len=*),	intent(inout)		::	str
character(len=*),	intent(in)		::	keyword
integer,	intent(in),	optional	::	itr
logical,	intent(in),	optional	::	Compare

Functions

public function norm(vec) result(a)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=8),	intent(in)			::	vec(:)

Return Value real(kind=8)

public function SearchNearestCoord(Array, x) result(id)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=8),	intent(in)			::	Array(:,:)
real(kind=8),	intent(in)			::	x(:)

Return Value integer

public function SearchIDIntVec(Vec, val) result(id_)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	Vec(:)
integer,	intent(in)			::	val

Return Value integer

public function cross_product(a, b) result(c)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=8),	intent(in)			::	a(:)
real(kind=8),	intent(in)			::	b(:)

Return Value real(kind=8), allocatable, (:)

public function diadic(a, b) result(c)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=8),	intent(in)			::	a(:)
real(kind=8),	intent(in)			::	b(:)

Return Value real(kind=8), allocatable, (:,:)

public function signmm(a) result(b)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=8),	intent(in)			::	a

Return Value real(kind=8)

public recursive function det_mat(a, n) result(det)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=8),	intent(in)			::	a(n,n)
integer,	intent(in)			::	n

Return Value real(kind=8)

public function trans1(A) result(A_T)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=8),	intent(in)			::	A(:)

Return Value real(kind=8), allocatable, (:,:)

public function trans2(A) result(A_T)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=8),	intent(in)			::	A(:,:)

Return Value real(kind=8), allocatable, (:,:)

public function GetNormRe(a) result(b)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=8),	intent(in)			::	a(:)

Return Value real(kind=8)

public function GetNormMatRe(a) result(b)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=8),	intent(in)			::	a(:,:)

Return Value real(kind=8)

public function trace(a) result(b)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=8),	intent(in)			::	a(:,:)

Return Value real(kind=8)

public function pi(n) result(res)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	n

Return Value real(kind=8)

public function fstring_int(x) result(a)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	x

Return Value character(len=20)

public function fstring_int_len(x, length) result(a)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	x
integer,	intent(in)			::	length

Return Value character(len=length)

public function fstring_real(x) result(a)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=8),	intent(in)			::	x

Return Value character(len=20)

public function fstring_real_len(x, length) result(a)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=8),	intent(in)			::	x
integer,	intent(in)			::	length

Return Value character(len=60)

public function fint(ch) result(a)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	ch

Return Value integer

public function freal(ch) result(a)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	ch

Return Value real(kind=8)

public function input_Int(default, option) result(val)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	default
integer,	intent(in),	optional		::	option

Return Value integer

public function input_Real(default, option) result(val)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=8),	intent(in)			::	default
real(kind=8),	intent(in),	optional		::	option

Return Value real(kind=8)

public function input_IntVec(default, option) result(val)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	default(:)
integer,	intent(in),	optional		::	option(:)

Return Value integer, allocatable, (:)

public function input_Realvec(default, option) result(val)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=8),	intent(in)			::	default(:)
real(kind=8),	intent(in),	optional		::	option(:)

Return Value real(kind=8), allocatable, (:)

public function input_IntArray(default, option) result(val)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	default(:,:)
integer,	intent(in),	optional		::	option(:,:)

Return Value integer, allocatable, (:,:)

public function input_RealArray(default, option) result(val)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=8),	intent(in)			::	default(:,:)
real(kind=8),	intent(in),	optional		::	option(:,:)

Return Value real(kind=8), allocatable, (:,:)

public function input_String(default, option) result(val)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	default
character(len=*),	intent(in),	optional		::	option

Return Value character(len=len(default))

public function input_logical(default, option) result(val)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(in)			::	default
logical,	intent(in),	optional		::	option

Return Value logical

public function zeroif_Int(val, negative, positive) result(retval)

Arguments

Type	Intent	Optional		Name
integer,	intent(in)		::	val
logical,	intent(in),	optional	::	negative
logical,	intent(in),	optional	::	positive

Return Value integer

public function zeroif_Real(val, negative, positive) result(retval)

Arguments

Type	Intent	Optional		Name
real(kind=8),	intent(in)		::	val
logical,	intent(in),	optional	::	negative
logical,	intent(in),	optional	::	positive

Return Value real(kind=8)

Subroutines

public subroutine heapsort(n, array)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	n
integer,	intent(inout)			::	array(1:n)

public subroutine calcgz(x2, x11, x12, nod_coord, gzi)

Arguments

Type	Intent		Name
integer,	intent(in)	::	x2
integer,	intent(in)	::	x11
integer,	intent(in)	::	x12
real(kind=8),	intent(in)	::	nod_coord(:,:)
real(kind=8),	intent(out)	::	gzi

public subroutine eigen_2d(Amat, eigenvector)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=8),	intent(in)			::	Amat(:,:)
real(kind=8),	intent(inout)			::	eigenvector(:,:)

public subroutine trans_rank_2(A, A_T)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=8),	intent(in)			::	A(:,:)
real(kind=8),	intent(out),		allocatable	::	A_T(:,:)

public subroutine inverse_rank_2(A, A_inv)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=8),	intent(in)			::	A(:,:)
real(kind=8),			allocatable	::	A_inv(:,:)

public subroutine tensor_exponential(A, expA, TOL, itr_tol)

Arguments

Type	Intent	Attributes		Name
real(kind=8),	intent(in)		::	A(:,:)
real(kind=8),	intent(inout),	allocatable	::	expA(:,:)
real(kind=8),	intent(in)		::	TOL
integer,	intent(in)		::	itr_tol

public subroutine tensor_expo_der(A, expA_A, TOL, itr_tol)

Arguments

Type	Intent	Attributes		Name
real(kind=8),	intent(in)		::	A(:,:)
real(kind=8),	intent(inout),	allocatable	::	expA_A(:,:,:,:)
real(kind=8),	intent(in)		::	TOL
integer,	intent(in)		::	itr_tol

public subroutine removeWord_String(str, keyword, itr, Compare)

Arguments

Type	Intent	Optional		Name
character(len=*),	intent(inout)		::	str
character(len=*),	intent(in)		::	keyword
integer,	intent(in),	optional	::	itr
logical,	intent(in),	optional	::	Compare

MathClass Module

Contents

Interfaces

Functions

Subroutines

Uses

Contents

Interfaces

Functions

Subroutines

Interfaces

public interface fstring

public function fstring_int(x) result(a)

Arguments

Return Value character(len=20)

public function fstring_real(x) result(a)

Arguments

Return Value character(len=20)

public function fstring_int_len(x, length) result(a)

Arguments

Return Value character(len=length)

public function fstring_real_len(x, length) result(a)

Arguments

Return Value character(len=60)

public interface input

public function input_Int(default, option) result(val)

Arguments

Return Value integer

public function input_Real(default, option) result(val)

Arguments

Return Value real(kind=8)

public function input_IntVec(default, option) result(val)

Arguments

Return Value integer, allocatable, (:)

public function input_Realvec(default, option) result(val)

Arguments

Return Value real(kind=8), allocatable, (:)

public function input_IntArray(default, option) result(val)

Arguments

Return Value integer, allocatable, (:,:)

public function input_RealArray(default, option) result(val)

Arguments

Return Value real(kind=8), allocatable, (:,:)

public function input_String(default, option) result(val)

Arguments

Return Value character(len=len(default))

public function input_logical(default, option) result(val)

Arguments

Return Value logical

public interface zeroif

public function zeroif_Int(val, negative, positive) result(retval)

Arguments

Return Value integer

public function zeroif_Real(val, negative, positive) result(retval)

Arguments

Return Value real(kind=8)

public interface removeWord

public subroutine removeWord_String(str, keyword, itr, Compare)

Arguments

Functions

public function norm(vec) result(a)

Arguments

Return Value real(kind=8)

public function SearchNearestCoord(Array, x) result(id)

Arguments

Return Value integer

public function SearchIDIntVec(Vec, val) result(id_)

Arguments

Return Value integer

public function cross_product(a, b) result(c)

Arguments

Return Value real(kind=8), allocatable, (:)

public function diadic(a, b) result(c)

Arguments

Return Value real(kind=8), allocatable, (:,:)

public function signmm(a) result(b)

Arguments

Return Value real(kind=8)

public recursive function det_mat(a, n) result(det)

Arguments