ssytrs2 - metric matrix A using the factorization computed by SSYTRF and con- verted by SSYCONV
SUBROUTINE SSYTRS2(UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, INFO) CHARACTER*1 UPLO INTEGER INFO, LDA, LDB, N, NRHS INTEGER IPIV(*) REAL A(LDA,*), B(LDB,*), WORK(*) SUBROUTINE SSYTRS2_64(UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, INFO) CHARACTER*1 UPLO INTEGER*8 INFO, LDA, LDB, N, NRHS INTEGER*8 IPIV(*) REAL A(LDA,*), B(LDB,*), WORK(*) F95 INTERFACE SUBROUTINE SYTRS2(UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, INFO) REAL, DIMENSION(:,:) :: A, B INTEGER :: N, NRHS, LDA, LDB, INFO CHARACTER(LEN=1) :: UPLO INTEGER, DIMENSION(:) :: IPIV REAL, DIMENSION(:) :: WORK SUBROUTINE SYTRS2_64(UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, INFO) REAL, DIMENSION(:,:) :: A, B INTEGER(8) :: N, NRHS, LDA, LDB, INFO CHARACTER(LEN=1) :: UPLO INTEGER(8), DIMENSION(:) :: IPIV REAL, DIMENSION(:) :: WORK C INTERFACE #include <sunperf.h> void ssytrs2 (char uplo, int n, int nrhs, float *a, int lda, int *ipiv, float *b, int ldb, int *info); void ssytrs2_64 (char uplo, long n, long nrhs, float *a, long lda, long *ipiv, float *b, long ldb, long *info);
Oracle Solaris Studio Performance Library ssytrs2(3P)
NAME
ssytrs2 - solve a system of linear equations A*X = B with a real sym-
metric matrix A using the factorization computed by SSYTRF and con-
verted by SSYCONV
SYNOPSIS
SUBROUTINE SSYTRS2(UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, INFO)
CHARACTER*1 UPLO
INTEGER INFO, LDA, LDB, N, NRHS
INTEGER IPIV(*)
REAL A(LDA,*), B(LDB,*), WORK(*)
SUBROUTINE SSYTRS2_64(UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, INFO)
CHARACTER*1 UPLO
INTEGER*8 INFO, LDA, LDB, N, NRHS
INTEGER*8 IPIV(*)
REAL A(LDA,*), B(LDB,*), WORK(*)
F95 INTERFACE
SUBROUTINE SYTRS2(UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, INFO)
REAL, DIMENSION(:,:) :: A, B
INTEGER :: N, NRHS, LDA, LDB, INFO
CHARACTER(LEN=1) :: UPLO
INTEGER, DIMENSION(:) :: IPIV
REAL, DIMENSION(:) :: WORK
SUBROUTINE SYTRS2_64(UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, INFO)
REAL, DIMENSION(:,:) :: A, B
INTEGER(8) :: N, NRHS, LDA, LDB, INFO
CHARACTER(LEN=1) :: UPLO
INTEGER(8), DIMENSION(:) :: IPIV
REAL, DIMENSION(:) :: WORK
C INTERFACE
#include <sunperf.h>
void ssytrs2 (char uplo, int n, int nrhs, float *a, int lda, int *ipiv,
float *b, int ldb, int *info);
void ssytrs2_64 (char uplo, long n, long nrhs, float *a, long lda, long
*ipiv, float *b, long ldb, long *info);
PURPOSE
ssytrs2 solves a system of linear equations A*X = B with a real symmet-
ric matrix A using the factorization A = U*D*U**T or A = L*D*L**T com-
puted by SSYTRF and converted by SSYCONV.
ARGUMENTS
UPLO (input)
UPLO is CHARACTER*1
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)
N is INTEGER
The order of the matrix A. N >= 0.
NRHS (input)
NRHS is INTEGER
The number of right hand sides, i.e., the number of columns
of the matrix B. NRHS >= 0.
A (input)
A is REAL array, dimension (LDA,N)
The block diagonal matrix D and the multipliers used to
obtain the factor U or L as computed by SSYTRF.
LDA (input)
LDA is INTEGER
The leading dimension of the array A.
LDA >= max(1,N).
IPIV (input)
IPIV is INTEGER array, dimension (N)
Details of the interchanges and the block structure of D as
determined by SSYTRF.
B (input/output)
B is REAL array, dimension (LDB,NRHS)
On entry, the right hand side matrix B.
On exit, the solution matrix X.
LDB (input)
LDB is INTEGER
The leading dimension of the array B.
LDB >= max(1,N).
WORK (output)
WORK is REAL array, dimension (N)
INFO (output)
INFO is INTEGER
= 0: successful exit
< 0: if INFO = -i, the i-th argument had an illegal value
7 Nov 2015 ssytrs2(3P)