Removed unused and obsolete statement functions.

diff --git a/SRC/cgebal.f b/SRC/cgebal.f
index bcd9f516fad8924bcdc9f76beb7c74befc4b1bed..8cbad62c3f65b8ed9dfb9e101dc7075afe6e4c87 100644 (file)
--- a/SRC/cgebal.f
+++ b/SRC/cgebal.f
@@ -203,14 +203,6 @@
 *     ..
 *     .. Intrinsic Functions ..
       INTRINSIC          ABS, AIMAG, MAX, MIN, REAL
-*     ..
-*     .. Statement Functions ..
-      REAL               CABS1
-*     ..
-*     .. Statement Function definitions ..
-      CABS1( CDUM ) = ABS( REAL( CDUM ) ) + ABS( AIMAG( CDUM ) )
-*     ..
-*     .. Executable Statements ..
 *
 *     Test the input parameters
 *

diff --git a/SRC/dgebal.f b/SRC/dgebal.f
index 80ae2681286ec4fba5a7eb26a85a41d2b2d9f6ae..94ca14897348779a16071aaceaa435896f380348 100644 (file)
--- a/SRC/dgebal.f
+++ b/SRC/dgebal.f
@@ -201,8 +201,6 @@
 *     .. Intrinsic Functions ..
       INTRINSIC          ABS, MAX, MIN
 *     ..
-*     .. Executable Statements ..
-*
 *     Test the input parameters
 *
       INFO = 0

diff --git a/SRC/sgebal.f b/SRC/sgebal.f
index 6c5d1482ee34e31bb71d816b329692d3c36eb41e..73c7c763faf3cf7f37a190917d254ad01da06c6c 100644 (file)
--- a/SRC/sgebal.f
+++ b/SRC/sgebal.f
@@ -200,8 +200,6 @@
 *     ..
 *     .. Intrinsic Functions ..
       INTRINSIC          ABS, MAX, MIN
-*     ..
-*     .. Executable Statements ..
 *
 *     Test the input parameters
 *

diff --git a/SRC/zgebal.f b/SRC/zgebal.f
index ac616df8908c7ac162562642e060fe3781ca5bbb..0ca70b60665a83ed1874e1acd6fe32d6684ab4d1 100644 (file)
--- a/SRC/zgebal.f
+++ b/SRC/zgebal.f
@@ -202,14 +202,6 @@
 *     ..
 *     .. Intrinsic Functions ..
       INTRINSIC          ABS, DBLE, DIMAG, MAX, MIN
-*     ..
-*     .. Statement Functions ..
-      DOUBLE PRECISION   CABS1
-*     ..
-*     .. Statement Function definitions ..
-      CABS1( CDUM ) = ABS( DBLE( CDUM ) ) + ABS( DIMAG( CDUM ) )
-*     ..
-*     .. Executable Statements ..
 *
 *     Test the input parameters
 *