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 /Skin++/data/pwr2010.c2m | |
Initial commit from Polytechnique Montreal
Diffstat (limited to 'Skin++/data/pwr2010.c2m')
| -rwxr-xr-x | Skin++/data/pwr2010.c2m | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/Skin++/data/pwr2010.c2m b/Skin++/data/pwr2010.c2m new file mode 100755 index 0000000..14d5042 --- /dev/null +++ b/Skin++/data/pwr2010.c2m @@ -0,0 +1,19 @@ + ! + ! Dummy pwr2010 computational scheme + ! + PARAMETER saphyb :: + ::: XSM_FILE saphyb ; ; + MODULE UTL: END: ; + STRING draglib type fuel rod homoge ; + :: >>draglib<< >>type<< >>fuel<< >>rod<< >>homoge<< ; + REAL u235 burnup ; + :: >>u235<< >>burnup<< ; + INTEGER ngroup ; + :: >>ngroup<< ; + + saphyb := UTL: :: CREA 'SIGNATURE' 3 = 'L_SA' 'PHYB' ' ' ; + ECHO "draglib=" draglib " type=" type " fuel=" fuel ; + ECHO "rod=" rod " homoge=" homoge " u235=" u235 ; + ECHO "burnup=" burnup " ngroup=" ngroup ; + + QUIT " Computational scheme *pwr2010* XREF " . |