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/tmacro_proc/TCM64.c2m | 36 ++++++++++++++++++++++++++++++++++++
 1 file changed, 36 insertions(+)
 create mode 100644 Dragon/data/tmacro_proc/TCM64.c2m

(limited to 'Dragon/data/tmacro_proc/TCM64.c2m')

diff --git a/Dragon/data/tmacro_proc/TCM64.c2m b/Dragon/data/tmacro_proc/TCM64.c2m
new file mode 100644
index 0000000..932eb1f
--- /dev/null
+++ b/Dragon/data/tmacro_proc/TCM64.c2m
@@ -0,0 +1,36 @@
+*----
+*  TEST CASE TCM64
+*  FMAC-M generated homogeneous macrolib
+*  1D spherical sn testcase from ROZ6
+*----
+*  Define STRUCTURES and MODULES used
+*----
+MODULE GEO: FMAC: SNT: ASM: FLU: END: ;
+PROCEDURE assertS ;
+LINKED_LIST  MACRO GEOM TRACK SYSTEM FLUX ;
+SEQ_ASCII FMAC_M :: FILE './Godiva_2001_Bugle96_47n.txt' ;
+*----
+*  Set and track the geometry
+*----
+GEOM := GEO: :: SPHERE  1
+           R+ VOID
+           MIX  1
+           RADIUS 0.0 8.7407
+           SPLITR 35
+           ;
+TRACK := SNT: GEOM ::
+      TITLE 'HOMOGENIZED GODIVA BENCHMARK WITH FMAC-M'
+      EDIT 2 MAXR 100 SN 16 SCAT 6 ;
+*----
+*  Compute the neutron flux
+*----
+MACRO := FMAC: FMAC_M ::
+  EDIT 2
+  PARTICLE N
+;
+SYSTEM := ASM: MACRO TRACK :: EDIT 1 ARM ;
+FLUX := FLU: MACRO TRACK SYSTEM :: TYPE K ;
+assertS FLUX :: 'K-EFFECTIVE' 1 0.9963791 ;
+*
+ECHO "test TCM64 completed" ;
+END: ;
-- 
cgit v1.2.3