LAPACK 3.12.0
LAPACK: Linear Algebra PACKage
Loading...
Searching...
No Matches
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 alaesm(path, ok, nout)
ALAESM
Definition alaesm.f:63
subroutine chkxer(srnamt, infot, nout, lerr, ok)
Definition cblat2.f:3224
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