diff options
Diffstat (limited to 'Dragon/data/rep900_mco_proc/Homogenize.c2m')
| -rw-r--r-- | Dragon/data/rep900_mco_proc/Homogenize.c2m | 82 |
1 files changed, 82 insertions, 0 deletions
diff --git a/Dragon/data/rep900_mco_proc/Homogenize.c2m b/Dragon/data/rep900_mco_proc/Homogenize.c2m new file mode 100644 index 0000000..52140c4 --- /dev/null +++ b/Dragon/data/rep900_mco_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 :: <<NbRegions>> ; +* +* 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 . |