Closed
Description
Description
There are the following functions in the ?blat1.f
files:
DOUBLE PRECISION FUNCTION DXVALS(XX,K)
* .. Scalar Arguments ..
DOUBLE PRECISION XX
INTEGER K
* .. Local Scalars ..
DOUBLE PRECISION X, Y, YY, Z
* .. Intrinsic Functions ..
INTRINSIC HUGE
* .. Executable Statements ..
Y = HUGE(XX)
Z = YY
IF (K.EQ.1) THEN
X = -Z
ELSE IF (K.EQ.2) THEN
X = Z
ELSE IF (K.EQ.3) THEN
X = Z / Z
END IF
DXVALS = X
RETURN
END
As far as I can tell, YY
is not defined, and Y
is not used anywhere. I'm not sure if I'm missing something here but my guess is that it should be YY = HUGE(XX)
and Y
should be removed.
Checklist
- I'd be willing to make a PR to solve this issue