rpl/lapack/lapack/dstemr.f - diff

Return to dstemr.f CVS log

Up to [local] / rpl / lapack / lapack

version 1.4, 2010/08/06 15:32:34	version 1.5, 2010/08/07 13:18:08
Line 3	Line 3
$ IWORK, LIWORK, INFO )	$ IWORK, LIWORK, INFO )
IMPLICIT NONE	IMPLICIT NONE
*	*
* -- LAPACK computational routine (version 3.2.1) --	* -- LAPACK computational routine (version 3.2.2) --
* -- 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 2009 --	* -- June 2010 --
*	*
* .. Scalar Arguments ..	* .. Scalar Arguments ..
CHARACTER JOBZ, RANGE	CHARACTER JOBZ, RANGE
Line 391	Line 391
IF (SN.NE.ZERO) THEN	IF (SN.NE.ZERO) THEN
IF (CS.NE.ZERO) THEN	IF (CS.NE.ZERO) THEN
ISUPPZ(2*M-1) = 1	ISUPPZ(2*M-1) = 1
ISUPPZ(2*M-1) = 2	ISUPPZ(2*M) = 2
ELSE	ELSE
ISUPPZ(2*M-1) = 1	ISUPPZ(2*M-1) = 1
ISUPPZ(2*M-1) = 1	ISUPPZ(2*M) = 1
END IF	END IF
ELSE	ELSE
ISUPPZ(2*M-1) = 2	ISUPPZ(2*M-1) = 2
Line 415	Line 415
IF (SN.NE.ZERO) THEN	IF (SN.NE.ZERO) THEN
IF (CS.NE.ZERO) THEN	IF (CS.NE.ZERO) THEN
ISUPPZ(2*M-1) = 1	ISUPPZ(2*M-1) = 1
ISUPPZ(2*M-1) = 2	ISUPPZ(2*M) = 2
ELSE	ELSE
ISUPPZ(2*M-1) = 1	ISUPPZ(2*M-1) = 1
ISUPPZ(2*M-1) = 1	ISUPPZ(2*M) = 1
END IF	END IF
ELSE	ELSE
ISUPPZ(2*M-1) = 2	ISUPPZ(2*M-1) = 2