From 2cae80452a0a3f56b2390bdc0b5df7507a93eeb1 Mon Sep 17 00:00:00 2001 From: cianciosa Date: Fri, 19 Jul 2024 13:55:34 -0400 Subject: [PATCH] Increase temp buffer size to enable working on larger problem sizes. --- Sources/allocate_boozer.f | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Sources/allocate_boozer.f b/Sources/allocate_boozer.f index 38e251c..9935bbb 100644 --- a/Sources/allocate_boozer.f +++ b/Sources/allocate_boozer.f @@ -6,7 +6,7 @@ SUBROUTINE allocate_boozer (iread) C L o c a l V a r i a b l e s C----------------------------------------------- INTEGER :: i, jrad, istat1=0, istat2=0, istat3=0, iread, index - CHARACTER(LEN=1000) :: temp + CHARACTER(LEN=2000) :: temp CHARACTER(LEN=10) :: scanset='0123456789' c----------------------------------------------- IF (.not.ALLOCATED(jlist)) ALLOCATE (jlist(ns), lsurf_boz(ns),