From d2684353b5d42c6408477056a99e51665aa65ed3 Mon Sep 17 00:00:00 2001
From: Wim Haeck <whaeck@gmail.com>
Date: Mon, 27 Jan 2025 14:55:50 -0700
Subject: [PATCH] Set array size as parameter

---
 src/moder.f90 | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/moder.f90 b/src/moder.f90
index 4cc25a64..c5337492 100644
--- 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.