From e9a63a077e91943983284a07205806a59d5b938c Mon Sep 17 00:00:00 2001 From: Nick Papior Date: Thu, 1 Sep 2016 22:01:13 +0200 Subject: [PATCH] bug: external definitions not called, removed A couple of routines where defining external routines, but they where never called. These have been removed Signed-off-by: Nick Papior --- SRC/cla_herpvgrw.f | 2 +- SRC/cla_porpvgrw.f | 2 +- SRC/cla_syrpvgrw.f | 2 +- SRC/dla_porpvgrw.f | 2 +- SRC/dla_syrpvgrw.f | 2 +- SRC/sla_porpvgrw.f | 2 +- SRC/sla_syrcond.f | 2 +- SRC/sla_syrpvgrw.f | 2 +- SRC/zla_herpvgrw.f | 2 +- SRC/zla_porpvgrw.f | 2 +- SRC/zla_syrpvgrw.f | 2 +- 11 files changed, 11 insertions(+), 11 deletions(-) diff --git a/SRC/cla_herpvgrw.f b/SRC/cla_herpvgrw.f index f99f005..5061cf8 100644 --- a/SRC/cla_herpvgrw.f +++ b/SRC/cla_herpvgrw.f @@ -147,7 +147,7 @@ COMPLEX ZDUM * .. * .. External Functions .. - EXTERNAL LSAME, CLASET + EXTERNAL LSAME * .. * .. Intrinsic Functions .. INTRINSIC ABS, REAL, AIMAG, MAX, MIN diff --git a/SRC/cla_porpvgrw.f b/SRC/cla_porpvgrw.f index c20d9c5..34a72e1 100644 --- a/SRC/cla_porpvgrw.f +++ b/SRC/cla_porpvgrw.f @@ -128,7 +128,7 @@ COMPLEX ZDUM * .. * .. External Functions .. - EXTERNAL LSAME, CLASET + EXTERNAL LSAME LOGICAL LSAME * .. * .. Intrinsic Functions .. diff --git a/SRC/cla_syrpvgrw.f b/SRC/cla_syrpvgrw.f index 8dbfc91..babc331 100644 --- a/SRC/cla_syrpvgrw.f +++ b/SRC/cla_syrpvgrw.f @@ -150,7 +150,7 @@ INTRINSIC ABS, REAL, AIMAG, MAX, MIN * .. * .. External Subroutines .. - EXTERNAL LSAME, CLASET + EXTERNAL LSAME LOGICAL LSAME * .. * .. Statement Functions .. diff --git a/SRC/dla_porpvgrw.f b/SRC/dla_porpvgrw.f index 13d8041..54b131d 100644 --- a/SRC/dla_porpvgrw.f +++ b/SRC/dla_porpvgrw.f @@ -130,7 +130,7 @@ INTRINSIC ABS, MAX, MIN * .. * .. External Functions .. - EXTERNAL LSAME, DLASET + EXTERNAL LSAME LOGICAL LSAME * .. * .. Executable Statements .. diff --git a/SRC/dla_syrpvgrw.f b/SRC/dla_syrpvgrw.f index 5741554..cf7f856 100644 --- a/SRC/dla_syrpvgrw.f +++ b/SRC/dla_syrpvgrw.f @@ -147,7 +147,7 @@ INTRINSIC ABS, MAX, MIN * .. * .. External Functions .. - EXTERNAL LSAME, DLASET + EXTERNAL LSAME LOGICAL LSAME * .. * .. Executable Statements .. diff --git a/SRC/sla_porpvgrw.f b/SRC/sla_porpvgrw.f index 6bc01f8..65dd38c 100644 --- a/SRC/sla_porpvgrw.f +++ b/SRC/sla_porpvgrw.f @@ -128,7 +128,7 @@ INTRINSIC ABS, MAX, MIN * .. * .. External Functions .. - EXTERNAL LSAME, SLASET + EXTERNAL LSAME LOGICAL LSAME * .. * .. Executable Statements .. diff --git a/SRC/sla_syrcond.f b/SRC/sla_syrcond.f index c4902c7..448d4e2 100644 --- a/SRC/sla_syrcond.f +++ b/SRC/sla_syrcond.f @@ -178,7 +178,7 @@ EXTERNAL LSAME, ISAMAX, SLAMCH * .. * .. External Subroutines .. - EXTERNAL SLACN2, SLATRS, SRSCL, XERBLA, SSYTRS + EXTERNAL SLACN2, XERBLA, SSYTRS * .. * .. Intrinsic Functions .. INTRINSIC ABS, MAX diff --git a/SRC/sla_syrpvgrw.f b/SRC/sla_syrpvgrw.f index a9cfde2..2252b05 100644 --- a/SRC/sla_syrpvgrw.f +++ b/SRC/sla_syrpvgrw.f @@ -147,7 +147,7 @@ INTRINSIC ABS, MAX, MIN * .. * .. External Functions .. - EXTERNAL LSAME, SLASET + EXTERNAL LSAME LOGICAL LSAME * .. * .. Executable Statements .. diff --git a/SRC/zla_herpvgrw.f b/SRC/zla_herpvgrw.f index acdb1fa..7217143 100644 --- a/SRC/zla_herpvgrw.f +++ b/SRC/zla_herpvgrw.f @@ -147,7 +147,7 @@ COMPLEX*16 ZDUM * .. * .. External Functions .. - EXTERNAL LSAME, ZLASET + EXTERNAL LSAME * .. * .. Intrinsic Functions .. INTRINSIC ABS, REAL, DIMAG, MAX, MIN diff --git a/SRC/zla_porpvgrw.f b/SRC/zla_porpvgrw.f index 5c850a8..551426f 100644 --- a/SRC/zla_porpvgrw.f +++ b/SRC/zla_porpvgrw.f @@ -130,7 +130,7 @@ COMPLEX*16 ZDUM * .. * .. External Functions .. - EXTERNAL LSAME, ZLASET + EXTERNAL LSAME LOGICAL LSAME * .. * .. Intrinsic Functions .. diff --git a/SRC/zla_syrpvgrw.f b/SRC/zla_syrpvgrw.f index ac983ea..490102f 100644 --- a/SRC/zla_syrpvgrw.f +++ b/SRC/zla_syrpvgrw.f @@ -150,7 +150,7 @@ INTRINSIC ABS, REAL, DIMAG, MAX, MIN * .. * .. External Subroutines .. - EXTERNAL LSAME, ZLASET + EXTERNAL LSAME LOGICAL LSAME * .. * .. Statement Functions .. -- 2.7.4