blob: 4de50fa077699e76568a4da010a538756b13cbb7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
*----
* Define STRUCTURES and MODULES used
*----
LINKED_LIST TOTO FLUX MACRO GROUP ;
SEQ_ASCII Macrolib FLUX2 ;
MODULE DELETE: GREP: END: ;
PROCEDURE TESTproc assertS ;
REAL value ;
*
MACRO := Macrolib ;
GROUP := MACRO :: STEP UP GROUP STEP AT 1 ;
GREP: GROUP :: GETVAL NTOT0 2 >>value<< ;
ECHO "value=" value ;
*
FLUX2 := TESTproc MACRO :: 1.703945 ;
FLUX := FLUX2 :: EDIT 99 ;
FLUX2 := DELETE: FLUX2 ;
assertS FLUX :: 'K-EFFECTIVE' 1 1.703945 ;
*
ECHO "test TEST completed" ;
END: ;
QUIT "XREF" .
|
