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
|
include 'hdf.inc'
include 'dffunc.inc'
C Common block definition to be included by fortestF.f modules. If your
C fortran compile cannot do include, you need to replace each include
C statement with this file.
common CleanUp, Verbosity, CleanUpCMD
logical CleanUp
character*80 CleanUpCMD
integer Verbosity
C
C Predefined verbosity levels.
C
C Convention:
C
C The higher the verbosity value, the more information printed.
C So, output for higher verbosity also include output of all lower
C verbosity.
C
C Value Description
C 0 None:No informational message.
C 1 "All tests passed"
C 2 Header of overall test
C 3 Default: header and results of individual test
C 4
C 5 Low:Major category of tests.
C 6
C 7 Medium: Minor category of tests such as functions called.
C 8
C 9High: Highest level. All information.
integer VERBO_NONE, VERBO_DEF, VERBO_LO, VERBO_MED, VERBO_HI
parameter (
+ VERBO_NONE = 0,
+ VERBO_DEF = 3,
+ VERBO_LO = 5,
+ VERBO_MED = 7,
+ VERBO_HI = 9
+)
integer FALSE, TRUE
parameter (
+ FALSE = 0,
+ TRUE = 1
+)
C Tests command file parameters.
C cmdf: file unit number
integer cmdf
character*30 cmdfilename
parameter (cmdf = 1)
parameter (cmdfilename = 'fortest.arg')
|
