APPLYING INTEL PATCHES sent to Julie on Feb 19th 2016 by Dima from INTEL (dmitry...

Subject: [PATCH 07/42] Fix ?GESVJ - use DLASCL for SVA, not ZLASCL

- Also list real kind ?LASCL as EXTERNAL

diff --git a/SRC/cgesvj.f b/SRC/cgesvj.f
index 122ebdb32cfc9cb5cc75acd898ce773ad52ac6fe..953b0fee31c1191282ac9e06194052129f5f7030 100644 (file)
--- a/SRC/cgesvj.f
+++ b/SRC/cgesvj.f
@@ -387,7 +387,7 @@
 *     from BLAS
       EXTERNAL           CCOPY, CROT, CSSCAL, CSWAP
 *     from LAPACK
-      EXTERNAL           CLASCL, CLASET, CLASSQ, XERBLA
+      EXTERNAL           CLASCL, CLASET, CLASSQ, SLASCL, XERBLA
       EXTERNAL           CGSVJ0, CGSVJ1
 *     ..
 *     .. Executable Statements ..

diff --git a/SRC/zgesvj.f b/SRC/zgesvj.f
index f7a64f57cb768f14f4b1ff913af667d27201f264..c98bec53754af48e42fcbbbf392bba40e37f8331 100644 (file)
--- a/SRC/zgesvj.f
+++ b/SRC/zgesvj.f
@@ -403,7 +403,7 @@
 *     from BLAS
       EXTERNAL           ZCOPY, ZROT, ZDSCAL, ZSWAP
 *     from LAPACK
-      EXTERNAL           ZLASCL, ZLASET, ZLASSQ, XERBLA
+      EXTERNAL           DLASCL, ZLASCL, ZLASET, ZLASSQ, XERBLA
       EXTERNAL           ZGSVJ0, ZGSVJ1
 *     ..
 *     .. Executable Statements ..
@@ -668,7 +668,7 @@
 *     Scale, if necessary
 *
       IF( TEMP1.NE.ONE ) THEN
-         CALL ZLASCL( 'G', 0, 0, ONE, TEMP1, N, 1, SVA, N, IERR )
+         CALL DLASCL( 'G', 0, 0, ONE, TEMP1, N, 1, SVA, N, IERR )
       END IF
       SKL = TEMP1*SKL
       IF( SKL.NE.ONE ) THEN