Functions

program zchkaa
ZCHKAA
program zchkab
ZCHKAB
subroutine zchkeq (THRESH, NOUT)
ZCHKEQ
subroutine zchkgb (DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NNS, NSVAL, THRESH, TSTERR, A, LA, AFAC, LAFAC, B, X, XACT, WORK, RWORK, IWORK, NOUT)
ZCHKGB
subroutine zchkge (DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NNS, NSVAL, THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, NOUT)
ZCHKGE
subroutine zchkgt (DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, A, AF, B, X, XACT, WORK, RWORK, IWORK, NOUT)
ZCHKGT
subroutine zchkhe (DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, NOUT)
ZCHKHE
subroutine zchkhe_rook (DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, NOUT)
ZCHKHE_ROOK
subroutine zchkhp (DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, NOUT)
ZCHKHP
subroutine zchklq (DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AL, AC, B, X, XACT, TAU, WORK, RWORK, NOUT)
ZCHKLQ
subroutine zchkpb (DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, XACT, WORK, RWORK, NOUT)
ZCHKPB
subroutine zchkpo (DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, XACT, WORK, RWORK, NOUT)
ZCHKPO
subroutine zchkpp (DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, XACT, WORK, RWORK, NOUT)
ZCHKPP
subroutine zchkps (DOTYPE, NN, NVAL, NNB, NBVAL, NRANK, RANKVAL, THRESH, TSTERR, NMAX, A, AFAC, PERM, PIV, WORK, RWORK, NOUT)
ZCHKPS
subroutine zchkpt (DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, A, D, E, B, X, XACT, WORK, RWORK, NOUT)
ZCHKPT
subroutine zchkq3 (DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, THRESH, A, COPYA, S, TAU, WORK, RWORK, IWORK, NOUT)
ZCHKQ3
subroutine zchkql (DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AL, AC, B, X, XACT, TAU, WORK, RWORK, NOUT)
ZCHKQL
subroutine zchkqr (DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AR, AC, B, X, XACT, TAU, WORK, RWORK, IWORK, NOUT)
ZCHKQR
subroutine zchkqrt (THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, NBVAL, NOUT)
ZCHKQRT
subroutine zchkqrtp (THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, NBVAL, NOUT)
ZCHKQRTP
program zchkrfp
ZCHKRFP
subroutine zchkrq (DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AR, AC, B, X, XACT, TAU, WORK, RWORK, IWORK, NOUT)
ZCHKRQ
subroutine zchksp (DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, NOUT)
ZCHKSP
subroutine zchksy (DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, NOUT)
ZCHKSY
subroutine zchksy_rook (DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, NOUT)
ZCHKSY_ROOK
subroutine zchktb (DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, NMAX, AB, AINV, B, X, XACT, WORK, RWORK, NOUT)
ZCHKTB
subroutine zchktp (DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, NMAX, AP, AINVP, B, X, XACT, WORK, RWORK, NOUT)
ZCHKTP
subroutine zchktr (DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, THRESH, TSTERR, NMAX, A, AINV, B, X, XACT, WORK, RWORK, NOUT)
ZCHKTR
subroutine zchktz (DOTYPE, NM, MVAL, NN, NVAL, THRESH, TSTERR, A, COPYA, S, TAU, WORK, RWORK, NOUT)
ZCHKTZ
subroutine zdrvab (DOTYPE, NM, MVAL, NNS, NSVAL, THRESH, NMAX, A, AFAC, B, X, WORK, RWORK, SWORK, IWORK, NOUT)
ZDRVAB
subroutine zdrvac (DOTYPE, NM, MVAL, NNS, NSVAL, THRESH, NMAX, A, AFAC, B, X, WORK, RWORK, SWORK, NOUT)
ZDRVAC
subroutine zdrvgb (DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, LA, AFB, LAFB, ASAV, B, BSAV, X, XACT, S, WORK, RWORK, IWORK, NOUT)
ZDRVGB
subroutine zdrvge (DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, RWORK, IWORK, NOUT)
ZDRVGE
subroutine zdrvgt (DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, AF, B, X, XACT, WORK, RWORK, IWORK, NOUT)
ZDRVGT
subroutine zdrvhe (DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, NOUT)
ZDRVHE
subroutine zdrvhe_rook (DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, NOUT)
ZDRVHE_ROOK
subroutine zdrvhp (DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, NOUT)
ZDRVHP
subroutine zdrvls (DOTYPE, NM, MVAL, NN, NVAL, NNS, NSVAL, NNB, NBVAL, NXVAL, THRESH, TSTERR, A, COPYA, B, COPYB, C, S, COPYS, WORK, RWORK, IWORK, NOUT)
ZDRVLS
subroutine zdrvpb (DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, RWORK, NOUT)
ZDRVPB
subroutine zdrvpo (DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, RWORK, NOUT)
ZDRVPO
subroutine zdrvpp (DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, RWORK, NOUT)
ZDRVPP
subroutine zdrvpt (DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, D, E, B, X, XACT, WORK, RWORK, NOUT)
ZDRVPT
subroutine zdrvrf1 (NOUT, NN, NVAL, THRESH, A, LDA, ARF, WORK)
ZDRVRF1
subroutine zdrvrf2 (NOUT, NN, NVAL, A, LDA, ARF, AP, ASAV)
ZDRVRF2
subroutine zdrvrf3 (NOUT, NN, NVAL, THRESH, A, LDA, ARF, B1, B2, D_WORK_ZLANGE, Z_WORK_ZGEQRF, TAU)
ZDRVRF3
subroutine zdrvrf4 (NOUT, NN, NVAL, THRESH, C1, C2, LDC, CRF, A, LDA, D_WORK_ZLANGE)
ZDRVRF4
subroutine zdrvrfp (NOUT, NN, NVAL, NNS, NSVAL, NNT, NTVAL, THRESH, A, ASAV, AFAC, AINV, B, BSAV, XACT, X, ARF, ARFINV, Z_WORK_ZLATMS, Z_WORK_ZPOT02, Z_WORK_ZPOT03, D_WORK_ZLATMS, D_WORK_ZLANHE, D_WORK_ZPOT01, D_WORK_ZPOT02, D_WORK_ZPOT03)
ZDRVRFP
subroutine zdrvsp (DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, NOUT)
ZDRVSP
subroutine zdrvsy (DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, NOUT)
ZDRVSY
subroutine zdrvsy_rook (DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, NOUT)
ZDRVSY_ROOK
subroutine zebchvxx (THRESH, PATH)
ZEBCHVXX
subroutine zerrab (NUNIT)
ZERRAB
subroutine zerrac (NUNIT)
ZERRAC
subroutine zerrge (PATH, NUNIT)
ZERRGE
subroutine zerrgt (PATH, NUNIT)
ZERRGT
subroutine zerrhe (PATH, NUNIT)
ZERRHE
subroutine zerrlq (PATH, NUNIT)
ZERRLQ
subroutine zerrls (PATH, NUNIT)
ZERRLS
subroutine zerrpo (PATH, NUNIT)
ZERRPO
subroutine zerrps (PATH, NUNIT)
ZERRPS
subroutine zerrql (PATH, NUNIT)
ZERRQL
subroutine zerrqp (PATH, NUNIT)
ZERRQP
subroutine zerrqr (PATH, NUNIT)
ZERRQR
subroutine zerrqrt (PATH, NUNIT)
ZERRQRT
subroutine zerrqrtp (PATH, NUNIT)
ZERRQRTP
subroutine zerrrfp (NUNIT)
ZERRRFP
subroutine zerrrq (PATH, NUNIT)
ZERRRQ
subroutine zerrsy (PATH, NUNIT)
ZERRSY
subroutine zerrtr (PATH, NUNIT)
ZERRTR
subroutine zerrtz (PATH, NUNIT)
ZERRTZ
subroutine zerrvx (PATH, NUNIT)
ZERRVX
subroutine zgbt01 (M, N, KL, KU, A, LDA, AFAC, LDAFAC, IPIV, WORK, RESID)
ZGBT01
subroutine zgbt02 (TRANS, M, N, KL, KU, NRHS, A, LDA, X, LDX, B, LDB, RESID)
ZGBT02
subroutine zgbt05 (TRANS, N, KL, KU, NRHS, AB, LDAB, B, LDB, X, LDX, XACT, LDXACT, FERR, BERR, RESLTS)
ZGBT05
subroutine zgelqs (M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK, INFO)
ZGELQS
logical function zgennd (M, N, A, LDA)
ZGENND
subroutine zgeqls (M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK, INFO)
ZGEQLS
subroutine zgeqrs (M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK, INFO)
ZGEQRS
subroutine zgerqs (M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK, INFO)
ZGERQS
subroutine zget01 (M, N, A, LDA, AFAC, LDAFAC, IPIV, RWORK, RESID)
ZGET01
subroutine zget02 (TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB, RWORK, RESID)
ZGET02
subroutine zget03 (N, A, LDA, AINV, LDAINV, WORK, LDWORK, RWORK, RCOND, RESID)
ZGET03
subroutine zget04 (N, NRHS, X, LDX, XACT, LDXACT, RCOND, RESID)
ZGET04
subroutine zget07 (TRANS, N, NRHS, A, LDA, B, LDB, X, LDX, XACT, LDXACT, FERR, CHKFERR, BERR, RESLTS)
ZGET07
subroutine zget08 (TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB, RWORK, RESID)
ZGET08
subroutine zgtt01 (N, DL, D, DU, DLF, DF, DUF, DU2, IPIV, WORK, LDWORK, RWORK, RESID)
ZGTT01
subroutine zgtt02 (TRANS, N, NRHS, DL, D, DU, X, LDX, B, LDB, RESID)
ZGTT02
subroutine zgtt05 (TRANS, N, NRHS, DL, D, DU, B, LDB, X, LDX, XACT, LDXACT, FERR, BERR, RESLTS)
ZGTT05
subroutine zhet01 (UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C, LDC, RWORK, RESID)
ZHET01
subroutine zhet01_rook (UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C, LDC, RWORK, RESID)
ZHET01_ROOK
subroutine zhpt01 (UPLO, N, A, AFAC, IPIV, C, LDC, RWORK, RESID)
ZHPT01
subroutine zlahilb (N, NRHS, A, LDA, X, LDX, B, LDB, WORK, INFO, PATH)
ZLAHILB
subroutine zlaipd (N, A, INDA, VINDA)
ZLAIPD
subroutine zlaptm (UPLO, N, NRHS, ALPHA, D, E, X, LDX, BETA, B, LDB)
ZLAPTM
subroutine zlarhs (PATH, XTYPE, UPLO, TRANS, M, N, KL, KU, NRHS, A, LDA, X, LDX, B, LDB, ISEED, INFO)
ZLARHS
subroutine zlatb4 (PATH, IMAT, M, N, TYPE, KL, KU, ANORM, MODE, CNDNUM, DIST)
ZLATB4
subroutine zlatb5 (PATH, IMAT, N, TYPE, KL, KU, ANORM, MODE, CNDNUM, DIST)
ZLATB5
subroutine zlatsp (UPLO, N, X, ISEED)
ZLATSP
subroutine zlatsy (UPLO, N, X, LDX, ISEED)
ZLATSY
subroutine zlattb (IMAT, UPLO, TRANS, DIAG, ISEED, N, KD, AB, LDAB, B, WORK, RWORK, INFO)
ZLATTB
subroutine zlattp (IMAT, UPLO, TRANS, DIAG, ISEED, N, AP, B, WORK, RWORK, INFO)
ZLATTP
subroutine zlattr (IMAT, UPLO, TRANS, DIAG, ISEED, N, A, LDA, B, WORK, RWORK, INFO)
ZLATTR
subroutine zlavhe (UPLO, TRANS, DIAG, N, NRHS, A, LDA, IPIV, B, LDB, INFO)
ZLAVHE
subroutine zlavhe_rook (UPLO, TRANS, DIAG, N, NRHS, A, LDA, IPIV, B, LDB, INFO)
ZLAVHE_ROOK
subroutine zlavhp (UPLO, TRANS, DIAG, N, NRHS, A, IPIV, B, LDB, INFO)
ZLAVHP
subroutine zlavsp (UPLO, TRANS, DIAG, N, NRHS, A, IPIV, B, LDB, INFO)
ZLAVSP
subroutine zlavsy (UPLO, TRANS, DIAG, N, NRHS, A, LDA, IPIV, B, LDB, INFO)
ZLAVSY
subroutine zlavsy_rook (UPLO, TRANS, DIAG, N, NRHS, A, LDA, IPIV, B, LDB, INFO)
ZLAVSY_ROOK
subroutine zlqt01 (M, N, A, AF, Q, L, LDA, TAU, WORK, LWORK, RWORK, RESULT)
ZLQT01
subroutine zlqt02 (M, N, K, A, AF, Q, L, LDA, TAU, WORK, LWORK, RWORK, RESULT)
ZLQT02
subroutine zlqt03 (M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, RWORK, RESULT)
ZLQT03
subroutine zpbt01 (UPLO, N, KD, A, LDA, AFAC, LDAFAC, RWORK, RESID)
ZPBT01
subroutine zpbt02 (UPLO, N, KD, NRHS, A, LDA, X, LDX, B, LDB, RWORK, RESID)
ZPBT02
subroutine zpbt05 (UPLO, N, KD, NRHS, AB, LDAB, B, LDB, X, LDX, XACT, LDXACT, FERR, BERR, RESLTS)
ZPBT05
subroutine zpot01 (UPLO, N, A, LDA, AFAC, LDAFAC, RWORK, RESID)
ZPOT01
subroutine zpot02 (UPLO, N, NRHS, A, LDA, X, LDX, B, LDB, RWORK, RESID)
ZPOT02
subroutine zpot03 (UPLO, N, A, LDA, AINV, LDAINV, WORK, LDWORK, RWORK, RCOND, RESID)
ZPOT03
subroutine zpot05 (UPLO, N, NRHS, A, LDA, B, LDB, X, LDX, XACT, LDXACT, FERR, BERR, RESLTS)
ZPOT05
subroutine zpot06 (UPLO, N, NRHS, A, LDA, X, LDX, B, LDB, RWORK, RESID)
ZPOT06
subroutine zppt01 (UPLO, N, A, AFAC, RWORK, RESID)
ZPPT01
subroutine zppt02 (UPLO, N, NRHS, A, X, LDX, B, LDB, RWORK, RESID)
ZPPT02
subroutine zppt03 (UPLO, N, A, AINV, WORK, LDWORK, RWORK, RCOND, RESID)
ZPPT03
subroutine zppt05 (UPLO, N, NRHS, AP, B, LDB, X, LDX, XACT, LDXACT, FERR, BERR, RESLTS)
ZPPT05
subroutine zpst01 (UPLO, N, A, LDA, AFAC, LDAFAC, PERM, LDPERM, PIV, RWORK, RESID, RANK)
ZPST01
subroutine zptt01 (N, D, E, DF, EF, WORK, RESID)
ZPTT01
subroutine zptt02 (UPLO, N, NRHS, D, E, X, LDX, B, LDB, RESID)
ZPTT02
subroutine zptt05 (N, NRHS, D, E, B, LDB, X, LDX, XACT, LDXACT, FERR, BERR, RESLTS)
ZPTT05
subroutine zqlt01 (M, N, A, AF, Q, L, LDA, TAU, WORK, LWORK, RWORK, RESULT)
ZQLT01
subroutine zqlt02 (M, N, K, A, AF, Q, L, LDA, TAU, WORK, LWORK, RWORK, RESULT)
ZQLT02
subroutine zqlt03 (M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, RWORK, RESULT)
ZQLT03
double precision function zqpt01 (M, N, K, A, AF, LDA, TAU, JPVT, WORK, LWORK)
ZQPT01
subroutine zqrt01 (M, N, A, AF, Q, R, LDA, TAU, WORK, LWORK, RWORK, RESULT)
ZQRT01
subroutine zqrt01p (M, N, A, AF, Q, R, LDA, TAU, WORK, LWORK, RWORK, RESULT)
ZQRT01P
subroutine zqrt02 (M, N, K, A, AF, Q, R, LDA, TAU, WORK, LWORK, RWORK, RESULT)
ZQRT02
subroutine zqrt03 (M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, RWORK, RESULT)
ZQRT03
subroutine zqrt04 (M, N, NB, RESULT)
ZQRT04
subroutine zqrt05 (M, N, L, NB, RESULT)
ZQRT05
double precision function zqrt11 (M, K, A, LDA, TAU, WORK, LWORK)
ZQRT11
double precision function zqrt12 (M, N, A, LDA, S, WORK, LWORK, RWORK)
ZQRT12
subroutine zqrt13 (SCALE, M, N, A, LDA, NORMA, ISEED)
ZQRT13
double precision function zqrt14 (TRANS, M, N, NRHS, A, LDA, X, LDX, WORK, LWORK)
ZQRT14
subroutine zqrt15 (SCALE, RKSEL, M, N, NRHS, A, LDA, B, LDB, S, RANK, NORMA, NORMB, ISEED, WORK, LWORK)
ZQRT15
subroutine zqrt16 (TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB, RWORK, RESID)
ZQRT16
double precision function zqrt17 (TRANS, IRESID, M, N, NRHS, A, LDA, X, LDX, B, LDB, C, WORK, LWORK)
ZQRT17
subroutine zrqt01 (M, N, A, AF, Q, R, LDA, TAU, WORK, LWORK, RWORK, RESULT)
ZRQT01
subroutine zrqt02 (M, N, K, A, AF, Q, R, LDA, TAU, WORK, LWORK, RWORK, RESULT)
ZRQT02
subroutine zrqt03 (M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, RWORK, RESULT)
ZRQT03
double precision function zrzt01 (M, N, A, AF, LDA, TAU, WORK, LWORK)
ZRZT01
double precision function zrzt02 (M, N, AF, LDA, TAU, WORK, LWORK)
ZRZT02
subroutine zsbmv (UPLO, N, K, ALPHA, A, LDA, X, INCX, BETA, Y, INCY)
ZSBMV
subroutine zspt01 (UPLO, N, A, AFAC, IPIV, C, LDC, RWORK, RESID)
ZSPT01
subroutine zspt02 (UPLO, N, NRHS, A, X, LDX, B, LDB, RWORK, RESID)
ZSPT02
subroutine zspt03 (UPLO, N, A, AINV, WORK, LDW, RWORK, RCOND, RESID)
ZSPT03
subroutine zsyt01 (UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C, LDC, RWORK, RESID)
ZSYT01
subroutine zsyt01_rook (UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C, LDC, RWORK, RESID)
ZSYT01_ROOK
subroutine zsyt02 (UPLO, N, NRHS, A, LDA, X, LDX, B, LDB, RWORK, RESID)
ZSYT02
subroutine zsyt03 (UPLO, N, A, LDA, AINV, LDAINV, WORK, LDWORK, RWORK, RCOND, RESID)
ZSYT03
subroutine ztbt02 (UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, X, LDX, B, LDB, WORK, RWORK, RESID)
ZTBT02
subroutine ztbt03 (UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, SCALE, CNORM, TSCAL, X, LDX, B, LDB, WORK, RESID)
ZTBT03
subroutine ztbt05 (UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, B, LDB, X, LDX, XACT, LDXACT, FERR, BERR, RESLTS)
ZTBT05
subroutine ztbt06 (RCOND, RCONDC, UPLO, DIAG, N, KD, AB, LDAB, RWORK, RAT)
ZTBT06
subroutine ztpt01 (UPLO, DIAG, N, AP, AINVP, RCOND, RWORK, RESID)
ZTPT01
subroutine ztpt02 (UPLO, TRANS, DIAG, N, NRHS, AP, X, LDX, B, LDB, WORK, RWORK, RESID)
ZTPT02
subroutine ztpt03 (UPLO, TRANS, DIAG, N, NRHS, AP, SCALE, CNORM, TSCAL, X, LDX, B, LDB, WORK, RESID)
ZTPT03
subroutine ztpt05 (UPLO, TRANS, DIAG, N, NRHS, AP, B, LDB, X, LDX, XACT, LDXACT, FERR, BERR, RESLTS)
ZTPT05
subroutine ztpt06 (RCOND, RCONDC, UPLO, DIAG, N, AP, RWORK, RAT)
ZTPT06
subroutine ztrt01 (UPLO, DIAG, N, A, LDA, AINV, LDAINV, RCOND, RWORK, RESID)
ZTRT01
subroutine ztrt02 (UPLO, TRANS, DIAG, N, NRHS, A, LDA, X, LDX, B, LDB, WORK, RWORK, RESID)
ZTRT02
subroutine ztrt03 (UPLO, TRANS, DIAG, N, NRHS, A, LDA, SCALE, CNORM, TSCAL, X, LDX, B, LDB, WORK, RESID)
ZTRT03
subroutine ztrt05 (UPLO, TRANS, DIAG, N, NRHS, A, LDA, B, LDB, X, LDX, XACT, LDXACT, FERR, BERR, RESLTS)
ZTRT05
subroutine ztrt06 (RCOND, RCONDC, UPLO, DIAG, N, A, LDA, RWORK, RAT)
ZTRT06

Detailed Description

This is the group of complex16 LAPACK TESTING LIN routines.

Function Documentation

program zchkaa ()

ZCHKAA

Purpose:

 ZCHKAA is the main test program for the COMPLEX*16 linear equation
 routines.
 The program must be driven by a short data file. The first 15 records
 (not including the first comment  line) specify problem dimensions
 and program options using list-directed input. The remaining lines
 specify the LAPACK test paths and the number of matrix types to use
 in testing.  An annotated example of a data file can be obtained by
 deleting the first 3 characters from the following 42 lines:
 Data file for testing COMPLEX*16 LAPACK linear equation routines
 7                      Number of values of M
 0 1 2 3 5 10 16        Values of M (row dimension)
 7                      Number of values of N
 0 1 2 3 5 10 16        Values of N (column dimension)
 1                      Number of values of NRHS
 2                      Values of NRHS (number of right hand sides)
 5                      Number of values of NB
 1 3 3 3 20             Values of NB (the blocksize)
 1 0 5 9 1              Values of NX (crossover point)
 3                      Number of values of RANK
 30 50 90               Values of rank (as a % of N)
 30.0                   Threshold value of test ratio
 T                      Put T to test the LAPACK routines
 T                      Put T to test the driver routines
 T                      Put T to test the error exits
 ZGE   11               List types on next line if 0 < NTYPES < 11
 ZGB    8               List types on next line if 0 < NTYPES <  8
 ZGT   12               List types on next line if 0 < NTYPES < 12
 ZPO    9               List types on next line if 0 < NTYPES <  9
 ZPS    9               List types on next line if 0 < NTYPES <  9
 ZPP    9               List types on next line if 0 < NTYPES <  9
 ZPB    8               List types on next line if 0 < NTYPES <  8
 ZPT   12               List types on next line if 0 < NTYPES < 12
 ZHE   10               List types on next line if 0 < NTYPES < 10
 ZHR   10               List types on next line if 0 < NTYPES < 10
 ZHP   10               List types on next line if 0 < NTYPES < 10
 ZSY   11               List types on next line if 0 < NTYPES < 11
 ZSR   11               List types on next line if 0 < NTYPES < 11
 ZSP   11               List types on next line if 0 < NTYPES < 11
 ZTR   18               List types on next line if 0 < NTYPES < 18
 ZTP   18               List types on next line if 0 < NTYPES < 18
 ZTB   17               List types on next line if 0 < NTYPES < 17
 ZQR    8               List types on next line if 0 < NTYPES <  8
 ZRQ    8               List types on next line if 0 < NTYPES <  8
 ZLQ    8               List types on next line if 0 < NTYPES <  8
 ZQL    8               List types on next line if 0 < NTYPES <  8
 ZQP    6               List types on next line if 0 < NTYPES <  6
 ZTZ    3               List types on next line if 0 < NTYPES <  3
 ZLS    6               List types on next line if 0 < NTYPES <  6
 ZEQ
 ZQT
 ZQX

 

  NMAX    INTEGER
          The maximum allowable value for M and N.
  MAXIN   INTEGER
          The number of different values that can be used for each of
          M, N, NRHS, NB, NX and RANK
  MAXRHS  INTEGER
          The maximum number of right hand sides
  MATMAX  INTEGER
          The maximum number of matrix types to use for testing
  NIN     INTEGER
          The unit number for input
  NOUT    INTEGER
          The unit number for output

 

Author:

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

Date:

November 2015

program zchkab ()

ZCHKAB

Purpose:

 ZCHKAB is the test program for the COMPLEX*16 LAPACK
 ZCGESV/ZCPOSV routine
 The program must be driven by a short data file. The first 5 records
 specify problem dimensions and program options using list-directed
 input. The remaining lines specify the LAPACK test paths and the
 number of matrix types to use in testing.  An annotated example of a
 data file can be obtained by deleting the first 3 characters from the
 following 9 lines:
 Data file for testing COMPLEX*16 LAPACK ZCGESV
 7                      Number of values of M
 0 1 2 3 5 10 16        Values of M (row dimension)
 1                      Number of values of NRHS
 2                      Values of NRHS (number of right hand sides)
 20.0                   Threshold value of test ratio
 T                      Put T to test the LAPACK routine
 T                      Put T to test the error exits
 DGE    11              List types on next line if 0 < NTYPES < 11
 DPO    9               List types on next line if 0 < NTYPES <  9

 

  NMAX    INTEGER
          The maximum allowable value for N
  MAXIN   INTEGER
          The number of different values that can be used for each of
          M, N, NRHS, NB, and NX
  MAXRHS  INTEGER
          The maximum number of right hand sides
  NIN     INTEGER
          The unit number for input
  NOUT    INTEGER
          The unit number for output

 

Author:

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

Date:

April 2012

subroutine zchkeq (double precision THRESH, integer NOUT)

ZCHKEQ

Purpose:

 ZCHKEQ tests ZGEEQU, ZGBEQU, ZPOEQU, ZPPEQU and ZPBEQU

 

Parameters:

THRESH

          THRESH is DOUBLE PRECISION
          Threshold for testing routines. Should be between 2 and 10.

NOUT

          NOUT is INTEGER
          The unit number for output.

 

Author:

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

Date:

November 2011

subroutine zchkgb (logical, dimension( * ) DOTYPE, integer NM, integer, dimension( * ) MVAL, integer NN, integer, dimension( * ) NVAL, integer NNB, integer, dimension( * ) NBVAL, integer NNS, integer, dimension( * ) NSVAL, double precision THRESH, logical TSTERR, complex*16, dimension( * ) A, integer LA, complex*16, dimension( * ) AFAC, integer LAFAC, complex*16, dimension( * ) B, complex*16, dimension( * ) X, complex*16, dimension( * ) XACT, complex*16, dimension( * ) WORK, double precision, dimension( * ) RWORK, integer, dimension( * ) IWORK, integer NOUT)

ZCHKGB

Purpose:

 ZCHKGB tests ZGBTRF, -TRS, -RFS, and -CON

 

Parameters:

DOTYPE

          DOTYPE is LOGICAL array, dimension (NTYPES)
          The matrix types to be used for testing.  Matrices of type j
          (for 1 <= j <= NTYPES) are used for testing if DOTYPE(j) =
          .TRUE.; if DOTYPE(j) = .FALSE., then type j is not used.

NM

          NM is INTEGER
          The number of values of M contained in the vector MVAL.

MVAL

          MVAL is INTEGER array, dimension (NM)
          The values of the matrix row dimension M.

NN

          NN is INTEGER
          The number of values of N contained in the vector NVAL.

NVAL

          NVAL is INTEGER array, dimension (NN)
          The values of the matrix column dimension N.

NNB

          NNB is INTEGER
          The number of values of NB contained in the vector NBVAL.

NBVAL

          NBVAL is INTEGER array, dimension (NBVAL)
          The values of the blocksize NB.

NNS

          NNS is INTEGER
          The number of values of NRHS contained in the vector NSVAL.

NSVAL

          NSVAL is INTEGER array, dimension (NNS)
          The values of the number of right hand sides NRHS.

THRESH

          THRESH is DOUBLE PRECISION
          The threshold value for the test ratios.  A result is
          included in the output file if RESULT >= THRESH.  To have
          every test ratio printed, use THRESH = 0.

TSTERR

          TSTERR is LOGICAL
          Flag that indicates whether error exits are to be tested.

A

          A is COMPLEX*16 array, dimension (LA)

LA

          LA is INTEGER
          The length of the array A.  LA >= (KLMAX+KUMAX+1)*NMAX
          where KLMAX is the largest entry in the local array KLVAL,
                KUMAX is the largest entry in the local array KUVAL and
                NMAX is the largest entry in the input array NVAL.

AFAC

          AFAC is COMPLEX*16 array, dimension (LAFAC)

LAFAC

          LAFAC is INTEGER
          The length of the array AFAC. LAFAC >= (2*KLMAX+KUMAX+1)*NMAX
          where KLMAX is the largest entry in the local array KLVAL,
                KUMAX is the largest entry in the local array KUVAL and
                NMAX is the largest entry in the input array NVAL.

B

          B is COMPLEX*16 array, dimension (NMAX*NSMAX)

X

          X is COMPLEX*16 array, dimension (NMAX*NSMAX)

XACT

          XACT is COMPLEX*16 array, dimension (NMAX*NSMAX)

WORK

          WORK is COMPLEX*16 array, dimension
                      (NMAX*max(3,NSMAX,NMAX))

RWORK

          RWORK is DOUBLE PRECISION array, dimension
                      (max(NMAX,2*NSMAX))

IWORK

          IWORK is INTEGER array, dimension (NMAX)

NOUT

          NOUT is INTEGER
          The unit number for output.

 

Author:

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

Date:

November 2011

subroutine zchkge (logical, dimension( * ) DOTYPE, integer NM, integer, dimension( * ) MVAL, integer NN, integer, dimension( * ) NVAL, integer NNB, integer, dimension( * ) NBVAL, integer NNS, integer, dimension( * ) NSVAL, double precision THRESH, logical TSTERR, integer NMAX, complex*16, dimension( * ) A, complex*16, dimension( * ) AFAC, complex*16, dimension( * ) AINV, complex*16, dimension( * ) B, complex*16, dimension( * ) X, complex*16, dimension( * ) XACT, complex*16, dimension( * ) WORK, double precision, dimension( * ) RWORK, integer, dimension( * ) IWORK, integer NOUT)

ZCHKGE

Purpose:

 ZCHKGE tests ZGETRF, -TRI, -TRS, -RFS, and -CON.

 

Parameters:

DOTYPE

          DOTYPE is LOGICAL array, dimension (NTYPES)
          The matrix types to be used for testing.  Matrices of type j
          (for 1 <= j <= NTYPES) are used for testing if DOTYPE(j) =
          .TRUE.; if DOTYPE(j) = .FALSE., then type j is not used.

NM

          NM is INTEGER
          The number of values of M contained in the vector MVAL.

MVAL

          MVAL is INTEGER array, dimension (NM)
          The values of the matrix row dimension M.

NN

          NN is INTEGER
          The number of values of N contained in the vector NVAL.

NVAL

          NVAL is INTEGER array, dimension (NN)
          The values of the matrix column dimension N.

NNB

          NNB is INTEGER
          The number of values of NB contained in the vector NBVAL.

NBVAL

          NBVAL is INTEGER array, dimension (NBVAL)
          The values of the blocksize NB.

NNS

          NNS is INTEGER
          The number of values of NRHS contained in the vector NSVAL.

NSVAL

          NSVAL is INTEGER array, dimension (NNS)
          The values of the number of right hand sides NRHS.

THRESH

          THRESH is DOUBLE PRECISION
          The threshold value for the test ratios.  A result is
          included in the output file if RESULT >= THRESH.  To have
          every test ratio printed, use THRESH = 0.

TSTERR

          TSTERR is LOGICAL
          Flag that indicates whether error exits are to be tested.

NMAX

          NMAX is INTEGER
          The maximum value permitted for M or N, used in dimensioning
          the work arrays.

A

          A is COMPLEX*16 array, dimension (NMAX*NMAX)

AFAC

          AFAC is COMPLEX*16 array, dimension (NMAX*NMAX)

AINV

          AINV is COMPLEX*16 array, dimension (NMAX*NMAX)

B

          B is COMPLEX*16 array, dimension (NMAX*NSMAX)
          where NSMAX is the largest entry in NSVAL.

X

          X is COMPLEX*16 array, dimension (NMAX*NSMAX)

XACT

          XACT is COMPLEX*16 array, dimension (NMAX*NSMAX)

WORK

          WORK is COMPLEX*16 array, dimension
                      (NMAX*max(3,NSMAX))

RWORK

          RWORK is DOUBLE PRECISION array, dimension
                      (max(2*NMAX,2*NSMAX+NWORK))

IWORK

          IWORK is INTEGER array, dimension (NMAX)

NOUT

          NOUT is INTEGER
          The unit number for output.

 

Author:

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

Date:

November 2011

subroutine zchkgt (logical, dimension( * ) DOTYPE, integer NN, integer, dimension( * ) NVAL, integer NNS, integer, dimension( * ) NSVAL, double precision THRESH, logical TSTERR, complex*16, dimension( * ) A, complex*16, dimension( * ) AF, complex*16, dimension( * ) B, complex*16, dimension( * ) X, complex*16, dimension( * ) XACT, complex*16, dimension( * ) WORK, double precision, dimension( * ) RWORK, integer, dimension( * ) IWORK, integer NOUT)

ZCHKGT

Purpose:

 ZCHKGT tests ZGTTRF, -TRS, -RFS, and -CON

 

Parameters:

DOTYPE

          DOTYPE is LOGICAL array, dimension (NTYPES)
          The matrix types to be used for testing.  Matrices of type j
          (for 1 <= j <= NTYPES) are used for testing if DOTYPE(j) =
          .TRUE.; if DOTYPE(j) = .FALSE., then type j is not used.

NN

          NN is INTEGER
          The number of values of N contained in the vector NVAL.

NVAL

          NVAL is INTEGER array, dimension (NN)
          The values of the matrix dimension N.

NNS

          NNS is INTEGER
          The number of values of NRHS contained in the vector NSVAL.

NSVAL

          NSVAL is INTEGER array, dimension (NNS)
          The values of the number of right hand sides NRHS.

THRESH

          THRESH is DOUBLE PRECISION
          The threshold value for the test ratios.  A result is
          included in the output file if RESULT >= THRESH.  To have
          every test ratio printed, use THRESH = 0.

TSTERR

          TSTERR is LOGICAL
          Flag that indicates whether error exits are to be tested.

A

          A is COMPLEX*16 array, dimension (NMAX*4)

AF

          AF is COMPLEX*16 array, dimension (NMAX*4)

B

          B is COMPLEX*16 array, dimension (NMAX*NSMAX)
          where NSMAX is the largest entry in NSVAL.

X

          X is COMPLEX*16 array, dimension (NMAX*NSMAX)

XACT

          XACT is COMPLEX*16 array, dimension (NMAX*NSMAX)

WORK

          WORK is COMPLEX*16 array, dimension
                      (NMAX*max(3,NSMAX))

RWORK

          RWORK is DOUBLE PRECISION array, dimension
                      (max(NMAX)+2*NSMAX)

IWORK

          IWORK is INTEGER array, dimension (NMAX)

NOUT

          NOUT is INTEGER
          The unit number for output.

 

Author:

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

Date:

November 2011

subroutine zchkhe (logical, dimension( * ) DOTYPE, integer NN, integer, dimension( * ) NVAL, integer NNB, integer, dimension( * ) NBVAL, integer NNS, integer, dimension( * ) NSVAL, double precision THRESH, logical TSTERR, integer NMAX, complex*16, dimension( * ) A, complex*16, dimension( * ) AFAC, complex*16, dimension( * ) AINV, complex*16, dimension( * ) B, complex*16, dimension( * ) X, complex*16, dimension( * ) XACT, complex*16, dimension( * ) WORK, double precision, dimension( * ) RWORK, integer, dimension( * ) IWORK, integer NOUT)

ZCHKHE

Purpose:

 ZCHKHE tests ZHETRF, -TRI2, -TRS, -TRS2, -RFS, and -CON.

 

Parameters:

DOTYPE

          DOTYPE is LOGICAL array, dimension (NTYPES)
          The matrix types to be used for testing.  Matrices of type j
          (for 1 <= j <= NTYPES) are used for testing if DOTYPE(j) =
          .TRUE.; if DOTYPE(j) = .FALSE., then type j is not used.

NN

          NN is INTEGER
          The number of values of N contained in the vector NVAL.

NVAL

          NVAL is INTEGER array, dimension (NN)
          The values of the matrix dimension N.

NNB

          NNB is INTEGER
          The number of values of NB contained in the vector NBVAL.

NBVAL

          NBVAL is INTEGER array, dimension (NBVAL)
          The values of the blocksize NB.

NNS

          NNS is INTEGER
          The number of values of NRHS contained in the vector NSVAL.

NSVAL

          NSVAL is INTEGER array, dimension (NNS)
          The values of the number of right hand sides NRHS.

THRESH

          THRESH is DOUBLE PRECISION
          The threshold value for the test ratios.  A result is
          included in the output file if RESULT >= THRESH.  To have
          every test ratio printed, use THRESH = 0.

TSTERR

          TSTERR is LOGICAL
          Flag that indicates whether error exits are to be tested.

NMAX

          NMAX is INTEGER
          The maximum value permitted for N, used in dimensioning the
          work arrays.

A

          A is COMPLEX*16 array, dimension (NMAX*NMAX)

AFAC

          AFAC is COMPLEX*16 array, dimension (NMAX*NMAX)

AINV

          AINV is COMPLEX*16 array, dimension (NMAX*NMAX)

B

          B is COMPLEX*16 array, dimension (NMAX*NSMAX)
          where NSMAX is the largest entry in NSVAL.

X

          X is COMPLEX*16 array, dimension (NMAX*NSMAX)

XACT

          XACT is COMPLEX*16 array, dimension (NMAX*NSMAX)

WORK

          WORK is COMPLEX*16 array, dimension (NMAX*max(3,NSMAX))

RWORK

          RWORK is DOUBLE PRECISION array, dimension (max(NMAX,2*NSMAX))

IWORK

          IWORK is INTEGER array, dimension (NMAX)

NOUT

          NOUT is INTEGER
          The unit number for output.

 

Author:

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

Date:

November 2013

subroutine zchkhe_rook (logical, dimension( * ) DOTYPE, integer NN, integer, dimension( * ) NVAL, integer NNB, integer, dimension( * ) NBVAL, integer NNS, integer, dimension( * ) NSVAL, double precision THRESH, logical TSTERR, integer NMAX, complex*16, dimension( * ) A, complex*16, dimension( * ) AFAC, complex*16, dimension( * ) AINV, complex*16, dimension( * ) B, complex*16, dimension( * ) X, complex*16, dimension( * ) XACT, complex*16, dimension( * ) WORK, double precision, dimension( * ) RWORK, integer, dimension( * ) IWORK, integer NOUT)

ZCHKHE_ROOK

Purpose:

 ZCHKHE_ROOK tests ZHETRF_ROOK, -TRI_ROOK, -TRS_ROOK,
 and -CON_ROOK.

 

Parameters:

DOTYPE

          DOTYPE is LOGICAL array, dimension (NTYPES)
          The matrix types to be used for testing.  Matrices of type j
          (for 1 <= j <= NTYPES) are used for testing if DOTYPE(j) =
          .TRUE.; if DOTYPE(j) = .FALSE., then type j is not used.

NN

          NN is INTEGER
          The number of values of N contained in the vector NVAL.

NVAL

          NVAL is INTEGER array, dimension (NN)
          The values of the matrix dimension N.

NNB

          NNB is INTEGER
          The number of values of NB contained in the vector NBVAL.

NBVAL

          NBVAL is INTEGER array, dimension (NBVAL)
          The values of the blocksize NB.

NNS

          NNS is INTEGER
          The number of values of NRHS contained in the vector NSVAL.

NSVAL

          NSVAL is INTEGER array, dimension (NNS)
          The values of the number of right hand sides NRHS.

THRESH

          THRESH is DOUBLE PRECISION
          The threshold value for the test ratios.  A result is
          included in the output file if RESULT >= THRESH.  To have
          every test ratio printed, use THRESH = 0.

TSTERR

          TSTERR is LOGICAL
          Flag that indicates whether error exits are to be tested.

NMAX

          NMAX is INTEGER
          The maximum value permitted for N, used in dimensioning the
          work arrays.

A

          A is CCOMPLEX*16 array, dimension (NMAX*NMAX)

AFAC

          AFAC is COMPLEX*16 array, dimension (NMAX*NMAX)

AINV

          AINV is COMPLEX*16 array, dimension (NMAX*NMAX)

B

          B is CCOMPLEX*16 array, dimension (NMAX*NSMAX)
          where NSMAX is the largest entry in NSVAL.

X

          X is COMPLEX*16 array, dimension (NMAX*NSMAX)

XACT

          XACT is COMPLEX*16 array, dimension (NMAX*NSMAX)

WORK

          WORK is COMPLEX*16 array, dimension (NMAX*max(3,NSMAX))

RWORK

          RWORK is DOUBLE PRECISION array, dimension (max(NMAX,2*NSMAX)

IWORK

          IWORK is INTEGER array, dimension (2*NMAX)

NOUT

          NOUT is INTEGER
          The unit number for output.

 

Author:

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

Date:

November 2015

subroutine zchkhp (logical, dimension( * ) DOTYPE, integer NN, integer, dimension( * ) NVAL, integer NNS, integer, dimension( * ) NSVAL, double precision THRESH, logical TSTERR, integer NMAX, complex*16, dimension( * ) A, complex*16, dimension( * ) AFAC, complex*16, dimension( * ) AINV, complex*16, dimension( * ) B, complex*16, dimension( * ) X, complex*16, dimension( * ) XACT, complex*16, dimension( * ) WORK, double precision, dimension( * ) RWORK, integer, dimension( * ) IWORK, integer NOUT)

ZCHKHP

Purpose:

 ZCHKHP tests ZHPTRF, -TRI, -TRS, -RFS, and -CON

 

Parameters:

DOTYPE

          DOTYPE is LOGICAL array, dimension (NTYPES)
          The matrix types to be used for testing.  Matrices of type j
          (for 1 <= j <= NTYPES) are used for testing if DOTYPE(j) =
          .TRUE.; if DOTYPE(j) = .FALSE., then type j is not used.

NN

          NN is INTEGER
          The number of values of N contained in the vector NVAL.

NVAL

          NVAL is INTEGER array, dimension (NN)
          The values of the matrix dimension N.

NNS

          NNS is INTEGER
          The number of values of NRHS contained in the vector NSVAL.

NSVAL

          NSVAL is INTEGER array, dimension (NNS)
          The values of the number of right hand sides NRHS.

THRESH

          THRESH is DOUBLE PRECISION
          The threshold value for the test ratios.  A result is
          included in the output file if RESULT >= THRESH.  To have
          every test ratio printed, use THRESH = 0.

TSTERR

          TSTERR is LOGICAL
          Flag that indicates whether error exits are to be tested.

NMAX

          NMAX is INTEGER
          The maximum value permitted for N, used in dimensioning the
          work arrays.

A

          A is COMPLEX*16 array, dimension
                      (NMAX*(NMAX+1)/2)

AFAC

          AFAC is COMPLEX*16 array, dimension
                      (NMAX*(NMAX+1)/2)

AINV

          AINV is COMPLEX*16 array, dimension
                      (NMAX*(NMAX+1)/2)

B

          B is COMPLEX*16 array, dimension (NMAX*NSMAX)
          where NSMAX is the largest entry in NSVAL.

X

          X is COMPLEX*16 array, dimension (NMAX*NSMAX)

XACT

          XACT is COMPLEX*16 array, dimension (NMAX*NSMAX)

WORK

          WORK is COMPLEX*16 array, dimension
                      (NMAX*max(2,NSMAX))

RWORK

          RWORK is DOUBLE PRECISION array,
                                 dimension (NMAX+2*NSMAX)

IWORK

          IWORK is INTEGER array, dimension (NMAX)

NOUT

          NOUT is INTEGER
          The unit number for output.

 

Author:

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

Date:

November 2011

subroutine zchklq (logical, dimension( * ) DOTYPE, integer NM, integer, dimension( * ) MVAL, integer NN, integer, dimension( * ) NVAL, integer NNB, integer, dimension( * ) NBVAL, integer, dimension( * ) NXVAL, integer NRHS, double precision THRESH, logical TSTERR, integer NMAX, complex*16, dimension( * ) A, complex*16, dimension( * ) AF, complex*16, dimension( * ) AQ, complex*16, dimension( * ) AL, complex*16, dimension( * ) AC, complex*16, dimension( * ) B, complex*16, dimension( * ) X, complex*16, dimension( * ) XACT, complex*16, dimension( * ) TAU, complex*16, dimension( * ) WORK, double precision, dimension( * ) RWORK, integer NOUT)

ZCHKLQ

Purpose:

 ZCHKLQ tests ZGELQF, ZUNGLQ and CUNMLQ.

 

Parameters:

DOTYPE

          DOTYPE is LOGICAL array, dimension (NTYPES)
          The matrix types to be used for testing.  Matrices of type j
          (for 1 <= j <= NTYPES) are used for testing if DOTYPE(j) =
          .TRUE.; if DOTYPE(j) = .FALSE., then type j is not used.

NM

          NM is INTEGER
          The number of values of M contained in the vector MVAL.

MVAL

          MVAL is INTEGER array, dimension (NM)
          The values of the matrix row dimension M.

NN

          NN is INTEGER
          The number of values of N contained in the vector NVAL.

NVAL

          NVAL is INTEGER array, dimension (NN)
          The values of the matrix column dimension N.

NNB

          NNB is INTEGER
          The number of values of NB and NX contained in the
          vectors NBVAL and NXVAL.  The blocking parameters are used
          in pairs (NB,NX).

NBVAL

          NBVAL is INTEGER array, dimension (NNB)
          The values of the blocksize NB.

NXVAL

          NXVAL is INTEGER array, dimension (NNB)
          The values of the crossover point NX.

NRHS

          NRHS is INTEGER
          The number of right hand side vectors to be generated for
          each linear system.

THRESH

          THRESH is DOUBLE PRECISION
          The threshold value for the test ratios.  A result is
          included in the output file if RESULT >= THRESH.  To have
          every test ratio printed, use THRESH = 0.

TSTERR

          TSTERR is LOGICAL
          Flag that indicates whether error exits are to be tested.

NMAX

          NMAX is INTEGER
          The maximum value permitted for M or N, used in dimensioning
          the work arrays.

A

          A is COMPLEX*16 array, dimension (NMAX*NMAX)

AF

          AF is COMPLEX*16 array, dimension (NMAX*NMAX)

AQ

          AQ is COMPLEX*16 array, dimension (NMAX*NMAX)

AL

          AL is COMPLEX*16 array, dimension (NMAX*NMAX)

AC

          AC is COMPLEX*16 array, dimension (NMAX*NMAX)

B

          B is COMPLEX*16 array, dimension (NMAX*NRHS)

X

          X is COMPLEX*16 array, dimension (NMAX*NRHS)

XACT

          XACT is COMPLEX*16 array, dimension (NMAX*NRHS)

TAU

          TAU is COMPLEX*16 array, dimension (NMAX)

WORK

          WORK is COMPLEX*16 array, dimension (NMAX*NMAX)

RWORK

          RWORK is DOUBLE PRECISION array, dimension (NMAX)

NOUT

          NOUT is INTEGER
          The unit number for output.

 

Author:

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

Date:

November 2011

subroutine zchkpb (logical, dimension( * ) DOTYPE, integer NN, integer, dimension( * ) NVAL, integer NNB, integer, dimension( * ) NBVAL, integer NNS, integer, dimension( * ) NSVAL, double precision THRESH, logical TSTERR, integer NMAX, complex*16, dimension( * ) A, complex*16, dimension( * ) AFAC, complex*16, dimension( * ) AINV, complex*16, dimension( * ) B, complex*16, dimension( * ) X, complex*16, dimension( * ) XACT, complex*16, dimension( * ) WORK, double precision, dimension( * ) RWORK, integer NOUT)

ZCHKPB

Purpose:

 ZCHKPB tests ZPBTRF, -TRS, -RFS, and -CON.

 

Parameters:

DOTYPE

          DOTYPE is LOGICAL array, dimension (NTYPES)
          The matrix types to be used for testing.  Matrices of type j
          (for 1 <= j <= NTYPES) are used for testing if DOTYPE(j) =
          .TRUE.; if DOTYPE(j) = .FALSE., then type j is not used.

NN

          NN is INTEGER
          The number of values of N contained in the vector NVAL.

NVAL

          NVAL is INTEGER array, dimension (NN)
          The values of the matrix dimension N.

NNB

          NNB is INTEGER
          The number of values of NB contained in the vector NBVAL.

NBVAL

          NBVAL is INTEGER array, dimension (NBVAL)
          The values of the blocksize NB.

NNS

          NNS is INTEGER
          The number of values of NRHS contained in the vector NSVAL.

NSVAL

          NSVAL is INTEGER array, dimension (NNS)
          The values of the number of right hand sides NRHS.

THRESH

          THRESH is DOUBLE PRECISION
          The threshold value for the test ratios.  A result is
          included in the output file if RESULT >= THRESH.  To have
          every test ratio printed, use THRESH = 0.

TSTERR

          TSTERR is LOGICAL
          Flag that indicates whether error exits are to be tested.

NMAX

          NMAX is INTEGER
          The maximum value permitted for N, used in dimensioning the
          work arrays.

A

          A is DOUBLE PRECISION array, dimension (NMAX*NMAX)

AFAC

          AFAC is DOUBLE PRECISION array, dimension (NMAX*NMAX)

AINV

          AINV is DOUBLE PRECISION array, dimension (NMAX*NMAX)

B

          B is DOUBLE PRECISION array, dimension (NMAX*NSMAX)
          where NSMAX is the largest entry in NSVAL.

X

          X is DOUBLE PRECISION array, dimension (NMAX*NSMAX)

XACT

          XACT is DOUBLE PRECISION array, dimension (NMAX*NSMAX)

WORK

          WORK is DOUBLE PRECISION array, dimension
                      (NMAX*max(3,NSMAX))

RWORK

          RWORK is DOUBLE PRECISION array, dimension
                      (max(NMAX,2*NSMAX))

NOUT

          NOUT is INTEGER
          The unit number for output.

 

Author:

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

Date:

November 2011

subroutine zchkpo (logical, dimension( * ) DOTYPE, integer NN, integer, dimension( * ) NVAL, integer NNB, integer, dimension( * ) NBVAL, integer NNS, integer, dimension( * ) NSVAL, double precision THRESH, logical TSTERR, integer NMAX, complex*16, dimension( * ) A, complex*16, dimension( * ) AFAC, complex*16, dimension( * ) AINV, complex*16, dimension( * ) B, complex*16, dimension( * ) X, complex*16, dimension( * ) XACT, complex*16, dimension( * ) WORK, double precision, dimension( * ) RWORK, integer NOUT)

ZCHKPO

Purpose:

 ZCHKPO tests ZPOTRF, -TRI, -TRS, -RFS, and -CON

 

Parameters:

DOTYPE

          DOTYPE is LOGICAL array, dimension (NTYPES)
          The matrix types to be used for testing.  Matrices of type j
          (for 1 <= j <= NTYPES) are used for testing if DOTYPE(j) =
          .TRUE.; if DOTYPE(j) = .FALSE., then type j is not used.

NN

          NN is INTEGER
          The number of values of N contained in the vector NVAL.

NVAL

          NVAL is INTEGER array, dimension (NN)
          The values of the matrix dimension N.

NNB

          NNB is INTEGER
          The number of values of NB contained in the vector NBVAL.

NBVAL

          NBVAL is INTEGER array, dimension (NBVAL)
          The values of the blocksize NB.

NNS

          NNS is INTEGER
          The number of values of NRHS contained in the vector NSVAL.

NSVAL

          NSVAL is INTEGER array, dimension (NNS)
          The values of the number of right hand sides NRHS.

THRESH

          THRESH is DOUBLE PRECISION
          The threshold value for the test ratios.  A result is
          included in the output file if RESULT >= THRESH.  To have
          every test ratio printed, use THRESH = 0.

TSTERR

          TSTERR is LOGICAL
          Flag that indicates whether error exits are to be tested.

NMAX

          NMAX is INTEGER
          The maximum value permitted for N, used in dimensioning the
          work arrays.

A

          A is COMPLEX*16 array, dimension (NMAX*NMAX)

AFAC

          AFAC is COMPLEX*16 array, dimension (NMAX*NMAX)

AINV

          AINV is COMPLEX*16 array, dimension (NMAX*NMAX)

B

          B is COMPLEX*16 array, dimension (NMAX*NSMAX)
          where NSMAX is the largest entry in NSVAL.

X

          X is COMPLEX*16 array, dimension (NMAX*NSMAX)

XACT

          XACT is COMPLEX*16 array, dimension (NMAX*NSMAX)

WORK

          WORK is COMPLEX*16 array, dimension
                      (NMAX*max(3,NSMAX))

RWORK

          RWORK is DOUBLE PRECISION array, dimension
                      (NMAX+2*NSMAX)

NOUT

          NOUT is INTEGER
          The unit number for output.

 

Author:

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

Date:

November 2011

subroutine zchkpp (logical, dimension( * ) DOTYPE, integer NN, integer, dimension( * ) NVAL, integer NNS, integer, dimension( * ) NSVAL, double precision THRESH, logical TSTERR, integer NMAX, complex*16, dimension( * ) A, complex*16, dimension( * ) AFAC, complex*16, dimension( * ) AINV, complex*16, dimension( * ) B, complex*16, dimension( * ) X, complex*16, dimension( * ) XACT, complex*16, dimension( * ) WORK, double precision, dimension( * ) RWORK, integer NOUT)

ZCHKPP

Purpose:

 ZCHKPP tests ZPPTRF, -TRI, -TRS, -RFS, and -CON

 

Parameters:

DOTYPE

          DOTYPE is LOGICAL array, dimension (NTYPES)
          The matrix types to be used for testing.  Matrices of type j
          (for 1 <= j <= NTYPES) are used for testing if DOTYPE(j) =
          .TRUE.; if DOTYPE(j) = .FALSE., then type j is not used.

NN

          NN is INTEGER
          The number of values of N contained in the vector NVAL.

NVAL

          NVAL is INTEGER array, dimension (NN)
          The values of the matrix dimension N.

NNS

          NNS is INTEGER
          The number of values of NRHS contained in the vector NSVAL.

NSVAL

          NSVAL is INTEGER array, dimension (NNS)
          The values of the number of right hand sides NRHS.

THRESH

          THRESH is DOUBLE PRECISION
          The threshold value for the test ratios.  A result is
          included in the output file if RESULT >= THRESH.  To have
          every test ratio printed, use THRESH = 0.

TSTERR

          TSTERR is LOGICAL
          Flag that indicates whether error exits are to be tested.

NMAX

          NMAX is INTEGER
          The maximum value permitted for N, used in dimensioning the
          work arrays.

A

          A is COMPLEX*16 array, dimension
                      (NMAX*(NMAX+1)/2)

AFAC

          AFAC is COMPLEX*16 array, dimension
                      (NMAX*(NMAX+1)/2)

AINV

          AINV is COMPLEX*16 array, dimension
                      (NMAX*(NMAX+1)/2)

B

          B is COMPLEX*16 array, dimension (NMAX*NSMAX)
          where NSMAX is the largest entry in NSVAL.

X

          X is COMPLEX*16 array, dimension (NMAX*NSMAX)

XACT

          XACT is COMPLEX*16 array, dimension (NMAX*NSMAX)

WORK

          WORK is COMPLEX*16 array, dimension
                      (NMAX*max(3,NSMAX))

RWORK

          RWORK is DOUBLE PRECISION array, dimension
                      (max(NMAX,2*NSMAX))

NOUT

          NOUT is INTEGER
          The unit number for output.

 

Author:

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

Date:

November 2011

subroutine zchkps (logical, dimension( * ) DOTYPE, integer NN, integer, dimension( * ) NVAL, integer NNB, integer, dimension( * ) NBVAL, integer NRANK, integer, dimension( * ) RANKVAL, double precision THRESH, logical TSTERR, integer NMAX, complex*16, dimension( * ) A, complex*16, dimension( * ) AFAC, complex*16, dimension( * ) PERM, integer, dimension( * ) PIV, complex*16, dimension( * ) WORK, double precision, dimension( * ) RWORK, integer NOUT)

ZCHKPS

Purpose:

 ZCHKPS tests ZPSTRF.

 

Parameters:

DOTYPE

          DOTYPE is LOGICAL array, dimension (NTYPES)
          The matrix types to be used for testing.  Matrices of type j
          (for 1 <= j <= NTYPES) are used for testing if DOTYPE(j) =
          .TRUE.; if DOTYPE(j) = .FALSE., then type j is not used.

NN

          NN is INTEGER
          The number of values of N contained in the vector NVAL.

NVAL

          NVAL is INTEGER array, dimension (NN)
          The values of the matrix dimension N.

NNB

          NNB is INTEGER
          The number of values of NB contained in the vector NBVAL.

NBVAL

          NBVAL is INTEGER array, dimension (NBVAL)
          The values of the block size NB.

NRANK

          NRANK is INTEGER
          The number of values of RANK contained in the vector RANKVAL.

RANKVAL

          RANKVAL is INTEGER array, dimension (NBVAL)
          The values of the block size NB.

THRESH

          THRESH is DOUBLE PRECISION
          The threshold value for the test ratios.  A result is
          included in the output file if RESULT >= THRESH.  To have
          every test ratio printed, use THRESH = 0.

TSTERR

          TSTERR is LOGICAL
          Flag that indicates whether error exits are to be tested.

NMAX

          NMAX is INTEGER
          The maximum value permitted for N, used in dimensioning the
          work arrays.

A

          A is COMPLEX*16 array, dimension (NMAX*NMAX)

AFAC

          AFAC is COMPLEX*16 array, dimension (NMAX*NMAX)

PERM

          PERM is COMPLEX*16 array, dimension (NMAX*NMAX)

PIV

          PIV is INTEGER array, dimension (NMAX)

WORK

          WORK is COMPLEX*16 array, dimension (NMAX*3)

RWORK

          RWORK is DOUBLE PRECISION array, dimension (NMAX)

NOUT

          NOUT is INTEGER
          The unit number for output.

 

Author:

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

Date:

November 2011

subroutine zchkpt (logical, dimension( * ) DOTYPE, integer NN, integer, dimension( * ) NVAL, integer NNS, integer, dimension( * ) NSVAL, double precision THRESH, logical TSTERR, complex*16, dimension( * ) A, double precision, dimension( * ) D, complex*16, dimension( * ) E, complex*16, dimension( * ) B, complex*16, dimension( * ) X, complex*16, dimension( * ) XACT, complex*16, dimension( * ) WORK, double precision, dimension( * ) RWORK, integer NOUT)

ZCHKPT

Purpose:

 ZCHKPT tests ZPTTRF, -TRS, -RFS, and -CON

 

Parameters:

DOTYPE

          DOTYPE is LOGICAL array, dimension (NTYPES)
          The matrix types to be used for testing.  Matrices of type j
          (for 1 <= j <= NTYPES) are used for testing if DOTYPE(j) =
          .TRUE.; if DOTYPE(j) = .FALSE., then type j is not used.

NN

          NN is INTEGER
          The number of values of N contained in the vector NVAL.

NVAL

          NVAL is INTEGER array, dimension (NN)
          The values of the matrix dimension N.

NNS

          NNS is INTEGER
          The number of values of NRHS contained in the vector NSVAL.

NSVAL

          NSVAL is INTEGER array, dimension (NNS)
          The values of the number of right hand sides NRHS.

THRESH

          THRESH is DOUBLE PRECISION
          The threshold value for the test ratios.  A result is
          included in the output file if RESULT >= THRESH.  To have
          every test ratio printed, use THRESH = 0.

TSTERR

          TSTERR is LOGICAL
          Flag that indicates whether error exits are to be tested.

A

          A is COMPLEX*16 array, dimension (NMAX*2)

D

          D is DOUBLE PRECISION array, dimension (NMAX*2)

E

          E is COMPLEX*16 array, dimension (NMAX*2)

B

          B is COMPLEX*16 array, dimension (NMAX*NSMAX)
          where NSMAX is the largest entry in NSVAL.

X

          X is COMPLEX*16 array, dimension (NMAX*NSMAX)

XACT

          XACT is COMPLEX*16 array, dimension (NMAX*NSMAX)

WORK

          WORK is COMPLEX*16 array, dimension
                      (NMAX*max(3,NSMAX))

RWORK

          RWORK is DOUBLE PRECISION array, dimension
                      (max(NMAX,2*NSMAX))

NOUT

          NOUT is INTEGER
          The unit number for output.

 

Author:

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

Date:

November 2011

subroutine zchkq3 (logical, dimension( * ) DOTYPE, integer NM, integer, dimension( * ) MVAL, integer NN, integer, dimension( * ) NVAL, integer NNB, integer, dimension( * ) NBVAL, integer, dimension( * ) NXVAL, double precision THRESH, complex*16, dimension( * ) A, complex*16, dimension( * ) COPYA, double precision, dimension( * ) S, complex*16, dimension( * ) TAU, complex*16, dimension( * ) WORK, double precision, dimension( * ) RWORK, integer, dimension( * ) IWORK, integer NOUT)

ZCHKQ3

Purpose:

 ZCHKQ3 tests ZGEQP3.

 

Parameters:

DOTYPE

          DOTYPE is LOGICAL array, dimension (NTYPES)
          The matrix types to be used for testing.  Matrices of type j
          (for 1 <= j <= NTYPES) are used for testing if DOTYPE(j) =
          .TRUE.; if DOTYPE(j) = .FALSE., then type j is not used.

NM

          NM is INTEGER
          The number of values of M contained in the vector MVAL.

MVAL

          MVAL is INTEGER array, dimension (NM)
          The values of the matrix row dimension M.

NN

          NN is INTEGER
          The number of values of N contained in the vector NVAL.

NVAL

          NVAL is INTEGER array, dimension (NN)
          The values of the matrix column dimension N.

NNB

          NNB is INTEGER
          The number of values of NB and NX contained in the
          vectors NBVAL and NXVAL.  The blocking parameters are used
          in pairs (NB,NX).

NBVAL

          NBVAL is INTEGER array, dimension (NNB)
          The values of the blocksize NB.

NXVAL

          NXVAL is INTEGER array, dimension (NNB)
          The values of the crossover point NX.

THRESH

          THRESH is DOUBLE PRECISION
          The threshold value for the test ratios.  A result is
          included in the output file if RESULT >= THRESH.  To have
          every test ratio printed, use THRESH = 0.

A

          A is COMPLEX*16 array, dimension (MMAX*NMAX)
          where MMAX is the maximum value of M in MVAL and NMAX is the
          maximum value of N in NVAL.

COPYA

          COPYA is COMPLEX*16 array, dimension (MMAX*NMAX)

S

          S is DOUBLE PRECISION array, dimension
                      (min(MMAX,NMAX))

TAU

          TAU is COMPLEX*16 array, dimension (MMAX)

WORK

          WORK is COMPLEX*16 array, dimension
                      (max(M*max(M,N) + 4*min(M,N) + max(M,N)))

RWORK

          RWORK is DOUBLE PRECISION array, dimension (4*NMAX)

IWORK

          IWORK is INTEGER array, dimension (2*NMAX)

NOUT

          NOUT is INTEGER
          The unit number for output.

 

Author:

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

Date:

November 2011

subroutine zchkql (logical, dimension( * ) DOTYPE, integer NM, integer, dimension( * ) MVAL, integer NN, integer, dimension( * ) NVAL, integer NNB, integer, dimension( * ) NBVAL, integer, dimension( * ) NXVAL, integer NRHS, double precision THRESH, logical TSTERR, integer NMAX, complex*16, dimension( * ) A, complex*16, dimension( * ) AF, complex*16, dimension( * ) AQ, complex*16, dimension( * ) AL, complex*16, dimension( * ) AC, complex*16, dimension( * ) B, complex*16, dimension( * ) X, complex*16, dimension( * ) XACT, complex*16, dimension( * ) TAU, complex*16, dimension( * ) WORK, double precision, dimension( * ) RWORK, integer NOUT)

ZCHKQL

Purpose:

 ZCHKQL tests ZGEQLF, ZUNGQL and CUNMQL.

 

Parameters:

DOTYPE

          DOTYPE is LOGICAL array, dimension (NTYPES)
          The matrix types to be used for testing.  Matrices of type j
          (for 1 <= j <= NTYPES) are used for testing if DOTYPE(j) =
          .TRUE.; if DOTYPE(j) = .FALSE., then type j is not used.

NM

          NM is INTEGER
          The number of values of M contained in the vector MVAL.

MVAL

          MVAL is INTEGER array, dimension (NM)
          The values of the matrix row dimension M.

NN

          NN is INTEGER
          The number of values of N contained in the vector NVAL.

NVAL

          NVAL is INTEGER array, dimension (NN)
          The values of the matrix column dimension N.

NNB

          NNB is INTEGER
          The number of values of NB and NX contained in the
          vectors NBVAL and NXVAL.  The blocking parameters are used
          in pairs (NB,NX).

NBVAL

          NBVAL is INTEGER array, dimension (NNB)
          The values of the blocksize NB.

NXVAL

          NXVAL is INTEGER array, dimension (NNB)
          The values of the crossover point NX.

NRHS

          NRHS is INTEGER
          The number of right hand side vectors to be generated for
          each linear system.

THRESH

          THRESH is DOUBLE PRECISION
          The threshold value for the test ratios.  A result is
          included in the output file if RESULT >= THRESH.  To have
          every test ratio printed, use THRESH = 0.

TSTERR

          TSTERR is LOGICAL
          Flag that indicates whether error exits are to be tested.

NMAX

          NMAX is INTEGER
          The maximum value permitted for M or N, used in dimensioning
          the work arrays.

A

          A is COMPLEX*16 array, dimension (NMAX*NMAX)

AF

          AF is COMPLEX*16 array, dimension (NMAX*NMAX)

AQ

          AQ is COMPLEX*16 array, dimension (NMAX*NMAX)

AL

          AL is COMPLEX*16 array, dimension (NMAX*NMAX)

AC

          AC is COMPLEX*16 array, dimension (NMAX*NMAX)

B

          B is COMPLEX*16 array, dimension (NMAX*NRHS)

X

          X is COMPLEX*16 array, dimension (NMAX*NRHS)

XACT

          XACT is COMPLEX*16 array, dimension (NMAX*NRHS)

TAU

          TAU is COMPLEX*16 array, dimension (NMAX)

WORK

          WORK is COMPLEX*16 array, dimension (NMAX*NMAX)

RWORK

          RWORK is DOUBLE PRECISION array, dimension (NMAX)

NOUT

          NOUT is INTEGER
          The unit number for output.

 

Author:

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

Date:

November 2011

subroutine zchkqr (logical, dimension( * ) DOTYPE, integer NM, integer, dimension( * ) MVAL, integer NN, integer, dimension( * ) NVAL, integer NNB, integer, dimension( * ) NBVAL, integer, dimension( * ) NXVAL, integer NRHS, double precision THRESH, logical TSTERR, integer NMAX, complex*16, dimension( * ) A, complex*16, dimension( * ) AF, complex*16, dimension( * ) AQ, complex*16, dimension( * ) AR, complex*16, dimension( * ) AC, complex*16, dimension( * ) B, complex*16, dimension( * ) X, complex*16, dimension( * ) XACT, complex*16, dimension( * ) TAU, complex*16, dimension( * ) WORK, double precision, dimension( * ) RWORK, integer, dimension( * ) IWORK, integer NOUT)

ZCHKQR

Purpose:

 ZCHKQR tests ZGEQRF, ZUNGQR and CUNMQR.

 

Parameters:

DOTYPE

          DOTYPE is LOGICAL array, dimension (NTYPES)
          The matrix types to be used for testing.  Matrices of type j
          (for 1 <= j <= NTYPES) are used for testing if DOTYPE(j) =
          .TRUE.; if DOTYPE(j) = .FALSE., then type j is not used.

NM

          NM is INTEGER
          The number of values of M contained in the vector MVAL.

MVAL

          MVAL is INTEGER array, dimension (NM)
          The values of the matrix row dimension M.

NN

          NN is INTEGER
          The number of values of N contained in the vector NVAL.

NVAL

          NVAL is INTEGER array, dimension (NN)
          The values of the matrix column dimension N.

NNB

          NNB is INTEGER
          The number of values of NB and NX contained in the
          vectors NBVAL and NXVAL.  The blocking parameters are used
          in pairs (NB,NX).

NBVAL

          NBVAL is INTEGER array, dimension (NNB)
          The values of the blocksize NB.

NXVAL

          NXVAL is INTEGER array, dimension (NNB)
          The values of the crossover point NX.

NRHS

          NRHS is INTEGER
          The number of right hand side vectors to be generated for
          each linear system.

THRESH

          THRESH is DOUBLE PRECISION
          The threshold value for the test ratios.  A result is
          included in the output file if RESULT >= THRESH.  To have
          every test ratio printed, use THRESH = 0.

TSTERR

          TSTERR is LOGICAL
          Flag that indicates whether error exits are to be tested.

NMAX

          NMAX is INTEGER
          The maximum value permitted for M or N, used in dimensioning
          the work arrays.

A

          A is COMPLEX*16 array, dimension (NMAX*NMAX)

AF

          AF is COMPLEX*16 array, dimension (NMAX*NMAX)

AQ

          AQ is COMPLEX*16 array, dimension (NMAX*NMAX)

AR

          AR is COMPLEX*16 array, dimension (NMAX*NMAX)

AC

          AC is COMPLEX*16 array, dimension (NMAX*NMAX)

B

          B is COMPLEX*16 array, dimension (NMAX*NRHS)

X

          X is COMPLEX*16 array, dimension (NMAX*NRHS)

XACT

          XACT is COMPLEX*16 array, dimension (NMAX*NRHS)

TAU

          TAU is COMPLEX*16 array, dimension (NMAX)

WORK

          WORK is COMPLEX*16 array, dimension (NMAX*NMAX)

RWORK

          RWORK is DOUBLE PRECISION array, dimension (NMAX)

IWORK

          IWORK is INTEGER array, dimension (NMAX)

NOUT

          NOUT is INTEGER
          The unit number for output.

 

Author:

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

Date:

November 2015

subroutine zchkqrt (double precision THRESH, logical TSTERR, integer NM, integer, dimension( * ) MVAL, integer NN, integer, dimension( * ) NVAL, integer NNB, integer, dimension( * ) NBVAL, integer NOUT)

ZCHKQRT

Purpose:

 ZCHKQRT tests ZGEQRT and ZGEMQRT.

 

Parameters:

THRESH

          THRESH is DOUBLE PRECISION
          The threshold value for the test ratios.  A result is
          included in the output file if RESULT >= THRESH.  To have
          every test ratio printed, use THRESH = 0.

TSTERR

          TSTERR is LOGICAL
          Flag that indicates whether error exits are to be tested.

NM

          NM is INTEGER
          The number of values of M contained in the vector MVAL.

MVAL

          MVAL is INTEGER array, dimension (NM)
          The values of the matrix row dimension M.

NN

          NN is INTEGER
          The number of values of N contained in the vector NVAL.

NVAL

          NVAL is INTEGER array, dimension (NN)
          The values of the matrix column dimension N.

NNB

          NNB is INTEGER
          The number of values of NB contained in the vector NBVAL.

NBVAL

          NBVAL is INTEGER array, dimension (NBVAL)
          The values of the blocksize NB.

NOUT

          NOUT is INTEGER
          The unit number for output.

 

Author:

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

Date:

November 2011

subroutine zchkqrtp (double precision THRESH, logical TSTERR, integer NM, integer, dimension( * ) MVAL, integer NN, integer, dimension( * ) NVAL, integer NNB, integer, dimension( * ) NBVAL, integer NOUT)

ZCHKQRTP

Purpose:

 ZCHKQRTP tests ZTPQRT and ZTPMQRT.

 

Parameters:

THRESH

          THRESH is DOUBLE PRECISION
          The threshold value for the test ratios.  A result is
          included in the output file if RESULT >= THRESH.  To have
          every test ratio printed, use THRESH = 0.

TSTERR

          TSTERR is LOGICAL
          Flag that indicates whether error exits are to be tested.

NM

          NM is INTEGER
          The number of values of M contained in the vector MVAL.

MVAL

          MVAL is INTEGER array, dimension (NM)
          The values of the matrix row dimension M.

NN

          NN is INTEGER
          The number of values of N contained in the vector NVAL.

NVAL

          NVAL is INTEGER array, dimension (NN)
          The values of the matrix column dimension N.

NNB

          NNB is INTEGER
          The number of values of NB contained in the vector NBVAL.

NBVAL

          NBVAL is INTEGER array, dimension (NBVAL)
          The values of the blocksize NB.

NOUT

          NOUT is INTEGER
          The unit number for output.

 

Author:

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

Date:

November 2011

program zchkrfp ()

ZCHKRFP

Purpose:

 ZCHKRFP is the main test program for the COMPLEX*16 linear equation
 routines with RFP storage format

 

  MAXIN   INTEGER
          The number of different values that can be used for each of
          M, N, or NB
  MAXRHS  INTEGER
          The maximum number of right hand sides
  NTYPES  INTEGER
  NMAX    INTEGER
          The maximum allowable value for N.
  NIN     INTEGER
          The unit number for input
  NOUT    INTEGER
          The unit number for output

 

Author:

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

Date:

April 2012

subroutine zchkrq (logical, dimension( * ) DOTYPE, integer NM, integer, dimension( * ) MVAL, integer NN, integer, dimension( * ) NVAL, integer NNB, integer, dimension( * ) NBVAL, integer, dimension( * ) NXVAL, integer NRHS, double precision THRESH, logical TSTERR, integer NMAX, complex*16, dimension( * ) A, complex*16, dimension( * ) AF, complex*16, dimension( * ) AQ, complex*16, dimension( * ) AR, complex*16, dimension( * ) AC, complex*16, dimension( * ) B, complex*16, dimension( * ) X, complex*16, dimension( * ) XACT, complex*16, dimension( * ) TAU, complex*16, dimension( * ) WORK, double precision, dimension( * ) RWORK, integer, dimension( * ) IWORK, integer NOUT)

ZCHKRQ

Purpose:

 ZCHKRQ tests ZGERQF, ZUNGRQ and CUNMRQ.

 

Parameters:

DOTYPE

          DOTYPE is LOGICAL array, dimension (NTYPES)
          The matrix types to be used for testing.  Matrices of type j
          (for 1 <= j <= NTYPES) are used for testing if DOTYPE(j) =
          .TRUE.; if DOTYPE(j) = .FALSE., then type j is not used.

NM

          NM is INTEGER
          The number of values of M contained in the vector MVAL.

MVAL

          MVAL is INTEGER array, dimension (NM)
          The values of the matrix row dimension M.

NN

          NN is INTEGER
          The number of values of N contained in the vector NVAL.

NVAL

          NVAL is INTEGER array, dimension (NN)
          The values of the matrix column dimension N.

NNB

          NNB is INTEGER
          The number of values of NB and NX contained in the
          vectors NBVAL and NXVAL.  The blocking parameters are used
          in pairs (NB,NX).

NBVAL

          NBVAL is INTEGER array, dimension (NNB)
          The values of the blocksize NB.

NXVAL

          NXVAL is INTEGER array, dimension (NNB)
          The values of the crossover point NX.

NRHS

          NRHS is INTEGER
          The number of right hand side vectors to be generated for
          each linear system.

THRESH

          THRESH is DOUBLE PRECISION
          The threshold value for the test ratios.  A result is
          included in the output file if RESULT >= THRESH.  To have
          every test ratio printed, use THRESH = 0.

TSTERR

          TSTERR is LOGICAL
          Flag that indicates whether error exits are to be tested.

NMAX

          NMAX is INTEGER
          The maximum value permitted for M or N, used in dimensioning
          the work arrays.

A

          A is COMPLEX*16 array, dimension (NMAX*NMAX)

AF

          AF is COMPLEX*16 array, dimension (NMAX*NMAX)

AQ

          AQ is COMPLEX*16 array, dimension (NMAX*NMAX)

AR

          AR is COMPLEX*16 array, dimension (NMAX*NMAX)

AC

          AC is COMPLEX*16 array, dimension (NMAX*NMAX)

B

          B is COMPLEX*16 array, dimension (NMAX*NRHS)

X

          X is COMPLEX*16 array, dimension (NMAX*NRHS)

XACT

          XACT is COMPLEX*16 array, dimension (NMAX*NRHS)

TAU

          TAU is COMPLEX*16 array, dimension (NMAX)

WORK

          WORK is COMPLEX*16 array, dimension (NMAX*NMAX)

RWORK

          RWORK is DOUBLE PRECISION array, dimension (NMAX)

IWORK

          IWORK is INTEGER array, dimension (NMAX)

NOUT

          NOUT is INTEGER
          The unit number for output.

 

Author:

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

Date:

November 2011

subroutine zchksp (logical, dimension( * ) DOTYPE, integer NN, integer, dimension( * ) NVAL, integer NNS, integer, dimension( * ) NSVAL, double precision THRESH, logical TSTERR, integer NMAX, complex*16, dimension( * ) A, complex*16, dimension( * ) AFAC, complex*16, dimension( * ) AINV, complex*16, dimension( * ) B, complex*16, dimension( * ) X, complex*16, dimension( * ) XACT, complex*16, dimension( * ) WORK, double precision, dimension( * ) RWORK, integer, dimension( * ) IWORK, integer NOUT)

ZCHKSP

Purpose:

 ZCHKSP tests ZSPTRF, -TRI, -TRS, -RFS, and -CON

 

Parameters:

DOTYPE

          DOTYPE is LOGICAL array, dimension (NTYPES)
          The matrix types to be used for testing.  Matrices of type j
          (for 1 <= j <= NTYPES) are used for testing if DOTYPE(j) =
          .TRUE.; if DOTYPE(j) = .FALSE., then type j is not used.

NN

          NN is INTEGER
          The number of values of N contained in the vector NVAL.

NVAL

          NVAL is INTEGER array, dimension (NN)
          The values of the matrix dimension N.

NNS

          NNS is INTEGER
          The number of values of NRHS contained in the vector NSVAL.

NSVAL

          NSVAL is INTEGER array, dimension (NNS)
          The values of the number of right hand sides NRHS.

THRESH

          THRESH is DOUBLE PRECISION
          The threshold value for the test ratios.  A result is
          included in the output file if RESULT >= THRESH.  To have
          every test ratio printed, use THRESH = 0.

TSTERR

          TSTERR is LOGICAL
          Flag that indicates whether error exits are to be tested.

NMAX

          NMAX is INTEGER
          The maximum value permitted for N, used in dimensioning the
          work arrays.

A

          A is COMPLEX*16 array, dimension
                      (NMAX*(NMAX+1)/2)

AFAC

          AFAC is COMPLEX*16 array, dimension
                      (NMAX*(NMAX+1)/2)

AINV

          AINV is COMPLEX*16 array, dimension
                      (NMAX*(NMAX+1)/2)

B

          B is COMPLEX*16 array, dimension (NMAX*NSMAX)
          where NSMAX is the largest entry in NSVAL.

X

          X is COMPLEX*16 array, dimension (NMAX*NSMAX)

XACT

          XACT is COMPLEX*16 array, dimension (NMAX*NSMAX)

WORK

          WORK is COMPLEX*16 array, dimension
                      (NMAX*max(2,NSMAX))

RWORK

          RWORK is DOUBLE PRECISION array,
                                 dimension (NMAX+2*NSMAX)

IWORK

          IWORK is INTEGER array, dimension (NMAX)

NOUT

          NOUT is INTEGER
          The unit number for output.

 

Author:

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

Date:

November 2011

subroutine zchksy (logical, dimension( * ) DOTYPE, integer NN, integer, dimension( * ) NVAL, integer NNB, integer, dimension( * ) NBVAL, integer NNS, integer, dimension( * ) NSVAL, double precision THRESH, logical TSTERR, integer NMAX, complex*16, dimension( * ) A, complex*16, dimension( * ) AFAC, complex*16, dimension( * ) AINV, complex*16, dimension( * ) B, complex*16, dimension( * ) X, complex*16, dimension( * ) XACT, complex*16, dimension( * ) WORK, double precision, dimension( * ) RWORK, integer, dimension( * ) IWORK, integer NOUT)

ZCHKSY

Purpose:

 ZCHKSY tests ZSYTRF, -TRI2, -TRS, -TRS2,  -RFS, and -CON.

 

Parameters:

DOTYPE

          DOTYPE is LOGICAL array, dimension (NTYPES)
          The matrix types to be used for testing.  Matrices of type j
          (for 1 <= j <= NTYPES) are used for testing if DOTYPE(j) =
          .TRUE.; if DOTYPE(j) = .FALSE., then type j is not used.

NN

          NN is INTEGER
          The number of values of N contained in the vector NVAL.

NVAL

          NVAL is INTEGER array, dimension (NN)
          The values of the matrix dimension N.

NNB

          NNB is INTEGER
          The number of values of NB contained in the vector NBVAL.

NBVAL

          NBVAL is INTEGER array, dimension (NBVAL)
          The values of the blocksize NB.

NNS

          NNS is INTEGER
          The number of values of NRHS contained in the vector NSVAL.

NSVAL

          NSVAL is INTEGER array, dimension (NNS)
          The values of the number of right hand sides NRHS.

THRESH

          THRESH is DOUBLE PRECISION
          The threshold value for the test ratios.  A result is
          included in the output file if RESULT >= THRESH.  To have
          every test ratio printed, use THRESH = 0.

TSTERR

          TSTERR is LOGICAL
          Flag that indicates whether error exits are to be tested.

NMAX

          NMAX is INTEGER
          The maximum value permitted for N, used in dimensioning the
          work arrays.

A

          A is COMPLEX*16 array, dimension (NMAX*NMAX)

AFAC

          AFAC is COMPLEX*16 array, dimension (NMAX*NMAX)

AINV

          AINV is COMPLEX*16 array, dimension (NMAX*NMAX)

B

          B is COMPLEX*16 array, dimension (NMAX*NSMAX)
          where NSMAX is the largest entry in NSVAL.

X

          X is COMPLEX*16 array, dimension (NMAX*NSMAX)

XACT

          XACT is COMPLEX*16 array, dimension (NMAX*NSMAX)

WORK

          WORK is COMPLEX*16 array, dimension (NMAX*max(2,NSMAX))

RWORK

          RWORK is DOUBLE PRECISION array, dimension (NMAX+2*NSMAX)

IWORK

          IWORK is INTEGER array, dimension (NMAX)

NOUT

          NOUT is INTEGER
          The unit number for output.

 

Author:

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

Date:

November 2013

subroutine zchksy_rook (logical, dimension( * ) DOTYPE, integer NN, integer, dimension( * ) NVAL, integer NNB, integer, dimension( * ) NBVAL, integer NNS, integer, dimension( * ) NSVAL, double precision THRESH, logical TSTERR, integer NMAX, complex*16, dimension( * ) A, complex*16, dimension( * ) AFAC, complex*16, dimension( * ) AINV, complex*16, dimension( * ) B, complex*16, dimension( * ) X, complex*16, dimension( * ) XACT, complex*16, dimension( * ) WORK, double precision, dimension( * ) RWORK, integer, dimension( * ) IWORK, integer NOUT)

ZCHKSY_ROOK

Purpose:

 ZCHKSY_ROOK tests ZSYTRF_ROOK, -TRI_ROOK, -TRS_ROOK,
 and -CON_ROOK.

 

Parameters:

DOTYPE

          DOTYPE is LOGICAL array, dimension (NTYPES)
          The matrix types to be used for testing.  Matrices of type j
          (for 1 <= j <= NTYPES) are used for testing if DOTYPE(j) =
          .TRUE.; if DOTYPE(j) = .FALSE., then type j is not used.

NN

          NN is INTEGER
          The number of values of N contained in the vector NVAL.

NVAL

          NVAL is INTEGER array, dimension (NN)
          The values of the matrix dimension N.

NNB

          NNB is INTEGER
          The number of values of NB contained in the vector NBVAL.

NBVAL

          NBVAL is INTEGER array, dimension (NBVAL)
          The values of the blocksize NB.

NNS

          NNS is INTEGER
          The number of values of NRHS contained in the vector NSVAL.

NSVAL

          NSVAL is INTEGER array, dimension (NNS)
          The values of the number of right hand sides NRHS.

THRESH

          THRESH is DOUBLE PRECISION
          The threshold value for the test ratios.  A result is
          included in the output file if RESULT >= THRESH.  To have
          every test ratio printed, use THRESH = 0.

TSTERR

          TSTERR is LOGICAL
          Flag that indicates whether error exits are to be tested.

NMAX

          NMAX is INTEGER
          The maximum value permitted for N, used in dimensioning the
          work arrays.

A

          A is COMPLEX*16 array, dimension (NMAX*NMAX)

AFAC

          AFAC is COMPLEX*16 array, dimension (NMAX*NMAX)

AINV

          AINV is COMPLEX*16 array, dimension (NMAX*NMAX)

B

          B is COMPLEX*16 array, dimension (NMAX*NSMAX)
          where NSMAX is the largest entry in NSVAL.

X

          X is COMPLEX*16 array, dimension (NMAX*NSMAX)

XACT

          XACT is COMPLEX*16 array, dimension (NMAX*NSMAX)

WORK

          WORK is COMPLEX*16 array, dimension (NMAX*max(3,NSMAX))

RWORK

          RWORK is DOUBLE PRECISION array, dimension (max(NMAX,2*NSMAX))

IWORK

          IWORK is INTEGER array, dimension (2*NMAX)

NOUT

          NOUT is INTEGER
          The unit number for output.

 

Author:

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

Date:

November 2015

subroutine zchktb (logical, dimension( * ) DOTYPE, integer NN, integer, dimension( * ) NVAL, integer NNS, integer, dimension( * ) NSVAL, double precision THRESH, logical TSTERR, integer NMAX, complex*16, dimension( * ) AB, complex*16, dimension( * ) AINV, complex*16, dimension( * ) B, complex*16, dimension( * ) X, complex*16, dimension( * ) XACT, complex*16, dimension( * ) WORK, double precision, dimension( * ) RWORK, integer NOUT)

ZCHKTB

Purpose:

 ZCHKTB tests ZTBTRS, -RFS, and -CON, and ZLATBS.

 

Parameters:

DOTYPE

          DOTYPE is LOGICAL array, dimension (NTYPES)
          The matrix types to be used for testing.  Matrices of type j
          (for 1 <= j <= NTYPES) are used for testing if DOTYPE(j) =
          .TRUE.; if DOTYPE(j) = .FALSE., then type j is not used.

NN

          NN is INTEGER
          The number of values of N contained in the vector NVAL.

NVAL

          NVAL is INTEGER array, dimension (NN)
          The values of the matrix column dimension N.

NNS

          NNS is INTEGER
          The number of values of NRHS contained in the vector NSVAL.

NSVAL

          NSVAL is INTEGER array, dimension (NNS)
          The values of the number of right hand sides NRHS.

THRESH

          THRESH is DOUBLE PRECISION
          The threshold value for the test ratios.  A result is
          included in the output file if RESULT >= THRESH.  To have
          every test ratio printed, use THRESH = 0.

TSTERR

          TSTERR is LOGICAL
          Flag that indicates whether error exits are to be tested.

NMAX

          NMAX is INTEGER
          The leading dimension of the work arrays.
          NMAX >= the maximum value of N in NVAL.

AB

          AB is COMPLEX*16 array, dimension (NMAX*NMAX)

AINV

          AINV is COMPLEX*16 array, dimension (NMAX*NMAX)

B

          B is COMPLEX*16 array, dimension (NMAX*NSMAX)
          where NSMAX is the largest entry in NSVAL.

X

          X is COMPLEX*16 array, dimension (NMAX*NSMAX)

XACT

          XACT is COMPLEX*16 array, dimension (NMAX*NSMAX)

WORK

          WORK is COMPLEX*16 array, dimension
                      (NMAX*max(3,NSMAX))

RWORK

          RWORK is DOUBLE PRECISION array, dimension
                      (max(NMAX,2*NSMAX))

NOUT

          NOUT is INTEGER
          The unit number for output.

 

Author:

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

Date:

November 2011

subroutine zchktp (logical, dimension( * ) DOTYPE, integer NN, integer, dimension( * ) NVAL, integer NNS, integer, dimension( * ) NSVAL, double precision THRESH, logical TSTERR, integer NMAX, complex*16, dimension( * ) AP, complex*16, dimension( * ) AINVP, complex*16, dimension( * ) B, complex*16, dimension( * ) X, complex*16, dimension( * ) XACT, complex*16, dimension( * ) WORK, double precision, dimension( * ) RWORK, integer NOUT)

ZCHKTP

Purpose:

 ZCHKTP tests ZTPTRI, -TRS, -RFS, and -CON, and ZLATPS

 

Parameters:

DOTYPE

          DOTYPE is LOGICAL array, dimension (NTYPES)
          The matrix types to be used for testing.  Matrices of type j
          (for 1 <= j <= NTYPES) are used for testing if DOTYPE(j) =
          .TRUE.; if DOTYPE(j) = .FALSE., then type j is not used.

NN

          NN is INTEGER
          The number of values of N contained in the vector NVAL.

NVAL

          NVAL is INTEGER array, dimension (NN)
          The values of the matrix column dimension N.

NNS

          NNS is INTEGER
          The number of values of NRHS contained in the vector NSVAL.

NSVAL

          NSVAL is INTEGER array, dimension (NNS)
          The values of the number of right hand sides NRHS.

THRESH

          THRESH is DOUBLE PRECISION
          The threshold value for the test ratios.  A result is
          included in the output file if RESULT >= THRESH.  To have
          every test ratio printed, use THRESH = 0.

TSTERR

          TSTERR is LOGICAL
          Flag that indicates whether error exits are to be tested.

NMAX

          NMAX is INTEGER
          The leading dimension of the work arrays.  NMAX >= the
          maximumm value of N in NVAL.

AP

          AP is COMPLEX*16 array, dimension (NMAX*(NMAX+1)/2)

AINVP

          AINVP is COMPLEX*16 array, dimension (NMAX*(NMAX+1)/2)

B

          B is COMPLEX*16 array, dimension (NMAX*NSMAX)
          where NSMAX is the largest entry in NSVAL.

X

          X is COMPLEX*16 array, dimension (NMAX*NSMAX)

XACT

          XACT is COMPLEX*16 array, dimension (NMAX*NSMAX)

WORK

          WORK is COMPLEX*16 array, dimension
                      (NMAX*max(3,NSMAX))

RWORK

          RWORK is DOUBLE PRECISION array, dimension
                      (max(NMAX,2*NSMAX))

NOUT

          NOUT is INTEGER
          The unit number for output.

 

Author:

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

Date:

November 2011

subroutine zchktr (logical, dimension( * ) DOTYPE, integer NN, integer, dimension( * ) NVAL, integer NNB, integer, dimension( * ) NBVAL, integer NNS, integer, dimension( * ) NSVAL, double precision THRESH, logical TSTERR, integer NMAX, complex*16, dimension( * ) A, complex*16, dimension( * ) AINV, complex*16, dimension( * ) B, complex*16, dimension( * ) X, complex*16, dimension( * ) XACT, complex*16, dimension( * ) WORK, double precision, dimension( * ) RWORK, integer NOUT)

ZCHKTR

Purpose:

 ZCHKTR tests ZTRTRI, -TRS, -RFS, and -CON, and ZLATRS

 

Parameters:

DOTYPE

          DOTYPE is LOGICAL array, dimension (NTYPES)
          The matrix types to be used for testing.  Matrices of type j
          (for 1 <= j <= NTYPES) are used for testing if DOTYPE(j) =
          .TRUE.; if DOTYPE(j) = .FALSE., then type j is not used.

NN

          NN is INTEGER
          The number of values of N contained in the vector NVAL.

NVAL

          NVAL is INTEGER array, dimension (NN)
          The values of the matrix column dimension N.

NNB

          NNB is INTEGER
          The number of values of NB contained in the vector NBVAL.

NBVAL

          NBVAL is INTEGER array, dimension (NNB)
          The values of the blocksize NB.

NNS

          NNS is INTEGER
          The number of values of NRHS contained in the vector NSVAL.

NSVAL

          NSVAL is INTEGER array, dimension (NNS)
          The values of the number of right hand sides NRHS.

THRESH

          THRESH is DOUBLE PRECISION
          The threshold value for the test ratios.  A result is
          included in the output file if RESULT >= THRESH.  To have
          every test ratio printed, use THRESH = 0.

TSTERR

          TSTERR is LOGICAL
          Flag that indicates whether error exits are to be tested.

NMAX

          NMAX is INTEGER
          The leading dimension of the work arrays.
          NMAX >= the maximum value of N in NVAL.

A

          A is COMPLEX*16 array, dimension (NMAX*NMAX)

AINV

          AINV is COMPLEX*16 array, dimension (NMAX*NMAX)

B

          B is COMPLEX*16 array, dimension (NMAX*NSMAX)
          where NSMAX is the largest entry in NSVAL.

X

          X is COMPLEX*16 array, dimension (NMAX*NSMAX)

XACT

          XACT is COMPLEX*16 array, dimension (NMAX*NSMAX)

WORK

          WORK is COMPLEX*16 array, dimension
                      (NMAX*max(3,NSMAX))

RWORK

          RWORK is DOUBLE PRECISION array, dimension
                      (max(NMAX,2*NSMAX))

NOUT

          NOUT is INTEGER
          The unit number for output.

 

Author:

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

Date:

November 2011

subroutine zchktz (logical, dimension( * ) DOTYPE, integer NM, integer, dimension( * ) MVAL, integer NN, integer, dimension( * ) NVAL, double precision THRESH, logical TSTERR, complex*16, dimension( * ) A, complex*16, dimension( * ) COPYA, double precision, dimension( * ) S, complex*16, dimension( * ) TAU, complex*16, dimension( * ) WORK, double precision, dimension( * ) RWORK, integer NOUT)

ZCHKTZ

Purpose:

 ZCHKTZ tests ZTZRZF.

 

Parameters:

DOTYPE

          DOTYPE is LOGICAL array, dimension (NTYPES)
          The matrix types to be used for testing.  Matrices of type j
          (for 1 <= j <= NTYPES) are used for testing if DOTYPE(j) =
          .TRUE.; if DOTYPE(j) = .FALSE., then type j is not used.

NM

          NM is INTEGER
          The number of values of M contained in the vector MVAL.

MVAL

          MVAL is INTEGER array, dimension (NM)
          The values of the matrix row dimension M.

NN

          NN is INTEGER
          The number of values of N contained in the vector NVAL.

NVAL

          NVAL is INTEGER array, dimension (NN)
          The values of the matrix column dimension N.

THRESH

          THRESH is DOUBLE PRECISION
          The threshold value for the test ratios.  A result is
          included in the output file if RESULT >= THRESH.  To have
          every test ratio printed, use THRESH = 0.

TSTERR

          TSTERR is LOGICAL
          Flag that indicates whether error exits are to be tested.

A

          A is COMPLEX*16 array, dimension (MMAX*NMAX)
          where MMAX is the maximum value of M in MVAL and NMAX is the
          maximum value of N in NVAL.

COPYA

          COPYA is COMPLEX*16 array, dimension (MMAX*NMAX)

S

          S is DOUBLE PRECISION array, dimension
                      (min(MMAX,NMAX))

TAU

          TAU is COMPLEX*16 array, dimension (MMAX)

WORK

          WORK is COMPLEX*16 array, dimension
                      (MMAX*NMAX + 4*NMAX + MMAX)

RWORK

          RWORK is DOUBLE PRECISION array, dimension (2*NMAX)

NOUT

          NOUT is INTEGER
          The unit number for output.

 

Author:

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

Date:

November 2015

subroutine zdrvab (logical, dimension( * ) DOTYPE, integer NM, integer, dimension( * ) MVAL, integer NNS, integer, dimension( * ) NSVAL, double precision THRESH, integer NMAX, complex*16, dimension( * ) A, complex*16, dimension( * ) AFAC, complex*16, dimension( * ) B, complex*16, dimension( * ) X, complex*16, dimension( * ) WORK, double precision, dimension( * ) RWORK, complex, dimension( * ) SWORK, integer, dimension( * ) IWORK, integer NOUT)

ZDRVAB

Purpose:

 ZDRVAB tests ZCGESV

 

Parameters:

DOTYPE

          DOTYPE is LOGICAL array, dimension (NTYPES)
          The matrix types to be used for testing.  Matrices of type j
          (for 1 <= j <= NTYPES) are used for testing if DOTYPE(j) =
          .TRUE.; if DOTYPE(j) = .FALSE., then type j is not used.

NM

          NM is INTEGER
          The number of values of M contained in the vector MVAL.

MVAL

          MVAL is INTEGER array, dimension (NM)
          The values of the matrix row dimension M.

NNS

          NNS is INTEGER
          The number of values of NRHS contained in the vector NSVAL.

NSVAL

          NSVAL is INTEGER array, dimension (NNS)
          The values of the number of right hand sides NRHS.

THRESH

          THRESH is DOUBLE PRECISION
          The threshold value for the test ratios.  A result is
          included in the output file if RESULT >= THRESH.  To have
          every test ratio printed, use THRESH = 0.

NMAX

          NMAX is INTEGER
          The maximum value permitted for M or N, used in dimensioning
          the work arrays.

A

          A is COMPLEX*16 array, dimension (NMAX*NMAX)

AFAC

          AFAC is COMPLEX*16 array, dimension (NMAX*NMAX)

B

          B is COMPLEX*16 array, dimension (NMAX*NSMAX)
          where NSMAX is the largest entry in NSVAL.

X

          X is COMPLEX*16 array, dimension (NMAX*NSMAX)

WORK

          WORK is COMPLEX*16 array, dimension
                      (NMAX*max(3,NSMAX*2))

RWORK

          RWORK is DOUBLE PRECISION array, dimension
                      NMAX

SWORK

          SWORK is COMPLEX array, dimension
                      (NMAX*(NSMAX+NMAX))

IWORK

          IWORK is INTEGER array, dimension
                      NMAX

NOUT

          NOUT is INTEGER
          The unit number for output.

 

Author:

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

Date:

November 2011

subroutine zdrvac (logical, dimension( * ) DOTYPE, integer NM, integer, dimension( * ) MVAL, integer NNS, integer, dimension( * ) NSVAL, double precision THRESH, integer NMAX, complex*16, dimension( * ) A, complex*16, dimension( * ) AFAC, complex*16, dimension( * ) B, complex*16, dimension( * ) X, complex*16, dimension( * ) WORK, double precision, dimension( * ) RWORK, complex, dimension(*) SWORK, integer NOUT)

ZDRVAC

Purpose:

 ZDRVAC tests ZCPOSV.

 

Parameters:

DOTYPE

          DOTYPE is LOGICAL array, dimension (NTYPES)
          The matrix types to be used for testing.  Matrices of type j
          (for 1 <= j <= NTYPES) are used for testing if DOTYPE(j) =
          .TRUE.; if DOTYPE(j) = .FALSE., then type j is not used.

NM

          NM is INTEGER
          The number of values of N contained in the vector MVAL.

MVAL

          MVAL is INTEGER array, dimension (NM)
          The values of the matrix dimension N.

NNS

          NNS is INTEGER
          The number of values of NRHS contained in the vector NSVAL.

NSVAL

          NSVAL is INTEGER array, dimension (NNS)
          The values of the number of right hand sides NRHS.

THRESH

          THRESH is DOUBLE PRECISION
          The threshold value for the test ratios.  A result is
          included in the output file if RESULT >= THRESH.  To have
          every test ratio printed, use THRESH = 0.

NMAX

          NMAX is INTEGER
          The maximum value permitted for N, used in dimensioning the
          work arrays.

A

          A is COMPLEX*16 array, dimension (NMAX*NMAX)

AFAC

          AFAC is COMPLEX*16 array, dimension (NMAX*NMAX)

B

          B is COMPLEX*16 array, dimension (NMAX*NSMAX)

X

          X is COMPLEX*16 array, dimension (NMAX*NSMAX)

WORK

          WORK is COMPLEX*16 array, dimension
                      (NMAX*max(3,NSMAX))

RWORK

          RWORK is DOUBLE PRECISION array, dimension
                      (max(2*NMAX,2*NSMAX+NWORK))

SWORK

          SWORK is COMPLEX array, dimension
                      (NMAX*(NSMAX+NMAX))

NOUT

          NOUT is INTEGER
          The unit number for output.

 

Author:

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

Date:

November 2011

subroutine zdrvgb (logical, dimension( * ) DOTYPE, integer NN, integer, dimension( * ) NVAL, integer NRHS, double precision THRESH, logical TSTERR, complex*16, dimension( * ) A, integer LA, complex*16, dimension( * ) AFB, integer LAFB, complex*16, dimension( * ) ASAV, complex*16, dimension( * ) B, complex*16, dimension( * ) BSAV, complex*16, dimension( * ) X, complex*16, dimension( * ) XACT, double precision, dimension( * ) S, complex*16, dimension( * ) WORK, double precision, dimension( * ) RWORK, integer, dimension( * ) IWORK, integer NOUT)

ZDRVGB ZDRVGBX

Purpose:

 ZDRVGB tests the driver routines ZGBSV and -SVX.

 

Parameters:

DOTYPE

          DOTYPE is LOGICAL array, dimension (NTYPES)
          The matrix types to be used for testing.  Matrices of type j
          (for 1 <= j <= NTYPES) are used for testing if DOTYPE(j) =
          .TRUE.; if DOTYPE(j) = .FALSE., then type j is not used.

NN

          NN is INTEGER
          The number of values of N contained in the vector NVAL.

NVAL

          NVAL is INTEGER array, dimension (NN)
          The values of the matrix column dimension N.

NRHS

          NRHS is INTEGER
          The number of right hand side vectors to be generated for
          each linear system.

THRESH

          THRESH is DOUBLE PRECISION
          The threshold value for the test ratios.  A result is
          included in the output file if RESULT >= THRESH.  To have
          every test ratio printed, use THRESH = 0.

TSTERR

          TSTERR is LOGICAL
          Flag that indicates whether error exits are to be tested.

A

          A is COMPLEX*16 array, dimension (LA)

LA

          LA is INTEGER
          The length of the array A.  LA >= (2*NMAX-1)*NMAX
          where NMAX is the largest entry in NVAL.

AFB

          AFB is COMPLEX*16 array, dimension (LAFB)

LAFB

          LAFB is INTEGER
          The length of the array AFB.  LAFB >= (3*NMAX-2)*NMAX
          where NMAX is the largest entry in NVAL.

ASAV

          ASAV is COMPLEX*16 array, dimension (LA)

B

          B is COMPLEX*16 array, dimension (NMAX*NRHS)

BSAV

          BSAV is COMPLEX*16 array, dimension (NMAX*NRHS)

X

          X is COMPLEX*16 array, dimension (NMAX*NRHS)

XACT

          XACT is COMPLEX*16 array, dimension (NMAX*NRHS)

S

          S is DOUBLE PRECISION array, dimension (2*NMAX)

WORK

          WORK is COMPLEX*16 array, dimension
                      (NMAX*max(3,NRHS,NMAX))

RWORK

          RWORK is DOUBLE PRECISION array, dimension
                      (max(NMAX,2*NRHS))

IWORK

          IWORK is INTEGER array, dimension (NMAX)

NOUT

          NOUT is INTEGER
          The unit number for output.

 

Author:

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

Date:

November 2015

Purpose:

 ZDRVGB tests the driver routines ZGBSV, -SVX, and -SVXX.
 Note that this file is used only when the XBLAS are available,
 otherwise zdrvgb.f defines this subroutine.

 

Parameters:

DOTYPE

          DOTYPE is LOGICAL array, dimension (NTYPES)
          The matrix types to be used for testing.  Matrices of type j
          (for 1 <= j <= NTYPES) are used for testing if DOTYPE(j) =
          .TRUE.; if DOTYPE(j) = .FALSE., then type j is not used.

NN

          NN is INTEGER
          The number of values of N contained in the vector NVAL.

NVAL

          NVAL is INTEGER array, dimension (NN)
          The values of the matrix column dimension N.

NRHS

          NRHS is INTEGER
          The number of right hand side vectors to be generated for
          each linear system.

THRESH

          THRESH is DOUBLE PRECISION
          The threshold value for the test ratios.  A result is
          included in the output file if RESULT >= THRESH.  To have
          every test ratio printed, use THRESH = 0.

TSTERR

          TSTERR is LOGICAL
          Flag that indicates whether error exits are to be tested.

A

          A is COMPLEX*16 array, dimension (LA)

LA

          LA is INTEGER
          The length of the array A.  LA >= (2*NMAX-1)*NMAX
          where NMAX is the largest entry in NVAL.

AFB

          AFB is COMPLEX*16 array, dimension (LAFB)

LAFB

          LAFB is INTEGER
          The length of the array AFB.  LAFB >= (3*NMAX-2)*NMAX
          where NMAX is the largest entry in NVAL.

ASAV

          ASAV is COMPLEX*16 array, dimension (LA)

B

          B is COMPLEX*16 array, dimension (NMAX*NRHS)

BSAV

          BSAV is COMPLEX*16 array, dimension (NMAX*NRHS)

X

          X is COMPLEX*16 array, dimension (NMAX*NRHS)

XACT

          XACT is COMPLEX*16 array, dimension (NMAX*NRHS)

S

          S is DOUBLE PRECISION array, dimension (2*NMAX)

WORK

          WORK is COMPLEX*16 array, dimension
                      (NMAX*max(3,NRHS,NMAX))

RWORK

          RWORK is DOUBLE PRECISION array, dimension
                      (max(NMAX,2*NRHS))

IWORK

          IWORK is INTEGER array, dimension (NMAX)

NOUT

          NOUT is INTEGER
          The unit number for output.

 

Author:

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

Date:

November 2011

subroutine zdrvge (logical, dimension( * ) DOTYPE, integer NN, integer, dimension( * ) NVAL, integer NRHS, double precision THRESH, logical TSTERR, integer NMAX, complex*16, dimension( * ) A, complex*16, dimension( * ) AFAC, complex*16, dimension( * ) ASAV, complex*16, dimension( * ) B, complex*16, dimension( * ) BSAV, complex*16, dimension( * ) X, complex*16, dimension( * ) XACT, double precision, dimension( * ) S, complex*16, dimension( * ) WORK, double precision, dimension( * ) RWORK, integer, dimension( * ) IWORK, integer NOUT)

ZDRVGE ZDRVGEX

Purpose:

 ZDRVGE tests the driver routines ZGESV and -SVX.

 

Parameters:

DOTYPE

          DOTYPE is LOGICAL array, dimension (NTYPES)
          The matrix types to be used for testing.  Matrices of type j
          (for 1 <= j <= NTYPES) are used for testing if DOTYPE(j) =
          .TRUE.; if DOTYPE(j) = .FALSE., then type j is not used.

NN

          NN is INTEGER
          The number of values of N contained in the vector NVAL.

NVAL

          NVAL is INTEGER array, dimension (NN)
          The values of the matrix column dimension N.

NRHS

          NRHS is INTEGER
          The number of right hand side vectors to be generated for
          each linear system.

THRESH

          THRESH is DOUBLE PRECISION
          The threshold value for the test ratios.  A result is
          included in the output file if RESULT >= THRESH.  To have
          every test ratio printed, use THRESH = 0.

TSTERR

          TSTERR is LOGICAL
          Flag that indicates whether error exits are to be tested.

NMAX

          NMAX is INTEGER
          The maximum value permitted for N, used in dimensioning the
          work arrays.

A

          A is COMPLEX*16 array, dimension (NMAX*NMAX)

AFAC

          AFAC is COMPLEX*16 array, dimension (NMAX*NMAX)

ASAV

          ASAV is COMPLEX*16 array, dimension (NMAX*NMAX)

B

          B is COMPLEX*16 array, dimension (NMAX*NRHS)

BSAV

          BSAV is COMPLEX*16 array, dimension (NMAX*NRHS)

X

          X is COMPLEX*16 array, dimension (NMAX*NRHS)

XACT

          XACT is COMPLEX*16 array, dimension (NMAX*NRHS)

S

          S is DOUBLE PRECISION array, dimension (2*NMAX)

WORK

          WORK is COMPLEX*16 array, dimension
                      (NMAX*max(3,NRHS))

RWORK

          RWORK is DOUBLE PRECISION array, dimension (2*NRHS+NMAX)

IWORK

          IWORK is INTEGER array, dimension (NMAX)

NOUT

          NOUT is INTEGER
          The unit number for output.

 

Author:

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

Date:

November 2015

Purpose:

 ZDRVGE tests the driver routines ZGESV, -SVX, and -SVXX.
 Note that this file is used only when the XBLAS are available,
 otherwise zdrvge.f defines this subroutine.

 

Parameters:

DOTYPE

          DOTYPE is LOGICAL array, dimension (NTYPES)
          The matrix types to be used for testing.  Matrices of type j
          (for 1 <= j <= NTYPES) are used for testing if DOTYPE(j) =
          .TRUE.; if DOTYPE(j) = .FALSE., then type j is not used.

NN

          NN is INTEGER
          The number of values of N contained in the vector NVAL.

NVAL

          NVAL is INTEGER array, dimension (NN)
          The values of the matrix column dimension N.

NRHS

          NRHS is INTEGER
          The number of right hand side vectors to be generated for
          each linear system.

THRESH

          THRESH is DOUBLE PRECISION
          The threshold value for the test ratios.  A result is
          included in the output file if RESULT >= THRESH.  To have
          every test ratio printed, use THRESH = 0.

TSTERR

          TSTERR is LOGICAL
          Flag that indicates whether error exits are to be tested.

NMAX

          NMAX is INTEGER
          The maximum value permitted for N, used in dimensioning the
          work arrays.

A

          A is COMPLEX*16 array, dimension (NMAX*NMAX)

AFAC

          AFAC is COMPLEX*16 array, dimension (NMAX*NMAX)

ASAV

          ASAV is COMPLEX*16 array, dimension (NMAX*NMAX)

B

          B is COMPLEX*16 array, dimension (NMAX*NRHS)

BSAV

          BSAV is COMPLEX*16 array, dimension (NMAX*NRHS)

X

          X is COMPLEX*16 array, dimension (NMAX*NRHS)

XACT

          XACT is COMPLEX*16 array, dimension (NMAX*NRHS)

S

          S is DOUBLE PRECISION array, dimension (2*NMAX)

WORK

          WORK is COMPLEX*16 array, dimension
                      (NMAX*max(3,NRHS))

RWORK

          RWORK is DOUBLE PRECISION array, dimension (2*NRHS+NMAX)

IWORK

          IWORK is INTEGER array, dimension (NMAX)

NOUT

          NOUT is INTEGER
          The unit number for output.

 

Author:

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

Date:

April 2012

subroutine zdrvgt (logical, dimension( * ) DOTYPE, integer NN, integer, dimension( * ) NVAL, integer NRHS, double precision THRESH, logical TSTERR, complex*16, dimension( * ) A, complex*16, dimension( * ) AF, complex*16, dimension( * ) B, complex*16, dimension( * ) X, complex*16, dimension( * ) XACT, complex*16, dimension( * ) WORK, double precision, dimension( * ) RWORK, integer, dimension( * ) IWORK, integer NOUT)

ZDRVGT

Purpose:

 ZDRVGT tests ZGTSV and -SVX.

 

Parameters:

DOTYPE

          DOTYPE is LOGICAL array, dimension (NTYPES)
          The matrix types to be used for testing.  Matrices of type j
          (for 1 <= j <= NTYPES) are used for testing if DOTYPE(j) =
          .TRUE.; if DOTYPE(j) = .FALSE., then type j is not used.

NN

          NN is INTEGER
          The number of values of N contained in the vector NVAL.

NVAL

          NVAL is INTEGER array, dimension (NN)
          The values of the matrix dimension N.

NRHS

          NRHS is INTEGER
          The number of right hand sides, NRHS >= 0.

THRESH

          THRESH is DOUBLE PRECISION
          The threshold value for the test ratios.  A result is
          included in the output file if RESULT >= THRESH.  To have
          every test ratio printed, use THRESH = 0.

TSTERR

          TSTERR is LOGICAL
          Flag that indicates whether error exits are to be tested.

A

          A is COMPLEX*16 array, dimension (NMAX*4)

AF

          AF is COMPLEX*16 array, dimension (NMAX*4)

B

          B is COMPLEX*16 array, dimension (NMAX*NRHS)

X

          X is COMPLEX*16 array, dimension (NMAX*NRHS)

XACT

          XACT is COMPLEX*16 array, dimension (NMAX*NRHS)

WORK

          WORK is COMPLEX*16 array, dimension
                      (NMAX*max(3,NRHS))

RWORK

          RWORK is DOUBLE PRECISION array, dimension (NMAX+2*NRHS)

IWORK

          IWORK is INTEGER array, dimension (2*NMAX)

NOUT

          NOUT is INTEGER
          The unit number for output.

 

Author:

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

Date:

November 2011

subroutine zdrvhe (logical, dimension( * ) DOTYPE, integer NN, integer, dimension( * ) NVAL, integer NRHS, double precision THRESH, logical TSTERR, integer NMAX, complex*16, dimension( * ) A, complex*16, dimension( * ) AFAC, complex*16, dimension( * ) AINV, complex*16, dimension( * ) B, complex*16, dimension( * ) X, complex*16, dimension( * ) XACT, complex*16, dimension( * ) WORK, double precision, dimension( * ) RWORK, integer, dimension( * ) IWORK, integer NOUT)

ZDRVHE ZDRVHEX

Purpose:

 ZDRVHE tests the driver routines ZHESV and -SVX.

 

Parameters:

DOTYPE

          DOTYPE is LOGICAL array, dimension (NTYPES)
          The matrix types to be used for testing.  Matrices of type j
          (for 1 <= j <= NTYPES) are used for testing if DOTYPE(j) =
          .TRUE.; if DOTYPE(j) = .FALSE., then type j is not used.

NN

          NN is INTEGER
          The number of values of N contained in the vector NVAL.

NVAL

          NVAL is INTEGER array, dimension (NN)
          The values of the matrix dimension N.

NRHS

          NRHS is INTEGER
          The number of right hand side vectors to be generated for
          each linear system.

THRESH

          THRESH is DOUBLE PRECISION
          The threshold value for the test ratios.  A result is
          included in the output file if RESULT >= THRESH.  To have
          every test ratio printed, use THRESH = 0.

TSTERR

          TSTERR is LOGICAL
          Flag that indicates whether error exits are to be tested.

NMAX

          NMAX is INTEGER
          The maximum value permitted for N, used in dimensioning the
          work arrays.

A

          A is COMPLEX*16 array, dimension (NMAX*NMAX)

AFAC

          AFAC is COMPLEX*16 array, dimension (NMAX*NMAX)

AINV

          AINV is COMPLEX*16 array, dimension (NMAX*NMAX)

B

          B is COMPLEX*16 array, dimension (NMAX*NRHS)

X

          X is COMPLEX*16 array, dimension (NMAX*NRHS)

XACT

          XACT is COMPLEX*16 array, dimension (NMAX*NRHS)

WORK

          WORK is COMPLEX*16 array, dimension (NMAX*max(2,NRHS))

RWORK

          RWORK is DOUBLE PRECISION array, dimension (NMAX+2*NRHS)

IWORK

          IWORK is INTEGER array, dimension (NMAX)

NOUT

          NOUT is INTEGER
          The unit number for output.

 

Author:

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

Date:

November 2013

Purpose:

 ZDRVHE tests the driver routines ZHESV, -SVX, and -SVXX.
 Note that this file is used only when the XBLAS are available,
 otherwise zdrvhe.f defines this subroutine.

 

Parameters:

DOTYPE

          DOTYPE is LOGICAL array, dimension (NTYPES)
          The matrix types to be used for testing.  Matrices of type j
          (for 1 <= j <= NTYPES) are used for testing if DOTYPE(j) =
          .TRUE.; if DOTYPE(j) = .FALSE., then type j is not used.

NN

          NN is INTEGER
          The number of values of N contained in the vector NVAL.

NVAL

          NVAL is INTEGER array, dimension (NN)
          The values of the matrix dimension N.

NRHS

          NRHS is INTEGER
          The number of right hand side vectors to be generated for
          each linear system.

THRESH

          THRESH is DOUBLE PRECISION
          The threshold value for the test ratios.  A result is
          included in the output file if RESULT >= THRESH.  To have
          every test ratio printed, use THRESH = 0.

TSTERR

          TSTERR is LOGICAL
          Flag that indicates whether error exits are to be tested.

NMAX

          NMAX is INTEGER
          The maximum value permitted for N, used in dimensioning the
          work arrays.

A

          A is COMPLEX*16 array, dimension (NMAX*NMAX)

AFAC

          AFAC is COMPLEX*16 array, dimension (NMAX*NMAX)

AINV

          AINV is COMPLEX*16 array, dimension (NMAX*NMAX)

B

          B is COMPLEX*16 array, dimension (NMAX*NRHS)

X

          X is COMPLEX*16 array, dimension (NMAX*NRHS)

XACT

          XACT is COMPLEX*16 array, dimension (NMAX*NRHS)

WORK

          WORK is COMPLEX*16 array, dimension
                      (NMAX*max(2,NRHS))

RWORK

          RWORK is DOUBLE PRECISION array, dimension (2*NMAX+2*NRHS)

IWORK

          IWORK is INTEGER array, dimension (NMAX)

NOUT

          NOUT is INTEGER
          The unit number for output.

 

Author:

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

Date:

April 2012

subroutine zdrvhe_rook (logical, dimension( * ) DOTYPE, integer NN, integer, dimension( * ) NVAL, integer NRHS, double precision THRESH, logical TSTERR, integer NMAX, complex*16, dimension( * ) A, complex*16, dimension( * ) AFAC, complex*16, dimension( * ) AINV, complex*16, dimension( * ) B, complex*16, dimension( * ) X, complex*16, dimension( * ) XACT, complex*16, dimension( * ) WORK, double precision, dimension( * ) RWORK, integer, dimension( * ) IWORK, integer NOUT)

ZDRVHE_ROOK

Purpose:

 ZDRVHE_ROOK tests the driver routines ZHESV_ROOK.

 

Parameters:

DOTYPE

          DOTYPE is LOGICAL array, dimension (NTYPES)
          The matrix types to be used for testing.  Matrices of type j
          (for 1 <= j <= NTYPES) are used for testing if DOTYPE(j) =
          .TRUE.; if DOTYPE(j) = .FALSE., then type j is not used.

NN

          NN is INTEGER
          The number of values of N contained in the vector NVAL.

NVAL

          NVAL is INTEGER array, dimension (NN)
          The values of the matrix dimension N.

NRHS

          NRHS is INTEGER
          The number of right hand side vectors to be generated for
          each linear system.

THRESH

          THRESH is DOUBLE PRECISION
          The threshold value for the test ratios.  A result is
          included in the output file if RESULT >= THRESH.  To have
          every test ratio printed, use THRESH = 0.

TSTERR

          TSTERR is LOGICAL
          Flag that indicates whether error exits are to be tested.

NMAX

          NMAX is INTEGER
          The maximum value permitted for N, used in dimensioning the
          work arrays.

A

          A is COMPLEX*16 array, dimension (NMAX*NMAX)

AFAC

          AFAC is COMPLEX*16 array, dimension (NMAX*NMAX)

AINV

          AINV is COMPLEX*16 array, dimension (NMAX*NMAX)

B

          B is COMPLEX*16 array, dimension (NMAX*NRHS)

X

          X is COMPLEX*16 array, dimension (NMAX*NRHS)

XACT

          XACT is COMPLEX*16 array, dimension (NMAX*NRHS)

WORK

          WORK is COMPLEX*16 array, dimension (NMAX*max(2,NRHS))

RWORK

          RWORK is DOUBLE PRECISION array, dimension (NMAX+2*NRHS)

IWORK

          IWORK is INTEGER array, dimension (NMAX)

NOUT

          NOUT is INTEGER
          The unit number for output.

 

Author:

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

Date:

November 2013

subroutine zdrvhp (logical, dimension( * ) DOTYPE, integer NN, integer, dimension( * ) NVAL, integer NRHS, double precision THRESH, logical TSTERR, integer NMAX, complex*16, dimension( * ) A, complex*16, dimension( * ) AFAC, complex*16, dimension( * ) AINV, complex*16, dimension( * ) B, complex*16, dimension( * ) X, complex*16, dimension( * ) XACT, complex*16, dimension( * ) WORK, double precision, dimension( * ) RWORK, integer, dimension( * ) IWORK, integer NOUT)

ZDRVHP

Purpose:

 ZDRVHP tests the driver routines ZHPSV and -SVX.

 

Parameters:

DOTYPE

          DOTYPE is LOGICAL array, dimension (NTYPES)
          The matrix types to be used for testing.  Matrices of type j
          (for 1 <= j <= NTYPES) are used for testing if DOTYPE(j) =
          .TRUE.; if DOTYPE(j) = .FALSE., then type j is not used.

NN

          NN is INTEGER
          The number of values of N contained in the vector NVAL.

NVAL

          NVAL is INTEGER array, dimension (NN)
          The values of the matrix dimension N.

NRHS

          NRHS is INTEGER
          The number of right hand side vectors to be generated for
          each linear system.

THRESH

          THRESH is DOUBLE PRECISION
          The threshold value for the test ratios.  A result is
          included in the output file if RESULT >= THRESH.  To have
          every test ratio printed, use THRESH = 0.

TSTERR

          TSTERR is LOGICAL
          Flag that indicates whether error exits are to be tested.

NMAX

          NMAX is INTEGER
          The maximum value permitted for N, used in dimensioning the
          work arrays.

A

          A is COMPLEX*16 array, dimension
                      (NMAX*(NMAX+1)/2)

AFAC

          AFAC is COMPLEX*16 array, dimension
                      (NMAX*(NMAX+1)/2)

AINV

          AINV is COMPLEX*16 array, dimension
                      (NMAX*(NMAX+1)/2)

B

          B is COMPLEX*16 array, dimension (NMAX*NRHS)

X

          X is COMPLEX*16 array, dimension (NMAX*NRHS)

XACT

          XACT is COMPLEX*16 array, dimension (NMAX*NRHS)

WORK

          WORK is COMPLEX*16 array, dimension
                      (NMAX*max(2,NRHS))

RWORK

          RWORK is DOUBLE PRECISION array, dimension (NMAX+2*NRHS)

IWORK

          IWORK is INTEGER array, dimension (NMAX)

NOUT

          NOUT is INTEGER
          The unit number for output.

 

Author:

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

Date:

November 2011

subroutine zdrvls (logical, dimension( * ) DOTYPE, integer NM, integer, dimension( * ) MVAL, integer NN, integer, dimension( * ) NVAL, integer NNS, integer, dimension( * ) NSVAL, integer NNB, integer, dimension( * ) NBVAL, integer, dimension( * ) NXVAL, double precision THRESH, logical TSTERR, complex*16, dimension( * ) A, complex*16, dimension( * ) COPYA, complex*16, dimension( * ) B, complex*16, dimension( * ) COPYB, complex*16, dimension( * ) C, double precision, dimension( * ) S, double precision, dimension( * ) COPYS, complex*16, dimension( * ) WORK, double precision, dimension( * ) RWORK, integer, dimension( * ) IWORK, integer NOUT)

ZDRVLS

Purpose:

 ZDRVLS tests the least squares driver routines ZGELS, CGELSS, ZGELSY
 and CGELSD.

 

Parameters:

DOTYPE

          DOTYPE is LOGICAL array, dimension (NTYPES)
          The matrix types to be used for testing.  Matrices of type j
          (for 1 <= j <= NTYPES) are used for testing if DOTYPE(j) =
          .TRUE.; if DOTYPE(j) = .FALSE., then type j is not used.
          The matrix of type j is generated as follows:
          j=1: A = U*D*V where U and V are random unitary matrices
               and D has random entries (> 0.1) taken from a uniform
               distribution (0,1). A is full rank.
          j=2: The same of 1, but A is scaled up.
          j=3: The same of 1, but A is scaled down.
          j=4: A = U*D*V where U and V are random unitary matrices
               and D has 3*min(M,N)/4 random entries (> 0.1) taken
               from a uniform distribution (0,1) and the remaining
               entries set to 0. A is rank-deficient.
          j=5: The same of 4, but A is scaled up.
          j=6: The same of 5, but A is scaled down.

NM

          NM is INTEGER
          The number of values of M contained in the vector MVAL.

MVAL

          MVAL is INTEGER array, dimension (NM)
          The values of the matrix row dimension M.

NN

          NN is INTEGER
          The number of values of N contained in the vector NVAL.

NVAL

          NVAL is INTEGER array, dimension (NN)
          The values of the matrix column dimension N.

NNB

          NNB is INTEGER
          The number of values of NB and NX contained in the
          vectors NBVAL and NXVAL.  The blocking parameters are used
          in pairs (NB,NX).

NBVAL

          NBVAL is INTEGER array, dimension (NNB)
          The values of the blocksize NB.

NXVAL

          NXVAL is INTEGER array, dimension (NNB)
          The values of the crossover point NX.

NNS

          NNS is INTEGER
          The number of values of NRHS contained in the vector NSVAL.

NSVAL

          NSVAL is INTEGER array, dimension (NNS)
          The values of the number of right hand sides NRHS.

THRESH

          THRESH is DOUBLE PRECISION
          The threshold value for the test ratios.  A result is
          included in the output file if RESULT >= THRESH.  To have
          every test ratio printed, use THRESH = 0.

TSTERR

          TSTERR is LOGICAL
          Flag that indicates whether error exits are to be tested.

A

          A is COMPLEX*16 array, dimension (MMAX*NMAX)
          where MMAX is the maximum value of M in MVAL and NMAX is the
          maximum value of N in NVAL.

COPYA

          COPYA is COMPLEX*16 array, dimension (MMAX*NMAX)

B

          B is COMPLEX*16 array, dimension (MMAX*NSMAX)
          where MMAX is the maximum value of M in MVAL and NSMAX is the
          maximum value of NRHS in NSVAL.

COPYB

          COPYB is COMPLEX*16 array, dimension (MMAX*NSMAX)

C

          C is COMPLEX*16 array, dimension (MMAX*NSMAX)

S

          S is DOUBLE PRECISION array, dimension
                      (min(MMAX,NMAX))

COPYS

          COPYS is DOUBLE PRECISION array, dimension
                      (min(MMAX,NMAX))

WORK

          WORK is COMPLEX*16 array, dimension
                      (MMAX*NMAX + 4*NMAX + MMAX).

RWORK

          RWORK is DOUBLE PRECISION array, dimension (5*NMAX-1)

IWORK

          IWORK is INTEGER array, dimension (15*NMAX)

NOUT

          NOUT is INTEGER
          The unit number for output.

 

Author:

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

Date:

November 2015

subroutine zdrvpb (logical, dimension( * ) DOTYPE, integer NN, integer, dimension( * ) NVAL, integer NRHS, double precision THRESH, logical TSTERR, integer NMAX, complex*16, dimension( * ) A, complex*16, dimension( * ) AFAC, complex*16, dimension( * ) ASAV, complex*16, dimension( * ) B, complex*16, dimension( * ) BSAV, complex*16, dimension( * ) X, complex*16, dimension( * ) XACT, double precision, dimension( * ) S, complex*16, dimension( * ) WORK, double precision, dimension( * ) RWORK, integer NOUT)

ZDRVPB

Purpose:

 ZDRVPB tests the driver routines ZPBSV and -SVX.

 

Parameters:

DOTYPE

          DOTYPE is LOGICAL array, dimension (NTYPES)
          The matrix types to be used for testing.  Matrices of type j
          (for 1 <= j <= NTYPES) are used for testing if DOTYPE(j) =
          .TRUE.; if DOTYPE(j) = .FALSE., then type j is not used.

NN

          NN is INTEGER
          The number of values of N contained in the vector NVAL.

NVAL

          NVAL is INTEGER array, dimension (NN)
          The values of the matrix dimension N.

NRHS

          NRHS is INTEGER
          The number of right hand side vectors to be generated for
          each linear system.

THRESH

          THRESH is DOUBLE PRECISION
          The threshold value for the test ratios.  A result is
          included in the output file if RESULT >= THRESH.  To have
          every test ratio printed, use THRESH = 0.

TSTERR

          TSTERR is LOGICAL
          Flag that indicates whether error exits are to be tested.

NMAX

          NMAX is INTEGER
          The maximum value permitted for N, used in dimensioning the
          work arrays.

A

          A is COMPLEX*16 array, dimension (NMAX*NMAX)

AFAC

          AFAC is COMPLEX*16 array, dimension (NMAX*NMAX)

ASAV

          ASAV is COMPLEX*16 array, dimension (NMAX*NMAX)

B

          B is COMPLEX*16 array, dimension (NMAX*NRHS)

BSAV

          BSAV is COMPLEX*16 array, dimension (NMAX*NRHS)

X

          X is COMPLEX*16 array, dimension (NMAX*NRHS)

XACT

          XACT is COMPLEX*16 array, dimension (NMAX*NRHS)

S

          S is DOUBLE PRECISION array, dimension (NMAX)

WORK

          WORK is COMPLEX*16 array, dimension
                      (NMAX*max(3,NRHS))

RWORK

          RWORK is DOUBLE PRECISION array, dimension (NMAX+2*NRHS)

NOUT

          NOUT is INTEGER
          The unit number for output.

 

Author:

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

Date:

November 2011

subroutine zdrvpo (logical, dimension( * ) DOTYPE, integer NN, integer, dimension( * ) NVAL, integer NRHS, double precision THRESH, logical TSTERR, integer NMAX, complex*16, dimension( * ) A, complex*16, dimension( * ) AFAC, complex*16, dimension( * ) ASAV, complex*16, dimension( * ) B, complex*16, dimension( * ) BSAV, complex*16, dimension( * ) X, complex*16, dimension( * ) XACT, double precision, dimension( * ) S, complex*16, dimension( * ) WORK, double precision, dimension( * ) RWORK, integer NOUT)

ZDRVPO ZDRVPOX

Purpose:

 ZDRVPO tests the driver routines ZPOSV and -SVX.

 

Parameters:

DOTYPE

          DOTYPE is LOGICAL array, dimension (NTYPES)
          The matrix types to be used for testing.  Matrices of type j
          (for 1 <= j <= NTYPES) are used for testing if DOTYPE(j) =
          .TRUE.; if DOTYPE(j) = .FALSE., then type j is not used.

NN

          NN is INTEGER
          The number of values of N contained in the vector NVAL.

NVAL

          NVAL is INTEGER array, dimension (NN)
          The values of the matrix dimension N.

NRHS

          NRHS is INTEGER
          The number of right hand side vectors to be generated for
          each linear system.

THRESH

          THRESH is DOUBLE PRECISION
          The threshold value for the test ratios.  A result is
          included in the output file if RESULT >= THRESH.  To have
          every test ratio printed, use THRESH = 0.

TSTERR

          TSTERR is LOGICAL
          Flag that indicates whether error exits are to be tested.

NMAX

          NMAX is INTEGER
          The maximum value permitted for N, used in dimensioning the
          work arrays.

A

          A is COMPLEX*16 array, dimension (NMAX*NMAX)

AFAC

          AFAC is COMPLEX*16 array, dimension (NMAX*NMAX)

ASAV

          ASAV is COMPLEX*16 array, dimension (NMAX*NMAX)

B

          B is COMPLEX*16 array, dimension (NMAX*NRHS)

BSAV

          BSAV is COMPLEX*16 array, dimension (NMAX*NRHS)

X

          X is COMPLEX*16 array, dimension (NMAX*NRHS)

XACT

          XACT is COMPLEX*16 array, dimension (NMAX*NRHS)

S

          S is DOUBLE PRECISION array, dimension (NMAX)

WORK

          WORK is COMPLEX*16 array, dimension
                      (NMAX*max(3,NRHS))

RWORK

          RWORK is DOUBLE PRECISION array, dimension (NMAX+2*NRHS)

NOUT

          NOUT is INTEGER
          The unit number for output.

 

Author:

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

Date:

November 2011

Purpose:

 ZDRVPO tests the driver routines ZPOSV, -SVX, and -SVXX.
 Note that this file is used only when the XBLAS are available,
 otherwise zdrvpo.f defines this subroutine.

 

Parameters:

DOTYPE

          DOTYPE is LOGICAL array, dimension (NTYPES)
          The matrix types to be used for testing.  Matrices of type j
          (for 1 <= j <= NTYPES) are used for testing if DOTYPE(j) =
          .TRUE.; if DOTYPE(j) = .FALSE., then type j is not used.

NN

          NN is INTEGER
          The number of values of N contained in the vector NVAL.

NVAL

          NVAL is INTEGER array, dimension (NN)
          The values of the matrix dimension N.

NRHS

          NRHS is INTEGER
          The number of right hand side vectors to be generated for
          each linear system.

THRESH

          THRESH is DOUBLE PRECISION
          The threshold value for the test ratios.  A result is
          included in the output file if RESULT >= THRESH.  To have
          every test ratio printed, use THRESH = 0.

TSTERR

          TSTERR is LOGICAL
          Flag that indicates whether error exits are to be tested.

NMAX

          NMAX is INTEGER
          The maximum value permitted for N, used in dimensioning the
          work arrays.

A

          A is COMPLEX*16 array, dimension (NMAX*NMAX)

AFAC

          AFAC is COMPLEX*16 array, dimension (NMAX*NMAX)

ASAV

          ASAV is COMPLEX*16 array, dimension (NMAX*NMAX)

B

          B is COMPLEX*16 array, dimension (NMAX*NRHS)

BSAV

          BSAV is COMPLEX*16 array, dimension (NMAX*NRHS)

X

          X is COMPLEX*16 array, dimension (NMAX*NRHS)

XACT

          XACT is COMPLEX*16 array, dimension (NMAX*NRHS)

S

          S is DOUBLE PRECISION array, dimension (NMAX)

WORK

          WORK is COMPLEX*16 array, dimension
                      (NMAX*max(3,NRHS))

RWORK

          RWORK is DOUBLE PRECISION array, dimension (NMAX+2*NRHS)

NOUT

          NOUT is INTEGER
          The unit number for output.

 

Author:

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

Date:

November 2013

subroutine zdrvpp (logical, dimension( * ) DOTYPE, integer NN, integer, dimension( * ) NVAL, integer NRHS, double precision THRESH, logical TSTERR, integer NMAX, complex*16, dimension( * ) A, complex*16, dimension( * ) AFAC, complex*16, dimension( * ) ASAV, complex*16, dimension( * ) B, complex*16, dimension( * ) BSAV, complex*16, dimension( * ) X, complex*16, dimension( * ) XACT, double precision, dimension( * ) S, complex*16, dimension( * ) WORK, double precision, dimension( * ) RWORK, integer NOUT)

ZDRVPP

Purpose:

 ZDRVPP tests the driver routines ZPPSV and -SVX.

 

Parameters:

DOTYPE

          DOTYPE is LOGICAL array, dimension (NTYPES)
          The matrix types to be used for testing.  Matrices of type j
          (for 1 <= j <= NTYPES) are used for testing if DOTYPE(j) =
          .TRUE.; if DOTYPE(j) = .FALSE., then type j is not used.

NN

          NN is INTEGER
          The number of values of N contained in the vector NVAL.

NVAL

          NVAL is INTEGER array, dimension (NN)
          The values of the matrix dimension N.

NRHS

          NRHS is INTEGER
          The number of right hand side vectors to be generated for
          each linear system.

THRESH

          THRESH is DOUBLE PRECISION
          The threshold value for the test ratios.  A result is
          included in the output file if RESULT >= THRESH.  To have
          every test ratio printed, use THRESH = 0.

TSTERR

          TSTERR is LOGICAL
          Flag that indicates whether error exits are to be tested.

NMAX

          NMAX is INTEGER
          The maximum value permitted for N, used in dimensioning the
          work arrays.

A

          A is COMPLEX*16 array, dimension (NMAX*(NMAX+1)/2)

AFAC

          AFAC is COMPLEX*16 array, dimension (NMAX*(NMAX+1)/2)

ASAV

          ASAV is COMPLEX*16 array, dimension (NMAX*(NMAX+1)/2)

B

          B is COMPLEX*16 array, dimension (NMAX*NRHS)

BSAV

          BSAV is COMPLEX*16 array, dimension (NMAX*NRHS)

X

          X is COMPLEX*16 array, dimension (NMAX*NRHS)

XACT

          XACT is COMPLEX*16 array, dimension (NMAX*NRHS)

S

          S is DOUBLE PRECISION array, dimension (NMAX)

WORK

          WORK is COMPLEX*16 array, dimension
                      (NMAX*max(3,NRHS))

RWORK

          RWORK is DOUBLE PRECISION array, dimension (NMAX+2*NRHS)

NOUT

          NOUT is INTEGER
          The unit number for output.

 

Author:

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

Date:

November 2011

subroutine zdrvpt (logical, dimension( * ) DOTYPE, integer NN, integer, dimension( * ) NVAL, integer NRHS, double precision THRESH, logical TSTERR, complex*16, dimension( * ) A, double precision, dimension( * ) D, complex*16, dimension( * ) E, complex*16, dimension( * ) B, complex*16, dimension( * ) X, complex*16, dimension( * ) XACT, complex*16, dimension( * ) WORK, double precision, dimension( * ) RWORK, integer NOUT)

ZDRVPT

Purpose:

 ZDRVPT tests ZPTSV and -SVX.

 

Parameters:

DOTYPE

          DOTYPE is LOGICAL array, dimension (NTYPES)
          The matrix types to be used for testing.  Matrices of type j
          (for 1 <= j <= NTYPES) are used for testing if DOTYPE(j) =
          .TRUE.; if DOTYPE(j) = .FALSE., then type j is not used.

NN

          NN is INTEGER
          The number of values of N contained in the vector NVAL.

NVAL

          NVAL is INTEGER array, dimension (NN)
          The values of the matrix dimension N.

NRHS

          NRHS is INTEGER
          The number of right hand side vectors to be generated for
          each linear system.

THRESH

          THRESH is DOUBLE PRECISION
          The threshold value for the test ratios.  A result is
          included in the output file if RESULT >= THRESH.  To have
          every test ratio printed, use THRESH = 0.

TSTERR

          TSTERR is LOGICAL
          Flag that indicates whether error exits are to be tested.

A

          A is COMPLEX*16 array, dimension (NMAX*2)

D

          D is DOUBLE PRECISION array, dimension (NMAX*2)

E

          E is COMPLEX*16 array, dimension (NMAX*2)

B

          B is COMPLEX*16 array, dimension (NMAX*NRHS)

X

          X is COMPLEX*16 array, dimension (NMAX*NRHS)

XACT

          XACT is COMPLEX*16 array, dimension (NMAX*NRHS)

WORK

          WORK is COMPLEX*16 array, dimension
                      (NMAX*max(3,NRHS))

RWORK

          RWORK is DOUBLE PRECISION array, dimension (NMAX+2*NRHS)

NOUT

          NOUT is INTEGER
          The unit number for output.

 

Author:

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

Date:

November 2011

subroutine zdrvrf1 (integer NOUT, integer NN, integer, dimension( nn ) NVAL, double precision THRESH, complex*16, dimension( lda, * ) A, integer LDA, complex*16, dimension( * ) ARF, double precision, dimension( * ) WORK)

ZDRVRF1

Purpose:

 ZDRVRF1 tests the LAPACK RFP routines:
     ZLANHF.F

 

Parameters:

NOUT

          NOUT is INTEGER
                The unit number for output.

NN

          NN is INTEGER
                The number of values of N contained in the vector NVAL.

NVAL

          NVAL is INTEGER array, dimension (NN)
                The values of the matrix dimension N.

THRESH

          THRESH is DOUBLE PRECISION
                The threshold value for the test ratios.  A result is
                included in the output file if RESULT >= THRESH.  To have
                every test ratio printed, use THRESH = 0.

A

          A is COMPLEX*16 array, dimension (LDA,NMAX)

LDA

          LDA is INTEGER
                The leading dimension of the array A.  LDA >= max(1,NMAX).

ARF

          ARF is COMPLEX*16 array, dimension ((NMAX*(NMAX+1))/2).

WORK

          WORK is DOUBLE PRECISION array, dimension ( NMAX )

 

Author:

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

Date:

November 2011

subroutine zdrvrf2 (integer NOUT, integer NN, integer, dimension( nn ) NVAL, complex*16, dimension( lda, * ) A, integer LDA, complex*16, dimension( * ) ARF, complex*16, dimension(*) AP, complex*16, dimension( lda, * ) ASAV)

ZDRVRF2

Purpose:

 ZDRVRF2 tests the LAPACK RFP conversion routines.

 

Parameters:

NOUT

          NOUT is INTEGER
                The unit number for output.

NN

          NN is INTEGER
                The number of values of N contained in the vector NVAL.

NVAL

          NVAL is INTEGER array, dimension (NN)
                The values of the matrix dimension N.

A

          A is COMPLEX*16 array, dimension (LDA,NMAX)

LDA

          LDA is INTEGER
                The leading dimension of the array A.  LDA >= max(1,NMAX).

ARF

          ARF is COMPLEX*16 array, dimension ((NMAX*(NMAX+1))/2).

AP

          AP is COMPLEX*16 array, dimension ((NMAX*(NMAX+1))/2).

ASAV

          ASAV is COMPLEX*16 array, dimension (LDA,NMAX)

 

Author:

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

Date:

November 2011

subroutine zdrvrf3 (integer NOUT, integer NN, integer, dimension( nn ) NVAL, double precision THRESH, complex*16, dimension( lda, * ) A, integer LDA, complex*16, dimension( * ) ARF, complex*16, dimension( lda, * ) B1, complex*16, dimension( lda, * ) B2, double precision, dimension( * ) D_WORK_ZLANGE, complex*16, dimension( * ) Z_WORK_ZGEQRF, complex*16, dimension( * ) TAU)

ZDRVRF3

Purpose:

 ZDRVRF3 tests the LAPACK RFP routines:
     ZTFSM

 

Parameters:

NOUT

          NOUT is INTEGER
                The unit number for output.

NN

          NN is INTEGER
                The number of values of N contained in the vector NVAL.

NVAL

          NVAL is INTEGER array, dimension (NN)
                The values of the matrix dimension N.

THRESH

          THRESH is DOUBLE PRECISION
                The threshold value for the test ratios.  A result is
                included in the output file if RESULT >= THRESH.  To have
                every test ratio printed, use THRESH = 0.

A

          A is COMPLEX*16 array, dimension (LDA,NMAX)

LDA

          LDA is INTEGER
                The leading dimension of the array A.  LDA >= max(1,NMAX).

ARF

          ARF is COMPLEX*16 array, dimension ((NMAX*(NMAX+1))/2).

B1

          B1 is COMPLEX*16 array, dimension (LDA,NMAX)

B2

          B2 is COMPLEX*16 array, dimension (LDA,NMAX)

D_WORK_ZLANGE

          D_WORK_ZLANGE is DOUBLE PRECISION array, dimension (NMAX)

Z_WORK_ZGEQRF

          Z_WORK_ZGEQRF is COMPLEX*16 array, dimension (NMAX)

TAU

          TAU is COMPLEX*16 array, dimension (NMAX)

 

Author:

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

Date:

November 2011

subroutine zdrvrf4 (integer NOUT, integer NN, integer, dimension( nn ) NVAL, double precision THRESH, complex*16, dimension( ldc, * ) C1, complex*16, dimension( ldc, *) C2, integer LDC, complex*16, dimension( * ) CRF, complex*16, dimension( lda, * ) A, integer LDA, double precision, dimension( * ) D_WORK_ZLANGE)

ZDRVRF4

Purpose:

 ZDRVRF4 tests the LAPACK RFP routines:
     ZHFRK

 

Parameters:

NOUT

          NOUT is INTEGER
                The unit number for output.

NN

          NN is INTEGER
                The number of values of N contained in the vector NVAL.

NVAL

          NVAL is INTEGER array, dimension (NN)
                The values of the matrix dimension N.

THRESH

          THRESH is DOUBLE PRECISION
                The threshold value for the test ratios.  A result is
                included in the output file if RESULT >= THRESH.  To have
                every test ratio printed, use THRESH = 0.

C1

          C1 is COMPLEX*16 array, dimension (LDC,NMAX)

C2

          C2 is COMPLEX*16 array, dimension (LDC,NMAX)

LDC

          LDC is INTEGER
                The leading dimension of the array A.  LDA >= max(1,NMAX).

CRF

          CRF is COMPLEX*16 array, dimension ((NMAX*(NMAX+1))/2).

A

          A is COMPLEX*16 array, dimension (LDA,NMAX)

LDA

          LDA is INTEGER
                The leading dimension of the array A.  LDA >= max(1,NMAX).

D_WORK_ZLANGE

          D_WORK_ZLANGE is DOUBLE PRECISION array, dimension (NMAX)

 

Author:

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

Date:

November 2011

subroutine zdrvrfp (integer NOUT, integer NN, integer, dimension( nn ) NVAL, integer NNS, integer, dimension( nns ) NSVAL, integer NNT, integer, dimension( nnt ) NTVAL, double precision THRESH, complex*16, dimension( * ) A, complex*16, dimension( * ) ASAV, complex*16, dimension( * ) AFAC, complex*16, dimension( * ) AINV, complex*16, dimension( * ) B, complex*16, dimension( * ) BSAV, complex*16, dimension( * ) XACT, complex*16, dimension( * ) X, complex*16, dimension( * ) ARF, complex*16, dimension( * ) ARFINV, complex*16, dimension( * ) Z_WORK_ZLATMS, complex*16, dimension( * ) Z_WORK_ZPOT02, complex*16, dimension( * ) Z_WORK_ZPOT03, double precision, dimension( * ) D_WORK_ZLATMS, double precision, dimension( * ) D_WORK_ZLANHE, double precision, dimension( * ) D_WORK_ZPOT01, double precision, dimension( * ) D_WORK_ZPOT02, double precision, dimension( * ) D_WORK_ZPOT03)

ZDRVRFP

Purpose:

 ZDRVRFP tests the LAPACK RFP routines:
     ZPFTRF, ZPFTRS, and ZPFTRI.
 This testing routine follow the same tests as ZDRVPO (test for the full
 format Symmetric Positive Definite solver).
 The tests are performed in Full Format, conversion back and forth from
 full format to RFP format are performed using the routines ZTRTTF and
 ZTFTTR.
 First, a specific matrix A of size N is created. There is nine types of 
 different matrixes possible.
  1. Diagonal                        6. Random, CNDNUM = sqrt(0.1/EPS)
  2. Random, CNDNUM = 2              7. Random, CNDNUM = 0.1/EPS
 *3. First row and column zero       8. Scaled near underflow
 *4. Last row and column zero        9. Scaled near overflow
 *5. Middle row and column zero
 (* - tests error exits from ZPFTRF, no test ratios are computed)
 A solution XACT of size N-by-NRHS is created and the associated right
 hand side B as well. Then ZPFTRF is called to compute L (or U), the
 Cholesky factor of A. Then L (or U) is used to solve the linear system
 of equations AX = B. This gives X. Then L (or U) is used to compute the
 inverse of A, AINV. The following four tests are then performed:
 (1) norm( L*L' - A ) / ( N * norm(A) * EPS ) or
     norm( U'*U - A ) / ( N * norm(A) * EPS ),
 (2) norm(B - A*X) / ( norm(A) * norm(X) * EPS ),
 (3) norm( I - A*AINV ) / ( N * norm(A) * norm(AINV) * EPS ),
 (4) ( norm(X-XACT) * RCOND ) / ( norm(XACT) * EPS ),
 where EPS is the machine precision, RCOND the condition number of A, and
 norm( . ) the 1-norm for (1,2,3) and the inf-norm for (4).
 Errors occur when INFO parameter is not as expected. Failures occur when
 a test ratios is greater than THRES.

 

Parameters:

NOUT

          NOUT is INTEGER
                The unit number for output.

NN

          NN is INTEGER
                The number of values of N contained in the vector NVAL.

NVAL

          NVAL is INTEGER array, dimension (NN)
                The values of the matrix dimension N.

NNS

          NNS is INTEGER
                The number of values of NRHS contained in the vector NSVAL.

NSVAL

          NSVAL is INTEGER array, dimension (NNS)
                The values of the number of right-hand sides NRHS.

NNT

          NNT is INTEGER
                The number of values of MATRIX TYPE contained in the vector NTVAL.

NTVAL

          NTVAL is INTEGER array, dimension (NNT)
                The values of matrix type (between 0 and 9 for PO/PP/PF matrices).

THRESH

          THRESH is DOUBLE PRECISION
                The threshold value for the test ratios.  A result is
                included in the output file if RESULT >= THRESH.  To have
                every test ratio printed, use THRESH = 0.

A

          A is COMPLEX*16 array, dimension (NMAX*NMAX)

ASAV

          ASAV is COMPLEX*16 array, dimension (NMAX*NMAX)

AFAC

          AFAC is COMPLEX*16 array, dimension (NMAX*NMAX)

AINV

          AINV is COMPLEX*16 array, dimension (NMAX*NMAX)

B

          B is COMPLEX*16 array, dimension (NMAX*MAXRHS)

BSAV

          BSAV is COMPLEX*16 array, dimension (NMAX*MAXRHS)

XACT

          XACT is COMPLEX*16 array, dimension (NMAX*MAXRHS)

X

          X is COMPLEX*16 array, dimension (NMAX*MAXRHS)

ARF

          ARF is COMPLEX*16 array, dimension ((NMAX*(NMAX+1))/2)

ARFINV

          ARFINV is COMPLEX*16 array, dimension ((NMAX*(NMAX+1))/2)

Z_WORK_ZLATMS

          Z_WORK_ZLATMS is COMPLEX*16 array, dimension ( 3*NMAX )

Z_WORK_ZPOT02

          Z_WORK_ZPOT02 is COMPLEX*16 array, dimension ( NMAX*MAXRHS )

Z_WORK_ZPOT03

          Z_WORK_ZPOT03 is COMPLEX*16 array, dimension ( NMAX*NMAX )

D_WORK_ZLATMS

          D_WORK_ZLATMS is DOUBLE PRECISION array, dimension ( NMAX )

D_WORK_ZLANHE

          D_WORK_ZLANHE is DOUBLE PRECISION array, dimension ( NMAX )

D_WORK_ZPOT01

          D_WORK_ZPOT01 is DOUBLE PRECISION array, dimension ( NMAX )

D_WORK_ZPOT02

          D_WORK_ZPOT02 is DOUBLE PRECISION array, dimension ( NMAX )

D_WORK_ZPOT03

          D_WORK_ZPOT03 is DOUBLE PRECISION array, dimension ( NMAX )

 

Author:

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

Date:

November 2013

subroutine zdrvsp (logical, dimension( * ) DOTYPE, integer NN, integer, dimension( * ) NVAL, integer NRHS, double precision THRESH, logical TSTERR, integer NMAX, complex*16, dimension( * ) A, complex*16, dimension( * ) AFAC, complex*16, dimension( * ) AINV, complex*16, dimension( * ) B, complex*16, dimension( * ) X, complex*16, dimension( * ) XACT, complex*16, dimension( * ) WORK, double precision, dimension( * ) RWORK, integer, dimension( * ) IWORK, integer NOUT)

ZDRVSP

Purpose:

 ZDRVSP tests the driver routines ZSPSV and -SVX.

 

Parameters:

DOTYPE

          DOTYPE is LOGICAL array, dimension (NTYPES)
          The matrix types to be used for testing.  Matrices of type j
          (for 1 <= j <= NTYPES) are used for testing if DOTYPE(j) =
          .TRUE.; if DOTYPE(j) = .FALSE., then type j is not used.

NN

          NN is INTEGER
          The number of values of N contained in the vector NVAL.

NVAL

          NVAL is INTEGER array, dimension (NN)
          The values of the matrix dimension N.

NRHS

          NRHS is INTEGER
          The number of right hand side vectors to be generated for
          each linear system.

THRESH

          THRESH is DOUBLE PRECISION
          The threshold value for the test ratios.  A result is
          included in the output file if RESULT >= THRESH.  To have
          every test ratio printed, use THRESH = 0.

TSTERR

          TSTERR is LOGICAL
          Flag that indicates whether error exits are to be tested.

NMAX

          NMAX is INTEGER
          The maximum value permitted for N, used in dimensioning the
          work arrays.

A

          A is COMPLEX*16 array, dimension
                      (NMAX*(NMAX+1)/2)

AFAC

          AFAC is COMPLEX*16 array, dimension
                      (NMAX*(NMAX+1)/2)

AINV

          AINV is COMPLEX*16 array, dimension
                      (NMAX*(NMAX+1)/2)

B

          B is COMPLEX*16 array, dimension (NMAX*NRHS)

X

          X is COMPLEX*16 array, dimension (NMAX*NRHS)

XACT

          XACT is COMPLEX*16 array, dimension (NMAX*NRHS)

WORK

          WORK is COMPLEX*16 array, dimension
                      (NMAX*max(2,NRHS))

RWORK

          RWORK is DOUBLE PRECISION array, dimension (NMAX+2*NRHS)

IWORK

          IWORK is INTEGER array, dimension (NMAX)

NOUT

          NOUT is INTEGER
          The unit number for output.

 

Author:

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

Date:

November 2011

subroutine zdrvsy (logical, dimension( * ) DOTYPE, integer NN, integer, dimension( * ) NVAL, integer NRHS, double precision THRESH, logical TSTERR, integer NMAX, complex*16, dimension( * ) A, complex*16, dimension( * ) AFAC, complex*16, dimension( * ) AINV, complex*16, dimension( * ) B, complex*16, dimension( * ) X, complex*16, dimension( * ) XACT, complex*16, dimension( * ) WORK, double precision, dimension( * ) RWORK, integer, dimension( * ) IWORK, integer NOUT)

ZDRVSY ZDRVSYX

Purpose:

 ZDRVSY tests the driver routines ZSYSV and -SVX.

 

Parameters:

DOTYPE

          DOTYPE is LOGICAL array, dimension (NTYPES)
          The matrix types to be used for testing.  Matrices of type j
          (for 1 <= j <= NTYPES) are used for testing if DOTYPE(j) =
          .TRUE.; if DOTYPE(j) = .FALSE., then type j is not used.

NN

          NN is INTEGER
          The number of values of N contained in the vector NVAL.

NVAL

          NVAL is INTEGER array, dimension (NN)
          The values of the matrix dimension N.

NRHS

          NRHS is INTEGER
          The number of right hand side vectors to be generated for
          each linear system.

THRESH

          THRESH is DOUBLE PRECISION
          The threshold value for the test ratios.  A result is
          included in the output file if RESULT >= THRESH.  To have
          every test ratio printed, use THRESH = 0.

TSTERR

          TSTERR is LOGICAL
          Flag that indicates whether error exits are to be tested.

NMAX

          NMAX is INTEGER
          The maximum value permitted for N, used in dimensioning the
          work arrays.

A

          A is COMPLEX*16 array, dimension (NMAX*NMAX)

AFAC

          AFAC is COMPLEX*16 array, dimension (NMAX*NMAX)

AINV

          AINV is COMPLEX*16 array, dimension (NMAX*NMAX)

B

          B is COMPLEX*16 array, dimension (NMAX*NRHS)

X

          X is COMPLEX*16 array, dimension (NMAX*NRHS)

XACT

          XACT is COMPLEX*16 array, dimension (NMAX*NRHS)

WORK

          WORK is COMPLEX*16 array, dimension (NMAX*max(2,NRHS))

RWORK

          RWORK is DOUBLE PRECISION array, dimension (NMAX+2*NRHS)

IWORK

          IWORK is INTEGER array, dimension (NMAX)

NOUT

          NOUT is INTEGER
          The unit number for output.

 

Author:

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

Date:

November 2013

Purpose:

 ZDRVSY tests the driver routines ZSYSV, -SVX, and -SVXX.
 Note that this file is used only when the XBLAS are available,
 otherwise zdrvsy.f defines this subroutine.

 

Parameters:

DOTYPE

          DOTYPE is LOGICAL array, dimension (NTYPES)
          The matrix types to be used for testing.  Matrices of type j
          (for 1 <= j <= NTYPES) are used for testing if DOTYPE(j) =
          .TRUE.; if DOTYPE(j) = .FALSE., then type j is not used.

NN

          NN is INTEGER
          The number of values of N contained in the vector NVAL.

NVAL

          NVAL is INTEGER array, dimension (NN)
          The values of the matrix dimension N.

NRHS

          NRHS is INTEGER
          The number of right hand side vectors to be generated for
          each linear system.

THRESH

          THRESH is DOUBLE PRECISION
          The threshold value for the test ratios.  A result is
          included in the output file if RESULT >= THRESH.  To have
          every test ratio printed, use THRESH = 0.

TSTERR

          TSTERR is LOGICAL
          Flag that indicates whether error exits are to be tested.

NMAX

          NMAX is INTEGER
          The maximum value permitted for N, used in dimensioning the
          work arrays.

A

          A is COMPLEX*16 array, dimension (NMAX*NMAX)

AFAC

          AFAC is COMPLEX*16 array, dimension (NMAX*NMAX)

AINV

          AINV is COMPLEX*16 array, dimension (NMAX*NMAX)

B

          B is COMPLEX*16 array, dimension (NMAX*NRHS)

X

          X is COMPLEX*16 array, dimension (NMAX*NRHS)

XACT

          XACT is COMPLEX*16 array, dimension (NMAX*NRHS)

WORK

          WORK is COMPLEX*16 array, dimension
                      (NMAX*max(2,NRHS))

RWORK

          RWORK is DOUBLE PRECISION array, dimension (2*NMAX+2*NRHS)

IWORK

          IWORK is INTEGER array, dimension (NMAX)

NOUT

          NOUT is INTEGER
          The unit number for output.

 

Author:

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

Date:

April 2012

subroutine zdrvsy_rook (logical, dimension( * ) DOTYPE, integer NN, integer, dimension( * ) NVAL, integer NRHS, double precision THRESH, logical TSTERR, integer NMAX, complex*16, dimension( * ) A, complex*16, dimension( * ) AFAC, complex*16, dimension( * ) AINV, complex*16, dimension( * ) B, complex*16, dimension( * ) X, complex*16, dimension( * ) XACT, complex*16, dimension( * ) WORK, double precision, dimension( * ) RWORK, integer, dimension( * ) IWORK, integer NOUT)

ZDRVSY_ROOK

Purpose:

 ZDRVSY_ROOK tests the driver routines ZSYSV_ROOK.

 

Parameters:

DOTYPE

          DOTYPE is LOGICAL array, dimension (NTYPES)
          The matrix types to be used for testing.  Matrices of type j
          (for 1 <= j <= NTYPES) are used for testing if DOTYPE(j) =
          .TRUE.; if DOTYPE(j) = .FALSE., then type j is not used.

NN

          NN is INTEGER
          The number of values of N contained in the vector NVAL.

NVAL

          NVAL is INTEGER array, dimension (NN)
          The values of the matrix dimension N.

NRHS

          NRHS is INTEGER
          The number of right hand side vectors to be generated for
          each linear system.

THRESH

          THRESH is DOUBLE PRECISION
          The threshold value for the test ratios.  A result is
          included in the output file if RESULT >= THRESH.  To have
          every test ratio printed, use THRESH = 0.

TSTERR

          TSTERR is LOGICAL
          Flag that indicates whether error exits are to be tested.

NMAX

          NMAX is INTEGER
          The maximum value permitted for N, used in dimensioning the
          work arrays.

A

          A is COMPLEX*16 array, dimension (NMAX*NMAX)

AFAC

          AFAC is COMPLEX*16 array, dimension (NMAX*NMAX)

AINV

          AINV is COMPLEX*16 array, dimension (NMAX*NMAX)

B

          B is COMPLEX*16 array, dimension (NMAX*NRHS)

X

          X is COMPLEX*16 array, dimension (NMAX*NRHS)

XACT

          XACT is COMPLEX*16 array, dimension (NMAX*NRHS)

WORK

          WORK is COMPLEX*16 array, dimension (NMAX*max(2,NRHS))

RWORK

          RWORK is DOUBLE PRECISION array, dimension (NMAX+2*NRHS)

IWORK

          IWORK is INTEGER array, dimension (NMAX)

NOUT

          NOUT is INTEGER
          The unit number for output.

 

Author:

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

Date:

November 2013

subroutine zebchvxx (double precision THRESH, character*3 PATH)

ZEBCHVXX Purpose:

  ZEBCHVXX will run Z**SVXX on a series of Hilbert matrices and then
  compare the error bounds returned by Z**SVXX to see if the returned
  answer indeed falls within those bounds.
  Eight test ratios will be computed.  The tests will pass if they are .LT.
  THRESH.  There are two cases that are determined by 1 / (SQRT( N ) * EPS).
  If that value is .LE. to the component wise reciprocal condition number,
  it uses the guaranteed case, other wise it uses the unguaranteed case.
  Test ratios:
     Let Xc be X_computed and Xt be X_truth.
     The norm used is the infinity norm.
     Let A be the guaranteed case and B be the unguaranteed case.
       1. Normwise guaranteed forward error bound.
       A: norm ( abs( Xc - Xt ) / norm ( Xt ) .LE. ERRBND( *, nwise_i, bnd_i ) and
          ERRBND( *, nwise_i, bnd_i ) .LE. MAX(SQRT(N),10) * EPS.
          If these conditions are met, the test ratio is set to be
          ERRBND( *, nwise_i, bnd_i ) / MAX(SQRT(N), 10).  Otherwise it is 1/EPS.
       B: For this case, CGESVXX should just return 1.  If it is less than
          one, treat it the same as in 1A.  Otherwise it fails. (Set test
          ratio to ERRBND( *, nwise_i, bnd_i ) * THRESH?)
       2. Componentwise guaranteed forward error bound.
       A: norm ( abs( Xc(j) - Xt(j) ) ) / norm (Xt(j)) .LE. ERRBND( *, cwise_i, bnd_i )
          for all j .AND. ERRBND( *, cwise_i, bnd_i ) .LE. MAX(SQRT(N), 10) * EPS.
          If these conditions are met, the test ratio is set to be
          ERRBND( *, cwise_i, bnd_i ) / MAX(SQRT(N), 10).  Otherwise it is 1/EPS.
       B: Same as normwise test ratio.
       3. Backwards error.
       A: The test ratio is set to BERR/EPS.
       B: Same test ratio.
       4. Reciprocal condition number.
       A: A condition number is computed with Xt and compared with the one
          returned from CGESVXX.  Let RCONDc be the RCOND returned by CGESVXX
          and RCONDt be the RCOND from the truth value.  Test ratio is set to
          MAX(RCONDc/RCONDt, RCONDt/RCONDc).
       B: Test ratio is set to 1 / (EPS * RCONDc).
       5. Reciprocal normwise condition number.
       A: The test ratio is set to
          MAX(ERRBND( *, nwise_i, cond_i ) / NCOND, NCOND / ERRBND( *, nwise_i, cond_i )).
       B: Test ratio is set to 1 / (EPS * ERRBND( *, nwise_i, cond_i )).
       6. Reciprocal componentwise condition number.
       A: Test ratio is set to
          MAX(ERRBND( *, cwise_i, cond_i ) / CCOND, CCOND / ERRBND( *, cwise_i, cond_i )).
       B: Test ratio is set to 1 / (EPS * ERRBND( *, cwise_i, cond_i )).
     .. Parameters ..
     NMAX is determined by the largest number in the inverse of the hilbert
     matrix.  Precision is exhausted when the largest entry in it is greater
     than 2 to the power of the number of bits in the fraction of the data
     type used plus one, which is 24 for single precision.
     NMAX should be 6 for single and 11 for double.

Author:

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

Date:

November 2011

subroutine zerrab (integer NUNIT)

ZERRAB

Purpose:

 DERRAB tests the error exits for ZCGESV.

 

Parameters:

NUNIT

          NUNIT is INTEGER
          The unit number for output.

 

Author:

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

Date:

November 2011

subroutine zerrac (integer NUNIT)

ZERRAC

Purpose:

 ZERRPX tests the error exits for ZCPOSV.

 

Parameters:

NUNIT

          NUNIT is INTEGER
          The unit number for output.

 

Author:

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

Date:

November 2011

subroutine zerrge (character*3 PATH, integer NUNIT)

ZERRGE ZERRGEX

Purpose:

 ZERRGE tests the error exits for the COMPLEX*16 routines
 for general matrices.

 

Parameters:

PATH

          PATH is CHARACTER*3
          The LAPACK path name for the routines to be tested.

NUNIT

          NUNIT is INTEGER
          The unit number for output.

 

Author:

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

Date:

November 2011

Purpose:

 ZERRGE tests the error exits for the COMPLEX*16 routines
 for general matrices.
 Note that this file is used only when the XBLAS are available,
 otherwise zerrge.f defines this subroutine.

 

Parameters:

PATH

          PATH is CHARACTER*3
          The LAPACK path name for the routines to be tested.

NUNIT

          NUNIT is INTEGER
          The unit number for output.

 

Author:

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

Date:

November 2011

subroutine zerrgt (character*3 PATH, integer NUNIT)

ZERRGT

Purpose:

 ZERRGT tests the error exits for the COMPLEX*16 tridiagonal
 routines.

 

Parameters:

PATH

          PATH is CHARACTER*3
          The LAPACK path name for the routines to be tested.

NUNIT

          NUNIT is INTEGER
          The unit number for output.

 

Author:

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

Date:

November 2011

subroutine zerrhe (character*3 PATH, integer NUNIT)

ZERRHE ZERRHEX

Purpose:

 ZERRHE tests the error exits for the COMPLEX*16 routines
 for Hermitian indefinite matrices.

 

Parameters:

PATH

          PATH is CHARACTER*3
          The LAPACK path name for the routines to be tested.

NUNIT

          NUNIT is INTEGER
          The unit number for output.

 

Author:

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

Date:

November 2013

Purpose:

 ZERRHE tests the error exits for the COMPLEX*16 routines
 for Hermitian indefinite matrices.
 Note that this file is used only when the XBLAS are available,
 otherwise zerrhe.f defines this subroutine.

 

Parameters:

PATH

          PATH is CHARACTER*3
          The LAPACK path name for the routines to be tested.

NUNIT

          NUNIT is INTEGER
          The unit number for output.

 

Author:

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

Date:

November 2015

subroutine zerrlq (character*3 PATH, integer NUNIT)

ZERRLQ

Purpose:

 ZERRLQ tests the error exits for the COMPLEX*16 routines
 that use the LQ decomposition of a general matrix.

 

Parameters:

PATH

          PATH is CHARACTER*3
          The LAPACK path name for the routines to be tested.

NUNIT

          NUNIT is INTEGER
          The unit number for output.

 

Author:

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

Date:

November 2011

subroutine zerrls (character*3 PATH, integer NUNIT)

ZERRLS

Purpose:

 ZERRLS tests the error exits for the COMPLEX*16 least squares
 driver routines (ZGELS, CGELSS, CGELSY, CGELSD).

 

Parameters:

PATH

          PATH is CHARACTER*3
          The LAPACK path name for the routines to be tested.

NUNIT

          NUNIT is INTEGER
          The unit number for output.

 

Author:

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

Date:

November 2015

subroutine zerrpo (character*3 PATH, integer NUNIT)

ZERRPO ZERRPOX

Purpose:

 ZERRPO tests the error exits for the COMPLEX*16 routines
 for Hermitian positive definite matrices.

 

Parameters:

PATH

          PATH is CHARACTER*3
          The LAPACK path name for the routines to be tested.

NUNIT

          NUNIT is INTEGER
          The unit number for output.

 

Author:

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

Date:

November 2011

Purpose:

 ZERRPO tests the error exits for the COMPLEX*16 routines
 for Hermitian positive definite matrices.
 Note that this file is used only when the XBLAS are available,
 otherwise zerrpo.f defines this subroutine.

 

Parameters:

PATH

          PATH is CHARACTER*3
          The LAPACK path name for the routines to be tested.

NUNIT

          NUNIT is INTEGER
          The unit number for output.

 

Author:

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

Date:

November 2015

subroutine zerrps (character*3 PATH, integer NUNIT)

ZERRPS

Purpose:

 ZERRPS tests the error exits for the COMPLEX routines
 for ZPSTRF.

 

Parameters:

PATH

          PATH is CHARACTER*3
          The LAPACK path name for the routines to be tested.

NUNIT

          NUNIT is INTEGER
          The unit number for output.

 

Author:

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

Date:

November 2011

subroutine zerrql (character*3 PATH, integer NUNIT)

ZERRQL

Purpose:

 ZERRQL tests the error exits for the COMPLEX*16 routines
 that use the QL decomposition of a general matrix.

 

Parameters:

PATH

          PATH is CHARACTER*3
          The LAPACK path name for the routines to be tested.

NUNIT

          NUNIT is INTEGER
          The unit number for output.

 

Author:

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

Date:

November 2011

subroutine zerrqp (character*3 PATH, integer NUNIT)

ZERRQP

Purpose:

 ZERRQP tests the error exits for ZGEQP3.

 

Parameters:

PATH

          PATH is CHARACTER*3
          The LAPACK path name for the routines to be tested.

NUNIT

          NUNIT is INTEGER
          The unit number for output.

 

Author:

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

Date:

November 2015

subroutine zerrqr (character*3 PATH, integer NUNIT)

ZERRQR

Purpose:

 ZERRQR tests the error exits for the COMPLEX*16 routines
 that use the QR decomposition of a general matrix.

 

Parameters:

PATH

          PATH is CHARACTER*3
          The LAPACK path name for the routines to be tested.

NUNIT

          NUNIT is INTEGER
          The unit number for output.