Extend length of string for reading region specification to 1000

This commit is contained in:
Paul Romano 2015-11-19 07:16:48 -06:00
parent 8fb299aa51
commit a592f2ad15

View file

@ -994,7 +994,7 @@ contains
logical :: boundary_exists
character(MAX_LINE_LEN) :: filename
character(MAX_WORD_LEN) :: word
character(MAX_LINE_LEN) :: region_spec
character(1000) :: region_spec
type(Cell), pointer :: c
class(Surface), pointer :: s
class(Lattice), pointer :: lat