alaerh.f3
Usage
Functions/Subroutines
subroutine alaerh (path, subnam, info, infoe, opts, m, n, kl, ku, n5, imat, nfail, nerrs, nout)
ALAERH
Function/Subroutine Documentation
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
PATH
!> PATH is CHARACTER*3 !> The LAPACK path name of subroutine SUBNAM. !>
SUBNAM
!> SUBNAM is CHARACTER*(*) !> The name of the subroutine that returned an error code. !>
INFO
!> INFO is INTEGER !> The error code returned from routine SUBNAM. !>
INFOE
!> INFOE is INTEGER !> The expected error code from routine SUBNAM, if SUBNAM were !> error-free. If INFOE = 0, an error message is printed, but !> if INFOE.NE.0, we assume only the return code INFO is wrong. !>
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'. !>
M
!> M is INTEGER !> The matrix row dimension. !>
N
!> N is INTEGER !> The matrix column dimension. Accessed only if PATH = xGE or !> xGB. !>
KL
!> KL is INTEGER !> The number of sub-diagonals of the matrix. Accessed only if !> PATH = xGB, xPB, or xTB. Also used for NRHS for PATH = xLS. !>
KU
!> KU is INTEGER !> The number of super-diagonals of the matrix. Accessed only !> if PATH = xGB. !>
N5
!> N5 is INTEGER !> A fifth integer parameter, may be the blocksize NB or the !> number of right hand sides NRHS. !>
IMAT
!> IMAT is INTEGER !> The matrix type. !>
NFAIL
!> NFAIL is INTEGER !> The number of prior tests that did not pass the threshold; !> used to determine if the header should be printed. !>
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. !>
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.
Definition at line 145 of file alaerh.f.