blob: 61347b5fb4084d50e40085a8ffba6897ae47ccba (
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
|
PARAMETER XSM :: ::: XSM_FILE XSM ; ;
LINKED_LIST C3 DISCRF LIBRARY LIBRARY2 CP CALC ;
MODULE GEO: SYBILT: LIB: MAC: AUTO: ASM: FLU: EDI: DELETE: ;
INTEGER COMB0101 COMB0102 COMB0103 COMB0104 COMB0105 COMB0106 GAIN1
MODE1 :=
1 2 3 4 5 6 7 8 ; (* 6 COURONNES *)
* 1 1 1 1 1 1 7 8 ; (* 1 COURONNE *)
REAL RCOMB1 RCOMB2 RCOMB3 RCOMB4 RCOMB5 RCOMB6 := 0.25899 0.34261
0.36627 0.38849 0.39913 0.4095 ;
*
C3 := GEO: :: CARCEL 8 (*CELLULE NORMALE*)
X- REFL X+ REFL Y- REFL Y+ REFL
MESHX 0.0 1.26
MESHY 0.0 1.26
RADIUS 0.0 <<RCOMB1>> <<RCOMB2>> <<RCOMB3>> <<RCOMB4>>
<<RCOMB5>> <<RCOMB6>> 0.4750 0.692879
MIX <<COMB0101>> <<COMB0102>> <<COMB0103>> <<COMB0104>>
<<COMB0105>> <<COMB0106>> <<GAIN1>> <<MODE1>> <<MODE1>>
;
DISCRF := SYBILT: C3 ::
TITLE 'CESCOL - BENCHMARK 12 U238 AVEC GAINE 25-04-89'
EDIT 3 ROTH ASKE MAXR 9 ;
LIBRARY := LIB: ::
EDIT 1 ANIS 1 NMIX 8
SUBG
MIXS LIB: DRAGON FIL: DUMMYDA
MIX <<COMB0101>> 973.16
'2387001' 2.2E-02 1
'16' 4.4E-2
MIX <<COMB0102>> COMB 1 1.0
MIX <<COMB0103>> COMB 1 1.0
MIX <<COMB0104>> COMB 1 1.0
MIX <<COMB0105>> COMB 1 1.0
MIX <<COMB0106>> COMB 1 1.0
MIX <<GAIN1>> 973.16
'52' 1.48E-2
'55' 9.0E-4
'56' 5.3E-2
'58' 6.9E-3
MIX <<MODE1>> 973.16
'16' 2.5E-2
'1' 5.0E-2
;
LIBRARY2 := AUTO: LIBRARY DISCRF :: EDIT 3 MAXT 50000 ;
LIBRARY2 := MAC: LIBRARY2 ::
READ INPUT
MIX <<MODE1>> 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 2 3 4 5 6 0 0 0
SAVE MICR 1 '2387001' ;
QUIT "LIST" .
|
