echo 'NJOY Test Problem 9'
echo 'getting endf tape 511'
cp ../t511 tape20
echo 'running njoy'
cat>input <<EOF
 moder
 20 -21
 reconr
 -21 -22
 'pendf tape for h-1 from endf/b tape 511'/
 1301 3/
 .005/
 '1-h-1 from tape 511'/
 'processed by the njoy nuclear data processing system'/
 'see original endf/b-v tape for details of evaluation'/
 0/
 broadr
 -21 -22 -23
 1301 1/
 .005/
 296.
 0/
 leapr
 24 
 'h in h2o, shortened endf model'/
 1 1/
  101 1001./
  0.99917 20.449 2 0 0/
  1 1. 15.85316 3.8883 1/
 65 75 1/
  .01008 .015 .0252 .033 0.050406
  .0756 0.100812 0.151218 0.201624 0.252030 0.302436 0.352842
  0.403248 0.453654 0.504060 0.554466 0.609711 0.670259 0.736623
  0.809349 0.889061 0.976435 1.072130 1.177080 1.292110 1.418220
  1.556330 1.707750 1.873790 2.055660 2.255060 2.473520 2.712950
  2.975460 3.263080 3.578320 3.923900 4.302660 4.717700 5.172560
  5.671180 6.217580 6.816500 7.472890 8.192280 8.980730 9.844890
  10.79190 11.83030 12.96740 14.21450 15.58150 17.07960 18.72080
  20.52030 22.49220 24.65260 27.02160 29.61750 32.46250 35.58160
  38.99910 42.74530 46.85030 50.0/
  0.000000 0.006375 0.012750 0.025500 0.038250 0.051000 0.065750
  .0806495 0.120974 0.161299 0.241949 0.322598 0.403248 0.483897
  0.564547 0.645197 0.725846 0.806496 0.887145 0.967795 1.048440
  1.129090 1.209740 1.290390 1.371040 1.451690 1.532340 1.612990
  1.693640 1.774290 1.854940 1.935590 2.016240 2.096890 2.177540
  2.258190 2.338840 2.419490 2.500140 2.580790 2.669500 2.767090
  2.874450 2.992500 3.122350 3.265300 3.422470 3.595360 3.785490
  3.994670 4.224730 4.477870 4.756310 5.062580 5.399390 5.769970
  6.177660 6.626070 7.119240 7.661810 8.258620 8.915110 9.637220
  10.43200 11.30510 12.26680 13.32430 14.48670 15.76600 17.17330
  18.72180 20.42450 22.29760 24.35720 25.0/
 296/
  .00255 67/
    0 .0005 .001 .002 .0035 .005 .0075 .01 .013 .0165 .02 .0245
    .029 .034 .0395 .045 .0506 .0562 .0622 .0686 .075 .083 .091
    .099 .107 .115 .1197 .1214 .1218 .1195 .1125 .1065 .1005 .09542
    .09126 .0871 .0839 .0807 .07798 .07574 .0735 .07162 .06974
    .06804 .06652 .065 .0634 .0618 .06022 .05866 .0571 .05586
    .05462 .0535 .0525 .0515 .05042 .04934 .04822 .04706 .0459
    .04478 .04366 .04288 .04244 .042 0./
 0.055556 0. 0.444444 0./  for diffusion, use 120. for second number
  2/
  .205 .48/
  .166667 .333333/
 ' h(h2o) thermal scattering '/
 ' '/
 ' temperatures = 296 deg k. '/
 ' '/
 ' shortened version of the endf/b-vi.4 evaluation for '/
 ' hydrogen in water.  the energy transfer is limited to '/
 ' 0.625 ev.  this is only for njoy testing, not for '/
 ' real applications. '/
 /
 thermr
 24 -23 -25
 101 1301 8 1 4 1 1 222 2
 296.
 .05 .625
stop
EOF
../xnjoy<input
echo 'saving output and pendf files'
cp output out09 
cp tape24 pend09