From: Eugene Chereshnev Date: Mon, 29 Aug 2016 06:31:18 +0000 (+0700) Subject: Fix incorrect call to GEMM in ctrevc3.f and ztrevc3.f: alpha should have complex... X-Git-Tag: accepted/tizen/5.0/unified/20181102.024111~144^2 X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=633d65dc6afe9b12342f3d6add4bfc1a561a0b7f;p=platform%2Fupstream%2Flapack.git Fix incorrect call to GEMM in ctrevc3.f and ztrevc3.f: alpha should have complex type --- diff --git a/SRC/ctrevc3.f b/SRC/ctrevc3.f index 279f147..1340116 100644 --- a/SRC/ctrevc3.f +++ b/SRC/ctrevc3.f @@ -593,7 +593,7 @@ * When the number of vectors stored reaches NB, * or if this was last vector, do the GEMM IF( (IV.EQ.NB) .OR. (KI.EQ.N) ) THEN - CALL CGEMM( 'N', 'N', N, IV, N-KI+IV, ONE, + CALL CGEMM( 'N', 'N', N, IV, N-KI+IV, CONE, $ VL( 1, KI-IV+1 ), LDVL, $ WORK( KI-IV+1 + (1)*N ), N, $ CZERO, diff --git a/SRC/ztrevc3.f b/SRC/ztrevc3.f index ad23ae7..6656852 100644 --- a/SRC/ztrevc3.f +++ b/SRC/ztrevc3.f @@ -593,7 +593,7 @@ * When the number of vectors stored reaches NB, * or if this was last vector, do the GEMM IF( (IV.EQ.NB) .OR. (KI.EQ.N) ) THEN - CALL ZGEMM( 'N', 'N', N, IV, N-KI+IV, ONE, + CALL ZGEMM( 'N', 'N', N, IV, N-KI+IV, CONE, $ VL( 1, KI-IV+1 ), LDVL, $ WORK( KI-IV+1 + (1)*N ), N, $ CZERO,