diff options
Diffstat (limited to 'SRC/claed8.f')
-rw-r--r-- | SRC/claed8.f | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/SRC/claed8.f b/SRC/claed8.f index 07cf124c..79ac0314 100644 --- a/SRC/claed8.f +++ b/SRC/claed8.f @@ -174,6 +174,13 @@ RETURN END IF * +* Need to initialize GIVPTR to O here in case of quick exit +* to prevent an unspecified code behavior (usually sigfault) +* when IWORK array on entry to *stedc is not zeroed +* (or at least some IWORK entries which used in *laed7 for GIVPTR). +* + GIVPTR = 0 +* * Quick return if possible * IF( N.EQ.0 ) @@ -241,7 +248,6 @@ * components of Z are zero in this new basis. * K = 0 - GIVPTR = 0 K2 = N + 1 DO 60 J = 1, N IF( RHO*ABS( Z( J ) ).LE.TOL ) THEN |