NAME

SYNOPSIS

  SUBROUTINE CSIDI( A, LDA, N, IPIVOT, DET, WORK, JOB)
  COMPLEX A(LDA,*), DET(*), WORK(*)
  INTEGER LDA, N, JOB
  INTEGER IPIVOT(*)
 
  SUBROUTINE CSIDI_64( A, LDA, N, IPIVOT, DET, WORK, JOB)
  COMPLEX A(LDA,*), DET(*), WORK(*)
  INTEGER*8 LDA, N, JOB
  INTEGER*8 IPIVOT(*)
 

C INTERFACE

void csidi(complex *a, int lda, int n, int *ipivot, complex *det, int job);

void csidi_64(complex *a, long lda, long n, long *ipivot, complex *det, long job);

ARGUMENTS

* A (input/output)

On entry, the UDU factorization of the matrix A, as computed by CSICO or CSIFA. On exit, if the c digit of JOB <> 0, then the upper triangle of A contains the upper triangle of the inverse of the original matrix A if the inverse was requested, otherwise unchanged. The strict lower triangle of A is not referenced.

* LDA (input)

Leading dimension of the array A as specified in a dimension or type statement. LDA >= max(1,N).

* N (input)

Order of the original matrix A. N >= 0.

* IPIVOT (input)

Pivot vector as computed by CSICO or CSIFA.

* DET (output)

On exit, if the b digit of JOB <> 0, then DET contains the determinant of the matrix A. The determinant is stored as b * (10 ** expon) where b is stored in DET(1) and expon is stored in DET(2). 1.0 <= |DET(1)| <= 10.0 or DET(1) = 0.0. If the b digit of JOB = 0, DET is not referenced.

* WORK (workspace)

Scratch array with a dimension of N.

* JOB (input)

Integer in the form bc; determines operation the subroutine will perform:

        b <> 0  Compute the determinant.
        c <> 0  Compute the inverse.

Note that the inverse should not be computed if CSICO has set RCOND = 0 or if CSIFA has set INFO >= 0.