diff options
Diffstat (limited to 'Dragon/data/C2D20_proc/MicACRE6UH.c2m')
| -rw-r--r-- | Dragon/data/C2D20_proc/MicACRE6UH.c2m | 87 |
1 files changed, 87 insertions, 0 deletions
diff --git a/Dragon/data/C2D20_proc/MicACRE6UH.c2m b/Dragon/data/C2D20_proc/MicACRE6UH.c2m new file mode 100644 index 0000000..0e89b81 --- /dev/null +++ b/Dragon/data/C2D20_proc/MicACRE6UH.c2m @@ -0,0 +1,87 @@ +*DECK MicACRE6UH.c2m +*---- +* Name : MicACRE6UH.c2m +* Type : DRAGON procedure +* Use : To update the ENDF/B-VI Microlib for the ACR +* by adding the mixtures required +* for homogenisation by mixture. +* Author : G. Marleau, E. Varin +* Date : 2005/07/19 (Revision 1 by G. M.) +* Reference : MicACRE6.c2m +* +* Procedure called as: +* +* MicLib := MicACRE6UH MicLib ; +* +* Parameters of the procedure +* MicLib : Microlib tabulated for the required parameters stored in an XSM file +* At input, the minimal set of mixtures included in this microlib is: +* Mix 0 = void +* Mix 1 = coolant at reference conditions +* Mix 2 = pressure tube material +* Mix 3 = gap material +* Mix 4 = calendria tube material +* Mix 5 = moderator +* Mix 6 = fuel sheat +* Mix 7 = central (first) Dy+Gd element +* Mix 8 = second ring of fuel +* Mix 9 = third ring of fuel +* Mix 10 = last (fourth) ring of fuel +* Mix 11 = coolant at 50 % density +* Mix 12 = Natural uranium +* Mix 13 = Dy2O3 +* The mixtures added to MicLib by the current procedure are: +* Mix 14 = Full density coolant for central (first) fuel +* Mix 15 = Full density coolant for second ring of fuel +* Mix 16 = Full density coolant for third ring of fuel +* Mix 17 = Full density coolant for last (fourth) ring of fuel +* Mix 18 = Sheat for central (first) fuel element +* Mix 19 = Sheat for second ring of fuel +* Mix 20 = Sheat for third ring of fuel +* Mix 21 = Sheat for last (fourth) ring of fuel +* Mix 22 = Half density coolant for central (first) fuel +* Mix 23 = Half density coolant for second ring of fuel +* Mix 24 = Half density coolant for third ring of fuel +* Mix 25 = Half density coolant for last (fourth) ring of fuel +* Note: 1- MIX 14, 15, 16 and 17 are identical to MIX 1 +* 2- MIX 18, 19, 20 and 21 are identical to MIX 6 +* 3- MIX 22, 23, 24 and 25 are identical to MIX 11 +*---- +* Definition of output data structures +*---- +PARAMETER MicLib :: ::: XSM_FILE MicLib ; ; +*---- +* Local modules used in this procedure +*---- +MODULE LIB: DELETE: END: ; +*---- +* Library name +*---- +STRING LibName := "E6MLIB" ; +*---- +* Update library +*---- +MicLib := LIB: MicLib :: + EDIT 0 + NMIX 25 CTRA WIMS + MIXS LIB: WIMSAECL FIL: <<LibName>> +*---- +* Full density coolant mixtures + MIX 14 COMB 1 1.0 + MIX 15 COMB 1 1.0 + MIX 16 COMB 1 1.0 + MIX 17 COMB 1 1.0 +*---- +* Sheat mixtures + MIX 18 COMB 6 1.0 + MIX 19 COMB 6 1.0 + MIX 20 COMB 6 1.0 + MIX 21 COMB 6 1.0 +*---- +* Half density coolant mixtures + MIX 22 COMB 11 1.0 + MIX 23 COMB 11 1.0 + MIX 24 COMB 11 1.0 + MIX 25 COMB 11 1.0 + ; +QUIT . |