blob: a1b414c2e85c4354db13f11d56c6e0403ebecac5 (
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
|
*----
* Windmill geometry constructed with G2S:
* UOX or MOX assembly with control rods out
* 1 HEX ; 1 HEXCEL
*----
SEQ_ASCII HEX_FIG ;
SEQ_ASCII HEX_PIN ;
SEQ_ASCII HEXCEL_FIG :: FILE './HEXCEL1_FIG.ps' ;
SEQ_ASCII HEXCEL_PIN :: FILE './HEXCEL1_PIN.dat' ;
LINKED_LIST GEOM GEOM2 ;
MODULE GEO: G2S: END: ;
* 1 HEX
GEOM := GEO: :: HEX 1
HBC S30 REFL
* SECT -1 0
MIX 1
SIDE 1. ;
HEX_PIN HEX_FIG := G2S: GEOM :: DRAWNOD ;
* 1 HEXCEL
GEOM2 := GEO: :: HEXCEL 2
HBC S30 REFL
SECT -1 1
RADIUS 0. 0.25 0.5
MIX 1 2 3 4 5 6 7 8 9 10 11 12 13
SIDE 1. ;
HEXCEL_PIN HEXCEL_FIG := G2S: GEOM2 :: DRAWNOD ;
ECHO "test hex_JST1 completed" ;
END: ;
|
