diff options
Diffstat (limited to 'SRC/zpoequb.f')
-rw-r--r-- | SRC/zpoequb.f | 6 |
1 files changed, 0 insertions, 6 deletions
diff --git a/SRC/zpoequb.f b/SRC/zpoequb.f index f0330f93..4e311015 100644 --- a/SRC/zpoequb.f +++ b/SRC/zpoequb.f @@ -84,12 +84,6 @@ * .. Intrinsic Functions .. INTRINSIC MAX, MIN, SQRT, LOG, INT, REAL, DIMAG * .. -* .. Statement Functions .. - DOUBLE PRECISION CABS1 -* .. -* .. Statement Function Definitions .. - CABS1( ZDUM ) = ABS( DBLE( ZDUM ) ) + ABS( DIMAG( ZDUM ) ) -* .. * .. Executable Statements .. * * Test the input parameters. |