cchke(3) · carta

complex function cbeg (logical reset)

Definition at line 3155 of file cblat2.f.

program cblat2

CBLAT2

Purpose:

!>
!> Test program for the COMPLEX          Level 2 Blas.
!>
!> The program must be driven by a short data file. The first 18 records
!> of the file are read using list-directed input, the last 17 records
!> are read using the format ( A6, L2 ). An annotated example of a data
!> file can be obtained by deleting the first 3 characters from the
!> following 35 lines:
!> 'cblat2.out'      NAME OF SUMMARY OUTPUT FILE
!> 6                 UNIT NUMBER OF SUMMARY FILE
!> 'CBLA2T.SNAP'     NAME OF SNAPSHOT OUTPUT FILE
!> -1                UNIT NUMBER OF SNAPSHOT FILE (NOT USED IF .LT. 0)
!> F        LOGICAL FLAG, T TO REWIND SNAPSHOT FILE AFTER EACH RECORD.
!> F        LOGICAL FLAG, T TO STOP ON FAILURES.
!> T        LOGICAL FLAG, T TO TEST ERROR EXITS.
!> 16.0     THRESHOLD VALUE OF TEST RATIO
!> 6                 NUMBER OF VALUES OF N
!> 0 1 2 3 5 9       VALUES OF N
!> 4                 NUMBER OF VALUES OF K
!> 0 1 2 4           VALUES OF K
!> 4                 NUMBER OF VALUES OF INCX AND INCY
!> 1 2 -1 -2         VALUES OF INCX AND INCY
!> 3                 NUMBER OF VALUES OF ALPHA
!> (0.0,0.0) (1.0,0.0) (0.7,-0.9)       VALUES OF ALPHA
!> 3                 NUMBER OF VALUES OF BETA
!> (0.0,0.0) (1.0,0.0) (1.3,-1.1)       VALUES OF BETA
!> CGEMV  T PUT F FOR NO TEST. SAME COLUMNS.
!> CGBMV  T PUT F FOR NO TEST. SAME COLUMNS.
!> CHEMV  T PUT F FOR NO TEST. SAME COLUMNS.
!> CHBMV  T PUT F FOR NO TEST. SAME COLUMNS.
!> CHPMV  T PUT F FOR NO TEST. SAME COLUMNS.
!> CTRMV  T PUT F FOR NO TEST. SAME COLUMNS.
!> CTBMV  T PUT F FOR NO TEST. SAME COLUMNS.
!> CTPMV  T PUT F FOR NO TEST. SAME COLUMNS.
!> CTRSV  T PUT F FOR NO TEST. SAME COLUMNS.
!> CTBSV  T PUT F FOR NO TEST. SAME COLUMNS.
!> CTPSV  T PUT F FOR NO TEST. SAME COLUMNS.
!> CGERC  T PUT F FOR NO TEST. SAME COLUMNS.
!> CGERU  T PUT F FOR NO TEST. SAME COLUMNS.
!> CHER   T PUT F FOR NO TEST. SAME COLUMNS.
!> CHPR   T PUT F FOR NO TEST. SAME COLUMNS.
!> CHER2  T PUT F FOR NO TEST. SAME COLUMNS.
!> CHPR2  T PUT F FOR NO TEST. SAME COLUMNS.
!>
!> Further Details
!> ===============
!>
!>    See:
!>
!>       Dongarra J. J., Du Croz J. J., Hammarling S.  and Hanson R. J..
!>       An  extended  set of Fortran  Basic Linear Algebra Subprograms.
!>
!>       Technical  Memoranda  Nos. 41 (revision 3) and 81,  Mathematics
!>       and  Computer Science  Division,  Argonne  National Laboratory,
!>       9700 South Cass Avenue, Argonne, Illinois 60439, US.
!>
!>       Or
!>
!>       NAG  Technical Reports TR3/87 and TR4/87,  Numerical Algorithms
!>       Group  Ltd.,  NAG  Central  Office,  256  Banbury  Road, Oxford
!>       OX2 7DE, UK,  and  Numerical Algorithms Group Inc.,  1101  31st
!>       Street,  Suite 100,  Downers Grove,  Illinois 60515-1263,  USA.
!>
!>
!> -- Written on 10-August-1987.
!>    Richard Hanson, Sandia National Labs.
!>    Jeremy Du Croz, NAG Central Office.
!>
!>    10-9-00:  Change STATUS='NEW' to 'UNKNOWN' so that the testers
!>              can be run multiple times without deleting generated
!>              output files (susan)
!>

Author

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

Definition at line 102 of file cblat2.f.

subroutine cchk1 (character6 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, complex, dimension( nalf ) alf, integer nbet, complex, dimension( nbet ) bet, integer ninc, integer, dimension( ninc ) inc, integer nmax, integer incmax, complex, dimension( nmax, nmax ) a, complex, dimension( nmaxnmax ) aa, complex, dimension( nmaxnmax ) as, complex, dimension( nmax ) x, complex, dimension( nmaxincmax ) xx, complex, dimension( nmaxincmax ) xs, complex, dimension( nmax ) y, complex, dimension( nmaxincmax ) yy, complex, dimension( nmax*incmax ) ys, complex, dimension( nmax ) yt, real, dimension( nmax ) g)

Definition at line 434 of file cblat2.f.

subroutine cchk2 (character6 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, complex, dimension( nalf ) alf, integer nbet, complex, dimension( nbet ) bet, integer ninc, integer, dimension( ninc ) inc, integer nmax, integer incmax, complex, dimension( nmax, nmax ) a, complex, dimension( nmaxnmax ) aa, complex, dimension( nmaxnmax ) as, complex, dimension( nmax ) x, complex, dimension( nmaxincmax ) xx, complex, dimension( nmaxincmax ) xs, complex, dimension( nmax ) y, complex, dimension( nmaxincmax ) yy, complex, dimension( nmax*incmax ) ys, complex, dimension( nmax ) yt, real, dimension( nmax ) g)

Definition at line 807 of file cblat2.f.

subroutine cchk3 (character6 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, complex, dimension( nmax, nmax ) a, complex, dimension( nmaxnmax ) aa, complex, dimension( nmaxnmax ) as, complex, dimension( nmax ) x, complex, dimension( nmaxincmax ) xx, complex, dimension( nmax*incmax ) xs, complex, dimension( nmax ) xt, real, dimension( nmax ) g, complex, dimension( nmax ) z)

Definition at line 1155 of file cblat2.f.

subroutine cchk4 (character6 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 ninc, integer, dimension( ninc ) inc, integer nmax, integer incmax, complex, dimension( nmax, nmax ) a, complex, dimension( nmaxnmax ) aa, complex, dimension( nmaxnmax ) as, complex, dimension( nmax ) x, complex, dimension( nmaxincmax ) xx, complex, dimension( nmaxincmax ) xs, complex, dimension( nmax ) y, complex, dimension( nmaxincmax ) yy, complex, dimension( nmax*incmax ) ys, complex, dimension( nmax ) yt, real, dimension( nmax ) g, complex, dimension( nmax ) z)

Definition at line 1516 of file cblat2.f.

subroutine cchk5 (character6 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 ninc, integer, dimension( ninc ) inc, integer nmax, integer incmax, complex, dimension( nmax, nmax ) a, complex, dimension( nmaxnmax ) aa, complex, dimension( nmaxnmax ) as, complex, dimension( nmax ) x, complex, dimension( nmaxincmax ) xx, complex, dimension( nmaxincmax ) xs, complex, dimension( nmax ) y, complex, dimension( nmaxincmax ) yy, complex, dimension( nmax*incmax ) ys, complex, dimension( nmax ) yt, real, dimension( nmax ) g, complex, dimension( nmax ) z)

Definition at line 1793 of file cblat2.f.

subroutine cchk6 (character6 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 ninc, integer, dimension( ninc ) inc, integer nmax, integer incmax, complex, dimension( nmax, nmax ) a, complex, dimension( nmaxnmax ) aa, complex, dimension( nmaxnmax ) as, complex, dimension( nmax ) x, complex, dimension( nmaxincmax ) xx, complex, dimension( nmaxincmax ) xs, complex, dimension( nmax ) y, complex, dimension( nmaxincmax ) yy, complex, dimension( nmax*incmax ) ys, complex, dimension( nmax ) yt, real, dimension( nmax ) g, complex, dimension( nmax, 2 ) z)

Definition at line 2077 of file cblat2.f.

subroutine cchke (integer isnum, character*6 srnamt, integer nout)

Definition at line 2399 of file cblat2.f.

subroutine chkxer (character*6 srnamt, integer infot, integer nout, logical lerr, logical ok)

Definition at line 3223 of file cblat2.f.

subroutine cmake (character2 type, character1 uplo, character1 diag, integer m, integer n, complex, dimension( nmax, ) a, integer nmax, complex, dimension( * ) aa, integer lda, integer kl, integer ku, logical reset, complex transl)

Definition at line 2742 of file cblat2.f.

subroutine cmvch (character1 trans, integer m, integer n, complex alpha, complex, dimension( nmax, ) a, integer nmax, complex, dimension( * ) x, integer incx, complex beta, complex, dimension( * ) y, integer incy, complex, dimension( * ) yt, real, dimension( * ) g, complex, dimension( * ) yy, real eps, real err, logical fatal, integer nout, logical mv)

Definition at line 2934 of file cblat2.f.

subroutine cregr1 (character1 trans, integer m, integer n, integer ly, integer kl, integer ku, complex alpha, complex, dimension(lda,) a, integer lda, complex, dimension() x, integer incx, complex beta, complex, dimension() y, integer incy, complex, dimension(*) ys)

Definition at line 3251 of file cblat2.f.

logical function lce (complex, dimension( * ) ri, complex, dimension( * ) rj, integer lr)

Definition at line 3066 of file cblat2.f.

logical function lceres (character2 type, character1 uplo, integer m, integer n, complex, dimension( lda, * ) aa, complex, dimension( lda, * ) as, integer lda)

Definition at line 3096 of file cblat2.f.

real function sdiff (real x, real y)

Definition at line 3207 of file cblat2.f.

subroutine xerbla (character*6 srname, integer info)

Definition at line 3284 of file cblat2.f.

cchke3

Usage

Functions/Subroutines

Function/Subroutine Documentation

complex function cbeg (logical reset)

program cblat2

subroutine cchke (integer isnum, character*6 srnamt, integer nout)

subroutine chkxer (character*6 srnamt, integer infot, integer nout, logical lerr, logical ok)

subroutine cmake (character2 type, character1 uplo, character1 diag, integer m, integer n, complex, dimension( nmax, ) a, integer nmax, complex, dimension( * ) aa, integer lda, integer kl, integer ku, logical reset, complex transl)

subroutine cregr1 (character1 trans, integer m, integer n, integer ly, integer kl, integer ku, complex alpha, complex, dimension(lda,) a, integer lda, complex, dimension() x, integer incx, complex beta, complex, dimension() y, integer incy, complex, dimension(*) ys)

logical function lce (complex, dimension( * ) ri, complex, dimension( * ) rj, integer lr)

logical function lceres (character2 type, character1 uplo, integer m, integer n, complex, dimension( lda, * ) aa, complex, dimension( lda, * ) as, integer lda)

real function sdiff (real x, real y)

subroutine xerbla (character*6 srname, integer info)

Usage

Functions/Subroutines

Function/Subroutine Documentation

complex function cbeg (logical reset)

program cblat2

subroutine cchke (integer isnum, character*6 srnamt, integer nout)

subroutine chkxer (character*6 srnamt, integer infot, integer nout, logical lerr, logical ok)

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, integer kl, integer ku, logical reset, complex transl)

subroutine cregr1 (character*1 trans, integer m, integer n, integer ly, integer kl, integer ku, complex alpha, complex, dimension(lda,*) a, integer lda, complex, dimension(*) x, integer incx, complex beta, complex, dimension(*) y, integer incy, complex, dimension(*) ys)

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)

subroutine xerbla (character*6 srname, integer info)

subroutine cmake (character2 type, character1 uplo, character1 diag, integer m, integer n, complex, dimension( nmax, ) a, integer nmax, complex, dimension( * ) aa, integer lda, integer kl, integer ku, logical reset, complex transl)

subroutine cregr1 (character1 trans, integer m, integer n, integer ly, integer kl, integer ku, complex alpha, complex, dimension(lda,) a, integer lda, complex, dimension() x, integer incx, complex beta, complex, dimension() y, integer incy, complex, dimension(*) ys)

logical function lceres (character2 type, character1 uplo, integer m, integer n, complex, dimension( lda, * ) aa, complex, dimension( lda, * ) as, integer lda)