diff options
Diffstat (limited to 'SRC/dsytrd_sb2st.F')
-rw-r--r-- | SRC/dsytrd_sb2st.F | 17 |
1 files changed, 12 insertions, 5 deletions
diff --git a/SRC/dsytrd_sb2st.F b/SRC/dsytrd_sb2st.F index 6925b525..7b5abc93 100644 --- a/SRC/dsytrd_sb2st.F +++ b/SRC/dsytrd_sb2st.F @@ -331,8 +331,9 @@ * Quick return if possible * IF( N.EQ.0 ) THEN - WORK( 1 ) = 1 - RETURN + HOUS( 1 ) = 1 + WORK( 1 ) = 1 + RETURN END IF * * Determine pointer position @@ -379,7 +380,10 @@ DO 40 I = 1, N-1 E( I ) = RZERO 40 CONTINUE - RETURN +* + HOUS( 1 ) = 1 + WORK( 1 ) = 1 + RETURN END IF * * Case KD=1: @@ -406,6 +410,9 @@ E( I ) = ( AB( ABOFDPOS, I ) ) 70 CONTINUE ENDIF +* + HOUS( 1 ) = 1 + WORK( 1 ) = 1 RETURN END IF * @@ -442,7 +449,7 @@ THED = MIN( (STT + THGRSIZ -1), (N-1)) DO 110 I = STT, N-1 ED = MIN( I, THED ) - IF( STT.GT.ED ) GOTO 100 + IF( STT.GT.ED ) EXIT DO 120 M = 1, STEPERCOL ST = STT DO 130 SWEEPID = ST, ED @@ -506,7 +513,7 @@ #endif IF ( BLKLASTIND.GE.(N-1) ) THEN STT = STT + 1 - GOTO 130 + EXIT ENDIF 140 CONTINUE 130 CONTINUE |