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
|
#include "Cle2000.hxx"
using namespace std; using namespace ganlib;
int main(int argc, char **argv) {
// construct the lifo stack
LifoPtr ipLifo = LifoPtr(new Lifo());
ipLifo->push("input_val",5);
ipLifo->pushEmpty("output_val","I");
// call the procedure with in-out CLE-2000 variables
Cle2000Ptr ipCle2000 = Cle2000Ptr(new Cle2000("fact", 0, ipLifo));
ipCle2000->exec();
// recover and erase the lifo stack
int_32 output_val; ipLifo->pop(output_val);
cout << endl << "factorial(5)=" << output_val << endl << endl;
if (output_val != 120) throw Cle2000Exception("Test failure 1");
// empty the lifo stack
while (ipLifo->getMax() > 0) ipLifo->pop();
// end of case -----------------------------------------------------------
// construct a new lcm object
ClcmPtr iplistgen = ClcmPtr(new Clcm("LCM_IMP_ASCII", "Geo3D.txt", "./"));
iplistgen->lib();
StringPtrConst myString = iplistgen->getString("SIGNATURE");
cout << "signature=" << *myString << "<---" << endl;
iplistgen->close("KEEP");
// construct a new lifo stack
LifoPtr ipLifo2 = LifoPtr(new Lifo());
ipLifo2->push("Geo3D",iplistgen);
ipLifo2->pushEmpty("nb_mix","I");
ipLifo2->lib();
// call the procedure with in-out CLE-2000 variables
Cle2000Ptr ipCle2000_bis = Cle2000Ptr(new Cle2000("grep", 0, ipLifo2));
ipCle2000_bis->exec();
// recover and erase the lifo stack
int_32 nb_mix; ipLifo2->pop(nb_mix);
cout << endl << "number of mixtures = " << nb_mix << endl << endl;
if (nb_mix != 17) throw Cle2000Exception("Test failure 2");
// empty the lifo stack
while (ipLifo2->getMax() > 0) ipLifo2->pop();
// end of case -----------------------------------------------------------
// construct the lifo stack
LifoPtr ipLifo3 = LifoPtr(new Lifo());
ipLifo3->pushEmpty("saphyb", "XSM", "./saphyb_UOX_AICN");
ipLifo3->push("draglib", string("draglibendfb7r1SHEM295"));
ipLifo3->push("type", string("FRA"));
ipLifo3->push("combustible", string("UOX"));
ipLifo3->push("barres", string("AICN"));
ipLifo3->push("homoge", string("HOMOGENE"));
ipLifo3->push("u235", float_32(3.7));
ipLifo3->push("burnup", float_32(85000.));
ipLifo3->push("nrgoup", int_32(2));
ipLifo3->lib();
// call the procedure with in-out CLE-2000 variables
Cle2000Ptr ipCle2000_ter = Cle2000Ptr(new Cle2000("pwr2010", 0, ipLifo3));
ipCle2000_ter->exec();
// recover the saphyb
ClcmPtr xsm_object; ipLifo3->node("saphyb", xsm_object);
xsm_object->open("READ-ONLY");
xsm_object->lib();
xsm_object->close("KEEP");
// empty the lifo stack
while (ipLifo3->getMax() > 0) ipLifo3->pop();
// end of case -----------------------------------------------------------
cout << "Skin++: normal end of execution" << endl;
return 0;
}
|
