SUBROUTINE ZGTTRS( TRANSA, N, NRHS, LOW, DIAG, UP1, UP2, IPIVOT, B, * LDB, INFO) CHARACTER * 1 TRANSA DOUBLE COMPLEX LOW(*), DIAG(*), UP1(*), UP2(*), B(LDB,*) INTEGER N, NRHS, LDB, INFO INTEGER IPIVOT(*) SUBROUTINE ZGTTRS_64( TRANSA, N, NRHS, LOW, DIAG, UP1, UP2, IPIVOT, * B, LDB, INFO) CHARACTER * 1 TRANSA DOUBLE COMPLEX LOW(*), DIAG(*), UP1(*), UP2(*), B(LDB,*) INTEGER*8 N, NRHS, LDB, INFO INTEGER*8 IPIVOT(*)
SUBROUTINE GTTRS( [TRANSA], [N], [NRHS], LOW, DIAG, UP1, UP2, * IPIVOT, B, [LDB], [INFO]) CHARACTER(LEN=1) :: TRANSA COMPLEX(8), DIMENSION(:) :: LOW, DIAG, UP1, UP2 COMPLEX(8), DIMENSION(:,:) :: B INTEGER :: N, NRHS, LDB, INFO INTEGER, DIMENSION(:) :: IPIVOT SUBROUTINE GTTRS_64( [TRANSA], [N], [NRHS], LOW, DIAG, UP1, UP2, * IPIVOT, B, [LDB], [INFO]) CHARACTER(LEN=1) :: TRANSA COMPLEX(8), DIMENSION(:) :: LOW, DIAG, UP1, UP2 COMPLEX(8), DIMENSION(:,:) :: B INTEGER(8) :: N, NRHS, LDB, INFO INTEGER(8), DIMENSION(:) :: IPIVOT
void zgttrs(char transa, int n, int nrhs, doublecomplex *low, doublecomplex *diag, doublecomplex *up1, doublecomplex *up2, int *ipivot, doublecomplex *b, int ldb, int *info);
void zgttrs_64(char transa, long n, long nrhs, doublecomplex *low, doublecomplex *diag, doublecomplex *up1, doublecomplex *up2, long *ipivot, doublecomplex *b, long ldb, long *info);