zsytrs2 (3p)

Name

zsytrs2 - solve a system of linear equations A*X = B with a complex symmetric matrix A using the factorization computed by ZSYTRF and con- verted by ZSYCONV

Synopsis

SUBROUTINE ZSYTRS2(UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, INFO)


CHARACTER*1 UPLO

INTEGER INFO, LDA, LDB, N, NRHS

INTEGER IPIV(*)

DOUBLE COMPLEX A(LDA,*), B(LDB,*), WORK(*)


SUBROUTINE ZSYTRS2_64(UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, INFO)


CHARACTER*1 UPLO

INTEGER*8 INFO, LDA, LDB, N, NRHS

INTEGER*8 IPIV(*)

DOUBLE COMPLEX A(LDA,*), B(LDB,*), WORK(*)


F95 INTERFACE
SUBROUTINE SYTRS2(UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, INFO)


INTEGER :: N, NRHS, LDA, LDB, INFO

CHARACTER(LEN=1) :: UPLO

INTEGER, DIMENSION(:) :: IPIV

COMPLEX(8), DIMENSION(:,:) :: A, B

COMPLEX(8), DIMENSION(:) :: WORK


SUBROUTINE SYTRS2_64(UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, INFO)


INTEGER(8) :: N, NRHS, LDA, LDB, INFO

CHARACTER(LEN=1) :: UPLO

INTEGER(8), DIMENSION(:) :: IPIV

COMPLEX(8), DIMENSION(:,:) :: A, B

COMPLEX(8), DIMENSION(:) :: WORK


C INTERFACE
#include <sunperf.h>

void  zsytrs2  (char  uplo, int n, int nrhs, doublecomplex *a, int lda,
int *ipiv, doublecomplex *b, int ldb, int *info);


void zsytrs2_64 (char uplo, long n, long nrhs, doublecomplex  *a,  long
lda, long *ipiv, doublecomplex *b, long ldb, long *info);

Description

Oracle Solaris Studio Performance Library                          zsytrs2(3P)



NAME
       zsytrs2  -  solve  a  system of linear equations A*X = B with a complex
       symmetric matrix A using the factorization computed by ZSYTRF and  con-
       verted by ZSYCONV


SYNOPSIS
       SUBROUTINE ZSYTRS2(UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, INFO)


       CHARACTER*1 UPLO

       INTEGER INFO, LDA, LDB, N, NRHS

       INTEGER IPIV(*)

       DOUBLE COMPLEX A(LDA,*), B(LDB,*), WORK(*)


       SUBROUTINE ZSYTRS2_64(UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, INFO)


       CHARACTER*1 UPLO

       INTEGER*8 INFO, LDA, LDB, N, NRHS

       INTEGER*8 IPIV(*)

       DOUBLE COMPLEX A(LDA,*), B(LDB,*), WORK(*)


   F95 INTERFACE
       SUBROUTINE SYTRS2(UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, INFO)


       INTEGER :: N, NRHS, LDA, LDB, INFO

       CHARACTER(LEN=1) :: UPLO

       INTEGER, DIMENSION(:) :: IPIV

       COMPLEX(8), DIMENSION(:,:) :: A, B

       COMPLEX(8), DIMENSION(:) :: WORK


       SUBROUTINE SYTRS2_64(UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, INFO)


       INTEGER(8) :: N, NRHS, LDA, LDB, INFO

       CHARACTER(LEN=1) :: UPLO

       INTEGER(8), DIMENSION(:) :: IPIV

       COMPLEX(8), DIMENSION(:,:) :: A, B

       COMPLEX(8), DIMENSION(:) :: WORK


   C INTERFACE
       #include <sunperf.h>

       void  zsytrs2  (char  uplo, int n, int nrhs, doublecomplex *a, int lda,
                 int *ipiv, doublecomplex *b, int ldb, int *info);


       void zsytrs2_64 (char uplo, long n, long nrhs, doublecomplex  *a,  long
                 lda, long *ipiv, doublecomplex *b, long ldb, long *info);


PURPOSE
       zsytrs2 solves a system of linear equations A*X = B with a complex sym-
       metric matrix A using the factorization A = U*D*U**T or  A  =  L*D*L**T
       computed by ZSYTRF and converted by ZSYCONV.


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 COMPLEX*16 array, dimension (LDA,N)
                 The  block  diagonal  matrix  D  and  the multipliers used to
                 obtain the factor U or L as computed by ZSYTRF.


       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 ZSYTRF.


       B (input/output)
                 B is COMPLEX*16 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                       zsytrs2(3P)