LAPACK  3.6.0
LAPACK: Linear Algebra PACKage
c_cblat3.f File Reference

Functions/Subroutines

program cblat3
 
subroutine cchk1 (SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, A, AA, AS, B, BB, BS, C, CC, CS, CT, G, IORDER)
 
subroutine cprcn1 (NOUT, NC, SNAME, IORDER, TRANSA, TRANSB, M, N, K, ALPHA, LDA, LDB, BETA, LDC)
 
subroutine cchk2 (SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, A, AA, AS, B, BB, BS, C, CC, CS, CT, G, IORDER)
 
subroutine cprcn2 (NOUT, NC, SNAME, IORDER, SIDE, UPLO, M, N, ALPHA, LDA, LDB, BETA, LDC)
 
subroutine cchk3 (SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, FATAL, NIDIM, IDIM, NALF, ALF, NMAX, A, AA, AS, B, BB, BS, CT, G, C, IORDER)
 
subroutine cprcn3 (NOUT, NC, SNAME, IORDER, SIDE, UPLO, TRANSA, DIAG, M, N, ALPHA, LDA, LDB)
 
subroutine cchk4 (SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, A, AA, AS, B, BB, BS, C, CC, CS, CT, G, IORDER)
 
subroutine cprcn4 (NOUT, NC, SNAME, IORDER, UPLO, TRANSA, N, K, ALPHA, LDA, BETA, LDC)
 
subroutine cprcn6 (NOUT, NC, SNAME, IORDER, UPLO, TRANSA, N, K, ALPHA, LDA, BETA, LDC)
 
subroutine cchk5 (SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, AB, AA, AS, BB, BS, C, CC, CS, CT, G, W, IORDER)
 
subroutine cprcn5 (NOUT, NC, SNAME, IORDER, UPLO, TRANSA, N, K, ALPHA, LDA, LDB, BETA, LDC)
 
subroutine cprcn7 (NOUT, NC, SNAME, IORDER, UPLO, TRANSA, N, K, ALPHA, LDA, LDB, BETA, LDC)
 
subroutine cmake (TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, RESET, TRANSL)
 
subroutine cmmch (TRANSA, TRANSB, M, N, KK, ALPHA, A, LDA, B, LDB, BETA, C, LDC, CT, G, CC, LDCC, EPS, ERR, FATAL, NOUT, MV)
 
logical function lce (RI, RJ, LR)
 
logical function lceres (TYPE, UPLO, M, N, AA, AS, LDA)
 
complex function cbeg (RESET)
 
real function sdiff (X, Y)
 

Function/Subroutine Documentation

complex function cbeg ( logical  RESET)
program cblat3 ( )
subroutine cchk1 ( character*12  SNAME,
real  EPS,
real  THRESH,
integer  NOUT,
integer  NTRA,
logical  TRACE,
logical  REWI,
logical  FATAL,
integer  NIDIM,
integer, dimension( nidim )  IDIM,
integer  NALF,
complex, dimension( nalf )  ALF,
integer  NBET,
complex, dimension( nbet )  BET,
integer  NMAX,
complex, dimension( nmax, nmax )  A,
complex, dimension( nmax*nmax )  AA,
complex, dimension( nmax*nmax )  AS,
complex, dimension( nmax, nmax )  B,
complex, dimension( nmax*nmax )  BB,
complex, dimension( nmax*nmax )  BS,
complex, dimension( nmax, nmax )  C,
complex, dimension( nmax*nmax )  CC,
complex, dimension( nmax*nmax )  CS,
complex, dimension( nmax )  CT,
real, dimension( nmax )  G,
integer  IORDER 
)
subroutine cchk2 ( character*12  SNAME,
real  EPS,
real  THRESH,
integer  NOUT,
integer  NTRA,
logical  TRACE,
logical  REWI,
logical  FATAL,
integer  NIDIM,
integer, dimension( nidim )  IDIM,
integer  NALF,
complex, dimension( nalf )  ALF,
integer  NBET,
complex, dimension( nbet )  BET,
integer  NMAX,
complex, dimension( nmax, nmax )  A,
complex, dimension( nmax*nmax )  AA,
complex, dimension( nmax*nmax )  AS,
complex, dimension( nmax, nmax )  B,
complex, dimension( nmax*nmax )  BB,
complex, dimension( nmax*nmax )  BS,
complex, dimension( nmax, nmax )  C,
complex, dimension( nmax*nmax )  CC,
complex, dimension( nmax*nmax )  CS,
complex, dimension( nmax )  CT,
real, dimension( nmax )  G,
integer  IORDER 
)
subroutine cchk3 ( character*12  SNAME,
real  EPS,
real  THRESH,
integer  NOUT,
integer  NTRA,
logical  TRACE,
logical  REWI,
logical  FATAL,
integer  NIDIM,
integer, dimension( nidim )  IDIM,
integer  NALF,
complex, dimension( nalf )  ALF,
integer  NMAX,
complex, dimension( nmax, nmax )  A,
complex, dimension( nmax*nmax )  AA,
complex, dimension( nmax*nmax )  AS,
complex, dimension( nmax, nmax )  B,
complex, dimension( nmax*nmax )  BB,
complex, dimension( nmax*nmax )  BS,
complex, dimension( nmax )  CT,
real, dimension( nmax )  G,
complex, dimension( nmax, nmax )  C,
integer  IORDER 
)
subroutine cchk4 ( character*12  SNAME,
real  EPS,
real  THRESH,
integer  NOUT,
integer  NTRA,
logical  TRACE,
logical  REWI,
logical  FATAL,
integer  NIDIM,
integer, dimension( nidim )  IDIM,
integer  NALF,
complex, dimension( nalf )  ALF,
integer  NBET,
complex, dimension( nbet )  BET,
integer  NMAX,
complex, dimension( nmax, nmax )  A,
complex, dimension( nmax*nmax )  AA,
complex, dimension( nmax*nmax )  AS,
complex, dimension( nmax, nmax )  B,
complex, dimension( nmax*nmax )  BB,
complex, dimension( nmax*nmax )  BS,
complex, dimension( nmax, nmax )  C,
complex, dimension( nmax*nmax )  CC,
complex, dimension( nmax*nmax )  CS,
complex, dimension( nmax )  CT,
real, dimension( nmax )  G,
integer  IORDER 
)
subroutine cchk5 ( character*12  SNAME,
real  EPS,
real  THRESH,
integer  NOUT,
integer  NTRA,
logical  TRACE,
logical  REWI,
logical  FATAL,
integer  NIDIM,
integer, dimension( nidim )  IDIM,
integer  NALF,
complex, dimension( nalf )  ALF,
integer  NBET,
complex, dimension( nbet )  BET,
integer  NMAX,
complex, dimension( 2*nmax*nmax )  AB,
complex, dimension( nmax*nmax )  AA,
complex, dimension( nmax*nmax )  AS,
complex, dimension( nmax*nmax )  BB,
complex, dimension( nmax*nmax )  BS,
complex, dimension( nmax, nmax )  C,
complex, dimension( nmax*nmax )  CC,
complex, dimension( nmax*nmax )  CS,
complex, dimension( nmax )  CT,
real, dimension( nmax )  G,
complex, dimension( 2*nmax )  W,
integer  IORDER 
)
subroutine cmake ( character*2  TYPE,
character*1  UPLO,
character*1  DIAG,
integer  M,
integer  N,
complex, dimension( nmax, * )  A,
integer  NMAX,
complex, dimension( * )  AA,
integer  LDA,
logical  RESET,
complex  TRANSL 
)
subroutine cmmch ( character*1  TRANSA,
character*1  TRANSB,
integer  M,
integer  N,
integer  KK,
complex  ALPHA,
complex, dimension( lda, * )  A,
integer  LDA,
complex, dimension( ldb, * )  B,
integer  LDB,
complex  BETA,
complex, dimension( ldc, * )  C,
integer  LDC,
complex, dimension( * )  CT,
real, dimension( * )  G,
complex, dimension( ldcc, * )  CC,
integer  LDCC,
real  EPS,
real  ERR,
logical  FATAL,
integer  NOUT,
logical  MV 
)
subroutine cprcn1 ( integer  NOUT,
integer  NC,
character*12  SNAME,
integer  IORDER,
character*1  TRANSA,
character*1  TRANSB,
integer  M,
integer  N,
integer  K,
complex  ALPHA,
integer  LDA,
integer  LDB,
complex  BETA,
integer  LDC 
)
subroutine cprcn2 ( integer  NOUT,
integer  NC,
character*12  SNAME,
integer  IORDER,
character*1  SIDE,
character*1  UPLO,
integer  M,
integer  N,
complex  ALPHA,
integer  LDA,
integer  LDB,
complex  BETA,
integer  LDC 
)
subroutine cprcn3 ( integer  NOUT,
integer  NC,
character*12  SNAME,
integer  IORDER,
character*1  SIDE,
character*1  UPLO,
character*1  TRANSA,
character*1  DIAG,
integer  M,
integer  N,
complex  ALPHA,
integer  LDA,
integer  LDB 
)
subroutine cprcn4 ( integer  NOUT,
integer  NC,
character*12  SNAME,
integer  IORDER,
character*1  UPLO,
character*1  TRANSA,
integer  N,
integer  K,
complex  ALPHA,
integer  LDA,
complex  BETA,
integer  LDC 
)
subroutine cprcn5 ( integer  NOUT,
integer  NC,
character*12  SNAME,
integer  IORDER,
character*1  UPLO,
character*1  TRANSA,
integer  N,
integer  K,
complex  ALPHA,
integer  LDA,
integer  LDB,
complex  BETA,
integer  LDC 
)
subroutine cprcn6 ( integer  NOUT,
integer  NC,
character*12  SNAME,
integer  IORDER,
character*1  UPLO,
character*1  TRANSA,
integer  N,
integer  K,
real  ALPHA,
integer  LDA,
real  BETA,
integer  LDC 
)
subroutine cprcn7 ( integer  NOUT,
integer  NC,
character*12  SNAME,
integer  IORDER,
character*1  UPLO,
character*1  TRANSA,
integer  N,
integer  K,
complex  ALPHA,
integer  LDA,
integer  LDB,
real  BETA,
integer  LDC 
)
logical function lce ( complex, dimension( * )  RI,
complex, dimension( * )  RJ,
integer  LR 
)
logical function lceres ( character*2  TYPE,
character*1  UPLO,
integer  M,
integer  N,
complex, dimension( lda, * )  AA,
complex, dimension( lda, * )  AS,
integer  LDA 
)
real function sdiff ( real  X,
real  Y 
)