diff options
| author | Renegade <Renegate@Renegates-MacBook-Pro.local> | 2016-11-06 20:35:15 -0500 |
|---|---|---|
| committer | Renegade <Renegate@Renegates-MacBook-Pro.local> | 2016-11-06 20:35:15 -0500 |
| commit | b9c9d7631188cdf4c658a808a0748dbef848b863 (patch) | |
| tree | a18908ffdfd87e880c8ef219fa3fcb7357f307ba /TESTING/EIG/ilaenv.f | |
| parent | f9c3afd2ecda142d2e54a1fad7b7b6c157626166 (diff) | |
| download | lapack-b9c9d7631188cdf4c658a808a0748dbef848b863.tar.gz lapack-b9c9d7631188cdf4c658a808a0748dbef848b863.tar.bz2 lapack-b9c9d7631188cdf4c658a808a0748dbef848b863.zip | |
adding the 2stage symmetric eigenvalue routines drivers checking
Diffstat (limited to 'TESTING/EIG/ilaenv.f')
| -rw-r--r-- | TESTING/EIG/ilaenv.f | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/TESTING/EIG/ilaenv.f b/TESTING/EIG/ilaenv.f index 90f80077..6fca6fcb 100644 --- a/TESTING/EIG/ilaenv.f +++ b/TESTING/EIG/ilaenv.f @@ -229,6 +229,16 @@ C ILAENV = 0 * WRITE(*,*) 'ISPEC = ',ISPEC,' ILAENV =',ILAENV * ILAENV = IPARMQ( ISPEC, NAME, OPTS, N1, N2, N3, N4 ) * + ELSE IF(( ISPEC.GE.17 ) .AND. (ISPEC.LE.21)) THEN +* +* 17 <= ISPEC <= 21: 2stage eigenvalues SVD routines. +* + IF( ISPEC.EQ.17 ) THEN + ILAENV = IPARMS( 1 ) + ELSE + ILAENV = IPARAM2STAGE( ISPEC, NAME, OPTS, N1, N2, N3, N4 ) + ENDIF +* ELSE * * Invalid value for ISPEC |