NAME

dtrtrs - solve a triangular system of the form A * X = B or A**T * X = B,


SYNOPSIS

  SUBROUTINE DTRTRS( UPLO, TRANSA, DIAG, N, NRHS, A, LDA, B, LDB, 
 *      INFO)
  CHARACTER * 1 UPLO, TRANSA, DIAG
  INTEGER N, NRHS, LDA, LDB, INFO
  DOUBLE PRECISION A(LDA,*), B(LDB,*)
  SUBROUTINE DTRTRS_64( UPLO, TRANSA, DIAG, N, NRHS, A, LDA, B, LDB, 
 *      INFO)
  CHARACTER * 1 UPLO, TRANSA, DIAG
  INTEGER*8 N, NRHS, LDA, LDB, INFO
  DOUBLE PRECISION A(LDA,*), B(LDB,*)

F95 INTERFACE

  SUBROUTINE TRTRS( UPLO, [TRANSA], DIAG, [N], [NRHS], A, [LDA], B, 
 *       [LDB], [INFO])
  CHARACTER(LEN=1) :: UPLO, TRANSA, DIAG
  INTEGER :: N, NRHS, LDA, LDB, INFO
  REAL(8), DIMENSION(:,:) :: A, B
  SUBROUTINE TRTRS_64( UPLO, [TRANSA], DIAG, [N], [NRHS], A, [LDA], B, 
 *       [LDB], [INFO])
  CHARACTER(LEN=1) :: UPLO, TRANSA, DIAG
  INTEGER(8) :: N, NRHS, LDA, LDB, INFO
  REAL(8), DIMENSION(:,:) :: A, B

C INTERFACE

#include <sunperf.h>

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

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


PURPOSE

dtrtrs solves a triangular system of the form

where A is a triangular matrix of order N, and B is an N-by-NRHS matrix. A check is made to verify that A is nonsingular.


ARGUMENTS