rpl/lapack/lapack/dlasd6.f - diff

Return to dlasd6.f CVS log

Up to [local] / rpl / lapack / lapack

version 1.7, 2010/08/13 21:03:52	version 1.8, 2010/12/21 13:48:05
Line 3	Line 3
$ LDGNUM, POLES, DIFL, DIFR, Z, K, C, S, WORK,	$ LDGNUM, POLES, DIFL, DIFR, Z, K, C, S, WORK,
$ IWORK, INFO )	$ IWORK, INFO )
*	*
* -- LAPACK auxiliary routine (version 3.2.2) --	* -- LAPACK auxiliary routine (version 3.3.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..--
* June 2010	* November 2010
*	*
* .. Scalar Arguments ..	* .. Scalar Arguments ..
INTEGER GIVPTR, ICOMPQ, INFO, K, LDGCOL, LDGNUM, NL,	INTEGER GIVPTR, ICOMPQ, INFO, K, LDGCOL, LDGNUM, NL,
Line 282	Line 282
CALL DLASD8( ICOMPQ, K, D, Z, VF, VL, DIFL, DIFR, LDGNUM,	CALL DLASD8( ICOMPQ, K, D, Z, VF, VL, DIFL, DIFR, LDGNUM,
$ WORK( ISIGMA ), WORK( IW ), INFO )	$ WORK( ISIGMA ), WORK( IW ), INFO )
*	*
	* Handle error returned
	*
	IF( INFO.NE.0 ) THEN
	CALL XERBLA( 'DLASD8', -INFO )
	RETURN
	END IF
	*
* Save the poles if ICOMPQ = 1.	* Save the poles if ICOMPQ = 1.
*	*
IF( ICOMPQ.EQ.1 ) THEN	IF( ICOMPQ.EQ.1 ) THEN