Trailing-Edge
-
PDP-10 Archives
-
decuslib10-13
-
notabs.lpt
There are 3 other files named notabs.lpt in the archive. Click here to see a list.
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 1
C THIS SET OF ROUTINES IS TEST DATA FOR THE FORTRAN
C RENUMBERING PROGRAM. THE NUMBER 48 IS USED WHERE A
C NUMBER IS NOT TO BE REPLACED AND THE NUMBER NINETY IS
C USED WHERE SYNTAX SHOWS IT TO BE A STATEMENT NUMBER.
C IF RENUMBERED WITH INITIAL STATEMENT NUMBER 1 AND
C INCREMENT ALSO 1, THEN THE STATEMENT NUMBER NINETY
C WILL BE CONVERTED TO STATEMENT NUMBER 2 AND THE DIGIT
C NINE SHOULD APPEAR ONLY IN THE STATEMENT NUMBER FIELD
C IN COLUMNS 1 THROUGHT 5. IF ANY OF THE 48'S ARE
C ERRONEOUSLY ASSUMED TO BE STATEMENT NUMBERS, THEN
C THESE WILL BE CONVERTED TO NINES. SOME OF THE TEST
C CASES ARE MEANT TO TEST SPACINGS AND WILL REQUIRE
C EXAMINATION OF THE LISTING OR RENUMBERED OUTPUT.
1 SUBROUTINE G O T O
C
C STANDARD GO TO STATEMENTS
2 GO TO 90
3 GO TO IVALUE
4 GO TO IVALUE,(90,90,90,90,90)
5 GO TO (90,90,90,90,90),IVALUE
6 GO TO IVALUE(90,90,90,90,90)
7 GO TO (90,90,90,90,90)IVALUE
8 GOTO90
9 GOTOIVALUE
10 GOTOIVALUE,(90,90,90,90,90)
11 GOTO(90,90,90,90,90),IVALUE
12 GOTOIVALUE(90,90,90,90,90)
13 GOTO(90,90,90,90,90)IVALUE
C
C GO TO STATMENTS WITH INDEX AN ARRAY ENTRY
14 GO TO (90,90,90,90,90),IVALUE(48,48)
15 GO TO (90,90,90,90,90)IVALUE(48,48)
16 GOTO(90,90,90,90,90),IVALUE(48,48)
17 GOTO(90,90,90,90,90)IVALUE(48,48)
C
C GO TO STATEMENTS WITH INSERTED BLANKS
18 G O T O IVALUE , ( 9 0 , 9 0 , 9 0 , 9 0 , 9 0 )
19 G O T O ( 9 0 , 9 0 , 9 0 , 9 0 , 9 0 , 9 0 ) IVALUE
C
C SIMILAR ARITHMETIC EXPRESSION
20 GOTO48=48
21 GOTO48=IVALUE
22 GOTO48=IVALUE(48,48)
C
C NUMBERED STATEMENTS
23 100 CONTINUE
24 90 CONTINUE
25 81 CONTINUE
26 73 CONTINUE
27 66 CONTINUE
28 60 CONTINUE
29 55 CONTINUE
30 51 CONTINUE
31 48 CONTINUE
32 46 CONTINUE
33 45 CONTINUE
34 END
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 2
GOTO SUBROUTINE
Statement
Number Referenced by
45 -33
46 -32
48 -31
51 -30
55 -29
60 -28
66 -27
73 -26
81 -25
90 2 4 5 6 7 8 10 11 12
13 14 15 16 17 18 19 -24
100 -23
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 3
GOTO SUBROUTINE
Word Contained in
CONTINUE 23 24 25 26 27 28 29 30 31
32 33
END 34
G 1
GOTO48 -20 -21 -22
IVALUE 3 4 5 6 7 9 10 11 12
13 14 15 16 17 18 19 21 22
O 1
SUBROUTINE 1
T 1
48 14 15 16 17 20 22
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 4
DO SUBROUTINE
1 SUBROUTINE DO
C
C DO LOOP WITH AND WITHOUT EXPRESSIONS AS LIMITS
2 DO 90 IVALUE=48,48
3 DO 90 IVALUE=48,48,48
4 DO 90 IVALUE=IVALUE(48,48),IVALUE(48,48)
5 DO 90 IVALUE=IVALUE(48,48),IVALUE(48,48),IVALUE(48,48)
6 DO 90 IVALUE=IVALUE(48)+48,IVALUE(48)+48
7 DO 90 IVALUE=IVALUE(48)+48,IVALUE(48)+48,IVALUE(48)+48
8 DO 90,IVALUE=48,48
9 DO 90,IVALUE=48,48,48
10 DO 90,IVALUE=IVALUE(48,48),IVALUE(48,48)
11 DO 90,IVALUE=IVALUE(48,48),IVALUE(48,48),IVALUE(48,48)
12 DO 90,IVALUE=IVALUE(48)+48,IVALUE(48)+48
13 DO 90,IVALUE=IVALUE(48)+48,IVALUE(48)+48,IVALUE(48)+48
C
C DO LOOP WITH INDEX AN ARRAY ELEMENT
14 DO 90 IVALUE(48,48)=48,48
15 DO 90 IVALUE(48,48)=48,48,48
16 DO 90 IVALUE(48,48)=IVALUE(48,48),IVALUE(48,48)
17 DO 90 IVALUE(48,48)=IVALUE(48,48),IVALUE(48,48),IVALUE(48,48)
18 DO 90 IVALUE(48,48)=IVALUE(48)+48,IVALUE(48)+48
19 DO 90 IVALUE(48,48)=IVALUE(48)+48,IVALUE(48)+48,IVALUE(48)+48
20 DO 90,IVALUE(48,48)=48,48
21 DO 90,IVALUE(48,48)=48,48,48
22 DO 90,IVALUE(48,48)=IVALUE(48,48),IVALUE(48,48)
23 DO 90,IVALUE(48,48)=IVALUE(48,48),IVALUE(48,48),IVALUE(48,48)
24 DO 90,IVALUE(48,48)=IVALUE(48)+48,IVALUE(48)+48
25 DO 90,IVALUE(48,48)=IVALUE(48)+48,IVALUE(48)+48,IVALUE(48)+48
C
C SAME DO LOOPS WITHOUT INTERNAL BLANKS
26 DO90IVALUE=48,48
27 DO90IVALUE=48,48,48
28 DO90IVALUE=IVALUE(48,48),IVALUE(48,48)
29 DO90IVALUE=IVALUE(48,48),IVALUE(48,48),IVALUE(48,48)
30 DO90IVALUE=IVALUE(48)+48,IVALUE(48)+48
31 DO90IVALUE=IVALUE(48)+48,IVALUE(48)+48,IVALUE(48)+48
32 DO90IVALUE(48,48)=48,48
33 DO90IVALUE(48,48)=48,48,48
34 DO90IVALUE(48,48)=IVALUE(48,48),IVALUE(48,48)
35 DO90IVALUE(48,48)=IVALUE(48,48),IVALUE(48,48),IVALUE(48,48)
36 DO90IVALUE(48,48)=IVALUE(48)+48,IVALUE(48)+48
37 DO90IVALUE(48,48)=IVALUE(48)+48,IVALUE(48)+48,IVALUE(48)+48
C
C SIMILAR ARITHMETIC EXPRESSIONS
38 DO48IV=48
39 DO48IV=IVALUE(48,48)
40 DO48IV=IVALUE(48,48)+48
41 DO48IV(48,48)=48
42 DO48IV(48,48)=IVALUE(48,48)
43 DO48IV(48,48)=IVALUE(48,48)+48
C
C NUMBERED STATEMENTS
44 100 CONTINUE
45 90 CONTINUE
46 81 CONTINUE
47 73 CONTINUE
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 5
DO SUBROUTINE
48 66 CONTINUE
49 60 CONTINUE
50 55 CONTINUE
51 51 CONTINUE
52 48 CONTINUE
53 46 CONTINUE
54 45 CONTINUE
55 END
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 6
DO SUBROUTINE
Statement
Number Referenced by
45 -54
46 -53
48 -52
51 -51
55 -50
60 -49
66 -48
73 -47
81 -46
90 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
-45
100 -44
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 7
DO SUBROUTINE
Word Contained in
CONTINUE 44 45 46 47 48 49 50 51 52
53 54
DO 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
DO48IV -38 -39 -40 -41 -42 -43
END 55
IVALUE -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
39 40 42 43
SUBROUTINE 1
48 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
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 8
READ FUNCTION
1 FUNCTION READ (IVALUE)
C
C READ STATEMENTS WITHOUT VARIABLE LISTS
2 READ 90
3 READ(48)
4 READ(48,90)
5 READ(IVALUE,90)
6 READ(48,IVALUE)
7 READ(IVALUE,IVALUE)
8 READ(48,90,END=90)
9 READ(IVALUE,90,END=90)
10 READ(48,IVALUE,END=90)
11 READ(IVALUE,IVALUE,END=90)
12 READ(48,90,ERR=90)
13 READ(IVALUE,90,ERR=90)
14 READ(48,IVALUE,ERR=90)
15 READ(IVALUE,IVALUE,ERR=90)
16 READ(48,90,END=90,ERR=90)
17 READ(IVALUE,90,END=90,ERR=90)
18 READ(48,IVALUE,END=90,ERR=90)
19 READ(IVALUE,IVALUE,END=90,ERR=90)
20 READ INPUT TAPE 48,90
21 READ INPUT TAPE IVALUE,90
22 READ INPUT TAPE 48,IVALUE
23 READ INPUT TAPE IVALUE,IVALUE
C
C READ STATEMENTS WITH VARIABLE LISTS
24 READ 90(IVALUE(IVALUE),IVALUE=48,48)
25 READ(48)(IVALUE(IVALUE),IVALUE=48,48)
26 READ(48,90)(IVALUE(IVALUE),IVALUE=48,48)
27 READ(IVALUE,90)(IVALUE(IVALUE),IVALUE=48,48)
28 READ(48,IVALUE)(IVALUE(IVALUE),IVALUE=48,48)
29 READ(IVALUE,IVALUE)(IVALUE(IVALUE),IVALUE=48,48)
30 READ(48,90,END=90)(IVALUE(IVALUE),IVALUE=48,48)
31 READ(IVALUE,90,END=90)(IVALUE(IVALUE),IVALUE=48,48)
32 READ(48,IVALUE,END=90)(IVALUE(IVALUE),IVALUE=48,48)
33 READ(IVALUE,IVALUE,END=90)(IVALUE(IVALUE),IVALUE=48,48)
34 READ(48,90,ERR=90)(IVALUE(IVALUE),IVALUE=48,48)
35 READ(IVALUE,90,ERR=90)(IVALUE(IVALUE),IVALUE=48,48)
36 READ(48,IVALUE,ERR=90)(IVALUE(IVALUE),IVALUE=48,48)
37 READ(IVALUE,IVALUE,ERR=90)(IVALUE(IVALUE),IVALUE=48,48)
38 READ(48,90,END=90,ERR=90)(IVALUE(IVALUE),IVALUE=48,48)
39 READ(IVALUE,90,END=90,ERR=90)(IVALUE(IVALUE),IVALUE=48,48)
40 READ(48,IVALUE,END=90,ERR=90)(IVALUE(IVALUE),IVALUE=48,48)
41 READ(IVALUE,IVALUE,END=90,ERR=90)(IVALUE(IVALUE),IVALUE=48,48)
42 READ INPUT TAPE 48,90,(IVALUE(IVALUE),IVALUE=48,48)
43 READ INPUT TAPE IVALUE,90,(IVALUE(IVALUE),IVALUE=48,48)
44 READ INPUT TAPE 48,IVALUE,(IVALUE(IVALUE),IVALUE=48,48)
45 READ INPUT TAPE IVALUE,IVALUE,(IVALUE(IVALUE),IVALUE=48,48)
C
C READ STATEMENTS WITH TAPE OR FORMAT VARIABLES
C SPECIFIED AS AN ARRAY ELEMENT
46 READ(IVALUE(48,48),90)(IVALUE(IVALUE),IVALUE=48,48)
47 READ(48,IVALUE(48,48))(IVALUE(IVALUE),IVALUE=48,48)
48 READ(IVALUE(48,48),IVALUE(48,48))(IVALUE(IVALUE),IVALUE=48,48)
49 READ(IVALUE(48,48),90,END=90,ERR=90)IVALUE(48,48)
50 READ(48,IVALUE(48,48),END=90,ERR=90)IVALUE(48,48)
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 9
READ FUNCTION
51 READ(IVALUE(48,48),IVALUE(48,48),END=90,ERR=90)IVALUE(48,48)
C
C READ VARIABLE OR ARRAY IN ARITHMETIC EXPRESSION
52 READ 48=IVALUE(IVALUE)
53 READ(48)=IVALUE(IVALUE)
54 READ(48,48)=IVALUE(IVALUE)
55 READ(IVALUE,48)=IVALUE(IVALUE)
56 READ(48,IVALUE)=IVALUE(IVALUE)
57 READ(IVALUE,IVALUE)=IVALUE(IVALUE)
C
C NUMBERED STATEMENTS
58 100 CONTINUE
59 90 CONTINUE
60 81 CONTINUE
61 73 CONTINUE
62 66 CONTINUE
63 60 CONTINUE
64 55 CONTINUE
65 51 CONTINUE
66 48 CONTINUE
67 46 CONTINUE
68 45 CONTINUE
69 END
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 10
READ FUNCTION
Statement
Number Referenced by
45 -68
46 -67
48 -66
51 -65
55 -64
60 -63
66 -62
73 -61
81 -60
90 2 4 5 8 9 10 11 12 13
14 15 16 17 18 19 20 21 24
26 27 30 31 32 33 34 35 36
37 38 39 40 41 42 43 46 49
50 51 -59
100 -58
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 11
READ FUNCTION
Word Contained in
CONTINUE 58 59 60 61 62 63 64 65 66
67 68
END -8 -9 -10 -11 -16 -17 -18 -19 -30
-31 -32 -33 -38 -39 -40 -41 -49 -50
-51 69
ERR -12 -13 -14 -15 -16 -17 -18 -19 -34
-35 -36 -37 -38 -39 -40 -41 -49 -50
-51
FUNCTION 1
INPUT 22 23 44 45
IVALUE 1 5 6 7 9 10 11 13 14
15 17 18 19 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
READ 1 2 3 4 5 6 7 8 9
10 11 12 13 14 15 16 17 18
19 22 23 24 25 26 27 28 29
30 31 32 33 34 35 36 37 38
39 40 41 44 45 46 47 48 49
50 51 52 -53 -54 -55 -56 -57
READINPUTT 20 21 42 43
TAPE 22 23 44 45
48 3 4 6 8 10 12 14 16 18
22 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
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 12
WRITE FUNCTION
1 DOUBLE PRECISION FUNCTION WRITE
C
C WRITE STATEMENTS WITHOUT VARIABLE LISTS
2 WRITE 90
3 WRITE(48)
4 WRITE(48,90)
5 WRITE(IVALUE,90)
6 WRITE(48,IVALUE)
7 WRITE(IVALUE,IVALUE)
8 WRITE OUTPUT TAPE 48,90
9 WRITE OUTPUT TAPE IVALUE,90
10 WRITE OUTPUT TAPE 48,IVALUE
11 WRITE OUTPUT TAPE IVALUE,IVALUE
C
C WRITE STATEMENTS WITH VARIABLE LISTS
12 WRITE 90(IVALUE(IVALUE),IVALUE=48,48)
13 WRITE(48)(IVALUE(IVALUE),IVALUE=48,48)
14 WRITE(48,90)(IVALUE(IVALUE),IVALUE=48,48)
15 WRITE(IVALUE,90)(IVALUE(IVALUE),IVALUE=48,48)
16 WRITE(48,IVALUE)(IVALUE(IVALUE),IVALUE=48,48)
17 WRITE(IVALUE,IVALUE)(IVALUE(IVALUE),IVALUE=48,48)
18 WRITE OUTPUT TAPE 48,90,(IVALUE(IVALUE),IVALUE=48,48)
19 WRITE OUTPUT TAPE IVALUE,90,(IVALUE(IVALUE),IVALUE=48,48)
20 WRITE OUTPUT TAPE 48,IVALUE,(IVALUE(IVALUE),IVALUE=48,48)
21 WRITE OUTPUT TAPE IVALUE,IVALUE,(IVALUE(IVALUE),IVALUE=48,48)
C
C WRITE STATEMENTS WITH TAPE OR FORMAT VARIABLES
C SPECIFIED AS AN ARRAY ELEMENT
22 WRITE(IVALUE(48,48),90)(IVALUE(IVALUE),IVALUE=48,48)
23 WRITE(48,IVALUE(48,48))(IVALUE(IVALUE),IVALUE=48,48)
24 WRITE(IVALUE(48,48),IVALUE(48,48))(IVALUE(IVALUE),IVALUE=48,48)
C
C WRITE VARIABLE OR ARRAY IN ARITHMETIC EXPRESSION
25 WRITE 48=IVALUE(IVALUE)
26 WRITE(48)=IVALUE(IVALUE)
27 WRITE(48,48)=IVALUE(IVALUE)
28 WRITE(IVALUE,48)=IVALUE(IVALUE)
29 WRITE(48,IVALUE)=IVALUE(IVALUE)
30 WRITE(IVALUE,IVALUE)=IVALUE(IVALUE)
C
C NUMBERED STATEMENTS
31 100 CONTINUE
32 90 CONTINUE
33 81 CONTINUE
34 73 CONTINUE
35 66 CONTINUE
36 60 CONTINUE
37 55 CONTINUE
38 51 CONTINUE
39 48 CONTINUE
40 46 CONTINUE
41 45 CONTINUE
42 END
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 13
WRITE FUNCTION
Statement
Number Referenced by
45 -41
46 -40
48 -39
51 -38
55 -37
60 -36
66 -35
73 -34
81 -33
90 2 4 5 8 9 12 14 15 18
19 22 -32
100 -31
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 14
WRITE FUNCTION
Word Contained in
CONTINUE 31 32 33 34 35 36 37 38 39
40 41
DOUBLE 1
END 42
FUNCTION 1
IVALUE 5 6 7 10 11 -12 -13 -14 -15
-16 -17 -18 -19 -20 -21 -22 -23 -24
25 26 27 28 29 30
OUTPUT 10 11 20 21
PRECISION 1
TAPE 10 11 20 21
WRITE 1 2 3 4 5 6 7 10 11
12 13 14 15 16 17 20 21 22
23 24 25 -26 -27 -28 -29 -30
WRITEOUTPU 8 9 18 19
48 3 4 6 10 12 13 14 15 16
17 18 19 20 21 22 23 24 -25
26 27 28 29
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 15
BLANK FUNCTION
1 INTEGER FUNCTION BLANK
C
C TEST ABILITY OF DICTIONARY PROGRAM TO HANDLE
C WORDS CONTAINING BLANKS (WHICH SHOULD BE
C IGNORED IF A STATEMENT NUMBER IS ENCOUNTERED
C FURTHER ON IN THE STATEMENT
2 READ INPUTTAPE48,90
3 READ INPUTTAPE48,90
4 READ INPUTTAPE48,90
5 R EAD INPUTTAPE48,90
6 R EAD INPUTTAPE48,90
7 R EAD INPUTTAPE48,90
8 RE AD INPUTTAPE48,90
9 RE AD INPUTTAPE48,90
10 RE AD INPUTTAPE48,90
11 REA D INPUTTAPE48,90
12 REA D INPUTTAPE48,90
13 REA D INPUTTAPE48,90
14 READ INPUTTAPE48,90
15 READ INPUTTAPE48,90
16 READ INPUTTAPE48,90
17 READ I NPUTTAPE48,90
18 READ I NPUTTAPE48,90
19 READ I NPUTTAPE48,90
20 READ IN PUTTAPE48,90
21 READ IN PUTTAPE48,90
22 READ IN PUTTAPE48,90
23 READ INP UTTAPE48,90
24 READ INP UTTAPE48,90
25 READ INP UTTAPE48,90
26 READ INPU TTAPE48,90
27 READ INPU TTAPE48,90
28 READ INPU TTAPE48,90
29 READ INPUT TAPE48,90
30 READ INPUT TAPE48,90
31 READ INPUT TAPE48,90
32 READ INPUTT APE48,90
33 READ INPUTT APE48,90
34 READ INPUTT APE48,90
35 READ INPUTTA PE48,90
36 READ INPUTTA PE48,90
37 READ INPUTTA PE48,90
38 READ INPUTTAP E48,90
39 READ INPUTTAP E48,90
40 READ INPUTTAP E48,90
41 READ INPUTTAPE 48,90
42 READ INPUTTAPE 48,90
43 READ INPUTTAPE 48,90
44 READ INPUTTAPE4 8,90
45 READ INPUTTAPE4 8,90
46 READ INPUTTAPE4 8,90
47 READ INPUTTAPE48 ,90
48 READ INPUTTAPE48 ,90
49 READ INPUTTAPE48 ,90
50 READ INPUTTAPE48, 90
51 READ INPUTTAPE48, 90
52 READ INPUTTAPE48, 90
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 16
BLANK FUNCTION
53 READ INPUTTAPE48,9 0
54 READ INPUTTAPE48,9 0
55 READ INPUTTAPE48,9 0
C
C TEST ABILITY TO HAVE BLANKS WITHIN STATEMENT NUMBERS
56 GO TO ( 9 0 , 9 0 , 9 0 ),IVALUE
57 IF(IVALUE) 9 0 , 9 0 , 9 0
C
C NUMBERED STATEMENTS STATEMENTS
58 1 0 0 CONTINUE
59 9 0 CONTINUE
60 8 1 CONTINUE
61 7 3 CONTINUE
62 6 6 CONTINUE
63 6 0 CONTINUE
64 5 5 CONTINUE
65 5 1 CONTINUE
66 4 8 CONTINUE
67 4 6 CONTINUE
68 4 5 CONTINUE
69 END
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 17
BLANK FUNCTION
Statement
Number Referenced by
45 -68
46 -67
48 -66
51 -65
55 -64
60 -63
66 -62
73 -61
81 -60
90 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 -59
100 -58
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 18
BLANK FUNCTION
Word Contained in
BLANK 1
CONTINUE 58 59 60 61 62 63 64 65 66
67 68
END 69
FUNCTION 1
INTEGER 1
IVALUE 56 57
READINPUTT 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
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 19
BLOCK DATA
1 BLOCK DATA
C
C STATEMENTS CONTAINING ALPHAMERIC DATA
2 IVALUE='''BCDE'+'ABCD'''
3 IVALUE='A''CDE'+'ABC''E'
4 IVALUE='AB''DE'+'AB''DE'
5 IVALUE='ABC''E'+'A''CDE'
6 IVALUE='ABCD'''+'''BCDE'
7 IVALUE=5H'BCDE+5HABCD'
8 IVALUE=5HA'CDE+5HABC'E
9 IVALUE=5HAB'DE+5HAB'DE
10 IVALUE=5HABC'E+5HA'CDE
11 IVALUE=5HABCD'+5H'BCDE
12 IVALUE=15HABCDEFGHIJKLMNO+'ABCD'''
13 IVALUE=15HABCDEFGHIJKLMNO+'ABC''E'
14 IVALUE=15HABCDEFGHIJKLMNO+'AB''DE'
15 IVALUE=15HABCDEFGHIJKLMNO+'A''CDE'
16 IVALUE=15HABCDEFGHIJKLMNO+'''BCDE'
17 IVALUE='''BCDE'+15HABCDEFGHIJKLMNO
18 IVALUE='A''CDE'+15HABCDEFGHIJKLMNO
19 IVALUE='AB''DE'+15HABCDEFGHIJKLMNO
20 IVALUE='ABC''E'+15HABCDEFGHIJKLMNO
21 IVALUE='ABCD'''+15HABCDEFGHIJKLMNO
22 END
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 20
BLOCK DATA
Word Contained in
BLOCK 1
DATA 1
END 22
IVALUE -2 -3 -4 -5 -6 -7 -8 -9 -10
-11 -12 -13 -14 -15 -16 -17 -18 -19
-20 -21
'ABCD''' 2 6 12 21
'ABC''E' 3 5 13 20
'AB''DE' 4 14 19
'A''CDE' 3 5 15 18
'''BCDE' 2 6 16 17
15HABCDEFG 12 13 14 15 16 17 18 19 20
21
5HABCD' 7 11
5HABC'E 8 10
5HAB'DE 9
5HA'CDE 8 10
5H'BCDE 7 11
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 21
IF FUNCTION
1 LOGICAL FUNCTION IF
C
C IF STATEMENTS IN STANDARD FORMS
2 IF(48-IVALUE(48,48))90,90,90
3 IF(48.EQ.IVALUE(48,48))GO TO 90
4 IF(48.EQ.IVALUE(48,48))GO TO 48 = 48
5 IF(48.EQ.IVALUE(48,48))READ(48,90,END=90,ERR=90)IVALUE(48,48)
6 IF(48.EQ.IVALUE(48,48))IVALUE(48,48)=48
7 IF(48.EQ.IVALUE(48,48))IF(48.EQ.IVALUE(48,48))GO TO 90
8 IF(48.EQ.IVALUE(48,48))IF(48-IVALUE(48,48))90,90,90
C
C ARITHMETIC EXPRESSIONS DEFINING IF ARRAY ELEMENTS
9 IF(48,48)=48
10 IF(48,48)=GO TO 48
11 IF(48.EQ.IVALUE(48,48))IF(48,48)=48
C
C NUMBERED STATEMENTS
12 100 CONTINUE
13 90 CONTINUE
14 81 CONTINUE
15 73 CONTINUE
16 66 CONTINUE
17 60 CONTINUE
18 55 CONTINUE
19 51 CONTINUE
20 48 CONTINUE
21 46 CONTINUE
22 45 CONTINUE
23 END
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 22
IF FUNCTION
Statement
Number Referenced by
45 -22
46 -21
48 -20
51 -19
55 -18
60 -17
66 -16
73 -15
81 -14
90 2 3 5 7 8 -13
100 -12
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 23
IF FUNCTION
Word Contained in
CONTINUE 12 13 14 15 16 17 18 19 20
21 22
END -5 23
ERR -5
FUNCTION 1
GO 4 10
IF 1 -9 -10 -11
IVALUE 2 3 4 5 -6 7 8 11
LOGICAL 1
READ 5
TO 4 10
48 2 3 -4 5 6 7 8 9 10
11
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 24
TABS FUNCTION
1 COMPLEX FUNCTION T A B S(IVALUE)
C
C TEST CONTINUATION LINE SENSING OF TABS WHICH HAVE
C BEEN CONVERTED TO THE APPROPRIATE NUMBER OF BLANKS
2 D
2 1O
2 29
2 30
2 4I
2 5=
2 648
2 7,
2 848
3 G
3 1O
3 2
3 3T
3 4O
3 5
3 69
3 70
C
C NUMBERED STATEMENTS
4 100 CONTINUE
5 90 CONTINUE
6 81 CONTINUE
7 73 CONTINUE
8 66 CONTINUE
9 60 CONTINUE
10 55 CONTINUE
11 51 CONTINUE
12 48 CONTINUE
13 46 CONTINUE
14 45 CONTINUE
15 END
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 25
TABS FUNCTION
Statement
Number Referenced by
45 -14
46 -13
48 -12
51 -11
55 -10
60 -9
66 -8
73 -7
81 -6
90 2 3 -5
100 -4
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 26
TABS FUNCTION
Word Contained in
A 1
B 1
COMPLEX 1
CONTINUE 4 5 6 7 8 9 10 11 12
13 14
DO 2
END 15
FUNCTION 1
I -2
IVALUE 1
S 1
T 1
48 2
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 27
C
C ASSORTED STATEMENT TYPES WHICH REQUIRE RENUMBERING
1 ACCEPT 90
2 ACCEPT 90,(IVALUE(IVALUE),IVALUE=48,48)
3 ACCEPT IVALUE,(IVALUE(IVALUE),IVALUE=48,48)
4 ACCEPT IVALUE(48,48),(IVALUE(IVALUE),IVALUE=48,48)
5 TYPE 90
6 TYPE 90,(IVALUE(IVALUE),IVALUE=48,48)
7 TYPE IVALUE,(IVALUE(IVALUE),IVALUE=48,48)
8 TYPE IVALUE(48,48),(IVALUE(IVALUE),IVALUE=48,48)
9 REREAD 90
10 REREAD 90,(IVALUE(IVALUE),IVALUE=48,48)
11 REREAD IVALUE,(IVALUE(IVALUE),IVALUE=48,48)
12 REREAD IVALUE(48,48),(IVALUE(IVALUE),IVALUE=48,48)
13 PRINT 90
14 PRINT 90,(IVALUE(IVALUE),IVALUE=48,48)
15 PRINT IVALUE,(IVALUE(IVALUE),IVALUE=48,48)
16 PRINT IVALUE(48,48),(IVALUE(IVALUE),IVALUE=48,48)
17 PUNCH 90
18 PUNCH 90,(IVALUE(IVALUE),IVALUE=48,48)
19 PUNCH IVALUE,(IVALUE(IVALUE),IVALUE=48,48)
20 PUNCH IVALUE(48,48),(IVALUE(IVALUE),IVALUE=48,48)
21 DECODE(48,90,IVALUE(48,48))IVALUE(48,48)
22 DECODE(IVALUE(48,48),90,IVALUE(48,48))IVALUE(48,48)
23 DECODE(48,IVALUE(48,48),IVALUE(48,48))IVALUE(48,48)
24 DECODE(48,90,IVALUE(48,48),ERR=90)IVALUE(48,48)
25 DECODE(IVALUE(48,48),90,IVALUE(48,48),ERR=90)IVALUE(48,48)
26 DECODE(48,IVALUE(48,48),IVALUE(48,48),ERR=90)IVALUE(48,48)
27 DECODE(IVALUE(48,48),IVALUE(48,48),IVALUE(48,48))IVALUE(48,48)
28 ENCODE(48,90,IVALUE(48,48))IVALUE(48,48)
29 ENCODE(IVALUE(48,48),90,IVALUE(48,48))IVALUE(48,48)
30 ENCODE(48,IVALUE(48,48),IVALUE(48,48))IVALUE(48,48)
31 ENCODE(48,90,IVALUE(48,48),ERR=90)IVALUE(48,48)
32 ENCODE(IVALUE(48,48),90,IVALUE(48,48),ERR=90)IVALUE(48,48)
33 ENCODE(48,IVALUE(48,48),IVALUE(48,48),ERR=90)IVALUE(48,48)
34 ENCODE(IVALUE(48,48),IVALUE(48,48),IVALUE(48,48))IVALUE(48,48)
35 ASSIGN 90 TO IVALUE
36 ASSIGN 90 TO IVALUE(48,48)
37 IF QUOTIENT OVERFLOW 90,90,90
38 IF DIVIDE CHECK 90,90,90
39 IF ACCUMULATOR OVERFLOW 90,90,90
C
C STATEMENTS CONTAINING VARIABLE TYPE DESIGNATION IN
C LEFT COLUMN
40 B GO TO 90
41 D IF(IVALUE)90,90,90
42 I ASSIGN 90 TO IVALUE
C
C CALL STATEMENT CONTAINING STATEMENT NUMBERS TO WHICH
C CONTROL IS PASSED UPON RETURNING (INDICATED IN CALL
C STATEMENT AS AN ARGUMENT CONSISTING OF STATEMENT
C NUMBER FOLLOWING AN AND SIGN IN IBM 360 NOTATION
C OR FOLLOWING A DOLLAR SIGN OR FOLLOWING AN
C ASTERISK IN DEC NOTATION)
43 CALL IVALUE(IVALUE,*90,IVALUE(48,48),*90)
44 CALL IVALUE( * 90, 48, 48, 48, *90)
45 CALL IVALUE( 48, 48, * 90, 48, 48)
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 28
MAIN PROGRAM
46 CALL IVALUE(IVALUE,$90,IVALUE(48,48),$90)
47 CALL IVALUE( $ 90, 48, 48, 48, $90)
48 CALL IVALUE( 48, 48, $ 90, 48, 48)
49 CALL IVALUE(IVALUE,&90,IVALUE(48,48),&90)
50 CALL IVALUE( & 90, 48, 48, 48, &90)
51 CALL IVALUE( 48, 48, & 90, 48, 48)
C
C NUMBERED STATEMENTS
52 B 100 CONTINUE
53 D 90 CONTINUE
54 I 81 CONTINUE
55 B 73 CONTINUE
56 D 66 CONTINUE
57 I 60 CONTINUE
58 B 55 CONTINUE
59 D 51 CONTINUE
60 I 48 CONTINUE
61 B 46 CONTINUE
62 D 45 CONTINUE
63 END
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 29
MAIN PROGRAM
Statement
Number Referenced by
45 -62
46 -61
48 -60
51 -59
55 -58
60 -57
66 -56
73 -55
81 -54
90 1 2 5 6 9 10 13 14 17
18 21 22 24 25 26 28 29 31
32 33 35 36 37 38 39 40 41
42 43 44 45 46 47 48 49 50
51 -53
100 -52
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 30
MAIN PROGRAM
Word Contained in
ACCEPT 1 2 3 4
ASSIGN 35 36 42
CALL 43 44 45 46 47 48 49 50 51
CONTINUE 52 53 54 55 56 57 58 59 60
61 62
DECODE 21 22 23 24 25 26 27
ENCODE 28 29 30 31 32 33 34
END 63
ERR -24 -25 -26 -31 -32 -33
IFACCUMULA 39
IFDIVIDECH 38
IFQUOTIENT 37
IVALUE -2 -3 -4 -6 -7 -8 -10 -11 -12
-14 -15 -16 -18 -19 -20 21 22 23
24 25 26 27 28 29 30 31 32
33 34 35 36 41 42 43 44 45
46 47 48 49 50 51
PRINT 13 14 15 16
PUNCH 17 18 19 20
REREAD 9 10 11 12
TO 35 36 42
TYPE 5 6 7 8
$ 46 47 48
& 49 50 51
48 2 3 4 6 7 8 10 11 12
14 15 16 18 19 20 21 22 23
24 25 26 27 28 29 30 31 32
33 34 36 43 44 45 46 47 48
49 50 51
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 31
ALPHAM FUNCTION
1 FUNCTION ALPHAMERIC DATA
C
C SAMPLE STATEMENTS CONTAINING KEY SEPARATOR CHARACTER
C GROUPINGS (TO TEST PARENTHESIS COUNTING, ETC. IN
C FORTRAN RENUMBERING PROGRAM).
C
2 IF(IVALUE.EQ.1H()GO TO 90
3 IF(IVALUE.EQ.1H))GO TO 90
4 IF(IVALUE.EQ.15H((((((((((((((()GO TO 90
5 IF(IVALUE.EQ.'(((((((((((((((')GO TO 90
6 IF ( IVALUE . E Q . ' ( ( ' ' ( ( ' ) GO TO 90
7 CALL IVALUE(',*48,',5H,*48,,4H,*48,*90)
8 CALL IVALUE(',&48,',5H,&48,,4H,&48,&90)
9 CALL IVALUE(',$48,',5H,$48,,4H,$48,$90)
10 CALL IVALUE ( ' , * 48, ' ' , * 48 , ' , * 90 )
11 CALL IVALUE ( ' , & 48, ' ' , & 48 , ' , & 90 )
12 CALL IVALUE ( ' , $ 48, ' ' , $ 48 , ' , $ 90 )
13 DO48IV=5H48,48
14 DO48IV='48,48'
C
C TEST ENTRY OF ALPHAMERIC STRINGS CONTAINING TERMINAL
C BLANKS INTO SYMBOL DICTIONARY
15 IVALUE=10HABCDE
16 IF(IVALUE.EQ.10HABCDE )90,90,90
17 IF(IVALUE.EQ. 10HABCDE )90,90,90
18 IF(IVALUE.EQ. 10HABCDE )90,90,90
19 IVALUE=5HABC
20 IF(IVALUE.EQ.5HABC )90,90,90
21 IF(IVALUE.EQ.5HABC )90,90,90
22 IF(IVALUE.EQ. 5HABC )90,90,90
23 IVALUE='ABC'
24 IF(IVALUE.EQ.'ABC')90,90,90
25 IF(IVALUE.EQ.'ABC' )90,90,90
26 IF(IVALUE.EQ. 'ABC' )90,90,90
27 IVALUE='ABC''D'
28 IF(IVALUE.EQ.'ABC''D')90,90,90
29 IF(IVALUE.EQ.'ABC''D' )90,90,90
30 IF(IVALUE.EQ. 'ABC''D' )90,90,90
31 IVALUE='ABC''DEF'
32 IF(IVALUE.EQ.'ABC''DEF')90,90,90
33 IF(IVALUE.EQ. 'ABC''DEF')90,90,90
34 IF(IVALUE.EQ. 'ABC''DEF' )90,90,90
35 IVALUE='ABC''DEF''GHI'
36 IF(IVALUE.EQ.'ABC''DEF''GHI')90,90,90
37 IF(IVALUE.EQ. 'ABC''DEF''GHI')90,90,90
38 IF(IVALUE.EQ. 'ABC''DEF''GHI' )90,90,90
C
C NUMBERED STATEMENTS
39 100 CONTINUE
40 90 CONTINUE
41 81 CONTINUE
42 73 CONTINUE
43 66 CONTINUE
44 60 CONTINUE
45 55 CONTINUE
46 51 CONTINUE
47 48 CONTINUE
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 32
ALPHAM FUNCTION
48 46 CONTINUE
49 45 CONTINUE
50 END
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 33
ALPHAM FUNCTION
Statement
Number Referenced by
45 -49
46 -48
48 -47
51 -46
55 -45
60 -44
66 -43
73 -42
81 -41
90 2 3 4 5 6 7 8 9 10
11 12 16 17 18 20 21 22 24
25 26 28 29 30 32 33 34 36
37 38 -40
100 -39
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 34
ALPHAM FUNCTION
Word Contained in
ALPHAMERIC 1
CALL 7 8 9 10 11 12
CONTINUE 39 40 41 42 43 44 45 46 47
48 49
DATA 1
DO48IV -13 -14
END 50
FUNCTION 1
IVALUE 2 3 4 5 6 7 8 9 10
11 12 -15 16 17 18 -19 20 21
22 -23 24 25 26 -27 28 29 30
-31 32 33 34 -35 36 37 38
$ 9 12
& 8 11
'ABC' 23 24 25 26
'ABC''DEF' 31 32 33 34 35 36 37 38
'ABC''D' 27 28 29 30
' ( ( '' ( 6
' , $ 48, 12
' , & 48, 11
' , * 48, 10
'((((((((( 5
',$48,' 9
',&48,' 8
',*48,' 7
'48,48' 14
1H( 2
1H) 3
10HABCDE 15 16 17 18
15H((((((( 4
4H,$48 9
4H,&48 8
4H,*48 7
5HABC 19 20 21 22
5H,$48, 9
5H,&48, 8
5H,*48, 7
5H48,48 13
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 35
WRAPAR SUBROUTINE
1 SUBROUTINE WRAPAROUND
C ROUTINE TO TEST WRAP AROUND PREVENTION WHEN
C NUMBER OF CHARACTERS CHANGES IN NUMBERS
C THE CORRECT RESULTS ARE GIVEN BELOW
C (NOTE THAT UNLIKE SAMPLE TAB INPUT GIVEN IN SOME
C OF THESE TEST ROUTINES, THIS SAMPLE OUTPUT USES
C ALL SEVENTYTWO CHARACTERS AND SO ADDED C IS IN COLUMN
C 1 RATHER THAN IN FRONT OF CONTENTS OF COLUMN 1)
C SLASH REPLACES DIGIT NINE IN THESE EXAMPLES
C GO TO(1,1,1,
C 111,11,11,
C 24,4,4),
C 3I
C GO TO(1,1,1
C 1,11,11,11
C 2,4,4,4),
C 3I
C GO TO(1,1,1
C 1 ,11,11,11,4
C 2 ,4,4),
C 3I
C GO TO(1,1,1,
C 1 11,11,11,
C 2 4,4,4),
C 3 I
C GO TO(1,1,1
C 1 ,11,11,11
C 2 ,4,4,4),
C 3 I
C GO TO(1,1,1
C 1 ,11,11,11,4
C 2 ,4,4),
C 3 I
C
C LONG STATEMENTS TO INSURE ADDITION AT PROPER BREAK
C 12345678/012345678/012345678/012345678/012345678/012345678/0123456
C WRITE(5,1)IIIIII,IIIIII,IIIIII,IIIIII,IIIIII,IIIIII,IIIIII,ABCD
C 1EF,GHIJKL
C 12345678/012345678/012345678/012345678/012345678/012345678/0123456
C WRITE(5,11)IIIIII,IIIIII,IIIIII,IIIIII,IIIIII,IIIIII,IIIIII,ABCDEF
C 1,GHIJKL,MNOPQR,STUVWX,YZABCD,EFGHIJ,KLMNOP,QRSTUV,WXYZAB,CDEFGH,IJ
C 2KLMN,OPQRST,UVWXYZ
C 12345678/012345678/012345678/012345678/012345678/012345678/0123456
C WRITE(5,11)IIIIII,IIIIII,IIIIII,IIIIII,IIIIII,IIIIII,IIIIII,ABCDEF
C 1,GHIJKL,MNOPQR,STUVWX,YZABCD,EFGHIJ,KLMNOP,QRSTUV,WXYZAB,CDEFGH,IJ
C 2K LMN,OPQRST,UVWXYZ
C
C STATEMENTS STRUNG OUT OVER SEVERAL LINES
C GO TO(10
C 1 ,
C 2 10
C 3 ),
C 4 I
2 GO TO(9999,9999,9999,
2 19,9,9,
2 2999,999,999),
2 3I
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 36
WRAPAR SUBROUTINE
3 GO TO(9999,9999,9999
3 1,9,9,9
3 2,999,999,999),
3 3I
4 GO TO(9999,9999,99
4 199,9,9,9,9
4 299,999,999),
4 3I
5 GO TO(9999,9999,9999,
5 1 9,9,9,
5 2 999,999,999),
5 3 I
6 GO TO(9999,9999,9999
6 1 ,9,9,9
6 2 ,999,999,999),
6 3 I
7 GO TO(9999,9999,99
7 1 99,9,9,9,9
7 2 99,999,999),
7 3 I
C
C LONG STATEMENTS TO INSURE ADDITION AT PROPER BREAK
C 12345678/012345678/012345678/012345678/012345678/012345678/0123456
8 WRITE(5,9999)IIIIII,IIIIII,IIIIII,IIIIII,IIIIII,IIIIII,IIIIII,ABCD
8 1EF,GHIJKL
C 12345678/012345678/012345678/012345678/012345678/012345678/0123456
9 WRITE(5,9)IIIIII,IIIIII,IIIIII,IIIIII,IIIIII,IIIIII,IIIIII,ABCDEF,
9 1GHIJKL,MNOPQR,STUVWX,YZABCD,EFGHIJ,KLMNOP,QRSTUV,WXYZAB,CDEFGH,IJ
9 2KLMN,OPQRST,UVWXYZ
C 12345678/012345678/012345678/012345678/012345678/012345678/0123456
10 WRITE(5,9)IIIIII,IIIIII,IIIIII,IIIIII,IIIIII,IIIIII,IIIIII,ABCDEF,
10 1GHIJKL,MNOPQR,STUVWX,YZABCD,EFGHIJ,KLMNOP,QRSTUV,WXYZAB,CDEFGH,IJK
10 2 LMN,OPQRST,UVWXYZ
C
C STATEMENTS STRUNG OUT OVER SEVERAL LINES
11 GO TO(9
11 1 9
11 2 9
11 3 9
11 4 9
11 5 ,
11 6 9 9
11 7
11 8 9
11 9 9
11 1 9 ),
11 2 I
C
C NUMBERED STATEMENTS
12 9999 CONTINUE
13 99 CONTINUE
14 3 CONTINUE
15 999 CONTINUE
16 4 CONTINUE
17 5 CONTINUE
18 6 CONTINUE
19 7 CONTINUE
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 37
WRAPAR SUBROUTINE
20 8 CONTINUE
21 99999 CONTINUE
22 9 CONTINUE
23 END
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 38
WRAPAR SUBROUTINE
Statement
Number Referenced by
3 -14
4 -16
5 -17
6 -18
7 -19
8 -20
9 2 3 4 5 6 7 9 10 -22
99 -13
999 2 3 4 5 6 7 -15
9999 2 3 4 5 6 7 8 -12
99999 11 -21
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 39
WRAPAR SUBROUTINE
Word Contained in
ABCDEF 8 9 10
CDEFGH 9 10
CONTINUE 12 13 14 15 16 17 18 19 20
21 22
EFGHIJ 9 10
END 23
GHIJKL 8 9 10
I 2 3 4 5 6 7 11
IIIIII 8 9 10
IJ 9
IJK 10
KLMN 9
KLMNOP 9 10
LMN 10
MNOPQR 9 10
OPQRST 9 10
QRSTUV 9 10
STUVWX 9 10
SUBROUTINE 1
UVWXYZ 9 10
WRAPAROUND 1
WRITE 8 9 10
WXYZAB 9 10
YZABCD 9 10
5 8 9 10
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 40
SUBROUTINE
1 SUBROUTINE
C ROUTINE TO TEST SEPARATE INDEXING OF UNIT
C NUMBERS AND RECORD NUMBERS IN RANDOM ACCESS
C I/O READ, WRITE AND FIND STATEMENTS. THESE
C ARE SEPARATED BY NUMBER SIGN OR APOSTROPHE.
C
C AA AND BB SHOULD BE INDEXED SEPARATELY, CC AND
C DD TOGETHER IN ALPHAMERIC TEXT STRING
C
C READ STATEMENTS WITH RANDOM I/O
2 READ(10'10,90)READ(10,10)
3 READ(10#10,90)READ(10,10)
4 READ(AA'BB,90)READ(10,10)
5 READ(AA#BB,90)READ(10,10)
6 READ(10'10,90,ERR=90,END=90)READ(10,10)
7 READ(10#10,90,ERR=90,END=90)READ(10,10)
8 READ(AA'BB,90,ERR=90,END=90)READ(10,10)
9 READ(AA#BB,90,ERR=90,END=90)READ(10,10)
10 READ( 10 ' 10 ,90)READ(10,10)
11 READ( 10 # 10 ,90)READ(10,10)
12 READ( AA ' BB ,90)READ(10,10)
13 READ( AA # BB ,90)READ(10,10)
14 READ( 10 ' 10 ,90,ERR=90,END=90)READ(10,10)
15 READ( 10 # 10 ,90,ERR=90,END=90)READ(10,10)
16 READ( AA ' BB ,90,ERR=90,END=90)READ(10,10)
17 READ( AA # BB ,90,ERR=90,END=90)READ(10,10)
18 READ(5HCC'DD,90)READ(10,10)
19 READ('CC#DD',90)READ(10,10)
20 READ(5HCC#DD,90)READ(10,10)
21 READ(5HCC'DD,90,END=90,ERR=90)READ(10,10)
22 READ('CC#DD',90,END=90,ERR=90)READ(10,10)
23 READ(5HCC#DD,90,END=90,ERR=90)READ(10,10)
24 READ(AA',90,END=90,ERR=90)READ(10,10)
25 READ(#AA,90,END=90,ERR=90)READ(10,10)
26 READ(AA#,90,END=90,ERR=90)READ(10,10)
27 READ(#,90,END=90,ERR=90)READ(10,10)
C
C WRITE STATEMENTS WITH RANDOM I/O
28 WRITE(10'10,90)WRITE(10,10)
29 WRITE(10#10,90)WRITE(10,10)
30 WRITE(AA'BB,90)WRITE(10,10)
31 WRITE(AA#BB,90)WRITE(10,10)
32 WRITE( 10 ' 10 ,90)WRITE(10,10)
33 WRITE( 10 # 10 ,90)WRITE(10,10)
34 WRITE( AA ' BB ,90)WRITE(10,10)
35 WRITE( AA # BB ,90)WRITE(10,10)
36 WRITE(5HCC'DD,90)WRITE(10,10)
37 WRITE('CC#DD',90)WRITE(10,10)
38 WRITE(5HCC#DD,90)WRITE(10,10)
C
C FIND STATEMENTS
39 FIND(10'10)
40 FIND(10#10)
41 FIND(AA'BB)
42 FIND(AA#BB)
43 FIND(5HCC'DD)
44 FIND(5HCC#DD)
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 41
SUBROUTINE
45 FIND('CC#DD')
46 FIND(AA')
47 FIND(#AA)
48 FIND(AA#)
49 FIND(#)
C
C NUMBERED STATEMENTS
50 100 CONTINUE
51 90 CONTINUE
52 81 CONTINUE
53 73 CONTINUE
54 66 CONTINUE
55 60 CONTINUE
56 55 CONTINUE
57 51 CONTINUE
58 48 CONTINUE
59 46 CONTINUE
60 45 CONTINUE
61 E N D
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 42
SUBROUTINE
Statement
Number Referenced by
45 -60
46 -59
48 -58
51 -57
55 -56
60 -55
66 -54
73 -53
81 -52
90 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 -51
100 -50
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 43
SUBROUTINE
Word Contained in
AA 4 5 8 9 12 13 16 17 24
25 26 30 31 34 35 41 42 46
47 48
BB 4 5 8 9 12 13 16 17 30
31 34 35 41 42
CONTINUE 50 51 52 53 54 55 56 57 58
59 60
D 61
E 61
END -6 -7 -8 -9 -14 -15 -16 -17 -21
-22 -23 -24 -25 -26 -27
ERR -6 -7 -8 -9 -14 -15 -16 -17 -21
-22 -23 -24 -25 -26 -27
FIND 39 40 41 42 43 44 45 46 47
48 49
N 61
READ 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
SUBROUTINE 1
WRITE 28 29 30 31 32 33 34 35 36
37 38
'CC#DD' 19 22 37 45
10 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
5HCC#DD 20 23 38 44
5HCC'DD 18 21 36 43
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 44
MAIN PROGRAM
1 IF( A.EQ. '48)GO TO 48')GO TO 90
2 IF( A. EQ .11H48)GO TO 48)GO TO 90
3 IF ( A. E Q. 1 1 H48)GO TO 48)GO TO 90
4 IF(A.EQ. 1 1 H48)GO TO 48)GO TO 90
5 IF(A.EQ.011H48)GO TO 48)GO TO 90
6 IF(A.EQ. 0 1 1 H48)GO TO 48)GO TO 90
C
C NUMBERED STATEMENTS
7 100 CONTINUE
8 90 CONTINUE
9 81 CONTINUE
10 73 CONTINUE
11 66 CONTINUE
12 60 CONTINUE
13 55 CONTINUE
14 51 CONTINUE
15 48 CONTINUE
16 46 CONTINUE
17 45 CONTINUE
18 END
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 45
MAIN PROGRAM
Statement
Number Referenced by
45 -17
46 -16
48 -15
51 -14
55 -13
60 -12
66 -11
73 -10
81 -9
90 1 2 3 4 5 6 -8
100 -7
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 46
MAIN PROGRAM
Word Contained in
A 1 2 3 4 5 6
CONTINUE 7 8 9 10 11 12 13 14 15
16 17
END 18
'48)GO TO 1
011H48)GO 5 6
11H48)GO T 2 3 4
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 47
ONE SUBROUTINE
1 SUBROUTINE O N E
C THIS ROUTINE TEST REJECTION OF CARD IDENTIFICATION COLUMNS
C2345678/012345678/012345678/012345678/012345678/012345678/012345678/012
C00000000111111111122222222223333333333444444444455555555556666666666777
2 G O
2 1T O
2 29 0
3 G O
3 1T O
3 29 0
4 G O
4 1T O
4 29 0
5 G O
5 1T O
5 29 0
6 100 CONTINUE
7 90 CONTINUE
8 81 CONTINUE
9 73 CONTINUE
10 66 CONTINUE
11 60 CONTINUE
12 55 CONTINUE
13 51 CONTINUE
14 48 CONTINUE
15 46 CONTINUE
16 45 CONTINUE
17 E N D
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 48
ONE SUBROUTINE
Statement
Number Referenced by
45 -16
46 -15
48 -14
51 -13
55 -12
60 -11
66 -10
73 -9
81 -8
90 2 3 4 5 -7
100 -6
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 49
ONE SUBROUTINE
Word Contained in
CONTINUE 6 7 8 9 10 11 12 13 14
15 16
D 17
E 1 17
N 1 17
O 1
SUBROUTINE 1
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 50
FOR-II FUNCTION
1 FUNCTION FOR-II
2 ACCEPT 90,I 48,(I 48(I),I=1,48)
3 ACCEPT TAPE 90,I 48,(I 48(I),I=1,48)
4 ASSIGN 90 TO I 48
5 DO 90 I=48,48,48
6 FREQUENCY 90(48),90,90(48,48),90(48,48,48)
7 GO TO 90
8 GO TO I 48
9 GO TO I 48,(90,90)
10 GO TO(90,90),I 48
11 IF(48)90,90,90
12 IF ACCUMULATOR OVERFLOW 90,90
13 IF DIVIDE CHECK 90,90
14 IF QUOTIENT OVERFLOW 90,90
15 PRINT 90,I 48,(I 48(I),I=1,48)
16 PUNCH 90,I 48,(I 48(I),I=1,48)
17 PUNCH TAPE 90,I 48,(I 48(I),I=1,48)
18 READ 90,I 48,(I 48(I),I=1,48)
19 READ INPUT TAPE 48,90,I 48,(I 48(I),I=1,48)
20 TYPE 90,I 48,(I 48(I),I=1,48)
21 WRITE OUTPUT TAPE 48,90,I 48,(I 48(I),I=1,48)
22 READ DRUM 48,48,I 48,(I 48(I),I=1,48)
23 READ TAPE 48,I 48,(I 48(I),I=1,48)
24 WRITE DRUM 48,48,I 48,(I 48(I),I=1,48)
25 WRITE TAPE 48,I 48,(I 48(I),I=1,48)
26 100 CONTINUE
27 90 CONTINUE
28 81 CONTINUE
29 73 CONTINUE
30 66 CONTINUE
31 60 CONTINUE
32 55 CONTINUE
33 51 CONTINUE
34 48 CONTINUE
35 46 CONTINUE
36 45 CONTINUE
37 END
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 51
FOR-II FUNCTION
Statement
Number Referenced by
45 -36
46 -35
48 -34
51 -33
55 -32
60 -31
66 -30
73 -29
81 -28
90 2 3 4 5 6 7 9 10 11
12 13 14 15 16 17 18 19 20
21 -27
100 -26
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 52
FOR-II FUNCTION
Word Contained in
ACCEPT 2
ACCEPTTAPE 3
ASSIGN 4
CONTINUE 26 27 28 29 30 31 32 33 34
35 36
DO 5
DRUM 22 24
END 37
FOR 1
FREQUENCY 6
FUNCTION 1
I -2 -3 4 -5 8 10 -15 -16 -17
-18 -19 -20 -21 -22 -23 -24 -25
IFACCUMULA 12
IFDIVIDECH 13
IFQUOTIENT 14
II 1
I48 9
PRINT 15
PUNCH 16
PUNCHTAPE 17
READ 18 22 23
READINPUTT 19
TAPE 23 25
TO 4
TYPE 20
WRITE 24 25
WRITEOUTPU 21
1 2 3 15 16 17 18 19 20 21
22 23 24 25
48 2 3 4 5 6 8 10 11 15
16 17 18 19 20 21 22 23 24
25
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 53
FOR-IV FUNCTION
1 FUNCTION FOR-IV
2 IF(I 48)GO TO 90
3 READ(48,90)I 48,(I 48(I),I=1,48)
4 READ(48,I 48)I 48,(I 48(I),I=1,48)
5 READ(48,I 48,END=90,ERR=90)I 48,(I 48(I),I=1,48)
6 READ(48,90,END=90,ERR=90)I 48,(I 48(I),I=1,48)
7 WRITE(48,90)I 48,(I 48(I),I=1,48)
8 WRITE(48,I 48)I 48,(I 48(I),I=1,48)
9 WRITE(48)I 48,(I 48(I),I=1,48)
10 READ(48)I 48,(I 48(I),I=1,48)
11 READ 90,I 48,(I 48(I),I=1,48)
12 READ 90
13 READ(48#48,90)I 48,(I 48(I),I=1,48)
14 READ(48#48)I 48,(I 48(I),I=1,48)
15 WRITE 90,I 48,(I 48(I),I=1,48)
16 WRITE 90
17 WRITE(48#48,90)I 48,(I 48(I),I=1,48)
18 WRITE(48#48,I 48)I 48,(I 48(I),I=1,48)
19 READ(48#48,I 48)I 48,(I 48(I),I=1,48)
20 REREAD 90,I 48,(I 48(I),I=1,48)
21 FIND(48#48)
22 ACCEPT 90,I 48,(I 48(I),I=1,48)
23 ACCEPT 90
24 PRINT 90,I 48,(I 48(I),I=1,48)
25 PRINT 90
26 PUNCH 90,I 48,(I 48(I),I=1,48)
27 PUNCH 90
28 TYPE 90,I 48,(I 48(I),I=1,48)
29 TYPE 90
30 OPEN(UNIT=48,ERR=90,DEVICE=48)
31 CLOSE(UNIT=48,ERR=90,DEVICE=48)
32 ENCODE(48,90,I 48)I 48,(I 48(I),I=1,48)
33 DECODE(48,90,I 48)I 48,(I 48(I),I=1,48)
34 ENCODE(48,90,I 48,ERR=90)I 48,(I 48(I),I=1,48)
35 DECODE(48,90,I 48,ERR=90)I 48,(I 48(I),I=1,48)
36 100 CONTINUE
37 90 CONTINUE
38 81 CONTINUE
39 73 CONTINUE
40 66 CONTINUE
41 60 CONTINUE
42 55 CONTINUE
43 51 CONTINUE
44 48 CONTINUE
45 46 CONTINUE
46 45 CONTINUE
47 END
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 54
FOR-IV FUNCTION
Statement
Number Referenced by
45 -46
46 -45
48 -44
51 -43
55 -42
60 -41
66 -40
73 -39
81 -38
90 2 3 5 6 7 11 12 13 15
16 17 20 22 23 24 25 26 27
28 29 30 31 32 33 34 35 -37
100 -36
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 55
FOR-IV FUNCTION
Word Contained in
ACCEPT 22 23
CLOSE 31
CONTINUE 36 37 38 39 40 41 42 43 44
45 46
DECODE 33 35
DEVICE -30 -31
ENCODE 32 34
END -5 -6 47
ERR -5 -6 -30 -31 -34 -35
FIND 21
FOR 1
FUNCTION 1
I -3 -4 -5 -6 -7 -8 -9 -10 -11
-13 -14 -15 -17 -18 -19 -20 -22 -24
-26 -28 -32 -33 -34 -35
IV 1
I48 2 5 34 35
OPEN 30
PRINT 24 25
PUNCH 26 27
READ 3 4 5 6 10 11 12 13 14
19
REREAD 20
TYPE 28 29
UNIT -30 -31
WRITE 7 8 9 15 16 17 18
1 3 4 5 6 7 8 9 10 11
13 14 15 17 18 19 20 22 24
26 28 32 33 34 35
48 3 4 5 6 7 8 9 10 11
13 14 15 17 18 19 20 21 22
24 26 28 30 31 32 33 34 35
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 56
STEPNU FUNCTION
1 FUNCTION STEPNUMBERING
C THE ORIGINAL STEPS ARE 1-33, 34-67, 68-101, 102-135 ETC.
C IF FIRST NUMBER IS 3 AND INCREMENT 5, THEN OUTPUT
C NUMBERING WOULD BE 3 8 13 18 23 ... 53 58 63 68 73 ETC.
C IF THE FIRST NUMBER IS 8, THEN THE OUTPUT
C NUMBERING WOULD BE 8 13 18 23 ... 53 58 63 68 73 ETC.
CRENBRI5B3O34N50
C FIRST STATEMENT SHOULD BE 3
2 10 GO TO 5
3 5 GO TO 250
4 15 GO TO 210
5 250 GO TO 350
6 20 GO TO 299
C NEXT STATEMENT SHOULD BE 53
7 203 GO TO 52
C NEXT STATEMENT SHOULD BE 103
8 210 CONTINUE
9 300 CONTINUE
10 350 CONTINUE
11 239 CONTINUE
12 215 CONTINUE
C NEXT STATEMENT SHOULD BE 153
13 42 CONTINUE
14 299 CONTINUE
15 35 CONTINUE
16 52 CONTINUE
17 45 CONTINUE
18 END
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 57
STEPNU FUNCTION
Statement
Number Referenced by
5 2 -3
10 -2
15 -4
20 -6
35 -15
42 -13
45 -17
52 7 -16
203 -7
210 4 -8
215 -12
239 -11
250 3 -5
299 6 -14
300 -9
350 5 -10
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 58
STEPNU FUNCTION
Word Contained in
CONTINUE 8 9 10 11 12 13 14 15 16
17
END 18
FUNCTION 1
STEPNUMBER 1
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 59
MIDDLE SUBROUTINE
1 SUBROUTINE MIDDLE
C FIRST STATEMENT SHOULD BE 8
2 10 GO TO 5
3 5 GO TO 250
4 15 GO TO 210
5 250 GO TO 350
6 20 GO TO 299
C NEXT STATEMENT SHOULD BE 53
7 203 GO TO 52
C NEXT STATEMENT SHOULD BE 103
8 210 CONTINUE
9 300 CONTINUE
10 350 CONTINUE
11 239 CONTINUE
12 215 CONTINUE
C NEXT STATEMENT SHOULD BE 153
C R E N B R / I : 5 B 8 O 34 N 50
13 42 CONTINUE
14 299 CONTINUE
15 35 CONTINUE
16 52 CONTINUE
17 45 CONTINUE
18 END
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 60
MIDDLE SUBROUTINE
Statement
Number Referenced by
5 2 -3
10 -2
15 -4
20 -6
35 -15
42 -13
45 -17
52 7 -16
203 -7
210 4 -8
215 -12
239 -11
250 3 -5
299 6 -14
300 -9
350 5 -10
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 61
MIDDLE SUBROUTINE
Word Contained in
CONTINUE 8 9 10 11 12 13 14 15 16
17
END 18
MIDDLE 1
SUBROUTINE 1
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 62
REVERS SUBROUTINE
1 SUBROUTINE REVERSE
C FIRST STATEMENT SHOULD BE 173
2 10 GO TO 5
3 5 GO TO 250
4 15 GO TO 203
5 250 GO TO 300
6 20 GO TO 350
C ABOVE STATEMENT SHOULD BE 153 AND BELOW 103
7 203 GO TO 30
C ABOVE STATEMENT SHOULD BE 103 AND BELOW 73
8 210 GO TO 45
9 300 CONTINUE
10 310 CONTINUE
11 350 CONTINUE
12 215 CONTINUE
C ABOVE STATEMENT SHOULD BE 53 AND BELOW 23
13 35 CONTINUE
14 30 CONTINUE
15 50 CONTINUE
16 45 CONTINUE
C R E N B R / I : -5 B 8 O 34 N 50
17 END
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 63
REVERS SUBROUTINE
Statement
Number Referenced by
5 2 -3
10 -2
15 -4
20 -6
30 7 -14
35 -13
45 8 -16
50 -15
203 4 -7
210 -8
215 -12
250 3 -5
300 5 -9
310 -10
350 6 -11
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 64
REVERS SUBROUTINE
Word Contained in
CONTINUE 9 10 11 12 13 14 15 16
END 17
REVERSE 1
SUBROUTINE 1
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 65
MULTPL FUNCTION
1 FUNCTION MULTPL;ACCEPT 90,I 48,(I 48(I),I=1,48);ACCEPT TAPE 90,I 4
1 18,(I 48(I),I=1,48);ASSIGN 90 TO I 48;DO 90 I=48,48,48;FREQUENCY 90
1 2(48),90,90(48,48),90(48,48,48);GO TO 90;GO TO I 48;GO TO I 48,(90,
1 390);GO TO(90,90),I 48;IF(48)90,90,90;IF ACCUMULATOR OVERFLOW 90,90
1 4;IF DIVIDE CHECK 90,90;IF QUOTIENT OVERFLOW 90,90;PRINT 90,I 48,(I
1 5 48(I),I=1,48);PUNCH 90,I 48,(I 48(I),I=1,48);PUNCH TAPE 90,I 48,(
1 6I 48(I),I=1,48);READ 90,I 48,(I 48(I),I=1,48);READ INPUT TAPE 48,9
1 70,I 48,(I 48(I),I=1,48);TYPE 90,I 48,(I 48(I),I=1,48);WRITE OUTPUT
1 8 TAPE 48,90,I 48,(I 48(I),I=1,48)
2 READ DRUM 48,48,I 48,(I 48(I),I=1,48);READ TAPE 48,I 48,(I 48(I),I
2 1=1,48);WRITE DRUM 48,48,I 48,(I 48(I),I=1,48);WRITE TAPE 48,I 48,(
2 2I 48(I),I=1,48);IF(I 48)GO TO 90;READ(48,90)I 48,(I 48(I),I=1,48);
2 3READ(48,I 48)I 48,(I 48(I),I=1,48);READ(48,I 48,END=90,ERR=90)I 48
2 4,(I 48(I),I=1,48);READ(48,90,END=90,ERR=90)I 48,(I 48(I),I=1,48);W
2 5RITE(48,90)I 48,(I 48(I),I=1,48);WRITE(48,I 48)I 48,(I 48(I),I=1,4
2 68);WRITE(48)I 48,(I 48(I),I=1,48);READ(48)I 48,(I 48(I),I=1,48);RE
2 7AD 90,I 48,(I 48(I),I=1,48);READ 90;READ(48#48,90)I 48,(I 48(I),I=
2 81,48);READ(48#48)I 48,(I 48(I),I=1,48)
3 WRITE 90,I 48,(I 48(I),I=1,48);WRITE 90;WRITE(48#48,90)I 48,(I 48(
3 1I),I=1,48);WRITE(48#48,I 48)I 48,(I 48(I),I=1,48);READ(48#48,I 48)
3 2I 48,(I 48(I),I=1,48);REREAD 90,I 48,(I 48(I),I=1,48);FIND(48#48);
3 3ACCEPT 90,I 48,(I 48(I),I=1,48);ACCEPT 90;PRINT 90,I 48,(I 48(I),I
3 4=1,48);PRINT 90;PUNCH 90,I 48,(I 48(I),I=1,48);PUNCH 90;TYPE 90,I
3 548,(I 48(I),I=1,48);TYPE 90;ENCODE(48,90,I 48)I 48,(I 48(I),I=1,48
3 6);DECODE(48,90,I 48)I 48,(I 48(I),I=1,48)
4 100 CONTINUE
5 90 CONTINUE
6 81 CONTINUE
7 73 CONTINUE
8 66 CONTINUE
9 60 CONTINUE
10 55 CONTINUE
11 51 CONTINUE
12 48 CONTINUE
13 46 CONTINUE
14 45 CONTINUE
15 END
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 66
MULTPL FUNCTION
Statement
Number Referenced by
45 -14
46 -13
48 -12
51 -11
55 -10
60 -9
66 -8
73 -7
81 -6
90 1 2 3 -5
100 -4
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 67
MULTPL FUNCTION
Word Contained in
ACCEPT 1 3
ACCEPTTAPE 1
ASSIGN 1
CONTINUE 4 5 6 7 8 9 10 11 12
13 14
DECODE 3
DO 1
DRUM 2
ENCODE 3
END -2 15
ERR -2
FIND 3
FREQUENCY 1
FUNCTION 1
I -1 -2 -3
IFACCUMULA 1
IFDIVIDECH 1
IFQUOTIENT 1
I48 1 2
MULTPL 1
PRINT 1 3
PUNCH 1 3
PUNCHTAPE 1
READ 1 2 3
READINPUTT 1
REREAD 3
TAPE 2
TO 1
TYPE 1 3
WRITE 2 3
WRITEOUTPU 1
1 1 2 3
48 1 2 3
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 68
COMENT FUNCTION
1 FUNCTION COMENT;ACCEPT 90,I 48,(I 48(I),!COMMENT ONE 012345678/012
1 1I=1,48);ACCEPT TAPE 90,I 48,(I 48(I),I=1!COMMENT TWO 012345678/012
1 2,48);ASSIGN 90 TO I 48;DO 90 I=48,48,48;!COMMENT THREE 2345678/012
1 3FREQUENCY 90(48),90,90(48,48),90(48,48,4!COMMENT FOUR 12345678/012
1 48);GO TO 90;GO TO I 48;GO TO I 48,(90,90!COMMENT FIVE 12345678/012
1 5);GO TO(90,90),I 48;IF(48)90,90,90;IF AC!COMMENT SIX 012345678/012
1 6CUMULATOR OVERFLOW 90,90;IF DIVIDE CHECK!COMMENT SEVEN 2345678/012
1 7 90,90;IF QUOTIENT OVERFLOW 90,90;PRINT !COMMENT EIGHT 2345678/012
1 890,I 48,(I 48(I),I=1,48)!COMMENT NINE 5678/012345678/012345678/012
2 PUNCH 90,I 48,(I 48(I),I=1,48);PUNCH TAP!COMMENT ONE 012345678/012
2 1E 90,I 48,(I 48(I),I=1,48);READ 90,I 48,!COMMENT TWO 012345678/012
2 2(I 48(I),I=1,48);READ INPUT TAPE 48,90,I!COMMENT THREE 2345678/012
2 3 48,(I 48(I),I=1,48);TYPE 90,I 48,(I 48(!COMMENT FOUR 12345678/012
2 4I),I=1,48);WRITE OUTPUT TAPE 48,90,I 48,!COMMENT FIVE 12345678/012
2 5(I 48(I),I=1,48);READ DRUM 48,48,I 48,(I!COMMENT SIX 012345678/012
2 6 48(I),I=1,48);READ TAPE 48,I 48,(I 48(I!COMMENT SEVEN 2345678/012
2 7),I=1,48);WRITE DRUM 48,48,I 48,(I 48(I)!COMMENT EIGHT 2345678/012
2 8,I=1,48)!COMMENT NINE /012345678/012345678/012345678/012345678/012
3 WRITE TAPE 48,I 48,(I 48(I),I=1,48);IF(I!COMMENT ONE 012345678/012
3 1 48)GO TO 90;READ(48,90)I 48,(I 48(I),I=!COMMENT TWO 012345678/012
3 21,48);READ(48,I 48)I 48,(I 48(I),I=1,48)!COMMENT THREE 2345678/012
3 3;READ(48,I 48,END=90,ERR=90)I 48,(I 48(I!COMMENT FOUR 12345678/012
3 4),I=1,48);READ(48,90,END=90,ERR=90)I 48,!COMMENT FIVE 12345678/012
3 5(I 48(I),I=1,48);WRITE(48,90)I 48,(I 48(!COMMENT SIX 012345678/012
3 6I),I=1,48);WRITE(48,I 48)I 48,(I 48(I),I!COMMENT SEVEN 2345678/012
3 7=1,48);WRITE(48)I 48,(I 48(I),I=1,48);RE!COMMENT EIGHT 2345678/012
3 8AD(48)I 48,(I 48(I),I=1,48)!COMMENT NINE 8/012345678/012345678/012
4 READ 90,I 48,(I 48(I),I=1,48);READ 90;RE!COMMENT ONE 012345678/012
4 1AD(48#48,90)I 48,(I 48(I),I=1,48);READ(4!COMMENT TWO 012345678/012
4 28#48)I 48,(I 48(I),I=1,48);WRITE 90,I 48!COMMENT THREE 2345678/012
4 3,(I 48(I),I=1,48); WRITE 90;WRITE(48#48,!COMMENT FOUR 12345678/012
4 490)I48,(I 48(I),I=1,48);WRITE(48#48,I 48!COMMENT FIVE 12345678/012
4 5)I 48,(I 48(I),I=1,48);READ(48#48,I 48)I!COMMENT SIX 012345678/012
4 6 48,(I 48(I),I=1,48);REREAD 90,I 48,(I 4!COMMENT SEVEN 2345678/012
4 78(I),I=1,48);FIND(48#48);ACCEPT 90,I 48,!COMMENT EIGHT 2345678/012
4 8(I 48(I),I=1,48);ACCEPT 90!COMMENT NINE 78/012345678/012345678/012
5 PRINT 90,I 48,(I 48(I),I=1,48);PRINT 90;!COMMENT ONE 012345678/012
5 1PUNCH 90,I 48,(I 48(I),I=1,48);PUNCH 90;!COMMENT TWO 012345678/012
5 2TYPE 90,I 48,(I 48(I),I=1,48);TYPE 90;EN!COMMENT THREE 2345678/012
5 3CODE(48,90,I 48)I 48,(I 48(I),I=1,48);DE!COMMENT FOUR 12345678/012
5 4CODE(48,90,I 48)I 48,(I 48(I),I=1,48)!COMMENT FIVE 8/012345678/012
6 100 CONTINUE
7 90 CONTINUE
8 81 CONTINUE
9 73 CONTINUE
10 66 CONTINUE
11 60 CONTINUE
12 55 CONTINUE
13 51 CONTINUE
14 48 CONTINUE
15 46 CONTINUE
16 45 CONTINUE
17 END
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 69
COMENT FUNCTION
Statement
Number Referenced by
45 -16
46 -15
48 -14
51 -13
55 -12
60 -11
66 -10
73 -9
81 -8
90 1 2 3 4 5 -7
100 -6
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 70
COMENT FUNCTION
Word Contained in
ACCEPT 1 4
ACCEPTTAPE 1
ASSIGN 1
COMENT 1
CONTINUE 6 7 8 9 10 11 12 13 14
15 16
DECODE 5
DO 1
DRUM 2
ENCODE 5
END -3 17
ERR -3
FIND 4
FREQUENCY 1
FUNCTION 1
I -1 -2 -3 -4 -5
IFACCUMULA 1
IFDIVIDECH 1
IFQUOTIENT 1
I48 1 3 4
PRINT 1 5
PUNCH 2 5
PUNCHTAPE 2
READ 2 3 4
READINPUTT 2
REREAD 4
TAPE 2 3
TO 1
TYPE 2 5
WRITE 2 3 4
WRITEOUTPU 2
1 1 2 3 4 5
48 1 2 3 4 5
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 71
STATEMENTS WHICH EXPAND EXPAND
CRENBR(EXPAND/STATEMENTS WHICH EXPAND)B22I2200
1 DO99A=1,2,3;DO99B=1,2,3;DO99C=1,2,3;DO99D=1,2,3;DO!COMMENT99999999
1 199E=1,2,3;DO99F=1,2,3;DO99G=1,2,3;DO99H=1,2,3;DO99!MMENT9999999999
1 2I=1,2,3;DO99J=1,2,3;DO99K=1,2,3;DO99L=1,2,3;DO99M=!COMMENT99999999
1 31,2,3;DO99N=1,2,3;DO99O=1,2,3;DO99P=1,2,3;DO99Q=1,!COMMENT99999999
1 42,3;DO99R=1,2,3;DO99S=1,2,3;DO99T=1,2,3;DO99U=1,2,!COMMENT99999999
1 53;DO99V=1,2,3;DO99W=1,2,3;DO99X=1,2,3;DO99Y=1,2,3;!COMMENT99999999
1 6DO99Z=1,2,3;DO99A=1,2,3;DO99B=1,2,3;DO99C=1,2,3;DO!COMMENT99999999
1 799D=1,2,3;DO99E=1,2,3;DO99F=1,2,3;DO99G=1,2,3;DO99!MMENT9999999999
1 8H=1,2,3;DO99I=1,2,3;DO99J=1,2,3;DO99K=1,2,3! COMMENT999999
2 DO99AA=1,2,3;DO99BB=1,2,3;DO99CC=1,2,3;DO99DD=1,2,!COMMENT99999999
2 13;DO99EE=1,2,3;DO99FF=1,2,3;DO99GG=1,2,3;DO99HH=1,!COMMENT99999999
2 22,3;DO99II=1,2,3;DO99JJ=1,2,3;DO99KK=1,2,3;DO99LL=!COMMENT99999999
2 31,2,3;DO99MM=1,2,3;DO99NN=1,2,3;DO99OO=1,2,3;DO99P!COMMENT99999999
2 4P=1,2,3;DO99QQ=1,2,3;DO99RR=1,2,3;DO99SS=1,2,3;DO9!COMMENT99999999
2 59TT=1,2,3;DO99UU=1,2,3;DO99VV=1,2,3;DO99WW=1,2,3;D! COMMENT999999
2 6O99XX=1,2,3;DO99YY=1,2,3;DO99ZZ=1,2,3;DO99AA=1,2,3!COMMENT99999999
2 7;DO99BB=1,2,3;DO99CC=1,2,3;DO99DD=1,2,3;DO99EE=1,2!COMMENT99999999
2 8,3;DO99FF=1,2,3;DO99GG=1,2,3;DO99HH=1,2,3! COMMENT999999
3 IF(A)99,99,99;IF(B)99,99,99;IF(C)99,99,99;IF(D)99,!999999999999999
3 199,99;IF(E)99,99,99;IF(F)99,99,99;IF(G)99,99,99;IF!999999999999999
3 2(H)99,99,99;IF(I)99,99,99;IF(J)99,99,99;IF(K)99,99!999999999999999
3 3,99;IF(L)99,99,99;IF(M)99,99,99;IF(N)99,99,99;IF(O!999999999999999
3 4)99,99,99;IF(P)99,99,99;IF(Q)99,99,99;IF(R)99,99,9!999999999999999
3 59;IF(S)99,99,99;IF(T)99,99,99;IF(U)99,99,99;IF(V)9!999999999999999
3 69,99,99;IF(W)99,99,99;IF(X)99,99,99;IF(Y)99,99,99;!999999999999999
3 7IF(Z)99,99,99;IF(A)99,99,99;IF(B)99,99,99;IF(C)99,!999999999999999
3 899,99! COMMENT9999999999999999999999999999999999999999999999
4 IF(AA)99,99,99;IF(BB)99,99,99;IF(CC)99,99,99;IF(DD!999999999999999
4 1)99,99,99;IF(EE)99,99,99;IF(FF)99,99,99;IF(GG)99,9!999999999999999
4 29,99;IF(HH)99,99,99;IF(II)99,99,99;IF(JJ)99,99,99;!999999999999999
4 3IF(KK)99,99,99;IF(LL)99,99,99;IF(MM)99,99,99;IF(NN!999999999999999
4 4)99,99,99;IF(OO)99,99,99;IF(PP)99,99,99;IF(QQ)99,9!999999999999999
4 59,99;IF(RR)99,99,99;IF(SS)99,99,99;IF(TT)99,99,99;!999999999999999
4 6IF(UU)99,99,99;IF(VV)99,99,99;IF(WW)99,99,99;IF(XX!999999999999999
4 7)99,99,99;IF(YY)99,99,99;IF(ZZ)99,99,99;IF(AA)99,9!999999999999999
4 89,99;IF(BB)99,99,99!OMMENT9999999999999999999999999999999999999999
5 GOTO99;GOTO99;GOTO99;GOTO99;GOTO99;GOTO99;GOTO99;G!T99999999999999
5 1OTO99;GOTO99;GOTO99;GOTO99;GOTO99;GOTO99;GOTO99;GO!T99999999999999
5 2TO99;GOTO99;GOTO99;GOTO99;GOTO99;GOTO99;GOTO99;GOT!T99999999999999
5 3O99;GOTO99;GOTO99;GOTO99;GOTO99;GOTO99;GOTO99;GOTO!T99999999999999
5 499;GOTO99;GOTO99;GOTO99;GOTO99;GOTO99;GOTO99;GOTO9!999999999999999
5 59;GOTO99;GOTO99;GOTO99;GOTO99;GOTO99;GOTO99;GOTO99!T99999999999999
5 6;GOTO99;GOTO99;GOTO99;GOTO99;GOTO99;GOTO99;GOTO99;!T99999999999999
5 7GOTO99;GOTO99;GOTO99;GOTO99;GOTO99;GOTO99;GOTO99;G!T99999999999999
5 8OTO99;GOTO99;GOTO99;GOTO99;GOTO99;GOTO99;GOTO99!MENT99999999999999
6 GOTO 99;GOTO 99;GOTO 99;GOTO 99;GOTO 99;GOTO 99;GO!ENT999999999999
6 1TO 99;GOTO 99;GOTO 99;GOTO 99;GOTO 99;GOTO 99;GOTO!ENT999999999999
6 2 99;GOTO 99;GOTO 99;GOTO 99;GOTO 99;GOTO 99;GOTO 9!T99999999999999
6 39;GOTO 99;GOTO 99;GOTO 99;GOTO 99;GOTO 99;GOTO 99;!ENT999999999999
6 4GOTO 99;GOTO 99;GOTO 99;GOTO 99;GOTO 99;GOTO 99;GO!ENT999999999999
6 5TO 99;GOTO 99;GOTO 99;GOTO 99;GOTO 99;GOTO 99;GOTO!ENT999999999999
6 6 99;GOTO 99;GOTO 99;GOTO 99;GOTO 99;GOTO 99;GOTO 9!T99999999999999
6 79;GOTO 99;GOTO 99;GOTO 99;GOTO 99;GOTO 99;GOTO 99;!ENT999999999999
6 8GOTO 99;GOTO 99;GOTO 99;GOTO 99;GOTO 99;GOTO 99!OMMENT999999999999
7 DO9999A=1,2,3;DO9999B=1,2,3;DO9999C=1,2,3;DO9999D=1,2,3;DO!COMMENT
7 19999E=1,2,3;DO9999F=1,2,3;DO9999G=1,2,3;DO9999H=1,2,3;DO9999!MMENT
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 72
STATEMENTS WHICH EXPAND EXPAND MAIN PROGRAM
7 2I=1,2,3;DO9999J=1,2,3;DO9999K=1,2,3;DO9999L=1,2,3;DO9999M=!COMMENT
7 31,2,3;DO9999N=1,2,3;DO9999O=1,2,3;DO9999P=1,2,3;DO9999Q=1,!COMMENT
7 42,3;DO9999R=1,2,3;DO9999S=1,2,3;DO9999T=1,2,3;DO9999U=1,2,!COMMENT
7 53;DO9999V=1,2,3;DO9999W=1,2,3;DO9999X=1,2,3;DO9999Y=1,2,3;!COMMENT
7 6DO9999Z=1,2,3;DO9999A=1,2,3;DO9999B=1,2,3;DO9999C=1,2,3;DO!COMMENT
7 79999D=1,2,3;DO9999E=1,2,3;DO9999F=1,2,3;DO9999G=1,2,3;DO9999!MMENT
7 8H=1,2,3;DO9999I=1,2,3;DO9999J=1,2,3;DO9999K=1,2,3! COMMENT
8 DO9999AA=1,2,3;DO9999BB=1,2,3;DO9999CC=1,2,3;DO9999DD=1,2,!COMMENT
8 13;DO9999EE=1,2,3;DO9999FF=1,2,3;DO9999GG=1,2,3;DO9999HH=1,!COMMENT
8 22,3;DO9999II=1,2,3;DO9999JJ=1,2,3;DO9999KK=1,2,3;DO9999LL=!COMMENT
8 31,2,3;DO9999MM=1,2,3;DO9999NN=1,2,3;DO9999OO=1,2,3;DO9999P!COMMENT
8 4P=1,2,3;DO9999QQ=1,2,3;DO9999RR=1,2,3;DO9999SS=1,2,3;DO9999
8 5 TT=1,2,3;DO9999UU=1,2,3;DO9999VV=1,2,3;DO9999WW=1,2,3;D! COMMENT
8 6O9999XX=1,2,3;DO9999YY=1,2,3;DO9999ZZ=1,2,3;DO9999AA=1,2,3!COMMENT
8 7;DO9999BB=1,2,3;DO9999CC=1,2,3;DO9999DD=1,2,3;DO9999EE=1,2!COMMENT
8 8,3;DO9999FF=1,2,3;DO9999GG=1,2,3;DO9999HH=1,2,3! COMMENT
9 IF(A)9999,9999,9999;IF(B)9999,9999,9999;IF(C)9999,9999,9999;IF(D)9
9 1999,9999,9999;IF(E)9999,9999,9999;IF(F)9999,9999,9999;IF(G)9999,99
9 299,9999;IF(H)9999,9999,9999;IF(I)9999,9999,9999;IF(J)9999,9999,999
9 39;IF(K)9999,9999,9999;IF(L)9999,9999,9999;IF(M)9999,9999,9999;IF(N
9 4)9999,9999,9999;IF(O)9999,9999,9999;IF(P)9999,9999,9999;IF(Q)9999,
9 59999,9999;IF(R)9999,9999,9999;IF(S)9999,9999,9999;IF(T)9999,9999,9
9 6999;IF(U)9999,9999,9999;IF(V)9999,9999,9999;IF(W)9999,9999,9999;IF
9 7(X)9999,9999,9999;IF(Y)9999,9999,9999;IF(Z)9999,9999,9999;IF(A)999
9 89,9999,9999;IF(B)9999,9999,9999;IF(C)9999,9999,9999! COMMENT
10 IF(AA)9999,9999,9999;IF(BB)9999,9999,9999;IF(CC)9999,9999,9999;IF(
10 1DD)9999,9999,9999;IF(EE)9999,9999,9999;IF(FF)9999,9999,9999;IF(GG)
10 29999,9999,9999;IF(HH)9999,9999,9999;IF(II)9999,9999,9999;IF(JJ)999
10 39,9999,9999;IF(KK)9999,9999,9999;IF(LL)9999,9999,9999;IF(MM)9999,9
10 4999,9999;IF(NN)9999,9999,9999;IF(OO)9999,9999,9999;IF(PP)9999,9999
10 5,9999;IF(QQ)9999,9999,9999;IF(RR)9999,9999,9999;IF(SS)9999,9999,99
10 699;IF(TT)9999,9999,9999;IF(UU)9999,9999,9999;IF(VV)9999,9999,9999;
10 7IF(WW)9999,9999,9999;IF(XX)9999,9999,9999;IF(YY)9999,9999,9999;IF(
10 8ZZ)9999,9999,9999;IF(AA)9999,9999,9999;IF(BB)9999,9999,9999!OMMENT
11 GOTO9999;GOTO9999;GOTO9999;GOTO9999;GOTO9999;GOTO9999;GOTO9999;G!T
11 1OTO9999;GOTO9999;GOTO9999;GOTO9999;GOTO9999;GOTO9999;GOTO9999;GO!T
11 2TO9999;GOTO9999;GOTO9999;GOTO9999;GOTO9999;GOTO9999;GOTO9999;GOT!T
11 3O9999;GOTO9999;GOTO9999;GOTO9999;GOTO9999;GOTO9999;GOTO9999;GOTO!T
11 49999;GOTO9999;GOTO9999;GOTO9999;GOTO9999;GOTO9999;GOTO9999;GOTO999
11 59;GOTO9999;GOTO9999;GOTO9999;GOTO9999;GOTO9999;GOTO9999;GOTO9999!T
11 6;GOTO9999;GOTO9999;GOTO9999;GOTO9999;GOTO9999;GOTO9999;GOTO9999;!T
11 7GOTO9999;GOTO9999;GOTO9999;GOTO9999;GOTO9999;GOTO9999;GOTO9999;G!T
11 8OTO9999;GOTO9999;GOTO9999;GOTO9999;GOTO9999;GOTO9999;GOTO9999!MENT
12 GOTO 9999;GOTO 9999;GOTO 9999;GOTO 9999;GOTO 9999;GOTO 9999;GO!ENT
12 1TO 9999;GOTO 9999;GOTO 9999;GOTO 9999;GOTO 9999;GOTO 9999;GOTO!ENT
12 2 9999;GOTO 9999;GOTO 9999;GOTO 9999;GOTO 9999;GOTO 9999;GOTO 9999
12 3 ;GOTO 9999;GOTO 9999;GOTO 9999;GOTO 9999;GOTO 9999;GOTO 9999;!ENT
12 4GOTO 9999;GOTO 9999;GOTO 9999;GOTO 9999;GOTO 9999;GOTO 9999;GO!ENT
12 5TO 9999;GOTO 9999;GOTO 9999;GOTO 9999;GOTO 9999;GOTO 9999;GOTO!ENT
12 6 9999;GOTO 9999;GOTO 9999;GOTO 9999;GOTO 9999;GOTO 9999;GOTO 9999
12 7 ;GOTO 9999;GOTO 9999;GOTO 9999;GOTO 9999;GOTO 9999;GOTO 9999;!ENT
12 8GOTO 9999;GOTO 9999;GOTO 9999;GOTO 9999;GOTO 9999;GOTO 9999!OMMENT
13 9999 CONTINUE
14 99 CONTINUE
15 END
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 73
STATEMENTS WHICH EXPAND EXPAND MAIN PROGRAM
Statement
Number Referenced by
99 1 2 3 4 5 6 -14
9999 7 8 9 10 11 12 -13
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 74
STATEMENTS WHICH EXPAND EXPAND MAIN PROGRAM
Word Contained in
A -1 3 -7 9
AA -2 4 -8 10
B -1 3 -7 9
BB -2 4 -8 10
C -1 3 -7 9
CC -2 4 -8 10
CONTINUE 13 14
D -1 3 -7 9
DD -2 4 -8 10
DO 1 2 7 8
E -1 3 -7 9
EE -2 4 -8 10
END 15
F -1 3 -7 9
FF -2 4 -8 10
G -1 3 -7 9
GG -2 4 -8 10
H -1 3 -7 9
HH -2 4 -8 10
I -1 3 -7 9
II -2 4 -8 10
J -1 3 -7 9
JJ -2 4 -8 10
K -1 3 -7 9
KK -2 4 -8 10
L -1 3 -7 9
LL -2 4 -8 10
M -1 3 -7 9
MM -2 4 -8 10
N -1 3 -7 9
NN -2 4 -8 10
O -1 3 -7 9
OO -2 4 -8 10
P -1 3 -7 9
PP -2 4 -8 10
Q -1 3 -7 9
QQ -2 4 -8 10
R -1 3 -7 9
RR -2 4 -8 10
S -1 3 -7 9
SS -2 4 -8 10
T -1 3 -7 9
TT -2 4 -8 10
U -1 3 -7 9
UU -2 4 -8 10
V -1 3 -7 9
VV -2 4 -8 10
W -1 3 -7 9
WW -2 4 -8 10
X -1 3 -7 9
XX -2 4 -8 10
Y -1 3 -7 9
YY -2 4 -8 10
Z -1 3 -7 9
ZZ -2 4 -8 10
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 75
STATEMENTS WHICH EXPAND EXPAND MAIN PROGRAM
Word Contained in
1 1 2 7 8
2 1 2 7 8
3 1 2 7 8
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 76
DEMONSTRATE FORTRAN 77 STATEMENTS FTRN77 SUBROUTINE
1 SUBROUTINE FTRN77
C RENBR(/DEMONSTRATE FORTRAN 77 STATEMENTS)
C
C *********************************************
C * *
C * SHORT TEST OF STATEMENTS WHICH USE ERR= *
C * *
C *********************************************
C
C STATEMENTS IN WHICH UNIT NUMBER IS RIGHT OF WORD
2 BACKFILE 48;BACKFILE(ERR=90);BACKFILE(48,ERR=90)
3 BACKSPACE 48;BACKSPACE(ERR=90);BACKSPACE(48,ERR=90)
4 ENDFILE 48;ENDFILE(ERR=90);ENDFILE(48,ERR=90)
5 REWIND 48;REWIND(ERR=90);REWIND(48,ERR=90)
6 SKIPFILE 48;SKIPFILE(ERR=90);SKIPFILE(48,ERR=90)
7 SKIPRECORD 48;SKIPRECORD(ERR=90);SKIPRECORD(48,ERR=90)
8 UNLOAD 48;UNLOAD(ERR=90);UNLOAD(48,ERR=90)
C
C STATEMENTS IN WHICH FORMAT NUMBER IS RIGHT OF WORD
9 ACCEPT 90;ACCEPT 90,48;ACCEPT(ERR=90)48
10 PRINT 90;PRINT 90,48;PRINT(ERR=90)48
11 PUNCH 90;PUNCH 90,48;PUNCH(ERR=90)48
12 REREAD 90;REREAD 90,48;REREAD(ERR=90)48
13 TYPE 90;TYPE 90,48;TYPE(ERR=90)48
C
C STATEMENTS IN WHICH (NUMBER,NUMBER CAN FOLLOW WORD
14 READ 90;READ 90,48;READ(ERR=90)48;READ(48,90,ERR=90)
15 WRITE 90;WRITE 90,48;WRITE(ERR=90)48;WRITE(48,90,ERR=90)
C
C STATEMENTS IN WHICH PARENTHESIS MUST FOLLOW WORD
16 CLOSE(ERR=90)
17 DECODE(48,90,48,ERR=90)48
18 ENCODE(48,90,48,ERR=90)48
19 FIND(ERR=90)
20 INQUIRE(ERR=90)
21 OPEN(ERR=90)
C
C ALL POSSIBLE CLAUSES WHICH USE STATEMENT NUMBER
22 READ(FMT=90,ERR=90,END=90,UNIT=48,IOSTAT=48)48
23 READ(IOSTAT=48,UNIT=48,END=90,ERR=90,FMT=90)48
C
C **************************************
C * *
C * TRY VARIATIONS OF EACH STATEMENT *
C * *
C **************************************
C
C ACCEPT STATEMENTS
24 ACCEPT(FMT=90,END=90,ERR=90,IOSTAT=48)
25 ACCEPT(FMT=90,END=90,ERR=90,IOSTAT=48)48
26 ACCEPT(FMT=*,END=90,ERR=90,IOSTAT=48)
27 ACCEPT(FMT=*,END=90,ERR=90,IOSTAT=48)48
28 ACCEPT 90
29 ACCEPT 90,48
30 ACCEPT *
31 ACCEPT *,48
C
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 77
DEMONSTRATE FORTRAN 77 STATEMENTS FTRN77 SUBROUTINE
C ASSIGN STATEMENT
32 ASSIGN 90 TO 48
C
C BACKFILE STATEMENTS
33 BACKFILE 48
34 BACKFILE(UNIT=48)
35 BACKFILE(ERR=90)
36 BACKFILE(UNIT=48,ERR=90)
37 BACKFILE(ERR=90,UNIT=48)
38 BACKFILE(UNIT=48,ERR=90,IOSTAT=48)
39 BACKFILE(ERR=90,UNIT=48,IOSTAT=48)
40 BACKFILE(UNIT=48,IOSTAT=48,ERR=90)
41 BACKFILE(48,ERR=90)
42 BACKFILE(48,IOSTAT=48)
43 BACKFILE(48,IOSTAT=48,ERR=90)
44 BACKFILE(48,ERR=90,IOSTAT=48)
C
C BACKSPACE STATEMENTS
45 BACKSPACE 48
46 BACKSPACE(UNIT=48)
47 BACKSPACE(ERR=90)
48 BACKSPACE(UNIT=48,ERR=90)
49 BACKSPACE(ERR=90,UNIT=48)
50 BACKSPACE(UNIT=48,ERR=90,IOSTAT=48)
51 BACKSPACE(ERR=90,UNIT=48,IOSTAT=48)
52 BACKSPACE(UNIT=48,IOSTAT=48,ERR=90)
53 BACKSPACE(48,ERR=90)
54 BACKSPACE(48,IOSTAT=48)
55 BACKSPACE(48,IOSTAT=48,ERR=90)
56 BACKSPACE(48,ERR=90,IOSTAT=48)
C
C CLOSE STATEMENTS
57 CLOSE(UNIT=48,ERR=90)
58 CLOSE(ERR=90,UNIT=48)
59 CLOSE(48,ERR=90)
C
C DECODE STATEMENTS
60 DECODE(48,90,48)48
61 DECODE(48,90,48)48
62 DECODE(48,90,48,ERR=90)48
63 DECODE(48,90,48,IOSTAT=48)48
64 DECODE(48,90,48,ERR=90,IOSTAT=48)48
65 DECODE(48,90,48,IOSTAT=48,ERR=90)48
C
C DO STATEMENTS
66 DO 90 I=48,48,48
67 DO 90,I=48,48,48
C
C ENCODE STATEMENTS
68 ENCODE(48,90,48)48
69 ENCODE(48,90,48)48
70 ENCODE(48,90,48,ERR=90)48
71 ENCODE(48,90,48,IOSTAT=48)48
72 ENCODE(48,90,48,ERR=90,IOSTAT=48)48
73 ENCODE(48,90,48,IOSTAT=48,ERR=90)48
C
C ENDFILE STATEMENTS
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 78
DEMONSTRATE FORTRAN 77 STATEMENTS FTRN77 SUBROUTINE
74 ENDFILE 48
75 ENDFILE(UNIT=48,ERR=90,IOSTAT=48)
76 ENDFILE(ERR=90,UNIT=48,IOSTAT=48)
77 ENDFILE(48,ERR=90)
78 ENDFILE(48,IOSTAT=48)
79 ENDFILE(48,ERR=90,IOSTAT=48)
80 ENDFILE(48,IOSTAT=48,ERR=90)
C
C FIND STATEMENTS
81 FIND(UNIT=48,REC=48,ERR=90,IOSTAT=48)
82 FIND(IOSTAT=48,ERR=90,REC=48,UNIT=48)
83 FIND(48,REC=48,ERR=90,IOSTAT=48)
84 FIND(48,IOSTAT=48,ERR=90,REC=48)
85 FIND(48'48,ERR=90,IOSTAT=48)
86 FIND(48'48,IOSTAT=48,ERR=90)
C
C INQUIRE STATEMENTS
87 INQUIRE(UNIT=48,ERR=90,IOSTAT=48)
88 INQUIRE(IOSTAT=48,ERR=90,UNIT=48)
C
C OPEN STATEMENTS
89 OPEN(UNIT=48,ERR=90)
90 OPEN(ERR=90,UNIT=48)
91 OPEN(48,ERR=90)
C
C PRINT STATEMENTS
92 PRINT(FMT=90,ERR=90,IOSTAT=48)48
93 PRINT(ERR=90,FMT=90,IOSTAT=48)48
94 PRINT(IOSTAT=48,ERR=90,FMT=90)48
95 PRINT(IOSTAT=48,FMT=90,ERR=90)48
96 PRINT(FMT=*,ERR=90,IOSTAT=48)48
97 PRINT(IOSTAT=48,ERR=90,FMT=*)48
98 PRINT(FMT=90)
99 PRINT(ERR=90)
100 PRINT(FMT=90,ERR=90)
101 PRINT(ERR=90,FMT=90)
102 PRINT 90,48
103 PRINT *,48
104 PRINT 90
C
C PUNCH STATEMENTS
105 PUNCH(FMT=90,ERR=90,IOSTAT=48)48
106 PUNCH(ERR=90,FMT=90,IOSTAT=48)48
107 PUNCH(IOSTAT=48,ERR=90,FMT=90)48
108 PUNCH(IOSTAT=48,FMT=90,ERR=90)48
109 PUNCH(FMT=*,ERR=90,IOSTAT=48)48
110 PUNCH(IOSTAT=48,ERR=90,FMT=*)48
111 PUNCH(FMT=90)
112 PUNCH(ERR=90)
113 PUNCH(FMT=90,ERR=90)
114 PUNCH(ERR=90,FMT=90)
115 PUNCH 90,48
116 PUNCH *,48
117 PUNCH 90
C
C READ STATEMENTS
118 READ(UNIT=48,FMT=90,REC=48,ERR=90,END=90,IOSTAT=48)48
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 79
DEMONSTRATE FORTRAN 77 STATEMENTS FTRN77 SUBROUTINE
119 READ(IOSTAT=48,END=90,ERR=90,REC=48,FMT=90,UNIT=48)48
120 READ(UNIT=*,FMT=90,REC=48,ERR=90,END=90,IOSTAT=48)48
121 READ(IOSTAT=48,END=90,ERR=90,REC=48,FMT=90,UNIT=*)48
122 READ(UNIT=48,FMT=*,REC=48,ERR=90,END=90,IOSTAT=48)48
123 READ(IOSTAT=48,END=90,ERR=90,REC=48,FMT=*,UNIT=48)48
124 READ(UNIT=*,FMT=*,REC=48,ERR=90,END=90,IOSTAT=48)48
125 READ(IOSTAT=48,END=90,ERR=90,REC=48,FMT=*,UNIT=*)48
126 READ(48,FMT=90,REC=48,ERR=90,END=90,IOSTAT=48)48
127 READ(48,IOSTAT=48,END=90,ERR=90,REC=48,FMT=90)48
128 READ(48,FMT=*,REC=48,ERR=90,END=90,IOSTAT=48)48
129 READ(48,IOSTAT=48,END=90,ERR=90,REC=48,FMT=*)48
130 READ(48,90,REC=48,ERR=90,END=90,IOSTAT=48)48
131 READ(48,90,IOSTAT=48,END=90,ERR=90,REC=48)48
132 READ(48'48,FMT=90,ERR=90,END=90,IOSTAT=48)48
133 READ(48'48,IOSTAT=48,END=90,ERR=90,FMT=90)48
134 READ(48'48,90,ERR=90,END=90,IOSTAT=48)48
135 READ(48'48,90,IOSTAT=48,END=90,ERR=90)48
136 READ 90,48
137 READ *,48
138 READ 90
C
C REREAD STATEMENTS
139 REREAD(FMT=90,ERR=90,IOSTAT=48)48
140 REREAD(ERR=90,FMT=90,IOSTAT=48)48
141 REREAD(IOSTAT=48,ERR=90,FMT=90)48
142 REREAD(IOSTAT=48,FMT=90,ERR=90)48
143 REREAD(FMT=*,ERR=90,IOSTAT=48)48
144 REREAD(IOSTAT=48,ERR=90,FMT=*)48
145 REREAD(FMT=90)
146 REREAD(ERR=90)
147 REREAD(FMT=90,ERR=90)
148 REREAD(ERR=90,FMT=90)
149 REREAD 90,48
150 REREAD *,48
151 REREAD 90
C
C REWIND STATEMENTS
152 REWIND 48
153 REWIND(UNIT=48)
154 REWIND(ERR=90)
155 REWIND(UNIT=48,ERR=90)
156 REWIND(ERR=90,UNIT=48)
157 REWIND(UNIT=48,ERR=90,IOSTAT=48)
158 REWIND(ERR=90,UNIT=48,IOSTAT=48)
159 REWIND(UNIT=48,IOSTAT=48,ERR=90)
160 REWIND(48,ERR=90)
161 REWIND(48,IOSTAT=48)
162 REWIND(48,IOSTAT=48,ERR=90)
163 REWIND(48,ERR=90,IOSTAT=48)
C
C SKIPFILE STATEMENTS
164 SKIPFILE 48
165 SKIPFILE(UNIT=48)
166 SKIPFILE(ERR=90)
167 SKIPFILE(UNIT=48,ERR=90)
168 SKIPFILE(ERR=90,UNIT=48)
169 SKIPFILE(UNIT=48,ERR=90,IOSTAT=48)
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 80
DEMONSTRATE FORTRAN 77 STATEMENTS FTRN77 SUBROUTINE
170 SKIPFILE(ERR=90,UNIT=48,IOSTAT=48)
171 SKIPFILE(UNIT=48,IOSTAT=48,ERR=90)
172 SKIPFILE(48,ERR=90)
173 SKIPFILE(48,IOSTAT=48)
174 SKIPFILE(48,IOSTAT=48,ERR=90)
175 SKIPFILE(48,ERR=90,IOSTAT=48)
C
C SKIPRECORD STATEMENTS
176 SKIPRECORD 48
177 SKIPRECORD(UNIT=48)
178 SKIPRECORD(ERR=90)
179 SKIPRECORD(UNIT=48,ERR=90)
180 SKIPRECORD(ERR=90,UNIT=48)
181 SKIPRECORD(UNIT=48,ERR=90,IOSTAT=48)
182 SKIPRECORD(ERR=90,UNIT=48,IOSTAT=48)
183 SKIPRECORD(UNIT=48,IOSTAT=48,ERR=90)
184 SKIPRECORD(48,ERR=90)
185 SKIPRECORD(48,IOSTAT=48)
186 SKIPRECORD(48,IOSTAT=48,ERR=90)
187 SKIPRECORD(48,ERR=90,IOSTAT=48)
C
C TYPE STATEMENTS
188 TYPE(FMT=90,ERR=90,IOSTAT=48)48
189 TYPE(ERR=90,FMT=90,IOSTAT=48)48
190 TYPE(IOSTAT=48,ERR=90,FMT=90)48
191 TYPE(IOSTAT=48,FMT=90,ERR=90)48
192 TYPE(FMT=*,ERR=90,IOSTAT=48)48
193 TYPE(IOSTAT=48,ERR=90,FMT=*)48
194 TYPE(FMT=90)
195 TYPE(ERR=90)
196 TYPE(FMT=90,ERR=90)
197 TYPE(ERR=90,FMT=90)
198 TYPE 90,48
199 TYPE *,48
200 TYPE 90
C
C UNLOAD STATEMENTS
201 UNLOAD 48
202 UNLOAD(UNIT=48)
203 UNLOAD(ERR=90)
204 UNLOAD(UNIT=48,ERR=90)
205 UNLOAD(ERR=90,UNIT=48)
206 UNLOAD(UNIT=48,ERR=90,IOSTAT=48)
207 UNLOAD(ERR=90,UNIT=48,IOSTAT=48)
208 UNLOAD(UNIT=48,IOSTAT=48,ERR=90)
209 UNLOAD(48,ERR=90)
210 UNLOAD(48,IOSTAT=48)
211 UNLOAD(48,IOSTAT=48,ERR=90)
212 UNLOAD(48,ERR=90,IOSTAT=48)
C
C WRITE STATEMENTS
213 WRITE(UNIT=48,FMT=90,REC=48,ERR=90,END=90,IOSTAT=48)48
214 WRITE(IOSTAT=48,END=90,ERR=90,REC=48,FMT=90,UNIT=48)48
215 WRITE(UNIT=*,FMT=90,REC=48,ERR=90,END=90,IOSTAT=48)48
216 WRITE(IOSTAT=48,END=90,ERR=90,REC=48,FMT=90,UNIT=*)48
217 WRITE(UNIT=48,FMT=*,REC=48,ERR=90,END=90,IOSTAT=48)48
218 WRITE(IOSTAT=48,END=90,ERR=90,REC=48,FMT=*,UNIT=48)48
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 81
DEMONSTRATE FORTRAN 77 STATEMENTS FTRN77 SUBROUTINE
219 WRITE(UNIT=*,FMT=*,REC=48,ERR=90,END=90,IOSTAT=48)48
220 WRITE(IOSTAT=48,END=90,ERR=90,REC=48,FMT=*,UNIT=*)48
221 WRITE(48,FMT=90,REC=48,ERR=90,END=90,IOSTAT=48)48
222 WRITE(48,IOSTAT=48,END=90,ERR=90,REC=48,FMT=90)48
223 WRITE(48,FMT=*,REC=48,ERR=90,END=90,IOSTAT=48)48
224 WRITE(48,IOSTAT=48,END=90,ERR=90,REC=48,FMT=*)48
225 WRITE(48,90,REC=48,ERR=90,END=90,IOSTAT=48)48
226 WRITE(48,90,IOSTAT=48,END=90,ERR=90,REC=48)48
227 WRITE(48'48,FMT=90,ERR=90,END=90,IOSTAT=48)48
228 WRITE(48'48,IOSTAT=48,END=90,ERR=90,FMT=90)48
229 WRITE(48'48,90,ERR=90,END=90,IOSTAT=48)48
230 WRITE(48'48,90,IOSTAT=48,END=90,ERR=90)48
231 WRITE 90,48
232 WRITE *,48
233 WRITE 90
C
C NUMBERED STATEMENTS
234 100 CONTINUE
235 90 CONTINUE
236 81 CONTINUE
237 73 CONTINUE
238 66 CONTINUE
239 60 CONTINUE
240 55 CONTINUE
241 51 CONTINUE
242 48 CONTINUE
243 46 CONTINUE
244 45 CONTINUE
245 END
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 82
DEMONSTRATE FORTRAN 77 STATEMENTS FTRN77 SUBROUTINE
Statement
Number Referenced by
45 -244
46 -243
48 -242
51 -241
55 -240
60 -239
66 -238
73 -237
81 -236
90 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 32 35 36 37 38 39 40 41
43 44 47 48 49 50 51 52 53
55 56 57 58 59 60 61 62 63
64 65 66 67 68 69 70 71 72
73 75 76 77 79 80 81 82 83
84 85 86 87 88 89 90 91 92
93 94 95 96 97 98 99 100 101
102 104 105 106 107 108 109 110 111
112 113 114 115 117 118 119 120 121
122 123 124 125 126 127 128 129 130
131 132 133 134 135 136 138 139 140
141 142 143 144 145 146 147 148 149
151 154 155 156 157 158 159 160 162
163 166 167 168 169 170 171 172 174
175 178 179 180 181 182 183 184 186
187 188 189 190 191 192 193 194 195
196 197 198 200 203 204 205 206 207
208 209 211 212 213 214 215 216 217
218 219 220 221 222 223 224 225 226
227 228 229 230 231 233 -235
100 -234
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 83
DEMONSTRATE FORTRAN 77 STATEMENTS FTRN77 SUBROUTINE
Word Contained in
ACCEPT 9 24 25 26 27 28 29 30 31
ASSIGN 32
BACKFILE 2 33 34 35 36 37 38 39 40
41 42 43 44
BACKSPACE 3 45 46 47 48 49 50 51 52
53 54 55 56
CLOSE 16 57 58 59
CONTINUE 234 235 236 237 238 239 240 241 242
243 244
DECODE 17 60 61 62 63 64 65
DO 66 67
ENCODE 18 68 69 70 71 72 73
END -22 -23 -24 -25 -26 -27 -118 -119 -120
-121 -122 -123 -124 -125 -126 -127 -128 -129
-130 -131 -132 -133 -134 -135 -213 -214 -215
-216 -217 -218 -219 -220 -221 -222 -223 -224
-225 -226 -227 -228 -229 -230 245
ENDFILE 4 74 75 76 77 78 79 80
ERR -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 -35
-36 -37 -38 -39 -40 -41 -43 -44 -47
-48 -49 -50 -51 -52 -53 -55 -56 -57
-58 -59 -62 -64 -65 -70 -72 -73 -75
-76 -77 -79 -80 -81 -82 -83 -84 -85
-86 -87 -88 -89 -90 -91 -92 -93 -94
-95 -96 -97 -99 -100 -101 -105 -106 -107
-108 -109 -110 -112 -113 -114 -118 -119 -120
-121 -122 -123 -124 -125 -126 -127 -128 -129
-130 -131 -132 -133 -134 -135 -139 -140 -141
-142 -143 -144 -146 -147 -148 -154 -155 -156
-157 -158 -159 -160 -162 -163 -166 -167 -168
-169 -170 -171 -172 -174 -175 -178 -179 -180
-181 -182 -183 -184 -186 -187 -188 -189 -190
-191 -192 -193 -195 -196 -197 -203 -204 -205
-206 -207 -208 -209 -211 -212 -213 -214 -215
-216 -217 -218 -219 -220 -221 -222 -223 -224
-225 -226 -227 -228 -229 -230
FIND 19 81 82 83 84 85 86
FMT -22 -23 -24 -25 -26 -27 -92 -93 -94
-95 -96 -97 -98 -100 -101 -105 -106 -107
-108 -109 -110 -111 -113 -114 -118 -119 -120
-121 -122 -123 -124 -125 -126 -127 -128 -129
-132 -133 -139 -140 -141 -142 -143 -144 -145
-147 -148 -188 -189 -190 -191 -192 -193 -194
-196 -197 -213 -214 -215 -216 -217 -218 -219
-220 -221 -222 -223 -224 -227 -228
FTRN77 1
I -66 -67
INQUIRE 20 87 88
IOSTAT -22 -23 -24 -25 -26 -27 -38 -39 -40
-42 -43 -44 -50 -51 -52 -54 -55 -56
-63 -64 -65 -71 -72 -73 -75 -76 -78
-79 -80 -81 -82 -83 -84 -85 -86 -87
-88 -92 -93 -94 -95 -96 -97 -105 -106
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 84
DEMONSTRATE FORTRAN 77 STATEMENTS FTRN77 SUBROUTINE
Word Contained in
IOSTAT -107 -108 -109 -110 -118 -119 -120 -121 -122
-123 -124 -125 -126 -127 -128 -129 -130 -131
-132 -133 -134 -135 -139 -140 -141 -142 -143
-144 -157 -158 -159 -161 -162 -163 -169 -170
-171 -173 -174 -175 -181 -182 -183 -185 -186
-187 -188 -189 -190 -191 -192 -193 -206 -207
-208 -210 -211 -212 -213 -214 -215 -216 -217
-218 -219 -220 -221 -222 -223 -224 -225 -226
-227 -228 -229 -230
OPEN 21 89 90 91
PRINT 10 92 93 94 95 96 97 98 99
100 101 102 103 104
PUNCH 11 105 106 107 108 109 110 111 112
113 114 115 116 117
READ 14 22 23 118 119 120 121 122 123
124 125 126 127 128 129 130 131 132
133 134 135 136 137 138
REC -81 -82 -83 -84 -118 -119 -120 -121 -122
-123 -124 -125 -126 -127 -128 -129 -130 -131
-213 -214 -215 -216 -217 -218 -219 -220 -221
-222 -223 -224 -225 -226
REREAD 12 139 140 141 142 143 144 145 146
147 148 149 150 151
REWIND 5 152 153 154 155 156 157 158 159
160 161 162 163
SKIPFILE 6 164 165 166 167 168 169 170 171
172 173 174 175
SKIPRECORD 7 176 177 178 179 180 181 182 183
184 185 186 187
SUBROUTINE 1
TO 32
TYPE 13 188 189 190 191 192 193 194 195
196 197 198 199 200
UNIT -22 -23 -34 -36 -37 -38 -39 -40 -46
-48 -49 -50 -51 -52 -57 -58 -75 -76
-81 -82 -87 -88 -89 -90 -118 -119 -120
-121 -122 -123 -124 -125 -153 -155 -156 -157
-158 -159 -165 -167 -168 -169 -170 -171 -177
-179 -180 -181 -182 -183 -202 -204 -205 -206
-207 -208 -213 -214 -215 -216 -217 -218 -219
-220
UNLOAD 8 201 202 203 204 205 206 207 208
209 210 211 212
WRITE 15 213 214 215 216 217 218 219 220
221 222 223 224 225 226 227 228 229
230 231 232 233
48 2 3 4 5 6 7 8 9 10
11 12 13 14 15 17 18 22 23
24 25 26 27 29 31 32 33 34
36 37 38 39 40 41 42 43 44
45 46 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 77 78 79 80 81
82 83 84 85 86 87 88 89 90
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 85
DEMONSTRATE FORTRAN 77 STATEMENTS FTRN77 SUBROUTINE
Word Contained in
48 91 92 93 94 95 96 97 102 103
105 106 107 108 109 110 115 116 118
119 120 121 122 123 124 125 126 127
128 129 130 131 132 133 134 135 136
137 139 140 141 142 143 144 149 150
152 153 155 156 157 158 159 160 161
162 163 164 165 167 168 169 170 171
172 173 174 175 176 177 179 180 181
182 183 184 185 186 187 188 189 190
191 192 193 198 199 201 202 204 205
206 207 208 209 210 211 212 213 214
215 216 217 218 219 220 221 222 223
224 225 226 227 228 229 230 231 232
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 86
CHECK RECOGNITION OF OPERATORS AND PUNCTUATI PUNCT
C RENBR(PUNCT/CHECK RECOGNITION OF OPERATORS AND PUNCTUATION
1 IF(I.GT.20H)GO TO 48;)GO TO 48;)GO TO 90;GO TO 90
2 IF(I.GE.20H)GO TO 48;)GO TO 48;)GO TO 90;GO TO 90
3 IF(I.LT.20H)GO TO 48;)GO TO 48;)GO TO 90;GO TO 90
4 IF(I.LE.20H)GO TO 48;)GO TO 48;)GO TO 90;GO TO 90
5 IF(I.EQ.20H)GO TO 48;)GO TO 48;)GO TO 90;GO TO 90
6 IF(I.NE.20H)GO TO 48;)GO TO 48;)GO TO 90;GO TO 90
7 IF(I.NOT.20H)GO TO 48;)GO TO 48;)GO TO 90;GO TO 90
8 IF(I.AND.20H)GO TO 48;)GO TO 48;)GO TO 90;GO TO 90
9 IF(I.OR.20H)GO TO 48;)GO TO 48;)GO TO 90;GO TO 90
10 IF(I.XOR.20H)GO TO 48;)GO TO 48;)GO TO 90;GO TO 90
11 IF(I.EQV.20H)GO TO 48;)GO TO 48;)GO TO 90;GO TO 90
12 IF(I.NEQV.20H)GO TO 48;)GO TO 48;)GO TO 90;GO TO 90
C
13 J.GT.17HGO TO 48;GO TO 48;GO TO 90;GO TO 90
14 J.GE.17HGO TO 48;GO TO 48;GO TO 90;GO TO 90
15 J.LT.17HGO TO 48;GO TO 48;GO TO 90;GO TO 90
16 J.LE.17HGO TO 48;GO TO 48;GO TO 90;GO TO 90
17 J.EQ.17HGO TO 48;GO TO 48;GO TO 90;GO TO 90
18 J.NE.17HGO TO 48;GO TO 48;GO TO 90;GO TO 90
19 J.NOT.17HGO TO 48;GO TO 48;GO TO 90;GO TO 90
20 J.AND.17HGO TO 48;GO TO 48;GO TO 90;GO TO 90
21 J.OR.17HGO TO 48;GO TO 48;GO TO 90;GO TO 90
22 J.XOR.17HGO TO 48;GO TO 48;GO TO 90;GO TO 90
23 J.EQV.17HGO TO 48;GO TO 48;GO TO 90;GO TO 90
24 J.NEQV.17HGO TO 48;GO TO 48;GO TO 90;GO TO 90
C
C OPERATORS REPRESENTED BY PUNCTUATION MARKS
25 IF(I**20H)GO TO 48;)GO TO 48;)GO TO 90;GO TO 90
26 IF(I^20H)GO TO 48;)GO TO 48;)GO TO 90;GO TO 90
27 IF(I-20H)GO TO 48;)GO TO 48;)GO TO 90;GO TO 90
28 IF(I+20H)GO TO 48;)GO TO 48;)GO TO 90;GO TO 90
29 IF(I*20H)GO TO 48;)GO TO 48;)GO TO 90;GO TO 90
30 IF(I/20H)GO TO 48;)GO TO 48;)GO TO 90;GO TO 90
31 IF(I>20H)GO TO 48;)GO TO 48;)GO TO 90;GO TO 90
32 IF(I>=20H)GO TO 48;)GO TO 48;)GO TO 90;GO TO 90
33 IF(I<20H)GO TO 48;)GO TO 48;)GO TO 90;GO TO 90
34 IF(I<=20H)GO TO 48;)GO TO 48;)GO TO 90;GO TO 90
35 IF(I==20H)GO TO 48;)GO TO 48;)GO TO 90;GO TO 90
36 IF(I#20H)GO TO 48;)GO TO 48;)GO TO 90;GO TO 90
C
37 J**17HGO TO 48;GO TO 48;GO TO 90;GO TO 90
38 J^17HGO TO 48;GO TO 48;GO TO 90;GO TO 90
39 J-17HGO TO 48;GO TO 48;GO TO 90;GO TO 90
40 J+17HGO TO 48;GO TO 48;GO TO 90;GO TO 90
41 J*17HGO TO 48;GO TO 48;GO TO 90;GO TO 90
42 J/17HGO TO 48;GO TO 48;GO TO 90;GO TO 90
43 J>17HGO TO 48;GO TO 48;GO TO 90;GO TO 90
44 J>=17HGO TO 48;GO TO 48;GO TO 90;GO TO 90
45 J<17HGO TO 48;GO TO 48;GO TO 90;GO TO 90
46 J<=17HGO TO 48;GO TO 48;GO TO 90;GO TO 90
47 J==17HGO TO 48;GO TO 48;GO TO 90;GO TO 90
48 J#17HGO TO 48;GO TO 48;GO TO 90;GO TO 90
C
C OTHER PUNCTUATION MARKS THAT MUST BE RECOGNIZED
49 IF(I=20H)GO TO 48;)GO TO 48;)GO TO 90;GO TO 90
50 IF(I:20H)GO TO 48;)GO TO 48;)GO TO 90;GO TO 90
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 87
CHECK RECOGNITION OF OPERATORS AND PUNCTUATI PUNCT MAIN PROGRAM
51 IF(I,20H)GO TO 48;)GO TO 48;)GO TO 90;GO TO 90
52 J=17HGO TO 48;GO TO 48;GO TO 90;GO TO 90
53 J:17HGO TO 48;GO TO 48;GO TO 90;GO TO 90
54 J,17HGO TO 48;GO TO 48;GO TO 90;GO TO 90
C
C THE PARENTHESES THEMSELVES
55 J(17HGO TO 48;GO TO 48;GO TO 90;GO TO 90
56 J)17HGO TO 48;GO TO 48;GO TO 90;GO TO 90
C
C NUMBERED STATEMENTS
57 100 CONTINUE
58 90 CONTINUE
59 81 CONTINUE
60 73 CONTINUE
61 66 CONTINUE
62 60 CONTINUE
63 55 CONTINUE
64 51 CONTINUE
65 48 CONTINUE
66 46 CONTINUE
67 45 CONTINUE
68 END
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 88
CHECK RECOGNITION OF OPERATORS AND PUNCTUATI PUNCT MAIN PROGRAM
Statement
Number Referenced by
45 -67
46 -66
48 -65
51 -64
55 -63
60 -62
66 -61
73 -60
81 -59
90 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 -58
100 -57
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 89
CHECK RECOGNITION OF OPERATORS AND PUNCTUATI PUNCT MAIN PROGRAM
Word Contained in
CONTINUE 57 58 59 60 61 62 63 64 65
66 67
END 68
I 1 2 3 4 5 6 7 8 9
10 11 12 25 26 27 28 29 30
31 -32 33 -34 -35 36 -49 50 51
J 13 14 15 16 17 18 19 20 21
22 23 24 37 38 39 40 41 42
43 -44 45 -46 -47 48 -52 53 54
55 56
17HGO TO 4 13 14 15 16 17 18 19 20 21
22 23 24 37 38 39 40 41 42
43 44 45 46 47 48 52 53 54
55 56
20H)GO TO 1 2 3 4 5 6 7 8 9
10 11 12 25 26 27 28 29 30
31 32 33 34 35 36 49 50 51
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 90
TEST COMMENT CHARACTERS FOR FORTRAN10 NEWCOM MAIN PROGRAM
1 PROGRAM NEWCOM
C RENBR(/TEST COMMENT CHARACTERS FOR FORTRAN10)
C
2 GO TO 90
3 D GO TO 90
4 d GO TO 90
C GO TO 48
c GO TO 48
* GO TO 48
! GO TO 48
$ GO TO 48
/ GO TO 48
C
C NUMBERED STATEMENTS
5 100 CONTINUE
6 90 CONTINUE
7 81 CONTINUE
8 73 CONTINUE
9 66 CONTINUE
10 60 CONTINUE
11 55 CONTINUE
12 51 CONTINUE
13 48 CONTINUE
14 46 CONTINUE
15 45 CONTINUE
16 END
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 91
TEST COMMENT CHARACTERS FOR FORTRAN10 NEWCOM MAIN PROGRAM
Statement
Number Referenced by
45 -15
46 -14
48 -13
51 -12
55 -11
60 -10
66 -9
73 -8
81 -7
90 2 3 4 -6
100 -5
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 92
TEST COMMENT CHARACTERS FOR FORTRAN10 NEWCOM MAIN PROGRAM
Word Contained in
CONTINUE 5 6 7 8 9 10 11 12 13
14 15
END 16
NEWCOM 1
PROGRAM 1
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 93
TEST FORTRAN 77 VARIATIONS OF ACCEPT ACCEP1 SUBROUTINE
1 SUBROUTINE ACCEP1
C RENBR(/TEST FORTRAN 77 VARIATIONS OF ACCEPT)
C
C ALL VERSIONS OF ACCEPT STATEMENT WITH FMT=NUMBER
C
2 ACCEPT(FMT=90)48
3 ACCEPT(ERR=90)48
4 ACCEPT(END=90)48
5 ACCEPT(IOSTAT=48)48
6 ACCEPT(FMT=90,ERR=90)48
7 ACCEPT(FMT=90,END=90)48
8 ACCEPT(FMT=90,IOSTAT=48)48
9 ACCEPT(ERR=90,FMT=90)48
10 ACCEPT(ERR=90,END=90)48
11 ACCEPT(ERR=90,IOSTAT=48)48
12 ACCEPT(END=90,FMT=90)48
13 ACCEPT(END=90,ERR=90)48
14 ACCEPT(END=90,IOSTAT=48)48
15 ACCEPT(IOSTAT=48,FMT=90)48
16 ACCEPT(IOSTAT=48,ERR=90)48
17 ACCEPT(IOSTAT=48,END=90)48
18 ACCEPT(FMT=90,ERR=90,END=90)48
19 ACCEPT(FMT=90,ERR=90,IOSTAT=48)48
20 ACCEPT(FMT=90,END=90,ERR=90)48
21 ACCEPT(FMT=90,END=90,IOSTAT=48)48
22 ACCEPT(FMT=90,IOSTAT=48,ERR=90)48
23 ACCEPT(FMT=90,IOSTAT=48,END=90)48
24 ACCEPT(ERR=90,FMT=90,END=90)48
25 ACCEPT(ERR=90,FMT=90,IOSTAT=48)48
26 ACCEPT(ERR=90,END=90,FMT=90)48
27 ACCEPT(ERR=90,END=90,IOSTAT=48)48
28 ACCEPT(ERR=90,IOSTAT=48,FMT=90)48
29 ACCEPT(ERR=90,IOSTAT=48,END=90)48
30 ACCEPT(END=90,FMT=90,ERR=90)48
31 ACCEPT(END=90,FMT=90,IOSTAT=48)48
32 ACCEPT(END=90,ERR=90,FMT=90)48
33 ACCEPT(END=90,ERR=90,IOSTAT=48)48
34 ACCEPT(END=90,IOSTAT=48,FMT=90)48
35 ACCEPT(END=90,IOSTAT=48,ERR=90)48
36 ACCEPT(IOSTAT=48,FMT=90,ERR=90)48
37 ACCEPT(IOSTAT=48,FMT=90,END=90)48
38 ACCEPT(IOSTAT=48,ERR=90,FMT=90)48
39 ACCEPT(IOSTAT=48,ERR=90,END=90)48
40 ACCEPT(IOSTAT=48,END=90,FMT=90)48
41 ACCEPT(IOSTAT=48,END=90,ERR=90)48
42 ACCEPT(FMT=90,ERR=90,END=90,IOSTAT=48)48
43 ACCEPT(FMT=90,ERR=90,IOSTAT=48,END=90)48
44 ACCEPT(FMT=90,END=90,ERR=90,IOSTAT=48)48
45 ACCEPT(FMT=90,END=90,IOSTAT=48,ERR=90)48
46 ACCEPT(FMT=90,IOSTAT=48,ERR=90,END=90)48
47 ACCEPT(FMT=90,IOSTAT=48,END=90,ERR=90)48
48 ACCEPT(ERR=90,FMT=90,END=90,IOSTAT=48)48
49 ACCEPT(ERR=90,FMT=90,IOSTAT=48,END=90)48
50 ACCEPT(ERR=90,END=90,FMT=90,IOSTAT=48)48
51 ACCEPT(ERR=90,END=90,IOSTAT=48,FMT=90)48
52 ACCEPT(ERR=90,IOSTAT=48,FMT=90,END=90)48
53 ACCEPT(ERR=90,IOSTAT=48,END=90,FMT=90)48
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 94
TEST FORTRAN 77 VARIATIONS OF ACCEPT ACCEP1 SUBROUTINE
54 ACCEPT(END=90,FMT=90,ERR=90,IOSTAT=48)48
55 ACCEPT(END=90,FMT=90,IOSTAT=48,ERR=90)48
56 ACCEPT(END=90,ERR=90,FMT=90,IOSTAT=48)48
57 ACCEPT(END=90,ERR=90,IOSTAT=48,FMT=90)48
58 ACCEPT(END=90,IOSTAT=48,FMT=90,ERR=90)48
59 ACCEPT(END=90,IOSTAT=48,ERR=90,FMT=90)48
60 ACCEPT(IOSTAT=48,FMT=90,ERR=90,END=90)48
61 ACCEPT(IOSTAT=48,FMT=90,END=90,ERR=90)48
62 ACCEPT(IOSTAT=48,ERR=90,FMT=90,END=90)48
63 ACCEPT(IOSTAT=48,ERR=90,END=90,FMT=90)48
64 ACCEPT(IOSTAT=48,END=90,FMT=90,ERR=90)48
65 ACCEPT(IOSTAT=48,END=90,ERR=90,FMT=90)48
C
C NUMBERED STATEMENTS
66 100 CONTINUE
67 90 CONTINUE
68 81 CONTINUE
69 73 CONTINUE
70 66 CONTINUE
71 60 CONTINUE
72 55 CONTINUE
73 51 CONTINUE
74 48 CONTINUE
75 46 CONTINUE
76 45 CONTINUE
77 END
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 95
TEST FORTRAN 77 VARIATIONS OF ACCEPT ACCEP1 SUBROUTINE
Statement
Number Referenced by
45 -76
46 -75
48 -74
51 -73
55 -72
60 -71
66 -70
73 -69
81 -68
90 2 3 4 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
-67
100 -66
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 96
TEST FORTRAN 77 VARIATIONS OF ACCEPT ACCEP1 SUBROUTINE
Word Contained in
ACCEPT 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
ACCEP1 1
CONTINUE 66 67 68 69 70 71 72 73 74
75 76
END -4 -7 -10 -12 -13 -14 -17 -18 -20
-21 -23 -24 -26 -27 -29 -30 -31 -32
-33 -34 -35 -37 -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 77
ERR -3 -6 -9 -10 -11 -13 -16 -18 -19
-20 -22 -24 -25 -26 -27 -28 -29 -30
-32 -33 -35 -36 -38 -39 -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
FMT -2 -6 -7 -8 -9 -12 -15 -18 -19
-20 -21 -22 -23 -24 -25 -26 -28 -30
-31 -32 -34 -36 -37 -38 -40 -42 -43
-44 -45 -46 -47 -48 -49 -50 -51 -52
-53 -54 -55 -56 -57 -58 -59 -60 -61
-62 -63 -64 -65
IOSTAT -5 -8 -11 -14 -15 -16 -17 -19 -21
-22 -23 -25 -27 -28 -29 -31 -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
SUBROUTINE 1
48 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
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 97
TEST FORTRAN 77 VARIATIONS OF ACCEPT ACCEP2 SUBROUTINE
1 SUBROUTINE ACCEP2
C RENBR(/TEST FORTRAN 77 VARIATIONS OF ACCEPT)
C
C ACCEPT STATEMENTS WITH FMT=* RATHER THAN FMT=NUMBER
C
2 ACCEPT(FMT=*)48
3 ACCEPT(ERR=90)48
4 ACCEPT(END=90)48
5 ACCEPT(IOSTAT=48)48
6 ACCEPT(FMT=*,ERR=90)48
7 ACCEPT(FMT=*,END=90)48
8 ACCEPT(FMT=*,IOSTAT=48)48
9 ACCEPT(ERR=90,FMT=*)48
10 ACCEPT(ERR=90,END=90)48
11 ACCEPT(ERR=90,IOSTAT=48)48
12 ACCEPT(END=90,FMT=*)48
13 ACCEPT(END=90,ERR=90)48
14 ACCEPT(END=90,IOSTAT=48)48
15 ACCEPT(IOSTAT=48,FMT=*)48
16 ACCEPT(IOSTAT=48,ERR=90)48
17 ACCEPT(IOSTAT=48,END=90)48
18 ACCEPT(FMT=*,ERR=90,END=90)48
19 ACCEPT(FMT=*,ERR=90,IOSTAT=48)48
20 ACCEPT(FMT=*,END=90,ERR=90)48
21 ACCEPT(FMT=*,END=90,IOSTAT=48)48
22 ACCEPT(FMT=*,IOSTAT=48,ERR=90)48
23 ACCEPT(FMT=*,IOSTAT=48,END=90)48
24 ACCEPT(ERR=90,FMT=*,END=90)48
25 ACCEPT(ERR=90,FMT=*,IOSTAT=48)48
26 ACCEPT(ERR=90,END=90,FMT=*)48
27 ACCEPT(ERR=90,END=90,IOSTAT=48)48
28 ACCEPT(ERR=90,IOSTAT=48,FMT=*)48
29 ACCEPT(ERR=90,IOSTAT=48,END=90)48
30 ACCEPT(END=90,FMT=*,ERR=90)48
31 ACCEPT(END=90,FMT=*,IOSTAT=48)48
32 ACCEPT(END=90,ERR=90,FMT=*)48
33 ACCEPT(END=90,ERR=90,IOSTAT=48)48
34 ACCEPT(END=90,IOSTAT=48,FMT=*)48
35 ACCEPT(END=90,IOSTAT=48,ERR=90)48
36 ACCEPT(IOSTAT=48,FMT=*,ERR=90)48
37 ACCEPT(IOSTAT=48,FMT=*,END=90)48
38 ACCEPT(IOSTAT=48,ERR=90,FMT=*)48
39 ACCEPT(IOSTAT=48,ERR=90,END=90)48
40 ACCEPT(IOSTAT=48,END=90,FMT=*)48
41 ACCEPT(IOSTAT=48,END=90,ERR=90)48
42 ACCEPT(FMT=*,ERR=90,END=90,IOSTAT=48)48
43 ACCEPT(FMT=*,ERR=90,IOSTAT=48,END=90)48
44 ACCEPT(FMT=*,END=90,ERR=90,IOSTAT=48)48
45 ACCEPT(FMT=*,END=90,IOSTAT=48,ERR=90)48
46 ACCEPT(FMT=*,IOSTAT=48,ERR=90,END=90)48
47 ACCEPT(FMT=*,IOSTAT=48,END=90,ERR=90)48
48 ACCEPT(ERR=90,FMT=*,END=90,IOSTAT=48)48
49 ACCEPT(ERR=90,FMT=*,IOSTAT=48,END=90)48
50 ACCEPT(ERR=90,END=90,FMT=*,IOSTAT=48)48
51 ACCEPT(ERR=90,END=90,IOSTAT=48,FMT=*)48
52 ACCEPT(ERR=90,IOSTAT=48,FMT=*,END=90)48
53 ACCEPT(ERR=90,IOSTAT=48,END=90,FMT=*)48
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 98
TEST FORTRAN 77 VARIATIONS OF ACCEPT ACCEP2 SUBROUTINE
54 ACCEPT(END=90,FMT=*,ERR=90,IOSTAT=48)48
55 ACCEPT(END=90,FMT=*,IOSTAT=48,ERR=90)48
56 ACCEPT(END=90,ERR=90,FMT=*,IOSTAT=48)48
57 ACCEPT(END=90,ERR=90,IOSTAT=48,FMT=*)48
58 ACCEPT(END=90,IOSTAT=48,FMT=*,ERR=90)48
59 ACCEPT(END=90,IOSTAT=48,ERR=90,FMT=*)48
60 ACCEPT(IOSTAT=48,FMT=*,ERR=90,END=90)48
61 ACCEPT(IOSTAT=48,FMT=*,END=90,ERR=90)48
62 ACCEPT(IOSTAT=48,ERR=90,FMT=*,END=90)48
63 ACCEPT(IOSTAT=48,ERR=90,END=90,FMT=*)48
64 ACCEPT(IOSTAT=48,END=90,FMT=*,ERR=90)48
65 ACCEPT(IOSTAT=48,END=90,ERR=90,FMT=*)48
C
C NUMBERED STATEMENTS
66 100 CONTINUE
67 90 CONTINUE
68 81 CONTINUE
69 73 CONTINUE
70 66 CONTINUE
71 60 CONTINUE
72 55 CONTINUE
73 51 CONTINUE
74 48 CONTINUE
75 46 CONTINUE
76 45 CONTINUE
77 END
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 99
TEST FORTRAN 77 VARIATIONS OF ACCEPT ACCEP2 SUBROUTINE
Statement
Number Referenced by
45 -76
46 -75
48 -74
51 -73
55 -72
60 -71
66 -70
73 -69
81 -68
90 3 4 6 7 9 10 11 12 13
14 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 -67
100 -66
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 100
TEST FORTRAN 77 VARIATIONS OF ACCEPT ACCEP2 SUBROUTINE
Word Contained in
ACCEPT 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
ACCEP2 1
CONTINUE 66 67 68 69 70 71 72 73 74
75 76
END -4 -7 -10 -12 -13 -14 -17 -18 -20
-21 -23 -24 -26 -27 -29 -30 -31 -32
-33 -34 -35 -37 -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 77
ERR -3 -6 -9 -10 -11 -13 -16 -18 -19
-20 -22 -24 -25 -26 -27 -28 -29 -30
-32 -33 -35 -36 -38 -39 -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
FMT -2 -6 -7 -8 -9 -12 -15 -18 -19
-20 -21 -22 -23 -24 -25 -26 -28 -30
-31 -32 -34 -36 -37 -38 -40 -42 -43
-44 -45 -46 -47 -48 -49 -50 -51 -52
-53 -54 -55 -56 -57 -58 -59 -60 -61
-62 -63 -64 -65
IOSTAT -5 -8 -11 -14 -15 -16 -17 -19 -21
-22 -23 -25 -27 -28 -29 -31 -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
SUBROUTINE 1
48 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
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 101
TEST INDENTATION OF IF BLOCKS SINGLE
CRENBR/A:2(SINGLE/TEST INDENTATION OF IF BLOCKS)
1 I=1
2 IF (I) THEN
3 J=1
4 J=1
5 DO 1 I=1,2
6 K=1
7 K=1
8 IF(K)THEN
9 L=1
10 L=1
11 END IF
12 K=1
13 1 CONTINUE
14 J=1
15 J=1
16 ELSE IF (J) THEN
17 J=1
18 J=1
19 IF(J) THEN
20 K=1
21 K=1
22 DO 2 WHILE (K)
23 L=1
24 L=1
25 DO WHILE (L)
26 M=1
27 M=1
28 IF(M)THEN
29 N=1
30 N=1
31 ELSE
32 N=1
33 N=1
34 END IF
35 M=1
36 M=1
37 END DO
38 L=1
39 2 CONTINUE
40 K=1
41 K=1
42 ELSE IF
43 K=1
44 K=1
45 DO WHILE (K)
46 L=1
47 L=1
48 DO 3 WHILE (L)
49 M=1
50 M=1
51 IF(I)THEN
52 END IF
53 M=1
54 M=1
55 DO WHILE (M)
56 END DO
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 102
TEST INDENTATION OF IF BLOCKS SINGLE MAIN PROGRAM
57 M=1
58 3 CONTINUE
59 L=1
60 L=1
61 DO 4 WHILE (L)
62 M=1
63 M=1
64 IF(I)THEN
65 END IF
66 M=1
67 M=1
68 DO 4 WHILE (M)
69 N=1
70 N=1
71 IF(I)THEN
72 END IF
73 N=1
74 4 CONTINUE
75 L=1
76 L=1
77 END DO
78 K=1
79 K=1
80 ELSE
81 K=1
82 K=1
83 END IF
84 J=1
85 J=1
86 ELSE
87 J=1
88 J=1
89 END IF
90 I=1
91 I=1
92 END
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 103
TEST INDENTATION OF IF BLOCKS SINGLE MAIN PROGRAM
Statement
Number Referenced by
1 5 -13
2 22 -39
3 48 -58
4 61 68 -74
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 104
TEST INDENTATION OF IF BLOCKS SINGLE MAIN PROGRAM
Word Contained in
CONTINUE 13 39 58 74
DO 5 22 48 61 68
DOWHILE 25 45 55
ELSE 31 80 86
ELSEIF 16 42
END 92
ENDDO 37 56 77
ENDIF 11 34 52 65 72 83 89
I -1 2 -5 51 64 71 -90 -91
J -3 -4 -14 -15 16 -17 -18 19 -84
-85 -87 -88
K -6 -7 8 -12 -20 -21 22 -40 -41
-43 -44 45 -78 -79 -81 -82
L -9 -10 -23 -24 25 -38 -46 -47 48
-59 -60 61 -75 -76
M -26 -27 28 -35 -36 -49 -50 -53 -54
55 -57 -62 -63 -66 -67 68
N -29 -30 -32 -33 -69 -70 -73
THEN 2 8 16 19 28 51 64 71
WHILE 22 48 61 68
1 1 3 4 5 6 7 9 10 12
14 15 17 18 20 21 23 24 26
27 29 30 32 33 35 36 38 40
41 43 44 46 47 49 50 53 54
57 59 60 62 63 66 67 69 70
73 75 76 78 79 81 82 84 85
87 88 90 91
2 5
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Table of
Contents
Page Length Page
BLOCK DATA 19 GOTO SUBROUTINE 34 1
MAIN PROGRAM 27 DO SUBROUTINE 55 4
SUBROUTINE 40 READ FUNCTION 69 8
MAIN PROGRAM 44 WRITE FUNCTION 42 12
ACCEP1 SUBROUTINE 93 BLANK FUNCTION 69 15
ACCEP2 SUBROUTINE 97 BLOCK DATA 22 19
ALPHAM FUNCTION 31 IF FUNCTION 23 21
BLANK FUNCTION 15 TABS FUNCTION 15 24
COMENT FUNCTION 68 MAIN PROGRAM 63 27
DO SUBROUTINE 4 ALPHAM FUNCTION 50 31
EXPAND MAIN PROGRAM 71 WRAPAR SUBROUTINE 23 35
FOR-II FUNCTION 50 SUBROUTINE 61 40
FOR-IV FUNCTION 53 MAIN PROGRAM 18 44
FTRN77 SUBROUTINE 76 ONE SUBROUTINE 17 47
GOTO SUBROUTINE 1 FOR-II FUNCTION 37 50
IF FUNCTION 21 FOR-IV FUNCTION 47 53
MIDDLE SUBROUTINE 59 STEPNU FUNCTION 18 56
MULTPL FUNCTION 65 MIDDLE SUBROUTINE 18 59
NEWCOM MAIN PROGRAM 90 REVERS SUBROUTINE 17 62
ONE SUBROUTINE 47 MULTPL FUNCTION 15 65
PUNCT MAIN PROGRAM 86 COMENT FUNCTION 17 68
READ FUNCTION 8 EXPAND MAIN PROGRAM 15 71
REVERS SUBROUTINE 62 FTRN77 SUBROUTINE 245 76
SINGLE MAIN PROGRAM 101 PUNCT MAIN PROGRAM 68 86
STEPNU FUNCTION 56 NEWCOM MAIN PROGRAM 16 90
TABS FUNCTION 24 ACCEP1 SUBROUTINE 77 93
WRAPAR SUBROUTINE 35 ACCEP2 SUBROUTINE 77 97
WRITE FUNCTION 12 SINGLE MAIN PROGRAM 92 101
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 105
TEST INDENTATION OF IF BLOCKS TRIPLE
CRENBR/A:2(TRIPLE/TEST INDENTATION OF IF BLOCKS)
1 I=1
2 IF (I) THEN;J=1
3 J=1;DO 1 I=1,2;K=1
4 K=1;IF(K)THEN;L=1
5 L=1;END IF;K=1
6 1 CONTINUE;J=1
7 J=1;ELSE IF (J) THEN;J=1
8 J=1;IF(J) THEN;K=1
9 K=1;DO 2 WHILE (K);L=1
10 L=1;DO WHILE (L);M=1
11 M=1;IF(M)THEN;N=1
12 N=1;ELSE;N=1
13 N=1;END IF;M=1
14 M=1;END DO;L=1
15 2 CONTINUE;K=1
16 K=1;ELSE IF;K=1
17 K=1;DO WHILE (K);L=1
18 L=1;DO 3 WHILE (L);M=1
19 M=1;IF(I)THEN;END IF;M=1
20 M=1;DO WHILE (M);END DO;M=1
21 3 CONTINUE;L=1
22 L=1;DO 4 WHILE (L);M=1
23 M=1;IF(I)THEN;END IF;M=1
24 M=1;DO 4 WHILE (M);N=1
25 N=1;IF(I)THEN;END IF;N=1
26 4 CONTINUE;L=1
27 L=1;END DO;K=1
28 K=1;ELSE;K=1
29 K=1;END IF;J=1
30 J=1;ELSE;J=1
31 J=1;END IF;I=1
32 I=1
33 END
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 106
TEST INDENTATION OF IF BLOCKS TRIPLE MAIN PROGRAM
Statement
Number Referenced by
1 3 -6
2 9 -15
3 18 -21
4 22 24 -26
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 107
TEST INDENTATION OF IF BLOCKS TRIPLE MAIN PROGRAM
Word Contained in
CONTINUE 6 15 21 26
DO 3 9 18 22 24
DOWHILE 10 17 20
ELSE 12 28 30
ELSEIF 7 16
END 33
ENDDO 14 20 27
ENDIF 5 13 19 23 25 29 31
I -1 2 -3 19 23 25 -31 -32
J -2 -3 -6 -7 -8 -29 -30 -31
K -3 -4 -5 -8 -9 -15 -16 -17 -27
-28 -29
L -4 -5 -9 -10 -14 -17 -18 -21 -22
-26 -27
M -10 -11 -13 -14 -18 -19 -20 -22 -23
-24
N -11 -12 -13 -24 -25
THEN 2 4 7 8 11 19 23 25
WHILE 9 18 22 24
1 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
2 3
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 108
TEST OPEN DO BLOCK OPEN
CRENBR(OPEN/TEST OPEN DO BLOCK)A5
C 3 DO LOOPS TERMINATING ON SAME STATEMENT
1 I=1
2 DO 1 I=1,2
3 J=1
4 J=1
5 DO 1 I=1,2
6 K=1
7 K=1
8 DO 1 I=1,2
9 L=1
10 L=1
11 1 I=1
12 I=1
C 3 DO LOOPS STARTING ON SAME LINE
13 I=1
14 DO 4 I=1,2;DO 3 I=1,2;DO 2,I=1,2
15 L=1
16 L=1
17 2 K=1
18 K=1
19 3 J=1
20 J=1
21 4 I=1
22 I=1
C UNTERMINATED LOGICAL BLOCKS
23 I=1
24 DO WHILE (L)
25 J=1
26 DO WHILE (L)
27 K=1
28 DO WHILE (L)
29 L=1
30 L=1
31 END
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 109
TEST OPEN DO BLOCK OPEN MAIN PROGRAM
Statement
Number Referenced by
1 2 5 8 -11
2 14 -17
3 14 -19
4 14 -21
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 110
TEST OPEN DO BLOCK OPEN MAIN PROGRAM
Word Contained in
DO 2 5 8 14
DOWHILE 24 26 28
END 31
I -1 -2 -5 -8 -11 -12 -13 -14 -21
-22 -23
J -3 -4 -19 -20 -25
K -6 -7 -17 -18 -27
L -9 -10 -15 -16 24 26 28 -29 -30
1 1 2 3 4 5 6 7 8 9
10 11 12 13 14 15 16 17 18
19 20 21 22 23 25 27 29 30
2 2 5 8 14
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 111
MAKE SURE FORMER LOGICAL BLOCK CLOSED
CRENBR/A5(/MAKE SURE FORMER LOGICAL BLOCK CLOSED)
1 PROGRAM NONOPN
2 DO WHILE(L)
3 J=1
4 DOWHILE(L)
5 K=1
6 ENDDO
7 J=1
8 ENDDO
9 I=1
10 DO WHILE(L)
11 J=1;DO WHILE(L);K=1;ENDDO;J=1
12 J=1
13 ENDDO
14 I=1
15 DO WHILE(L)
16 J=1;DO WHILE(L);K=1
17 K=1;ENDDO;J=1
18 J=1
19 ENDDO
20 I=1
21 DO WHILE(L)
22 J=1;DO WHILE(L);K=1
23 ENDDO;J=1
24 J=1
25 ENDDO
26 I=1
27 END
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 112
MAKE SURE FORMER LOGICAL BLOCK CLOSED NONOPN MAIN PROGRAM
Word Contained in
DOWHILE 2 4 10 11 15 16 21 22
END 27
ENDDO 6 8 11 13 17 19 23 25
I -9 -14 -20 -26
J -3 -7 -11 -12 -16 -17 -18 -22 -23
-24
K -5 -11 -16 -17 -22
L 2 4 10 11 15 16 21 22
NONOPN 1
PROGRAM 1
1 3 5 7 9 11 12 14 16 17
18 20 22 23 24 26
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 113
AAAA SUBROUTINE
1 SUBROUTINE AAAA
C FOLLOWING ROUTINES TEST FIX OF A BUG IN THE LISTING
C TABLE OF CONTENTS. THIS BUG CAUSED THE NAME ASSIGNED
C BY A CRENBR LINE TO NOT BE ALPHABETICALLY ORDERED.
C COMMENT BETWEEN START AND RENBR
C RENBR(ZZZZ)
2 END
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 114
ZZZZ SUBROUTINE
Word Contained in
AAAA 1
END 2
SUBROUTINE 1
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 115
CCCC SUBROUTINE
1 SUBROUTINE CCCC
C COMMENT BETWEEN START AND RENBR
C RENBR(XXXX)
2 END
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 116
XXXX SUBROUTINE
Word Contained in
CCCC 1
END 2
SUBROUTINE 1
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 117
EEEE SUBROUTINE
1 SUBROUTINE EEEE
C COMMENT BETWEEN START AND RENBR
C RENBR(VVVV)
2 END
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 118
VVVV SUBROUTINE
Word Contained in
EEEE 1
END 2
SUBROUTINE 1
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 119
GGGG SUBROUTINE
1 SUBROUTINE GGGG
C COMMENT BETWEEN START AND RENBR
C RENBR(TTTT)
2 END
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 120
TTTT SUBROUTINE
Word Contained in
END 2
GGGG 1
SUBROUTINE 1
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 121
IIII SUBROUTINE
1 SUBROUTINE IIII
C COMMENT BETWEEN START AND RENBR
C RENBR(RRRR)
2 END
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 122
RRRR SUBROUTINE
Word Contained in
END 2
IIII 1
SUBROUTINE 1
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 123
AAAA SUBROUTINE
1 SUBROUTINE AAAA
C COMMENT BETWEEN START AND RENBR
C RENBR(RRRR)
2 END
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 124
RRRR SUBROUTINE
Word Contained in
AAAA 1
END 2
SUBROUTINE 1
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 125
CCCC SUBROUTINE
1 SUBROUTINE CCCC
C COMMENT BETWEEN START AND RENBR
C RENBR(TTTT)
2 END
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 126
TTTT SUBROUTINE
Word Contained in
CCCC 1
END 2
SUBROUTINE 1
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 127
EEEE SUBROUTINE
1 SUBROUTINE EEEE
C COMMENT BETWEEN START AND RENBR
C RENBR(VVVV)
2 END
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 128
VVVV SUBROUTINE
Word Contained in
EEEE 1
END 2
SUBROUTINE 1
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 129
GGGG SUBROUTINE
1 SUBROUTINE GGGG
C COMMENT BETWEEN START AND RENBR
C RENBR(XXXX)
2 END
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 130
XXXX SUBROUTINE
Word Contained in
END 2
GGGG 1
SUBROUTINE 1
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 131
IIII SUBROUTINE
1 SUBROUTINE IIII
C COMMENT BETWEEN START AND RENBR
C RENBR(ZZZZ)
2 END
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 132
ZZZZ SUBROUTINE
Word Contained in
END 2
IIII 1
SUBROUTINE 1
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 133
IF(EXPRES)THEN= INDENTATION IFERRS
C RENBR(IFERRS/IF(EXPRES)THEN= INDENTATION)/A5
C
C THE RENBR PROGRAM USED TO INDENT EXTRA LEVEL AFTER
C IF(EXPRESSION)THEN= STATEMENT ALTHOUGH THIS
C REALLY SHOULD NOT HAVE STARTED ANOTHER LEVEL
C
C TEST IF THEN CAN BE USED AS VARIABLE NAME
1 I=0
2 IF(A.EQ.B)THEN
3 J=1
4 IF(A.EQ.B)THEN=2
5 J=1
6 IF(A.EQ.B)THENA=2
7 J=1
8 IF(A.EQ.B)THEN
9 K=2
10 END IF=2
11 K=2
12 END IF
13 J=1
14 END IF
15 I=0
C
C TEST WHETHER DO WHILE CAN BE USED AS ARRAY ELEMENT
16 I=0
17 DO WHILE (I.EQ.J)
18 J=1
19 DO WHILE (I)=2
20 J=1
21 DO WHILE =2
22 J=1
23 DO WHILE (I.EQ.J)
24 K=2
25 END DO=2
26 K=2
27 END DO
28 J=1
29 END DO
30 I=0
C
C TEST WHETHER DO 10 WHILE CAN BE USED AS ARRAY ELEMENT
31 I=0
32 DO 20 WHILE (I.EQ.J)
33 J=1
34 DO 10 WHILE (I)=2
35 J=1
36 DO 10 WHILE =2
37 J=1
38 DO 10 WHILE (I.EQ.J)
39 K=2
40 DO 30 WHILE =2,3
41 L=3
42 DO 40 WHILE (I)=2,3
43 M=4
44 40 CONTINUE
45 L=3
46 30 CONTINUE
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 134
IF(EXPRES)THEN= INDENTATION IFERRS MAIN PROGRAM
47 K=2
48 END DO=2
49 K=2
50 10 CONTINUE
51 J=1
52 20 CONTINUE
53 I=0
54 END
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 135
IF(EXPRES)THEN= INDENTATION IFERRS MAIN PROGRAM
Statement
Number Referenced by
10 38 -50
20 32 -52
30 40 -46
40 42 -44
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 136
IF(EXPRES)THEN= INDENTATION IFERRS MAIN PROGRAM
Word Contained in
A 2 4 6 8
B 2 4 6 8
CONTINUE 44 46 50 52
DO 19 21 -25 32 34 36 38 40 42
-48
DOWHILE 17 23
END 10 25 48 54
ENDDO 27 29
ENDIF 12 14
I -1 -15 -16 17 19 23 -30 -31 32
34 38 42 -53
IF -10
J -3 -5 -7 -13 17 -18 -20 -22 23
-28 32 -33 -35 -37 38 -51
K -9 -11 -24 -26 -39 -47 -49
L -41 -45
M -43
THEN 2 -4 8
THENA -6
WHILE -19 -21 32 -34 -36 38 -40 -42
0 1 15 16 30 31 53
1 3 5 7 13 18 20 22 28 33
35 37 51
10 34 36
2 4 6 9 10 11 19 21 24 25
26 34 36 39 40 42 47 48 49
3 40 41 42 45
4 43
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 137
MORE IF(EXPRES)THEN TESTS IF2
C RENBR(IF2/MORE IF(EXPRES)THEN TESTS)/A5
C
C TEST IF THEN CAN BE USED AS VARIABLE NAME
1 I=0
2 IF(A.EQ.B)THEN !THIS IS A COMMENT
2 1 !THIS ALSO IS A COMMENT
2 2 ;J=1
3 J=1
4 IF(A.EQ.B)THEN !THIS IS A COMMENT
4 1 A
4 2 ;J=1
5 J=1
6 IF(A.EQ.B)THEN!THIS IS A COMMENT
6 1 !THIS ALSO IS A COMMENT
6 22;J=1
7 J=1
8 IF(A.EQ.B)THEN!THIS IS A COMMENT
8 1 !THIS ALSO IS A COMMENT
8 2;K=2
9 K=2;END IF=2;K=2;END IF;J=1
10 J=1
11 END IF
12 I=0
C
C TEST WHETHER DO WHILE CAN BE USED AS ARRAY ELEMENT
13 I=0
14 DO WHILE (I.EQ.J);J=1;DO WHILE (I)=2;J=1;DO
14 1WHILE =2;J=1;DO
14 2WHILE (I.EQ.J)!THIS COMMENT HAS AN = SIGN IN IT
15 K=2;END DO=2;K=2;EN
15 1D DO;J=1
16 J=2;END DO
17 I=0
C
C TEST WHETHER DO 10 WHILE CAN BE USED AS ARRAY ELEMENT
18 I=0
19 DO 20 WHILE (I.EQ.J);J=1;DO 10 WHILE (I)=2;J=1;
19 1DO 10 WHILE =2;J=1;DO 10 WHILE (I.EQ.J);K=2
20 K=2
21 DO 30 WHILE =2,3;L=3;DO 40 WHILE (I)=2,3;M=4
22 M=4
23 40 CONTINUE
24 L=3
25 30 CONTINUE;K=2;END DO!THIS IS A COMMENT
25 1=2
26 K=2
27 10 CONTINUE
28 J=1
29 20 CONTINUE
30 I=0
31 END
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 138
MORE IF(EXPRES)THEN TESTS IF2 MAIN PROGRAM
Statement
Number Referenced by
10 19 -27
20 19 -29
30 21 -25
40 21 -23
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Page 139
MORE IF(EXPRES)THEN TESTS IF2 MAIN PROGRAM
Word Contained in
A 2 4 6 8
B 2 4 6 8
CONTINUE 23 25 27 29
DO 14 -15 19 21 -25
DOWHILE 14
END 9 15 25 31
ENDDO 15 16
ENDIF 9 11
I -1 -12 -13 14 -17 -18 19 21 -30
IF -9
J -2 -3 -4 -5 -6 -7 -9 -10 -14
-15 -16 -19 -28
K -8 -9 -15 -19 -20 -25 -26
L -21 -24
M -21 -22
THEN 2 4 6 8
WHILE -14 -19 -21
0 1 12 13 17 18 30
1 2 3 4 5 6 7 9 10 14
15 19 28
10 19
2 6 8 9 14 15 16 19 20 21
25 26
3 21 24
4 21 22
1 LISTING OF NOTABS.TRY WITHOUT RENUMBERING Table of
Statements 1516, Comments 353, NonFORTRAN 0 Contents
(Avg Group) 9, 2
Page Length Page
IFERRS MAIN PROGRAM 133 TRIPLE MAIN PROGRAM 33 105
IF2 MAIN PROGRAM 137 OPEN MAIN PROGRAM 31 108
NONOPN MAIN PROGRAM 111 NONOPN MAIN PROGRAM 27 111
OPEN MAIN PROGRAM 108 ZZZZ SUBROUTINE 2 113
RRRR SUBROUTINE 121 XXXX SUBROUTINE 2 115
RRRR SUBROUTINE 123 VVVV SUBROUTINE 2 117
TRIPLE MAIN PROGRAM 105 TTTT SUBROUTINE 2 119
TTTT SUBROUTINE 119 RRRR SUBROUTINE 2 121
TTTT SUBROUTINE 125 RRRR SUBROUTINE 2 123
VVVV SUBROUTINE 117 TTTT SUBROUTINE 2 125
VVVV SUBROUTINE 127 VVVV SUBROUTINE 2 127
XXXX SUBROUTINE 115 XXXX SUBROUTINE 2 129
XXXX SUBROUTINE 129 ZZZZ SUBROUTINE 2 131
ZZZZ SUBROUTINE 113 IFERRS MAIN PROGRAM 54 133
ZZZZ SUBROUTINE 131 IF2 MAIN PROGRAM 31 137
1