Initial commit from Polytechnique Montreal

1 files changed, 80 insertions, 0 deletions

diff --git a/Skin++/src/Skin++.cxx b/Skin++/src/Skin++.cxx
new file mode 100755
index 0000000..150e6d5
--- /dev/null
+++ b/Skin++/src/Skin++.cxx
@@ -0,0 +1,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;
+}