Functions/Subroutines

BLAS/TESTING/zblat2.f File Reference

Go to the source code of this file.

Functions/Subroutines

program ZBLAT2
subroutine ZCHK1 (SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF, NBET, BET, NINC, INC, NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G)
subroutine ZCHK2 (SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF, NBET, BET, NINC, INC, NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G)
subroutine ZCHK3 (SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, FATAL, NIDIM, IDIM, NKB, KB, NINC, INC, NMAX, INCMAX, A, AA, AS, X, XX, XS, XT, G, Z)
subroutine ZCHK4 (SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G, Z)
subroutine ZCHK5 (SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G, Z)
subroutine ZCHK6 (SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G, Z)
subroutine ZCHKE (ISNUM, SRNAMT, NOUT)
subroutine ZMAKE (TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, KL, KU, RESET, TRANSL)
subroutine ZMVCH (TRANS, M, N, ALPHA, A, NMAX, X, INCX, BETA, Y, INCY, YT, G, YY, EPS, ERR, FATAL, NOUT, MV)
LOGICAL LZE (RI, RJ, LR)
LOGICAL LZERES (TYPE, UPLO, M, N, AA, AS, LDA)
program __zblat2.f__
DOUBLE PRECISION DDIFF (X, Y)
subroutine CHKXER (SRNAMT, INFOT, NOUT, LERR, OK)
subroutine XERBLA (SRNAME, INFO)

Function Documentation

program __zblat2.f__ (  )

Definition at line 3116 of file zblat2.f.

subroutine CHKXER ( CHARACTER*6  SRNAMT,
INTEGER  INFOT,
INTEGER  NOUT,
LOGICAL  LERR,
LOGICAL  OK 
)

Definition at line 3172 of file zblat2.f.

DOUBLE PRECISION DDIFF ( DOUBLE PRECISION  X,
DOUBLE PRECISION  Y 
)

Definition at line 3156 of file zblat2.f.

LOGICAL LZE ( COMPLEX*16,dimension( * )  RI,
COMPLEX*16,dimension( * )  RJ,
INTEGER  LR 
)

Definition at line 3014 of file zblat2.f.

LOGICAL LZERES ( CHARACTER*2  TYPE,
CHARACTER*1  UPLO,
INTEGER  M,
INTEGER  N,
COMPLEX*16,dimension( lda, * )  AA,
COMPLEX*16,dimension( lda, * )  AS,
INTEGER  LDA 
)

Definition at line 3044 of file zblat2.f.

subroutine XERBLA ( CHARACTER*6  SRNAME,
INTEGER  INFO 
)

Definition at line 3200 of file zblat2.f.

program ZBLAT2 (  )

Definition at line 1 of file zblat2.f.

subroutine ZCHK1 ( CHARACTER*6  SNAME,
DOUBLE PRECISION  EPS,
DOUBLE PRECISION  THRESH,
INTEGER  NOUT,
INTEGER  NTRA,
LOGICAL  TRACE,
LOGICAL  REWI,
LOGICAL  FATAL,
INTEGER  NIDIM,
INTEGER,dimension( nidim )  IDIM,
INTEGER  NKB,
INTEGER,dimension( nkb )  KB,
INTEGER  NALF,
COMPLEX*16,dimension( nalf )  ALF,
INTEGER  NBET,
COMPLEX*16,dimension( nbet )  BET,
INTEGER  NINC,
INTEGER,dimension( ninc )  INC,
INTEGER  NMAX,
INTEGER  INCMAX,
COMPLEX*16,dimension( nmax, nmax )  A,
COMPLEX*16,dimension( nmax*nmax )  AA,
COMPLEX*16,dimension( nmax*nmax )  AS,
COMPLEX*16,dimension( nmax )  X,
COMPLEX*16,dimension( nmax*incmax )  XX,
COMPLEX*16,dimension( nmax*incmax )  XS,
COMPLEX*16,dimension( nmax )  Y,
COMPLEX*16,dimension( nmax*incmax )  YY,
COMPLEX*16,dimension( nmax*incmax )  YS,
COMPLEX*16,dimension( nmax )  YT,
DOUBLE PRECISION,dimension( nmax )  G 
)

Definition at line 403 of file zblat2.f.

subroutine ZCHK2 ( CHARACTER*6  SNAME,
DOUBLE PRECISION  EPS,
DOUBLE PRECISION  THRESH,
INTEGER  NOUT,
INTEGER  NTRA,
LOGICAL  TRACE,
LOGICAL  REWI,
LOGICAL  FATAL,
INTEGER  NIDIM,
INTEGER,dimension( nidim )  IDIM,
INTEGER  NKB,
INTEGER,dimension( nkb )  KB,
INTEGER  NALF,
COMPLEX*16,dimension( nalf )  ALF,
INTEGER  NBET,
COMPLEX*16,dimension( nbet )  BET,
INTEGER  NINC,
INTEGER,dimension( ninc )  INC,
INTEGER  NMAX,
INTEGER  INCMAX,
COMPLEX*16,dimension( nmax, nmax )  A,
COMPLEX*16,dimension( nmax*nmax )  AA,
COMPLEX*16,dimension( nmax*nmax )  AS,
COMPLEX*16,dimension( nmax )  X,
COMPLEX*16,dimension( nmax*incmax )  XX,
COMPLEX*16,dimension( nmax*incmax )  XS,
COMPLEX*16,dimension( nmax )  Y,
COMPLEX*16,dimension( nmax*incmax )  YY,
COMPLEX*16,dimension( nmax*incmax )  YS,
COMPLEX*16,dimension( nmax )  YT,
DOUBLE PRECISION,dimension( nmax )  G 
)

Definition at line 749 of file zblat2.f.

subroutine ZCHK3 ( CHARACTER*6  SNAME,
DOUBLE PRECISION  EPS,
DOUBLE PRECISION  THRESH,
INTEGER  NOUT,
INTEGER  NTRA,
LOGICAL  TRACE,
LOGICAL  REWI,
LOGICAL  FATAL,
INTEGER  NIDIM,
INTEGER,dimension( nidim )  IDIM,
INTEGER  NKB,
INTEGER,dimension( nkb )  KB,
INTEGER  NINC,
INTEGER,dimension( ninc )  INC,
INTEGER  NMAX,
INTEGER  INCMAX,
COMPLEX*16,dimension( nmax, nmax )  A,
COMPLEX*16,dimension( nmax*nmax )  AA,
COMPLEX*16,dimension( nmax*nmax )  AS,
COMPLEX*16,dimension( nmax )  X,
COMPLEX*16,dimension( nmax*incmax )  XX,
COMPLEX*16,dimension( nmax*incmax )  XS,
COMPLEX*16,dimension( nmax )  XT,
DOUBLE PRECISION,dimension( nmax )  G,
COMPLEX*16,dimension( nmax )  Z 
)

Definition at line 1098 of file zblat2.f.

subroutine ZCHK4 ( CHARACTER*6  SNAME,
DOUBLE PRECISION  EPS,
DOUBLE PRECISION  THRESH,
INTEGER  NOUT,
INTEGER  NTRA,
LOGICAL  TRACE,
LOGICAL  REWI,
LOGICAL  FATAL,
INTEGER  NIDIM,
INTEGER,dimension( nidim )  IDIM,
INTEGER  NALF,
COMPLEX*16,dimension( nalf )  ALF,
INTEGER  NINC,
INTEGER,dimension( ninc )  INC,
INTEGER  NMAX,
INTEGER  INCMAX,
COMPLEX*16,dimension( nmax, nmax )  A,
COMPLEX*16,dimension( nmax*nmax )  AA,
COMPLEX*16,dimension( nmax*nmax )  AS,
COMPLEX*16,dimension( nmax )  X,
COMPLEX*16,dimension( nmax*incmax )  XX,
COMPLEX*16,dimension( nmax*incmax )  XS,
COMPLEX*16,dimension( nmax )  Y,
COMPLEX*16,dimension( nmax*incmax )  YY,
COMPLEX*16,dimension( nmax*incmax )  YS,
COMPLEX*16,dimension( nmax )  YT,
DOUBLE PRECISION,dimension( nmax )  G,
COMPLEX*16,dimension( nmax )  Z 
)

Definition at line 1460 of file zblat2.f.

subroutine ZCHK5 ( CHARACTER*6  SNAME,
DOUBLE PRECISION  EPS,
DOUBLE PRECISION  THRESH,
INTEGER  NOUT,
INTEGER  NTRA,
LOGICAL  TRACE,
LOGICAL  REWI,
LOGICAL  FATAL,
INTEGER  NIDIM,
INTEGER,dimension( nidim )  IDIM,
INTEGER  NALF,
COMPLEX*16,dimension( nalf )  ALF,
INTEGER  NINC,
INTEGER,dimension( ninc )  INC,
INTEGER  NMAX,
INTEGER  INCMAX,
COMPLEX*16,dimension( nmax, nmax )  A,
COMPLEX*16,dimension( nmax*nmax )  AA,
COMPLEX*16,dimension( nmax*nmax )  AS,
COMPLEX*16,dimension( nmax )  X,
COMPLEX*16,dimension( nmax*incmax )  XX,
COMPLEX*16,dimension( nmax*incmax )  XS,
COMPLEX*16,dimension( nmax )  Y,
COMPLEX*16,dimension( nmax*incmax )  YY,
COMPLEX*16,dimension( nmax*incmax )  YS,
COMPLEX*16,dimension( nmax )  YT,
DOUBLE PRECISION,dimension( nmax )  G,
COMPLEX*16,dimension( nmax )  Z 
)

Definition at line 1738 of file zblat2.f.

subroutine ZCHK6 ( CHARACTER*6  SNAME,
DOUBLE PRECISION  EPS,
DOUBLE PRECISION  THRESH,
INTEGER  NOUT,
INTEGER  NTRA,
LOGICAL  TRACE,
LOGICAL  REWI,
LOGICAL  FATAL,
INTEGER  NIDIM,
INTEGER,dimension( nidim )  IDIM,
INTEGER  NALF,
COMPLEX*16,dimension( nalf )  ALF,
INTEGER  NINC,
INTEGER,dimension( ninc )  INC,
INTEGER  NMAX,
INTEGER  INCMAX,
COMPLEX*16,dimension( nmax, nmax )  A,
COMPLEX*16,dimension( nmax*nmax )  AA,
COMPLEX*16,dimension( nmax*nmax )  AS,
COMPLEX*16,dimension( nmax )  X,
COMPLEX*16,dimension( nmax*incmax )  XX,
COMPLEX*16,dimension( nmax*incmax )  XS,
COMPLEX*16,dimension( nmax )  Y,
COMPLEX*16,dimension( nmax*incmax )  YY,
COMPLEX*16,dimension( nmax*incmax )  YS,
COMPLEX*16,dimension( nmax )  YT,
DOUBLE PRECISION,dimension( nmax )  G,
COMPLEX*16,dimension( nmax, 2 )  Z 
)

Definition at line 2023 of file zblat2.f.

subroutine ZCHKE ( INTEGER  ISNUM,
CHARACTER*6  SRNAMT,
INTEGER  NOUT 
)

Definition at line 2346 of file zblat2.f.

subroutine ZMAKE ( CHARACTER*2  TYPE,
CHARACTER*1  UPLO,
CHARACTER*1  DIAG,
INTEGER  M,
INTEGER  N,
COMPLEX*16,dimension( nmax, * )  A,
INTEGER  NMAX,
COMPLEX*16,dimension( * )  AA,
INTEGER  LDA,
INTEGER  KL,
INTEGER  KU,
LOGICAL  RESET,
COMPLEX*16  TRANSL 
)

Definition at line 2689 of file zblat2.f.

subroutine ZMVCH ( CHARACTER*1  TRANS,
INTEGER  M,
INTEGER  N,
COMPLEX*16  ALPHA,
COMPLEX*16,dimension( nmax, * )  A,
INTEGER  NMAX,
COMPLEX*16,dimension( * )  X,
INTEGER  INCX,
COMPLEX*16  BETA,
COMPLEX*16,dimension( * )  Y,
INTEGER  INCY,
COMPLEX*16,dimension( * )  YT,
DOUBLE PRECISION,dimension( * )  G,
COMPLEX*16,dimension( * )  YY,
DOUBLE PRECISION  EPS,
DOUBLE PRECISION  ERR,
LOGICAL  FATAL,
INTEGER  NOUT,
LOGICAL  MV 
)

Definition at line 2882 of file zblat2.f.