blob: e823b8b8105883ff3bb8a7fb1ac91dda178aa7fe (
plain)
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
|
*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>>
;
|
