Initial commit from Polytechnique Montreal

1 files changed, 147 insertions, 0 deletions

diff --git a/Donjon/data/ssrcell_thm_proc/HOM_fmap.c2m b/Donjon/data/ssrcell_thm_proc/HOM_fmap.c2m
new file mode 100644
index 0000000..e1f7bfe
--- /dev/null
+++ b/Donjon/data/ssrcell_thm_proc/HOM_fmap.c2m
@@ -0,0 +1,147 @@
+*=====================================================================*
+* FILE:           HOM_fmap.c2m
+* TYPE:           DRAGON/DONJON proc file
+* AUTHOR:         Cristian Garrido Tamm (cristian.garrido@idom.com)
+* PURPOSE:        TODO
+* CREATION DATE:  Fri 07 Apr 2023 09:58:02 PM CEST
+* LAST MODIFIED:  Sat 08 Apr 2023 01:08:29 PM CEST
+*---------------------------------------------------------------------*
+* INPUT:
+*     TYPE        | NAME    | DEFINITION
+*     ------------|---------|-----------------------------
+*     REAL        | reap    | Dummy real input parameter
+*     INTEGER     | intp    | Dummy integer input parameter
+*     STRING      | strp    | Dummy string input parameter
+* OUTPUT:
+*     TYPE        | NAME    | DEFINITION
+*     ------------|---------|-----------------------------
+*     LINKED_LIST | FMAP    | Fuel map output linked list
+* CALL:
+*     FMAP := HOM_fmap ::
+*               <<intp>> <<reap>> <<strp>> ;
+*=====================================================================*
+*---
+* RECOVER INPUT DATA STRUCTURES
+*---
+PARAMETER FMAP MATEX ::
+  EDIT 0
+    ::: LINKED_LIST FMAP MATEX ;
+  ;  
+*---
+* RECOVER INPUT PARAMETERS
+*---
+REAL Hside maxh ;
+:: >>Hside<< >>maxh<< ;
+REAL powi Tfuel Tcool Tmod ;
+:: >>powi<< >>Tfuel<< >>Tcool<< >>Tmod<< ;
+REAL Mass ;
+:: >>Mass<< ;
+*---
+* DEFINE MODULES
+*---
+MODULE END: RESINI: UTL: ;
+*---
+* DEFINE DATA STRUCTURES
+*---
+*---
+* DEFINE VARIABLES
+*---
+* Constants
+STRING DOUBLE_LINE := 
+"====================================================================" ;
+STRING SINGLE_LINE := 
+"--------------------------------------------------------------------" ;
+LOGICAL True False := $True_L $False_L ;
+STRING FILENAME := 'HOM_fmap' ;
+* Options
+INTEGER int ;
+REAL rea ;
+STRING str ;
+
+*---
+* BEGIN CALCULATION
+*---
+ECHO DOUBLE_LINE ;
+ECHO 'BEGIN PROCEDURE ' FILENAME ;
+ECHO DOUBLE_LINE ;
+
+REAL z1 := maxh 20.0 / ;
+REAL z2 := maxh 20.0 / z1 + ;
+REAL z3 := maxh 20.0 / z2 + ;
+REAL z4 := maxh 20.0 / z3 + ;
+REAL z5 := maxh 20.0 / z4 + ;
+REAL z6 := maxh 20.0 / z5 + ;
+REAL z7 := maxh 20.0 / z6 + ;
+REAL z8 := maxh 20.0 / z7 + ;
+REAL z9 := maxh 20.0 / z8 + ;
+REAL z10 := maxh 20.0 / z9 + ;
+REAL z11 := maxh 20.0 / z10 + ;
+REAL z12 := maxh 20.0 / z11 + ;
+REAL z13 := maxh 20.0 / z12 + ;
+REAL z14 := maxh 20.0 / z13 + ;
+REAL z15 := maxh 20.0 / z14 + ;
+REAL z16 := maxh 20.0 / z15 + ;
+REAL z17 := maxh 20.0 / z16 + ;
+REAL z18 := maxh 20.0 / z17 + ;
+REAL z19 := maxh 20.0 / z18 + ;
+REAL z20 := maxh 20.0 / z19 + ;
+
+ECHO "input Matex" ;
+UTL: MATEX :: DIR IMPR STATE-VECTOR * ;
+
+FMAP MATEX := RESINI: MATEX ::
+    EDIT 50000
+    ::: GEO: HEXZ 1 20
+        EDIT 3000
+        Z- VOID Z+ VOID
+        HBC COMPLETE REFL
+        SIDE <<Hside>>
+        SPLITL 1
+        MESHZ 0.0 <<z1>> <<z2>> <<z3>> <<z4>> <<z5>> <<z6>> <<z7>> <<z8>>
+          <<z9>> <<z10>> <<z11>> <<z12>> <<z13>> <<z14>> <<z15>> <<z16>>
+          <<z17>> <<z18>> <<z19>> <<z20>>
+        MIX
+        PLANE 1
+           1
+        PLANE 2  SAME 1
+        PLANE 3  SAME 1
+        PLANE 4  SAME 1
+        PLANE 5  SAME 1
+        PLANE 6  SAME 1
+        PLANE 7  SAME 1
+        PLANE 8  SAME 1
+        PLANE 9  SAME 1
+        PLANE 10 SAME 1
+        PLANE 11 SAME 1
+        PLANE 12 SAME 1
+        PLANE 13 SAME 1
+        PLANE 14 SAME 1
+        PLANE 15 SAME 1
+        PLANE 16 SAME 1
+        PLANE 17 SAME 1
+        PLANE 18 SAME 1
+        PLANE 19 SAME 1
+        PLANE 20 SAME 1
+        ;
+NHNAME C00A01
+NCOMB ALL
+INST-BVAL SAME 0.0
+BUNDLE-POW SAME 10.0
+ADD-PARAM PNAME 'T-FUEL' PARKEY 'TF' GLOBAL
+ADD-PARAM PNAME 'T-COOL' PARKEY 'TC' GLOBAL
+ADD-PARAM PNAME 'T-MODE' PARKEY 'TM' GLOBAL
+SET-PARAM 'T-FUEL' <<Tfuel>>
+SET-PARAM 'T-COOL' <<Tcool>>
+SET-PARAM 'T-MODE' <<Tmod>>
+*FUEL WEIGHT <<Mass>>
+;
+
+*---
+* END CALCULATION
+*---
+ECHO DOUBLE_LINE ;
+ECHO 'END PROCEDURE ' FILENAME ;
+ECHO DOUBLE_LINE ;
+
+END: ;
+QUIT .