LAPACK  3.10.0
LAPACK: Linear Algebra PACKage

◆ serrqp()

subroutine serrqp ( character*3  PATH,
integer  NUNIT 
)

SERRQP

Purpose:
 SERRQP tests the error exits for SGEQP3.
Parameters
[in]PATH
          PATH is CHARACTER*3
          The LAPACK path name for the routines to be tested.
[in]NUNIT
          NUNIT is INTEGER
          The unit number for output.
Author
Univ. of Tennessee
Univ. of California Berkeley
Univ. of Colorado Denver
NAG Ltd.

Definition at line 53 of file serrqp.f.

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 *
subroutine chkxer(SRNAMT, INFOT, NOUT, LERR, OK)
Definition: cblat2.f:3196
logical function lsamen(N, CA, CB)
LSAMEN
Definition: lsamen.f:74
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
Here is the call graph for this function: