NAME

dpotrs - solve a system of linear equations A*X = B with a symmetric positive definite matrix A using the Cholesky factorization A = U**T*U or A = L*L**T computed by SPOTRF


SYNOPSIS

  SUBROUTINE DPOTRS( UPLO, N, NRHS, A, LDA, B, LDB, INFO)
  CHARACTER * 1 UPLO
  INTEGER N, NRHS, LDA, LDB, INFO
  DOUBLE PRECISION A(LDA,*), B(LDB,*)
  SUBROUTINE DPOTRS_64( UPLO, N, NRHS, A, LDA, B, LDB, INFO)
  CHARACTER * 1 UPLO
  INTEGER*8 N, NRHS, LDA, LDB, INFO
  DOUBLE PRECISION A(LDA,*), B(LDB,*)

F95 INTERFACE

  SUBROUTINE POTRS( UPLO, [N], [NRHS], A, [LDA], B, [LDB], [INFO])
  CHARACTER(LEN=1) :: UPLO
  INTEGER :: N, NRHS, LDA, LDB, INFO
  REAL(8), DIMENSION(:,:) :: A, B
  SUBROUTINE POTRS_64( UPLO, [N], [NRHS], A, [LDA], B, [LDB], [INFO])
  CHARACTER(LEN=1) :: UPLO
  INTEGER(8) :: N, NRHS, LDA, LDB, INFO
  REAL(8), DIMENSION(:,:) :: A, B

C INTERFACE

#include <sunperf.h>

void dpotrs(char uplo, int n, int nrhs, double *a, int lda, double *b, int ldb, int *info);

void dpotrs_64(char uplo, long n, long nrhs, double *a, long lda, double *b, long ldb, long *info);


PURPOSE

dpotrs solves a system of linear equations A*X = B with a symmetric positive definite matrix A using the Cholesky factorization A = U**T*U or A = L*L**T computed by SPOTRF.


ARGUMENTS