975 lines
36 KiB
Fortran
975 lines
36 KiB
Fortran
*> \brief \b ALAHD
|
|
*
|
|
* =========== DOCUMENTATION ===========
|
|
*
|
|
* Online html documentation available at
|
|
* http://www.netlib.org/lapack/explore-html/
|
|
*
|
|
* Definition:
|
|
* ===========
|
|
*
|
|
* SUBROUTINE ALAHD( IOUNIT, PATH )
|
|
*
|
|
* .. Scalar Arguments ..
|
|
* CHARACTER*3 PATH
|
|
* INTEGER IOUNIT
|
|
* ..
|
|
*
|
|
*
|
|
*> \par Purpose:
|
|
* =============
|
|
*>
|
|
*> \verbatim
|
|
*>
|
|
*> ALAHD prints header information for the different test paths.
|
|
*> \endverbatim
|
|
*
|
|
* Arguments:
|
|
* ==========
|
|
*
|
|
*> \param[in] IOUNIT
|
|
*> \verbatim
|
|
*> IOUNIT is INTEGER
|
|
*> The unit number to which the header information should be
|
|
*> printed.
|
|
*> \endverbatim
|
|
*>
|
|
*> \param[in] PATH
|
|
*> \verbatim
|
|
*> 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 semi-definite
|
|
*> _PP: Symmetric or Hermitian positive definite packed
|
|
*> _PB: Symmetric or Hermitian positive definite band
|
|
*> _PT: Symmetric or Hermitian positive definite tridiagonal
|
|
*> _SY: Symmetric indefinite,
|
|
*> with partial (Bunch-Kaufman) pivoting
|
|
*> _SR: Symmetric indefinite,
|
|
*> with "rook" (bounded Bunch-Kaufman) pivoting
|
|
*> _SP: Symmetric indefinite packed,
|
|
*> with partial (Bunch-Kaufman) pivoting
|
|
*> _HE: (complex) Hermitian indefinite,
|
|
*> with partial (Bunch-Kaufman) pivoting
|
|
*> _HR: Symmetric indefinite,
|
|
*> with "rook" (bounded Bunch-Kaufman) pivoting
|
|
*> _HP: (complex) Hermitian indefinite packed,
|
|
*> with partial (Bunch-Kaufman) pivoting
|
|
*> _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 (triangular-pentagonal matrices)
|
|
*> The first character must be one of S, D, C, or Z (C or Z only
|
|
*> if complex).
|
|
*> \endverbatim
|
|
*
|
|
* Authors:
|
|
* ========
|
|
*
|
|
*> \author Univ. of Tennessee
|
|
*> \author Univ. of California Berkeley
|
|
*> \author Univ. of Colorado Denver
|
|
*> \author NAG Ltd.
|
|
*
|
|
*> \date November 2015
|
|
*
|
|
*> \ingroup aux_lin
|
|
*
|
|
* =====================================================================
|
|
SUBROUTINE ALAHD( IOUNIT, PATH )
|
|
*
|
|
* -- LAPACK test routine (version 3.6.0) --
|
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
|
* November 2015
|
|
*
|
|
* .. Scalar Arguments ..
|
|
CHARACTER*3 PATH
|
|
INTEGER IOUNIT
|
|
* ..
|
|
*
|
|
* =====================================================================
|
|
*
|
|
* .. Local Scalars ..
|
|
LOGICAL CORZ, SORD
|
|
CHARACTER C1, C3
|
|
CHARACTER*2 P2
|
|
CHARACTER*4 EIGCNM
|
|
CHARACTER*32 SUBNAM
|
|
CHARACTER*9 SYM
|
|
* ..
|
|
* .. External Functions ..
|
|
LOGICAL LSAME, LSAMEN
|
|
EXTERNAL LSAME, LSAMEN
|
|
* ..
|
|
* .. Intrinsic Functions ..
|
|
INTRINSIC LEN_TRIM
|
|
* ..
|
|
* .. Executable Statements ..
|
|
*
|
|
IF( IOUNIT.LE.0 )
|
|
$ RETURN
|
|
C1 = PATH( 1: 1 )
|
|
C3 = PATH( 3: 3 )
|
|
P2 = PATH( 2: 3 )
|
|
SORD = LSAME( C1, 'S' ) .OR. LSAME( C1, 'D' )
|
|
CORZ = LSAME( C1, 'C' ) .OR. LSAME( C1, 'Z' )
|
|
IF( .NOT.( SORD .OR. CORZ ) )
|
|
$ RETURN
|
|
*
|
|
IF( LSAMEN( 2, P2, 'GE' ) ) THEN
|
|
*
|
|
* GE: General dense
|
|
*
|
|
WRITE( IOUNIT, FMT = 9999 )PATH
|
|
WRITE( IOUNIT, FMT = '( '' Matrix types:'' )' )
|
|
WRITE( IOUNIT, FMT = 9979 )
|
|
WRITE( IOUNIT, FMT = '( '' Test ratios:'' )' )
|
|
WRITE( IOUNIT, FMT = 9962 )1
|
|
WRITE( IOUNIT, FMT = 9961 )2
|
|
WRITE( IOUNIT, FMT = 9960 )3
|
|
WRITE( IOUNIT, FMT = 9959 )4
|
|
WRITE( IOUNIT, FMT = 9958 )5
|
|
WRITE( IOUNIT, FMT = 9957 )6
|
|
WRITE( IOUNIT, FMT = 9956 )7
|
|
WRITE( IOUNIT, FMT = 9955 )8
|
|
WRITE( IOUNIT, FMT = '( '' Messages:'' )' )
|
|
*
|
|
ELSE IF( LSAMEN( 2, P2, 'GB' ) ) THEN
|
|
*
|
|
* GB: General band
|
|
*
|
|
WRITE( IOUNIT, FMT = 9998 )PATH
|
|
WRITE( IOUNIT, FMT = '( '' Matrix types:'' )' )
|
|
WRITE( IOUNIT, FMT = 9978 )
|
|
WRITE( IOUNIT, FMT = '( '' Test ratios:'' )' )
|
|
WRITE( IOUNIT, FMT = 9962 )1
|
|
WRITE( IOUNIT, FMT = 9960 )2
|
|
WRITE( IOUNIT, FMT = 9959 )3
|
|
WRITE( IOUNIT, FMT = 9958 )4
|
|
WRITE( IOUNIT, FMT = 9957 )5
|
|
WRITE( IOUNIT, FMT = 9956 )6
|
|
WRITE( IOUNIT, FMT = 9955 )7
|
|
WRITE( IOUNIT, FMT = '( '' Messages:'' )' )
|
|
*
|
|
ELSE IF( LSAMEN( 2, P2, 'GT' ) ) THEN
|
|
*
|
|
* GT: General tridiagonal
|
|
*
|
|
WRITE( IOUNIT, FMT = 9997 )PATH
|
|
WRITE( IOUNIT, FMT = 9977 )
|
|
WRITE( IOUNIT, FMT = '( '' Test ratios:'' )' )
|
|
WRITE( IOUNIT, FMT = 9962 )1
|
|
WRITE( IOUNIT, FMT = 9960 )2
|
|
WRITE( IOUNIT, FMT = 9959 )3
|
|
WRITE( IOUNIT, FMT = 9958 )4
|
|
WRITE( IOUNIT, FMT = 9957 )5
|
|
WRITE( IOUNIT, FMT = 9956 )6
|
|
WRITE( IOUNIT, FMT = 9955 )7
|
|
WRITE( IOUNIT, FMT = '( '' Messages:'' )' )
|
|
*
|
|
ELSE IF( LSAMEN( 2, P2, 'PO' ) .OR. LSAMEN( 2, P2, 'PP' ) ) THEN
|
|
*
|
|
* PO: Positive definite full
|
|
* PP: Positive definite packed
|
|
*
|
|
IF( SORD ) THEN
|
|
SYM = 'Symmetric'
|
|
ELSE
|
|
SYM = 'Hermitian'
|
|
END IF
|
|
IF( LSAME( C3, 'O' ) ) THEN
|
|
WRITE( IOUNIT, FMT = 9996 )PATH, SYM
|
|
ELSE
|
|
WRITE( IOUNIT, FMT = 9995 )PATH, SYM
|
|
END IF
|
|
WRITE( IOUNIT, FMT = '( '' Matrix types:'' )' )
|
|
WRITE( IOUNIT, FMT = 9975 )PATH
|
|
WRITE( IOUNIT, FMT = '( '' Test ratios:'' )' )
|
|
WRITE( IOUNIT, FMT = 9954 )1
|
|
WRITE( IOUNIT, FMT = 9961 )2
|
|
WRITE( IOUNIT, FMT = 9960 )3
|
|
WRITE( IOUNIT, FMT = 9959 )4
|
|
WRITE( IOUNIT, FMT = 9958 )5
|
|
WRITE( IOUNIT, FMT = 9957 )6
|
|
WRITE( IOUNIT, FMT = 9956 )7
|
|
WRITE( IOUNIT, FMT = 9955 )8
|
|
WRITE( IOUNIT, FMT = '( '' Messages:'' )' )
|
|
*
|
|
ELSE IF( LSAMEN( 2, P2, 'PS' ) ) THEN
|
|
*
|
|
* PS: Positive semi-definite full
|
|
*
|
|
IF( SORD ) THEN
|
|
SYM = 'Symmetric'
|
|
ELSE
|
|
SYM = 'Hermitian'
|
|
END IF
|
|
IF( LSAME( C1, 'S' ) .OR. LSAME( C1, 'C' ) ) THEN
|
|
EIGCNM = '1E04'
|
|
ELSE
|
|
EIGCNM = '1D12'
|
|
END IF
|
|
WRITE( IOUNIT, FMT = 9995 )PATH, SYM
|
|
WRITE( IOUNIT, FMT = '( '' Matrix types:'' )' )
|
|
WRITE( IOUNIT, FMT = 8973 )EIGCNM, EIGCNM, EIGCNM
|
|
WRITE( IOUNIT, FMT = '( '' Difference:'' )' )
|
|
WRITE( IOUNIT, FMT = 8972 )C1
|
|
WRITE( IOUNIT, FMT = '( '' Test ratio:'' )' )
|
|
WRITE( IOUNIT, FMT = 8950 )
|
|
WRITE( IOUNIT, FMT = '( '' Messages:'' )' )
|
|
ELSE IF( LSAMEN( 2, P2, 'PB' ) ) THEN
|
|
*
|
|
* PB: Positive definite band
|
|
*
|
|
IF( SORD ) THEN
|
|
WRITE( IOUNIT, FMT = 9994 )PATH, 'Symmetric'
|
|
ELSE
|
|
WRITE( IOUNIT, FMT = 9994 )PATH, 'Hermitian'
|
|
END IF
|
|
WRITE( IOUNIT, FMT = '( '' Matrix types:'' )' )
|
|
WRITE( IOUNIT, FMT = 9973 )PATH
|
|
WRITE( IOUNIT, FMT = '( '' Test ratios:'' )' )
|
|
WRITE( IOUNIT, FMT = 9954 )1
|
|
WRITE( IOUNIT, FMT = 9960 )2
|
|
WRITE( IOUNIT, FMT = 9959 )3
|
|
WRITE( IOUNIT, FMT = 9958 )4
|
|
WRITE( IOUNIT, FMT = 9957 )5
|
|
WRITE( IOUNIT, FMT = 9956 )6
|
|
WRITE( IOUNIT, FMT = 9955 )7
|
|
WRITE( IOUNIT, FMT = '( '' Messages:'' )' )
|
|
*
|
|
ELSE IF( LSAMEN( 2, P2, 'PT' ) ) THEN
|
|
*
|
|
* PT: Positive definite tridiagonal
|
|
*
|
|
IF( SORD ) THEN
|
|
WRITE( IOUNIT, FMT = 9993 )PATH, 'Symmetric'
|
|
ELSE
|
|
WRITE( IOUNIT, FMT = 9993 )PATH, 'Hermitian'
|
|
END IF
|
|
WRITE( IOUNIT, FMT = 9976 )
|
|
WRITE( IOUNIT, FMT = '( '' Test ratios:'' )' )
|
|
WRITE( IOUNIT, FMT = 9952 )1
|
|
WRITE( IOUNIT, FMT = 9960 )2
|
|
WRITE( IOUNIT, FMT = 9959 )3
|
|
WRITE( IOUNIT, FMT = 9958 )4
|
|
WRITE( IOUNIT, FMT = 9957 )5
|
|
WRITE( IOUNIT, FMT = 9956 )6
|
|
WRITE( IOUNIT, FMT = 9955 )7
|
|
WRITE( IOUNIT, FMT = '( '' Messages:'' )' )
|
|
*
|
|
ELSE IF( LSAMEN( 2, P2, 'SY' ) ) THEN
|
|
*
|
|
* SY: Symmetric indefinite full,
|
|
* with partial (Bunch-Kaufman) pivoting algorithm
|
|
*
|
|
IF( LSAME( C3, 'Y' ) ) THEN
|
|
WRITE( IOUNIT, FMT = 9992 )PATH, 'Symmetric'
|
|
ELSE
|
|
WRITE( IOUNIT, FMT = 9991 )PATH, 'Symmetric'
|
|
END IF
|
|
WRITE( IOUNIT, FMT = '( '' Matrix types:'' )' )
|
|
IF( SORD ) THEN
|
|
WRITE( IOUNIT, FMT = 9972 )
|
|
ELSE
|
|
WRITE( IOUNIT, FMT = 9971 )
|
|
END IF
|
|
WRITE( IOUNIT, FMT = '( '' Test ratios:'' )' )
|
|
WRITE( IOUNIT, FMT = 9953 )1
|
|
WRITE( IOUNIT, FMT = 9961 )2
|
|
WRITE( IOUNIT, FMT = 9960 )3
|
|
WRITE( IOUNIT, FMT = 9960 )4
|
|
WRITE( IOUNIT, FMT = 9959 )5
|
|
WRITE( IOUNIT, FMT = 9958 )6
|
|
WRITE( IOUNIT, FMT = 9956 )7
|
|
WRITE( IOUNIT, FMT = 9957 )8
|
|
WRITE( IOUNIT, FMT = 9955 )9
|
|
WRITE( IOUNIT, FMT = '( '' Messages:'' )' )
|
|
*
|
|
ELSE IF( LSAMEN( 2, P2, 'SR' ) ) THEN
|
|
*
|
|
* SR: Symmetric indefinite full,
|
|
* with "rook" (bounded Bunch-Kaufman) pivoting algorithm
|
|
*
|
|
WRITE( IOUNIT, FMT = 9892 )PATH, 'Symmetric'
|
|
*
|
|
WRITE( IOUNIT, FMT = '( '' Matrix types:'' )' )
|
|
IF( SORD ) THEN
|
|
WRITE( IOUNIT, FMT = 9972 )
|
|
ELSE
|
|
WRITE( IOUNIT, FMT = 9971 )
|
|
END IF
|
|
*
|
|
WRITE( IOUNIT, FMT = '( '' Test ratios:'' )' )
|
|
WRITE( IOUNIT, FMT = 9953 )1
|
|
WRITE( IOUNIT, FMT = 9961 )2
|
|
WRITE( IOUNIT, FMT = 9927 )3
|
|
WRITE( IOUNIT, FMT = 9928 )
|
|
WRITE( IOUNIT, FMT = 9926 )4
|
|
WRITE( IOUNIT, FMT = 9928 )
|
|
WRITE( IOUNIT, FMT = 9960 )5
|
|
WRITE( IOUNIT, FMT = 9959 )6
|
|
WRITE( IOUNIT, FMT = 9955 )7
|
|
WRITE( IOUNIT, FMT = '( '' Messages:'' )' )
|
|
*
|
|
ELSE IF( LSAMEN( 2, P2, 'SP' ) ) THEN
|
|
*
|
|
* SP: Symmetric indefinite packed,
|
|
* with partial (Bunch-Kaufman) pivoting algorithm
|
|
*
|
|
IF( LSAME( C3, 'Y' ) ) THEN
|
|
WRITE( IOUNIT, FMT = 9992 )PATH, 'Symmetric'
|
|
ELSE
|
|
WRITE( IOUNIT, FMT = 9991 )PATH, 'Symmetric'
|
|
END IF
|
|
WRITE( IOUNIT, FMT = '( '' Matrix types:'' )' )
|
|
IF( SORD ) THEN
|
|
WRITE( IOUNIT, FMT = 9972 )
|
|
ELSE
|
|
WRITE( IOUNIT, FMT = 9971 )
|
|
END IF
|
|
WRITE( IOUNIT, FMT = '( '' Test ratios:'' )' )
|
|
WRITE( IOUNIT, FMT = 9953 )1
|
|
WRITE( IOUNIT, FMT = 9961 )2
|
|
WRITE( IOUNIT, FMT = 9960 )3
|
|
WRITE( IOUNIT, FMT = 9959 )4
|
|
WRITE( IOUNIT, FMT = 9958 )5
|
|
WRITE( IOUNIT, FMT = 9956 )6
|
|
WRITE( IOUNIT, FMT = 9957 )7
|
|
WRITE( IOUNIT, FMT = 9955 )8
|
|
WRITE( IOUNIT, FMT = '( '' Messages:'' )' )
|
|
*
|
|
ELSE IF( LSAMEN( 2, P2, 'HE' ) ) THEN
|
|
*
|
|
* HE: Hermitian indefinite full,
|
|
* with partial (Bunch-Kaufman) pivoting algorithm
|
|
*
|
|
WRITE( IOUNIT, FMT = 9992 )PATH, 'Hermitian'
|
|
*
|
|
WRITE( IOUNIT, FMT = '( '' Matrix types:'' )' )
|
|
WRITE( IOUNIT, FMT = 9972 )
|
|
*
|
|
WRITE( IOUNIT, FMT = '( '' Test ratios:'' )' )
|
|
WRITE( IOUNIT, FMT = 9953 )1
|
|
WRITE( IOUNIT, FMT = 9961 )2
|
|
WRITE( IOUNIT, FMT = 9960 )3
|
|
WRITE( IOUNIT, FMT = 9960 )4
|
|
WRITE( IOUNIT, FMT = 9959 )5
|
|
WRITE( IOUNIT, FMT = 9958 )6
|
|
WRITE( IOUNIT, FMT = 9956 )7
|
|
WRITE( IOUNIT, FMT = 9957 )8
|
|
WRITE( IOUNIT, FMT = 9955 )9
|
|
WRITE( IOUNIT, FMT = '( '' Messages:'' )' )
|
|
*
|
|
ELSE IF( LSAMEN( 2, P2, 'HR' ) ) THEN
|
|
*
|
|
* HR: Symmetric indefinite full,
|
|
* with "rook" (bounded Bunch-Kaufman) pivoting algorithm
|
|
*
|
|
WRITE( IOUNIT, FMT = 9892 )PATH, 'Hermitian'
|
|
*
|
|
WRITE( IOUNIT, FMT = '( '' Matrix types:'' )' )
|
|
WRITE( IOUNIT, FMT = 9972 )
|
|
*
|
|
WRITE( IOUNIT, FMT = '( '' Test ratios:'' )' )
|
|
WRITE( IOUNIT, FMT = 9953 )1
|
|
WRITE( IOUNIT, FMT = 9961 )2
|
|
WRITE( IOUNIT, FMT = 9927 )3
|
|
WRITE( IOUNIT, FMT = 9928 )
|
|
WRITE( IOUNIT, FMT = 9926 )4
|
|
WRITE( IOUNIT, FMT = 9928 )
|
|
WRITE( IOUNIT, FMT = 9960 )5
|
|
WRITE( IOUNIT, FMT = 9959 )6
|
|
WRITE( IOUNIT, FMT = 9955 )7
|
|
WRITE( IOUNIT, FMT = '( '' Messages:'' )' )
|
|
*
|
|
ELSE IF( LSAMEN( 2, P2, 'HP' ) ) THEN
|
|
*
|
|
* HP: Hermitian indefinite packed,
|
|
* with partial (Bunch-Kaufman) pivoting algorithm
|
|
*
|
|
IF( LSAME( C3, 'E' ) ) THEN
|
|
WRITE( IOUNIT, FMT = 9992 )PATH, 'Hermitian'
|
|
ELSE
|
|
WRITE( IOUNIT, FMT = 9991 )PATH, 'Hermitian'
|
|
END IF
|
|
WRITE( IOUNIT, FMT = '( '' Matrix types:'' )' )
|
|
WRITE( IOUNIT, FMT = 9972 )
|
|
WRITE( IOUNIT, FMT = '( '' Test ratios:'' )' )
|
|
WRITE( IOUNIT, FMT = 9953 )1
|
|
WRITE( IOUNIT, FMT = 9961 )2
|
|
WRITE( IOUNIT, FMT = 9960 )3
|
|
WRITE( IOUNIT, FMT = 9959 )4
|
|
WRITE( IOUNIT, FMT = 9958 )5
|
|
WRITE( IOUNIT, FMT = 9956 )6
|
|
WRITE( IOUNIT, FMT = 9957 )7
|
|
WRITE( IOUNIT, FMT = 9955 )8
|
|
WRITE( IOUNIT, FMT = '( '' Messages:'' )' )
|
|
*
|
|
ELSE IF( LSAMEN( 2, P2, 'TR' ) .OR. LSAMEN( 2, P2, 'TP' ) ) THEN
|
|
*
|
|
* TR: Triangular full
|
|
* TP: Triangular packed
|
|
*
|
|
IF( LSAME( C3, 'R' ) ) THEN
|
|
WRITE( IOUNIT, FMT = 9990 )PATH
|
|
SUBNAM = PATH( 1: 1 ) // 'LATRS'
|
|
ELSE
|
|
WRITE( IOUNIT, FMT = 9989 )PATH
|
|
SUBNAM = PATH( 1: 1 ) // 'LATPS'
|
|
END IF
|
|
WRITE( IOUNIT, FMT = 9966 )PATH
|
|
WRITE( IOUNIT, FMT = 9965 )SUBNAM(1:LEN_TRIM( SUBNAM ))
|
|
WRITE( IOUNIT, FMT = '( '' Test ratios:'' )' )
|
|
WRITE( IOUNIT, FMT = 9961 )1
|
|
WRITE( IOUNIT, FMT = 9960 )2
|
|
WRITE( IOUNIT, FMT = 9959 )3
|
|
WRITE( IOUNIT, FMT = 9958 )4
|
|
WRITE( IOUNIT, FMT = 9957 )5
|
|
WRITE( IOUNIT, FMT = 9956 )6
|
|
WRITE( IOUNIT, FMT = 9955 )7
|
|
WRITE( IOUNIT, FMT = 9951 )SUBNAM(1:LEN_TRIM( SUBNAM )), 8
|
|
WRITE( IOUNIT, FMT = '( '' Messages:'' )' )
|
|
*
|
|
ELSE IF( LSAMEN( 2, P2, 'TB' ) ) THEN
|
|
*
|
|
* TB: Triangular band
|
|
*
|
|
WRITE( IOUNIT, FMT = 9988 )PATH
|
|
SUBNAM = PATH( 1: 1 ) // 'LATBS'
|
|
WRITE( IOUNIT, FMT = 9964 )PATH
|
|
WRITE( IOUNIT, FMT = 9963 )SUBNAM(1:LEN_TRIM( SUBNAM ))
|
|
WRITE( IOUNIT, FMT = '( '' Test ratios:'' )' )
|
|
WRITE( IOUNIT, FMT = 9960 )1
|
|
WRITE( IOUNIT, FMT = 9959 )2
|
|
WRITE( IOUNIT, FMT = 9958 )3
|
|
WRITE( IOUNIT, FMT = 9957 )4
|
|
WRITE( IOUNIT, FMT = 9956 )5
|
|
WRITE( IOUNIT, FMT = 9955 )6
|
|
WRITE( IOUNIT, FMT = 9951 )SUBNAM(1:LEN_TRIM( SUBNAM )), 7
|
|
WRITE( IOUNIT, FMT = '( '' Messages:'' )' )
|
|
*
|
|
ELSE IF( LSAMEN( 2, P2, 'QR' ) ) THEN
|
|
*
|
|
* QR decomposition of rectangular matrices
|
|
*
|
|
WRITE( IOUNIT, FMT = 9987 )PATH, 'QR'
|
|
WRITE( IOUNIT, FMT = '( '' Matrix types:'' )' )
|
|
WRITE( IOUNIT, FMT = 9970 )
|
|
WRITE( IOUNIT, FMT = '( '' Test ratios:'' )' )
|
|
WRITE( IOUNIT, FMT = 9950 )1
|
|
WRITE( IOUNIT, FMT = 6950 )8
|
|
WRITE( IOUNIT, FMT = 9946 )2
|
|
WRITE( IOUNIT, FMT = 9944 )3, 'M'
|
|
WRITE( IOUNIT, FMT = 9943 )4, 'M'
|
|
WRITE( IOUNIT, FMT = 9942 )5, 'M'
|
|
WRITE( IOUNIT, FMT = 9941 )6, 'M'
|
|
WRITE( IOUNIT, FMT = 9960 )7
|
|
WRITE( IOUNIT, FMT = 6660 )9
|
|
WRITE( IOUNIT, FMT = '( '' Messages:'' )' )
|
|
*
|
|
ELSE IF( LSAMEN( 2, P2, 'LQ' ) ) THEN
|
|
*
|
|
* LQ decomposition of rectangular matrices
|
|
*
|
|
WRITE( IOUNIT, FMT = 9987 )PATH, 'LQ'
|
|
WRITE( IOUNIT, FMT = '( '' Matrix types:'' )' )
|
|
WRITE( IOUNIT, FMT = 9970 )
|
|
WRITE( IOUNIT, FMT = '( '' Test ratios:'' )' )
|
|
WRITE( IOUNIT, FMT = 9949 )1
|
|
WRITE( IOUNIT, FMT = 9945 )2
|
|
WRITE( IOUNIT, FMT = 9944 )3, 'N'
|
|
WRITE( IOUNIT, FMT = 9943 )4, 'N'
|
|
WRITE( IOUNIT, FMT = 9942 )5, 'N'
|
|
WRITE( IOUNIT, FMT = 9941 )6, 'N'
|
|
WRITE( IOUNIT, FMT = 9960 )7
|
|
WRITE( IOUNIT, FMT = '( '' Messages:'' )' )
|
|
*
|
|
ELSE IF( LSAMEN( 2, P2, 'QL' ) ) THEN
|
|
*
|
|
* QL decomposition of rectangular matrices
|
|
*
|
|
WRITE( IOUNIT, FMT = 9987 )PATH, 'QL'
|
|
WRITE( IOUNIT, FMT = '( '' Matrix types:'' )' )
|
|
WRITE( IOUNIT, FMT = 9970 )
|
|
WRITE( IOUNIT, FMT = '( '' Test ratios:'' )' )
|
|
WRITE( IOUNIT, FMT = 9948 )1
|
|
WRITE( IOUNIT, FMT = 9946 )2
|
|
WRITE( IOUNIT, FMT = 9944 )3, 'M'
|
|
WRITE( IOUNIT, FMT = 9943 )4, 'M'
|
|
WRITE( IOUNIT, FMT = 9942 )5, 'M'
|
|
WRITE( IOUNIT, FMT = 9941 )6, 'M'
|
|
WRITE( IOUNIT, FMT = 9960 )7
|
|
WRITE( IOUNIT, FMT = '( '' Messages:'' )' )
|
|
*
|
|
ELSE IF( LSAMEN( 2, P2, 'RQ' ) ) THEN
|
|
*
|
|
* RQ decomposition of rectangular matrices
|
|
*
|
|
WRITE( IOUNIT, FMT = 9987 )PATH, 'RQ'
|
|
WRITE( IOUNIT, FMT = '( '' Matrix types:'' )' )
|
|
WRITE( IOUNIT, FMT = 9970 )
|
|
WRITE( IOUNIT, FMT = '( '' Test ratios:'' )' )
|
|
WRITE( IOUNIT, FMT = 9947 )1
|
|
WRITE( IOUNIT, FMT = 9945 )2
|
|
WRITE( IOUNIT, FMT = 9944 )3, 'N'
|
|
WRITE( IOUNIT, FMT = 9943 )4, 'N'
|
|
WRITE( IOUNIT, FMT = 9942 )5, 'N'
|
|
WRITE( IOUNIT, FMT = 9941 )6, 'N'
|
|
WRITE( IOUNIT, FMT = 9960 )7
|
|
WRITE( IOUNIT, FMT = '( '' Messages:'' )' )
|
|
*
|
|
ELSE IF( LSAMEN( 2, P2, 'QP' ) ) THEN
|
|
*
|
|
* QR decomposition with column pivoting
|
|
*
|
|
WRITE( IOUNIT, FMT = 9986 )PATH
|
|
WRITE( IOUNIT, FMT = 9969 )
|
|
WRITE( IOUNIT, FMT = '( '' Test ratios:'' )' )
|
|
WRITE( IOUNIT, FMT = 9940 )1
|
|
WRITE( IOUNIT, FMT = 9939 )2
|
|
WRITE( IOUNIT, FMT = 9938 )3
|
|
WRITE( IOUNIT, FMT = '( '' Messages:'' )' )
|
|
*
|
|
ELSE IF( LSAMEN( 2, P2, 'TZ' ) ) THEN
|
|
*
|
|
* TZ: Trapezoidal
|
|
*
|
|
WRITE( IOUNIT, FMT = 9985 )PATH
|
|
WRITE( IOUNIT, FMT = 9968 )
|
|
WRITE( IOUNIT, FMT = 9929 )C1
|
|
WRITE( IOUNIT, FMT = '( '' Test ratios:'' )' )
|
|
WRITE( IOUNIT, FMT = 9940 )1
|
|
WRITE( IOUNIT, FMT = 9937 )2
|
|
WRITE( IOUNIT, FMT = 9938 )3
|
|
WRITE( IOUNIT, FMT = '( '' Messages:'' )' )
|
|
*
|
|
ELSE IF( LSAMEN( 2, P2, 'LS' ) ) THEN
|
|
*
|
|
* LS: Least Squares driver routines for
|
|
* LS, LSD, LSS, LSX and LSY.
|
|
*
|
|
WRITE( IOUNIT, FMT = 9984 )PATH
|
|
WRITE( IOUNIT, FMT = 9967 )
|
|
WRITE( IOUNIT, FMT = 9921 )C1, C1, C1, C1
|
|
WRITE( IOUNIT, FMT = 9935 )1
|
|
WRITE( IOUNIT, FMT = 9931 )2
|
|
WRITE( IOUNIT, FMT = 9933 )3
|
|
WRITE( IOUNIT, FMT = 9935 )4
|
|
WRITE( IOUNIT, FMT = 9934 )5
|
|
WRITE( IOUNIT, FMT = 9932 )6
|
|
WRITE( IOUNIT, FMT = 9920 )
|
|
WRITE( IOUNIT, FMT = '( '' Messages:'' )' )
|
|
*
|
|
ELSE IF( LSAMEN( 2, P2, 'LU' ) ) THEN
|
|
*
|
|
* LU factorization variants
|
|
*
|
|
WRITE( IOUNIT, FMT = 9983 )PATH
|
|
WRITE( IOUNIT, FMT = '( '' Matrix types:'' )' )
|
|
WRITE( IOUNIT, FMT = 9979 )
|
|
WRITE( IOUNIT, FMT = '( '' Test ratio:'' )' )
|
|
WRITE( IOUNIT, FMT = 9962 )1
|
|
WRITE( IOUNIT, FMT = '( '' Messages:'' )' )
|
|
*
|
|
ELSE IF( LSAMEN( 2, P2, 'CH' ) ) THEN
|
|
*
|
|
* Cholesky factorization variants
|
|
*
|
|
WRITE( IOUNIT, FMT = 9982 )PATH
|
|
WRITE( IOUNIT, FMT = '( '' Matrix types:'' )' )
|
|
WRITE( IOUNIT, FMT = 9974 )
|
|
WRITE( IOUNIT, FMT = '( '' Test ratio:'' )' )
|
|
WRITE( IOUNIT, FMT = 9954 )1
|
|
WRITE( IOUNIT, FMT = '( '' Messages:'' )' )
|
|
*
|
|
ELSE IF( LSAMEN( 2, P2, 'QS' ) ) THEN
|
|
*
|
|
* QR factorization variants
|
|
*
|
|
WRITE( IOUNIT, FMT = 9981 )PATH
|
|
WRITE( IOUNIT, FMT = '( '' Matrix types:'' )' )
|
|
WRITE( IOUNIT, FMT = 9970 )
|
|
WRITE( IOUNIT, FMT = '( '' Test ratios:'' )' )
|
|
*
|
|
ELSE IF( LSAMEN( 2, P2, 'QT' ) ) THEN
|
|
*
|
|
* QRT (general matrices)
|
|
*
|
|
WRITE( IOUNIT, FMT = 8000 ) PATH
|
|
WRITE( IOUNIT, FMT = '( '' Test ratios:'' )' )
|
|
WRITE( IOUNIT, FMT = 8011 ) 1
|
|
WRITE( IOUNIT, FMT = 8012 ) 2
|
|
WRITE( IOUNIT, FMT = 8013 ) 3
|
|
WRITE( IOUNIT, FMT = 8014 ) 4
|
|
WRITE( IOUNIT, FMT = 8015 ) 5
|
|
WRITE( IOUNIT, FMT = 8016 ) 6
|
|
*
|
|
ELSE IF( LSAMEN( 2, P2, 'QX' ) ) THEN
|
|
*
|
|
* QRT (triangular-pentagonal)
|
|
*
|
|
WRITE( IOUNIT, FMT = 8001 ) PATH
|
|
WRITE( IOUNIT, FMT = '( '' Test ratios:'' )' )
|
|
WRITE( IOUNIT, FMT = 8017 ) 1
|
|
WRITE( IOUNIT, FMT = 8018 ) 2
|
|
WRITE( IOUNIT, FMT = 8019 ) 3
|
|
WRITE( IOUNIT, FMT = 8020 ) 4
|
|
WRITE( IOUNIT, FMT = 8021 ) 5
|
|
WRITE( IOUNIT, FMT = 8022 ) 6
|
|
*
|
|
ELSE
|
|
*
|
|
* Print error message if no header is available.
|
|
*
|
|
WRITE( IOUNIT, FMT = 9980 )PATH
|
|
END IF
|
|
*
|
|
* First line of header
|
|
*
|
|
9999 FORMAT( / 1X, A3, ': General dense matrices' )
|
|
9998 FORMAT( / 1X, A3, ': General band matrices' )
|
|
9997 FORMAT( / 1X, A3, ': General tridiagonal' )
|
|
9996 FORMAT( / 1X, A3, ': ', A9, ' positive definite matrices' )
|
|
9995 FORMAT( / 1X, A3, ': ', A9, ' positive definite packed matrices'
|
|
$ )
|
|
9994 FORMAT( / 1X, A3, ': ', A9, ' positive definite band matrices' )
|
|
9993 FORMAT( / 1X, A3, ': ', A9, ' positive definite tridiagonal' )
|
|
9992 FORMAT( / 1X, A3, ': ', A9, ' indefinite matrices',
|
|
$ ', partial (Bunch-Kaufman) pivoting' )
|
|
9991 FORMAT( / 1X, A3, ': ', A9, ' indefinite packed matrices',
|
|
$ ', partial (Bunch-Kaufman) pivoting' )
|
|
9892 FORMAT( / 1X, A3, ': ', A9, ' indefinite matrices',
|
|
$ ', "rook" (bounded Bunch-Kaufman) pivoting' )
|
|
9891 FORMAT( / 1X, A3, ': ', A9, ' indefinite packed matrices',
|
|
$ ', "rook" (bounded Bunch-Kaufman) pivoting' )
|
|
9990 FORMAT( / 1X, A3, ': Triangular matrices' )
|
|
9989 FORMAT( / 1X, A3, ': Triangular packed matrices' )
|
|
9988 FORMAT( / 1X, A3, ': Triangular band matrices' )
|
|
9987 FORMAT( / 1X, A3, ': ', A2, ' factorization of general matrices'
|
|
$ )
|
|
9986 FORMAT( / 1X, A3, ': QR factorization with column pivoting' )
|
|
9985 FORMAT( / 1X, A3, ': RQ factorization of trapezoidal matrix' )
|
|
9984 FORMAT( / 1X, A3, ': Least squares driver routines' )
|
|
9983 FORMAT( / 1X, A3, ': LU factorization variants' )
|
|
9982 FORMAT( / 1X, A3, ': Cholesky factorization variants' )
|
|
9981 FORMAT( / 1X, A3, ': QR factorization variants' )
|
|
9980 FORMAT( / 1X, A3, ': No header available' )
|
|
8000 FORMAT( / 1X, A3, ': QRT factorization for general matrices' )
|
|
8001 FORMAT( / 1X, A3, ': QRT factorization for ',
|
|
$ 'triangular-pentagonal matrices' )
|
|
*
|
|
* GE matrix types
|
|
*
|
|
9979 FORMAT( 4X, '1. Diagonal', 24X, '7. Last n/2 columns zero', / 4X,
|
|
$ '2. Upper triangular', 16X,
|
|
$ '8. Random, CNDNUM = sqrt(0.1/EPS)', / 4X,
|
|
$ '3. Lower triangular', 16X, '9. Random, CNDNUM = 0.1/EPS',
|
|
$ / 4X, '4. Random, CNDNUM = 2', 13X,
|
|
$ '10. Scaled near underflow', / 4X, '5. First column zero',
|
|
$ 14X, '11. Scaled near overflow', / 4X,
|
|
$ '6. Last column zero' )
|
|
*
|
|
* GB matrix types
|
|
*
|
|
9978 FORMAT( 4X, '1. Random, CNDNUM = 2', 14X,
|
|
$ '5. Random, CNDNUM = sqrt(0.1/EPS)', / 4X,
|
|
$ '2. First column zero', 15X, '6. Random, CNDNUM = .01/EPS',
|
|
$ / 4X, '3. Last column zero', 16X,
|
|
$ '7. Scaled near underflow', / 4X,
|
|
$ '4. Last n/2 columns zero', 11X, '8. Scaled near overflow' )
|
|
*
|
|
* GT matrix types
|
|
*
|
|
9977 FORMAT( ' Matrix types (1-6 have specified condition numbers):',
|
|
$ / 4X, '1. Diagonal', 24X, '7. Random, unspecified CNDNUM',
|
|
$ / 4X, '2. Random, CNDNUM = 2', 14X, '8. First column zero',
|
|
$ / 4X, '3. Random, CNDNUM = sqrt(0.1/EPS)', 2X,
|
|
$ '9. Last column zero', / 4X, '4. Random, CNDNUM = 0.1/EPS',
|
|
$ 7X, '10. Last n/2 columns zero', / 4X,
|
|
$ '5. Scaled near underflow', 10X,
|
|
$ '11. Scaled near underflow', / 4X,
|
|
$ '6. Scaled near overflow', 11X, '12. Scaled near overflow' )
|
|
*
|
|
* PT matrix types
|
|
*
|
|
9976 FORMAT( ' Matrix types (1-6 have specified condition numbers):',
|
|
$ / 4X, '1. Diagonal', 24X, '7. Random, unspecified CNDNUM',
|
|
$ / 4X, '2. Random, CNDNUM = 2', 14X,
|
|
$ '8. First row and column zero', / 4X,
|
|
$ '3. Random, CNDNUM = sqrt(0.1/EPS)', 2X,
|
|
$ '9. Last row and column zero', / 4X,
|
|
$ '4. Random, CNDNUM = 0.1/EPS', 7X,
|
|
$ '10. Middle row and column zero', / 4X,
|
|
$ '5. Scaled near underflow', 10X,
|
|
$ '11. Scaled near underflow', / 4X,
|
|
$ '6. Scaled near overflow', 11X, '12. Scaled near overflow' )
|
|
*
|
|
* PO, PP matrix types
|
|
*
|
|
9975 FORMAT( 4X, '1. Diagonal', 24X,
|
|
$ '6. Random, CNDNUM = sqrt(0.1/EPS)', / 4X,
|
|
$ '2. Random, CNDNUM = 2', 14X, '7. Random, CNDNUM = 0.1/EPS',
|
|
$ / 3X, '*3. First row and column zero', 7X,
|
|
$ '8. Scaled near underflow', / 3X,
|
|
$ '*4. Last row and column zero', 8X,
|
|
$ '9. Scaled near overflow', / 3X,
|
|
$ '*5. Middle row and column zero', / 3X,
|
|
$ '(* - tests error exits from ', A3,
|
|
$ 'TRF, no test ratios are computed)' )
|
|
*
|
|
* CH matrix types
|
|
*
|
|
9974 FORMAT( 4X, '1. Diagonal', 24X,
|
|
$ '6. Random, CNDNUM = sqrt(0.1/EPS)', / 4X,
|
|
$ '2. Random, CNDNUM = 2', 14X, '7. Random, CNDNUM = 0.1/EPS',
|
|
$ / 3X, '*3. First row and column zero', 7X,
|
|
$ '8. Scaled near underflow', / 3X,
|
|
$ '*4. Last row and column zero', 8X,
|
|
$ '9. Scaled near overflow', / 3X,
|
|
$ '*5. Middle row and column zero', / 3X,
|
|
$ '(* - tests error exits, no test ratios are computed)' )
|
|
*
|
|
* PS matrix types
|
|
*
|
|
8973 FORMAT( 4X, '1. Diagonal', / 4X, '2. Random, CNDNUM = 2', 14X,
|
|
$ / 3X, '*3. Nonzero eigenvalues of: D(1:RANK-1)=1 and ',
|
|
$ 'D(RANK) = 1.0/', A4, / 3X,
|
|
$ '*4. Nonzero eigenvalues of: D(1)=1 and ',
|
|
$ ' D(2:RANK) = 1.0/', A4, / 3X,
|
|
$ '*5. Nonzero eigenvalues of: D(I) = ', A4,
|
|
$ '**(-(I-1)/(RANK-1)) ', ' I=1:RANK', / 4X,
|
|
$ '6. Random, CNDNUM = sqrt(0.1/EPS)', / 4X,
|
|
$ '7. Random, CNDNUM = 0.1/EPS', / 4X,
|
|
$ '8. Scaled near underflow', / 4X, '9. Scaled near overflow',
|
|
$ / 3X, '(* - Semi-definite tests )' )
|
|
8972 FORMAT( 3X, 'RANK minus computed rank, returned by ', A, 'PSTRF' )
|
|
*
|
|
* PB matrix types
|
|
*
|
|
9973 FORMAT( 4X, '1. Random, CNDNUM = 2', 14X,
|
|
$ '5. Random, CNDNUM = sqrt(0.1/EPS)', / 3X,
|
|
$ '*2. First row and column zero', 7X,
|
|
$ '6. Random, CNDNUM = 0.1/EPS', / 3X,
|
|
$ '*3. Last row and column zero', 8X,
|
|
$ '7. Scaled near underflow', / 3X,
|
|
$ '*4. Middle row and column zero', 6X,
|
|
$ '8. Scaled near overflow', / 3X,
|
|
$ '(* - tests error exits from ', A3,
|
|
$ 'TRF, no test ratios are computed)' )
|
|
*
|
|
* SSY, SSR, SSP, CHE, CHR, CHP matrix types
|
|
*
|
|
9972 FORMAT( 4X, '1. Diagonal', 24X,
|
|
$ '6. Last n/2 rows and columns zero', / 4X,
|
|
$ '2. Random, CNDNUM = 2', 14X,
|
|
$ '7. Random, CNDNUM = sqrt(0.1/EPS)', / 4X,
|
|
$ '3. First row and column zero', 7X,
|
|
$ '8. Random, CNDNUM = 0.1/EPS', / 4X,
|
|
$ '4. Last row and column zero', 8X,
|
|
$ '9. Scaled near underflow', / 4X,
|
|
$ '5. Middle row and column zero', 5X,
|
|
$ '10. Scaled near overflow' )
|
|
*
|
|
* CSY, CSR, CSP matrix types
|
|
*
|
|
9971 FORMAT( 4X, '1. Diagonal', 24X,
|
|
$ '7. Random, CNDNUM = sqrt(0.1/EPS)', / 4X,
|
|
$ '2. Random, CNDNUM = 2', 14X, '8. Random, CNDNUM = 0.1/EPS',
|
|
$ / 4X, '3. First row and column zero', 7X,
|
|
$ '9. Scaled near underflow', / 4X,
|
|
$ '4. Last row and column zero', 7X,
|
|
$ '10. Scaled near overflow', / 4X,
|
|
$ '5. Middle row and column zero', 5X,
|
|
$ '11. Block diagonal matrix', / 4X,
|
|
$ '6. Last n/2 rows and columns zero' )
|
|
*
|
|
* QR matrix types
|
|
*
|
|
9970 FORMAT( 4X, '1. Diagonal', 24X,
|
|
$ '5. Random, CNDNUM = sqrt(0.1/EPS)', / 4X,
|
|
$ '2. Upper triangular', 16X, '6. Random, CNDNUM = 0.1/EPS',
|
|
$ / 4X, '3. Lower triangular', 16X,
|
|
$ '7. Scaled near underflow', / 4X, '4. Random, CNDNUM = 2',
|
|
$ 14X, '8. Scaled near overflow' )
|
|
*
|
|
* QP matrix types
|
|
*
|
|
9969 FORMAT( ' Matrix types (2-6 have condition 1/EPS):', / 4X,
|
|
$ '1. Zero matrix', 21X, '4. First n/2 columns fixed', / 4X,
|
|
$ '2. One small eigenvalue', 12X, '5. Last n/2 columns fixed',
|
|
$ / 4X, '3. Geometric distribution', 10X,
|
|
$ '6. Every second column fixed' )
|
|
*
|
|
* TZ matrix types
|
|
*
|
|
9968 FORMAT( ' Matrix types (2-3 have condition 1/EPS):', / 4X,
|
|
$ '1. Zero matrix', / 4X, '2. One small eigenvalue', / 4X,
|
|
$ '3. Geometric distribution' )
|
|
*
|
|
* LS matrix types
|
|
*
|
|
9967 FORMAT( ' Matrix types (1-3: full rank, 4-6: rank deficient):',
|
|
$ / 4X, '1 and 4. Normal scaling', / 4X,
|
|
$ '2 and 5. Scaled near overflow', / 4X,
|
|
$ '3 and 6. Scaled near underflow' )
|
|
*
|
|
* TR, TP matrix types
|
|
*
|
|
9966 FORMAT( ' Matrix types for ', A3, ' routines:', / 4X,
|
|
$ '1. Diagonal', 24X, '6. Scaled near overflow', / 4X,
|
|
$ '2. Random, CNDNUM = 2', 14X, '7. Identity', / 4X,
|
|
$ '3. Random, CNDNUM = sqrt(0.1/EPS) ',
|
|
$ '8. Unit triangular, CNDNUM = 2', / 4X,
|
|
$ '4. Random, CNDNUM = 0.1/EPS', 8X,
|
|
$ '9. Unit, CNDNUM = sqrt(0.1/EPS)', / 4X,
|
|
$ '5. Scaled near underflow', 10X,
|
|
$ '10. Unit, CNDNUM = 0.1/EPS' )
|
|
9965 FORMAT( ' Special types for testing ', A, ':', / 3X,
|
|
$ '11. Matrix elements are O(1), large right hand side', / 3X,
|
|
$ '12. First diagonal causes overflow,',
|
|
$ ' offdiagonal column norms < 1', / 3X,
|
|
$ '13. First diagonal causes overflow,',
|
|
$ ' offdiagonal column norms > 1', / 3X,
|
|
$ '14. Growth factor underflows, solution does not overflow',
|
|
$ / 3X, '15. Small diagonal causes gradual overflow', / 3X,
|
|
$ '16. One zero diagonal element', / 3X,
|
|
$ '17. Large offdiagonals cause overflow when adding a column'
|
|
$ , / 3X, '18. Unit triangular with large right hand side' )
|
|
*
|
|
* TB matrix types
|
|
*
|
|
9964 FORMAT( ' Matrix types for ', A3, ' routines:', / 4X,
|
|
$ '1. Random, CNDNUM = 2', 14X, '6. Identity', / 4X,
|
|
$ '2. Random, CNDNUM = sqrt(0.1/EPS) ',
|
|
$ '7. Unit triangular, CNDNUM = 2', / 4X,
|
|
$ '3. Random, CNDNUM = 0.1/EPS', 8X,
|
|
$ '8. Unit, CNDNUM = sqrt(0.1/EPS)', / 4X,
|
|
$ '4. Scaled near underflow', 11X,
|
|
$ '9. Unit, CNDNUM = 0.1/EPS', / 4X,
|
|
$ '5. Scaled near overflow' )
|
|
9963 FORMAT( ' Special types for testing ', A, ':', / 3X,
|
|
$ '10. Matrix elements are O(1), large right hand side', / 3X,
|
|
$ '11. First diagonal causes overflow,',
|
|
$ ' offdiagonal column norms < 1', / 3X,
|
|
$ '12. First diagonal causes overflow,',
|
|
$ ' offdiagonal column norms > 1', / 3X,
|
|
$ '13. Growth factor underflows, solution does not overflow',
|
|
$ / 3X, '14. Small diagonal causes gradual overflow', / 3X,
|
|
$ '15. One zero diagonal element', / 3X,
|
|
$ '16. Large offdiagonals cause overflow when adding a column'
|
|
$ , / 3X, '17. Unit triangular with large right hand side' )
|
|
*
|
|
* Test ratios
|
|
*
|
|
9962 FORMAT( 3X, I2, ': norm( L * U - A ) / ( N * norm(A) * EPS )' )
|
|
9961 FORMAT( 3X, I2, ': norm( I - A*AINV ) / ',
|
|
$ '( N * norm(A) * norm(AINV) * EPS )' )
|
|
9960 FORMAT( 3X, I2, ': norm( B - A * X ) / ',
|
|
$ '( norm(A) * norm(X) * EPS )' )
|
|
6660 FORMAT( 3X, I2, ': diagonal is not non-negative')
|
|
9959 FORMAT( 3X, I2, ': norm( X - XACT ) / ',
|
|
$ '( norm(XACT) * CNDNUM * EPS )' )
|
|
9958 FORMAT( 3X, I2, ': norm( X - XACT ) / ',
|
|
$ '( norm(XACT) * CNDNUM * EPS ), refined' )
|
|
9957 FORMAT( 3X, I2, ': norm( X - XACT ) / ',
|
|
$ '( norm(XACT) * (error bound) )' )
|
|
9956 FORMAT( 3X, I2, ': (backward error) / EPS' )
|
|
9955 FORMAT( 3X, I2, ': RCOND * CNDNUM - 1.0' )
|
|
9954 FORMAT( 3X, I2, ': norm( U'' * U - A ) / ( N * norm(A) * EPS )',
|
|
$ ', or', / 7X, 'norm( L * L'' - A ) / ( N * norm(A) * EPS )'
|
|
$ )
|
|
8950 FORMAT( 3X,
|
|
$ 'norm( P * U'' * U * P'' - A ) / ( N * norm(A) * EPS )',
|
|
$ ', or', / 3X,
|
|
$ 'norm( P * L * L'' * P'' - A ) / ( N * norm(A) * EPS )' )
|
|
9953 FORMAT( 3X, I2, ': norm( U*D*U'' - A ) / ( N * norm(A) * EPS )',
|
|
$ ', or', / 7X, 'norm( L*D*L'' - A ) / ( N * norm(A) * EPS )'
|
|
$ )
|
|
9952 FORMAT( 3X, I2, ': norm( U''*D*U - A ) / ( N * norm(A) * EPS )',
|
|
$ ', or', / 7X, 'norm( L*D*L'' - A ) / ( N * norm(A) * EPS )'
|
|
$ )
|
|
9951 FORMAT( ' Test ratio for ', A, ':', / 3X, I2,
|
|
$ ': norm( s*b - A*x ) / ( norm(A) * norm(x) * EPS )' )
|
|
9950 FORMAT( 3X, I2, ': norm( R - Q'' * A ) / ( M * norm(A) * EPS )' )
|
|
6950 FORMAT( 3X, I2, ': norm( R - Q'' * A ) / ( M * norm(A) * EPS )
|
|
$ [RFPG]' )
|
|
9949 FORMAT( 3X, I2, ': norm( L - A * Q'' ) / ( N * norm(A) * EPS )' )
|
|
9948 FORMAT( 3X, I2, ': norm( L - Q'' * A ) / ( M * norm(A) * EPS )' )
|
|
9947 FORMAT( 3X, I2, ': norm( R - A * Q'' ) / ( N * norm(A) * EPS )' )
|
|
9946 FORMAT( 3X, I2, ': norm( I - Q''*Q ) / ( M * EPS )' )
|
|
9945 FORMAT( 3X, I2, ': norm( I - Q*Q'' ) / ( N * EPS )' )
|
|
9944 FORMAT( 3X, I2, ': norm( Q*C - Q*C ) / ', '( ', A1,
|
|
$ ' * norm(C) * EPS )' )
|
|
9943 FORMAT( 3X, I2, ': norm( C*Q - C*Q ) / ', '( ', A1,
|
|
$ ' * norm(C) * EPS )' )
|
|
9942 FORMAT( 3X, I2, ': norm( Q''*C - Q''*C )/ ', '( ', A1,
|
|
$ ' * norm(C) * EPS )' )
|
|
9941 FORMAT( 3X, I2, ': norm( C*Q'' - C*Q'' )/ ', '( ', A1,
|
|
$ ' * norm(C) * EPS )' )
|
|
9940 FORMAT( 3X, I2, ': norm(svd(A) - svd(R)) / ',
|
|
$ '( M * norm(svd(R)) * EPS )' )
|
|
9939 FORMAT( 3X, I2, ': norm( A*P - Q*R ) / ( M * norm(A) * EPS )'
|
|
$ )
|
|
9938 FORMAT( 3X, I2, ': norm( I - Q''*Q ) / ( M * EPS )' )
|
|
9937 FORMAT( 3X, I2, ': norm( A - R*Q ) / ( M * norm(A) * EPS )'
|
|
$ )
|
|
9935 FORMAT( 3X, I2, ': norm( B - A * X ) / ',
|
|
$ '( max(M,N) * norm(A) * norm(X) * EPS )' )
|
|
9934 FORMAT( 3X, I2, ': norm( (A*X-B)'' *A ) / ',
|
|
$ '( max(M,N,NRHS) * norm(A) * norm(B) * EPS )' )
|
|
9933 FORMAT( 3X, I2, ': norm(svd(A)-svd(R)) / ',
|
|
$ '( min(M,N) * norm(svd(R)) * EPS )' )
|
|
9932 FORMAT( 3X, I2, ': Check if X is in the row space of A or A''' )
|
|
9931 FORMAT( 3X, I2, ': norm( (A*X-B)'' *A ) / ',
|
|
$ '( max(M,N,NRHS) * norm(A) * norm(B) * EPS )', / 7X,
|
|
$ 'if TRANS=''N'' and M.GE.N or TRANS=''T'' and M.LT.N, ',
|
|
$ 'otherwise', / 7X,
|
|
$ 'check if X is in the row space of A or A'' ',
|
|
$ '(overdetermined case)' )
|
|
9929 FORMAT( ' Test ratios (1-3: ', A1, 'TZRZF):' )
|
|
9920 FORMAT( 3X, ' 7-10: same as 3-6', 3X, ' 11-14: same as 3-6' )
|
|
9921 FORMAT( ' Test ratios:', / ' (1-2: ', A1, 'GELS, 3-6: ', A1,
|
|
$ 'GELSY, 7-10: ', A1, 'GELSS, 11-14: ', A1, 'GELSD)' )
|
|
9928 FORMAT( 7X, 'where ALPHA = ( 1 + SQRT( 17 ) ) / 8' )
|
|
9927 FORMAT( 3X, I2, ': ABS( Largest element in L )', / 12X,
|
|
$ ' - ( 1 / ( 1 - ALPHA ) ) + THRESH' )
|
|
9926 FORMAT( 3X, I2, ': Largest 2-Norm of 2-by-2 pivots', / 12X,
|
|
$ ' - ( ( 1 + ALPHA ) / ( 1 - ALPHA ) ) + THRESH' )
|
|
8011 FORMAT(3X,I2,': norm( R - Q''*A ) / ( M * norm(A) * EPS )' )
|
|
8012 FORMAT(3X,I2,': norm( I - Q''*Q ) / ( M * EPS )' )
|
|
8013 FORMAT(3X,I2,': norm( Q*C - Q*C ) / ( M * norm(C) * EPS )' )
|
|
8014 FORMAT(3X,I2,': norm( Q''*C - Q''*C ) / ( M * norm(C) * EPS )')
|
|
8015 FORMAT(3X,I2,': norm( C*Q - C*Q ) / ( M * norm(C) * EPS )' )
|
|
8016 FORMAT(3X,I2,': norm( C*Q'' - C*Q'' ) / ( M * norm(C) * EPS )')
|
|
8017 FORMAT(3X,I2,': norm( R - Q''*A ) / ( (M+N) * norm(A) * EPS )' )
|
|
8018 FORMAT(3X,I2,': norm( I - Q''*Q ) / ( (M+N) * EPS )' )
|
|
8019 FORMAT(3X,I2,': norm( Q*C - Q*C ) / ( (M+N) * norm(C) * EPS )' )
|
|
8020 FORMAT(3X,I2,
|
|
$ ': norm( Q''*C - Q''*C ) / ( (M+N) * norm(C) * EPS )')
|
|
8021 FORMAT(3X,I2,': norm( C*Q - C*Q ) / ( (M+N) * norm(C) * EPS )' )
|
|
8022 FORMAT(3X,I2,
|
|
$ ': norm( C*Q'' - C*Q'' ) / ( (M+N) * norm(C) * EPS )')
|
|
*
|
|
RETURN
|
|
*
|
|
* End of ALAHD
|
|
*
|
|
END
|