blob: 58e0a1282307aeaadc8f59eb1468290bdc1bd0e5 (
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
|
***********************************************************
* *
* Procedure : SetParam.c2m *
* Purpose : Set global parameters in L_MAP object *
* *
* CALL : FMAP := SetParam FMAP :: (data) ; *
* *
***********************************************************
PARAMETER FMAP :: ::: LINKED_LIST FMAP ; ;
MODULE RESINI: END: ;
PROCEDURE IniBurnA IniBurnB IniBurnC ;
REAL densB1 temp_comb temp_mode dens_mode ;
:: >>densB1<< >>temp_comb<< >>temp_mode<< >>dens_mode<< ;
REAL B1 B2 B3 B4 B5 B6 ;
REAL B7 B8 B9 B10 B11 B12 ;
REAL B13 B14 B15 B16 B17 B18 ;
REAL B19 B20 B21 B22 B23 B24 ;
REAL B25 B26 B27 B28 B29 B30 ;
REAL B31 B32 B33 B34 B35 B36 ;
REAL B37 B38 B39 B40 B41 B42 ;
REAL B43 B44 B45 B46 B47 B48 ;
REAL B49 B50 B51 B52 B53 B54 ;
REAL B55 B56 B57 B58 B59 B60 ;
REAL B61 B62 B63 B64 B65 B66 ;
REAL B67 B68 B69 B70 B71 B72 ;
REAL B73 B74 B75 B76 B77 B78 ;
REAL B79 B80 B81 B82 B83 B84 ;
REAL B85 B86 B87 B88 B89 B90 ;
REAL B91 B92 B93 B94 B95 B96 ;
REAL B97 B98 B99 B100 B101 B102 ;
REAL B103 B104 B105 B106 B107 B108 ;
REAL B109 B110 B111 B112 B113 B114 ;
REAL B115 B116 B117 B118 B119 B120 ;
REAL B121 B122 B123 B124 B125 B126 ;
REAL B127 B128 B129 B130 B131 B132 ;
REAL B133 B134 B135 B136 B137 B138 ;
REAL B139 B140 B141 B142 B143 B144 ;
REAL B145 B146 B147 B148 B149 B150 ;
REAL B151 B152 B153 B154 B155 B156 ;
REAL B157 ;
IniBurnA ::
>>B1<< >>B2<< >>B3<< >>B4<< >>B5<< >>B6<<
>>B7<< >>B8<< >>B9<< >>B10<< >>B11<< >>B12<<
>>B13<< >>B14<< >>B15<< >>B16<< >>B17<< >>B18<<
>>B19<< >>B20<< >>B21<< >>B22<< >>B23<< >>B24<<
>>B25<< >>B26<< >>B27<< >>B28<< >>B29<< >>B30<<
>>B31<< >>B32<< >>B33<< >>B34<< >>B35<< >>B36<<
>>B37<< >>B38<< >>B39<< >>B40<< >>B41<< >>B42<<
>>B43<< >>B44<< >>B45<< >>B46<< >>B47<< >>B48<<
>>B49<< >>B50<< >>B51<< >>B52<< >>B53<< >>B54<<
>>B55<< ;
IniBurnB ::
>>B56<< >>B57<< >>B58<< >>B59<< >>B60<<
>>B61<< >>B62<< >>B63<< >>B64<< >>B65<< >>B66<<
>>B67<< >>B68<< >>B69<< >>B70<< >>B71<< >>B72<<
>>B73<< >>B74<< >>B75<< >>B76<< >>B77<< >>B78<<
>>B79<< >>B80<< >>B81<< >>B82<< >>B83<< >>B84<<
>>B85<< >>B86<< >>B87<< >>B88<< >>B89<< >>B90<<
>>B91<< >>B92<< >>B93<< >>B94<< >>B95<< >>B96<<
>>B97<< >>B98<< >>B99<< >>B100<< >>B101<< >>B102<<
>>B103<< >>B104<< >>B105<< >>B106<< >>B107<< >>B108<<
>>B109<< >>B110<< ;
IniBurnC ::
>>B111<< >>B112<< >>B113<< >>B114<<
>>B115<< >>B116<< >>B117<< >>B118<< >>B119<< >>B120<<
>>B121<< >>B122<< >>B123<< >>B124<< >>B125<< >>B126<<
>>B127<< >>B128<< >>B129<< >>B130<< >>B131<< >>B132<<
>>B133<< >>B134<< >>B135<< >>B136<< >>B137<< >>B138<<
>>B139<< >>B140<< >>B141<< >>B142<< >>B143<< >>B144<<
>>B145<< >>B146<< >>B147<< >>B148<< >>B149<< >>B150<<
>>B151<< >>B152<< >>B153<< >>B154<< >>B155<< >>B156<<
>>B157<< ;
FMAP := RESINI: FMAP :: EDIT 2
BTYPE INST-BURN
INST-BVAL CHAN
<<B1>> <<B2>> <<B3>> <<B4>> <<B5>> <<B6>>
<<B7>> <<B8>> <<B9>> <<B10>> <<B11>> <<B12>>
<<B13>> <<B14>> <<B15>> <<B16>> <<B17>> <<B18>>
<<B19>> <<B20>> <<B21>> <<B22>> <<B23>> <<B24>>
<<B25>> <<B26>> <<B27>> <<B28>> <<B29>> <<B30>>
<<B31>> <<B32>> <<B33>> <<B34>> <<B35>> <<B36>>
<<B37>> <<B38>> <<B39>> <<B40>> <<B41>> <<B42>>
<<B43>> <<B44>> <<B45>> <<B46>> <<B47>> <<B48>>
<<B49>> <<B50>> <<B51>> <<B52>> <<B53>> <<B54>>
<<B55>> <<B56>> <<B57>> <<B58>> <<B59>> <<B60>>
<<B61>> <<B62>> <<B63>> <<B64>> <<B65>> <<B66>>
<<B67>> <<B68>> <<B69>> <<B70>> <<B71>> <<B72>>
<<B73>> <<B74>> <<B75>> <<B76>> <<B77>> <<B78>>
<<B79>> <<B80>> <<B81>> <<B82>> <<B83>> <<B84>>
<<B85>> <<B86>> <<B87>> <<B88>> <<B89>> <<B90>>
<<B91>> <<B92>> <<B93>> <<B94>> <<B95>> <<B96>>
<<B97>> <<B98>> <<B99>> <<B100>> <<B101>> <<B102>>
<<B103>> <<B104>> <<B105>> <<B106>> <<B107>> <<B108>>
<<B109>> <<B110>> <<B111>> <<B112>> <<B113>> <<B114>>
<<B115>> <<B116>> <<B117>> <<B118>> <<B119>> <<B120>>
<<B121>> <<B122>> <<B123>> <<B124>> <<B125>> <<B126>>
<<B127>> <<B128>> <<B129>> <<B130>> <<B131>> <<B132>>
<<B133>> <<B134>> <<B135>> <<B136>> <<B137>> <<B138>>
<<B139>> <<B140>> <<B141>> <<B142>> <<B143>> <<B144>>
<<B145>> <<B146>> <<B147>> <<B148>> <<B149>> <<B150>>
<<B151>> <<B152>> <<B153>> <<B154>> <<B155>> <<B156>>
<<B157>>
SET-PARAM 'C-BORE' <<densB1>>
SET-PARAM 'T-FUEL' <<temp_comb>>
SET-PARAM 'T-COOL' <<temp_mode>>
SET-PARAM 'D-COOL' <<dens_mode>>
;
|
