sgedi
sgedi - (obsolete) compute the determinant and inverse of a general matrix A, which has
been LU-factored by SGECO or SGEFA.
SUBROUTINE SGEDI( A, LDA, N, IPIVOT, DET, WORK, JOB)
INTEGER LDA, N, JOB
INTEGER IPIVOT(*)
REAL A(LDA,*), DET(*), WORK(*)
SUBROUTINE SGEDI_64( A, LDA, N, IPIVOT, DET, WORK, JOB)
INTEGER*8 LDA, N, JOB
INTEGER*8 IPIVOT(*)
REAL A(LDA,*), DET(*), WORK(*)
#include <sunperf.h>
void sgedi(float *a, int lda, int n, int *ipivot, float *det, int job);
void sgedi_64(float *a, long lda, long n, long *ipivot, float *det, long job);
-
* A (input/output)
-
On entry, the LU factorization of the matrix A, as computed by
SGECO or SGEFA.
On exit, the inverse of the original matrix A if the inverse was requested,
otherwise it is unchanged.
-
* 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 SGECO or SGEFA.
-
* DET (output)
-
On exit, 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.
-
* WORK (workspace)
-
Scratch array with a dimension of N.
-
* JOB (input)
-
Determines which operation the subroutine will perform:
- 11 both determinant and inverse