blob: 14d5042ec16139679a764bcdcd38d427575d03df (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
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 " .
|
