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