det Module

Functions

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, (:,:)

Subroutines

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	Optional	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	Optional	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