diff options
author | philippe.theveny <philippe.theveny@8a072113-8704-0410-8d35-dd094bca7971> | 2015-08-17 21:37:47 +0000 |
---|---|---|
committer | philippe.theveny <philippe.theveny@8a072113-8704-0410-8d35-dd094bca7971> | 2015-08-17 21:37:47 +0000 |
commit | 321ab61ac2cb71d1c2a97a490a54ab1f51e02bb0 (patch) | |
tree | 8f5ae8914e8aad8dcee3fcba7cc06ab80148e296 /SRC/zgebal.f | |
parent | ad584bfedd12235fe4ce20d65037f1ab2503abbb (diff) | |
download | lapack-321ab61ac2cb71d1c2a97a490a54ab1f51e02bb0.tar.gz lapack-321ab61ac2cb71d1c2a97a490a54ab1f51e02bb0.tar.bz2 lapack-321ab61ac2cb71d1c2a97a490a54ab1f51e02bb0.zip |
Removed unused and obsolete statement functions.
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 * |