invert_matrix Function

  1. tem_matrix_module.f90
  2. tem_matrix_module
  3. invert_matrix

public function invert_matrix(A, errCode) result(Ainv)

Returns the inverse of a matrix calculated by finding the LU decomposition. Depends on LAPACK.

Arguments

TypeIntentOptionalAttributesName
real(kind=rk), intent(in), dimension(:,:):: A

Matrix to invert
integer, intent(out), optional :: errCode

If error code is present return error code and do not abort

Return Value real(kind=rk),dimension(size(A,1),size(A,2))

inverse of A


Calls

proc~~invert_matrix~~CallsGraph proc~invert_matrix invert_matrix proc~tem_abort tem_abort proc~invert_matrix->proc~tem_abort dgetrf dgetrf proc~invert_matrix->dgetrf dgetri dgetri proc~invert_matrix->dgetri mpi_abort mpi_abort proc~tem_abort->mpi_abort

Called by

proc~~invert_matrix~~CalledByGraph proc~invert_matrix invert_matrix proc~build_matrixlsf_linearintp build_matrixLSF_linearIntp proc~build_matrixlsf_linearintp->proc~invert_matrix proc~build_matrixlsf_quadintp build_matrixLSF_quadIntp proc~build_matrixlsf_quadintp->proc~invert_matrix proc~append_intpmatrixlsf append_intpMatrixLSF proc~append_intpmatrixlsf->proc~build_matrixlsf_linearintp proc~append_intpmatrixlsf->proc~build_matrixlsf_quadintp interface~append~38 append interface~append~38->proc~append_intpmatrixlsf

Contents

Variables


Variables

TypeVisibilityAttributesNameInitial
real(kind=rk), private, dimension(size(A,1)):: work
integer, private, dimension(size(A,1)):: ipiv
integer, private :: n
integer, private :: info