Skip to content

Commit 3610ceb

Browse files
langoulangou
authored
Merge pull request #1119 from dklyuchinskiy/lapack-fix-geev-err-test
fix missed error message in test for eigenvalue driver routines ed
2 parents ca82e5e + ea84abe commit 3610ceb

File tree

4 files changed

+24
-24
lines changed

4 files changed

+24
-24
lines changed

‎TESTING/EIG/cerred.f

+6-6
Original file line numberDiff line numberDiff line change
@@ -332,7 +332,7 @@ SUBROUTINE CERRED( PATH, NUNIT )
332332
WRITE( NOUT, FMT = 9999 )SRNAMT( 1:LEN_TRIM( SRNAMT ) ),
333333
$ NT
334334
ELSE
335-
WRITE( NOUT, FMT = 9998 )
335+
WRITE( NOUT, FMT = 9998 )SRNAMT( 1:LEN_TRIM( SRNAMT ) )
336336
END IF
337337
*
338338
* Test CGESDD
@@ -367,7 +367,7 @@ SUBROUTINE CERRED( PATH, NUNIT )
367367
WRITE( NOUT, FMT = 9999 )SRNAMT( 1:LEN_TRIM( SRNAMT ) ),
368368
$ NT
369369
ELSE
370-
WRITE( NOUT, FMT = 9998 )
370+
WRITE( NOUT, FMT = 9998 )SRNAMT( 1:LEN_TRIM( SRNAMT ) )
371371
END IF
372372
*
373373
* Test CGEJSV
@@ -433,7 +433,7 @@ SUBROUTINE CERRED( PATH, NUNIT )
433433
WRITE( NOUT, FMT = 9999 )SRNAMT( 1:LEN_TRIM( SRNAMT ) ),
434434
$ NT
435435
ELSE
436-
WRITE( NOUT, FMT = 9998 )
436+
WRITE( NOUT, FMT = 9998 )SRNAMT( 1:LEN_TRIM( SRNAMT ) )
437437
END IF
438438
*
439439
* Test CGESVDX
@@ -492,7 +492,7 @@ SUBROUTINE CERRED( PATH, NUNIT )
492492
WRITE( NOUT, FMT = 9999 )SRNAMT( 1:LEN_TRIM( SRNAMT ) ),
493493
$ NT
494494
ELSE
495-
WRITE( NOUT, FMT = 9998 )
495+
WRITE( NOUT, FMT = 9998 )SRNAMT( 1:LEN_TRIM( SRNAMT ) )
496496
END IF
497497
*
498498
* Test CGESVDQ
@@ -547,7 +547,7 @@ SUBROUTINE CERRED( PATH, NUNIT )
547547
WRITE( NOUT, FMT = 9999 )SRNAMT( 1:LEN_TRIM( SRNAMT ) ),
548548
$ NT
549549
ELSE
550-
WRITE( NOUT, FMT = 9998 )
550+
WRITE( NOUT, FMT = 9998 )SRNAMT( 1:LEN_TRIM( SRNAMT ) )
551551
END IF
552552
END IF
553553
*
@@ -558,7 +558,7 @@ SUBROUTINE CERRED( PATH, NUNIT )
558558
WRITE( NOUT, FMT = 9999 )SRNAMT( 1:LEN_TRIM( SRNAMT ) ),
559559
$ NT
560560
ELSE
561-
WRITE( NOUT, FMT = 9998 )
561+
WRITE( NOUT, FMT = 9998 )SRNAMT( 1:LEN_TRIM( SRNAMT ) )
562562
END IF
563563
END IF
564564
*

‎TESTING/EIG/derred.f

+6-6
Original file line numberDiff line numberDiff line change
@@ -329,7 +329,7 @@ SUBROUTINE DERRED( PATH, NUNIT )
329329
WRITE( NOUT, FMT = 9999 )SRNAMT( 1:LEN_TRIM( SRNAMT ) ),
330330
$ NT
331331
ELSE
332-
WRITE( NOUT, FMT = 9998 )
332+
WRITE( NOUT, FMT = 9998 )SRNAMT( 1:LEN_TRIM( SRNAMT ) )
333333
END IF
334334
*
335335
* Test DGESDD
@@ -358,7 +358,7 @@ SUBROUTINE DERRED( PATH, NUNIT )
358358
WRITE( NOUT, FMT = 9999 )SRNAMT( 1:LEN_TRIM( SRNAMT ) ),
359359
$ NT
360360
ELSE
361-
WRITE( NOUT, FMT = 9998 )
361+
WRITE( NOUT, FMT = 9998 )SRNAMT( 1:LEN_TRIM( SRNAMT ) )
362362
END IF
363363
*
364364
* Test DGEJSV
@@ -424,7 +424,7 @@ SUBROUTINE DERRED( PATH, NUNIT )
424424
WRITE( NOUT, FMT = 9999 )SRNAMT( 1:LEN_TRIM( SRNAMT ) ),
425425
$ NT
426426
ELSE
427-
WRITE( NOUT, FMT = 9998 )
427+
WRITE( NOUT, FMT = 9998 )SRNAMT( 1:LEN_TRIM( SRNAMT ) )
428428
END IF
429429
*
430430
* Test DGESVDX
@@ -483,7 +483,7 @@ SUBROUTINE DERRED( PATH, NUNIT )
483483
WRITE( NOUT, FMT = 9999 )SRNAMT( 1:LEN_TRIM( SRNAMT ) ),
484484
$ NT
485485
ELSE
486-
WRITE( NOUT, FMT = 9998 )
486+
WRITE( NOUT, FMT = 9998 )SRNAMT( 1:LEN_TRIM( SRNAMT ) )
487487
END IF
488488
*
489489
* Test DGESVDQ
@@ -538,7 +538,7 @@ SUBROUTINE DERRED( PATH, NUNIT )
538538
WRITE( NOUT, FMT = 9999 )SRNAMT( 1:LEN_TRIM( SRNAMT ) ),
539539
$ NT
540540
ELSE
541-
WRITE( NOUT, FMT = 9998 )
541+
WRITE( NOUT, FMT = 9998 )SRNAMT( 1:LEN_TRIM( SRNAMT ) )
542542
END IF
543543
END IF
544544
*
@@ -549,7 +549,7 @@ SUBROUTINE DERRED( PATH, NUNIT )
549549
WRITE( NOUT, FMT = 9999 )SRNAMT( 1:LEN_TRIM( SRNAMT ) ),
550550
$ NT
551551
ELSE
552-
WRITE( NOUT, FMT = 9998 )
552+
WRITE( NOUT, FMT = 9998 )SRNAMT( 1:LEN_TRIM( SRNAMT ) )
553553
END IF
554554
END IF
555555
*

‎TESTING/EIG/serred.f

+6-6
Original file line numberDiff line numberDiff line change
@@ -329,7 +329,7 @@ SUBROUTINE SERRED( PATH, NUNIT )
329329
WRITE( NOUT, FMT = 9999 )SRNAMT( 1:LEN_TRIM( SRNAMT ) ),
330330
$ NT
331331
ELSE
332-
WRITE( NOUT, FMT = 9998 )
332+
WRITE( NOUT, FMT = 9998 )SRNAMT( 1:LEN_TRIM( SRNAMT ) )
333333
END IF
334334
*
335335
* Test SGESDD
@@ -358,7 +358,7 @@ SUBROUTINE SERRED( PATH, NUNIT )
358358
WRITE( NOUT, FMT = 9999 )SRNAMT( 1:LEN_TRIM( SRNAMT ) ),
359359
$ NT
360360
ELSE
361-
WRITE( NOUT, FMT = 9998 )
361+
WRITE( NOUT, FMT = 9998 )SRNAMT( 1:LEN_TRIM( SRNAMT ) )
362362
END IF
363363
*
364364
* Test SGEJSV
@@ -424,7 +424,7 @@ SUBROUTINE SERRED( PATH, NUNIT )
424424
WRITE( NOUT, FMT = 9999 )SRNAMT( 1:LEN_TRIM( SRNAMT ) ),
425425
$ NT
426426
ELSE
427-
WRITE( NOUT, FMT = 9998 )
427+
WRITE( NOUT, FMT = 9998 )SRNAMT( 1:LEN_TRIM( SRNAMT ) )
428428
END IF
429429
*
430430
* Test SGESVDX
@@ -483,7 +483,7 @@ SUBROUTINE SERRED( PATH, NUNIT )
483483
WRITE( NOUT, FMT = 9999 )SRNAMT( 1:LEN_TRIM( SRNAMT ) ),
484484
$ NT
485485
ELSE
486-
WRITE( NOUT, FMT = 9998 )
486+
WRITE( NOUT, FMT = 9998 )SRNAMT( 1:LEN_TRIM( SRNAMT ) )
487487
END IF
488488
*
489489
* Test SGESVDQ
@@ -538,7 +538,7 @@ SUBROUTINE SERRED( PATH, NUNIT )
538538
WRITE( NOUT, FMT = 9999 )SRNAMT( 1:LEN_TRIM( SRNAMT ) ),
539539
$ NT
540540
ELSE
541-
WRITE( NOUT, FMT = 9998 )
541+
WRITE( NOUT, FMT = 9998 )SRNAMT( 1:LEN_TRIM( SRNAMT ) )
542542
END IF
543543
END IF
544544
*
@@ -549,7 +549,7 @@ SUBROUTINE SERRED( PATH, NUNIT )
549549
WRITE( NOUT, FMT = 9999 )SRNAMT( 1:LEN_TRIM( SRNAMT ) ),
550550
$ NT
551551
ELSE
552-
WRITE( NOUT, FMT = 9998 )
552+
WRITE( NOUT, FMT = 9998 )SRNAMT( 1:LEN_TRIM( SRNAMT ) )
553553
END IF
554554
END IF
555555
*

‎TESTING/EIG/zerred.f

+6-6
Original file line numberDiff line numberDiff line change
@@ -332,7 +332,7 @@ SUBROUTINE ZERRED( PATH, NUNIT )
332332
WRITE( NOUT, FMT = 9999 )SRNAMT( 1:LEN_TRIM( SRNAMT ) ),
333333
$ NT
334334
ELSE
335-
WRITE( NOUT, FMT = 9998 )
335+
WRITE( NOUT, FMT = 9998 )SRNAMT( 1:LEN_TRIM( SRNAMT ) )
336336
END IF
337337
*
338338
* Test ZGESDD
@@ -367,7 +367,7 @@ SUBROUTINE ZERRED( PATH, NUNIT )
367367
WRITE( NOUT, FMT = 9999 )SRNAMT( 1:LEN_TRIM( SRNAMT ) ),
368368
$ NT
369369
ELSE
370-
WRITE( NOUT, FMT = 9998 )
370+
WRITE( NOUT, FMT = 9998 )SRNAMT( 1:LEN_TRIM( SRNAMT ) )
371371
END IF
372372
*
373373
* Test ZGEJSV
@@ -433,7 +433,7 @@ SUBROUTINE ZERRED( PATH, NUNIT )
433433
WRITE( NOUT, FMT = 9999 )SRNAMT( 1:LEN_TRIM( SRNAMT ) ),
434434
$ NT
435435
ELSE
436-
WRITE( NOUT, FMT = 9998 )
436+
WRITE( NOUT, FMT = 9998 )SRNAMT( 1:LEN_TRIM( SRNAMT ) )
437437
END IF
438438
*
439439
* Test ZGESVDX
@@ -492,7 +492,7 @@ SUBROUTINE ZERRED( PATH, NUNIT )
492492
WRITE( NOUT, FMT = 9999 )SRNAMT( 1:LEN_TRIM( SRNAMT ) ),
493493
$ NT
494494
ELSE
495-
WRITE( NOUT, FMT = 9998 )
495+
WRITE( NOUT, FMT = 9998 )SRNAMT( 1:LEN_TRIM( SRNAMT ) )
496496
END IF
497497
*
498498
* Test ZGESVDQ
@@ -547,7 +547,7 @@ SUBROUTINE ZERRED( PATH, NUNIT )
547547
WRITE( NOUT, FMT = 9999 )SRNAMT( 1:LEN_TRIM( SRNAMT ) ),
548548
$ NT
549549
ELSE
550-
WRITE( NOUT, FMT = 9998 )
550+
WRITE( NOUT, FMT = 9998 )SRNAMT( 1:LEN_TRIM( SRNAMT ) )
551551
END IF
552552
END IF
553553
*
@@ -558,7 +558,7 @@ SUBROUTINE ZERRED( PATH, NUNIT )
558558
WRITE( NOUT, FMT = 9999 )SRNAMT( 1:LEN_TRIM( SRNAMT ) ),
559559
$ NT
560560
ELSE
561-
WRITE( NOUT, FMT = 9998 )
561+
WRITE( NOUT, FMT = 9998 )SRNAMT( 1:LEN_TRIM( SRNAMT ) )
562562
END IF
563563
END IF
564564
*

0 commit comments

Comments
 (0)