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

(limited to 'Dragon/data/C2D20_proc/DimACRFuel.c2m')

diff --git a/Dragon/data/C2D20_proc/DimACRFuel.c2m b/Dragon/data/C2D20_proc/DimACRFuel.c2m
new file mode 100644
index 0000000..c98b5ef
--- /dev/null
+++ b/Dragon/data/C2D20_proc/DimACRFuel.c2m
@@ -0,0 +1,73 @@
+*DECK DimACRFuel.c2m
+*----
+*  Name          : DimACRFuel.c2m
+*  Type          : DRAGON procedure
+*  Use           : Dimensions for ACR-1000 fuel
+*  Author        : G. Marleau
+*  Revisions     : 2006/05/16 -> Replace ACR-700 by ACR-1000
+*  Reference     : fuel18n.pin and fuel20n.pin
+*  
+*  Description of the procedure: 
+*    DimACRFuel ::  
+*      <<Ring>> 
+*      >>npinp<< >>rpinp<< >>apinp<< >>rradf<< >>rrads<< ;
+*  Input data:
+*    Ring          : Ring number
+*  Output data: 
+*    npinp         : number of pins in this ring
+*    rpinp         : ring radius (cm) 
+*    apinp         : first pin angle (radians)
+*    rradf         : outer fuel radius (cm)
+*    rrads         : outer sheat radius (cm)
+*----
+* Definition of the input and output data structures and 
+* of the input and output parameters for this procedure
+*
+MODULE    END:   ;
+INTEGER   Ring   ;
+  :: >>Ring<<  ;
+*----
+*  Pin diameters are given in mm. Transform them
+*  to radius in cm.
+*----
+REAL         thikI    thikA     :=
+             0.064    0.044       ;
+*----
+*  Number of pins in each ring
+*----
+INTEGER npinp1 npinp2 npinp3 npinp4 :=
+        1      7      14     21     ;
+*----
+*  Radius of pins in each ring
+*  Diameter is given in mm. Transform to radius in cm.
+*----
+REAL    rradf1   rradf2   rradf3   rradf4 := 
+        0.93025  0.53025  0.53025  0.53025  ;
+*----
+*  Outer sheath radius in each ring
+*----
+REAL    rrads1   rrads2    rrads3    rrads4         := 
+        1.003383 0.573787  0.573787  0.573787  ;
+*----
+*  Pins ring center location.
+*  Diameter is given in mm. Transform to radius in cm.
+*----
+REAL    rpinp1   rpinp2   rpinp3   rpinp4 :=
+        0.0      1.725    2.953    4.384 ;
+*----
+*  Pins angular location.
+*----
+REAL         apinp1 apinp2 apinp3 apinp4 := 
+             0.0    0.0    $Pi_R  npinp3 I_TO_R / 0.0  ;    
+IF Ring 4 = THEN
+  :: <<npinp4>> <<rpinp4>> <<apinp4>> <<rradf4>> <<rrads4>>  ;
+ELSEIF Ring 3 = THEN
+  :: <<npinp3>> <<rpinp3>> <<apinp3>> <<rradf3>> <<rrads3>>  ;
+ELSEIF Ring 2 = THEN
+  :: <<npinp2>> <<rpinp2>> <<apinp2>> <<rradf2>> <<rrads2>>  ;
+ELSEIF Ring 1 = THEN
+  :: <<npinp1>> <<rpinp1>> <<apinp1>> <<rradf1>> <<rrads1>>  ;
+ELSE
+  ECHO "WARNING: Invalid Ring number in DimACRFuel : " Ring ;
+ENDIF ;
+QUIT .
-- 
cgit v1.2.3