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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
|
Index: SRC/ilazlr.f
===================================================================
--- SRC/ilazlr.f (revision 1098)
+++ SRC/ilazlr.f (revision 1099)
@@ -111,12 +111,9 @@
ILAZLR = 0
DO J = 1, N
I=M
- DO WHILE ((A(I,J).NE.ZERO).AND.(I.GE.1))
- I=I-1
- IF (I.EQ.0) THEN
- EXIT
- END IF
- ENDDO
+ DO WHILE((A(MAX(I,1),J).EQ.ZERO).AND.(I.GE.1))
+ I=I-1
+ ENDDO
ILAZLR = MAX( ILAZLR, I )
END DO
END IF
Index: SRC/ilaclr.f
===================================================================
--- SRC/ilaclr.f (revision 1098)
+++ SRC/ilaclr.f (revision 1099)
@@ -111,12 +111,9 @@
ILACLR = 0
DO J = 1, N
I=M
- DO WHILE ((A(I,J).NE.ZERO).AND.(I.GE.1))
- I=I-1
- IF (I.EQ.0) THEN
- EXIT
- END IF
- ENDDO
+ DO WHILE((A(MAX(I,1),J).EQ.ZERO).AND.(I.GE.1))
+ I=I-1
+ ENDDO
ILACLR = MAX( ILACLR, I )
END DO
END IF
Index: SRC/ilaslr.f
===================================================================
--- SRC/ilaslr.f (revision 1098)
+++ SRC/ilaslr.f (revision 1099)
@@ -111,11 +111,8 @@
ILASLR = 0
DO J = 1, N
I=M
- DO WHILE ((A(I,J).NE.ZERO).AND.(I.GE.1))
- I=I-1
- IF (I.EQ.0) THEN
- EXIT
- END IF
+ DO WHILE((A(MAX(I,1),J).EQ.ZERO).AND.(I.GE.1))
+ I=I-1
ENDDO
ILASLR = MAX( ILASLR, I )
END DO
Index: SRC/iladlr.f
===================================================================
--- SRC/iladlr.f (revision 1098)
+++ SRC/iladlr.f (revision 1099)
@@ -111,11 +111,8 @@
ILADLR = 0
DO J = 1, N
I=M
- DO WHILE ((A(I,J).NE.ZERO).AND.(I.GE.1))
- I=I-1
- IF (I.EQ.0) THEN
- EXIT
- END IF
+ DO WHILE((A(MAX(I,1),J).EQ.ZERO).AND.(I.GE.1))
+ I=I-1
ENDDO
ILADLR = MAX( ILADLR, I )
END DO
|
