--- rpl/lapack/lapack/ilaenv.f 2014/01/27 09:28:30 1.13 +++ rpl/lapack/lapack/ilaenv.f 2015/11/26 11:44:21 1.14 @@ -82,7 +82,7 @@ *> =10: ieee NaN arithmetic can be trusted not to trap *> =11: infinity arithmetic can be trusted not to trap *> 12 <= ISPEC <= 16: -*> xHSEQR or one of its subroutines, +*> xHSEQR or related subroutines, *> see IPARMQ for detailed explanation *> \endverbatim *> @@ -132,7 +132,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date November 2015 * *> \ingroup auxOTHERauxiliary * @@ -162,10 +162,10 @@ * ===================================================================== INTEGER FUNCTION ILAENV( ISPEC, NAME, OPTS, N1, N2, N3, N4 ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.6.0) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* November 2015 * * .. Scalar Arguments .. CHARACTER*( * ) NAME, OPTS @@ -410,6 +410,15 @@ IF( C3.EQ.'EBZ' ) THEN NB = 1 END IF + ELSE IF( C2.EQ.'GG' ) THEN + NB = 32 + IF( C3.EQ.'HD3' ) THEN + IF( SNAME ) THEN + NB = 32 + ELSE + NB = 32 + END IF + END IF END IF ILAENV = NB RETURN @@ -488,6 +497,11 @@ NBMIN = 2 END IF END IF + ELSE IF( C2.EQ.'GG' ) THEN + NBMIN = 2 + IF( C3.EQ.'HD3' ) THEN + NBMIN = 2 + END IF END IF ILAENV = NBMIN RETURN @@ -542,6 +556,11 @@ NX = 128 END IF END IF + ELSE IF( C2.EQ.'GG' ) THEN + NX = 128 + IF( C3.EQ.'HD3' ) THEN + NX = 128 + END IF END IF ILAENV = NX RETURN @@ -614,7 +633,7 @@ * 160 CONTINUE * -* 12 <= ISPEC <= 16: xHSEQR or one of its subroutines. +* 12 <= ISPEC <= 16: xHSEQR or related subroutines. * ILAENV = IPARMQ( ISPEC, NAME, OPTS, N1, N2, N3, N4 ) RETURN