diff --git a/src/geometry_header.f90 b/src/geometry_header.f90 index 95a50913ae..5b3858755f 100644 --- a/src/geometry_header.f90 +++ b/src/geometry_header.f90 @@ -15,7 +15,6 @@ module geometry_header real(8) :: x0 ! Translation in x-coordinate real(8) :: y0 ! Translation in y-coordinate real(8) :: z0 ! Translation in z-coordinate - integer, allocatable :: tallies(:) end type Universe !=============================================================================== @@ -34,7 +33,6 @@ module geometry_header real(8) :: width_x ! width of lattice cell real(8) :: width_y ! width of lattice cell integer, allocatable :: element(:,:) ! specified universes - integer, allocatable :: tallies(:) end type Lattice !=============================================================================== @@ -68,7 +66,6 @@ module geometry_header & surfaces(:) ! List of surfaces bounding cell -- note that ! parentheses, union, etc operators will be listed ! here too - integer, allocatable :: tallies(:) end type Cell ! array index of universe 0 diff --git a/src/material_header.f90 b/src/material_header.f90 index 00e5b0a68d..ac77394d76 100644 --- a/src/material_header.f90 +++ b/src/material_header.f90 @@ -15,7 +15,6 @@ module material_header real(8) :: density ! total atom density in atom/b-cm real(8), allocatable :: atom_density(:) ! nuclide atom density in atom/b-cm real(8), allocatable :: atom_percent(:) ! atom/weight percent (negative for weight) - real(8), allocatable :: total_xs(:) ! macroscopic cross-section ! S(a,b) data references logical :: has_sab_table = .false.