diff --git a/SRC/dlanv2.f b/SRC/dlanv2.f index a4bd262c9..9008fdde0 100644 --- a/SRC/dlanv2.f +++ b/SRC/dlanv2.f @@ -144,7 +144,7 @@ * .. * .. Local Scalars .. DOUBLE PRECISION AA, BB, BCMAX, BCMIS, CC, CS1, DD, EPS, P, SAB, - $ SAC, SCALE, SIGMA, SN1, TAU, TEMP, Z, SAFMIN, + $ SAC, SCALE, SIGMA, SN1, TAU, TEMP, Z, SAFMIN, $ SAFMN2, SAFMX2 INTEGER COUNT * ..