From eabc74a2e9e42cc6b7fdbc7630a24ca8d656c7b4 Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Wed, 22 Feb 2017 09:04:33 +0100 Subject: Fix missing comma on continued line EXTERNAL declaration of subroutines missed a comma before the continuation line, causing a strange run-together name to appear in the object when compiled with ifort. --- SRC/chbev_2stage.f | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/SRC/chbev_2stage.f b/SRC/chbev_2stage.f index ff115062..5ced8c97 100644 --- a/SRC/chbev_2stage.f +++ b/SRC/chbev_2stage.f @@ -247,7 +247,7 @@ EXTERNAL LSAME, SLAMCH, CLANHB, ILAENV * .. * .. External Subroutines .. - EXTERNAL SSCAL, SSTERF, XERBLA, CLASCL, CSTEQR + EXTERNAL SSCAL, SSTERF, XERBLA, CLASCL, CSTEQR, $ CHETRD_2STAGE * .. * .. Intrinsic Functions .. -- cgit v1.2.3 From 88827fba79d9e21623f1ff53929b15c31f0c19f5 Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Wed, 22 Feb 2017 09:06:30 +0100 Subject: Fix missing comma on continued line EXTERNAL declaration of subroutines missed a comma before the continuation line, causing a strange run-together name to appear in the object when compiled with ifort. --- SRC/dsbev_2stage.f | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/SRC/dsbev_2stage.f b/SRC/dsbev_2stage.f index 12ce3337..c66b4049 100644 --- a/SRC/dsbev_2stage.f +++ b/SRC/dsbev_2stage.f @@ -239,7 +239,7 @@ EXTERNAL LSAME, DLAMCH, DLANSB, ILAENV * .. * .. External Subroutines .. - EXTERNAL DLASCL, DSCAL, DSTEQR, DSTERF, XERBLA + EXTERNAL DLASCL, DSCAL, DSTEQR, DSTERF, XERBLA, $ DSYTRD_SB2ST * .. * .. Intrinsic Functions .. -- cgit v1.2.3 From d133f50ff3f35a98e86911f0a5968f21be58e86b Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Wed, 22 Feb 2017 09:07:58 +0100 Subject: Fix missing comma on continued line EXTERNAL declaration of subroutines missed a comma before the continuation line, causing a strange run-together name to appear in the object when compiled with ifort. --- SRC/ssbev_2stage.f | 2 +- SRC/zhbev_2stage.f | 2 +- SRC/ztrevc3.f | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/SRC/ssbev_2stage.f b/SRC/ssbev_2stage.f index fc6360c5..f77368ab 100644 --- a/SRC/ssbev_2stage.f +++ b/SRC/ssbev_2stage.f @@ -239,7 +239,7 @@ EXTERNAL LSAME, SLAMCH, SLANSB, ILAENV * .. * .. External Subroutines .. - EXTERNAL SLASCL, SSCAL, SSTEQR, SSTERF, XERBLA + EXTERNAL SLASCL, SSCAL, SSTEQR, SSTERF, XERBLA, $ SSYTRD_SB2ST * .. * .. Intrinsic Functions .. diff --git a/SRC/zhbev_2stage.f b/SRC/zhbev_2stage.f index e30162dc..bb0faefd 100644 --- a/SRC/zhbev_2stage.f +++ b/SRC/zhbev_2stage.f @@ -247,7 +247,7 @@ EXTERNAL LSAME, DLAMCH, ZLANHB, ILAENV * .. * .. External Subroutines .. - EXTERNAL DSCAL, DSTERF, XERBLA, ZLASCL, ZSTEQR + EXTERNAL DSCAL, DSTERF, XERBLA, ZLASCL, ZSTEQR, $ ZHETRD_2STAGE * .. * .. Intrinsic Functions .. diff --git a/SRC/ztrevc3.f b/SRC/ztrevc3.f index 9ab8b42b..ef833117 100644 --- a/SRC/ztrevc3.f +++ b/SRC/ztrevc3.f @@ -287,7 +287,7 @@ EXTERNAL LSAME, ILAENV, IZAMAX, DLAMCH, DZASUM * .. * .. External Subroutines .. - EXTERNAL XERBLA, ZCOPY, ZDSCAL, ZGEMV, ZLATRS + EXTERNAL XERBLA, ZCOPY, ZDSCAL, ZGEMV, ZLATRS, $ ZGEMM, DLABAD, ZLASET * .. * .. Intrinsic Functions .. -- cgit v1.2.3