diff options
Diffstat (limited to 'Donjon/data/rep900_msap_proc/IniBurnB.c2m')
| -rwxr-xr-x | Donjon/data/rep900_msap_proc/IniBurnB.c2m | 83 |
1 files changed, 83 insertions, 0 deletions
diff --git a/Donjon/data/rep900_msap_proc/IniBurnB.c2m b/Donjon/data/rep900_msap_proc/IniBurnB.c2m new file mode 100755 index 0000000..b07527a --- /dev/null +++ b/Donjon/data/rep900_msap_proc/IniBurnB.c2m @@ -0,0 +1,83 @@ +*DECK IniBurn.c2m +*---- +* Name : IniBurnB.c2m +* Type : DONJON procedure +* Use : Initial burnup assembly per assembly for +* assembly 55 to 108 +* Procedure called as: +* +* IniBurn :: +* >>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<< ; +* +* Output data: +* B### : initial burnup of assembly ### +*---- +* Definition of the input and output data structures and +* of the input and output parameters for this procedure +*---- + +MODULE END: ; + +REAL 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 ; + +*---- +* Get initial burnups +*---- + +EVALUATE + 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 := + 0. + 39000. 0. 39000. 13000. 26000. 13000. 13000. + 26000. 13000. + 13000. 26000. 13000. 39000. 0. 39000. + 39000. 0. 39000. 13000. 13000. 26000. 26000. + 26000. 26000. + 26000. 13000. 13000. 39000. 0. 39000. + 39000. 0. 39000. 13000. 26000. 13000. 13000. + 26000. 13000. + 13000. 26000. 13000. 39000. 0. 39000. + 0. 26000. 26000. 13000. 39000. 13000. 26000. + 13000. 39000. + ; + +:: <<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>> ; + +END: ; + +QUIT "LIST" . |