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)