blob: e1f7bfed8b9ffd2972c1736bc8d98bb1858476d5 (
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
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
|
*=====================================================================*
* FILE: HOM_fmap.c2m
* TYPE: DRAGON/DONJON proc file
* AUTHOR: Cristian Garrido Tamm (cristian.garrido@idom.com)
* PURPOSE: TODO
* CREATION DATE: Fri 07 Apr 2023 09:58:02 PM CEST
* LAST MODIFIED: Sat 08 Apr 2023 01:08:29 PM CEST
*---------------------------------------------------------------------*
* INPUT:
* TYPE | NAME | DEFINITION
* ------------|---------|-----------------------------
* REAL | reap | Dummy real input parameter
* INTEGER | intp | Dummy integer input parameter
* STRING | strp | Dummy string input parameter
* OUTPUT:
* TYPE | NAME | DEFINITION
* ------------|---------|-----------------------------
* LINKED_LIST | FMAP | Fuel map output linked list
* CALL:
* FMAP := HOM_fmap ::
* <<intp>> <<reap>> <<strp>> ;
*=====================================================================*
*---
* RECOVER INPUT DATA STRUCTURES
*---
PARAMETER FMAP MATEX ::
EDIT 0
::: LINKED_LIST FMAP MATEX ;
;
*---
* RECOVER INPUT PARAMETERS
*---
REAL Hside maxh ;
:: >>Hside<< >>maxh<< ;
REAL powi Tfuel Tcool Tmod ;
:: >>powi<< >>Tfuel<< >>Tcool<< >>Tmod<< ;
REAL Mass ;
:: >>Mass<< ;
*---
* DEFINE MODULES
*---
MODULE END: RESINI: UTL: ;
*---
* DEFINE DATA STRUCTURES
*---
*---
* DEFINE VARIABLES
*---
* Constants
STRING DOUBLE_LINE :=
"====================================================================" ;
STRING SINGLE_LINE :=
"--------------------------------------------------------------------" ;
LOGICAL True False := $True_L $False_L ;
STRING FILENAME := 'HOM_fmap' ;
* Options
INTEGER int ;
REAL rea ;
STRING str ;
*---
* BEGIN CALCULATION
*---
ECHO DOUBLE_LINE ;
ECHO 'BEGIN PROCEDURE ' FILENAME ;
ECHO DOUBLE_LINE ;
REAL z1 := maxh 20.0 / ;
REAL z2 := maxh 20.0 / z1 + ;
REAL z3 := maxh 20.0 / z2 + ;
REAL z4 := maxh 20.0 / z3 + ;
REAL z5 := maxh 20.0 / z4 + ;
REAL z6 := maxh 20.0 / z5 + ;
REAL z7 := maxh 20.0 / z6 + ;
REAL z8 := maxh 20.0 / z7 + ;
REAL z9 := maxh 20.0 / z8 + ;
REAL z10 := maxh 20.0 / z9 + ;
REAL z11 := maxh 20.0 / z10 + ;
REAL z12 := maxh 20.0 / z11 + ;
REAL z13 := maxh 20.0 / z12 + ;
REAL z14 := maxh 20.0 / z13 + ;
REAL z15 := maxh 20.0 / z14 + ;
REAL z16 := maxh 20.0 / z15 + ;
REAL z17 := maxh 20.0 / z16 + ;
REAL z18 := maxh 20.0 / z17 + ;
REAL z19 := maxh 20.0 / z18 + ;
REAL z20 := maxh 20.0 / z19 + ;
ECHO "input Matex" ;
UTL: MATEX :: DIR IMPR STATE-VECTOR * ;
FMAP MATEX := RESINI: MATEX ::
EDIT 50000
::: GEO: HEXZ 1 20
EDIT 3000
Z- VOID Z+ VOID
HBC COMPLETE REFL
SIDE <<Hside>>
SPLITL 1
MESHZ 0.0 <<z1>> <<z2>> <<z3>> <<z4>> <<z5>> <<z6>> <<z7>> <<z8>>
<<z9>> <<z10>> <<z11>> <<z12>> <<z13>> <<z14>> <<z15>> <<z16>>
<<z17>> <<z18>> <<z19>> <<z20>>
MIX
PLANE 1
1
PLANE 2 SAME 1
PLANE 3 SAME 1
PLANE 4 SAME 1
PLANE 5 SAME 1
PLANE 6 SAME 1
PLANE 7 SAME 1
PLANE 8 SAME 1
PLANE 9 SAME 1
PLANE 10 SAME 1
PLANE 11 SAME 1
PLANE 12 SAME 1
PLANE 13 SAME 1
PLANE 14 SAME 1
PLANE 15 SAME 1
PLANE 16 SAME 1
PLANE 17 SAME 1
PLANE 18 SAME 1
PLANE 19 SAME 1
PLANE 20 SAME 1
;
NHNAME C00A01
NCOMB ALL
INST-BVAL SAME 0.0
BUNDLE-POW SAME 10.0
ADD-PARAM PNAME 'T-FUEL' PARKEY 'TF' GLOBAL
ADD-PARAM PNAME 'T-COOL' PARKEY 'TC' GLOBAL
ADD-PARAM PNAME 'T-MODE' PARKEY 'TM' GLOBAL
SET-PARAM 'T-FUEL' <<Tfuel>>
SET-PARAM 'T-COOL' <<Tcool>>
SET-PARAM 'T-MODE' <<Tmod>>
*FUEL WEIGHT <<Mass>>
;
*---
* END CALCULATION
*---
ECHO DOUBLE_LINE ;
ECHO 'END PROCEDURE ' FILENAME ;
ECHO DOUBLE_LINE ;
END: ;
QUIT .
|
