LAPACK  3.10.1
LAPACK: Linear Algebra PACKage
serrqp.f
Go to the documentation of this file.
1 *> \brief \b SERRQP
2 *
3 * =========== DOCUMENTATION ===========
4 *
5 * Online html documentation available at
6 * http://www.netlib.org/lapack/explore-html/
7 *
8 * Definition:
9 * ===========
10 *
11 * SUBROUTINE SERRQP( PATH, NUNIT )
12 *
13 * .. Scalar Arguments ..
14 * CHARACTER*3 PATH
15 * INTEGER NUNIT
16 * ..
17 *
18 *
19 *> \par Purpose:
20 * =============
21 *>
22 *> \verbatim
23 *>
24 *> SERRQP tests the error exits for SGEQP3.
25 *> \endverbatim
26 *
27 * Arguments:
28 * ==========
29 *
30 *> \param[in] PATH
31 *> \verbatim
32 *> PATH is CHARACTER*3
33 *> The LAPACK path name for the routines to be tested.
34 *> \endverbatim
35 *>
36 *> \param[in] NUNIT
37 *> \verbatim
38 *> NUNIT is INTEGER
39 *> The unit number for output.
40 *> \endverbatim
41 *
42 * Authors:
43 * ========
44 *
45 *> \author Univ. of Tennessee
46 *> \author Univ. of California Berkeley
47 *> \author Univ. of Colorado Denver
48 *> \author NAG Ltd.
49 *
50 *> \ingroup single_lin
51 *
52 * =====================================================================
53  SUBROUTINE serrqp( PATH, NUNIT )
54 *
55 * -- LAPACK test routine --
56 * -- LAPACK is a software package provided by Univ. of Tennessee, --
57 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
58 *
59 * .. Scalar Arguments ..
60  CHARACTER*3 PATH
61  INTEGER NUNIT
62 * ..
63 *
64 * =====================================================================
65 *
66 * .. Parameters ..
67  INTEGER NMAX
68  parameter( nmax = 3 )
69 * ..
70 * .. Local Scalars ..
71  CHARACTER*2 C2
72  INTEGER INFO, LW
73 * ..
74 * .. Local Arrays ..
75  INTEGER IP( NMAX )
76  REAL A( NMAX, NMAX ), TAU( NMAX ), W( 3*NMAX+1 )
77 * ..
78 * .. External Functions ..
79  LOGICAL LSAMEN
80  EXTERNAL lsamen
81 * ..
82 * .. External Subroutines ..
83  EXTERNAL alaesm, chkxer, sgeqp3
84 * ..
85 * .. Scalars in Common ..
86  LOGICAL LERR, OK
87  CHARACTER*32 SRNAMT
88  INTEGER INFOT, NOUT
89 * ..
90 * .. Common blocks ..
91  COMMON / infoc / infot, nout, ok, lerr
92  COMMON / srnamc / srnamt
93 * ..
94 * .. Executable Statements ..
95 *
96  nout = nunit
97  WRITE( nout, fmt = * )
98  c2 = path( 2: 3 )
99  lw = 3*nmax + 1
100  a( 1, 1 ) = 1.0e+0
101  a( 1, 2 ) = 2.0e+0
102  a( 2, 2 ) = 3.0e+0
103  a( 2, 1 ) = 4.0e+0
104  ok = .true.
105 *
106  IF( lsamen( 2, c2, 'QP' ) ) THEN
107 *
108 * Test error exits for QR factorization with pivoting
109 *
110 * SGEQP3
111 *
112  srnamt = 'SGEQP3'
113  infot = 1
114  CALL sgeqp3( -1, 0, a, 1, ip, tau, w, lw, info )
115  CALL chkxer( 'SGEQP3', infot, nout, lerr, ok )
116  infot = 2
117  CALL sgeqp3( 1, -1, a, 1, ip, tau, w, lw, info )
118  CALL chkxer( 'SGEQP3', infot, nout, lerr, ok )
119  infot = 4
120  CALL sgeqp3( 2, 3, a, 1, ip, tau, w, lw, info )
121  CALL chkxer( 'SGEQP3', infot, nout, lerr, ok )
122  infot = 8
123  CALL sgeqp3( 2, 2, a, 2, ip, tau, w, lw-10, info )
124  CALL chkxer( 'SGEQP3', infot, nout, lerr, ok )
125  END IF
126 *
127 * Print a summary line.
128 *
129  CALL alaesm( path, ok, nout )
130 *
131  RETURN
132 *
133 * End of SERRQP
134 *
135  END
subroutine chkxer(SRNAMT, INFOT, NOUT, LERR, OK)
Definition: cblat2.f:3196
subroutine alaesm(PATH, OK, NOUT)
ALAESM
Definition: alaesm.f:63
subroutine sgeqp3(M, N, A, LDA, JPVT, TAU, WORK, LWORK, INFO)
SGEQP3
Definition: sgeqp3.f:151
subroutine serrqp(PATH, NUNIT)
SERRQP
Definition: serrqp.f:54