Family Day update
This commit is contained in:
parent
aac6731f2c
commit
9ad63ea473
2442 changed files with 39761 additions and 8255 deletions
|
|
@ -6,7 +6,6 @@
|
|||
X = A(I)
|
||||
J = I
|
||||
10 J = J - 1
|
||||
Can't IF (J.EQ.0 .OR. A(J).LE.X) GO TO 20 in case both sides are ALWAYS evaluated.
|
||||
IF (J.EQ.0) GO TO 20
|
||||
IF (A(J).LE.X) GO TO 20
|
||||
A(J + 1) = A(J)
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue