1@@ -17359,5 +17359,6 @@
2 !                 Skip any trailing zeros.
3                   DO LASTV = N, I+1, -1
4-                     IF( V( LASTV, I ).NE.ZERO ) EXIT
5+                     IF( V( LASTV, I ).NE.ZERO ) GO TO 15
6                   END DO
7+   15             CONTINUE
8                   J = MIN( LASTV, PREVLASTV )
9@@ -17371,5 +17372,6 @@
10 !                 Skip any trailing zeros.
11                   DO LASTV = N, I+1, -1
12-                     IF( V( I, LASTV ).NE.ZERO ) EXIT
13+                     IF( V( I, LASTV ).NE.ZERO ) GO TO 16
14                   END DO
15+   16             CONTINUE
16                   J = MIN( LASTV, PREVLASTV )
17@@ -17415,5 +17417,6 @@
18 !                    Skip any leading zeros.
19                      DO LASTV = 1, I-1
20-                        IF( V( LASTV, I ).NE.ZERO ) EXIT
21+                        IF( V( LASTV, I ).NE.ZERO ) GO TO 35
22                      END DO
23+   35                CONTINUE
24                      J = MAX( LASTV, PREVLASTV )
25@@ -17431,5 +17434,6 @@
26 !                    Skip any leading zeros.
27                      DO LASTV = N, I+1, -1
28-                        IF( V( I, LASTV ).NE.ZERO ) EXIT
29+                        IF( V( I, LASTV ).NE.ZERO ) GO TO 36
30                      END DO
31+   36                CONTINUE
32                      J = MAX( LASTV, PREVLASTV )
33