1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
@@ -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 )
|
