anchor.diff:         ACE_THERMAL   = 2, & ! thermal S(a,b) scattering data
          ACE_DOSIMETRY = 3    ! dosimetry cross sections
   
  +  ! Fission neutron emission (nu) type
  +  integer, parameter ::   &
  +       NU_NONE       = 0, & ! No nu values (non-fissionable)
  +       NU_POLYNOMIAL = 1, & ! Nu values given by polynomial
  +       NU_TABULAR    = 2    ! Nu values given by tabular distribution
  +
  +  ! Cross section filetypes
  +  integer, parameter :: &
  +       ASCII  = 1, & ! ASCII cross section file
  +       BINARY = 2    ! Binary cross section file
  +
  +  ! Maximum number of partial fission reactions
  +  integer, parameter :: PARTIAL_FISSION_MAX = 4
  +
  +  ! ============================================================================
  +  ! TALLY-RELATED CONSTANTS
  +
     ! Tally macro reactions
     integer, parameter :: N_MACRO_TYPES = 15
     integer, parameter :: &
  
positive.code:        IN_TOP    = 5,   &
         OUT_TOP   = 6
  
    ! Fission neutron emission (nu) type
    integer, parameter ::   &
         NU_NONE       = 0, & ! No nu values (non-fissionable)
         NU_POLYNOMIAL = 1, & ! Nu values given by polynomial
         NU_TABULAR    = 2    ! Nu values given by tabular distribution
  
    ! Cross section filetypes
    integer, parameter :: &
         ASCII  = 1, & ! ASCII cross section file
         BINARY = 2    ! Binary cross section file
  
    ! Maximum number of partial fission reactions
    integer, parameter :: PARTIAL_FISSION_MAX = 4
  
    ! Maximum number of words in a single line, length of line, and length of
    ! single word
    integer, parameter :: MAX_WORDS    = 500
    integer, parameter :: MAX_LINE_LEN = 250
    integer, parameter :: MAX_WORD_LEN = 150
    integer, parameter :: MAX_FILE_LEN = 255
  
    ! Unit numbers
    integer, parameter :: UNIT_LOG   = 11 ! unit # for writing log file
  
negative.code:        & SENSE_POSITIVE = 1, &
         & SENSE_NEGATIVE = -1
  
    ! ============================================================================
    ! CROSS SECTION RELATED CONSTANTS
  
    ! Interpolation flag
    integer, parameter ::     &
  