From 8dd8f111ff4d95bac5a846a77e7e1ad00c51b32a Mon Sep 17 00:00:00 2001 From: David A Minton Date: Mon, 31 May 2021 09:38:46 -0400 Subject: [PATCH] Increase STRMAX to read in long SEED lists --- src/modules/swiftest_globals.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/modules/swiftest_globals.f90 b/src/modules/swiftest_globals.f90 index 789948fa1..1526ec409 100644 --- a/src/modules/swiftest_globals.f90 +++ b/src/modules/swiftest_globals.f90 @@ -43,7 +43,7 @@ module swiftest_globals !integer(I4B), parameter :: RMVS = 7 !integer(I4B), parameter :: SYMBA = 8 - integer(I4B), parameter :: STRMAX = 128 + integer(I4B), parameter :: STRMAX = 1024 !! Maximum size of character strings character(*), parameter :: REAL4_TYPE = "REAL4"