Break out of potentially infinite rescaling loop after 20 iterations

Author: martin-frbg

SRC/dlartg.f

@@ -163,7 +163,7 @@ SUBROUTINE DLARTG( F, G, CS, SN, R )
             F1 = F1*SAFMN2
             G1 = G1*SAFMN2
             SCALE = MAX( ABS( F1 ), ABS( G1 ) )
-            IF( SCALE.GE.SAFMX2 )
+            IF( SCALE.GE.SAFMX2 .AND. COUNT .LT. 20)
      $         GO TO 10
             R = SQRT( F1**2+G1**2 )
             CS = F1 / R