Removed unused and obsolete statement functions.

diff --git a/SRC/cgebal.f b/SRC/cgebal.f
index bcd9f51..8cbad62 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 80ae268..94ca148 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 6c5d148..73c7c76 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 ac616df..0ca70b6 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
 *