diff options
Diffstat (limited to 'SRC/clanhf.f')
| -rw-r--r-- | SRC/clanhf.f | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/SRC/clanhf.f b/SRC/clanhf.f index f7bd4fb5..cbcb7ece 100644 --- a/SRC/clanhf.f +++ b/SRC/clanhf.f @@ -286,7 +286,7 @@ CLANHF = ZERO RETURN ELSE IF( N.EQ.1 ) THEN - CLANHF = ABS( A(0) ) + CLANHF = ABS(REAL(A(0))) RETURN END IF * |