CSPDI(3F)

NAME
     CSPDI   - CSPDI computes the determinant and inverse of a complex
     symmetric matrix using the factors from CSPFA, where the matrix is stored
     in packed form.


SYNOPSYS
      SUBROUTINE CSPDI(AP,N,KPVT,DET,WORK,JOB)

DESCRIPTION
     On Entry

     AP COMPLEX (N*(N+1)/2)
        the output from CSPFA.

     N INTEGER
        the order of the matrix A .  KVPT    INTEGER(N)
        the pivot vector from CSPFA.

     WORK COMPLEX(N)
        work vector.  Contents ignored.

     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.

     AP contains the upper triangle of the inverse of
        the original matrix, stored in packed form.
        The columns of the upper triangle are stored
        sequentially in a one-dimensional array.

     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 will occur if the inverse is requested and  CSPCO  has
     set RCOND .EQ. 0.0 or  CSPFA  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