From 17929842130b2314ca62426189362da38c042198 Mon Sep 17 00:00:00 2001 From: andrew-platt Date: Thu, 25 Aug 2022 14:57:30 -0600 Subject: [PATCH] HD: increase max length of line read from kinematics files --- modules/hydrodyn/src/UserWaves.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/modules/hydrodyn/src/UserWaves.f90 b/modules/hydrodyn/src/UserWaves.f90 index a979b5df93..4689ba2438 100644 --- a/modules/hydrodyn/src/UserWaves.f90 +++ b/modules/hydrodyn/src/UserWaves.f90 @@ -944,7 +944,7 @@ FUNCTION ExtractFields(FU, s, n) result(OK) CHARACTER(*), INTENT(OUT) :: s(n) !< Fields LOGICAL :: OK ! Local var - CHARACTER(2048) :: TextLine !< One line of text read from the file + CHARACTER(65536) :: TextLine !< One line of text read from the file OK=.TRUE. ! Read line