CGEDI(3F)							     CGEDI(3F)

NAME    [Toc]    [Back]

     CGEDI   - CGEDI computes the determinant and inverse of a matrix using
     the factors computed by CGECO or CGEFA.

SYNOPSYS    [Toc]    [Back]

      SUBROUTINE CGEDI(A,LDA,N,IPVT,DET,WORK,JOB)

DESCRIPTION    [Toc]    [Back]

     On	Entry

     A COMPLEX(LDA, N)
	the output from	CGECO or CGEFA.

     LDA INTEGER
	the leading dimension of the array  A .

     N INTEGER
	the order of the matrix	 A .

     IPVT INTEGER(N)
	the pivot vector from CGECO or CGEFA.

     WORK COMPLEX(N)
	work vector.  Contents destroyed.

     JOB INTEGER
	= 11   both determinant	and inverse.
	= 01   inverse only.
	= 10   determinant only.  On Return

     A inverse of original matrix if requested.
	Otherwise unchanged.

     DET COMPLEX(2)
	determinant of original	matrix if requested.
	Otherwise not referenced.
	Determinant = DET(1) * 10.0**DET(2)
	with  1.0 .LE. CABS1(DET(1)) .LT. 10.0
	or  DET(1) .EQ.	0.0 .  Error Condition

     A division	by zero	will occur if the input	factor contains	a zero on the
     diagonal and the inverse is requested.  It	will not occur if the
     subroutines are called correctly and if CGECO has set RCOND .GT. 0.0 or
     CGEFA has set INFO	.EQ. 0 .  LINPACK.  This version dated 08/14/78	.
     Cleve Moler, University of	New Mexico, Argonne National Lab.  Subroutines
     and Functions BLAS	CAXPY,CSCAL,CSWAP Fortran ABS,AIMAG,CMPLX,MOD,REAL


									PPPPaaaaggggeeee 1111