rpl/lapack/lapack/dgbrfsx.f - diff

Return to dgbrfsx.f CVS log

Up to [local] / rpl / lapack / lapack

version 1.10, 2014/01/27 09:28:15	version 1.11, 2016/08/27 15:27:08
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' )