diff options
Diffstat (limited to 'TESTING/EIG/ddrgvx.f')
| -rw-r--r-- | TESTING/EIG/ddrgvx.f | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/TESTING/EIG/ddrgvx.f b/TESTING/EIG/ddrgvx.f index 0a8ce1de..b022bc11 100644 --- a/TESTING/EIG/ddrgvx.f +++ b/TESTING/EIG/ddrgvx.f @@ -509,6 +509,7 @@ RATIO2 = MAX( ABS( DIFTRU( 5 ) / DIF( 5 ) ), $ ABS( DIF( 5 ) / DIFTRU( 5 ) ) ) RESULT( 4 ) = MAX( RATIO1, RATIO2 ) + WRITE(*,*) " COUCOU" END IF * NTESTT = NTESTT + 4 |