diff options
Diffstat (limited to 'SRC/zgebal.f')
-rw-r--r-- | SRC/zgebal.f | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/SRC/zgebal.f b/SRC/zgebal.f index ac616df8..0ca70b60 100644 --- 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 * |