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 f99f00559568f993c91977c87718d8563c590654..5061cf8dd6c421f8c901a64cdda483ec8afc62ed 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 c20d9c58adbc489aecb3d57c719f20315b15eed1..34a72e15acfd9fe814b986e6bc2baca4ce3cd037 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 8dbfc9107f57c35c24683cb0aef8568ebdc80cdf..babc331d148cf06f19e7e2dbeb014a9f62559b0a 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 13d80416c6340a97e986fa873d489463db70cd44..54b131d3ff584d1785c07be80c08f2c653bf163c 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 5741554d66d0e613a7bb3dd9b4b28c7f9bef3985..cf7f8563267b885de7085edfcf6050b4746740ae 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 6bc01f80618ea3dc934906dc86a2c6273351c69a..65dd38cf10300652d672066fae74ed538e918a0f 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 c4902c7f740660bc0699260f87afb1bef4111cc4..448d4e26c5fe9a6afeb4eb50cbfaa7ceaad1e935 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 a9cfde2a44af0f0ac07b7b7f06e0a1c88bf74e8a..2252b0507d7479bbfadc9e51eeabc3fbede37ba8 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 acdb1fa5466e09e975500c8e869618cc3bbd57fa..721714390bdf9362bd77b0246a8c934c37ed82fa 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 5c850a8f41a98e37520eb279ab8bd89807267265..551426f20e15defd7aac51a960bcca2c2aa28c2e 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 ac983ea94519e57d67b2a1685b6ffba7763ced6b..490102f59be42cdafa4c09766d84f43b2ec34710 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 ..