Update comment on mscr.

njoy · Oct 17, 2023 · e96a5f7 · e96a5f7
1 parent 766e2b1
commit e96a5f7
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/leapr.f90 b/src/leapr.f90
@@ -413,7 +413,7 @@ subroutine leapr
    isym=0
    if (ncold.ne.0) isym=1
    if (isabt.eq.1) isym=isym+2
-   mscr = 8 + 2*nalpha ! This should be max lengths of scr based on endout
+   mscr = 8 + 2*nalpha ! Max needed length of scr based on endout
    allocate(scr(mscr))
    call endout(ntempr,bragg,nedge,maxb,scr,mscr,isym,ilog)