summaryrefslogtreecommitdiff
path: root/Donjon/data/Triga_Model3D.x2m
diff options
context:
space:
mode:
authorstainer_t <thomas.stainer@oecd-nea.org>2025-09-08 13:48:49 +0200
committerstainer_t <thomas.stainer@oecd-nea.org>2025-09-08 13:48:49 +0200
commit7dfcc480ba1e19bd3232349fc733caef94034292 (patch)
tree03ee104eb8846d5cc1a981d267687a729185d3f3 /Donjon/data/Triga_Model3D.x2m
Initial commit from Polytechnique Montreal
Diffstat (limited to 'Donjon/data/Triga_Model3D.x2m')
-rw-r--r--Donjon/data/Triga_Model3D.x2m441
1 files changed, 441 insertions, 0 deletions
diff --git a/Donjon/data/Triga_Model3D.x2m b/Donjon/data/Triga_Model3D.x2m
new file mode 100644
index 0000000..7b434c6
--- /dev/null
+++ b/Donjon/data/Triga_Model3D.x2m
@@ -0,0 +1,441 @@
+!*------------------
+!* TRIGA MARK II MOROCCAN RESEARCH REACTOR DIFFUSION CALCULATIONS
+!* Hexagonal 3D Geometry 3D: HEXZ Symetry: COMPLETE
+!* AUTORS: J.OTMAN, O. EL HAJJAJI & A. Hebert (EPM)
+!*------------------
+LINKED_LIST HEX3D MATEX FMAP MACROFL MACRORE MYCOMPO TRACK SYSTEM FLUX
+ EDIT MACRO2 POWER MACFL ;
+MODULE GEO: USPLIT: RESINI: CRE: TRIVAT: MACINI: TRIVAA: FLUD: FLPOW:
+END: GREP: DELETE: ;
+*---------
+* Compute side of hexagonal cell
+*---------
+REAL Pitch := 4.353600 ; ! Pitch of Hexagonal Cell
+REAL PI := 3.141592653589793238462 ;
+REAL Side_Cell := Pitch 3.0 SQRT / ; ! Side of Hexagonal Cell
+REAL Keff ;
+PROCEDURE assertS ;
+*******************************************
+!* GEOMETRY
+*******************************************
+HEX3D := GEO: :: HEXZ 127 11
+EDIT 2
+HBC COMPLETE REFL
+SIDE <<Side_Cell>>
+Z- VOID Z+ VOID
+MESHZ
+ -80.91315 ! Safety Plate
+ -79.68615 ! water universe Lower
+ -39.5474 ! Bottom Gridplate
+ -36.3474 ! Spacer Down (SS Down)
+ -28.53 ! Fuel element Lower Graphite
+ -19.05 ! Fuel Lower Part
+ 0.0 ! Fuel Upper Part
+ 19.05 ! Fuel element Upper Graphite
+ 26.92 ! Spacer Up (SS Up)
+ 29.185 ! Upper Gridplate
+ 32.385 ! Water universe Upper
+ 78.0
+SPLITL 1
+SPLITZ
+ 3 ! Safety Plate
+ 5 ! water universe Lower
+ 3 ! Bottom Gridplate
+ 3 ! Spacer Down (SS Down)
+ 5 ! Fuel element Lower Graphite
+ 10 ! Fuel Lower Part
+ 10 ! Fuel Upper Part
+ 5 ! Fuel element Upper Graphite
+ 3 ! Spacer Up (SS Up)
+ 3 ! Upper Gridplate
+ 5 ! Water universe Upper
+ SPLITH 0 ! Full hexagons
+ MIX
+!*******************************************
+!* 1st floor: Safety Plate
+!*******************************************
+ 5 ! Ring 0 :
+ 5 5 5 5 5 5 ! Ring 1 :
+ 5 5 5 5 5 5 5 5 5 5 5 5 ! Ring 2 :
+ 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 ! Ring 3 :
+ 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 ! Ring 4 :
+ 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 ! Ring 5 :
+ 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 ! Ring 6 :
+ 5 5 5 5 5 5
+!*******************************************
+!* 2nd floor: water universe Lower
+!*******************************************
+ 3 ! Ring 0 :
+ 3 3 3 3 3 3 ! Ring 1 :
+ 3 3 3 3 3 3 3 3 3 3 3 3 ! Ring 2 :
+ 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 ! Ring 3 :
+ 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 ! Ring 4 :
+ 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 ! Ring 5 :
+ 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 ! Ring 6 :
+ 3 3 3 3 3 3
+!*******************************************
+!* 3th floor: Bottom Gridplate
+!*******************************************
+ 5 ! Ring 0 :
+ 5 5 5 5 5 5 ! Ring 1 :
+ 5 5 5 5 5 5 5 5 5 5 5 5 ! Ring 2 :
+ 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 ! Ring 3 :
+ 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 ! Ring 4 :
+ 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 ! Ring 5 :
+ 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 ! Ring 6 :
+ 5 5 5 5 5 5
+!*******************************************
+!* 4th floor: Spacer Down (SS Down)
+!*******************************************
+ 8 ! Ring 0 :
+ 8 8 8 8 8 8 ! Ring 1 :
+ 8 8 8 8 8 8 8 8 8 8 8 8 ! Ring 2 :
+ 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 ! Ring 3 :
+ 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 ! Ring 4 :
+ 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 ! Ring 5 :
+ 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 ! Ring 6 :
+ 8 8 8 8 8 8
+!*******************************************
+!* 5th floor: Fuel element Lower Graphite
+!*******************************************
+ 5 ! Ring 0 :
+ 6 6 6 6 6 6 ! Ring 1 :
+ 6 6 6 6 6 6 6 6 6 6 6 6 ! Ring 2 :
+ 13 6 6 13 6 6 13 6 6 13 6 6 13 6 6 6 6 6 ! Ring 3 :
+ 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 ! Ring 4 :
+ 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 ! Ring 5 :
+ 3 6 4 4 6 4 3 4 6 4 6 4 3 3 4 4 6 4 3 3 4 6 6 4 3 4 6 6 4 4 ! Ring 6 :
+ 3 4 4 6 6 4
+!*******************************************
+!* 6th floor: Fuel Lower Part
+!*******************************************
+ 5 ! Ring 0 :
+ 1 1 1 1 1 1 ! Ring 1 :
+ 1 1 1 1 1 1 1 1 1 1 1 1 ! Ring 2 :
+ 2 1 1 2 1 1 2 1 1 2 1 1 2 1 1 1 1 1 ! Ring 3 :
+ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ! Ring 4 :
+ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ! Ring 5 :
+ 3 1 4 4 1 4 3 4 1 4 1 4 3 3 4 4 1 4 3 3 4 1 1 4 3 4 1 1 4 4 ! Ring 6 :
+ 3 4 4 1 1 4
+!*******************************************
+!* 7th floor: Fuel Upper Part
+!*******************************************
+ 5 ! Ring 0 :
+ 1 1 1 1 1 1 ! Ring 1 :
+ 1 1 1 1 1 1 1 1 1 1 1 1 ! Ring 2 :
+ 2 1 1 2 1 1 2 1 1 2 1 1 2 1 1 1 1 1 ! Ring 3 :
+ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ! Ring 4 :
+ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ! Ring 5 :
+ 3 1 4 4 1 4 3 4 1 4 1 4 3 3 4 4 1 4 3 3 4 1 1 4 3 4 1 1 4 4 ! Ring 6 :
+ 3 4 4 1 1 4
+!*******************************************
+!* 8th floor: Fuel element Upper Graphite
+!*******************************************
+ 5 ! Ring 0 :
+ 7 7 7 7 7 7 ! Ring 1 :
+ 7 7 7 7 7 7 7 7 7 7 7 7 ! Ring 2 :
+ 13 7 7 13 7 7 13 7 7 13 7 7 13 7 7 7 7 7 ! Ring 3 :
+ 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 ! Ring 4 :
+ 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 ! Ring 5 :
+ 3 7 4 4 7 4 3 4 7 4 7 4 3 3 4 4 7 4 3 3 4 7 7 4 3 4 7 7 4 4 ! Ring 6 :
+ 3 4 4 7 7 4
+ !*******************************************
+!* 9th floor: Spacer Up (SS Up)
+!*******************************************
+ 8 ! Ring 0 :
+ 8 8 8 8 8 8 ! Ring 1 :
+ 8 8 8 8 8 8 8 8 8 8 8 8 ! Ring 2 :
+ 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 ! Ring 3 :
+ 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 ! Ring 4 :
+ 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 ! Ring 5 :
+ 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 ! Ring 6 :
+ 8 8 8 8 8 8
+!*******************************************
+!* 10th floor: Upper Gridplate
+!*******************************************
+ 5 ! Ring 0 :
+ 5 5 5 5 5 5 ! Ring 1 :
+ 5 5 5 5 5 5 5 5 5 5 5 5 ! Ring 2 :
+ 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 ! Ring 3 :
+ 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 ! Ring 4 :
+ 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 ! Ring 5 :
+ 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 ! Ring 6 :
+ 5 5 5 5 5 5
+!*******************************************
+!* 11th floor: Water universe Upper
+!*******************************************
+ 3 ! Ring 0 :
+ 3 3 3 3 3 3 ! Ring 1 :
+ 3 3 3 3 3 3 3 3 3 3 3 3 ! Ring 2 :
+ 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 ! Ring 3 :
+ 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 ! Ring 4 :
+ 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 ! Ring 5 :
+ 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 ! Ring 6 :
+ 3 3 3 3 3 3
+!*******************************************
+ ;
+!*******************************************
+HEX3D MATEX := USPLIT: HEX3D :: EDIT 0
+ NGRP 2 MAXR 200000
+ NREFL 11 RMIX 3 4 5 6 7 8 9 10 11 12 13
+ NFUEL 2 FMIX 1 2
+ ;
+!*******************************************
+ TRACK := TRIVAT: HEX3D :: EDIT 2
+ TITLE 'DONJON STUDY FOR TRIGA Mark-II (2 GROUPS).'
+ MAXR 55820 DUAL 1 2
+ ;
+!*******************************************
+FMAP MATEX := RESINI: MATEX ::
+ EDIT 99
+ ::: GEO: HEXZ 127 11
+EDIT 10
+HBC COMPLETE REFL
+SIDE <<Side_Cell>>
+Z- VOID Z+ VOID
+MESHZ
+ -80.91315 ! Safety Plate
+ -79.68615 ! water universe Lower
+ -39.5474 ! Bottom Gridplate
+ -36.3474 ! Spacer Down (SS Down)
+ -28.53 ! Fuel element Lower Graphite
+ -19.05 ! Fuel Lower Part
+ 0.0 ! Fuel Upper Part
+ 19.05 ! Fuel element Upper Graphite
+ 26.92 ! Spacer Up (SS Up)
+ 29.185 ! Upper Gridplate
+ 32.385 ! Water universe Upper
+ 78.0
+ SPLITL 1
+ SPLITZ
+ 3 ! Safety Plate
+ 5 ! water universe Lower
+ 3 ! Bottom Gridplate
+ 3 ! Spacer Down (SS Down)
+ 5 ! Fuel element Lower Graphite
+ 10 ! Fuel Lower Part
+ 10 ! Fuel Upper Part
+ 5 ! Fuel element Upper Graphite
+ 3 ! Spacer Up (SS Up)
+ 3 ! Upper Gridplate
+ 5 ! Water universe Upper
+ MIX
+!*******************************************
+!* 1st floor: Safety Plate
+!*******************************************
+ 0 ! Ring 0 :
+ 0 0 0 0 0 0 ! Ring 1 :
+ 0 0 0 0 0 0 0 0 0 0 0 0 ! Ring 2 :
+ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! Ring 3 :
+ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! Ring 4 :
+ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! Ring 5 :
+ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! Ring 6 :
+ 0 0 0 0 0 0
+!*******************************************
+!* 2nd floor: water universe Lower
+!*******************************************
+ 0 ! Ring 0 :
+ 0 0 0 0 0 0 ! Ring 1 :
+ 0 0 0 0 0 0 0 0 0 0 0 0 ! Ring 2 :
+ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! Ring 3 :
+ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! Ring 4 :
+ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! Ring 5 :
+ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! Ring 6 :
+ 0 0 0 0 0 0
+!*******************************************
+!* 3th floor: Bottom Gridplate
+!*******************************************
+ 0 ! Ring 0 :
+ 0 0 0 0 0 0 ! Ring 1 :
+ 0 0 0 0 0 0 0 0 0 0 0 0 ! Ring 2 :
+ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! Ring 3 :
+ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! Ring 4 :
+ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! Ring 5 :
+ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! Ring 6 :
+ 0 0 0 0 0 0
+!*******************************************
+!* 4th floor: Spacer Down (SS Down)
+!*******************************************
+ 0 ! Ring 0 :
+ 0 0 0 0 0 0 ! Ring 1 :
+ 0 0 0 0 0 0 0 0 0 0 0 0 ! Ring 2 :
+ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! Ring 3 :
+ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! Ring 4 :
+ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! Ring 5 :
+ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! Ring 6 :
+ 0 0 0 0 0 0
+!*******************************************
+!* 5th floor: Fuel element Lower Graphite
+!*******************************************
+ 0 ! Ring 0 :
+ 0 0 0 0 0 0 ! Ring 1 :
+ 0 0 0 0 0 0 0 0 0 0 0 0 ! Ring 2 :
+ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! Ring 3 :
+ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! Ring 4 :
+ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! Ring 5 :
+ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! Ring 6 :
+ 0 0 0 0 0 0
+!*******************************************
+!* 6th floor: Fuel Lower Part
+!*******************************************
+ 0 ! Ring 0 :
+ 1 1 1 1 1 1 ! Ring 1 :
+ 1 1 1 1 1 1 1 1 1 1 1 1 ! Ring 2 :
+ 2 1 1 2 1 1 2 1 1 2 1 1 2 1 1 1 1 1 ! Ring 3 :
+ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ! Ring 4 :
+ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ! Ring 5 :
+ 0 1 0 0 1 0 0 0 1 0 1 0 0 0 0 0 1 0 0 0 0 1 1 0 0 0 1 1 0 0 ! Ring 6 :
+ 0 0 0 1 1 0
+!*******************************************
+!* 7th floor: Fuel Upper Part
+!*******************************************
+ 0 ! Ring 0 :
+ 1 1 1 1 1 1 ! Ring 1 :
+ 1 1 1 1 1 1 1 1 1 1 1 1 ! Ring 2 :
+ 2 1 1 2 1 1 2 1 1 2 1 1 2 1 1 1 1 1 ! Ring 3 :
+ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ! Ring 4 :
+ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ! Ring 5 :
+ 0 1 0 0 1 0 0 0 1 0 1 0 0 0 0 0 1 0 0 0 0 1 1 0 0 0 1 1 0 0 ! Ring 6 :
+ 0 0 0 1 1 0
+!*******************************************
+!* 8th floor: Fuel element Upper Graphite
+!*******************************************
+ 0 ! Ring 0 :
+ 0 0 0 0 0 0 ! Ring 1 :
+ 0 0 0 0 0 0 0 0 0 0 0 0 ! Ring 2 :
+ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! Ring 3 :
+ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! Ring 4 :
+ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! Ring 5 :
+ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! Ring 6 :
+ 0 0 0 0 0 0
+ !*******************************************
+!* 9th floor: Spacer Up (SS Up)
+!*******************************************
+ 0 ! Ring 0 :
+ 0 0 0 0 0 0 ! Ring 1 :
+ 0 0 0 0 0 0 0 0 0 0 0 0 ! Ring 2 :
+ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! Ring 3 :
+ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! Ring 4 :
+ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! Ring 5 :
+ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! Ring 6 :
+ 0 0 0 0 0 0
+!*******************************************
+!* 10th floor: Upper Gridplate
+!*******************************************
+ 0 ! Ring 0 :
+ 0 0 0 0 0 0 ! Ring 1 :
+ 0 0 0 0 0 0 0 0 0 0 0 0 ! Ring 2 :
+ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! Ring 3 :
+ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! Ring 4 :
+ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! Ring 5 :
+ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! Ring 6 :
+ 0 0 0 0 0 0
+!*******************************************
+!* 11th floor: Water universe Upper
+!*******************************************
+ 0 ! Ring 0 :
+ 0 0 0 0 0 0 ! Ring 1 :
+ 0 0 0 0 0 0 0 0 0 0 0 0 ! Ring 2 :
+ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! Ring 3 :
+ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! Ring 4 :
+ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! Ring 5 :
+ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! Ring 6 :
+ 0 0 0 0 0 0
+!*******************************************
+ ;
+!*******************************************
+******---
+* Set channel names
+******---
+ NHNAME
+* Ring 0 (A)
+ -
+* Ring 1 (B)
+C01A01 C01B01 C01C01 C01D01 C01E01 C01F01
+* Ring 2 (C)
+C02A01 C02A02 C02B01 C02B02 C02A02 C02C02 C02D01 C02D02 C02E01 C02E02
+C02F01 C02F02
+* Ring 3 (D)
+C03A01 C03A02 C03A03 C03B01 C03B02 C03B03 C03C01 C03C02 C03C03 C03D01
+C03D02 C03D03 C03E01 C03E02 C03E03 C03F01 C03F02 C03F03
+* Ring 4 (E)
+C04A01 C04A02 C04A03 C04A04 C04B01 C04B02 C04B03 C04B04 C04C01 C04C02
+C04C03 C04C04 C04D01 C04D02 C04D03 C04D04 C04E01 C04E02 C04E03 C04E04
+C04F01 C04F02 C04F03 C04F04
+* Ring 5 (F)
+C05A01 C05A02 C05A03 C05A04 C05A05 C05B01 C05B02 C05B03 C05B04 C05B05
+C05C01 C05C02 C05C03 C05C04 C05C05 C05D01 C05D02 C05D03 C05D04 C05D05
+C05E01 C05E02 C05E03 C05E04 C05E05 C05F01 C05F02 C05F03 C05E04 C05F05
+* Ring 6 (G)
+ - C06A02 - - C06A05 - - - C06B03 -
+C05B05 - - - - - C06C05 - - -
+ - C06D04 C06D05 - - - C06E03 C06E04 - -
+ - - - C06F04 C06F05 -
+!*******************************************
+ NCOMB ALL
+ BTYPE INST-BURN
+ INST-BVAL SAME 0.0
+!*******************************************
+ ;
+
+!*******************************************
+SEQ_ASCII Data.dds :: FILE 'Data.dds' ;
+MYCOMPO := Data.dds ;
+!*******************************************
+*---
+*Fuel-map macrolib
+*---
+ ECHO "Recover fuel properties" ;
+ MACROFL := CRE: MYCOMPO FMAP :: EDIT 4 READ
+ TABLE MYCOMPO
+ MIX 1 'FE_Fuel 1' ENDMIX
+ MIX 2 'CR_Fuel 1' ENDMIX
+ ;
+*---
+*Reflector macrolib
+*---
+ ECHO "Recover reflector properties" ;
+ MACRORE := CRE: MYCOMPO :: EDIT 4 NMIX 13 READ
+ COMPO MYCOMPO
+ MIX 3 'Water 1' ENDMIX
+ MIX 4 'RE_GRPH 1' ENDMIX
+ MIX 5 'CT_A1 1' ENDMIX
+ MIX 6 'FE_Gr 1' ENDMIX
+ MIX 7 'FE_Gr 1' ENDMIX
+ MIX 8 'FE_Spcr 1' ENDMIX
+ MIX 9 'FE_Spcr 1' ENDMIX
+ MIX 10 'Grid_Al 1' ENDMIX
+ MIX 11 'Grid_Al 1' ENDMIX
+ MIX 12 'Terminus 1' ENDMIX
+ MIX 13 'CR_AIR 1' ENDMIX
+ ;
+!*******************************************
+ MACRO2 MATEX := MACINI: MATEX MACRORE MACROFL :: EDIT 0 ;
+ MACROFL MACRORE := DELETE: MACROFL MACRORE ;
+!*******************************************
+!*----
+!* Flux solution
+!*----
+!*******************************************
+ SYSTEM := TRIVAA: MACRO2 TRACK ::
+ EDIT 2 ;
+!*******************************************
+ FLUX := FLUD: SYSTEM TRACK ::
+ EDIT 4 ADI 2 ;
+*--
+* flux and power:
+*--
+ POWER := FLPOW: FMAP FLUX TRACK MATEX ::
+ EDIT 10 PTOT 2.0 ;
+*--
+!*******************************************
+GREP: FLUX :: GETVAL K-EFFECTIVE 1 >>Keff<< ;
+!*******************************************
+ECHO "*-------------------------------------" ;
+ECHO " K-Effective (Dragon/Donjon) :" Keff ;
+ECHO "*-------------------------------------" ;
+
+assertS FLUX :: 'K-EFFECTIVE' 1 1.096410 ;
+!*******************************************
+END: ;
+QUIT .
generated by cgit v1.2.3 (git 2.46.0) at 2026-02-16 14:50:16 +0000