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 <nickpapior@gmail.com>

diff --git a/SRC/cla_herpvgrw.f b/SRC/cla_herpvgrw.f
index f99f005..5061cf8 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 ..