blob: 6e898ab09aeed5a41db04c6e375db06715afacfb (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
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
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
|
*********************************************
* NON REGRESSION TESTS FOR KINETICS *
* Author: D.Sekki (04/2008) *
*********************************************
PROCEDURE assertS ptrack1 pbivac1 pdrive1
pdrive2 pdrive3 pdrive4 pdrive5 pdrive6
pdrive7 pdrive8 pdrive9 pdrive10 pdrive11
pdrive12 pdrive13 pdrive14 pdrive15 pdrive16
pdrive17 pdrive18 pdrive19 pdrive20 pdrive21
pdrive22 pdrive23 pdrive24 pdrive25 pdrive26
pdrive27 pdrive28 pdrive29 pdrive30 pdrive31
pspn_bivac pspn_trivac mcfd1 dual12_biv dual12_tri
prim12_biv prim12_tri spn12_biv spn12_tri dual13_biv
prim13_biv lmw2D ;
MODULE DELETE: END: ;
LINKED_LIST MACRO TRACK SYSTEM FLUX ;
INTEGER maxItr MaxReg := 10 1000 ;
INTEGER degre quadr nadi ;
REAL precf := 1.0E-6 ;
STRING method ;
*
ECHO " ***** Ktest01 *****" ;
EVALUATE method := "MCFD" ;
EVALUATE degre quadr nadi := 1 1 1 ;
MACRO TRACK SYSTEM FLUX := ptrack1 :: <<MaxReg>>
<<method>> <<degre>> <<quadr>> <<precf>> ;
assertS FLUX :: 'K-EFFECTIVE' 1 0.997770 ;
pdrive1 MACRO TRACK SYSTEM FLUX ::
<<maxItr>> <<precf>> <<nadi>> ;
MACRO TRACK SYSTEM FLUX := DELETE: MACRO TRACK SYSTEM FLUX ;
ECHO "Ktest01 completed" ;
*
ECHO " ***** Ktest02 *****" ;
EVALUATE degre := 2 ;
MACRO TRACK SYSTEM FLUX := ptrack1 :: <<MaxReg>>
<<method>> <<degre>> <<quadr>> <<precf>> ;
assertS FLUX :: 'K-EFFECTIVE' 1 0.9977043 ;
pdrive2 MACRO TRACK SYSTEM FLUX ::
<<maxItr>> <<precf>> <<nadi>> ;
MACRO TRACK SYSTEM FLUX := DELETE: MACRO TRACK SYSTEM FLUX ;
ECHO "Ktest02 completed" ;
*
ECHO " ***** Ktest03 *****" ;
EVALUATE method := "PRIM" ;
EVALUATE degre := 1 ;
MACRO TRACK SYSTEM FLUX := ptrack1 :: <<MaxReg>>
<<method>> <<degre>> <<quadr>> <<precf>> ;
assertS FLUX :: 'K-EFFECTIVE' 1 0.9979774 ;
pdrive3 MACRO TRACK SYSTEM FLUX ::
<<maxItr>> <<precf>> <<nadi>> ;
MACRO TRACK SYSTEM FLUX := DELETE: MACRO TRACK SYSTEM FLUX ;
ECHO "Ktest03 completed" ;
*
ECHO " ***** Ktest04 *****" ;
EVALUATE degre := 2 ;
MACRO TRACK SYSTEM FLUX := ptrack1 :: <<MaxReg>>
<<method>> <<degre>> <<quadr>> <<precf>> ;
assertS FLUX :: 'K-EFFECTIVE' 1 0.9977074 ;
pdrive4 MACRO TRACK SYSTEM FLUX ::
<<maxItr>> <<precf>> <<nadi>> ;
MACRO TRACK SYSTEM FLUX := DELETE: MACRO TRACK SYSTEM FLUX ;
ECHO "Ktest04 completed" ;
*
ECHO " ***** Ktest05 *****" ;
EVALUATE method := "DUAL" ;
EVALUATE degre quadr := 1 1 ;
MACRO TRACK SYSTEM FLUX := ptrack1 :: <<MaxReg>>
<<method>> <<degre>> <<quadr>> <<precf>> ;
assertS FLUX :: 'K-EFFECTIVE' 1 0.9976563 ;
pdrive5 MACRO TRACK SYSTEM FLUX ::
<<maxItr>> <<precf>> <<nadi>> ;
MACRO TRACK SYSTEM FLUX := DELETE: MACRO TRACK SYSTEM FLUX ;
ECHO "Ktest05 completed" ;
*
ECHO " ***** Ktest06 *****" ;
EVALUATE degre quadr := 1 2 ;
MACRO TRACK SYSTEM FLUX := ptrack1 :: <<MaxReg>>
<<method>> <<degre>> <<quadr>> <<precf>> ;
assertS FLUX :: 'K-EFFECTIVE' 1 0.99777007 ;
pdrive6 MACRO TRACK SYSTEM FLUX ::
<<maxItr>> <<precf>> <<nadi>> ;
MACRO TRACK SYSTEM FLUX := DELETE: MACRO TRACK SYSTEM FLUX ;
ECHO "Ktest06 completed" ;
*
ECHO " ***** Ktest07 *****" ;
EVALUATE degre quadr := 1 3 ;
MACRO TRACK SYSTEM FLUX := ptrack1 :: <<MaxReg>>
<<method>> <<degre>> <<quadr>> <<precf>> ;
assertS FLUX :: 'K-EFFECTIVE' 1 0.9976792 ;
pdrive7 MACRO TRACK SYSTEM FLUX ::
<<maxItr>> <<precf>> <<nadi>> ;
MACRO TRACK SYSTEM FLUX := DELETE: MACRO TRACK SYSTEM FLUX ;
ECHO "Ktest07 completed" ;
*
ECHO " ***** Ktest08 *****" ;
EVALUATE degre quadr := 2 1 ;
MACRO TRACK SYSTEM FLUX := ptrack1 :: <<MaxReg>>
<<method>> <<degre>> <<quadr>> <<precf>> ;
assertS FLUX :: 'K-EFFECTIVE' 1 0.9977172 ;
pdrive8 MACRO TRACK SYSTEM FLUX ::
<<maxItr>> <<precf>> <<nadi>> ;
MACRO TRACK SYSTEM FLUX := DELETE: MACRO TRACK SYSTEM FLUX ;
ECHO "Ktest08 completed" ;
*
ECHO " ***** Ktest09 *****" ;
EVALUATE degre quadr := 2 2 ;
MACRO TRACK SYSTEM FLUX := ptrack1 :: <<MaxReg>>
<<method>> <<degre>> <<quadr>> <<precf>> ;
assertS FLUX :: 'K-EFFECTIVE' 1 0.9977043 ;
pdrive9 MACRO TRACK SYSTEM FLUX ::
<<maxItr>> <<precf>> <<nadi>> ;
MACRO TRACK SYSTEM FLUX := DELETE: MACRO TRACK SYSTEM FLUX ;
ECHO "Ktest09 completed" ;
*
ECHO " ***** Ktest10 *****" ;
EVALUATE degre quadr := 2 3 ;
MACRO TRACK SYSTEM FLUX := ptrack1 :: <<MaxReg>>
<<method>> <<degre>> <<quadr>> <<precf>> ;
assertS FLUX :: 'K-EFFECTIVE' 1 0.9977345 ;
pdrive10 MACRO TRACK SYSTEM FLUX ::
<<maxItr>> <<precf>> <<nadi>> ;
MACRO TRACK SYSTEM FLUX := DELETE: MACRO TRACK SYSTEM FLUX ;
ECHO "Ktest10 completed" ;
*
ECHO " ***** Ktest11 *****" ;
EVALUATE degre quadr := 3 1 ;
MACRO TRACK SYSTEM FLUX := ptrack1 :: <<MaxReg>>
<<method>> <<degre>> <<quadr>> <<precf>> ;
assertS FLUX :: 'K-EFFECTIVE' 1 0.9977306 ;
pdrive11 MACRO TRACK SYSTEM FLUX ::
<<maxItr>> <<precf>> <<nadi>> ;
MACRO TRACK SYSTEM FLUX := DELETE: MACRO TRACK SYSTEM FLUX ;
ECHO "Ktest11 completed" ;
*
ECHO " ***** Ktest12 *****" ;
EVALUATE degre quadr := 3 2 ;
MACRO TRACK SYSTEM FLUX := ptrack1 :: <<MaxReg>>
<<method>> <<degre>> <<quadr>> <<precf>> ;
assertS FLUX :: 'K-EFFECTIVE' 1 0.9977283 ;
pdrive12 MACRO TRACK SYSTEM FLUX ::
<<maxItr>> <<precf>> <<nadi>> ;
MACRO TRACK SYSTEM FLUX := DELETE: MACRO TRACK SYSTEM FLUX ;
ECHO "Ktest12 completed" ;
*
ECHO " ***** Ktest13 *****" ;
EVALUATE degre quadr := 3 3 ;
MACRO TRACK SYSTEM FLUX := ptrack1 :: <<MaxReg>>
<<method>> <<degre>> <<quadr>> <<precf>> ;
assertS FLUX :: 'K-EFFECTIVE' 1 0.9977332 ;
pdrive13 MACRO TRACK SYSTEM FLUX ::
<<maxItr>> <<precf>> <<nadi>> ;
MACRO TRACK SYSTEM FLUX := DELETE: MACRO TRACK SYSTEM FLUX ;
ECHO "Ktest13 completed" ;
*
ECHO " ***** Ktest14 *****" ;
EVALUATE method := "PRIM" ;
EVALUATE degre quadr := 1 1 ;
MACRO TRACK SYSTEM FLUX := pbivac1 :: <<MaxReg>>
<<method>> <<degre>> <<quadr>> <<precf>> ;
assertS FLUX :: 'K-EFFECTIVE' 1 0.9977993 ;
pdrive14 MACRO TRACK SYSTEM FLUX ::
<<maxItr>> <<precf>> <<nadi>> ;
MACRO TRACK SYSTEM FLUX := DELETE: MACRO TRACK SYSTEM FLUX ;
ECHO "Ktest14 completed" ;
*
ECHO " ***** Ktest15 *****" ;
EVALUATE degre quadr := 1 2 ;
MACRO TRACK SYSTEM FLUX := pbivac1 :: <<MaxReg>>
<<method>> <<degre>> <<quadr>> <<precf>> ;
assertS FLUX :: 'K-EFFECTIVE' 1 0.9979696 ;
pdrive15 MACRO TRACK SYSTEM FLUX ::
<<maxItr>> <<precf>> <<nadi>> ;
MACRO TRACK SYSTEM FLUX := DELETE: MACRO TRACK SYSTEM FLUX ;
ECHO "Ktest15 completed" ;
*
ECHO " ***** Ktest16 *****" ;
EVALUATE degre quadr := 1 3 ;
MACRO TRACK SYSTEM FLUX := pbivac1 :: <<MaxReg>>
<<method>> <<degre>> <<quadr>> <<precf>> ;
assertS FLUX :: 'K-EFFECTIVE' 1 0.9976777 ;
pdrive16 MACRO TRACK SYSTEM FLUX ::
<<maxItr>> <<precf>> <<nadi>> ;
MACRO TRACK SYSTEM FLUX := DELETE: MACRO TRACK SYSTEM FLUX ;
ECHO "Ktest16 completed" ;
*
ECHO " ***** Ktest17 *****" ;
EVALUATE degre quadr := 2 1 ;
MACRO TRACK SYSTEM FLUX := pbivac1 :: <<MaxReg>>
<<method>> <<degre>> <<quadr>> <<precf>> ;
assertS FLUX :: 'K-EFFECTIVE' 1 0.9977984 ;
pdrive17 MACRO TRACK SYSTEM FLUX ::
<<maxItr>> <<precf>> <<nadi>> ;
MACRO TRACK SYSTEM FLUX := DELETE: MACRO TRACK SYSTEM FLUX ;
ECHO "Ktest17 completed" ;
*
ECHO " ***** Ktest18 *****" ;
EVALUATE degre quadr := 2 2 ;
MACRO TRACK SYSTEM FLUX := pbivac1 :: <<MaxReg>>
<<method>> <<degre>> <<quadr>> <<precf>> ;
assertS FLUX :: 'K-EFFECTIVE' 1 0.9977235 ;
pdrive18 MACRO TRACK SYSTEM FLUX ::
<<maxItr>> <<precf>> <<nadi>> ;
MACRO TRACK SYSTEM FLUX := DELETE: MACRO TRACK SYSTEM FLUX ;
ECHO "Ktest18 completed" ;
*
ECHO " ***** Ktest19 *****" ;
EVALUATE degre quadr := 2 3 ;
MACRO TRACK SYSTEM FLUX := pbivac1 :: <<MaxReg>>
<<method>> <<degre>> <<quadr>> <<precf>> ;
assertS FLUX :: 'K-EFFECTIVE' 1 0.9977491 ;
pdrive19 MACRO TRACK SYSTEM FLUX ::
<<maxItr>> <<precf>> <<nadi>> ;
MACRO TRACK SYSTEM FLUX := DELETE: MACRO TRACK SYSTEM FLUX ;
ECHO "Ktest19 completed" ;
*
ECHO " ***** Ktest20 *****" ;
EVALUATE degre quadr := 3 1 ;
MACRO TRACK SYSTEM FLUX := pbivac1 :: <<MaxReg>>
<<method>> <<degre>> <<quadr>> <<precf>> ;
*assertS FLUX :: 'K-EFFECTIVE' 1 0.9978661 ;
pdrive20 MACRO TRACK SYSTEM FLUX ::
<<maxItr>> <<precf>> <<nadi>> ;
MACRO TRACK SYSTEM FLUX := DELETE: MACRO TRACK SYSTEM FLUX ;
ECHO "Ktest20 completed" ;
*
ECHO " ***** Ktest21 *****" ;
EVALUATE degre quadr := 3 2 ;
MACRO TRACK SYSTEM FLUX := pbivac1 :: <<MaxReg>>
<<method>> <<degre>> <<quadr>> 1.0E-5 ;
*assertS FLUX :: 'K-EFFECTIVE' 1 0.99770 ;
pdrive21 MACRO TRACK SYSTEM FLUX ::
<<maxItr>> <<precf>> <<nadi>> ;
MACRO TRACK SYSTEM FLUX := DELETE: MACRO TRACK SYSTEM FLUX ;
ECHO "Ktest21 completed" ;
*
ECHO " ***** Ktest22 *****" ;
EVALUATE degre quadr := 3 3 ;
MACRO TRACK SYSTEM FLUX := pbivac1 :: <<MaxReg>>
<<method>> <<degre>> <<quadr>> <<precf>> ;
*assertS FLUX :: 'K-EFFECTIVE' 1 0.99765 ;
pdrive22 MACRO TRACK SYSTEM FLUX ::
<<maxItr>> <<precf>> <<nadi>> ;
MACRO TRACK SYSTEM FLUX := DELETE: MACRO TRACK SYSTEM FLUX ;
ECHO "Ktest22 completed" ;
*
ECHO " ***** Ktest23 *****" ;
EVALUATE method := "DUAL" ;
EVALUATE degre quadr := 1 1 ;
MACRO TRACK SYSTEM FLUX := pbivac1 :: <<MaxReg>>
<<method>> <<degre>> <<quadr>> <<precf>> ;
assertS FLUX :: 'K-EFFECTIVE' 1 0.9976563 ;
pdrive23 MACRO TRACK SYSTEM FLUX ::
<<maxItr>> <<precf>> <<nadi>> ;
MACRO TRACK SYSTEM FLUX := DELETE: MACRO TRACK SYSTEM FLUX ;
ECHO "Ktest23 completed" ;
*
ECHO " ***** Ktest24 *****" ;
EVALUATE degre quadr := 1 2 ;
MACRO TRACK SYSTEM FLUX := pbivac1 :: <<MaxReg>>
<<method>> <<degre>> <<quadr>> <<precf>> ;
assertS FLUX :: 'K-EFFECTIVE' 1 0.9977701 ;
pdrive24 MACRO TRACK SYSTEM FLUX ::
<<maxItr>> <<precf>> <<nadi>> ;
MACRO TRACK SYSTEM FLUX := DELETE: MACRO TRACK SYSTEM FLUX ;
ECHO "Ktest24 completed" ;
*
ECHO " ***** Ktest25 *****" ;
EVALUATE degre quadr := 1 3 ;
MACRO TRACK SYSTEM FLUX := pbivac1 :: <<MaxReg>>
<<method>> <<degre>> <<quadr>> <<precf>> ;
assertS FLUX :: 'K-EFFECTIVE' 1 0.9976793 ;
pdrive25 MACRO TRACK SYSTEM FLUX ::
<<maxItr>> <<precf>> <<nadi>> ;
MACRO TRACK SYSTEM FLUX := DELETE: MACRO TRACK SYSTEM FLUX ;
ECHO "Ktest25 completed" ;
*
ECHO " ***** Ktest26 *****" ;
EVALUATE degre quadr := 2 1 ;
MACRO TRACK SYSTEM FLUX := pbivac1 :: <<MaxReg>>
<<method>> <<degre>> <<quadr>> <<precf>> ;
assertS FLUX :: 'K-EFFECTIVE' 1 0.9977170 ;
pdrive26 MACRO TRACK SYSTEM FLUX ::
<<maxItr>> <<precf>> <<nadi>> ;
MACRO TRACK SYSTEM FLUX := DELETE: MACRO TRACK SYSTEM FLUX ;
ECHO "Ktest26 completed" ;
*
ECHO " ***** Ktest27 *****" ;
EVALUATE degre quadr := 2 2 ;
MACRO TRACK SYSTEM FLUX := pbivac1 :: <<MaxReg>>
<<method>> <<degre>> <<quadr>> <<precf>> ;
assertS FLUX :: 'K-EFFECTIVE' 1 0.9977043 ;
pdrive27 MACRO TRACK SYSTEM FLUX ::
<<maxItr>> <<precf>> <<nadi>> ;
MACRO TRACK SYSTEM FLUX := DELETE: MACRO TRACK SYSTEM FLUX ;
ECHO "Ktest27 completed" ;
*
ECHO " ***** Ktest28 *****" ;
EVALUATE degre quadr := 2 3 ;
MACRO TRACK SYSTEM FLUX := pbivac1 :: <<MaxReg>>
<<method>> <<degre>> <<quadr>> <<precf>> ;
assertS FLUX :: 'K-EFFECTIVE' 1 0.9977344 ;
pdrive28 MACRO TRACK SYSTEM FLUX ::
<<maxItr>> <<precf>> <<nadi>> ;
MACRO TRACK SYSTEM FLUX := DELETE: MACRO TRACK SYSTEM FLUX ;
ECHO "Ktest28 completed" ;
*
ECHO " ***** Ktest29 *****" ;
EVALUATE degre quadr := 3 1 ;
MACRO TRACK SYSTEM FLUX := pbivac1 :: <<MaxReg>>
<<method>> <<degre>> <<quadr>> <<precf>> ;
assertS FLUX :: 'K-EFFECTIVE' 1 0.9977307 ;
pdrive29 MACRO TRACK SYSTEM FLUX ::
<<maxItr>> <<precf>> <<nadi>> ;
MACRO TRACK SYSTEM FLUX := DELETE: MACRO TRACK SYSTEM FLUX ;
ECHO "Ktest29 completed" ;
*
ECHO " ***** Ktest30 *****" ;
EVALUATE degre quadr := 3 2 ;
MACRO TRACK SYSTEM FLUX := pbivac1 :: <<MaxReg>>
<<method>> <<degre>> <<quadr>> <<precf>> ;
assertS FLUX :: 'K-EFFECTIVE' 1 0.9977284 ;
pdrive30 MACRO TRACK SYSTEM FLUX ::
<<maxItr>> <<precf>> <<nadi>> ;
MACRO TRACK SYSTEM FLUX := DELETE: MACRO TRACK SYSTEM FLUX ;
ECHO "Ktest30 completed" ;
*
ECHO " ***** Ktest31 *****" ;
EVALUATE degre quadr := 3 3 ;
MACRO TRACK SYSTEM FLUX := pbivac1 :: <<MaxReg>>
<<method>> <<degre>> <<quadr>> <<precf>> ;
assertS FLUX :: 'K-EFFECTIVE' 1 0.9977333 ;
pdrive31 MACRO TRACK SYSTEM FLUX ::
<<maxItr>> <<precf>> <<nadi>> ;
MACRO TRACK SYSTEM FLUX := DELETE: MACRO TRACK SYSTEM FLUX ;
ECHO "Ktest31 completed" ;
*
pspn_bivac ;
pspn_trivac ;
mcfd1 ;
dual12_biv ;
dual12_tri ;
prim12_biv ;
prim12_tri ;
spn12_biv ;
spn12_tri ;
dual13_biv ;
prim13_biv ;
lmw2D ;
END: ;
QUIT .
|
