From c234e0ad4a63b37eeb4f93ac05588403a60f2b20 Mon Sep 17 00:00:00 2001 From: Alain Hebert Date: Sun, 2 Nov 2025 13:21:20 +0100 Subject: #10: Correct a power normalization issue in module EVO: --- Dragon/src/EDI.f | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Dragon/src/EDI.f') diff --git a/Dragon/src/EDI.f b/Dragon/src/EDI.f index cb9ed74..9d8872d 100644 --- a/Dragon/src/EDI.f +++ b/Dragon/src/EDI.f @@ -52,7 +52,7 @@ *---- * LOCAL VARIABLES *---- - PARAMETER (NSTATE=40,IOUT=6,MAXED=100,MAXOUT=100) + PARAMETER (NSTATE=40,IOUT=6,MAXED=300,MAXOUT=100) TYPE(C_PTR) IPEDIT,IPFLUX,IPTRK1,IPLIB,JPMAC,KPMAC,IPGEO1,IPGEO2, > JPFLUX,IPSYS,IPMRG CHARACTER*12 TEXT12,CDOOR,OLDGEO,MACGEO,CURNAM,OLDNAM,HSIGN, -- cgit v1.2.3