blob: 45f10fcb0a05af0b197924881c7379bcc997214f (
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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
|
*DECK ConcLIBRARY2
*----
* Name : ConcLIBRARY2.c2m
* Type : DRAGON procedure
* Use : Update of the LIBRARY2 concentrations
* with the ones of LIBHOM
* Author : R. Vallerent
*
* Procedure called as:
*
* LIBRARY2 := ConcLIBRARY2 LIBRARY2 LIBHOM :: <<NbRegions>> ;
*
* Input data :
* LIBRARY2 : Library which concentrations are to be updated
* LIBHOM : One group library after homogeneization and 2nd level
* evolution
* NbRegions : Number of fuel regions for the calculation (20/32)
* Output data :
* LIBRARY2 : Library which concentrations are updated
PARAMETER LIBRARY2 LIBHOM ::
EDIT 1
::: LINKED_LIST LIBRARY2 LIBHOM ;
;
* ;
MODULE LIB: END: ;
INTEGER NbRegions ;
:: >>NbRegions<< ;
IF NbRegions 20 = THEN
LIBRARY2 := LIB: LIBRARY2 LIBHOM ::
EDIT 0
MAXS
MIX 9 MIX 10 MIX 11 MIX 12 MIX 13 MIX 14 MIX 15 MIX 16
MIX 17 MIX 18 MIX 19 MIX 20 MIX 21 MIX 22 MIX 23 MIX 24
MIX 25 MIX 26 MIX 27 MIX 28
;
ELSEIF NbRegions 32 = THEN
LIBRARY2 := LIB: LIBRARY2 LIBHOM ::
EDIT 0
MAXS
MIX 9 MIX 10 MIX 11 MIX 12 MIX 13 MIX 14 MIX 15 MIX 16
MIX 17 MIX 18 MIX 19 MIX 20 MIX 21 MIX 22 MIX 23 MIX 24
MIX 25 MIX 26 MIX 27 MIX 28 MIX 29 MIX 30 MIX 31 MIX 32
MIX 33 MIX 34 MIX 35 MIX 36 MIX 37 MIX 38 MIX 39 MIX 40
;
ELSE
ECHO "Mauvaise donnee de NbRegions" ;
ENDIF ;
END: ;
QUIT .
|
