From 2dc73878b1bc97487218d38eb1855e046cddb24b Mon Sep 17 00:00:00 2001
From: Theophile Terraz <theophile.terraz@inrae.fr>
Date: Wed, 22 Jun 2022 10:06:20 +0200
Subject: [PATCH] use modules in verifconfluence

---
 rubarbe.f90 | 11 ++---------
 1 file changed, 2 insertions(+), 9 deletions(-)

diff --git a/rubarbe.f90 b/rubarbe.f90
index 1575d9f..4ed8de5 100644
--- a/rubarbe.f90
+++ b/rubarbe.f90
@@ -26057,21 +26057,14 @@
 !ccccccccccccccccccccccccccccccccccccccccccccccccccccc
 
       use parameters,only:NBMAX
+      use donnees_etude,only:ETUDEDD,CONDAM,CONDAV,REGIME
 
       IMPLICIT NONE
 
 ! Données de base
 !----------------
-      CHARACTER ETUDEDD*20
-      INTEGER :: CONDAM(NBMAX),CONDAV(NBMAX),REGIME(NBMAX)
       INTEGER :: NCONF,CONFLU(NBMAX,3),NCONF2,INDAMONT,IB,ICONF,NBB
-          LOGICAL :: VERIF
-
-! Variables contenues dans 'donnee.etude'
-!----------------------------------------
-      COMMON/NOMETU/ETUDEDD
-      COMMON/CONDLI/CONDAM,CONDAV,REGIME
-
+      LOGICAL :: VERIF
 
 ! 9)VARIABLES NBIEFS
 !----------------------------------
-- 
GitLab