diff options
Diffstat (limited to 'Dragon/data/VanDerGucht-295_proc/gd_295_c1rs.c2m')
| -rw-r--r-- | Dragon/data/VanDerGucht-295_proc/gd_295_c1rs.c2m | 118 |
1 files changed, 118 insertions, 0 deletions
diff --git a/Dragon/data/VanDerGucht-295_proc/gd_295_c1rs.c2m b/Dragon/data/VanDerGucht-295_proc/gd_295_c1rs.c2m new file mode 100644 index 0000000..4366183 --- /dev/null +++ b/Dragon/data/VanDerGucht-295_proc/gd_295_c1rs.c2m @@ -0,0 +1,118 @@ +PARAMETER XSM :: ::: XSM_FILE XSM ; ; +*---- +* +* TEST CASE gd_295_c1 +* GD ROWLAND'S BENCHMARK +* DISTRIBUTED SELF-SHIELDING +* 295-GROUP JEFF 3.1.1 DRAGLIB +* +* Author: A. Hebert +* +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST GEOM TRACK_SS TRACK LIBRARY LIBRARY2 CP CALC ; +SEQ_ASCII UOX_TBH ; +SEQ_BINARY TF_EXC ; +MODULE LIB: GEO: SYBILT: G2S: SALT: MAC: USS: ASM: FLU: EDI: ; +INTEGER COMB0101 COMB0102 COMB0103 COMB0104 COMB0105 COMB0106 GAIN1 + MODE1 := + 1 2 3 4 5 6 7 8 ; (* DISTRIBUTED SELF-SHIELDING *) +REAL RCOMB1 RCOMB2 RCOMB3 RCOMB4 RCOMB5 RCOMB6 ; +REAL P_Zr90 P_Zr91 P_Zr92 P_Zr94 P_Zr96 := + 51.45E-02 11.22E-02 17.15E-02 17.38E-02 2.80E-02 ; +REAL N_Zr0 := 3.88E-2 ; +REAL N_Zr90 N_Zr91 N_Zr92 N_Zr94 N_Zr96 := + N_Zr0 P_Zr90 * N_Zr0 P_Zr91 * N_Zr0 P_Zr92 * N_Zr0 P_Zr94 * + N_Zr0 P_Zr96 * ; +INTEGER an2d := 12 ; +REAL densur := 20.0 ; +* +EVALUATE RCOMB6 := 0.41 ; +EVALUATE RCOMB1 := 0.4 SQRT RCOMB6 * ; +EVALUATE RCOMB2 := 0.7 SQRT RCOMB6 * ; +EVALUATE RCOMB3 := 0.8 SQRT RCOMB6 * ; +EVALUATE RCOMB4 := 0.9 SQRT RCOMB6 * ; +EVALUATE RCOMB5 := 0.95 SQRT RCOMB6 * ; +GEOM := GEO: :: CARCEL 8 + X- REFL X+ REFL Y- REFL Y+ REFL + RADIUS 0.0 <<RCOMB1>> <<RCOMB2>> <<RCOMB3>> <<RCOMB4>> + <<RCOMB5>> <<RCOMB6>> 0.475 0.6045552 + MIX <<COMB0101>> <<COMB0102>> <<COMB0103>> <<COMB0104>> + <<COMB0105>> <<COMB0106>> <<GAIN1>> <<MODE1>> <<MODE1>> + MESHX 0.0 1.26 MESHY 0.0 1.26 + ; +TRACK_SS := SYBILT: GEOM :: + TITLE 'UO2 ROWLAND S BENCHMARK' + MAXR 20 QUA2 20 3 DP01 MAXZ 200000 ; +UOX_TBH := G2S: GEOM ; +TRACK TF_EXC := SALT: UOX_TBH :: + EDIT 3 + ALLG + TSPC EQW2 <<an2d>> <<densur>> REND +; +LIBRARY := LIB: :: + EDIT 1 + NMIX 8 (*MAXIMUM OF MATERIAL MIXTURES*) + CTRA APOL (*APOLLO TYPE TRANSPORT CORRECTION*) + ANIS 2 + ADED 4 NELAS N4N N2N N3N + RSE (*RESONANCE SPECTRUM EXPANSION METHOD*) +* + MIXS LIB: DRAGON FIL: D295 + MIX <<COMB0101>> 294.0 (*COMB0101*) + U235 = U235 5.09462E-4 1 + U238 = U238 1.96177E-2 CORR 1 + O16Gd2 = O16 4.41647E-2 + Gd154 = Gd154 5.68369E-5 1 + Gd155 = Gd155 3.85839E-4 1 + Gd156 = Gd156 5.33652E-4 1 + Gd157 = Gd157 4.08010E-4 CORR 1 + Gd158 = Gd158 6.47572E-4 1 + MIX <<COMB0102>> COMB <<COMB0101>> 1.0 (*COMB0102*) + MIX <<COMB0103>> COMB <<COMB0101>> 1.0 (*COMB0103*) + MIX <<COMB0104>> COMB <<COMB0101>> 1.0 (*COMB0104*) + MIX <<COMB0105>> COMB <<COMB0101>> 1.0 (*COMB0105*) + MIX <<COMB0106>> COMB <<COMB0101>> 1.0 (*COMB0106*) + MIX <<GAIN1>> 294.0 (*GAIN1*) + Zr90 = Zr90 <<N_Zr90>> 2 + Zr91 = Zr91 <<N_Zr91>> 2 + Zr92 = Zr92 <<N_Zr92>> 2 + Zr94 = Zr94 <<N_Zr94>> + Zr96 = Zr96 <<N_Zr96>> + MIX <<MODE1>> 294.0 (*MODE1*) + H1 = H1_H2O 4.744E-2 + O16 = O16 2.372E-2 +; +LIBRARY2 := USS: LIBRARY TRACK_SS :: EDIT 1 TRAN GRMIN 56 PASS 2 ; +LIBRARY2 := MAC: LIBRARY2 :: + READ INPUT + MIX 8 FIXE + 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 + 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 + 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 + 0.0 0.0 0.0 0.0 0.0 0.0 1.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 + 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 + 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 + 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 + 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 + 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 + 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 + 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 + 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 + 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 + 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 + 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 + 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 + 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 + 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 + 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 + 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 + ; +CP := ASM: LIBRARY2 TRACK TF_EXC :: EDIT 1 PIJ ; +CALC := FLU: CP LIBRARY2 TRACK :: EDIT 1 TYPE S EXTE 1 ; +XSM := EDI: CALC LIBRARY2 TRACK :: + EDIT 2 SAVE + MERG MIX 1 2 3 4 5 6 0 0 + SAVE MICR 7 U235 U238 Gd154 Gd155 Gd156 Gd157 Gd158 ; +QUIT "LIST" . |