Functions/Subroutines

BLAS/TESTING/sblat2.f File Reference

Go to the source code of this file.

Functions/Subroutines

program SBLAT2
subroutine SCHK1 (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 SCHK2 (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 SCHK3 (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 SCHK4 (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 SCHK5 (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 SCHK6 (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 SCHKE (ISNUM, SRNAMT, NOUT)
subroutine SMAKE (TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, KL, KU, RESET, TRANSL)
subroutine SMVCH (TRANS, M, N, ALPHA, A, NMAX, X, INCX, BETA, Y, INCY, YT, G, YY, EPS, ERR, FATAL, NOUT, MV)
LOGICAL LSE (RI, RJ, LR)
LOGICAL LSERES (TYPE, UPLO, M, N, AA, AS, LDA)
REAL SBEG (RESET)
REAL SDIFF (X, Y)
subroutine CHKXER (SRNAMT, INFOT, NOUT, LERR, OK)
subroutine XERBLA (SRNAME, INFO)

Function Documentation

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

Definition at line 3061 of file sblat2.f.

LOGICAL LSE ( REAL,dimension( * )  RI,
REAL,dimension( * )  RJ,
INTEGER  LR 
)

Definition at line 2909 of file sblat2.f.

LOGICAL LSERES ( CHARACTER*2  TYPE,
CHARACTER*1  UPLO,
INTEGER  M,
INTEGER  N,
REAL,dimension( lda, * )  AA,
REAL,dimension( lda, * )  AS,
INTEGER  LDA 
)

Definition at line 2939 of file sblat2.f.

REAL SBEG ( LOGICAL  RESET )

Definition at line 2999 of file sblat2.f.

program SBLAT2 (  )

Definition at line 1 of file sblat2.f.

subroutine SCHK1 ( CHARACTER*6  SNAME,
REAL  EPS,
REAL  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,
REAL,dimension( nalf )  ALF,
INTEGER  NBET,
REAL,dimension( nbet )  BET,
INTEGER  NINC,
INTEGER,dimension( ninc )  INC,
INTEGER  NMAX,
INTEGER  INCMAX,
REAL,dimension( nmax, nmax )  A,
REAL,dimension( nmax*nmax )  AA,
REAL,dimension( nmax*nmax )  AS,
REAL,dimension( nmax )  X,
REAL,dimension( nmax*incmax )  XX,
REAL,dimension( nmax*incmax )  XS,
REAL,dimension( nmax )  Y,
REAL,dimension( nmax*incmax )  YY,
REAL,dimension( nmax*incmax )  YS,
REAL,dimension( nmax )  YT,
REAL,dimension( nmax )  G 
)

Definition at line 395 of file sblat2.f.

subroutine SCHK2 ( CHARACTER*6  SNAME,
REAL  EPS,
REAL  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,
REAL,dimension( nalf )  ALF,
INTEGER  NBET,
REAL,dimension( nbet )  BET,
INTEGER  NINC,
INTEGER,dimension( ninc )  INC,
INTEGER  NMAX,
INTEGER  INCMAX,
REAL,dimension( nmax, nmax )  A,
REAL,dimension( nmax*nmax )  AA,
REAL,dimension( nmax*nmax )  AS,
REAL,dimension( nmax )  X,
REAL,dimension( nmax*incmax )  XX,
REAL,dimension( nmax*incmax )  XS,
REAL,dimension( nmax )  Y,
REAL,dimension( nmax*incmax )  YY,
REAL,dimension( nmax*incmax )  YS,
REAL,dimension( nmax )  YT,
REAL,dimension( nmax )  G 
)

Definition at line 736 of file sblat2.f.

subroutine SCHK3 ( CHARACTER*6  SNAME,
REAL  EPS,
REAL  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,
REAL,dimension( nmax, nmax )  A,
REAL,dimension( nmax*nmax )  AA,
REAL,dimension( nmax*nmax )  AS,
REAL,dimension( nmax )  X,
REAL,dimension( nmax*incmax )  XX,
REAL,dimension( nmax*incmax )  XS,
REAL,dimension( nmax )  XT,
REAL,dimension( nmax )  G,
REAL,dimension( nmax )  Z 
)

Definition at line 1079 of file sblat2.f.

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

Definition at line 1436 of file sblat2.f.

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

Definition at line 1697 of file sblat2.f.

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

Definition at line 1975 of file sblat2.f.

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

Definition at line 2290 of file sblat2.f.

REAL SDIFF ( REAL  X,
REAL  Y 
)

Definition at line 3045 of file sblat2.f.

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

Definition at line 2616 of file sblat2.f.

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

Definition at line 2792 of file sblat2.f.

subroutine XERBLA ( CHARACTER*6  SRNAME,
INTEGER  INFO 
)

Definition at line 3089 of file sblat2.f.