diff options
author | julie <julielangou@users.noreply.github.com> | 2011-01-04 19:59:16 +0000 |
---|---|---|
committer | julie <julielangou@users.noreply.github.com> | 2011-01-04 19:59:16 +0000 |
commit | 3a39267fb0745f2d24b30a1157d2823c398743e6 (patch) | |
tree | 8991f38453f4ba385aaa7846860cb8fea4d09d9e /SRC | |
parent | 6cb10ef589f5c8840d21fc937ccc57cf4112b70d (diff) |
minor fix following compiler warnings: remove unused variable and change digit output format
Diffstat (limited to 'SRC')
-rw-r--r-- | SRC/cpoequb.f | 6 | ||||
-rw-r--r-- | SRC/zpoequb.f | 6 |
2 files changed, 0 insertions, 12 deletions
diff --git a/SRC/cpoequb.f b/SRC/cpoequb.f index 88a87b71..ca7af368 100644 --- a/SRC/cpoequb.f +++ b/SRC/cpoequb.f @@ -84,12 +84,6 @@ * .. Intrinsic Functions .. INTRINSIC MAX, MIN, SQRT, LOG, INT, REAL, AIMAG * .. -* .. Statement Functions .. - REAL CABS1 -* .. -* .. Statement Function Definitions .. - CABS1( ZDUM ) = ABS( REAL( ZDUM ) ) + ABS( AIMAG( ZDUM ) ) -* .. * .. Executable Statements .. * * Test the input parameters. 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. |