diff options
| author | stainer_t <thomas.stainer@oecd-nea.org> | 2025-09-08 13:48:49 +0200 |
|---|---|---|
| committer | stainer_t <thomas.stainer@oecd-nea.org> | 2025-09-08 13:48:49 +0200 |
| commit | 7dfcc480ba1e19bd3232349fc733caef94034292 (patch) | |
| tree | 03ee104eb8846d5cc1a981d267687a729185d3f3 /Donjon/data/rep900_mphy_proc/SetParam.c2m | |
Initial commit from Polytechnique Montreal
Diffstat (limited to 'Donjon/data/rep900_mphy_proc/SetParam.c2m')
| -rwxr-xr-x | Donjon/data/rep900_mphy_proc/SetParam.c2m | 114 |
1 files changed, 114 insertions, 0 deletions
diff --git a/Donjon/data/rep900_mphy_proc/SetParam.c2m b/Donjon/data/rep900_mphy_proc/SetParam.c2m new file mode 100755 index 0000000..58e0a12 --- /dev/null +++ b/Donjon/data/rep900_mphy_proc/SetParam.c2m @@ -0,0 +1,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>> + ; |