- Notifications
You must be signed in to change notification settings - Fork 480
Description
[D,S]GEBD2 routines are being checked in /TESTING/EIG/[d,s]errbd.f.
For example:
$ less /TESTING/EIG/derrbd.f
. . . . .
91 * .. External Subroutines ..
92 EXTERNAL CHKXER, DBDSDC, DBDSQR, DBDSVDX, DGEBD2,
93 $ DGEBRD, DORGBR, DORMBR
. . . . .
143 *
144 * DGEBD2
145 *
146 SRNAMT = 'DGEBD2'
147 INFOT = 1
148 CALL DGEBD2( -1, 0, A, 1, D, E, TQ, TP, W, INFO )
149 CALL CHKXER( 'DGEBD2', INFOT, NOUT, LERR, OK )
150 INFOT = 2
151 CALL DGEBD2( 0, -1, A, 1, D, E, TQ, TP, W, INFO )
152 CALL CHKXER( 'DGEBD2', INFOT, NOUT, LERR, OK )
153 INFOT = 4
154 CALL DGEBD2( 2, 1, A, 1, D, E, TQ, TP, W, INFO )
155 CALL CHKXER( 'DGEBD2', INFOT, NOUT, LERR, OK )
156 NT = NT + 3
Also
*> SERRBD tests the error exits for SGEBD2, SGEBRD, SORGBR, SORMBR,
*> SBDSQR, SBDSDC and SBDSVDX
It seems, the same should be provided for CGEBD2 and ZGEBD2.