fUnit 0.0.1
This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.
- data/INSTALL +19 -0
- data/LICENSE +262 -0
- data/README +3 -0
- data/bin/funit +8 -0
- data/docs/HISTORY +20 -0
- data/docs/spiel/slides.tex +153 -0
- data/docs/why/F90testRun +43 -0
- data/docs/why/F90testRun.ps +548 -0
- data/docs/why/FluxFunctions.f90 +36 -0
- data/docs/why/FluxFunctions.f90.ps +526 -0
- data/docs/why/FluxFunctionsTS.f90 +324 -0
- data/docs/why/FluxFunctionsTS.f90.ps +1048 -0
- data/docs/why/FluxFunctionsTS.ftk +49 -0
- data/docs/why/FluxFunctionsTS.ftk.ps +554 -0
- data/docs/why/GasModel.f90 +19 -0
- data/docs/why/GasModel.f90.ps +496 -0
- data/docs/why/GasModelTS+SRC +44 -0
- data/docs/why/GasModelTS+SRC.ps +532 -0
- data/docs/why/GasModelTS.f90 +168 -0
- data/docs/why/GasModelTS.f90.ps +760 -0
- data/docs/why/GasModelTS.ftk +22 -0
- data/docs/why/GasModelTS.ftk.ps +507 -0
- data/docs/why/TestRunner.f90 +28 -0
- data/docs/why/TestRunner.f90.ps +511 -0
- data/docs/why/land2 +2 -0
- data/docs/why/landscape +2 -0
- data/docs/why/portrait +2 -0
- data/lib/clean +1 -0
- data/lib/fortran_deps.rb +109 -0
- data/lib/funit/assertions.rb +72 -0
- data/lib/funit/functions.rb +124 -0
- data/lib/funit/test_suite.rb +180 -0
- data/lib/funit.rb +25 -0
- data/lib/mklinks +5 -0
- data/tests/tc_compile.rb +30 -0
- data/tests/tc_fortran_deps.rb +167 -0
- data/tests/tc_funit.rb +104 -0
- data/tests/tc_test_suite.rb +82 -0
- data/tests/ts_funit.rb +6 -0
- metadata +85 -0
|
@@ -0,0 +1,1048 @@
|
|
|
1
|
+
%!PS-Adobe-3.0
|
|
2
|
+
%%BoundingBox: 24 24 588 768
|
|
3
|
+
%%Title: Enscript Output
|
|
4
|
+
%%For: Bil Kleb
|
|
5
|
+
%%Creator: GNU enscript 1.6.1
|
|
6
|
+
%%CreationDate: Wed Nov 7 08:23:36 2001
|
|
7
|
+
%%Orientation: Landscape
|
|
8
|
+
%%Pages: (atend)
|
|
9
|
+
%%DocumentMedia: Letter 612 792 0 () ()
|
|
10
|
+
%%DocumentNeededResources: (atend)
|
|
11
|
+
%%EndComments
|
|
12
|
+
%%BeginProlog
|
|
13
|
+
%%BeginResource: procset Enscript-Prolog 1.6 1
|
|
14
|
+
%
|
|
15
|
+
% Procedures.
|
|
16
|
+
%
|
|
17
|
+
|
|
18
|
+
/_S { % save current state
|
|
19
|
+
/_s save def
|
|
20
|
+
} def
|
|
21
|
+
/_R { % restore from saved state
|
|
22
|
+
_s restore
|
|
23
|
+
} def
|
|
24
|
+
|
|
25
|
+
/S { % showpage protecting gstate
|
|
26
|
+
gsave
|
|
27
|
+
showpage
|
|
28
|
+
grestore
|
|
29
|
+
} bind def
|
|
30
|
+
|
|
31
|
+
/MF { % fontname newfontname -> - make a new encoded font
|
|
32
|
+
/newfontname exch def
|
|
33
|
+
/fontname exch def
|
|
34
|
+
|
|
35
|
+
/fontdict fontname findfont def
|
|
36
|
+
/newfont fontdict maxlength dict def
|
|
37
|
+
|
|
38
|
+
fontdict {
|
|
39
|
+
exch
|
|
40
|
+
dup /FID eq {
|
|
41
|
+
% skip FID pair
|
|
42
|
+
pop pop
|
|
43
|
+
} {
|
|
44
|
+
% copy to the new font dictionary
|
|
45
|
+
exch newfont 3 1 roll put
|
|
46
|
+
} ifelse
|
|
47
|
+
} forall
|
|
48
|
+
|
|
49
|
+
newfont /FontName newfontname put
|
|
50
|
+
|
|
51
|
+
% insert only valid encoding vectors
|
|
52
|
+
encoding_vector length 256 eq {
|
|
53
|
+
newfont /Encoding encoding_vector put
|
|
54
|
+
} if
|
|
55
|
+
|
|
56
|
+
newfontname newfont definefont pop
|
|
57
|
+
} def
|
|
58
|
+
|
|
59
|
+
/SF { % fontname width height -> - set a new font
|
|
60
|
+
/height exch def
|
|
61
|
+
/width exch def
|
|
62
|
+
|
|
63
|
+
findfont
|
|
64
|
+
[width 0 0 height 0 0] makefont setfont
|
|
65
|
+
} def
|
|
66
|
+
|
|
67
|
+
/SUF { % fontname width height -> - set a new user font
|
|
68
|
+
/height exch def
|
|
69
|
+
/width exch def
|
|
70
|
+
|
|
71
|
+
/F-gs-user-font MF
|
|
72
|
+
/F-gs-user-font width height SF
|
|
73
|
+
} def
|
|
74
|
+
|
|
75
|
+
/M {moveto} bind def
|
|
76
|
+
/s {show} bind def
|
|
77
|
+
|
|
78
|
+
/Box { % x y w h -> - define box path
|
|
79
|
+
/d_h exch def /d_w exch def /d_y exch def /d_x exch def
|
|
80
|
+
d_x d_y moveto
|
|
81
|
+
d_w 0 rlineto
|
|
82
|
+
0 d_h rlineto
|
|
83
|
+
d_w neg 0 rlineto
|
|
84
|
+
closepath
|
|
85
|
+
} def
|
|
86
|
+
|
|
87
|
+
/bgs { % x y height blskip gray str -> - show string with bg color
|
|
88
|
+
/str exch def
|
|
89
|
+
/gray exch def
|
|
90
|
+
/blskip exch def
|
|
91
|
+
/height exch def
|
|
92
|
+
/y exch def
|
|
93
|
+
/x exch def
|
|
94
|
+
|
|
95
|
+
gsave
|
|
96
|
+
x y blskip sub str stringwidth pop height Box
|
|
97
|
+
gray setgray
|
|
98
|
+
fill
|
|
99
|
+
grestore
|
|
100
|
+
x y M str s
|
|
101
|
+
} def
|
|
102
|
+
|
|
103
|
+
% Highlight bars.
|
|
104
|
+
/highlight_bars { % nlines lineheight output_y_margin gray -> -
|
|
105
|
+
gsave
|
|
106
|
+
setgray
|
|
107
|
+
/ymarg exch def
|
|
108
|
+
/lineheight exch def
|
|
109
|
+
/nlines exch def
|
|
110
|
+
|
|
111
|
+
% This 2 is just a magic number to sync highlight lines to text.
|
|
112
|
+
0 d_header_y ymarg sub 2 sub translate
|
|
113
|
+
|
|
114
|
+
/cw d_output_w cols div def
|
|
115
|
+
/nrows d_output_h ymarg 2 mul sub lineheight div cvi def
|
|
116
|
+
|
|
117
|
+
% for each column
|
|
118
|
+
0 1 cols 1 sub {
|
|
119
|
+
cw mul /xp exch def
|
|
120
|
+
|
|
121
|
+
% for each rows
|
|
122
|
+
0 1 nrows 1 sub {
|
|
123
|
+
/rn exch def
|
|
124
|
+
rn lineheight mul neg /yp exch def
|
|
125
|
+
rn nlines idiv 2 mod 0 eq {
|
|
126
|
+
% Draw highlight bar. 4 is just a magic indentation.
|
|
127
|
+
xp 4 add yp cw 8 sub lineheight neg Box fill
|
|
128
|
+
} if
|
|
129
|
+
} for
|
|
130
|
+
} for
|
|
131
|
+
|
|
132
|
+
grestore
|
|
133
|
+
} def
|
|
134
|
+
|
|
135
|
+
% Line highlight bar.
|
|
136
|
+
/line_highlight { % x y width height gray -> -
|
|
137
|
+
gsave
|
|
138
|
+
/gray exch def
|
|
139
|
+
Box gray setgray fill
|
|
140
|
+
grestore
|
|
141
|
+
} def
|
|
142
|
+
|
|
143
|
+
% Column separator lines.
|
|
144
|
+
/column_lines {
|
|
145
|
+
gsave
|
|
146
|
+
.1 setlinewidth
|
|
147
|
+
0 d_footer_h translate
|
|
148
|
+
/cw d_output_w cols div def
|
|
149
|
+
1 1 cols 1 sub {
|
|
150
|
+
cw mul 0 moveto
|
|
151
|
+
0 d_output_h rlineto stroke
|
|
152
|
+
} for
|
|
153
|
+
grestore
|
|
154
|
+
} def
|
|
155
|
+
|
|
156
|
+
% Column borders.
|
|
157
|
+
/column_borders {
|
|
158
|
+
gsave
|
|
159
|
+
.1 setlinewidth
|
|
160
|
+
0 d_footer_h moveto
|
|
161
|
+
0 d_output_h rlineto
|
|
162
|
+
d_output_w 0 rlineto
|
|
163
|
+
0 d_output_h neg rlineto
|
|
164
|
+
closepath stroke
|
|
165
|
+
grestore
|
|
166
|
+
} def
|
|
167
|
+
|
|
168
|
+
% Do the actual underlay drawing
|
|
169
|
+
/draw_underlay {
|
|
170
|
+
ul_style 0 eq {
|
|
171
|
+
ul_str true charpath stroke
|
|
172
|
+
} {
|
|
173
|
+
ul_str show
|
|
174
|
+
} ifelse
|
|
175
|
+
} def
|
|
176
|
+
|
|
177
|
+
% Underlay
|
|
178
|
+
/underlay { % - -> -
|
|
179
|
+
gsave
|
|
180
|
+
0 d_page_h translate
|
|
181
|
+
d_page_h neg d_page_w atan rotate
|
|
182
|
+
|
|
183
|
+
ul_gray setgray
|
|
184
|
+
ul_font setfont
|
|
185
|
+
/dw d_page_h dup mul d_page_w dup mul add sqrt def
|
|
186
|
+
ul_str stringwidth pop dw exch sub 2 div ul_h_ptsize -2 div moveto
|
|
187
|
+
draw_underlay
|
|
188
|
+
grestore
|
|
189
|
+
} def
|
|
190
|
+
|
|
191
|
+
/user_underlay { % - -> -
|
|
192
|
+
gsave
|
|
193
|
+
ul_x ul_y translate
|
|
194
|
+
ul_angle rotate
|
|
195
|
+
ul_gray setgray
|
|
196
|
+
ul_font setfont
|
|
197
|
+
0 0 ul_h_ptsize 2 div sub moveto
|
|
198
|
+
draw_underlay
|
|
199
|
+
grestore
|
|
200
|
+
} def
|
|
201
|
+
|
|
202
|
+
% Page prefeed
|
|
203
|
+
/page_prefeed { % bool -> -
|
|
204
|
+
statusdict /prefeed known {
|
|
205
|
+
statusdict exch /prefeed exch put
|
|
206
|
+
} {
|
|
207
|
+
pop
|
|
208
|
+
} ifelse
|
|
209
|
+
} def
|
|
210
|
+
|
|
211
|
+
% Wrapped line markers
|
|
212
|
+
/wrapped_line_mark { % x y charwith charheight type -> -
|
|
213
|
+
/type exch def
|
|
214
|
+
/h exch def
|
|
215
|
+
/w exch def
|
|
216
|
+
/y exch def
|
|
217
|
+
/x exch def
|
|
218
|
+
|
|
219
|
+
type 2 eq {
|
|
220
|
+
% Black boxes (like TeX does)
|
|
221
|
+
gsave
|
|
222
|
+
0 setlinewidth
|
|
223
|
+
x w 4 div add y M
|
|
224
|
+
0 h rlineto w 2 div 0 rlineto 0 h neg rlineto
|
|
225
|
+
closepath fill
|
|
226
|
+
grestore
|
|
227
|
+
} {
|
|
228
|
+
type 3 eq {
|
|
229
|
+
% Small arrows
|
|
230
|
+
gsave
|
|
231
|
+
.2 setlinewidth
|
|
232
|
+
x w 2 div add y h 2 div add M
|
|
233
|
+
w 4 div 0 rlineto
|
|
234
|
+
x w 4 div add y lineto stroke
|
|
235
|
+
|
|
236
|
+
x w 4 div add w 8 div add y h 4 div add M
|
|
237
|
+
x w 4 div add y lineto
|
|
238
|
+
w 4 div h 8 div rlineto stroke
|
|
239
|
+
grestore
|
|
240
|
+
} {
|
|
241
|
+
% do nothing
|
|
242
|
+
} ifelse
|
|
243
|
+
} ifelse
|
|
244
|
+
} def
|
|
245
|
+
|
|
246
|
+
% EPSF import.
|
|
247
|
+
|
|
248
|
+
/BeginEPSF {
|
|
249
|
+
/b4_Inc_state save def % Save state for cleanup
|
|
250
|
+
/dict_count countdictstack def % Count objects on dict stack
|
|
251
|
+
/op_count count 1 sub def % Count objects on operand stack
|
|
252
|
+
userdict begin
|
|
253
|
+
/showpage { } def
|
|
254
|
+
0 setgray 0 setlinecap
|
|
255
|
+
1 setlinewidth 0 setlinejoin
|
|
256
|
+
10 setmiterlimit [ ] 0 setdash newpath
|
|
257
|
+
/languagelevel where {
|
|
258
|
+
pop languagelevel
|
|
259
|
+
1 ne {
|
|
260
|
+
false setstrokeadjust false setoverprint
|
|
261
|
+
} if
|
|
262
|
+
} if
|
|
263
|
+
} bind def
|
|
264
|
+
|
|
265
|
+
/EndEPSF {
|
|
266
|
+
count op_count sub { pos } repeat % Clean up stacks
|
|
267
|
+
countdictstack dict_count sub { end } repeat
|
|
268
|
+
b4_Inc_state restore
|
|
269
|
+
} bind def
|
|
270
|
+
|
|
271
|
+
% Check PostScript language level.
|
|
272
|
+
/languagelevel where {
|
|
273
|
+
pop /gs_languagelevel languagelevel def
|
|
274
|
+
} {
|
|
275
|
+
/gs_languagelevel 1 def
|
|
276
|
+
} ifelse
|
|
277
|
+
%%EndResource
|
|
278
|
+
%%BeginResource: procset Enscript-Encoding-88591 1.6 1
|
|
279
|
+
/encoding_vector [
|
|
280
|
+
/.notdef /.notdef /.notdef /.notdef
|
|
281
|
+
/.notdef /.notdef /.notdef /.notdef
|
|
282
|
+
/.notdef /.notdef /.notdef /.notdef
|
|
283
|
+
/.notdef /.notdef /.notdef /.notdef
|
|
284
|
+
/.notdef /.notdef /.notdef /.notdef
|
|
285
|
+
/.notdef /.notdef /.notdef /.notdef
|
|
286
|
+
/.notdef /.notdef /.notdef /.notdef
|
|
287
|
+
/.notdef /.notdef /.notdef /.notdef
|
|
288
|
+
/space /exclam /quotedbl /numbersign
|
|
289
|
+
/dollar /percent /ampersand /quoteright
|
|
290
|
+
/parenleft /parenright /asterisk /plus
|
|
291
|
+
/comma /hyphen /period /slash
|
|
292
|
+
/zero /one /two /three
|
|
293
|
+
/four /five /six /seven
|
|
294
|
+
/eight /nine /colon /semicolon
|
|
295
|
+
/less /equal /greater /question
|
|
296
|
+
/at /A /B /C
|
|
297
|
+
/D /E /F /G
|
|
298
|
+
/H /I /J /K
|
|
299
|
+
/L /M /N /O
|
|
300
|
+
/P /Q /R /S
|
|
301
|
+
/T /U /V /W
|
|
302
|
+
/X /Y /Z /bracketleft
|
|
303
|
+
/backslash /bracketright /asciicircum /underscore
|
|
304
|
+
/quoteleft /a /b /c
|
|
305
|
+
/d /e /f /g
|
|
306
|
+
/h /i /j /k
|
|
307
|
+
/l /m /n /o
|
|
308
|
+
/p /q /r /s
|
|
309
|
+
/t /u /v /w
|
|
310
|
+
/x /y /z /braceleft
|
|
311
|
+
/bar /braceright /tilde /.notdef
|
|
312
|
+
/.notdef /.notdef /.notdef /.notdef
|
|
313
|
+
/.notdef /.notdef /.notdef /.notdef
|
|
314
|
+
/.notdef /.notdef /.notdef /.notdef
|
|
315
|
+
/.notdef /.notdef /.notdef /.notdef
|
|
316
|
+
/.notdef /.notdef /.notdef /.notdef
|
|
317
|
+
/.notdef /.notdef /.notdef /.notdef
|
|
318
|
+
/.notdef /.notdef /.notdef /.notdef
|
|
319
|
+
/.notdef /.notdef /.notdef /.notdef
|
|
320
|
+
/space /exclamdown /cent /sterling
|
|
321
|
+
/currency /yen /brokenbar /section
|
|
322
|
+
/dieresis /copyright /ordfeminine /guillemotleft
|
|
323
|
+
/logicalnot /hyphen /registered /macron
|
|
324
|
+
/degree /plusminus /twosuperior /threesuperior
|
|
325
|
+
/acute /mu /paragraph /bullet
|
|
326
|
+
/cedilla /onesuperior /ordmasculine /guillemotright
|
|
327
|
+
/onequarter /onehalf /threequarters /questiondown
|
|
328
|
+
/Agrave /Aacute /Acircumflex /Atilde
|
|
329
|
+
/Adieresis /Aring /AE /Ccedilla
|
|
330
|
+
/Egrave /Eacute /Ecircumflex /Edieresis
|
|
331
|
+
/Igrave /Iacute /Icircumflex /Idieresis
|
|
332
|
+
/Eth /Ntilde /Ograve /Oacute
|
|
333
|
+
/Ocircumflex /Otilde /Odieresis /multiply
|
|
334
|
+
/Oslash /Ugrave /Uacute /Ucircumflex
|
|
335
|
+
/Udieresis /Yacute /Thorn /germandbls
|
|
336
|
+
/agrave /aacute /acircumflex /atilde
|
|
337
|
+
/adieresis /aring /ae /ccedilla
|
|
338
|
+
/egrave /eacute /ecircumflex /edieresis
|
|
339
|
+
/igrave /iacute /icircumflex /idieresis
|
|
340
|
+
/eth /ntilde /ograve /oacute
|
|
341
|
+
/ocircumflex /otilde /odieresis /divide
|
|
342
|
+
/oslash /ugrave /uacute /ucircumflex
|
|
343
|
+
/udieresis /yacute /thorn /ydieresis
|
|
344
|
+
] def
|
|
345
|
+
%%EndResource
|
|
346
|
+
%%EndProlog
|
|
347
|
+
%%BeginSetup
|
|
348
|
+
%%IncludeResource: font Times-Roman
|
|
349
|
+
%%IncludeResource: font Courier-Bold
|
|
350
|
+
/HFpt_w 10 def
|
|
351
|
+
/HFpt_h 10 def
|
|
352
|
+
/Courier-Bold /HF-gs-font MF
|
|
353
|
+
/HF /HF-gs-font findfont [HFpt_w 0 0 HFpt_h 0 0] makefont def
|
|
354
|
+
/Times-Roman /F-gs-font MF
|
|
355
|
+
/F-gs-font 14 14 SF
|
|
356
|
+
/#copies 1 def
|
|
357
|
+
% Pagedevice definitions:
|
|
358
|
+
gs_languagelevel 1 gt {
|
|
359
|
+
<<
|
|
360
|
+
/PageSize [612 792]
|
|
361
|
+
>> setpagedevice
|
|
362
|
+
} if
|
|
363
|
+
%%BeginResource: procset Enscript-Header-enscript 1.6 1
|
|
364
|
+
%%IncludeResource: font Times-Bold
|
|
365
|
+
|
|
366
|
+
% Fonts.
|
|
367
|
+
/Times-Bold /HeaderFont-Bold MF
|
|
368
|
+
/HeaderDateF /HeaderFont-Bold findfont 12 scalefont def
|
|
369
|
+
|
|
370
|
+
/Times-Roman /HeaderFont-Times MF
|
|
371
|
+
/HeaderHDRF /HeaderFont-Times findfont 14 scalefont def
|
|
372
|
+
|
|
373
|
+
/HeaderPageNumF /Helvetica-Bold findfont 28.8 scalefont def
|
|
374
|
+
|
|
375
|
+
/do_header { % print enscript header
|
|
376
|
+
gsave
|
|
377
|
+
d_header_x d_header_y translate
|
|
378
|
+
|
|
379
|
+
% light bar
|
|
380
|
+
0 0 d_header_w d_header_h 2 div Box
|
|
381
|
+
.95 setgray fill
|
|
382
|
+
|
|
383
|
+
% dark gray boxes
|
|
384
|
+
/dbw d_header_h 2 mul def % dark box width
|
|
385
|
+
/dbc .7 def % dark box color
|
|
386
|
+
|
|
387
|
+
% left dark box.
|
|
388
|
+
0 0 dbw d_header_h Box
|
|
389
|
+
dbc setgray fill
|
|
390
|
+
|
|
391
|
+
0 setgray
|
|
392
|
+
HeaderDateF setfont
|
|
393
|
+
moddatestr dup stringwidth pop dbw exch sub 2 div
|
|
394
|
+
d_header_h 2 div 2 add moveto show
|
|
395
|
+
modtimestr dup stringwidth pop dbw exch sub 2 div
|
|
396
|
+
d_header_h 5 div moveto show
|
|
397
|
+
|
|
398
|
+
% right dark box
|
|
399
|
+
d_header_w dbw sub 0 dbw d_header_h Box
|
|
400
|
+
dbc setgray fill
|
|
401
|
+
|
|
402
|
+
HeaderPageNumF setfont
|
|
403
|
+
1 setgray
|
|
404
|
+
pagenumstr dup
|
|
405
|
+
stringwidth pop dbw exch sub 2 div d_header_w dbw sub add
|
|
406
|
+
d_header_h .2 mul moveto show
|
|
407
|
+
|
|
408
|
+
% filename
|
|
409
|
+
0 setgray
|
|
410
|
+
HeaderHDRF setfont
|
|
411
|
+
d_header_w fname stringwidth pop sub 2 div d_header_h 8 div moveto
|
|
412
|
+
fname show
|
|
413
|
+
|
|
414
|
+
% user supplied header string.
|
|
415
|
+
user_header_p {
|
|
416
|
+
/h d_header_h 8 div 5 mul def
|
|
417
|
+
|
|
418
|
+
% Implement strict enscript compatibility.
|
|
419
|
+
user_header_center_str () eq user_header_right_str () eq and {
|
|
420
|
+
d_header_w user_header_left_str stringwidth pop sub 2 div
|
|
421
|
+
h moveto user_header_left_str show
|
|
422
|
+
} {
|
|
423
|
+
dbw 5 add h moveto user_header_left_str show
|
|
424
|
+
|
|
425
|
+
d_header_w user_header_center_str stringwidth pop sub 2 div
|
|
426
|
+
h moveto user_header_center_str show
|
|
427
|
+
|
|
428
|
+
d_header_w dbw sub 5 sub user_header_right_str stringwidth pop
|
|
429
|
+
sub h moveto user_header_right_str show
|
|
430
|
+
} ifelse
|
|
431
|
+
} if
|
|
432
|
+
|
|
433
|
+
grestore
|
|
434
|
+
} def
|
|
435
|
+
%%EndResource
|
|
436
|
+
/d_page_w 744 def
|
|
437
|
+
/d_page_h 564 def
|
|
438
|
+
/d_header_x 0 def
|
|
439
|
+
/d_header_y 528 def
|
|
440
|
+
/d_header_w 744 def
|
|
441
|
+
/d_header_h 36 def
|
|
442
|
+
/d_footer_x 0 def
|
|
443
|
+
/d_footer_y 0 def
|
|
444
|
+
/d_footer_w 744 def
|
|
445
|
+
/d_footer_h 0 def
|
|
446
|
+
/d_output_w 744 def
|
|
447
|
+
/d_output_h 528 def
|
|
448
|
+
/cols 2 def
|
|
449
|
+
%%EndSetup
|
|
450
|
+
%%Page: (1) 1
|
|
451
|
+
%%BeginPageSetup
|
|
452
|
+
_S
|
|
453
|
+
90 rotate
|
|
454
|
+
24 -588 translate
|
|
455
|
+
/pagenum 1 def
|
|
456
|
+
/fname (FluxFunctionsTS.f90) def
|
|
457
|
+
/fdir () def
|
|
458
|
+
/ftail (FluxFunctionsTS.f90) def
|
|
459
|
+
% User defined strings:
|
|
460
|
+
/pagenumstr (1) def
|
|
461
|
+
/moddatestr (11/07/01) def
|
|
462
|
+
/modtimestr (08:09:30) def
|
|
463
|
+
/user_header_p false def
|
|
464
|
+
%%EndPageSetup
|
|
465
|
+
column_lines
|
|
466
|
+
do_header
|
|
467
|
+
5 511 M
|
|
468
|
+
(! FluxFunctionsTS.f90 - a Fortran mobility test suite for FluxFu) s
|
|
469
|
+
5 496 M
|
|
470
|
+
(!) s
|
|
471
|
+
5 481 M
|
|
472
|
+
(! [dynamically generated from FluxFunctionsTS.ftk) s
|
|
473
|
+
5 466 M
|
|
474
|
+
(! by FTKtest Ruby script Wed Nov 07 07:53:00 EST 2001]) s
|
|
475
|
+
5 436 M
|
|
476
|
+
(module FluxFunctionsTS) s
|
|
477
|
+
5 406 M
|
|
478
|
+
( use FluxFunctions) s
|
|
479
|
+
5 376 M
|
|
480
|
+
( implicit none) s
|
|
481
|
+
5 346 M
|
|
482
|
+
( private) s
|
|
483
|
+
5 316 M
|
|
484
|
+
( public :: TSFluxFunctions) s
|
|
485
|
+
5 286 M
|
|
486
|
+
( logical :: noAssertFailed) s
|
|
487
|
+
5 256 M
|
|
488
|
+
( integer :: numTests = 0) s
|
|
489
|
+
5 241 M
|
|
490
|
+
( integer :: numAsserts = 0) s
|
|
491
|
+
5 226 M
|
|
492
|
+
( integer :: numAssertsTested = 0) s
|
|
493
|
+
5 211 M
|
|
494
|
+
( integer :: numFailures = 0) s
|
|
495
|
+
5 181 M
|
|
496
|
+
(! $Id: FluxFunctionsTS.ftk,v 1.1 2001/10/25 15:45:02 cvs4bk E) s
|
|
497
|
+
5 151 M
|
|
498
|
+
( real :: leftState, rightState, interfaceFlux) s
|
|
499
|
+
5 121 M
|
|
500
|
+
( contains) s
|
|
501
|
+
5 76 M
|
|
502
|
+
( subroutine TestFluxZero) s
|
|
503
|
+
5 46 M
|
|
504
|
+
( real :: state) s
|
|
505
|
+
5 31 M
|
|
506
|
+
( state = 0) s
|
|
507
|
+
377 511 M
|
|
508
|
+
( ! IsEqualWithin assertion) s
|
|
509
|
+
377 496 M
|
|
510
|
+
( numAsserts = numAsserts + 1) s
|
|
511
|
+
377 481 M
|
|
512
|
+
( if \(noAssertFailed\) then) s
|
|
513
|
+
377 466 M
|
|
514
|
+
( if \(.not.\( 0+ 0.00001 .ge. Flux\(state\) &) s
|
|
515
|
+
377 451 M
|
|
516
|
+
( .and. 0- 0.00001 .le. Flux\(state\)\)\) then) s
|
|
517
|
+
377 436 M
|
|
518
|
+
( print *, " FAILURE: IsEqualWithin in test FluxZero, &) s
|
|
519
|
+
377 421 M
|
|
520
|
+
( &line 13 of FluxFunctionsTS.ftk") s
|
|
521
|
+
377 406 M
|
|
522
|
+
( print *, " ", " Flux\(state\) is not", 0,"within", 0.00001 ) s
|
|
523
|
+
377 391 M
|
|
524
|
+
( noAssertFailed = .false.) s
|
|
525
|
+
377 376 M
|
|
526
|
+
( numFailures = numFailures + 1) s
|
|
527
|
+
377 361 M
|
|
528
|
+
( else) s
|
|
529
|
+
377 346 M
|
|
530
|
+
( numAssertsTested = numAssertsTested + 1) s
|
|
531
|
+
377 331 M
|
|
532
|
+
( endif) s
|
|
533
|
+
377 316 M
|
|
534
|
+
( endif) s
|
|
535
|
+
377 286 M
|
|
536
|
+
( numTests = numTests + 1) s
|
|
537
|
+
377 256 M
|
|
538
|
+
( end subroutine TestFluxZero) s
|
|
539
|
+
377 226 M
|
|
540
|
+
( ) s
|
|
541
|
+
377 211 M
|
|
542
|
+
( subroutine TestFluxOne) s
|
|
543
|
+
377 181 M
|
|
544
|
+
( real :: state = 1) s
|
|
545
|
+
377 151 M
|
|
546
|
+
( ! IsEqualWithin assertion) s
|
|
547
|
+
377 136 M
|
|
548
|
+
( numAsserts = numAsserts + 1) s
|
|
549
|
+
377 121 M
|
|
550
|
+
( if \(noAssertFailed\) then) s
|
|
551
|
+
377 106 M
|
|
552
|
+
( if \(.not.\( 0.5+ 0.00001 .ge. Flux\(state\) &) s
|
|
553
|
+
377 91 M
|
|
554
|
+
( .and. 0.5- 0.00001 .le. Flux\(state\)\)\) then) s
|
|
555
|
+
377 76 M
|
|
556
|
+
( print *, " FAILURE: IsEqualWithin in test FluxOne, &) s
|
|
557
|
+
377 61 M
|
|
558
|
+
( &line 18 of FluxFunctionsTS.ftk") s
|
|
559
|
+
377 46 M
|
|
560
|
+
( print *, " ", " Flux\(state\) is not", 0.5,"within", 0.00001 ) s
|
|
561
|
+
377 31 M
|
|
562
|
+
( noAssertFailed = .false.) s
|
|
563
|
+
377 16 M
|
|
564
|
+
( numFailures = numFailures + 1) s
|
|
565
|
+
_R
|
|
566
|
+
S
|
|
567
|
+
%%Page: (2) 2
|
|
568
|
+
%%BeginPageSetup
|
|
569
|
+
_S
|
|
570
|
+
90 rotate
|
|
571
|
+
24 -588 translate
|
|
572
|
+
/pagenum 2 def
|
|
573
|
+
/fname (FluxFunctionsTS.f90) def
|
|
574
|
+
/fdir () def
|
|
575
|
+
/ftail (FluxFunctionsTS.f90) def
|
|
576
|
+
% User defined strings:
|
|
577
|
+
/pagenumstr (2) def
|
|
578
|
+
/moddatestr (11/07/01) def
|
|
579
|
+
/modtimestr (08:09:30) def
|
|
580
|
+
/user_header_p false def
|
|
581
|
+
%%EndPageSetup
|
|
582
|
+
column_lines
|
|
583
|
+
do_header
|
|
584
|
+
5 511 M
|
|
585
|
+
( else) s
|
|
586
|
+
5 496 M
|
|
587
|
+
( numAssertsTested = numAssertsTested + 1) s
|
|
588
|
+
5 481 M
|
|
589
|
+
( endif) s
|
|
590
|
+
5 466 M
|
|
591
|
+
( endif) s
|
|
592
|
+
5 436 M
|
|
593
|
+
( numTests = numTests + 1) s
|
|
594
|
+
5 406 M
|
|
595
|
+
( end subroutine TestFluxOne) s
|
|
596
|
+
5 361 M
|
|
597
|
+
( subroutine TestRoeAvgZero) s
|
|
598
|
+
5 316 M
|
|
599
|
+
( ! IsRealEqual assertion) s
|
|
600
|
+
5 301 M
|
|
601
|
+
( numAsserts = numAsserts + 1) s
|
|
602
|
+
5 286 M
|
|
603
|
+
( if \(noAssertFailed\) then) s
|
|
604
|
+
5 271 M
|
|
605
|
+
( if \(.not.\( 0 +2*spacing\(real\( 0 \)\).ge. RoeAvg\(0.0,0.0\) &) s
|
|
606
|
+
5 256 M
|
|
607
|
+
( .and. 0 -2*spacing\(real\( 0 \)\).le. RoeAvg\(0.0,0.0\)\)\) then) s
|
|
608
|
+
5 241 M
|
|
609
|
+
( print *, " FAILURE: IsRealEqual in test RoeAvgZero, &) s
|
|
610
|
+
5 226 M
|
|
611
|
+
( &line 22 of FluxFunctionsTS.ftk") s
|
|
612
|
+
5 211 M
|
|
613
|
+
( print *, " ", " RoeAvg\(0.0,0.0\) is not", 0 ,"within",2*spacing) s
|
|
614
|
+
5 196 M
|
|
615
|
+
( noAssertFailed = .false.) s
|
|
616
|
+
5 181 M
|
|
617
|
+
( numFailures = numFailures + 1) s
|
|
618
|
+
5 166 M
|
|
619
|
+
( else) s
|
|
620
|
+
5 151 M
|
|
621
|
+
( numAssertsTested = numAssertsTested + 1) s
|
|
622
|
+
5 136 M
|
|
623
|
+
( endif) s
|
|
624
|
+
5 121 M
|
|
625
|
+
( endif) s
|
|
626
|
+
5 91 M
|
|
627
|
+
( ! IsFalse assertion) s
|
|
628
|
+
5 76 M
|
|
629
|
+
( numAsserts = numAsserts + 1) s
|
|
630
|
+
5 61 M
|
|
631
|
+
( if \(noAssertFailed\) then) s
|
|
632
|
+
5 46 M
|
|
633
|
+
( if \( RoeAvg\(0.0,0.0\).ne.1 \) then) s
|
|
634
|
+
5 31 M
|
|
635
|
+
( print *, " FAILURE: IsFalse in test RoeAvgZero, &) s
|
|
636
|
+
5 16 M
|
|
637
|
+
( &line 23 of FluxFunctionsTS.ftk") s
|
|
638
|
+
377 511 M
|
|
639
|
+
( print *, " ", " RoeAvg\(0.0,0.0\).ne.1 is not false") s
|
|
640
|
+
377 496 M
|
|
641
|
+
( noAssertFailed = .false.) s
|
|
642
|
+
377 481 M
|
|
643
|
+
( numFailures = numFailures + 1) s
|
|
644
|
+
377 466 M
|
|
645
|
+
( else) s
|
|
646
|
+
377 451 M
|
|
647
|
+
( numAssertsTested = numAssertsTested + 1) s
|
|
648
|
+
377 436 M
|
|
649
|
+
( endif) s
|
|
650
|
+
377 421 M
|
|
651
|
+
( endif) s
|
|
652
|
+
377 391 M
|
|
653
|
+
( numTests = numTests + 1) s
|
|
654
|
+
377 361 M
|
|
655
|
+
( end subroutine TestRoeAvgZero) s
|
|
656
|
+
377 316 M
|
|
657
|
+
( subroutine TestRoeAvgKnown) s
|
|
658
|
+
377 271 M
|
|
659
|
+
( ! IsRealEqual assertion) s
|
|
660
|
+
377 256 M
|
|
661
|
+
( numAsserts = numAsserts + 1) s
|
|
662
|
+
377 241 M
|
|
663
|
+
( if \(noAssertFailed\) then) s
|
|
664
|
+
377 226 M
|
|
665
|
+
( if \(.not.\( 0.5 +2*spacing\(real\( 0.5 \)\).ge. RoeAvg\(leftState,right) s
|
|
666
|
+
377 211 M
|
|
667
|
+
( .and. 0.5 -2*spacing\(real\( 0.5 \)\).le. RoeAvg\(leftState,rig) s
|
|
668
|
+
377 196 M
|
|
669
|
+
( print *, " FAILURE: IsRealEqual in test RoeAvgKnown, &) s
|
|
670
|
+
377 181 M
|
|
671
|
+
( &line 27 of FluxFunctionsTS.ftk") s
|
|
672
|
+
377 166 M
|
|
673
|
+
( print *, " ", " RoeAvg\(leftState,rightState\) is not", 0.5 ,"with) s
|
|
674
|
+
377 151 M
|
|
675
|
+
( noAssertFailed = .false.) s
|
|
676
|
+
377 136 M
|
|
677
|
+
( numFailures = numFailures + 1) s
|
|
678
|
+
377 121 M
|
|
679
|
+
( else) s
|
|
680
|
+
377 106 M
|
|
681
|
+
( numAssertsTested = numAssertsTested + 1) s
|
|
682
|
+
377 91 M
|
|
683
|
+
( endif) s
|
|
684
|
+
377 76 M
|
|
685
|
+
( endif) s
|
|
686
|
+
377 46 M
|
|
687
|
+
( ! IsTrue assertion) s
|
|
688
|
+
377 31 M
|
|
689
|
+
( numAsserts = numAsserts + 1) s
|
|
690
|
+
377 16 M
|
|
691
|
+
( if \(noAssertFailed\) then) s
|
|
692
|
+
_R
|
|
693
|
+
S
|
|
694
|
+
%%Page: (3) 3
|
|
695
|
+
%%BeginPageSetup
|
|
696
|
+
_S
|
|
697
|
+
90 rotate
|
|
698
|
+
24 -588 translate
|
|
699
|
+
/pagenum 3 def
|
|
700
|
+
/fname (FluxFunctionsTS.f90) def
|
|
701
|
+
/fdir () def
|
|
702
|
+
/ftail (FluxFunctionsTS.f90) def
|
|
703
|
+
% User defined strings:
|
|
704
|
+
/pagenumstr (3) def
|
|
705
|
+
/moddatestr (11/07/01) def
|
|
706
|
+
/modtimestr (08:09:30) def
|
|
707
|
+
/user_header_p false def
|
|
708
|
+
%%EndPageSetup
|
|
709
|
+
column_lines
|
|
710
|
+
do_header
|
|
711
|
+
5 511 M
|
|
712
|
+
( if \(.not.\( RoeAvg\(leftState,rightState\).lt.0 \)\) then) s
|
|
713
|
+
5 496 M
|
|
714
|
+
( print *, " FAILURE: IsTrue in test RoeAvgKnown, &) s
|
|
715
|
+
5 481 M
|
|
716
|
+
( &line 28 of FluxFunctionsTS.ftk") s
|
|
717
|
+
5 466 M
|
|
718
|
+
( print *, " ", " RoeAvg\(leftState,rightState\).lt.0 is not true") s
|
|
719
|
+
5 451 M
|
|
720
|
+
( noAssertFailed = .false.) s
|
|
721
|
+
5 436 M
|
|
722
|
+
( numFailures = numFailures + 1) s
|
|
723
|
+
5 421 M
|
|
724
|
+
( else) s
|
|
725
|
+
5 406 M
|
|
726
|
+
( numAssertsTested = numAssertsTested + 1) s
|
|
727
|
+
5 391 M
|
|
728
|
+
( endif) s
|
|
729
|
+
5 376 M
|
|
730
|
+
( endif) s
|
|
731
|
+
5 346 M
|
|
732
|
+
( numTests = numTests + 1) s
|
|
733
|
+
5 316 M
|
|
734
|
+
( end subroutine TestRoeAvgKnown) s
|
|
735
|
+
5 271 M
|
|
736
|
+
( subroutine TestCentralFluxKnown) s
|
|
737
|
+
5 241 M
|
|
738
|
+
( call CentralFlux\( leftState, rightState, interfaceFlux \)) s
|
|
739
|
+
5 211 M
|
|
740
|
+
( ! IsEqualWithin assertion) s
|
|
741
|
+
5 196 M
|
|
742
|
+
( numAsserts = numAsserts + 1) s
|
|
743
|
+
5 181 M
|
|
744
|
+
( if \(noAssertFailed\) then) s
|
|
745
|
+
5 166 M
|
|
746
|
+
( if \(.not.\( 0.5+ 0.001 .ge. interfaceFlux &) s
|
|
747
|
+
5 151 M
|
|
748
|
+
( .and. 0.5- 0.001 .le. interfaceFlux\)\) then) s
|
|
749
|
+
5 136 M
|
|
750
|
+
( print *, " FAILURE: IsEqualWithin in test CentralFluxKnow) s
|
|
751
|
+
5 121 M
|
|
752
|
+
( &line 33 of FluxFunctionsTS.ftk") s
|
|
753
|
+
5 106 M
|
|
754
|
+
( print *, " ", " interfaceFlux is not", 0.5,"within", 0.001 ) s
|
|
755
|
+
5 91 M
|
|
756
|
+
( noAssertFailed = .false.) s
|
|
757
|
+
5 76 M
|
|
758
|
+
( numFailures = numFailures + 1) s
|
|
759
|
+
5 61 M
|
|
760
|
+
( else) s
|
|
761
|
+
5 46 M
|
|
762
|
+
( numAssertsTested = numAssertsTested + 1) s
|
|
763
|
+
5 31 M
|
|
764
|
+
( endif) s
|
|
765
|
+
5 16 M
|
|
766
|
+
( endif) s
|
|
767
|
+
377 496 M
|
|
768
|
+
( ! IsEqualWithin assertion) s
|
|
769
|
+
377 481 M
|
|
770
|
+
( numAsserts = numAsserts + 1) s
|
|
771
|
+
377 466 M
|
|
772
|
+
( if \(noAssertFailed\) then) s
|
|
773
|
+
377 451 M
|
|
774
|
+
( if \(.not.\( 0.5+ 0.00000001 .ge. interfaceFlux &) s
|
|
775
|
+
377 436 M
|
|
776
|
+
( .and. 0.5- 0.00000001 .le. interfaceFlux\)\) then) s
|
|
777
|
+
377 421 M
|
|
778
|
+
( print *, " FAILURE: IsEqualWithin in test CentralFluxKnow) s
|
|
779
|
+
377 406 M
|
|
780
|
+
( &line 34 of FluxFunctionsTS.ftk") s
|
|
781
|
+
377 391 M
|
|
782
|
+
( print *, " ", " interfaceFlux is not", 0.5,"within", 0.00000001) s
|
|
783
|
+
377 376 M
|
|
784
|
+
( noAssertFailed = .false.) s
|
|
785
|
+
377 361 M
|
|
786
|
+
( numFailures = numFailures + 1) s
|
|
787
|
+
377 346 M
|
|
788
|
+
( else) s
|
|
789
|
+
377 331 M
|
|
790
|
+
( numAssertsTested = numAssertsTested + 1) s
|
|
791
|
+
377 316 M
|
|
792
|
+
( endif) s
|
|
793
|
+
377 301 M
|
|
794
|
+
( endif) s
|
|
795
|
+
377 271 M
|
|
796
|
+
( ! IsEqual assertion) s
|
|
797
|
+
377 256 M
|
|
798
|
+
( numAsserts = numAsserts + 1) s
|
|
799
|
+
377 241 M
|
|
800
|
+
( if \(noAssertFailed\) then) s
|
|
801
|
+
377 226 M
|
|
802
|
+
( if \(.not.\( interfaceFlux== 0.5 \)\) then) s
|
|
803
|
+
377 211 M
|
|
804
|
+
( print *, " FAILURE: IsEqual in test CentralFluxKnown, &) s
|
|
805
|
+
377 196 M
|
|
806
|
+
( &line 35 of FluxFunctionsTS.ftk") s
|
|
807
|
+
377 181 M
|
|
808
|
+
( print *, " ", " interfaceFlux is not", 0.5 ) s
|
|
809
|
+
377 166 M
|
|
810
|
+
( noAssertFailed = .false.) s
|
|
811
|
+
377 151 M
|
|
812
|
+
( numFailures = numFailures + 1) s
|
|
813
|
+
377 136 M
|
|
814
|
+
( else) s
|
|
815
|
+
377 121 M
|
|
816
|
+
( numAssertsTested = numAssertsTested + 1) s
|
|
817
|
+
377 106 M
|
|
818
|
+
( endif) s
|
|
819
|
+
377 91 M
|
|
820
|
+
( endif) s
|
|
821
|
+
377 61 M
|
|
822
|
+
( numTests = numTests + 1) s
|
|
823
|
+
377 31 M
|
|
824
|
+
( end subroutine TestCentralFluxKnown) s
|
|
825
|
+
_R
|
|
826
|
+
S
|
|
827
|
+
%%Page: (4) 4
|
|
828
|
+
%%BeginPageSetup
|
|
829
|
+
_S
|
|
830
|
+
90 rotate
|
|
831
|
+
24 -588 translate
|
|
832
|
+
/pagenum 4 def
|
|
833
|
+
/fname (FluxFunctionsTS.f90) def
|
|
834
|
+
/fdir () def
|
|
835
|
+
/ftail (FluxFunctionsTS.f90) def
|
|
836
|
+
% User defined strings:
|
|
837
|
+
/pagenumstr (4) def
|
|
838
|
+
/moddatestr (11/07/01) def
|
|
839
|
+
/modtimestr (08:09:30) def
|
|
840
|
+
/user_header_p false def
|
|
841
|
+
%%EndPageSetup
|
|
842
|
+
column_lines
|
|
843
|
+
do_header
|
|
844
|
+
5 496 M
|
|
845
|
+
( subroutine TestRoeFluxExpansionShock) s
|
|
846
|
+
5 466 M
|
|
847
|
+
( leftState = -1) s
|
|
848
|
+
5 451 M
|
|
849
|
+
( call RoeFlux\( leftState, rightState, interfaceFlux \)) s
|
|
850
|
+
5 421 M
|
|
851
|
+
( ! IsEqual assertion) s
|
|
852
|
+
5 406 M
|
|
853
|
+
( numAsserts = numAsserts + 1) s
|
|
854
|
+
5 391 M
|
|
855
|
+
( if \(noAssertFailed\) then) s
|
|
856
|
+
5 376 M
|
|
857
|
+
( if \(.not.\( interfaceFlux== 0 \)\) then) s
|
|
858
|
+
5 361 M
|
|
859
|
+
( print *, " FAILURE: IsEqual in test RoeFluxExpansionShock) s
|
|
860
|
+
5 346 M
|
|
861
|
+
( &line 41 of FluxFunctionsTS.ftk") s
|
|
862
|
+
5 331 M
|
|
863
|
+
( print *, " ", " interfaceFlux is not", 0 ) s
|
|
864
|
+
5 316 M
|
|
865
|
+
( noAssertFailed = .false.) s
|
|
866
|
+
5 301 M
|
|
867
|
+
( numFailures = numFailures + 1) s
|
|
868
|
+
5 286 M
|
|
869
|
+
( else) s
|
|
870
|
+
5 271 M
|
|
871
|
+
( numAssertsTested = numAssertsTested + 1) s
|
|
872
|
+
5 256 M
|
|
873
|
+
( endif) s
|
|
874
|
+
5 241 M
|
|
875
|
+
( endif) s
|
|
876
|
+
5 211 M
|
|
877
|
+
( numTests = numTests + 1) s
|
|
878
|
+
5 181 M
|
|
879
|
+
( end subroutine TestRoeFluxExpansionShock) s
|
|
880
|
+
5 136 M
|
|
881
|
+
( subroutine TestRoeFluxZero) s
|
|
882
|
+
5 106 M
|
|
883
|
+
( rightState = 0) s
|
|
884
|
+
5 91 M
|
|
885
|
+
( call RoeFlux\( leftState, rightState, interfaceFlux \)) s
|
|
886
|
+
5 61 M
|
|
887
|
+
( ! IsRealEqual assertion) s
|
|
888
|
+
5 46 M
|
|
889
|
+
( numAsserts = numAsserts + 1) s
|
|
890
|
+
5 31 M
|
|
891
|
+
( if \(noAssertFailed\) then) s
|
|
892
|
+
5 16 M
|
|
893
|
+
( if \(.not.\( 0 +2*spacing\(real\( 0 \)\).ge. interfaceFlux &) s
|
|
894
|
+
377 511 M
|
|
895
|
+
( .and. 0 -2*spacing\(real\( 0 \)\).le. interfaceFlux\)\) then) s
|
|
896
|
+
377 496 M
|
|
897
|
+
( print *, " FAILURE: IsRealEqual in test RoeFluxZero, &) s
|
|
898
|
+
377 481 M
|
|
899
|
+
( &line 47 of FluxFunctionsTS.ftk") s
|
|
900
|
+
377 466 M
|
|
901
|
+
( print *, " ", " interfaceFlux is not", 0 ,"within",2*spacing\(rea) s
|
|
902
|
+
377 451 M
|
|
903
|
+
( noAssertFailed = .false.) s
|
|
904
|
+
377 436 M
|
|
905
|
+
( numFailures = numFailures + 1) s
|
|
906
|
+
377 421 M
|
|
907
|
+
( else) s
|
|
908
|
+
377 406 M
|
|
909
|
+
( numAssertsTested = numAssertsTested + 1) s
|
|
910
|
+
377 391 M
|
|
911
|
+
( endif) s
|
|
912
|
+
377 376 M
|
|
913
|
+
( endif) s
|
|
914
|
+
377 346 M
|
|
915
|
+
( ! IsEqual assertion) s
|
|
916
|
+
377 331 M
|
|
917
|
+
( numAsserts = numAsserts + 1) s
|
|
918
|
+
377 316 M
|
|
919
|
+
( if \(noAssertFailed\) then) s
|
|
920
|
+
377 301 M
|
|
921
|
+
( if \(.not.\( interfaceFlux== 0 \)\) then) s
|
|
922
|
+
377 286 M
|
|
923
|
+
( print *, " FAILURE: IsEqual in test RoeFluxZero, &) s
|
|
924
|
+
377 271 M
|
|
925
|
+
( &line 48 of FluxFunctionsTS.ftk") s
|
|
926
|
+
377 256 M
|
|
927
|
+
( print *, " ", " interfaceFlux is not", 0 ) s
|
|
928
|
+
377 241 M
|
|
929
|
+
( noAssertFailed = .false.) s
|
|
930
|
+
377 226 M
|
|
931
|
+
( numFailures = numFailures + 1) s
|
|
932
|
+
377 211 M
|
|
933
|
+
( else) s
|
|
934
|
+
377 196 M
|
|
935
|
+
( numAssertsTested = numAssertsTested + 1) s
|
|
936
|
+
377 181 M
|
|
937
|
+
( endif) s
|
|
938
|
+
377 166 M
|
|
939
|
+
( endif) s
|
|
940
|
+
377 136 M
|
|
941
|
+
( numTests = numTests + 1) s
|
|
942
|
+
377 106 M
|
|
943
|
+
( end subroutine TestRoeFluxZero) s
|
|
944
|
+
377 61 M
|
|
945
|
+
( subroutine Setup) s
|
|
946
|
+
377 46 M
|
|
947
|
+
( leftState = 0) s
|
|
948
|
+
377 31 M
|
|
949
|
+
( rightState = 1) s
|
|
950
|
+
377 16 M
|
|
951
|
+
( noAssertFailed = .true.) s
|
|
952
|
+
_R
|
|
953
|
+
S
|
|
954
|
+
%%Page: (5) 5
|
|
955
|
+
%%BeginPageSetup
|
|
956
|
+
_S
|
|
957
|
+
90 rotate
|
|
958
|
+
24 -588 translate
|
|
959
|
+
/pagenum 5 def
|
|
960
|
+
/fname (FluxFunctionsTS.f90) def
|
|
961
|
+
/fdir () def
|
|
962
|
+
/ftail (FluxFunctionsTS.f90) def
|
|
963
|
+
% User defined strings:
|
|
964
|
+
/pagenumstr (5) def
|
|
965
|
+
/moddatestr (11/07/01) def
|
|
966
|
+
/modtimestr (08:09:30) def
|
|
967
|
+
/user_header_p false def
|
|
968
|
+
%%EndPageSetup
|
|
969
|
+
column_lines
|
|
970
|
+
do_header
|
|
971
|
+
5 511 M
|
|
972
|
+
( end subroutine Setup) s
|
|
973
|
+
5 466 M
|
|
974
|
+
( subroutine Teardown) s
|
|
975
|
+
5 451 M
|
|
976
|
+
( end subroutine Teardown) s
|
|
977
|
+
5 406 M
|
|
978
|
+
( subroutine TSFluxFunctions\( nTests, nAsserts, nAssertsTested,) s
|
|
979
|
+
5 376 M
|
|
980
|
+
( integer :: nTests) s
|
|
981
|
+
5 361 M
|
|
982
|
+
( integer :: nAsserts) s
|
|
983
|
+
5 346 M
|
|
984
|
+
( integer :: nAssertsTested) s
|
|
985
|
+
5 331 M
|
|
986
|
+
( integer :: nFailures) s
|
|
987
|
+
5 301 M
|
|
988
|
+
( continue) s
|
|
989
|
+
5 271 M
|
|
990
|
+
( call Setup) s
|
|
991
|
+
5 256 M
|
|
992
|
+
( call TestFluxZero) s
|
|
993
|
+
5 241 M
|
|
994
|
+
( call Teardown) s
|
|
995
|
+
5 211 M
|
|
996
|
+
( call Setup) s
|
|
997
|
+
5 196 M
|
|
998
|
+
( call TestFluxOne) s
|
|
999
|
+
5 181 M
|
|
1000
|
+
( call Teardown) s
|
|
1001
|
+
5 151 M
|
|
1002
|
+
( call Setup) s
|
|
1003
|
+
5 136 M
|
|
1004
|
+
( call TestRoeAvgZero) s
|
|
1005
|
+
5 121 M
|
|
1006
|
+
( call Teardown) s
|
|
1007
|
+
5 91 M
|
|
1008
|
+
( call Setup) s
|
|
1009
|
+
5 76 M
|
|
1010
|
+
( call TestRoeAvgKnown) s
|
|
1011
|
+
5 61 M
|
|
1012
|
+
( call Teardown) s
|
|
1013
|
+
5 31 M
|
|
1014
|
+
( call Setup) s
|
|
1015
|
+
5 16 M
|
|
1016
|
+
( call TestCentralFluxKnown) s
|
|
1017
|
+
377 511 M
|
|
1018
|
+
( call Teardown) s
|
|
1019
|
+
377 481 M
|
|
1020
|
+
( call Setup) s
|
|
1021
|
+
377 466 M
|
|
1022
|
+
( call TestRoeFluxExpansionShock) s
|
|
1023
|
+
377 451 M
|
|
1024
|
+
( call Teardown) s
|
|
1025
|
+
377 421 M
|
|
1026
|
+
( call Setup) s
|
|
1027
|
+
377 406 M
|
|
1028
|
+
( call TestRoeFluxZero) s
|
|
1029
|
+
377 391 M
|
|
1030
|
+
( call Teardown) s
|
|
1031
|
+
377 361 M
|
|
1032
|
+
( nTests = numTests) s
|
|
1033
|
+
377 346 M
|
|
1034
|
+
( nAsserts = numAsserts) s
|
|
1035
|
+
377 331 M
|
|
1036
|
+
( nAssertsTested = numAssertsTested) s
|
|
1037
|
+
377 316 M
|
|
1038
|
+
( nFailures = numFailures) s
|
|
1039
|
+
377 286 M
|
|
1040
|
+
( end subroutine TSFluxFunctions) s
|
|
1041
|
+
377 256 M
|
|
1042
|
+
(end module FluxFunctionsTS) s
|
|
1043
|
+
_R
|
|
1044
|
+
S
|
|
1045
|
+
%%Trailer
|
|
1046
|
+
%%Pages: 5
|
|
1047
|
+
%%DocumentNeededResources: font Times-Roman Courier-Bold Times-Bold
|
|
1048
|
+
%%EOF
|