diff --git a/src/geometry_header.F90 b/src/geometry_header.F90
index 20e437cac7..6ca13740ba 100644
--- a/src/geometry_header.F90
+++ b/src/geometry_header.F90
@@ -24,7 +24,7 @@ module geometry_header
 
   type, abstract :: Lattice
     integer              :: id               ! Universe number for lattice
-    character(len=52) :: name = ""          ! User-defined name
+    character(len=104)   :: name = ""        ! User-defined name
     real(8), allocatable :: pitch(:)         ! Pitch along each axis
     integer, allocatable :: universes(:,:,:) ! Specified universes
     integer              :: outside          ! Material to fill area outside
@@ -119,7 +119,7 @@ module geometry_header
 
   type Cell
     integer :: id                          ! Unique ID
-    character(len=52) :: name = ""         ! User-defined name
+    character(len=104) :: name = ""        ! User-defined name
     integer :: type                        ! Type of cell (normal, universe,
                                            !  lattice)
     integer :: universe                    ! universe # this cell is in
diff --git a/src/material_header.F90 b/src/material_header.F90
index a10382abd9..c2f4b51bc0 100644
--- a/src/material_header.F90
+++ b/src/material_header.F90
@@ -8,7 +8,7 @@ module material_header
 
   type Material
     integer              :: id              ! unique identifier
-    character(len=52) :: name = ""         ! User-defined name
+    character(len=104) :: name = ""         ! User-defined name
     integer              :: n_nuclides      ! number of nuclides
     integer, allocatable :: nuclide(:)      ! index in nuclides array
     real(8)              :: density         ! total atom density in atom/b-cm
diff --git a/src/tally_header.F90 b/src/tally_header.F90
index ca4e25fd86..01dcd9bdb5 100644
--- a/src/tally_header.F90
+++ b/src/tally_header.F90
@@ -74,7 +74,7 @@ module tally_header
     ! Basic data
 
     integer :: id                   ! user-defined identifier
-    character(len=52) :: name = "" ! user-defined name
+    character(len=104) :: name = "" ! user-defined name
     integer :: type                 ! volume, surface current
     integer :: estimator            ! collision, track-length
     real(8) :: volume               ! volume of region