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