Set array size as parameter

njoy · Jan 27, 2025 · d268435 · d268435
1 parent b354f24
commit d268435
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/moder.f90 b/src/moder.f90
@@ -54,6 +54,7 @@ subroutine moder
    integer::nin,nout,no,loop,i,nz,inout
    integer::matd,mend,ig,nk,ik,nb,nw
    integer::nscr,ninl,matl
+   integer,parameter::nbuf=1000000
    real(kr)::time
    character(105)::strng
    character(4)::hb(17)
@@ -68,7 +69,7 @@ subroutine moder
    ninl=0
    matl=-2
 
-   allocate(a(1000000)) ! deallocated automatically at end of subroutine
+   allocate(a(nbuf)) ! deallocated automatically at end of subroutine
 
    !--read user input, initialize,
    !--and write output header.