inv_tridiag Interface

public interface inv_tridiag

Module Procedures

private subroutine d_invert_tridiag_matrix(N, sub_, diag_, over_, Inv)

Arguments

Type	Intent	Optional	Attributes		Name
integer				::	N
real(kind=8),			dimension(N-1)	::	sub_
real(kind=8),			dimension(N)	::	diag_
real(kind=8),			dimension(N-1)	::	over_
real(kind=8),			dimension(N)	::	Inv

private subroutine c_invert_tridiag_matrix(N, sub_, diag_, over_, Inv)

Arguments

Type	Intent	Optional	Attributes		Name
integer				::	N
complex(kind=8),			dimension(N-1)	::	sub_
complex(kind=8),			dimension(N)	::	diag_
complex(kind=8),			dimension(N-1)	::	over_
complex(kind=8),			dimension(N)	::	Inv

private subroutine d_invert_tridiag_block_matrix(Nb, N, sub_, diag_, over_, Ainv)

Arguments

Type	Intent	Optional	Attributes		Name
integer				::	Nb
integer				::	N
real(kind=8),			dimension(Nb-1,N,N)	::	sub_
real(kind=8),			dimension(Nb,N,N)	::	diag_
real(kind=8),			dimension(Nb-1,N,N)	::	over_
real(kind=8),			dimension(Nb,N,N)	::	Ainv

private subroutine c_invert_tridiag_block_matrix(Nb, N, sub_, diag_, over_, Ainv)

Arguments

Type	Intent	Optional	Attributes		Name
integer				::	Nb
integer				::	N
complex(kind=8),			dimension(Nb-1,N,N)	::	sub_
complex(kind=8),			dimension(Nb,N,N)	::	diag_
complex(kind=8),			dimension(Nb-1,N,N)	::	over_
complex(kind=8),			dimension(Nb,N,N)	::	Ainv

private subroutine d_invert_tridiag_matrix_mat(Amat)

Arguments

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

private subroutine c_invert_tridiag_matrix_mat(Amat)

Arguments

Type	Intent	Optional	Attributes		Name
complex(kind=8),	intent(inout),		dimension(:,:)	::	Amat

private subroutine d_invert_tridiag_block_matrix_mat(Nb, N, Amat)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	Nb
integer,	intent(in)			::	N
real(kind=8),	intent(inout),		dimension(NbN,NbN)	::	Amat

private subroutine c_invert_tridiag_block_matrix_mat(Nb, N, Amat)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	Nb
integer,	intent(in)			::	N
complex(kind=8),	intent(inout),		dimension(NbN,NbN)	::	Amat