blob: c4af9d51cac692bf9da7022646df4ab26a87f24a (
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
|
*----
* Windmill geometry constructed with G2S:
* UOX or MOX assembly with control rods out
* 1 CAR ; 1 CARCEL
*----
SEQ_ASCII CAR_FIG ;
SEQ_ASCII CAR_PIN ;
SEQ_ASCII CARCEL_FIG :: FILE './CARCELP131_FIG.ps' ;
SEQ_ASCII CARCEL_PIN :: FILE './CARCELP131_PIN.dat' ;
LINKED_LIST GEOM GEOM2 ;
MODULE GEO: G2S: END: ;
* 1 CAR
GEOM := GEO: :: CAR2D 1 1
X- REFL Y- REFL
X+ REFL Y+ REFL
* SECT 1 0
MESHX 0. 1.
MESHY 0. 1.
MIX 1 ;
CAR_PIN CAR_FIG := G2S: GEOM :: DRAWNOD ;
* 1 CARCEL
GEOM2 := GEO: :: CARCEL 2
X- REFL Y- REFL
X+ REFL Y+ REFL
SECT 3 1
MESHX 0. 1.
MESHY 0. 1.
RADIUS 0. 0.25 0.55
MIX 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 ;
CARCEL_PIN CARCEL_FIG := G2S: GEOM2 :: DRAWNOD ;
ECHO "test cP1_JST1_IS3 completed" ;
END: ;
|
