det Module


Contents


Functions

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

Arguments

Type IntentOptional AttributesName
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 IntentOptional AttributesName
real(kind=8), intent(in) :: A(:)

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

public function trans2(A) result(A_T)

Arguments

Type IntentOptional AttributesName
real(kind=8), intent(in) :: A(:,:)

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


Subroutines

public subroutine trans_rank_2(A, A_T)

Arguments

Type IntentOptional AttributesName
real(kind=8), intent(in) :: A(:,:)
real(kind=8), intent(out), allocatable:: A_T(:,:)

public subroutine inverse_rank_2(A, A_inv)

Arguments

Type IntentOptional AttributesName
real(kind=8), intent(in) :: A(:,:)
real(kind=8), allocatable:: A_inv(:,:)

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

Arguments

Type IntentOptional AttributesName
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 IntentOptional AttributesName
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