From 7dfcc480ba1e19bd3232349fc733caef94034292 Mon Sep 17 00:00:00 2001 From: stainer_t Date: Mon, 8 Sep 2025 13:48:49 +0200 Subject: Initial commit from Polytechnique Montreal --- .../data/rep900_het_gff_jef2p2_proc/Homogenize.c2m | 82 ++++++++++++++++++++++ 1 file changed, 82 insertions(+) create mode 100644 Dragon/data/rep900_het_gff_jef2p2_proc/Homogenize.c2m (limited to 'Dragon/data/rep900_het_gff_jef2p2_proc/Homogenize.c2m') diff --git a/Dragon/data/rep900_het_gff_jef2p2_proc/Homogenize.c2m b/Dragon/data/rep900_het_gff_jef2p2_proc/Homogenize.c2m new file mode 100644 index 0000000..52140c4 --- /dev/null +++ b/Dragon/data/rep900_het_gff_jef2p2_proc/Homogenize.c2m @@ -0,0 +1,82 @@ +*DECK Homogenize +*---- +* Name : Homogenize.c2m +* Type : DRAGON procedure +* Use : Update of the LIBRARY2 concentrations +* with the ones of LIBHOM +* Author : R. Vallerent and A. Hebert +* +* Procedure called as: +* +* EDIHOM := Homogenize FLUX2 LIBEQ TRACKN2 :: <> ; +* +* Input data : +* FLUX2 : Second level Flux +* LIBEQ : 26 groups library for second level calculation +* TRACKN2 : Tracking of the second level geometry +* NbRegions : Number of fuel regions for the calculation (20/32) +* Output data : +* LIBHOM : Microlib object with homogenized concentrations + + +PARAMETER LIBHOM FLUX2 LIBEQ TRACKN2 :: + EDIT 1 + ::: LINKED_LIST LIBHOM FLUX2 LIBEQ TRACKN2 ; + ; +* ; +MODULE EDI: DELETE: END: ; +LINKED_LIST EDIHOM ; + +INTEGER NbRegions ; + :: >>NbRegions<< ; + +IF NbRegions 20 = THEN + EDIHOM := EDI: FLUX2 LIBEQ TRACKN2 :: + EDIT 0 + MICR ALL + COND + MERG MIX + 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 + 16 17 18 19 20 21 22 23 24 25 26 27 28 17 18 + 19 20 9 10 11 12 21 22 23 24 9 10 11 12 9 + 10 11 12 9 10 11 12 9 10 11 12 9 10 11 12 + 9 10 11 12 9 10 11 12 9 10 11 12 9 10 11 + 12 9 10 11 12 9 10 11 12 9 10 11 12 13 14 + 15 16 13 14 15 16 13 14 15 16 13 14 15 16 13 + 14 15 16 13 14 15 16 13 14 15 16 13 14 15 16 + 13 14 15 16 13 14 15 16 13 14 15 16 17 18 19 + 20 9 10 11 12 21 22 23 24 21 22 23 24 21 22 + 23 24 21 22 23 24 21 22 23 24 21 22 23 24 + SAVE ON HOMOGENE + ; +ELSEIF NbRegions 32 = THEN + EDIHOM := EDI: FLUX2 LIBEQ TRACKN2 :: + EDIT 0 + MICR ALL + COND + MERG MIX + 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 + 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 + 31 32 33 34 35 36 37 38 39 40 9 10 11 12 9 + 10 11 12 9 10 11 12 9 10 11 12 9 10 11 12 + 9 10 11 12 9 10 11 12 9 10 11 12 9 10 11 + 12 9 10 11 12 9 10 11 12 9 10 11 12 13 14 + 15 16 13 14 15 16 13 14 15 16 13 14 15 16 13 + 14 15 16 13 14 15 16 13 14 15 16 13 14 15 16 + 13 14 15 16 13 14 15 16 13 14 15 16 17 18 19 + 20 21 22 23 24 29 30 31 32 29 30 31 32 29 30 + 31 32 29 30 31 32 29 30 31 32 29 30 31 32 + SAVE ON HOMOGENE + ; +ELSE + ECHO "Wrong value for NbRegions" ; +ENDIF ; + +LIBHOM := EDIHOM :: + STEP UP HOMOGENE +; + +EDIHOM := DELETE: EDIHOM ; + +END: ; +QUIT . -- cgit v1.2.3