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
|
@@ -15278,5 +15278,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 )
@@ -15290,5 +15291,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 )
@@ -15338,5 +15340,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 )
@@ -15354,5 +15357,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 )
|
