diff options
| author | stainer_t <thomas.stainer@oecd-nea.org> | 2025-09-08 13:48:49 +0200 |
|---|---|---|
| committer | stainer_t <thomas.stainer@oecd-nea.org> | 2025-09-08 13:48:49 +0200 |
| commit | 7dfcc480ba1e19bd3232349fc733caef94034292 (patch) | |
| tree | 03ee104eb8846d5cc1a981d267687a729185d3f3 /Dragon/data/VanDerGucht_proc/svdg12_uss.c2m | |
Initial commit from Polytechnique Montreal
Diffstat (limited to 'Dragon/data/VanDerGucht_proc/svdg12_uss.c2m')
| -rw-r--r-- | Dragon/data/VanDerGucht_proc/svdg12_uss.c2m | 56 |
1 files changed, 56 insertions, 0 deletions
diff --git a/Dragon/data/VanDerGucht_proc/svdg12_uss.c2m b/Dragon/data/VanDerGucht_proc/svdg12_uss.c2m new file mode 100644 index 0000000..6591b91 --- /dev/null +++ b/Dragon/data/VanDerGucht_proc/svdg12_uss.c2m @@ -0,0 +1,56 @@ +PARAMETER XSM :: ::: XSM_FILE XSM ; ; +LINKED_LIST C3 DISCRF LIBRARY LIBRARY2 CP CALC ; +MODULE GEO: SYBILT: LIB: MAC: USS: ASM: FLU: EDI: DELETE: ; +INTEGER COMB0101 COMB0102 COMB0103 COMB0104 COMB0105 COMB0106 GAIN1 + MODE1 := + 1 2 3 4 5 6 7 8 ; (* 6 COURONNES *) +* 1 1 1 1 1 1 7 8 ; (* 1 COURONNE *) +REAL RCOMB1 RCOMB2 RCOMB3 RCOMB4 RCOMB5 RCOMB6 := 0.25899 0.34261 + 0.36627 0.38849 0.39913 0.4095 ; +* +C3 := GEO: :: CARCEL 8 (*CELLULE NORMALE*) + X- REFL X+ REFL Y- REFL Y+ REFL + MESHX 0.0 1.26 + MESHY 0.0 1.26 + RADIUS 0.0 <<RCOMB1>> <<RCOMB2>> <<RCOMB3>> <<RCOMB4>> + <<RCOMB5>> <<RCOMB6>> 0.4750 0.692879 + MIX <<COMB0101>> <<COMB0102>> <<COMB0103>> <<COMB0104>> + <<COMB0105>> <<COMB0106>> <<GAIN1>> <<MODE1>> <<MODE1>> + ; +DISCRF := SYBILT: C3 :: + TITLE 'CESCOL - BENCHMARK 12 U238 AVEC GAINE 25-04-89' + EDIT 3 ROTH ASKE MAXR 9 ; +LIBRARY := LIB: :: + EDIT 1 ANIS 1 NMIX 8 (*SUBG*) CALENDF 3 PTSL + MIXS LIB: DRAGON FIL: DUMMYDA + MIX <<COMB0101>> 973.16 + '2387001' 2.2E-02 1 IRSET PTSL 1 + '16' 4.4E-2 + MIX <<COMB0102>> COMB 1 1.0 + MIX <<COMB0103>> COMB 1 1.0 + MIX <<COMB0104>> COMB 1 1.0 + MIX <<COMB0105>> COMB 1 1.0 + MIX <<COMB0106>> COMB 1 1.0 + MIX <<GAIN1>> 973.16 + '52' 1.48E-2 + '55' 9.0E-4 + '56' 5.3E-2 + '58' 6.9E-3 + MIX <<MODE1>> 973.16 + '16' 2.5E-2 + '1' 5.0E-2 + ; +LIBRARY2 := USS: LIBRARY DISCRF :: EDIT 3 ; +LIBRARY2 := MAC: LIBRARY2 :: + READ INPUT + MIX <<MODE1>> FIXE + 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 + ; +CP := ASM: LIBRARY2 DISCRF :: EDIT 1 PIJ ; +CALC := FLU: CP LIBRARY2 DISCRF :: EDIT 1 TYPE S EXTE 1 ; +XSM := EDI: CALC LIBRARY2 DISCRF :: + EDIT 2 SAVE + MERG REGI 1 2 3 4 5 6 0 0 0 + SAVE MICR 1 '2387001' ; +QUIT "LIST" . |