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/zpoequb.f | |
| parent | 6cb10ef589f5c8840d21fc937ccc57cf4112b70d (diff) | |
minor fix following compiler warnings: remove unused variable and change digit output format
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. |