CSIDI(3F)CSIDI(3F)NAMECSIDI - CSIDI computes the determinant and inverse of a complex
symmetric matrix using the factors from CSIFA.
SYNOPSYS
SUBROUTINE CSIDI(A,LDA,N,KPVT,DET,WORK,JOB)
DESCRIPTION
On Entry
A COMPLEX(LDA,N)
the output from CSIFA.
LDA INTEGER
the leading dimension of the array A .
N INTEGER
the order of the matrix A . KVPT INTEGER(N)
the pivot vector from CSIFA.
WORK COMPLEX(N)
work vector. Contents destroyed.
JOB INTEGER
JOB has the decimal expansion AB where
If B .NE. 0, the inverse is computed,
If A .NE. 0, the determinant is computed,
For example, JOB = 11 gives both. On Return Variables not requested
by JOB are not used.
A contains the upper triangle of the inverse of
the original matrix. The strict lower triangle
is never referenced.
DET COMPLEX(2)
determinant of original matrix.
Determinant = DET(1) * 10.0**DET(2)
with 1.0 .LE. ABS(DET(1)) .LT. 10.0
or DET(1) = 0.0. Error Condition
A division by zero may occur if the inverse is requested and CSICO has
set RCOND .EQ. 0.0 or CSIFA has set INFO .NE. 0 . LINPACK. This
version dated 08/14/78 . James Bunch, Univ. Calif. San Diego, Argonne
Nat. Lab. Subroutines and Functions BLAS CAXPY,CCOPY,CDOTU,CSWAP Fortran
ABS,CMPLX,IABS,MOD,REAL
Page 1