SUBROUTINE DGTTRS( TRANSA, N, NRHS, LOW, DIAG, UP1, UP2, IPIVOT, B, * LDB, INFO) CHARACTER * 1 TRANSA INTEGER N, NRHS, LDB, INFO INTEGER IPIVOT(*) DOUBLE PRECISION LOW(*), DIAG(*), UP1(*), UP2(*), B(LDB,*) SUBROUTINE DGTTRS_64( TRANSA, N, NRHS, LOW, DIAG, UP1, UP2, IPIVOT, * B, LDB, INFO) CHARACTER * 1 TRANSA INTEGER*8 N, NRHS, LDB, INFO INTEGER*8 IPIVOT(*) DOUBLE PRECISION LOW(*), DIAG(*), UP1(*), UP2(*), B(LDB,*)
SUBROUTINE GTTRS( [TRANSA], [N], [NRHS], LOW, DIAG, UP1, UP2, * IPIVOT, B, [LDB], [INFO]) CHARACTER(LEN=1) :: TRANSA INTEGER :: N, NRHS, LDB, INFO INTEGER, DIMENSION(:) :: IPIVOT REAL(8), DIMENSION(:) :: LOW, DIAG, UP1, UP2 REAL(8), DIMENSION(:,:) :: B SUBROUTINE GTTRS_64( [TRANSA], [N], [NRHS], LOW, DIAG, UP1, UP2, * IPIVOT, B, [LDB], [INFO]) CHARACTER(LEN=1) :: TRANSA INTEGER(8) :: N, NRHS, LDB, INFO INTEGER(8), DIMENSION(:) :: IPIVOT REAL(8), DIMENSION(:) :: LOW, DIAG, UP1, UP2 REAL(8), DIMENSION(:,:) :: B
void dgttrs(char transa, int n, int nrhs, double *low, double *diag, double *up1, double *up2, int *ipivot, double *b, int ldb, int *info);
void dgttrs_64(char transa, long n, long nrhs, double *low, double *diag, double *up1, double *up2, long *ipivot, double *b, long ldb, long *info);