Functions/Subroutines 
subroutine  aladhd (IOUNIT, PATH) 
 ALADHD

subroutine  alaerh (PATH, SUBNAM, INFO, INFOE, OPTS, M, N, KL, KU, N5, IMAT, NFAIL, NERRS, NOUT) 
 ALAERH

subroutine  alaesm (PATH, OK, NOUT) 
 ALAESM

subroutine  alahd (IOUNIT, PATH) 
 ALAHD

subroutine  alareq (PATH, NMATS, DOTYPE, NTYPES, NIN, NOUT) 
 ALAREQ

subroutine  alasum (TYPE, NOUT, NFAIL, NRUN, NERRS) 
 ALASUM

subroutine  alasvm (TYPE, NOUT, NFAIL, NRUN, NERRS) 
 ALASVM

subroutine  icopy (N, SX, INCX, SY, INCY) 
 ICOPY

INTEGER function  ilaenv (ISPEC, NAME, OPTS, N1, N2, N3, N4) 
 ILAENV

subroutine  xlaenv (ISPEC, NVALUE) 
 XLAENV

Detailed Description
This is the group of auxiliary LAPACK TESTING LIN routines.
Function/Subroutine Documentation
subroutine aladhd 
( 
integer 
IOUNIT, 


character*3 
PATH 

) 
 
ALADHD
 Purpose:
ALADHD prints header information for the driver routines test paths.
 Parameters:

[in]  IOUNIT  IOUNIT is INTEGER
The unit number to which the header information should be
printed. 
[in]  PATH  PATH is CHARACTER*3
The name of the path for which the header information is to
be printed. Current paths are
_GE: General matrices
_GB: General band
_GT: General Tridiagonal
_PO: Symmetric or Hermitian positive definite
_PS: Symmetric or Hermitian positive semidefinite
_PP: Symmetric or Hermitian positive definite packed
_PB: Symmetric or Hermitian positive definite band
_PT: Symmetric or Hermitian positive definite tridiagonal
_SY: Symmetric indefinite
_SP: Symmetric indefinite packed
_HE: (complex) Hermitian indefinite
_HP: (complex) Hermitian indefinite packed
The first character must be one of S, D, C, or Z (C or Z only
if complex). 
 Author:
 Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.
 Date:
 April 2012
Definition at line 71 of file aladhd.f.
subroutine alaerh 
( 
character*3 
PATH, 


character*( * ) 
SUBNAM, 


integer 
INFO, 


integer 
INFOE, 


character*( * ) 
OPTS, 


integer 
M, 


integer 
N, 


integer 
KL, 


integer 
KU, 


integer 
N5, 


integer 
IMAT, 


integer 
NFAIL, 


integer 
NERRS, 


integer 
NOUT 

) 
 
ALAERH
 Purpose:
ALAERH is an error handler for the LAPACK routines. It prints the
header if this is the first error message and prints the error code
and form of recovery, if any. The character evaluations in this
routine may make it slow, but it should not be called once the LAPACK
routines are fully debugged.
 Parameters:

[in]  PATH  PATH is CHARACTER*3
The LAPACK path name of subroutine SUBNAM. 
[in]  SUBNAM  SUBNAM is CHARACTER*(*)
The name of the subroutine that returned an error code. 
[in]  INFO  INFO is INTEGER
The error code returned from routine SUBNAM. 
[in]  INFOE  INFOE is INTEGER
The expected error code from routine SUBNAM, if SUBNAM were
errorfree. If INFOE = 0, an error message is printed, but
if INFOE.NE.0, we assume only the return code INFO is wrong. 
[in]  OPTS  OPTS is CHARACTER*(*)
The character options to the subroutine SUBNAM, concatenated
into a single character string. For example, UPLO = 'U',
TRANS = 'T', and DIAG = 'N' for a triangular routine would
be specified as OPTS = 'UTN'. 
[in]  M  M is INTEGER
The matrix row dimension. 
[in]  N  N is INTEGER
The matrix column dimension. Accessed only if PATH = xGE or
xGB. 
[in]  KL  KL is INTEGER
The number of subdiagonals of the matrix. Accessed only if
PATH = xGB, xPB, or xTB. Also used for NRHS for PATH = xLS. 
[in]  KU  KU is INTEGER
The number of superdiagonals of the matrix. Accessed only
if PATH = xGB. 
[in]  N5  N5 is INTEGER
A fifth integer parameter, may be the blocksize NB or the
number of right hand sides NRHS. 
[in]  IMAT  IMAT is INTEGER
The matrix type. 
[in]  NFAIL  NFAIL is INTEGER
The number of prior tests that did not pass the threshold;
used to determine if the header should be printed. 
[in,out]  NERRS  NERRS is INTEGER
On entry, the number of errors already detected; used to
determine if the header should be printed.
On exit, NERRS is increased by 1. 
[in]  NOUT  NOUT is INTEGER
The unit number on which results are to be printed. 
 Author:
 Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.
 Date:
 April 2012
Definition at line 147 of file alaerh.f.
subroutine alaesm 
( 
character*3 
PATH, 


logical 
OK, 


integer 
NOUT 

) 
 
ALAESM
 Purpose:
ALAESM prints a summary of results from one of the ERR routines.
 Parameters:

[in]  PATH  PATH is CHARACTER*3
The LAPACK path name. 
[in]  OK  OK is LOGICAL
The flag from CHKXER that indicates whether or not the tests
of error exits passed. 
[in]  NOUT  NOUT is INTEGER
The unit number on which results are to be printed.
NOUT >= 0. 
 Author:
 Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.
 Date:
 November 2011
Definition at line 64 of file alaesm.f.
subroutine alahd 
( 
integer 
IOUNIT, 


character*3 
PATH 

) 
 
ALAHD
 Purpose:
ALAHD prints header information for the different test paths.
 Parameters:

[in]  IOUNIT  IOUNIT is INTEGER
The unit number to which the header information should be
printed. 
[in]  PATH  PATH is CHARACTER*3
The name of the path for which the header information is to
be printed. Current paths are
_GE: General matrices
_GB: General band
_GT: General Tridiagonal
_PO: Symmetric or Hermitian positive definite
_PS: Symmetric or Hermitian positive semidefinite
_PP: Symmetric or Hermitian positive definite packed
_PB: Symmetric or Hermitian positive definite band
_PT: Symmetric or Hermitian positive definite tridiagonal
_SY: Symmetric indefinite
_SP: Symmetric indefinite packed
_HE: (complex) Hermitian indefinite
_HP: (complex) Hermitian indefinite packed
_TR: Triangular
_TP: Triangular packed
_TB: Triangular band
_QR: QR (general matrices)
_LQ: LQ (general matrices)
_QL: QL (general matrices)
_RQ: RQ (general matrices)
_QP: QR with column pivoting
_TZ: Trapezoidal
_LS: Least Squares driver routines
_LU: LU variants
_CH: Cholesky variants
_QS: QR variants
_QT: QRT (general matrices)
_QX: QRT (triangularpentagonal matrices)
The first character must be one of S, D, C, or Z (C or Z only
if complex). 
 Author:
 Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.
 Date:
 April 2012
Definition at line 86 of file alahd.f.
subroutine alareq 
( 
character*3 
PATH, 


integer 
NMATS, 


logical, dimension( * ) 
DOTYPE, 


integer 
NTYPES, 


integer 
NIN, 


integer 
NOUT 

) 
 
ALAREQ
 Purpose:
ALAREQ handles input for the LAPACK test program. It is called
to evaluate the input line which requested NMATS matrix types for
PATH. The flow of control is as follows:
If NMATS = NTYPES then
DOTYPE(1:NTYPES) = .TRUE.
else
Read the next input line for NMATS matrix types
Set DOTYPE(I) = .TRUE. for each valid type I
endif
 Parameters:

[in]  PATH  PATH is CHARACTER*3
An LAPACK path name for testing. 
[in]  NMATS  NMATS is INTEGER
The number of matrix types to be used in testing this path. 
[out]  DOTYPE  DOTYPE is LOGICAL array, dimension (NTYPES)
The vector of flags indicating if each type will be tested. 
[in]  NTYPES  NTYPES is INTEGER
The maximum number of matrix types for this path. 
[in]  NIN  NIN is INTEGER
The unit number for input. NIN >= 1. 
[in]  NOUT  NOUT is INTEGER
The unit number for output. NOUT >= 1. 
 Author:
 Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.
 Date:
 November 2011
Definition at line 91 of file alareq.f.
subroutine alasum 
( 
character*3 
TYPE, 


integer 
NOUT, 


integer 
NFAIL, 


integer 
NRUN, 


integer 
NERRS 

) 
 
ALASUM
 Purpose:
ALASUM prints a summary of results from one of the CHK routines.
 Parameters:

[in]  TYPE  TYPE is CHARACTER*3
The LAPACK path name. 
[in]  NOUT  NOUT is INTEGER
The unit number on which results are to be printed.
NOUT >= 0. 
[in]  NFAIL  NFAIL is INTEGER
The number of tests which did not pass the threshold ratio. 
[in]  NRUN  NRUN is INTEGER
The total number of tests. 
[in]  NERRS  NERRS is INTEGER
The number of error messages recorded. 
 Author:
 Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.
 Date:
 November 2011
Definition at line 74 of file alasum.f.
subroutine alasvm 
( 
character*3 
TYPE, 


integer 
NOUT, 


integer 
NFAIL, 


integer 
NRUN, 


integer 
NERRS 

) 
 
ALASVM
 Purpose:
ALASVM prints a summary of results from one of the DRV routines.
 Parameters:

[in]  TYPE  TYPE is CHARACTER*3
The LAPACK path name. 
[in]  NOUT  NOUT is INTEGER
The unit number on which results are to be printed.
NOUT >= 0. 
[in]  NFAIL  NFAIL is INTEGER
The number of tests which did not pass the threshold ratio. 
[in]  NRUN  NRUN is INTEGER
The total number of tests. 
[in]  NERRS  NERRS is INTEGER
The number of error messages recorded. 
 Author:
 Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.
 Date:
 November 2011
Definition at line 74 of file alasvm.f.
subroutine icopy 
( 
integer 
N, 


integer, dimension( * ) 
SX, 


integer 
INCX, 


integer, dimension( * ) 
SY, 


integer 
INCY 

) 
 
ICOPY
 Purpose:
ICOPY copies an integer vector x to an integer vector y.
Uses unrolled loops for increments equal to 1.
 Parameters:

[in]  N  N is INTEGER
The length of the vectors SX and SY. 
[in]  SX  SX is INTEGER array, dimension (1+(N1)*abs(INCX))
The vector X. 
[in]  INCX  INCX is INTEGER
The spacing between consecutive elements of SX. 
[out]  SY  SY is INTEGER array, dimension (1+(N1)*abs(INCY))
The vector Y. 
[in]  INCY  INCY is INTEGER
The spacing between consecutive elements of SY. 
 Author:
 Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.
 Date:
 November 2011
Definition at line 76 of file icopy.f.
INTEGER function ilaenv 
( 
integer 
ISPEC, 


character*( * ) 
NAME, 


character*( * ) 
OPTS, 


integer 
N1, 


integer 
N2, 


integer 
N3, 


integer 
N4 

) 
 
ILAENV
 Purpose:
ILAENV returns problemdependent parameters for the local
environment. See ISPEC for a description of the parameters.
In this version, the problemdependent parameters are contained in
the integer array IPARMS in the common block CLAENV and the value
with index ISPEC is copied to ILAENV. This version of ILAENV is
to be used in conjunction with XLAENV in TESTING and TIMING.
 Parameters:

[in]  ISPEC  ISPEC is INTEGER
Specifies the parameter to be returned as the value of
ILAENV.
= 1: the optimal blocksize; if this value is 1, an unblocked
algorithm will give the best performance.
= 2: the minimum block size for which the block routine
should be used; if the usable block size is less than
this value, an unblocked routine should be used.
= 3: the crossover point (in a block routine, for N less
than this value, an unblocked routine should be used)
= 4: the number of shifts, used in the nonsymmetric
eigenvalue routines
= 5: the minimum column dimension for blocking to be used;
rectangular blocks must have dimension at least k by m,
where k is given by ILAENV(2,...) and m by ILAENV(5,...)
= 6: the crossover point for the SVD (when reducing an m by n
matrix to bidiagonal form, if max(m,n)/min(m,n) exceeds
this value, a QR factorization is used first to reduce
the matrix to a triangular form.)
= 7: the number of processors
= 8: the crossover point for the multishift QR and QZ methods
for nonsymmetric eigenvalue problems.
= 9: maximum size of the subproblems at the bottom of the
computation tree in the divideandconquer algorithm
=10: ieee NaN arithmetic can be trusted not to trap
=11: infinity arithmetic can be trusted not to trap
Other specifications (up to 100) can be added later. 
[in]  NAME  NAME is CHARACTER*(*)
The name of the calling subroutine. 
[in]  OPTS  OPTS is CHARACTER*(*)
The character options to the subroutine NAME, concatenated
into a single character string. For example, UPLO = 'U',
TRANS = 'T', and DIAG = 'N' for a triangular routine would
be specified as OPTS = 'UTN'. 
[in]  N1  N1 is INTEGER 
[in]  N2  N2 is INTEGER 
[in]  N3  N3 is INTEGER 
[in]  N4  N4 is INTEGER
Problem dimensions for the subroutine NAME; these may not all
be required. 
 Returns:
 ILAENV
ILAENV is INTEGER
>= 0: the value of the parameter specified by ISPEC
< 0: if ILAENV = k, the kth argument had an illegal value.
 Author:
 Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.
 Date:
 November 2011
 Further Details:
The following conventions have been used when calling ILAENV from the
LAPACK routines:
1) OPTS is a concatenation of all of the character options to
subroutine NAME, in the same order that they appear in the
argument list for NAME, even if they are not used in determining
the value of the parameter specified by ISPEC.
2) The problem dimensions N1, N2, N3, N4 are specified in the order
that they appear in the argument list for NAME. N1 is used
first, N2 second, and so on, and unused problem dimensions are
passed a value of 1.
3) The parameter value returned by ILAENV is checked for validity in
the calling subroutine. For example, ILAENV is used to retrieve
the optimal blocksize for STRTRI as follows:
NB = ILAENV( 1, 'STRTRI', UPLO // DIAG, N, 1, 1, 1 )
IF( NB.LE.1 ) NB = MAX( 1, N )
Definition at line 150 of file ilaenv.f.
subroutine xlaenv 
( 
integer 
ISPEC, 


integer 
NVALUE 

) 
 
XLAENV
 Purpose:
XLAENV sets certain machine and problemdependent quantities
which will later be retrieved by ILAENV.
 Parameters:

[in]  ISPEC  ISPEC is INTEGER
Specifies the parameter to be set in the COMMON array IPARMS.
= 1: the optimal blocksize; if this value is 1, an unblocked
algorithm will give the best performance.
= 2: the minimum block size for which the block routine
should be used; if the usable block size is less than
this value, an unblocked routine should be used.
= 3: the crossover point (in a block routine, for N less
than this value, an unblocked routine should be used)
= 4: the number of shifts, used in the nonsymmetric
eigenvalue routines
= 5: the minimum column dimension for blocking to be used;
rectangular blocks must have dimension at least k by m,
where k is given by ILAENV(2,...) and m by ILAENV(5,...)
= 6: the crossover point for the SVD (when reducing an m by n
matrix to bidiagonal form, if max(m,n)/min(m,n) exceeds
this value, a QR factorization is used first to reduce
the matrix to a triangular form)
= 7: the number of processors
= 8: another crossover point, for the multishift QR and QZ
methods for nonsymmetric eigenvalue problems.
= 9: maximum size of the subproblems at the bottom of the
computation tree in the divideandconquer algorithm
(used by xGELSD and xGESDD)
=10: ieee NaN arithmetic can be trusted not to trap
=11: infinity arithmetic can be trusted not to trap 
[in]  NVALUE  NVALUE is INTEGER
The value of the parameter specified by ISPEC. 
 Author:
 Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.
 Date:
 November 2011
Definition at line 79 of file xlaenv.f.