From 7c453e211b55bbe4a7f6f33f71037522cd2359fd Mon Sep 17 00:00:00 2001
From: Alain Hebert <alainhebert@Alains-MacBook-Pro.local>
Date: Wed, 10 Dec 2025 21:23:57 +0100
Subject: #7: Add missing AVG_FLUX record in ADF directory of the macrolib

---
 Dragon/src/EDIGAP.f | 11 ++++-------
 1 file changed, 4 insertions(+), 7 deletions(-)

(limited to 'Dragon/src/EDIGAP.f')

diff --git a/Dragon/src/EDIGAP.f b/Dragon/src/EDIGAP.f
index 487478c..e0a7e31 100644
--- a/Dragon/src/EDIGAP.f
+++ b/Dragon/src/EDIGAP.f
@@ -1,6 +1,6 @@
 *DECK EDIGAP
       SUBROUTINE EDIGAP(IPADF,TEXT8,NGROUP,NGCOND,NREGIO,VOLUME,IGCOND,
-     1 FLUXES,FLUHOM,IPRINT,COURIN)
+     1 FLUXES,IPRINT,COURIN)
 *
 *-----------------------------------------------------------------------
 *
@@ -26,7 +26,6 @@
 * VOLUME  volume of regions.
 * IGCOND  limit of condensed groups.
 * FLUXES  heterogeneous gap fluxes.
-* FLUHOM  homogeneous fluxes.
 * IPRINT  print flag.
 *
 *Parameters: output
@@ -41,8 +40,7 @@
       TYPE(C_PTR) IPADF
       INTEGER NGROUP,NGCOND,NREGIO,IGCOND(NGCOND),IPRINT
       CHARACTER TEXT8*(*)
-      REAL VOLUME(NREGIO),FLUXES(NREGIO,NGROUP),FLUHOM(NGROUP),
-     1 COURIN(NGCOND)
+      REAL VOLUME(NREGIO),FLUXES(NREGIO,NGROUP),COURIN(NGCOND)
 *----
 *  LOCAL VARIABLES
 *----
@@ -67,12 +65,11 @@
    10 CONTINUE
       COURIN(IGRCD)=COURIN(IGRCD)+REAL(SUM/SUD)
    20 CONTINUE
-      COURIN(IGRCD)=COURIN(IGRCD)/FLUHOM(IGRCD)
    25 CONTINUE
       DEALLOCATE(IFGAP)
       IF(IPRINT.GT.3) THEN
-         WRITE(6,'(/19H EDIGAP: VALUES OF ,A,22H FLUXES OR ADF PER MAC,
-     1   13HRO-GROUPS ARE)') TEXT8
+         WRITE(6,'(/19H EDIGAP: VALUES OF ,A,22H GAP FLUXES PER MACRO-,
+     1   10HGROUPS ARE)') TEXT8
          WRITE(6,'(1X,1P,10E13.5)') (COURIN(IGRCD),IGRCD=1,NGCOND)
       ENDIF
       RETURN
-- 
cgit v1.2.3