CPODI(3F)							     CPODI(3F)

NAME    [Toc]    [Back]

     CPODI   - CPODI computes the determinant and inverse of a certain complex
     Hermitian positive	definite matrix	(see below) using the factors computed
     by	CPOCO, CPOFA or	CQRDC.

SYNOPSYS    [Toc]    [Back]

      SUBROUTINE CPODI(A,LDA,N,DET,JOB)

DESCRIPTION    [Toc]    [Back]

     On	Entry

     A COMPLEX(LDA, N)
	the output  A  from CPOCO or CPOFA
	or the output  X  from CQRDC.

     LDA INTEGER
	the leading dimension of the array  A .

     N INTEGER
	the order of the matrix	 A .

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

     A If CPOCO	or CPOFA was used to factor  A	then
	CPODI produces the upper half of INVERSE(A) .
	If CQRDC was used to decompose	X  then
	CPODI produces the upper half of INVERSE(CTRANS(X)*X)
	where CTRANS(X)	is the conjugate transpose.
	Elements of  A	below the diagonal are unchanged.
	If the units digit of JOB is zero,  A  is unchanged.

     DET REAL(2)
	determinant of	A  or of  CTRANS(X)*X  if requested.
	Otherwise not referenced.
	Determinant = DET(1) * 10.0**DET(2)
	with  1.0 .LE. 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	CPOCO or CPOFA 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	Fortran	CONJG,MOD,REAL


									PPPPaaaaggggeeee 1111