blob: 40065d2089d9e15446fbcd3bbcafd85608d0e502 (
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
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
|
*----
* Name : AddCompo.c2m
* Type : DRAGON procedure
* Use : Initialize multicompo object
* Author : R. Chambon
*
* Procedure called as:
*
* LIBRARY2 := Autop1 LIBRARY TRACKSS :: <<Fuel>> <<NbRegions>> ;
*
* Input data :
* LIBRARY : Library with SUBG key word
* TRACKSS : Tracking of the SS geometry
* Fuel : Type of fuel (UOX/MOX)
* NbRegions : Number of regions for the calculation (20/32)
* Output data :
* LIBRARY2 : Self shielded Library
ECHO "AddCompo.x2m" ;
PARAMETER COMPO FLUX2 LIBEQ TRACKN2
GEON2 ALLGEO BURN164 LIBRARY ::
EDIT 1
::: LINKED_LIST
COMPO FLUX2 LIBEQ TRACKN2
GEON2 ALLGEO BURN164 LIBRARY
;
;
LINKED_LIST EDIOBJ EDIOB2 ;
MODULE COMPO: END: DELETE: ;
PROCEDURE CondHet_2gr ;
STRING Library SelOpt TypeCompo Gff ;
REAL pbore dmod Tend ;
:: >>Library<< >>SelOpt<< >>TypeCompo<< >>Gff<<
>>pbore<< >>dmod<< >>Tend<< ;
REAL rodl := 0.0 ;
STRING NameDirAss NameDirPin NameDirHt1 NameDirHt2 :=
'Ass' 'Pin' 'Het1' 'Het2' ;
*
*Pin by Pin
*
IF TypeCompo "PinByPin" = TypeCompo "All" = + TypeCompo "Both" = +
Gff "Yes" = + THEN
EDIOBJ := CondHet_2gr FLUX2 LIBEQ TRACKN2 GEON2 ALLGEO
:: <<Library>> <<SelOpt>> 'PinByPin' ;
IF TypeCompo "PinByPin" = TypeCompo "All" = +
TypeCompo "Both" = + THEN
COMPO := COMPO: COMPO EDIOBJ BURN164 LIBRARY ::
EDIT 2
STEP UP <<NameDirPin>>
'ppmBore' <<pbore>>
'DCA' <<dmod>>
'BARR' <<rodl>>
MACRO
SET <<Tend>> DAY
;
ENDIF ;
IF Gff "Yes" = THEN
EDIOB2 := EDIOBJ ;
ENDIF ;
EDIOBJ := DELETE: EDIOBJ ;
ENDIF ;
IF TypeCompo "Assembly" = TypeCompo "All" = + TypeCompo "Both" = + THEN
EDIOBJ := CondHet_2gr FLUX2 LIBEQ TRACKN2 GEON2 ALLGEO
:: <<Library>> <<SelOpt>> 'Assembly' ;
IF Gff "No" = THEN
COMPO := COMPO: COMPO EDIOBJ BURN164 LIBRARY ::
EDIT 2
STEP UP <<NameDirAss>>
'ppmBore' <<pbore>>
'DCA' <<dmod>>
'BARR' <<rodl>>
MACRO
SET <<Tend>> DAY
;
ELSEIF Gff "Yes" = THEN
COMPO := COMPO: COMPO EDIOBJ EDIOB2 BURN164 LIBRARY ::
EDIT 2
STEP UP <<NameDirAss>>
'ppmBore' <<pbore>>
'DCA' <<dmod>>
'BARR' <<rodl>>
MACRO
SET <<Tend>> DAY
;
ENDIF ;
EDIOBJ := DELETE: EDIOBJ ;
ENDIF ;
IF TypeCompo "Heter1" = TypeCompo "All" = + THEN
EDIOBJ := CondHet_2gr FLUX2 LIBEQ TRACKN2 GEON2 ALLGEO
:: <<Library>> <<SelOpt>> 'Heter1' ;
IF Gff "No" = THEN
COMPO := COMPO: COMPO EDIOBJ BURN164 LIBRARY ::
EDIT 2
STEP UP <<NameDirHt1>>
'ppmBore' <<pbore>>
'DCA' <<dmod>>
'BARR' <<rodl>>
MACRO
SET <<Tend>> DAY
;
ELSEIF Gff "Yes" = THEN
COMPO := COMPO: COMPO EDIOBJ EDIOB2 BURN164 LIBRARY ::
EDIT 2
STEP UP <<NameDirHt1>>
'ppmBore' <<pbore>>
'DCA' <<dmod>>
'BARR' <<rodl>>
MACRO
SET <<Tend>> DAY
;
ENDIF ;
EDIOBJ := DELETE: EDIOBJ ;
ENDIF ;
!IF TypeCompo "Heter2" = TypeCompo "All" = + THEN
! EDIOBJ := CondHet_2gr FLUX2 LIBEQ TRACKN2 GEON2 ALLGEO
! :: <<Library>> <<SelOpt>> 'Heter2' ;
! IF Gff "No" = THEN
! COMPO := COMPO: COMPO EDIOBJ BURN164 LIBRARY ::
! EDIT 2
! STEP UP <<NameDirHt2>>
! 'ppmBore' <<pbore>>
! 'DCA' <<dmod>>
! 'BARR' <<rodl>>
! MACRO
! SET <<Tend>> DAY
! ;
! ELSEIF Gff "Yes" = THEN
! COMPO := COMPO: COMPO EDIOBJ EDIOB2 BURN164 LIBRARY ::
! EDIT 2
! STEP UP <<NameDirHt2>>
! 'ppmBore' <<pbore>>
! 'DCA' <<dmod>>
! 'BARR' <<rodl>>
! MACRO
! SET <<Tend>> DAY
! ;
! ENDIF ;
! EDIOBJ := DELETE: EDIOBJ ;
!ENDIF ;
IF Gff "Yes" = THEN
EDIOB2 := DELETE: EDIOB2 ;
ENDIF ;
END: ;
QUIT .
|
