Break out of potentially infinite rescaling loop after 20 iterations

Author: martin-frbg

SRC/dlartgp.f

@@ -161,7 +161,7 @@ SUBROUTINE DLARTGP( 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