--- rpl/lapack/lapack/dlanv2.f	2018/05/29 07:17:58	1.18
+++ rpl/lapack/lapack/dlanv2.f	2020/05/21 21:45:59	1.19
@@ -161,7 +161,6 @@
       IF( C.EQ.ZERO ) THEN
          CS = ONE
          SN = ZERO
-         GO TO 10
 *
       ELSE IF( B.EQ.ZERO ) THEN
 *
@@ -174,12 +173,12 @@
          A = TEMP
          B = -C
          C = ZERO
-         GO TO 10
+*
       ELSE IF( ( A-D ).EQ.ZERO .AND. SIGN( ONE, B ).NE.SIGN( ONE, C ) )
      $          THEN
          CS = ONE
          SN = ZERO
-         GO TO 10
+*
       ELSE
 *
          TEMP = A - D
@@ -207,6 +206,7 @@
             SN = C / TAU
             B = B - C
             C = ZERO
+*
          ELSE
 *
 *           Complex eigenvalues, or real (almost) equal eigenvalues.
@@ -269,8 +269,6 @@
 *
       END IF
 *
-   10 CONTINUE
-*
 *     Store eigenvalues in (RT1R,RT1I) and (RT2R,RT2I).
 *
       RT1R = A