LAPACK  3.10.1
LAPACK: Linear Algebra PACKage

◆ derrqp()

subroutine derrqp ( character*3  PATH,
integer  NUNIT 
)

DERRQP

Purpose:
 DERRQP tests the error exits for DGEQP3.
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 derrqp.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  DOUBLE PRECISION 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, dgeqp3
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.0d+0
101  a( 1, 2 ) = 2.0d+0
102  a( 2, 2 ) = 3.0d+0
103  a( 2, 1 ) = 4.0d+0
104  ok = .true.
105 *
106  IF( lsamen( 2, c2, 'QP' ) ) THEN
107 *
108 * Test error exits for QR factorization with pivoting
109 *
110 * DGEQP3
111 *
112  srnamt = 'DGEQP3'
113  infot = 1
114  CALL dgeqp3( -1, 0, a, 1, ip, tau, w, lw, info )
115  CALL chkxer( 'DGEQP3', infot, nout, lerr, ok )
116  infot = 2
117  CALL dgeqp3( 1, -1, a, 1, ip, tau, w, lw, info )
118  CALL chkxer( 'DGEQP3', infot, nout, lerr, ok )
119  infot = 4
120  CALL dgeqp3( 2, 3, a, 1, ip, tau, w, lw, info )
121  CALL chkxer( 'DGEQP3', infot, nout, lerr, ok )
122  infot = 8
123  CALL dgeqp3( 2, 2, a, 2, ip, tau, w, lw-10, info )
124  CALL chkxer( 'DGEQP3', 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 DERRQP
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 dgeqp3(M, N, A, LDA, JPVT, TAU, WORK, LWORK, INFO)
DGEQP3
Definition: dgeqp3.f:151
Here is the call graph for this function: