ssyconv - versa
SUBROUTINE SSYCONV(UPLO, WAY, N, A, LDA, IPIV, WORK, INFO) CHARACTER*1 UPLO, WAY INTEGER INFO, LDA, N INTEGER IPIV(*) REAL A(LDA,*), WORK(*) SUBROUTINE SSYCONV_64(UPLO, WAY, N, A, LDA, IPIV, WORK, INFO) CHARACTER*1 UPLO, WAY INTEGER*8 INFO, LDA, N INTEGER*8 IPIV(*) REAL A(LDA,*), WORK(*) F95 INTERFACE SUBROUTINE SYCONV(UPLO, WAY, N, A, LDA, IPIV, WORK, INFO) REAL, DIMENSION(:,:) :: A INTEGER :: N, LDA, INFO CHARACTER(LEN=1) :: UPLO, WAY INTEGER, DIMENSION(:) :: IPIV REAL, DIMENSION(:) :: WORK SUBROUTINE SYCONV_64(UPLO, WAY, N, A, LDA, IPIV, WORK, INFO) REAL, DIMENSION(:,:) :: A INTEGER(8) :: N, LDA, INFO CHARACTER(LEN=1) :: UPLO, WAY INTEGER(8), DIMENSION(:) :: IPIV REAL, DIMENSION(:) :: WORK C INTERFACE #include <sunperf.h> void ssyconv (char uplo, char way, int n, float *a, int lda, int *ipiv, int *info); void ssyconv_64 (char uplo, char way, long n, float *a, long lda, long *ipiv, long *info);
Oracle Solaris Studio Performance Library ssyconv(3P)
NAME
ssyconv - convert A given by TRF into L and D and vice-versa
SYNOPSIS
SUBROUTINE SSYCONV(UPLO, WAY, N, A, LDA, IPIV, WORK, INFO)
CHARACTER*1 UPLO, WAY
INTEGER INFO, LDA, N
INTEGER IPIV(*)
REAL A(LDA,*), WORK(*)
SUBROUTINE SSYCONV_64(UPLO, WAY, N, A, LDA, IPIV, WORK, INFO)
CHARACTER*1 UPLO, WAY
INTEGER*8 INFO, LDA, N
INTEGER*8 IPIV(*)
REAL A(LDA,*), WORK(*)
F95 INTERFACE
SUBROUTINE SYCONV(UPLO, WAY, N, A, LDA, IPIV, WORK, INFO)
REAL, DIMENSION(:,:) :: A
INTEGER :: N, LDA, INFO
CHARACTER(LEN=1) :: UPLO, WAY
INTEGER, DIMENSION(:) :: IPIV
REAL, DIMENSION(:) :: WORK
SUBROUTINE SYCONV_64(UPLO, WAY, N, A, LDA, IPIV, WORK, INFO)
REAL, DIMENSION(:,:) :: A
INTEGER(8) :: N, LDA, INFO
CHARACTER(LEN=1) :: UPLO, WAY
INTEGER(8), DIMENSION(:) :: IPIV
REAL, DIMENSION(:) :: WORK
C INTERFACE
#include <sunperf.h>
void ssyconv (char uplo, char way, int n, float *a, int lda, int *ipiv,
int *info);
void ssyconv_64 (char uplo, char way, long n, float *a, long lda, long
*ipiv, long *info);
PURPOSE
ssyconv convert A given by TRF into L and D and vice-versa. Get Non-
diag elements of D (returned in workspace) and apply or reverse permu-
tation done in TRF.
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.
WAY (input)
WAY is CHARACTER*1
= 'C': Convert
= 'R': Revert
N (input)
N is INTEGER
The order of the matrix A. N >= 0.
A (input/output)
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.
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 ssyconv(3P)