Skip to content

Commit 2f51bbd

Browse files
mortenpitspejo
andauthored
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>
1 parent 92021fc commit 2f51bbd

1 file changed

Lines changed: 1 addition & 1 deletion

File tree

src/lib/lib9290/setcsll.f90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -29,7 +29,7 @@ SUBROUTINE SETCSLL(NUNIT, NAME, NBLKIN, NBLOCK, NCFBLK, NCFTOT, IDBLK)
2929
!-----------------------------------------------
3030
INTEGER :: I, NCSF, IOS, IERR
3131
LOGICAL :: FOUND
32-
CHARACTER :: STR*15, CH*2, LINE3*100
32+
CHARACTER :: STR*15, CH*2, LINE3*200
3333
!-----------------------------------------------
3434
! Locals
3535

0 commit comments

Comments
 (0)