Increase maximum line length in SETCSLL (#4)

This allows for CSLs that have up to 20 open shells at least. Co-authored-by: Per Jönsson <per.jonsson@mah.se>
compas · Dec 2, 2018 · 2f51bbd · 2f51bbd
1 parent 92021fc
commit 2f51bbd
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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