blob: 9e1c73e661cce107fc8b2d91804f7b45802043ed (
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
|
PARAMETER XSM :: ::: XSM_FILE XSM ; ;
LINKED_LIST BENCH1 DISCRF LIBRARY LIBRARY2 CP CALC ;
MODULE GEO: SYBILT: LIB: MAC: USS: ASM: FLU: EDI: DELETE: ;
*
BENCH1 := GEO: :: TUBE 2 (*CELLULE CYLINDRIQUE SIMPLE*)
R+ REFL
RADIUS 0.0 0.4095 0.7054
MIX 1 2
;
DISCRF := SYBILT: BENCH1 ::
TITLE 'CESCOL - BENCHMARK 1 U238 SANS GAINE 25-04-89'
MAXR 2 ;
LIBRARY := LIB: ::
EDIT 1 ANIS 1 NMIX 2 PTSL (*SUBG*)
MIXS LIB: DRAGON FIL: DUMMYDA
MIX 1 973.16
u238 = '2387001' 2.2E-02 CORR 1 IRSET PTSL 1
pu240 = '2407001' 8.7E-04 CORR 1 IRSET PTSL 1
'16' 4.574E-2
MIX 2 973.16
'16' 2.5E-2
'1' 5.0E-2
;
LIBRARY2 := USS: LIBRARY DISCRF :: EDIT 2 PASS 4 ;
LIBRARY2 := MAC: LIBRARY2 ::
READ INPUT
MIX 2 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 0
SAVE MICR 2 u238 pu240 ;
QUIT "LIST" .
|
