1323c323
2<       PARAMETER (INPUT0=5, NOISE=0, LUNIT=4)
3---
4>       PARAMETER (INPUT0=5, NOISE=0, LUNIT=9)
5659c659
6< 	OPEN (UNIT=INPUT+1,ERR=101,STATUS='OLD',FILE=TITLE(J:K))
7---
8> 	OPEN (UNIT=INPUT-1,ERR=101,STATUS='OLD',FILE=TITLE(J:K))
9661c661
10< 	INPUT = INPUT + 1
11---
12> 	INPUT = INPUT - 1
131105d1104
14<      &            DISPOSE='DELETE',
151111c1110
16< 	OPEN (UNIT=INPUT+1,ERR=71,STATUS='OLD',
17---
18> 	OPEN (UNIT=INPUT-1,ERR=71,STATUS='OLD',
191122c1121
20< 	OPEN (UNIT=INPUT+1,ERR=73,STATUS='OLD',FILE=FULLNAME)
21---
22> 	OPEN (UNIT=INPUT-1,ERR=73,STATUS='OLD',FILE=FULLNAME)
231128,1129c1127,1128
24< 	INPUT = INPUT + 1
25< 	CALL ASSERT(INPUT-INPUT0.LE.MAXLEV,
26---
27> 	INPUT = INPUT - 1
28> 	CALL ASSERT(INPUT0-INPUT.LE.4,
292307c2306
30<       IF (INPUT.GT.INPUT0) THEN
31---
32>       IF (INPUT.LT.INPUT0) THEN
332310c2309
34< 	INPUT = INPUT - 1
35---
36> 	INPUT = INPUT + 1
37