3 * =========== DOCUMENTATION ===========
5 * Online html documentation available at
6 * http://www.netlib.org/lapack/explore-html/
11 * SUBROUTINE CERRPS( PATH, NUNIT )
13 * .. Scalar Arguments ..
24 *> CERRPS tests the error exits for the COMPLEX routines
33 *> PATH is CHARACTER*3
34 *> The LAPACK path name for the routines to be tested.
40 *> The unit number for output.
46 *> \author Univ. of Tennessee
47 *> \author Univ. of California Berkeley
48 *> \author Univ. of Colorado Denver
51 *> \date November 2011
53 *> \ingroup complex_lin
55 * =====================================================================
56 SUBROUTINE CERRPS( PATH, NUNIT )
58 * -- LAPACK test routine (version 3.4.0) --
59 * -- LAPACK is a software package provided by Univ. of Tennessee, --
60 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
63 * .. Scalar Arguments ..
68 * =====================================================================
72 PARAMETER ( NMAX = 4 )
75 INTEGER I, INFO, J, RANK
78 COMPLEX A( NMAX, NMAX )
82 * .. External Subroutines ..
83 EXTERNAL ALAESM, CHKXER, CPSTF2, CPSTRF
85 * .. Scalars in Common ..
91 COMMON / INFOC / INFOT, NOUT, OK, LERR
92 COMMON / SRNAMC / SRNAMT
94 * .. Intrinsic Functions ..
97 * .. Executable Statements ..
100 WRITE( NOUT, FMT = * )
102 * Set the variables to innocuous values.
106 A( I, J ) = 1.0 / REAL( I+J )
117 * Test error exits of the routines that use the Cholesky
118 * decomposition of an Hermitian positive semidefinite matrix.
124 CALL CPSTRF( '/', 0, A, 1, PIV, RANK, -1.0, RWORK, INFO )
125 CALL CHKXER( 'CPSTRF', INFOT, NOUT, LERR, OK )
127 CALL CPSTRF( 'U', -1, A, 1, PIV, RANK, -1.0, RWORK, INFO )
128 CALL CHKXER( 'CPSTRF', INFOT, NOUT, LERR, OK )
130 CALL CPSTRF( 'U', 2, A, 1, PIV, RANK, -1.0, RWORK, INFO )
131 CALL CHKXER( 'CPSTRF', INFOT, NOUT, LERR, OK )
137 CALL CPSTF2( '/', 0, A, 1, PIV, RANK, -1.0, RWORK, INFO )
138 CALL CHKXER( 'CPSTF2', INFOT, NOUT, LERR, OK )
140 CALL CPSTF2( 'U', -1, A, 1, PIV, RANK, -1.0, RWORK, INFO )
141 CALL CHKXER( 'CPSTF2', INFOT, NOUT, LERR, OK )
143 CALL CPSTF2( 'U', 2, A, 1, PIV, RANK, -1.0, RWORK, INFO )
144 CALL CHKXER( 'CPSTF2', INFOT, NOUT, LERR, OK )
147 * Print a summary line.
149 CALL ALAESM( PATH, OK, NOUT )