From bb9c0ea40cae0cbe6e1169c935474ed88ca17b83 Mon Sep 17 00:00:00 2001
From: Will Boyd <wbinventor@gmail.com>
Date: Mon, 12 Oct 2015 23:41:42 -0400
Subject: [PATCH] Made surface name 104 characters

---
 src/surface_header.F90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/surface_header.F90 b/src/surface_header.F90
index 6fc1bbc237..29dcddb4e0 100644
--- a/src/surface_header.F90
+++ b/src/surface_header.F90
@@ -15,7 +15,7 @@ module surface_header
          neighbor_pos(:), &           ! List of cells on positive side
          neighbor_neg(:)              ! List of cells on negative side
     integer :: bc                     ! Boundary condition
-    character(len=52) :: name = ""    ! User-defined name
+    character(len=104) :: name = ""    ! User-defined name
   contains
     procedure :: sense
     procedure :: reflect