From 7dfcc480ba1e19bd3232349fc733caef94034292 Mon Sep 17 00:00:00 2001
From: stainer_t <thomas.stainer@oecd-nea.org>
Date: Mon, 8 Sep 2025 13:48:49 +0200
Subject: Initial commit from Polytechnique Montreal

---
 Dragon/data/testVVER7.x2m | 60 +++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 60 insertions(+)
 create mode 100644 Dragon/data/testVVER7.x2m

(limited to 'Dragon/data/testVVER7.x2m')

diff --git a/Dragon/data/testVVER7.x2m b/Dragon/data/testVVER7.x2m
new file mode 100644
index 0000000..7fe3f30
--- /dev/null
+++ b/Dragon/data/testVVER7.x2m
@@ -0,0 +1,60 @@
+*----
+* case testVVER7.x2m
+*----
+HDF5_FILE MyMpo :: FILE './MyMpoVVER.hdf' ;
+LINKED_LIST GEOM GEOM_SS TRACK TRACK_SS LIBRARY COMPO StepList OUT ;
+MODULE UTL: END: ;
+SEQ_BINARY TF_EXC_SS TF_EXC ;
+SEQ_ASCII UOX_TBH UOX_TBH_SS ;
+SEQ_ASCII FIG1.ps FIG_SS.ps ;
+INTEGER Multicompo := 1 ;
+STRING name_geom := "KML2_439GT_36Gd" ;
+STRING Library := "DLIB_J3p1p1" ;
+STRING ss := "uss" ;
+STRING name_compo := "./_COMPO_" name_geom "_" ss + + + ;
+PROCEDURE vverBU vverGEO vverMIX vverTRACK ;
+PROCEDURE assertS ;
+
+************************************************************************
+*  BURNUP, SELF-SHIELDING AND COMPO STEPS                              *
+************************************************************************
+INTEGER nstep := 2 ;
+INTEGER ncompo := 2 ;
+INTEGER nauto := 1 ;
+StepList := UTL: :: CREA 'ListBU' <<nstep>> =
+     9.375  37.5 ;
+StepList := UTL: StepList :: CREA 'ListCompo' <<ncompo>> =
+     9.375  37.5 ;
+StepList := UTL: StepList :: CREA 'ListAutop' <<nauto>> =
+     37.5 ;
+
+************************************************************************
+*  BEGIN GEOMETRY                                                      *
+************************************************************************
+ECHO "--------------- namegeom=" name_geom "---------------" ;
+GEOM GEOM_SS := vverGEO :: <<name_geom>> ;
+
+************************************************************************
+*  BEGIN TRACKING                                                      *s
+************************************************************************
+UOX_TBH FIG1.ps TRACK TF_EXC UOX_TBH_SS FIG_SS.ps TRACK_SS TF_EXC_SS :=
+     vverTRACK GEOM GEOM_SS ;
+
+************************************************************************
+*  BEGIN LIBRARY READING                                               *
+************************************************************************
+LIBRARY := vverMIX :: <<Library>> <<name_geom>> <<ss>> ;
+
+************************************************************************
+*  BEGIN MyMpo CONSTRUCTION                                            *
+************************************************************************
+COMPO := vverBU LIBRARY TRACK TF_EXC TRACK_SS TF_EXC_SS StepList ::
+    <<Multicompo>> <<name_geom>> <<name_compo>> <<ss>> ;
+UTL: COMPO :: STEP UP EDIBU DIR STEP UP MIXTURES STEP AT 1
+              STEP UP CALCULATIONS STEP AT 2 ;
+OUT := COMPO :: STEP UP EDIBU STEP UP MIXTURES STEP AT 1
+                STEP UP CALCULATIONS STEP AT 2 ;
+assertS OUT :: 'K-EFFECTIVE' 1 1.008797 ;
+
+ECHO "test testVVER7 completed" ;
+END: ;
-- 
cgit v1.2.3