Contents


NAME

     sspcon - estimate the reciprocal of the condition number (in
     the  1-norm)  of  a real symmetric packed matrix A using the
     factorization A = U*D*U**T  or  A  =  L*D*L**T  computed  by
     SSPTRF

SYNOPSIS

     SUBROUTINE SSPCON(UPLO, N, A, IPIVOT, ANORM, RCOND, WORK, IWORK2,
           INFO)

     CHARACTER * 1 UPLO
     INTEGER N, INFO
     INTEGER IPIVOT(*), IWORK2(*)
     REAL ANORM, RCOND
     REAL A(*), WORK(*)

     SUBROUTINE SSPCON_64(UPLO, N, A, IPIVOT, ANORM, RCOND, WORK, IWORK2,
           INFO)

     CHARACTER * 1 UPLO
     INTEGER*8 N, INFO
     INTEGER*8 IPIVOT(*), IWORK2(*)
     REAL ANORM, RCOND
     REAL A(*), WORK(*)

  F95 INTERFACE
     SUBROUTINE SPCON(UPLO, [N], A, IPIVOT, ANORM, RCOND, [WORK], [IWORK2],
            [INFO])

     CHARACTER(LEN=1) :: UPLO
     INTEGER :: N, INFO
     INTEGER, DIMENSION(:) :: IPIVOT, IWORK2
     REAL :: ANORM, RCOND
     REAL, DIMENSION(:) :: A, WORK

     SUBROUTINE SPCON_64(UPLO, [N], A, IPIVOT, ANORM, RCOND, [WORK],
            [IWORK2], [INFO])

     CHARACTER(LEN=1) :: UPLO
     INTEGER(8) :: N, INFO
     INTEGER(8), DIMENSION(:) :: IPIVOT, IWORK2
     REAL :: ANORM, RCOND
     REAL, DIMENSION(:) :: A, WORK

  C INTERFACE
     #include <sunperf.h>
     void sspcon(char uplo, int n, float *a, int  *ipivot,  float
               anorm, float *rcond, int *info);

     void sspcon_64(char uplo, long n, float  *a,  long  *ipivot,
               float anorm, float *rcond, long *info);

PURPOSE

     sspcon estimates the reciprocal of the condition number  (in
     the  1-norm)  of  a real symmetric packed matrix A using the
     factorization A = U*D*U**T  or  A  =  L*D*L**T  computed  by
     SSPTRF.

     An estimate is obtained for norm(inv(A)), and the reciprocal
     of  the condition number is computed as RCOND = 1 / (ANORM *
     norm(inv(A))).

ARGUMENTS

     UPLO (input)
               Specifies whether the details of the factorization
               are stored as an upper or lower triangular matrix.
               = 'U':  Upper triangular, form is A = U*D*U**T;
               = 'L':  Lower triangular, form is A = L*D*L**T.

     N (input) The order of the matrix A.  N >= 0.

     A (input) Real array, dimension (N*(N+1)/2) The block diago-
               nal  matrix  D  and the multipliers used to obtain
               the factor U or L as computed by SSPTRF, stored as
               a packed triangular matrix.

     IPIVOT (input)
               Integer array, dimension (N) Details of the inter-
               changes and the block structure of D as determined
               by SSPTRF.

     ANORM (input)
               The 1-norm of the original matrix A.

     RCOND (output)
               The reciprocal of  the  condition  number  of  the
               matrix  A, computed as RCOND = 1/(ANORM * AINVNM),
               where AINVNM is  an  estimate  of  the  1-norm  of
               inv(A) computed in this routine.
     WORK (workspace)
               Real array, dimension(2*N)

     IWORK2 (workspace)
               Integer array, dimension (2*N)

     INFO (output)
               = 0:  successful exit
               < 0:  if INFO = -i, the i-th argument had an ille-
               gal value