NAME

csprfs - improve the computed solution to a system of linear equations when the coefficient matrix is symmetric indefinite and packed, and provides error bounds and backward error estimates for the solution


SYNOPSIS

  SUBROUTINE CSPRFS( UPLO, N, NRHS, A, AF, IPIVOT, B, LDB, X, LDX, 
 *      FERR, BERR, WORK, WORK2, INFO)
  CHARACTER * 1 UPLO
  COMPLEX A(*), AF(*), B(LDB,*), X(LDX,*), WORK(*)
  INTEGER N, NRHS, LDB, LDX, INFO
  INTEGER IPIVOT(*)
  REAL FERR(*), BERR(*), WORK2(*)
  SUBROUTINE CSPRFS_64( UPLO, N, NRHS, A, AF, IPIVOT, B, LDB, X, LDX, 
 *      FERR, BERR, WORK, WORK2, INFO)
  CHARACTER * 1 UPLO
  COMPLEX A(*), AF(*), B(LDB,*), X(LDX,*), WORK(*)
  INTEGER*8 N, NRHS, LDB, LDX, INFO
  INTEGER*8 IPIVOT(*)
  REAL FERR(*), BERR(*), WORK2(*)

F95 INTERFACE

  SUBROUTINE SPRFS( UPLO, [N], [NRHS], A, AF, IPIVOT, B, [LDB], X, 
 *       [LDX], FERR, BERR, [WORK], [WORK2], [INFO])
  CHARACTER(LEN=1) :: UPLO
  COMPLEX, DIMENSION(:) :: A, AF, WORK
  COMPLEX, DIMENSION(:,:) :: B, X
  INTEGER :: N, NRHS, LDB, LDX, INFO
  INTEGER, DIMENSION(:) :: IPIVOT
  REAL, DIMENSION(:) :: FERR, BERR, WORK2
  SUBROUTINE SPRFS_64( UPLO, [N], [NRHS], A, AF, IPIVOT, B, [LDB], X, 
 *       [LDX], FERR, BERR, [WORK], [WORK2], [INFO])
  CHARACTER(LEN=1) :: UPLO
  COMPLEX, DIMENSION(:) :: A, AF, WORK
  COMPLEX, DIMENSION(:,:) :: B, X
  INTEGER(8) :: N, NRHS, LDB, LDX, INFO
  INTEGER(8), DIMENSION(:) :: IPIVOT
  REAL, DIMENSION(:) :: FERR, BERR, WORK2

C INTERFACE

#include <sunperf.h>

void csprfs(char uplo, int n, int nrhs, complex *a, complex *af, int *ipivot, complex *b, int ldb, complex *x, int ldx, float *ferr, float *berr, int *info);

void csprfs_64(char uplo, long n, long nrhs, complex *a, complex *af, long *ipivot, complex *b, long ldb, complex *x, long ldx, float *ferr, float *berr, long *info);


PURPOSE

csprfs improves the computed solution to a system of linear equations when the coefficient matrix is symmetric indefinite and packed, and provides error bounds and backward error estimates for the solution.


ARGUMENTS