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

---
 PyGan/data/Equivalence_SPH_APEX_proc/Umzone5x5.c2m | 43 ++++++++++++++++++++++
 1 file changed, 43 insertions(+)
 create mode 100644 PyGan/data/Equivalence_SPH_APEX_proc/Umzone5x5.c2m

(limited to 'PyGan/data/Equivalence_SPH_APEX_proc/Umzone5x5.c2m')

diff --git a/PyGan/data/Equivalence_SPH_APEX_proc/Umzone5x5.c2m b/PyGan/data/Equivalence_SPH_APEX_proc/Umzone5x5.c2m
new file mode 100644
index 0000000..c51598a
--- /dev/null
+++ b/PyGan/data/Equivalence_SPH_APEX_proc/Umzone5x5.c2m
@@ -0,0 +1,43 @@
+****************************************************************
+*                                                              *
+* Procedure : Umzone5x5.c2m                                    *
+* Purpose   : Define the macro-geometry                        *
+* Author    : A. Hebert                                        *
+*                                                              *
+* CALL      :                                                  *
+*  Geom := Umzone5x5 ;                                         *
+*                                                              *
+*  Input object:                                               *
+*    ApexName  : Apex file name                                *
+*                                                              *
+*  Output objects:                                             *
+*    Geom      : macro-geometry                                *
+*    ncals     : number of calculations in the Apex file       *
+*                                                              *
+****************************************************************
+PARAMETER  Geom ::
+  ::: LINKED_LIST Geom ; ;
+MODULE GEO: HUTL: END: ;
+STRING ApexName ;
+  ::  >>ApexName<< ;
+HDF5_FILE UOX_5x5 :: FILE <<ApexName>> ;
+INTEGER ncals ;
+*
+REAL side1 := 1.26 ;
+REAL side2 := side1 1.26 + ;
+REAL side3 := side2 1.26 + ;
+REAL side4 := side3 1.26 + ;
+REAL side5 := side4 1.26 + ;
+Geom := GEO: :: CAR2D 5 5 (*ASSEMBLY 5 X 5*)
+          X- DIAG X+ REFL
+          Y- REFL Y+ DIAG
+          MESHX 0.0 <<side1>> <<side2>> <<side3>> <<side4>> <<side5>>
+          MIX 6 5 4 5 6
+                3 2 3 5
+                  1 2 4
+                    3 5
+                      6
+;
+HUTL: UOX_5x5 :: GREP 'NCALS' 1 >>ncals<< ;
+  :: <<ncals>>  ;
+END: ;
-- 
cgit v1.2.3