Input Instructions for THERMR

     ******************************************************************
     *                                                                *
     *  card 1                                                        *
     *     nendf      endf/b tape for mf7 data                        *
     *     nin        old pendf tape                                  *
     *     nout       new pendf tape                                  *
     *  card 2                                                        *
     *     matde      material desired on endf tape                   *
     *     matdp      material desired on pendf tape                  *
     *     nbin       number of equi-probable angles                  *
     *     ntemp      number of temperatures                          *
     *     iinc       inelastic options                               *
     *                   0     none                                   *
     *                   1     compute as free gas                    *
     *                   2     reserved                               *
     *                   3     reserved                               *
     *                   4     read s(a,b) and compute matrix         *
     *     icoh       elastic options                                 *
     *                   0     none                                   *
     *                   1     graphite                               *
     *                   2     beryllium                              *
     *                   3     beryllium oxide                        *
     *                  11     polyethylene                           *
     *                  12     h(zrh)                                 *
     *                  13     zr(zrh)                                *
     *     natom      number of principal atoms                       *
     *     mtref      mt for inelastic reaction (201-250 only)        *
     *     iprint     print option (0=minimum, 1=maximum,             *
     *                2=max. normal + intermediate results)           *
     *                (default=0)                                     *
     *  card 3                                                        *
     *     tempr      temperatures (kelvin)                           *
     *  card 4                                                        *
     *     tol        tolerance                                       *
     *     emax       maximum energy for thermal treatment            *
     *                (for temperatures greater than 3000,            *
     *                emax and the energy grid are scaled by          *
     *                temp/300.  free gas only.)                      *
     *                                                                *
     *       nendf can be endf-6 format (e.g., from leapr) while      *
     *       nin and nout are endf-4 or 5 format, if desired.         *
     *                                                                *
     ******************************************************************