version 1.10, 2014/01/27 09:28:15
|
version 1.12, 2016/08/27 15:34:20
|
Line 440
|
Line 440
|
$ ERR_BNDS_COMP, NPARAMS, PARAMS, WORK, IWORK, |
$ ERR_BNDS_COMP, NPARAMS, PARAMS, WORK, IWORK, |
$ INFO ) |
$ INFO ) |
* |
* |
* -- LAPACK computational routine (version 3.4.1) -- |
* -- LAPACK computational routine (version 3.6.1) -- |
* -- 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..-- |
* April 2012 |
* April 2012 |
Line 646
|
Line 646
|
* |
* |
* Perform refinement on each right-hand side |
* Perform refinement on each right-hand side |
* |
* |
IF (REF_TYPE .NE. 0) THEN |
IF ( REF_TYPE .NE. 0 .AND. INFO .EQ. 0 ) THEN |
|
|
PREC_TYPE = ILAPREC( 'E' ) |
PREC_TYPE = ILAPREC( 'E' ) |
|
|