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
|
@@ -19075,5 +19075,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 )
@@ -19087,5 +19088,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 )
@@ -19131,5 +19133,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 )
@@ -19147,5 +19150,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 )
|
