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/EDIDRV.f | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Dragon/src/EDIDRV.f') diff --git a/Dragon/src/EDIDRV.f b/Dragon/src/EDIDRV.f index 53ddd67..4c00e28 100644 --- a/Dragon/src/EDIDRV.f +++ b/Dragon/src/EDIDRV.f @@ -120,7 +120,7 @@ *---- * LOCAL VARIABLES *---- - PARAMETER (IUNOUT=6,MAXED=100,NSTATE=40,IOUT=6) + PARAMETER (IUNOUT=6,MAXED=300,NSTATE=40,IOUT=6) TYPE(C_PTR) JPFLUX,JPFLUA,IPMIC2,IPMAC2,IPADF,JPLIB,KPLIB, > KPEDIT,JPMAC2,KPMAC2 CHARACTER HSIGN*12,TEXT8*8,HVECT(MAXED)*8,NISEXT*6,NISOTX*12, -- cgit v1.2.3