Removed unused and obsolete statement functions.
authorphilippe.theveny <philippe.theveny@8a072113-8704-0410-8d35-dd094bca7971>
Mon, 17 Aug 2015 21:37:47 +0000 (21:37 +0000)
committerphilippe.theveny <philippe.theveny@8a072113-8704-0410-8d35-dd094bca7971>
Mon, 17 Aug 2015 21:37:47 +0000 (21:37 +0000)
SRC/cgebal.f
SRC/dgebal.f
SRC/sgebal.f
SRC/zgebal.f

index bcd9f516fad8924bcdc9f76beb7c74befc4b1bed..8cbad62c3f65b8ed9dfb9e101dc7075afe6e4c87 100644 (file)
 *     ..
 *     .. 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
 *
index 80ae2681286ec4fba5a7eb26a85a41d2b2d9f6ae..94ca14897348779a16071aaceaa435896f380348 100644 (file)
 *     .. Intrinsic Functions ..
       INTRINSIC          ABS, MAX, MIN
 *     ..
-*     .. Executable Statements ..
-*
 *     Test the input parameters
 *
       INFO = 0
index 6c5d1482ee34e31bb71d816b329692d3c36eb41e..73c7c763faf3cf7f37a190917d254ad01da06c6c 100644 (file)
 *     ..
 *     .. Intrinsic Functions ..
       INTRINSIC          ABS, MAX, MIN
-*     ..
-*     .. Executable Statements ..
 *
 *     Test the input parameters
 *
index ac616df8908c7ac162562642e060fe3781ca5bbb..0ca70b60665a83ed1874e1acd6fe32d6684ab4d1 100644 (file)
 *     ..
 *     .. 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
 *