--
-- Standard NJOY for ce acer library
--  Pu239 tape contains MT458 tabulated fission energy components
--  caveat: unresr and purr omitted for time constraints
--
moder
 1 -21
 'moder iopt=1, extract mat 9437 from input tape'
 20 9437/
 0/
--
-- standard reconr/pointwise processing
reconr
 -21 -22/
 'reconr/pendf tape for 9437'/
 9437 7/
 .001/
 'the following reaction types are added where available'/
 '     mt152   bondarenko unresolved'/
 '     mt153   unresolved probability tables'/
 '     mt20x   gas production'/
 '     mt221   free thermal scattering'/
 '     mt301   total heating kerma factor'/
 '     mt444   total damage energy production'/
 0 /
--
-- standard doppler broadening to room temp (293.6K)
broadr
 -21 -22 -23/
 9437 1 0 0/
 .001/
 293.6/
 0/
--
-- standard heatr processing w/partial kermas
heatr
 -21 -23 -24/
 9437 7/
 302 303 304 318 402 443 444/
--
-- heatr w/checks and plots
heatr
 -21 -23 -25 26/
 9437 7 0 1 0 2/
 302 303 304 318 402 443 444/
--
-- free gas
-- - njoy99.x card2: 0 9437 20 1 1 0 1 221 0/
-- - njoy2012 card2: 0 9437 20 1 1 0 0 1 221 0/
thermr
 0 -25 -27/
 0 9437 20 1 1 0 0 1 221 0/ njoy2012 input
 293.6/
 0.001 10./
--
-- gas production
gaspr
 -21 -27 -28
--
-- convert pendf tape from binary to ascii
moder
 -28 38
--
-- fast acer library
acer
 -21 -28 0 31 32
 1 0 1 .10 /
 'fast acer tape for material 9437' /
 9437 293.6 /
 /
 /
--
-- check library, plot library
-- tape34 is ACE file; tape35 is xsdir info
acer
 0 31 33 34 35
 7 1 1 -1 /
 'acer check/plot tape for material 9437' /
--
-- convert heatr plot file to .ps
-- *** skip over this if heatr was not run ***
viewr
 26 36
--
-- convert acer plot file to .ps
viewr
 33 37
--
-- finished
stop