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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
|
@@ -267,9 +267,10 @@
Scan up each column tracking the last zero row seen.
ILACLR = 0
DO J = 1, N
DO I = M, 1, -1
- IF( A(I, J).NE.ZERO ) EXIT
+ IF( A(I, J).NE.ZERO ) GO TO 10
END DO
+ 10 CONTINUE
ILACLR = MAX( ILACLR, I )
END DO
END IF
@@ -395,9 +396,10 @@
Scan up each column tracking the last zero row seen.
ILADLR = 0
DO J = 1, N
DO I = M, 1, -1
- IF( A(I, J).NE.ZERO ) EXIT
+ IF( A(I, J).NE.ZERO ) GO TO 10
END DO
+ 10 CONTINUE
ILADLR = MAX( ILADLR, I )
END DO
END IF
@@ -1078,9 +1080,10 @@
Scan up each column tracking the last zero row seen.
ILASLR = 0
DO J = 1, N
DO I = M, 1, -1
- IF( A(I, J).NE.ZERO ) EXIT
+ IF( A(I, J).NE.ZERO ) GO TO 10
END DO
+ 10 CONTINUE
ILASLR = MAX( ILASLR, I )
END DO
END IF
@@ -1206,9 +1209,10 @@
Scan up each column tracking the last zero row seen.
ILAZLR = 0
DO J = 1, N
DO I = M, 1, -1
- IF( A(I, J).NE.ZERO ) EXIT
+ IF( A(I, J).NE.ZERO ) GO TO 10
END DO
+ 10 CONTINUE
ILAZLR = MAX( ILAZLR, I )
END DO
END IF
|
