blob: 7fe3f30602bc1e5c0daa4caca4a9ff3f8237e17c (
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
|
*----
* case testVVER7.x2m
*----
HDF5_FILE MyMpo :: FILE './MyMpoVVER.hdf' ;
LINKED_LIST GEOM GEOM_SS TRACK TRACK_SS LIBRARY COMPO StepList OUT ;
MODULE UTL: END: ;
SEQ_BINARY TF_EXC_SS TF_EXC ;
SEQ_ASCII UOX_TBH UOX_TBH_SS ;
SEQ_ASCII FIG1.ps FIG_SS.ps ;
INTEGER Multicompo := 1 ;
STRING name_geom := "KML2_439GT_36Gd" ;
STRING Library := "DLIB_J3p1p1" ;
STRING ss := "uss" ;
STRING name_compo := "./_COMPO_" name_geom "_" ss + + + ;
PROCEDURE vverBU vverGEO vverMIX vverTRACK ;
PROCEDURE assertS ;
************************************************************************
* BURNUP, SELF-SHIELDING AND COMPO STEPS *
************************************************************************
INTEGER nstep := 2 ;
INTEGER ncompo := 2 ;
INTEGER nauto := 1 ;
StepList := UTL: :: CREA 'ListBU' <<nstep>> =
9.375 37.5 ;
StepList := UTL: StepList :: CREA 'ListCompo' <<ncompo>> =
9.375 37.5 ;
StepList := UTL: StepList :: CREA 'ListAutop' <<nauto>> =
37.5 ;
************************************************************************
* BEGIN GEOMETRY *
************************************************************************
ECHO "--------------- namegeom=" name_geom "---------------" ;
GEOM GEOM_SS := vverGEO :: <<name_geom>> ;
************************************************************************
* BEGIN TRACKING *s
************************************************************************
UOX_TBH FIG1.ps TRACK TF_EXC UOX_TBH_SS FIG_SS.ps TRACK_SS TF_EXC_SS :=
vverTRACK GEOM GEOM_SS ;
************************************************************************
* BEGIN LIBRARY READING *
************************************************************************
LIBRARY := vverMIX :: <<Library>> <<name_geom>> <<ss>> ;
************************************************************************
* BEGIN MyMpo CONSTRUCTION *
************************************************************************
COMPO := vverBU LIBRARY TRACK TF_EXC TRACK_SS TF_EXC_SS StepList ::
<<Multicompo>> <<name_geom>> <<name_compo>> <<ss>> ;
UTL: COMPO :: STEP UP EDIBU DIR STEP UP MIXTURES STEP AT 1
STEP UP CALCULATIONS STEP AT 2 ;
OUT := COMPO :: STEP UP EDIBU STEP UP MIXTURES STEP AT 1
STEP UP CALCULATIONS STEP AT 2 ;
assertS OUT :: 'K-EFFECTIVE' 1 1.008797 ;
ECHO "test testVVER7 completed" ;
END: ;
|
