@@ -17359,5 +17359,6 @@
 !                 Skip any trailing zeros.
                   DO LASTV = N, I+1, -1
-                     IF( V( LASTV, I ).NE.ZERO ) EXIT
+                     IF( V( LASTV, I ).NE.ZERO ) GO TO 15
                   END DO
+   15             CONTINUE
                   J = MIN( LASTV, PREVLASTV )
@@ -17371,5 +17372,6 @@
 !                 Skip any trailing zeros.
                   DO LASTV = N, I+1, -1
-                     IF( V( I, LASTV ).NE.ZERO ) EXIT
+                     IF( V( I, LASTV ).NE.ZERO ) GO TO 16
                   END DO
+   16             CONTINUE
                   J = MIN( LASTV, PREVLASTV )
@@ -17415,5 +17417,6 @@
 !                    Skip any leading zeros.
                      DO LASTV = 1, I-1
-                        IF( V( LASTV, I ).NE.ZERO ) EXIT
+                        IF( V( LASTV, I ).NE.ZERO ) GO TO 35
                      END DO
+   35                CONTINUE
                      J = MAX( LASTV, PREVLASTV )
@@ -17431,5 +17434,6 @@
 !                    Skip any leading zeros.
                      DO LASTV = N, I+1, -1
-                        IF( V( I, LASTV ).NE.ZERO ) EXIT
+                        IF( V( I, LASTV ).NE.ZERO ) GO TO 36
                      END DO
+   36                CONTINUE
                      J = MAX( LASTV, PREVLASTV )