Skip to content

Commit 6874779

Browse files
meatballsmeatballs
committed
Fix remaining indents
1 parent e4b6f34 commit 6874779

File tree

1 file changed

+73
-73
lines changed

1 file changed

+73
-73
lines changed

‎TourExec1.1.f

Lines changed: 73 additions & 73 deletions
Original file line numberDiff line numberDiff line change
@@ -188,88 +188,88 @@ Function KRowFunction(J,M,K,L,R,iRow,JA) ! Look up row rule, return rowch
188188
if(irow=3) KRowFunction = K42R(J,M,K,L,R,JA)
189189
if(irow=4) KRowFunction = K49R(J,M,K,L,R,JA)
190190
return
191-
105 if(irow=5) KRowFunction = K44R(J,M,K,L,R,JA)
191+
105 if(irow=5) KRowFunction = K44R(J,M,K,L,R,JA)
192192
if(irow=6) KRowFunction = K60R(J,M,K,L,R,JA)
193193
if(irow=7) KRowFunction = K41R(J,M,K,L,R,JA)
194194
if(irow=8) KRowFunction = K75R(J,M,K,L,R,JA)
195195
return
196-
109 if(irow>12) goto 113
196+
109 if(irow>12) goto 113
197197
if(irow=9) KRowFunction = K84R(J,M,K,L,R,JA)
198198
if(irow=10) KRowFunction = K32R(J,M,K,L,R,JA)
199199
if(irow=11) KRowFunction = K35R(J,M,K,L,R,JA)
200200
if(irow=12) KRowFunction = K68R(J,M,K,L,R,JA)
201201
return
202-
113 if(irow=13) KRowFunction = K72R(J,M,K,L,R,JA)
202+
113 if(irow=13) KRowFunction = K72R(J,M,K,L,R,JA)
203203
if(irow=14) KRowFunction = K46R(J,M,K,L,R,JA)
204204
if(irow=15) KRowFunction = K83R(J,M,K,L,R,JA)
205205
if(irow=16) KRowFunction = K47R(J,M,K,L,R,JA)
206206
return
207-
117 if (irow>24 ) goto 125
207+
117 if (irow>24 ) goto 125
208208
if (irow>20 ) goto 121
209209
if(irow=17) KRowFunction = K64R(J,M,K,L,R,JA)
210210
if(irow=18) KRowFunction = K51R(J,M,K,L,R,JA)
211211
if(irow=19) KRowFunction = K78R(J,M,K,L,R,JA)
212212
if(irow=20) KRowFunction = K66R(J,M,K,L,R,JA)
213213
return
214-
121 if(irow=21) KRowFunction = K58R(J,M,K,L,R,JA)
214+
121 if(irow=21) KRowFunction = K58R(J,M,K,L,R,JA)
215215
if(irow=22) KRowFunction = K88R(J,M,K,L,R,JA)
216216
if(irow=23) KRowFunction = K31R(J,M,K,L,R,JA)
217217
if(irow=24) KRowFunction = K90R(J,M,K,L,R,JA)
218218
return
219-
125 if (irow>28 ) goto 129
219+
125 if (irow>28 ) goto 129
220220
if(irow=25) KRowFunction = K39R(J,M,K,L,R,JA)
221221
if(irow=26) KRowFunction = K79R(J,M,K,L,R,JA)
222222
if(irow=27) KRowFunction = K67R(J,M,K,L,R,JA)
223223
if(irow=28) KRowFunction = K86R(J,M,K,L,R,JA)
224224
return
225-
129 if(irow=29) KRowFunction = K69R(J,M,K,L,R,JA)
225+
129 if(irow=29) KRowFunction = K69R(J,M,K,L,R,JA)
226226
if(irow=30) KRowFunction = K91R(J,M,K,L,R,JA)
227227
if(irow=31) KRowFunction = K57R(J,M,K,L,R,JA)
228228
if(irow=32) KRowFunction = K70R(J,M,K,L,R,JA)
229229
return
230-
133 if (irow>48 ) goto 149
230+
133 if (irow>48 ) goto 149
231231
if (irow>40 ) goto 141
232232
if (irow>36 ) goto 137
233233
if(irow=33) KRowFunction = K85R(J,M,K,L,R,JA)
234234
if(irow=34) KRowFunction = K38R(J,M,K,L,R,JA)
235235
if(irow=35) KRowFunction = K40R(J,M,K,L,R,JA)
236236
if(irow=36) KRowFunction = K80R(J,M,K,L,R,JA)
237237
return
238-
137 if(irow=37) KRowFunction = K37R(J,M,K,L,R,JA)
238+
137 if(irow=37) KRowFunction = K37R(J,M,K,L,R,JA)
239239
if(irow=38) KRowFunction = K56R(J,M,K,L,R,JA)
240240
if(irow=39) KRowFunction = K43R(J,M,K,L,R,JA)
241241
if(irow=40) KRowFunction = K59R(J,M,K,L,R,JA)
242242
return
243-
141 if(irow>44) goto 145
243+
141 if(irow>44) goto 145
244244
if(irow=41) KRowFunction = K73R(J,M,K,L,R,JA)
245245
if(irow=42) KRowFunction = K55R(J,M,K,L,R,JA)
246246
if(irow=43) KRowFunction = K81R(J,M,K,L,R,JA)
247247
if(irow=44) KRowFunction = K87R(J,M,K,L,R,JA)
248248
return
249-
145 if(irow=45) KRowFunction = K53R(J,M,K,L,R,JA)
249+
145 if(irow=45) KRowFunction = K53R(J,M,K,L,R,JA)
250250
if(irow=46) KRowFunction = K76R(J,M,K,L,R,JA)
251251
if(irow=47) KRowFunction = K65R(J,M,K,L,R,JA)
252252
if(irow=48) KRowFunction = K52R(J,M,K,L,R,JA)
253253
return
254-
149 if (irow>56 ) goto 157
254+
149 if (irow>56 ) goto 157
255255
if (irow>52 ) goto 153
256256
if(irow=49) KRowFunction = K82R(J,M,K,L,R,JA)
257257
if(irow=50) KRowFunction = K45R(J,M,K,L,R,JA)
258258
if(irow=51) KRowFunction = K62R(J,M,K,L,R,JA)
259259
if(irow=52) KRowFunction = K34R(J,M,K,L,R,JA)
260260
return
261-
153 if(irow=53) KRowFunction = K48R(J,M,K,L,R,JA)
261+
153 if(irow=53) KRowFunction = K48R(J,M,K,L,R,JA)
262262
if(irow=54) KRowFunction = K50R(J,M,K,L,R,JA)
263263
if(irow=55) KRowFunction = K77R(J,M,K,L,R,JA)
264264
if(irow=56) KRowFunction = K89R(J,M,K,L,R,JA)
265265
return
266-
157 if (irow>60) goto 161
266+
157 if (irow>60) goto 161
267267
if(irow=57) KRowFunction = K63R(J,M,K,L,R,JA)
268268
if(irow=58) KRowFunction = K54R(J,M,K,L,R,JA)
269269
if(irow=59) KRowFunction = K33R(J,M,K,L,R,JA)
270270
if(irow=60) KRowFunction = K71R(J,M,K,L,R,JA)
271271
return
272-
161 if(irow=61) KRowFunction = K74R(J,M,K,L,R,JA)
272+
161 if(irow=61) KRowFunction = K74R(J,M,K,L,R,JA)
273273
if(irow=62) KRowFunction = K93R(J,M,K,L,R,JA)
274274
if(irow=63) KRowFunction = K36R(J,M,K,L,R,JA)
275275
return
@@ -745,7 +745,7 @@ FUNCTION K58R(J,M,K,L,R, JA)
745745
IF (M .GT. 1) GOTO 99
746746
KAM = 0
747747
NPHA = 0
748-
99 IF (KAM .GT. 6) GOTO 87
748+
99 IF (KAM .GT. 6) GOTO 87
749749
IF (NPHA .GE. 1) GOTO 89
750750
IF ((M / 18) * 18 .EQ. M .AND. KAM .GT. 2) KAM = KAM - 1
751751
IF ((M / 6) * 6 .NE. M) GOTO 88
@@ -754,18 +754,18 @@ FUNCTION K58R(J,M,K,L,R, JA)
754754
IF (K .LT. M * 2) GOTO 12
755755
IF (K * 10 .LT. M * 25) GOTO 13
756756
GOTO 88
757-
10 KAM = KAM + 2
758-
11 KAM = KAM + 1
759-
12 KAM = KAM + 1
760-
13 KAM = KAM + 1
757+
10 KAM = KAM + 2
758+
11 KAM = KAM + 1
759+
12 KAM = KAM + 1
760+
13 KAM = KAM + 1
761761
NPHA = 2
762762
GOTO 87
763-
89 NPHA = NPHA - 1
763+
89 NPHA = NPHA - 1
764764
IF (NPHA .EQ. 0) GOTO 87
765765
88 K58R = 0
766766
GOTO 86
767767
87 K58R = 1
768-
86 RETURN
768+
86 RETURN
769769
END
770770
FUNCTION K88R(J,M,K,L,R, JA)
771771
C BY SCOTT APPOLD
@@ -971,15 +971,15 @@ FUNCTION K57R(J,M,K,L,R, JA)
971971
c coop if 0, 27, 28, 32, 40-4, 46-8, 56-7,59-60,62-63
972972
8 k57r=1
973973
if(n-39) 10,110,50
974-
10 if(n) 100,100,20
975-
20 if(n-28) 30,100,40
976-
30 if(n-27) 110,100,100
977-
40 if(n-32) 110,100,110
978-
50 if(n-45) 100,110,60
979-
60 if(n-49) 100,110,70
980-
70 if(n-58) 80,110,90
981-
80 if(n-55) 110,110,100
982-
90 if(n-61) 100,110,100
974+
10 if(n) 100,100,20
975+
20 if(n-28) 30,100,40
976+
30 if(n-27) 110,100,100
977+
40 if(n-32) 110,100,110
978+
50 if(n-45) 100,110,60
979+
60 if(n-49) 100,110,70
980+
70 if(n-58) 80,110,90
981+
80 if(n-55) 110,110,100
982+
90 if(n-61) 100,110,100
983983
100 k57r = 0
984984
110 return
985985
end
@@ -1380,7 +1380,7 @@ FUNCTION K55R(J,M,K,L,R, JA)
13801380
QNA = QNA + 1
13811381
ALPHA = QCA / QNA
13821382
GOTO 30
1383-
20 IF (J .EQ. 0) QCB = QCB + 1
1383+
20 IF (J .EQ. 0) QCB = QCB + 1
13841384
QNB = QNB + 1
13851385
BETA = QCB / QNB
13861386
C SAVE OWN PAST
@@ -1452,7 +1452,7 @@ FUNCTION K81R(J,M,K,L,R, JA)
14521452
A3 = A1 / A2
14531453
A = 3 * A3
14541454
B = A + A3 + 1
1455-
610 DO 630 C = 1,4
1455+
610 DO 630 C = 1,4
14561456
X(C) = A
14571457
630 X(C + 4) = B
14581458
E0 = 5
@@ -1811,7 +1811,7 @@ FUNCTION K51R(J,M,K,L,R,JA)
18111811
IF (LASTI .GT. 0) GOTO 10
18121812
IF (J .EQ. 1) K51R = 1
18131813
IF (J .EQ. 1) LASTI = 4
1814-
10 RETURN
1814+
10 RETURN
18151815
END
18161816
FUNCTION K78R(J,M,K,L,R,JA)
18171817
C BY FRED MAUK
@@ -1917,7 +1917,7 @@ FUNCTION K39R(J,M,K,L,R,JA)
19171917
IF ( (OK(STEP+1).EQ.0) .AND.
19181918
1(TATCNT.GE.4 .OR. TITCNT.EQ.0))
19191919
1 STEP=STEP+1
1920-
777 continue
1920+
777 continue
19211921
C IF WE PUNISHED TOO SEVERLY, THEN GO ALL C TO ECOOPERATE
19221922
cc ax test
19231923
c if (m.eq. 51) write(6,747) m, step, substp
@@ -2175,17 +2175,17 @@ FUNCTION K52R(J,M,K,L,R,JA)
21752175
IF (M .GT. 1) GOTO 305
21762176
D9 = 0
21772177
D8 = 0
2178-
305 D9 = D9 + 1
2178+
305 D9 = D9 + 1
21792179
IF (J .GT. 0) GOTO 320
21802180
D9 = 0
2181-
320 IF (D9 .LT. 2) GOTO 345
2181+
320 IF (D9 .LT. 2) GOTO 345
21822182
K52R = 1
21832183
IF (D9 .LT. (5+ 3*D8)) GOTO 345
21842184
D9 = 0
21852185
D8 = D8 + 1
2186-
345 IF (R .GT. .05) GOTO 355
2186+
345 IF (R .GT. .05) GOTO 355
21872187
K52R = 1 - K52R
2188-
355 RETURN
2188+
355 RETURN
21892189
END
21902190
FUNCTION K82R(J,M,K,L,R,JA)
21912191
C BY ROBERT A LEYLAND
@@ -2785,7 +2785,7 @@ FUNCTION K74RXX(J,M,K,L,R,JA)
27852785
k74dummy=1
27862786
RETURN
27872787
c70 K74R = 1 - K74R
2788-
70 K74R = 1-k74dummy
2788+
70 K74R = 1-k74dummy
27892789
RETURN
27902790
80 IF (JS4 .EQ. 0) GOTO 15
27912791
IF (JS11 .EQ. 1) GOTO 15
@@ -2829,55 +2829,55 @@ Integer FUNCTION GRASR(JPICK, MOVEN, ISCOR, JSCOR, RANDO,JA)
28292829
N = 0
28302830
9997 CONTINUE
28312831
IF (MOVEN - 1) 25, 25, 26
2832-
25 GRASR = 0
2832+
25 GRASR = 0
28332833
RETURN
2834-
26 IF (MOVEN - 51) 1, 2, 3
2835-
1 GRASR = JPICK
2834+
26 IF (MOVEN - 51) 1, 2, 3
2835+
1 GRASR = JPICK
28362836
RETURN
2837-
2 GRASR = 1
2837+
2 GRASR = 1
28382838
RETURN
2839-
3 IF (MOVEN - 57) 4, 5, 6
2840-
4 IF (MOVEN - 52) 9, 9, 10
2841-
10 NMOV(MOVEN - 52) = MMOVE + JPICK
2842-
9 GRASR = JPICK
2839+
3 IF (MOVEN - 57) 4, 5, 6
2840+
4 IF (MOVEN - 52) 9, 9, 10
2841+
10 NMOV(MOVEN - 52) = MMOVE + JPICK
2842+
9 GRASR = JPICK
28432843
IF (GRASR -1) 7, 8, 8
2844-
7 MMOVE = 2
2844+
7 MMOVE = 2
28452845
GO TO 11
2846-
8 MMOVE = 4
2847-
11 RETURN
2848-
5 IF (JSCOR - 135) 19, 19, 20
2849-
20 J = NMOV(2)
2846+
8 MMOVE = 4
2847+
11 RETURN
2848+
5 IF (JSCOR - 135) 19, 19, 20
2849+
20 J = NMOV(2)
28502850
GO TO (12, 12, 30, 31, 32), J
2851-
31 IF (NMOV(1) - 3) 12, 35, 12
2852-
35 IF (NMOV(3) - 3) 12, 16, 12
2853-
32 IF (NMOV(1) - 5) 12, 33, 12
2854-
33 IF (NMOV(3) - 5) 12, 16, 12
2855-
30 IF (NMOV(1) - 2) 12, 34, 12
2856-
34 IF (NMOV(3) - 4) 12, 40, 12
2857-
40 IF (NMOV(4) - 2) 12, 41, 12
2858-
12 IGAME = 1
2851+
31 IF (NMOV(1) - 3) 12, 35, 12
2852+
35 IF (NMOV(3) - 3) 12, 16, 12
2853+
32 IF (NMOV(1) - 5) 12, 33, 12
2854+
33 IF (NMOV(3) - 5) 12, 16, 12
2855+
30 IF (NMOV(1) - 2) 12, 34, 12
2856+
34 IF (NMOV(3) - 4) 12, 40, 12
2857+
40 IF (NMOV(4) - 2) 12, 41, 12
2858+
12 IGAME = 1
28592859
N = RANDO * 10.0 + 5.0
28602860
GRASR = 0
28612861
RETURN
2862-
16 IGAME = 2
2862+
16 IGAME = 2
28632863
GRASR = 0
28642864
RETURN
2865-
19 IGAME = 3
2866-
27 GRASR = 1
2865+
19 IGAME = 3
2866+
27 GRASR = 1
28672867
RETURN
2868-
41 IGAME = 4
2869-
42 GRASR = 0
2868+
41 IGAME = 4
2869+
42 GRASR = 0
28702870
IF (MOVEN - 118) 44, 43, 43
2871-
43 IGAME=2
2872-
44 RETURN
2873-
6 GO TO (21, 22, 27, 42), IGAME
2874-
21 IF (N) 23, 23, 24
2875-
23 GRASR = 1
2871+
43 IGAME=2
2872+
44 RETURN
2873+
6 GO TO (21, 22, 27, 42), IGAME
2874+
21 IF (N) 23, 23, 24
2875+
23 GRASR = 1
28762876
N = RANDO * 10.0 + 5.0
28772877
RETURN
2878-
24 GRASR = JPICK
2878+
24 GRASR = JPICK
28792879
N = N-1
28802880
RETURN
2881-
22 GRASR = JPICK
2881+
22 GRASR = JPICK
28822882
RETURN
28832883
END

0 commit comments

Comments
 (0)