blob: 773f6523cf9c899093f6311b9e17186b3a45d638 (
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
|
* Regression test for hdf5 file support
* A. Hebert
*
MODULE HUTL: ABORT: END: ;
HDF5_FILE AFA_180 :: FILE './AFA_180.h5' ;
HDF5_FILE NEW_FILE ;
HDF5_FILE NEW_FILE2 :: FILE './NEW_FILE2.h5' ;
REAL delta ref_abso_2 ref_real4_2 abso_2 real4_2 ;
HUTL: AFA_180 :: DIR
DIR 'input'
DIR 'input/SpectralRHOParameters'
DIR 'paramtree'
DIR 'paramvalues'
DIR 'calc 1/miscellaneous'
DIR 'explicit'
DIR 'physconst'
DIR 'explicit/ISONAME'
DIR 'physconst/ISOTYP'
DIR 'physconst/LAMNAME'
TEST physconst
TEST phys001
TEST NCALS
TEST '/calc 1/xs/mac'
INFO NCALS IMPR NCALS
INFO ASSNAME IMPR ASSNAME
INFO physconst/LAMNAME IMPR physconst/LAMNAME
INFO physconst/ISOTYP IMPR physconst/ISOTYP
INFO explicit/ISONAME IMPR explicit/ISONAME
INFO physconst/FYIELDS
DIR '/calc 1/xs/mac/TOTAL'
INFO '/calc 1/xs/mac/TOTAL/ABSO'
IMPR '/calc 1/xs/mac/TOTAL/ABSO'
INFO '/calc 1/xs/mic/f.p./ABSO'
GREP '/calc 1/xs/mac/TOTAL/ABSO' 2 >>abso_2<<
;
ECHO "grep of ABSO(2)=" abso_2 ;
EVALUATE ref_abso_2 := 6.902077E-02 ;
EVALUATE delta := abso_2 ref_abso_2 - ref_abso_2 / ABS ;
IF delta 1.0E-5 < THEN
ECHO "TEST SUCCESSFUL; delta=" delta ;
ELSE
ECHO "------------" ;
ECHO "test failure" ;
ECHO "------------" ;
ECHO "REFERENCE=" ref_abso_2 " CALCULATED=" abso_2 ;
ABORT: ;
ENDIF ;
NEW_FILE := HUTL: ::
CREA my_integer = 12345
CREA integer_array 3 = 11111 22222 33333
CREA real4_array 4 = 1.1111 2.2222 3.3333 5.0E6
CREA single_string = zyxw
CREA string_array 4 = abcd efgh ijkl mnop
CREA "new_group"
CREA "new_group/new_dataset" 5 = 1.0 2.0 3.0 4.0 5.0
DIR
IMPR my_integer
IMPR integer_array
IMPR real4_array
INFO single_string
IMPR single_string
IMPR string_array
DELE single_string
DELE string_array
CREA single_string2 = abzy
DIR
GREP real4_array 2 >>real4_2<<
;
NEW_FILE2 := NEW_FILE ;
HUTL: NEW_FILE2 :: DIR ;
ECHO "copy 'calc 1' group into NEW_FILE" ;
NEW_FILE := HUTL: NEW_FILE AFA_180 ::
DELE new_group
COPY 'calc 2' = 'calc 1'
DIR
DIR 'calc 2'
;
ECHO "grep of real4_array(2)=" real4_2 ;
EVALUATE ref_real4_2 := 2.2222 ;
EVALUATE delta := real4_2 ref_real4_2 - ref_real4_2 / ABS ;
IF delta 1.0E-5 < THEN
ECHO "TEST SUCCESSFUL; delta=" delta ;
ELSE
ECHO "------------" ;
ECHO "test failure" ;
ECHO "------------" ;
ECHO "REFERENCE=" ref_real4_2 " CALCULATED=" real4_2 ;
ABORT: ;
ENDIF ;
ECHO "test testgan4 completed" ;
END: ;
QUIT "XREF" .
|
