From 2f51bbd6f138ea7d521b652fa3e21a6a78c5c00d Mon Sep 17 00:00:00 2001 From: Morten Piibeleht Date: Mon, 3 Dec 2018 12:00:55 +1300 Subject: [PATCH] Increase maximum line length in SETCSLL (#4) MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit This allows for CSLs that have up to 20 open shells at least. Co-authored-by: Per Jönsson --- src/lib/lib9290/setcsll.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/lib/lib9290/setcsll.f90 b/src/lib/lib9290/setcsll.f90 index 26ea31a50..58e66dcc1 100644 --- a/src/lib/lib9290/setcsll.f90 +++ b/src/lib/lib9290/setcsll.f90 @@ -29,7 +29,7 @@ SUBROUTINE SETCSLL(NUNIT, NAME, NBLKIN, NBLOCK, NCFBLK, NCFTOT, IDBLK) !----------------------------------------------- INTEGER :: I, NCSF, IOS, IERR LOGICAL :: FOUND - CHARACTER :: STR*15, CH*2, LINE3*100 + CHARACTER :: STR*15, CH*2, LINE3*200 !----------------------------------------------- ! Locals