Skip to content

Commit 6dec6b2

Browse files
author
scr2016
committed
in TESTING/LIN fixed zchkunhr_col.f zerrunhr_col.f zunhr_col01.f and deleted zchkorhr.f
1 parent 3ca8c5b commit 6dec6b2

File tree

4 files changed

+3
-242
lines changed

4 files changed

+3
-242
lines changed

TESTING/LIN/zchkorhr.f

Lines changed: 0 additions & 239 deletions
This file was deleted.

TESTING/LIN/zchkunhr_col.f

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -25,7 +25,7 @@
2525
*> \verbatim
2626
*>
2727
*> ZCHKUNHR_COL tests ZUNHR_COL using ZLATSQR and ZGEMQRT. Therefore, ZLATSQR
28-
*> (used in DGEQR) and ZGEMQRT (used in DGEMQR) have to be tested
28+
*> (used in ZGEQR) and ZGEMQRT (used in ZGEMQR) have to be tested
2929
*> before this test.
3030
*>
3131
*> \endverbatim

TESTING/LIN/zerrunhr_col.f

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -77,7 +77,7 @@ SUBROUTINE ZERRUNHR_COL( PATH, NUNIT )
7777
INTEGER I, INFO, J
7878
* ..
7979
* .. Local Arrays ..
80-
DOUBLE PRECISION A( NMAX, NMAX ), T( NMAX, NMAX ), D(NMAX)
80+
COMPLEX*16 A( NMAX, NMAX ), T( NMAX, NMAX ), D(NMAX)
8181
* ..
8282
* .. External Subroutines ..
8383
EXTERNAL ALAESM, CHKXER, ZUNHR_COL

TESTING/LIN/zunhr_col01.f

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -121,7 +121,7 @@ SUBROUTINE ZUNHR_COL01( M, N, MB1, NB1, NB2, RESULT )
121121
* ..
122122
* .. Local Arrays ..
123123
INTEGER ISEED( 4 )
124-
DOUBLE PRECISION WORKQUERY( 1 )
124+
COMPLEX*16 WORKQUERY( 1 )
125125
* ..
126126
* .. External Functions ..
127127
DOUBLE PRECISION DLAMCH, ZLANGE, ZLANSY

0 commit comments

Comments
 (0)