From 7dfcc480ba1e19bd3232349fc733caef94034292 Mon Sep 17 00:00:00 2001 From: stainer_t Date: Mon, 8 Sep 2025 13:48:49 +0200 Subject: Initial commit from Polytechnique Montreal --- Donjon/data/rep900_msap_proc/SetParam.c2m | 114 ++++++++++++++++++++++++++++++ 1 file changed, 114 insertions(+) create mode 100755 Donjon/data/rep900_msap_proc/SetParam.c2m (limited to 'Donjon/data/rep900_msap_proc/SetParam.c2m') diff --git a/Donjon/data/rep900_msap_proc/SetParam.c2m b/Donjon/data/rep900_msap_proc/SetParam.c2m new file mode 100755 index 0000000..58e0a12 --- /dev/null +++ b/Donjon/data/rep900_msap_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 + <> <> <> <> <> <> + <> <> <> <> <> <> + <> <> <> <> <> <> + <> <> <> <> <> <> + <> <> <> <> <> <> + <> <> <> <> <> <> + <> <> <> <> <> <> + <> <> <> <> <> <> + <> <> <> <> <> <> + <> <> <> <> <> <> + <> <> <> <> <> <> + <> <> <> <> <> <> + <> <> <> <> <> <> + <> <> <> <> <> <> + <> <> <> <> <> <> + <> <> <> <> <> <> + <> <> <> <> <> <> + <> <> <> <> <> <> + <> <> <> <> <> <> + <> <> <> <> <> <> + <> <> <> <> <> <> + <> <> <> <> <> <> + <> <> <> <> <> <> + <> <> <> <> <> <> + <> <> <> <> <> <> + <> <> <> <> <> <> + <> + + SET-PARAM 'C-BORE' <> + SET-PARAM 'T-FUEL' <> + SET-PARAM 'T-COOL' <> + SET-PARAM 'D-COOL' <> + ; -- cgit v1.2.3