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