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/ErmBeavrsPwrRefl_proc/DeplChain.c2m | |
Initial commit from Polytechnique Montreal
Diffstat (limited to 'Dragon/data/ErmBeavrsPwrRefl_proc/DeplChain.c2m')
| -rw-r--r-- | Dragon/data/ErmBeavrsPwrRefl_proc/DeplChain.c2m | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/Dragon/data/ErmBeavrsPwrRefl_proc/DeplChain.c2m b/Dragon/data/ErmBeavrsPwrRefl_proc/DeplChain.c2m new file mode 100644 index 0000000..e823b8b --- /dev/null +++ b/Dragon/data/ErmBeavrsPwrRefl_proc/DeplChain.c2m @@ -0,0 +1,26 @@ +*DECK DeplChain.c2m +*====================================================== +* Name: DeplChain.c2m +* Type: DRAGON procedure +* Use: Create depletion chain depending on library. +* Author: G. Tixier 03.2017 +* [CS-SI | IRSN/PSN-EXP/SNC/LNR] +*------------------------------------------------------ +* Input Required: +* > Nmix (INT) Type transport correction (STR) +* Autoprotection (STR) +* Output Provided: +* < Library +*====================================================== +PARAMETER Library :: ::: LINKED_LIST Library ; ; +MODULE LIB: GREP: ABORT: UTL: END: ; + +INTEGER Nmix ; +STRING NuclData LibType LibGenre CTRA Autop ; +:: >>Nmix<< >>NuclData<< >>LibType<< >>LibGenre<< + >>CTRA<< >>Autop<< ; + +Library := LIB: :: EDIT 10 ANIS 2 NMIX <<Nmix>> CTRA <<CTRA>> + <<Autop>> + DEPL LIB: <<LibGenre>> FIL: <<NuclData>> +; |