From 321ab61ac2cb71d1c2a97a490a54ab1f51e02bb0 Mon Sep 17 00:00:00 2001 From: "philippe.theveny" Date: Mon, 17 Aug 2015 21:37:47 +0000 Subject: Removed unused and obsolete statement functions. --- SRC/zgebal.f | 8 -------- 1 file changed, 8 deletions(-) (limited to 'SRC/zgebal.f') 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 * -- cgit v1.2.3