@@ -13163,5 +13163,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 )
@@ -13175,5 +13176,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 )
@@ -13223,5 +13225,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 )
@@ -13239,5 +13242,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 )