From: NATHALIE GORE Date: Fri, 23 Aug 2024 09:27:16 +0000 (+0200) Subject: Patching include X-Git-Url: http://git.salome-platform.org/gitweb/?a=commitdiff_plain;h=34530ad7845dba45eb079e19096a3d24e5bb087a;p=modules%2Fhomard.git Patching include --- diff --git a/patchFortran.py b/patchFortran.py new file mode 100644 index 00000000..8c063907 --- /dev/null +++ b/patchFortran.py @@ -0,0 +1,39 @@ +#!/usr/bin/env python3 +# -*- coding: utf-8 -*- +import os + +def replace_string_in_files(directory, file_extension, old_string, new_string): + # Parcourir tous les fichiers du répertoire + for subdir, dirs, files in os.walk(directory): + for file in files: + # Vérifier l'extension du fichier + if file.endswith(file_extension): + file_path = os.path.join(subdir, file) + + # Lire le contenu du fichier + with open(file_path, 'r', encoding='utf-8') as f: + content = f.read() + + # Remplacer l'ancienne chaîne par la nouvelle + new_content = content.replace(old_string, new_string) + + # Écrire le nouveau contenu dans le fichier + with open(file_path, 'w', encoding='utf-8') as f: + f.write(new_content) + + print(f"Modifié: {file_path}") + +# Exemples d'utilisation +# Répertoire où se trouvent les fichiers +directory = '/home/ng13417n/salome/modules/homard' + +# Extension des fichiers à traiter (par exemple '.txt') +file_extension = '.F' + +# Chaîne à remplacer +old_string = '#include ' + +# Nouvelle chaîne +new_string = ' include ' + +replace_string_in_files(directory, file_extension, old_string, new_string) \ No newline at end of file diff --git a/src/tool/AP_Conversion/pccac1.F b/src/tool/AP_Conversion/pccac1.F index b41cca89..6d7e4764 100644 --- a/src/tool/AP_Conversion/pccac1.F +++ b/src/tool/AP_Conversion/pccac1.F @@ -54,17 +54,17 @@ c character*6 nompro parameter ( nompro = 'PCCAC1' ) c -#include "nblang.h" -#include "consts.h" -#include "meddc0.h" + include "nblang.h" + include "consts.h" + include "meddc0.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "esutil.h" -#include "gmenti.h" -#include "gmstri.h" + include "esutil.h" + include "gmenti.h" + include "gmstri.h" c c 0.3. ==> arguments c @@ -101,7 +101,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -241,7 +241,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AP_Conversion/pccac2.F b/src/tool/AP_Conversion/pccac2.F index e28bc8e8..61b7608d 100644 --- a/src/tool/AP_Conversion/pccac2.F +++ b/src/tool/AP_Conversion/pccac2.F @@ -51,13 +51,13 @@ c character*6 nompro parameter ( nompro = 'PCCAC2' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmstri.h" + include "gmstri.h" c c 0.3. ==> arguments c @@ -92,7 +92,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -203,7 +203,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AP_Conversion/pccafo.F b/src/tool/AP_Conversion/pccafo.F index eeae5e8f..d63b50cc 100644 --- a/src/tool/AP_Conversion/pccafo.F +++ b/src/tool/AP_Conversion/pccafo.F @@ -99,19 +99,19 @@ c character*6 nompro parameter ( nompro = 'PCCAFO' ) c -#include "nblang.h" -#include "consts.h" -#include "meddc0.h" + include "nblang.h" + include "consts.h" + include "meddc0.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" -#include "gmreel.h" -#include "gmstri.h" + include "gmenti.h" + include "gmreel.h" + include "gmstri.h" c -#include "nombsr.h" + include "nombsr.h" c c 0.3. ==> arguments c @@ -154,8 +154,8 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -309,7 +309,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AP_Conversion/pccapf.F b/src/tool/AP_Conversion/pccapf.F index 1a2875cb..91ad91d7 100644 --- a/src/tool/AP_Conversion/pccapf.F +++ b/src/tool/AP_Conversion/pccapf.F @@ -102,11 +102,11 @@ c character*6 nompro parameter ( nompro = 'PCCAPF' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -146,7 +146,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -181,7 +181,7 @@ c > '(''Addition of function name '',a,'' to the pack'')' texte(2,20) = '(''Number of functions in the pack :'',i4)' c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,20)) npfopa @@ -343,7 +343,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AP_Conversion/pccapg.F b/src/tool/AP_Conversion/pccapg.F index 4190199b..e21cc6ca 100644 --- a/src/tool/AP_Conversion/pccapg.F +++ b/src/tool/AP_Conversion/pccapg.F @@ -95,13 +95,13 @@ c character*6 nompro parameter ( nompro = 'PCCAPG' ) c -#include "nblang.h" -#include "consts.h" -#include "meddc0.h" + include "nblang.h" + include "consts.h" + include "meddc0.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -134,7 +134,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -147,7 +147,7 @@ c texte(2,4) = '(''.. Function # '',i6)' texte(2,5) = '(''Name of the localization object = '',a8)' c -#include "impr03.h" + include "impr03.h" c c==== c 2. mise a jour des caracteristiques des localications @@ -247,7 +247,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AP_Conversion/pccapr.F b/src/tool/AP_Conversion/pccapr.F index 8e74c58d..24542a17 100644 --- a/src/tool/AP_Conversion/pccapr.F +++ b/src/tool/AP_Conversion/pccapr.F @@ -95,18 +95,18 @@ c character*6 nompro parameter ( nompro = 'PCCAPR' ) c -#include "nblang.h" -#include "consts.h" -#include "meddc0.h" + include "nblang.h" + include "consts.h" + include "meddc0.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" + include "gmenti.h" c -#include "nombsr.h" -#include "nbutil.h" + include "nombsr.h" + include "nbutil.h" c c 0.3. ==> arguments c @@ -143,7 +143,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -154,7 +154,7 @@ c c texte(2,4) = '(''Name of the profile object #n: '',a8)' c -#include "impr03.h" + include "impr03.h" c c==== c 2. mise a jour des caracteristiques des profils @@ -310,7 +310,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AP_Conversion/pcceq1.F b/src/tool/AP_Conversion/pcceq1.F index f54d04f5..4ac0a9b1 100644 --- a/src/tool/AP_Conversion/pcceq1.F +++ b/src/tool/AP_Conversion/pcceq1.F @@ -95,22 +95,22 @@ c character*6 nompro parameter ( nompro = 'PCCEQ1' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nombno.h" -#include "nbfami.h" -#include "nombar.h" -#include "nombmp.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombsr.h" -#include "nbutil.h" -#include "dicfen.h" -#include "refert.h" + include "nombno.h" + include "nbfami.h" + include "nombar.h" + include "nombmp.h" + include "nombtr.h" + include "nombqu.h" + include "nombsr.h" + include "nbutil.h" + include "dicfen.h" + include "refert.h" c c 0.3. ==> arguments c @@ -141,7 +141,7 @@ c==== c 1. les messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -258,7 +258,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AP_Conversion/pcceq2.F b/src/tool/AP_Conversion/pcceq2.F index 03fa8835..9b64664d 100644 --- a/src/tool/AP_Conversion/pcceq2.F +++ b/src/tool/AP_Conversion/pcceq2.F @@ -70,14 +70,14 @@ c character*6 nompro parameter ( nompro = 'PCCEQ2' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "rftmed.h" + include "envex1.h" + include "rftmed.h" c -#include "impr02.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -107,7 +107,7 @@ c==== c 1. les messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -124,7 +124,7 @@ c texte(2,8) = > '(8x,''. Number of entities :'',i10)' c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,4)) mess14(langue,3,option) @@ -209,7 +209,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AP_Conversion/pcceq3.F b/src/tool/AP_Conversion/pcceq3.F index 1de09ec9..60a3dcff 100644 --- a/src/tool/AP_Conversion/pcceq3.F +++ b/src/tool/AP_Conversion/pcceq3.F @@ -137,22 +137,22 @@ c character*6 nompro parameter ( nompro = 'PCCEQ3' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nombno.h" -#include "nbfami.h" -#include "nombmp.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombsr.h" -#include "nbutil.h" -#include "dicfen.h" -#include "refert.h" + include "nombno.h" + include "nbfami.h" + include "nombmp.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombsr.h" + include "nbutil.h" + include "dicfen.h" + include "refert.h" c c 0.3. ==> arguments c @@ -197,7 +197,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -354,7 +354,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AP_Conversion/pcceq4.F b/src/tool/AP_Conversion/pcceq4.F index b1f62d24..4f3b86f8 100644 --- a/src/tool/AP_Conversion/pcceq4.F +++ b/src/tool/AP_Conversion/pcceq4.F @@ -93,15 +93,15 @@ c character*6 nompro parameter ( nompro = 'PCCEQ4' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "rftmed.h" + include "envex1.h" + include "rftmed.h" c -#include "impr02.h" -#include "nbutil.h" + include "impr02.h" + include "nbutil.h" c c 0.3. ==> arguments c @@ -136,7 +136,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -155,7 +155,7 @@ c c texte(2,4) = '(/,''Creation of equivalences over '',a)' c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,4)) mess14(langue,3,option) @@ -291,7 +291,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AP_Conversion/pcehe1.F b/src/tool/AP_Conversion/pcehe1.F index 8bbadaa2..8e3d4d53 100644 --- a/src/tool/AP_Conversion/pcehe1.F +++ b/src/tool/AP_Conversion/pcehe1.F @@ -85,16 +85,16 @@ c character*6 nompro parameter ( nompro = 'PCEHE1' ) c -#include "nblang.h" -#include "fracti.h" + include "nblang.h" + include "fracti.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nombsr.h" -#include "nomber.h" -#include "nombhe.h" + include "nombsr.h" + include "nomber.h" + include "nombhe.h" c c 0.3. ==> arguments c @@ -140,8 +140,8 @@ c==== c 1. initialisations c==== c -#include "pcimp0.h" -#include "impr01.h" + include "pcimp0.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -199,7 +199,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AP_Conversion/pcepe1.F b/src/tool/AP_Conversion/pcepe1.F index 4e55c73d..b65b8ea1 100644 --- a/src/tool/AP_Conversion/pcepe1.F +++ b/src/tool/AP_Conversion/pcepe1.F @@ -85,16 +85,16 @@ c character*6 nompro parameter ( nompro = 'PCEPE1' ) c -#include "nblang.h" -#include "fracti.h" + include "nblang.h" + include "fracti.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nombsr.h" -#include "nomber.h" -#include "nombhe.h" + include "nombsr.h" + include "nomber.h" + include "nombhe.h" c c 0.3. ==> arguments c @@ -140,8 +140,8 @@ c==== c 1. initialisations c==== c -#include "pcimp0.h" -#include "impr01.h" + include "pcimp0.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -209,7 +209,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AP_Conversion/pcequ1.F b/src/tool/AP_Conversion/pcequ1.F index 2834aa4b..4d08131c 100644 --- a/src/tool/AP_Conversion/pcequ1.F +++ b/src/tool/AP_Conversion/pcequ1.F @@ -83,15 +83,15 @@ c character*6 nompro parameter ( nompro = 'PCEQU1' ) c -#include "nblang.h" -#include "fractc.h" + include "nblang.h" + include "fractc.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "nombqu.h" -#include "nombsr.h" -#include "nomber.h" + include "envex1.h" + include "nombqu.h" + include "nombsr.h" + include "nomber.h" c c 0.3. ==> arguments c @@ -160,8 +160,8 @@ c==== c 1. initialisations c==== c -#include "pcimp0.h" -#include "impr01.h" + include "pcimp0.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -617,7 +617,7 @@ cgn 9222 continue cgn 922 continue if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AP_Conversion/pcequ2.F b/src/tool/AP_Conversion/pcequ2.F index 23170428..f6ed7d25 100644 --- a/src/tool/AP_Conversion/pcequ2.F +++ b/src/tool/AP_Conversion/pcequ2.F @@ -100,27 +100,27 @@ c character*6 nompro parameter ( nompro = 'PCEQU2' ) c -#include "nblang.h" + include "nblang.h" c integer nbnoqu parameter ( nbnoqu = 8 ) integer nbnotr parameter ( nbnotr = 6 ) c -#include "fracta.h" -#include "fractb.h" -#include "fractc.h" -#include "fractf.h" -#include "fractg.h" -#include "fracth.h" + include "fracta.h" + include "fractb.h" + include "fractc.h" + include "fractf.h" + include "fractg.h" + include "fracth.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nombqu.h" -#include "nombsr.h" -#include "nomber.h" + include "nombqu.h" + include "nombsr.h" + include "nomber.h" c c 0.3. ==> arguments c @@ -205,8 +205,8 @@ c==== c 1. initialisations c==== c -#include "pcimp0.h" -#include "impr01.h" + include "pcimp0.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -342,7 +342,7 @@ c ................. ................. c elseif ( etanp1.ge.31 .and. etanp1.le.34 ) then c -#include "pcsqu2_1.h" + include "pcsqu2_1.h" c c doc.0.4/6/7/8. ==> etanp1 = 4 : le quadrangle etait actif et c est decoupe en 4. @@ -358,7 +358,7 @@ c ................. ................. c elseif ( etanp1.eq.4 ) then c -#include "pcsqu2_2.h" + include "pcsqu2_2.h" c doc.0.erreur. ==> aucun autre etat sur le quadrangle courant n'est c possible @@ -423,7 +423,7 @@ c c cgn print *,'.. etanp1.eq.0' c -#include "pcsqu2_3.h" + include "pcsqu2_3.h" c c doc.1/2/3.1/2/3. ===> etanp1 = etan : le quadrangle est decoupe en c trois selon le meme decoupage. @@ -513,7 +513,7 @@ c elseif ( etanp1.ge.31 .and. etanp1.le.34 ) then c cgn print *,'.. etanp1.ge.31 .and. etanp1.le.34' -#include "pcsqu2_4.h" + include "pcsqu2_4.h" c c doc.1/2/3.4/6/7/8. ===> etanp1 = 4 : le quadrangle est c decoupe en quatre. @@ -538,7 +538,7 @@ c c cgn print *,'.. etanp1.eq.4' c -#include "pcsqu2_5.h" + include "pcsqu2_5.h" c c doc.1/2/3.erreur. ==> aucun autre etat sur le quadrangle courant c n'est possible @@ -631,7 +631,7 @@ c elseif ( etanp1.ge.31 .and. etanp1.le.34 ) then cgn print *,'etanp1.ge.31 .and. etanp1.le.34' c -#include "pcsqu2_6.h" + include "pcsqu2_6.h" c elseif ( etanp1.eq.4 .or. etanp1.eq.99 ) then c @@ -655,7 +655,7 @@ c======================================================================= c elseif ( etan.eq.99 ) then c -#include "pcsqu2_7.h" + include "pcsqu2_7.h" c endif c @@ -683,7 +683,7 @@ cgn 922 continue c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AP_Conversion/pcequ3.F b/src/tool/AP_Conversion/pcequ3.F index 7fb07231..559017eb 100644 --- a/src/tool/AP_Conversion/pcequ3.F +++ b/src/tool/AP_Conversion/pcequ3.F @@ -71,14 +71,14 @@ c character*6 nompro parameter ( nompro = 'PCEQU3' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "nombqu.h" -#include "nombsr.h" -#include "nomber.h" + include "envex1.h" + include "nombqu.h" + include "nombsr.h" + include "nomber.h" c c 0.3. ==> arguments c @@ -115,9 +115,9 @@ c==== c 1. initialisations c==== c -#include "pcimp0.h" -#include "impr01.h" -#include "impr03.h" + include "pcimp0.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -184,7 +184,7 @@ c c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AP_Conversion/pcequ4.F b/src/tool/AP_Conversion/pcequ4.F index 27416efc..4887d787 100644 --- a/src/tool/AP_Conversion/pcequ4.F +++ b/src/tool/AP_Conversion/pcequ4.F @@ -71,16 +71,16 @@ c character*6 nompro parameter ( nompro = 'PCEQU4' ) c -#include "nblang.h" -#include "fracta.h" + include "nblang.h" + include "fracta.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "nombqu.h" -#include "nombsr.h" -#include "nomber.h" -#include "ope1a4.h" + include "envex1.h" + include "nombqu.h" + include "nombsr.h" + include "nomber.h" + include "ope1a4.h" c c 0.3. ==> arguments c @@ -117,9 +117,9 @@ c==== c 1. initialisations c==== c -#include "pcimp0.h" -#include "impr01.h" -#include "impr03.h" + include "pcimp0.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -198,7 +198,7 @@ c c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AP_Conversion/pcete1.F b/src/tool/AP_Conversion/pcete1.F index d877f91e..3b27fef2 100644 --- a/src/tool/AP_Conversion/pcete1.F +++ b/src/tool/AP_Conversion/pcete1.F @@ -81,16 +81,16 @@ c character*6 nompro parameter ( nompro = 'PCETE1' ) c -#include "nblang.h" -#include "fracti.h" + include "nblang.h" + include "fracti.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nombte.h" -#include "nombsr.h" -#include "nomber.h" + include "nombte.h" + include "nombsr.h" + include "nomber.h" c c 0.3. ==> arguments c @@ -134,8 +134,8 @@ c==== c 1. initialisations c==== c -#include "pcimp0.h" -#include "impr01.h" + include "pcimp0.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -274,7 +274,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AP_Conversion/pcetr1.F b/src/tool/AP_Conversion/pcetr1.F index 7880e21f..652cb1e0 100644 --- a/src/tool/AP_Conversion/pcetr1.F +++ b/src/tool/AP_Conversion/pcetr1.F @@ -79,20 +79,20 @@ c character*6 nompro parameter ( nompro = 'PCETR1' ) c -#include "nblang.h" -#include "fractc.h" -#include "fracta.h" + include "nblang.h" + include "fractc.h" + include "fracta.h" c integer nbnoel parameter ( nbnoel = 3 ) c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nombtr.h" -#include "nombsr.h" -#include "nomber.h" + include "nombtr.h" + include "nombsr.h" + include "nomber.h" c c 0.3. ==> arguments c @@ -166,8 +166,8 @@ c==== c 1. initialisations c==== c -#include "pcimp0.h" -#include "impr01.h" + include "pcimp0.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -743,7 +743,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AP_Conversion/pcetr2.F b/src/tool/AP_Conversion/pcetr2.F index c9e47b57..c1404f8d 100644 --- a/src/tool/AP_Conversion/pcetr2.F +++ b/src/tool/AP_Conversion/pcetr2.F @@ -79,23 +79,23 @@ c character*6 nompro parameter ( nompro = 'PCETR2' ) c -#include "nblang.h" + include "nblang.h" c integer nbnoel parameter ( nbnoel = 6 ) c -#include "fracta.h" -#include "fractb.h" -#include "fractc.h" -#include "fractf.h" + include "fracta.h" + include "fractb.h" + include "fractc.h" + include "fractf.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nombtr.h" -#include "nombsr.h" -#include "nomber.h" + include "nombtr.h" + include "nombsr.h" + include "nomber.h" c c 0.3. ==> arguments c @@ -170,8 +170,8 @@ c==== c 1. initialisations c==== c -#include "pcimp0.h" -#include "impr01.h" + include "pcimp0.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -315,7 +315,7 @@ c . . . . . c ................. ................. c c -#include "pcstr2_1.h" + include "pcstr2_1.h" c c doc.0.4/6/7/8. ==> etanp1 = 4, 6, 7 ou 8 : le triangle etait actif et c est maintenant decoupe en 4. @@ -330,7 +330,7 @@ c . . . . . . c ................. ................. c c -#include "pcstr2_2.h" + include "pcstr2_2.h" c c doc.0.erreur. ==> aucun autre etat sur le triangle courant n'est c possible @@ -502,7 +502,7 @@ c . . . . . . c ................. ................. c c -#include "pcstr2_4.h" + include "pcstr2_4.h" c c doc.1/2/3.4/6/7/8. ===> etanp1 = 4, 6, 7 ou 8 : le triangle est c decoupe en quatre. @@ -572,7 +572,7 @@ c ................. ................. c i i c c -#include "pcstr2_3.h" + include "pcstr2_3.h" c c doc.1/2/3.erreur. ==> aucun autre etat sur le triangle courant c n'est possible @@ -602,7 +602,7 @@ c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,3)) 'pcetr2_5', nompro #endif -#include "pcstr2_5.h" + include "pcstr2_5.h" c c======================================================================= c @@ -628,7 +628,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AP_Conversion/pcetr3.F b/src/tool/AP_Conversion/pcetr3.F index eff0d451..38ef7718 100644 --- a/src/tool/AP_Conversion/pcetr3.F +++ b/src/tool/AP_Conversion/pcetr3.F @@ -71,14 +71,14 @@ c character*6 nompro parameter ( nompro = 'PCETR3' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "nombtr.h" -#include "nombsr.h" -#include "nomber.h" + include "envex1.h" + include "nombtr.h" + include "nombsr.h" + include "nomber.h" c c 0.3. ==> arguments c @@ -115,9 +115,9 @@ c==== c 1. initialisations c==== c -#include "pcimp0.h" -#include "impr01.h" -#include "impr03.h" + include "pcimp0.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -184,7 +184,7 @@ c c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AP_Conversion/pcetr4.F b/src/tool/AP_Conversion/pcetr4.F index da71ff0e..5792c260 100644 --- a/src/tool/AP_Conversion/pcetr4.F +++ b/src/tool/AP_Conversion/pcetr4.F @@ -71,16 +71,16 @@ c character*6 nompro parameter ( nompro = 'PCETR4' ) c -#include "nblang.h" -#include "fracta.h" + include "nblang.h" + include "fracta.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "nombtr.h" -#include "nombsr.h" -#include "nomber.h" -#include "ope1a3.h" + include "envex1.h" + include "nombtr.h" + include "nombsr.h" + include "nomber.h" + include "ope1a3.h" c c 0.3. ==> arguments c @@ -117,9 +117,9 @@ c==== c 1. initialisations c==== c -#include "pcimp0.h" -#include "impr01.h" -#include "impr03.h" + include "pcimp0.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -196,7 +196,7 @@ c c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AP_Conversion/pcfaa1.F b/src/tool/AP_Conversion/pcfaa1.F index 9f5b0369..cd359d39 100644 --- a/src/tool/AP_Conversion/pcfaa1.F +++ b/src/tool/AP_Conversion/pcfaa1.F @@ -85,18 +85,18 @@ c character*6 nompro parameter ( nompro = 'PCFAA1' ) c -#include "nblang.h" -#include "coftex.h" + include "nblang.h" + include "coftex.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nbfami.h" -#include "nombqu.h" -#include "envada.h" + include "nbfami.h" + include "nombqu.h" + include "envada.h" c -#include "dicfen.h" + include "dicfen.h" c c 0.3. ==> arguments c @@ -152,7 +152,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -550,7 +550,7 @@ c c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AP_Conversion/pcfaa2.F b/src/tool/AP_Conversion/pcfaa2.F index 9373ac96..672e4981 100644 --- a/src/tool/AP_Conversion/pcfaa2.F +++ b/src/tool/AP_Conversion/pcfaa2.F @@ -61,19 +61,19 @@ c character*6 nompro parameter ( nompro = 'PCFAA2' ) c -#include "nblang.h" -#include "coftex.h" + include "nblang.h" + include "coftex.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "impr02.h" + include "impr02.h" c -#include "nbfami.h" -#include "nbfamm.h" + include "nbfami.h" + include "nbfamm.h" c -#include "dicfen.h" + include "dicfen.h" c c 0.3. ==> arguments c @@ -102,7 +102,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -193,7 +193,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AP_Conversion/pcfaa3.F b/src/tool/AP_Conversion/pcfaa3.F index 6f9afb34..65895d24 100644 --- a/src/tool/AP_Conversion/pcfaa3.F +++ b/src/tool/AP_Conversion/pcfaa3.F @@ -63,11 +63,11 @@ c character*6 nompro parameter ( nompro = 'PCFAA3' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -108,7 +108,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -225,7 +225,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AP_Conversion/pcfaat.F b/src/tool/AP_Conversion/pcfaat.F index c49da051..467c0a5d 100644 --- a/src/tool/AP_Conversion/pcfaat.F +++ b/src/tool/AP_Conversion/pcfaat.F @@ -91,26 +91,26 @@ c character*6 nompro parameter ( nompro = 'PCFAAT' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" -#include "gmstri.h" + include "gmenti.h" + include "gmstri.h" c -#include "nbutil.h" -#include "nbfami.h" -#include "nbfamm.h" -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" + include "nbutil.h" + include "nbfami.h" + include "nbfamm.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" c -#include "dicfen.h" + include "dicfen.h" c -#include "impr02.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -164,7 +164,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -518,7 +518,7 @@ c c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AP_Conversion/pcfor1.F b/src/tool/AP_Conversion/pcfor1.F index a509f958..c4193261 100644 --- a/src/tool/AP_Conversion/pcfor1.F +++ b/src/tool/AP_Conversion/pcfor1.F @@ -136,17 +136,17 @@ c character*6 nompro parameter ( nompro = 'PCFOR1' ) c -#include "nblang.h" -#include "consts.h" -#include "meddc0.h" + include "nblang.h" + include "consts.h" + include "meddc0.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nombsr.h" -#include "gmenti.h" -#include "rftmed.h" + include "nombsr.h" + include "gmenti.h" + include "rftmed.h" c c 0.3. ==> arguments c @@ -198,8 +198,8 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -538,7 +538,7 @@ cgn print *, ' ' c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AP_Conversion/pcfor2.F b/src/tool/AP_Conversion/pcfor2.F index ec6e9713..d2db4a49 100644 --- a/src/tool/AP_Conversion/pcfor2.F +++ b/src/tool/AP_Conversion/pcfor2.F @@ -138,13 +138,13 @@ c character*6 nompro parameter ( nompro = 'PCFOR2' ) c -#include "nblang.h" -#include "consts.h" -#include "meddc0.h" + include "nblang.h" + include "consts.h" + include "meddc0.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -186,7 +186,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -197,8 +197,8 @@ c c texte(2,6) = '(''.... profile '',a,'' : '',a)' c -#include "pcimp1.h" -#include "impr03.h" + include "pcimp1.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,4)) nrfonc @@ -349,7 +349,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AP_Conversion/pcfore.F b/src/tool/AP_Conversion/pcfore.F index fcbe4cc5..b314997a 100644 --- a/src/tool/AP_Conversion/pcfore.F +++ b/src/tool/AP_Conversion/pcfore.F @@ -124,27 +124,27 @@ c character*6 nompro parameter ( nompro = 'PCFORE' ) c -#include "nblang.h" -#include "consts.h" -#include "meddc0.h" + include "nblang.h" + include "consts.h" + include "meddc0.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c #ifdef _DEBUG_HOMARD_ -#include "gmreel.h" + include "gmreel.h" #endif -#include "gmenti.h" -#include "gmstri.h" + include "gmenti.h" + include "gmstri.h" c -#include "nombtr.h" -#include "nombhe.h" -#include "nombpe.h" -#include "nbutil.h" -#include "nomber.h" -#include "nombsr.h" -#include "esutil.h" + include "nombtr.h" + include "nombhe.h" + include "nombpe.h" + include "nbutil.h" + include "nomber.h" + include "nombsr.h" + include "esutil.h" c c 0.3. ==> arguments c @@ -226,14 +226,14 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "esimpr.h" + include "esimpr.h" c texte(1,4) = '(/,60(''-''),/,''Fonction '',i3,'', objet = '',a)' texte(1,5) = '(''Type de support geometrique :'',i5)' @@ -268,7 +268,7 @@ c > '(''The two lengths of profile are not the same !'')' texte(2,19) = '(''Characteristics of the support:'',i5)' c -#include "impr03.h" + include "impr03.h" c npfopa = 0 nrfonm = nnfopa @@ -1089,7 +1089,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AP_Conversion/pcma21.F b/src/tool/AP_Conversion/pcma21.F index 8c01e49e..2c696be5 100644 --- a/src/tool/AP_Conversion/pcma21.F +++ b/src/tool/AP_Conversion/pcma21.F @@ -73,16 +73,16 @@ c character*6 nompro parameter ( nompro = 'PCMA21' ) c -#include "nblang.h" -#include "consts.h" + include "nblang.h" + include "consts.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "meddc0.h" -#include "envca1.h" -#include "envada.h" + include "meddc0.h" + include "envca1.h" + include "envada.h" c c 0.3. ==> arguments c @@ -120,7 +120,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -169,7 +169,7 @@ c > '(''D'',a1,'' = geometric mean of mini/maxi of meshes'')' texte(2,17) = '(''D'',a1,'' = initial / 2**nivsup'')' c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,90002) 'maextr', maextr @@ -399,7 +399,7 @@ c c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret endif diff --git a/src/tool/AP_Conversion/pcma22.F b/src/tool/AP_Conversion/pcma22.F index 52082ce2..21043a2f 100644 --- a/src/tool/AP_Conversion/pcma22.F +++ b/src/tool/AP_Conversion/pcma22.F @@ -76,16 +76,16 @@ c character*6 nompro parameter ( nompro = 'PCMA22' ) c -#include "nblang.h" -#include "consts.h" -#include "fracti.h" + include "nblang.h" + include "consts.h" + include "fracti.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "meddc0.h" -#include "impr02.h" + include "meddc0.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -119,7 +119,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -146,7 +146,7 @@ c texte(2,10) = > '(''Found number of '',a,'' for the 3D mesh :'',i10)' c -#include "impr03.h" + include "impr03.h" c codret = 0 c @@ -435,7 +435,7 @@ c c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret endif diff --git a/src/tool/AP_Conversion/pcma23.F b/src/tool/AP_Conversion/pcma23.F index 8cac3fce..9c5652e9 100644 --- a/src/tool/AP_Conversion/pcma23.F +++ b/src/tool/AP_Conversion/pcma23.F @@ -58,22 +58,22 @@ c character*6 nompro parameter ( nompro = 'PCMA23' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" -#include "gmreel.h" -#include "gmstri.h" + include "gmenti.h" + include "gmreel.h" + include "gmstri.h" c -#include "envca1.h" + include "envca1.h" c -#include "nombno.h" -#include "nombar.h" + include "nombno.h" + include "nombar.h" c -#include "nbutil.h" + include "nbutil.h" c c 0.3. ==> arguments c @@ -133,7 +133,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -143,7 +143,7 @@ c c texte(2,4) = '(''. From 2D mesh to 3D'')' c -#include "impr03.h" + include "impr03.h" c write (ulsort,texte(langue,4)) c @@ -791,7 +791,7 @@ c c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AP_Conversion/pcmaa0.F b/src/tool/AP_Conversion/pcmaa0.F index 5ce6723b..96195546 100644 --- a/src/tool/AP_Conversion/pcmaa0.F +++ b/src/tool/AP_Conversion/pcmaa0.F @@ -68,20 +68,20 @@ c character*6 nompro parameter ( nompro = 'PCMAA0' ) c -#include "nblang.h" -#include "coftex.h" + include "nblang.h" + include "coftex.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "impr02.h" -#include "envca1.h" + include "impr02.h" + include "envca1.h" c -#include "nbfami.h" -#include "nombar.h" + include "nbfami.h" + include "nombar.h" c -#include "dicfen.h" + include "dicfen.h" c c 0.3. ==> arguments c @@ -109,14 +109,14 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr06.h" + include "impr06.h" c c==== c 2. Decompte des aretes actives et du calcul @@ -163,7 +163,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AP_Conversion/pcmaar.F b/src/tool/AP_Conversion/pcmaar.F index 7fb9449a..86dcfd1e 100644 --- a/src/tool/AP_Conversion/pcmaar.F +++ b/src/tool/AP_Conversion/pcmaar.F @@ -78,23 +78,23 @@ c character*6 nompro parameter ( nompro = 'PCMAAR' ) c -#include "nblang.h" -#include "coftex.h" -#include "cofaar.h" + include "nblang.h" + include "coftex.h" + include "cofaar.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "impr02.h" -#include "envca1.h" + include "impr02.h" + include "envca1.h" c -#include "nbfami.h" -#include "nombar.h" + include "nbfami.h" + include "nombar.h" c -#include "nombsr.h" + include "nombsr.h" c -#include "dicfen.h" + include "dicfen.h" c c 0.3. ==> arguments c @@ -131,16 +131,16 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" + include "impr03.h" c -#include "impr06.h" + include "impr06.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,90002) 'nbarto', nbarto @@ -279,7 +279,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AP_Conversion/pcmac1.F b/src/tool/AP_Conversion/pcmac1.F index 381193c2..485254de 100644 --- a/src/tool/AP_Conversion/pcmac1.F +++ b/src/tool/AP_Conversion/pcmac1.F @@ -207,29 +207,29 @@ c character*6 nompro parameter ( nompro = 'PCMAC1' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" + include "envca1.h" c -#include "nbfami.h" -#include "nombmp.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombno.h" -#include "nombte.h" -#include "nombhe.h" -#include "nombpy.h" -#include "nombpe.h" + include "nbfami.h" + include "nombmp.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombno.h" + include "nombte.h" + include "nombhe.h" + include "nombpy.h" + include "nombpe.h" c -#include "nombsr.h" -#include "nbutil.h" + include "nombsr.h" + include "nbutil.h" c -#include "dicfen.h" + include "dicfen.h" c c 0.3. ==> arguments c @@ -300,7 +300,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -315,7 +315,7 @@ c texte(2,5) = '(''Estimated number of meshes :'',i11)' texte(2,6) = '(''Hierarchical elements :'',i2)' c -#include "impr03.h" + include "impr03.h" c nbquad = 0 nbhexa = 0 @@ -780,7 +780,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AP_Conversion/pcmaco.F b/src/tool/AP_Conversion/pcmaco.F index c115fb3b..0682c736 100644 --- a/src/tool/AP_Conversion/pcmaco.F +++ b/src/tool/AP_Conversion/pcmaco.F @@ -58,34 +58,34 @@ c character*6 nompro parameter ( nompro = 'PCMACO' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" -#include "gmreel.h" -#include "gmstri.h" + include "gmenti.h" + include "gmreel.h" + include "gmstri.h" c -#include "envca1.h" -#include "envada.h" + include "envca1.h" + include "envada.h" c -#include "nbutil.h" -#include "nombno.h" -#include "nombar.h" -#include "nombmp.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombhe.h" -#include "nombpy.h" -#include "nombpe.h" -#include "nombsr.h" -#include "nbfami.h" -#include "dicfen.h" + include "nbutil.h" + include "nombno.h" + include "nombar.h" + include "nombmp.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombhe.h" + include "nombpy.h" + include "nombpe.h" + include "nombsr.h" + include "nbfami.h" + include "dicfen.h" c -#include "impr02.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -199,7 +199,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -214,9 +214,9 @@ c texte(2,8) = > '(5x,''Characteristics of the mesh after conversion :'',/)' c -#include "impr03.h" + include "impr03.h" c -#include "impr06.h" + include "impr06.h" c un = 1 c @@ -279,7 +279,7 @@ c endif c if ( codret.eq.0 ) then -#include "mslve4.h" + include "mslve4.h" endif c if ( codret.eq.0 ) then @@ -2241,7 +2241,7 @@ c c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AP_Conversion/pcmafa.F b/src/tool/AP_Conversion/pcmafa.F index 4f368d4d..7e7d38f7 100644 --- a/src/tool/AP_Conversion/pcmafa.F +++ b/src/tool/AP_Conversion/pcmafa.F @@ -48,19 +48,19 @@ c character*6 nompro parameter ( nompro = 'PCMAFA' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" + include "gmenti.h" c -#include "nbutil.h" -#include "nombsr.h" -#include "nbfami.h" + include "nbutil.h" + include "nombsr.h" + include "nbfami.h" c -#include "envca1.h" + include "envca1.h" c c 0.3. ==> arguments c @@ -128,7 +128,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -139,7 +139,7 @@ c c texte(2,7) = '(5x,''Conversion HOMARD ----> '',a18,/)' c -#include "impr03.h" + include "impr03.h" c c==== c 2. structure generale @@ -174,7 +174,7 @@ c 2.2. ==> Verification du type de calcul c #ifdef _DEBUG_HOMARD_ if ( codret.eq.0 ) then -#include "mslve4.h" + include "mslve4.h" endif #endif c @@ -843,7 +843,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AP_Conversion/pcmahe.F b/src/tool/AP_Conversion/pcmahe.F index d88e03ff..f83fb816 100644 --- a/src/tool/AP_Conversion/pcmahe.F +++ b/src/tool/AP_Conversion/pcmahe.F @@ -75,24 +75,24 @@ c character*6 nompro parameter ( nompro = 'PCMAHE' ) c -#include "nblang.h" -#include "coftex.h" + include "nblang.h" + include "coftex.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "impr02.h" -#include "envca1.h" + include "impr02.h" + include "envca1.h" c -#include "nbfami.h" -#include "nombar.h" -#include "nombqu.h" -#include "nombhe.h" + include "nbfami.h" + include "nombar.h" + include "nombqu.h" + include "nombhe.h" c -#include "nombsr.h" + include "nombsr.h" c -#include "dicfen.h" + include "dicfen.h" c c 0.3. ==> arguments c @@ -135,7 +135,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -146,9 +146,9 @@ c write(ulsort,90002) 'nbhecf, nbheca =', nbhecf, nbheca #endif c -#include "impr03.h" + include "impr03.h" c -#include "impr06.h" + include "impr06.h" c c==== c 2. initialisations des renumerotations @@ -522,7 +522,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AP_Conversion/pcmaig.F b/src/tool/AP_Conversion/pcmaig.F index 93cc723f..09c81c5c 100644 --- a/src/tool/AP_Conversion/pcmaig.F +++ b/src/tool/AP_Conversion/pcmaig.F @@ -58,17 +58,17 @@ c character*6 nompro parameter ( nompro = 'PCMAIG' ) c -#include "nblang.h" -#include "referx.h" -#include "consts.h" + include "nblang.h" + include "referx.h" + include "consts.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "meddc0.h" -#include "nombno.h" -#include "envca1.h" + include "meddc0.h" + include "nombno.h" + include "envca1.h" c c 0.3. ==> arguments c @@ -100,7 +100,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -184,7 +184,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AP_Conversion/pcmail.F b/src/tool/AP_Conversion/pcmail.F index b5a5211d..3342c6c1 100644 --- a/src/tool/AP_Conversion/pcmail.F +++ b/src/tool/AP_Conversion/pcmail.F @@ -53,12 +53,12 @@ c character*6 nompro parameter ( nompro = 'PCMAIL' ) c -#include "nblang.h" -#include "motcle.h" + include "nblang.h" + include "motcle.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -101,7 +101,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -208,7 +208,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AP_Conversion/pcmamp.F b/src/tool/AP_Conversion/pcmamp.F index ce44d342..0d3ef5f9 100644 --- a/src/tool/AP_Conversion/pcmamp.F +++ b/src/tool/AP_Conversion/pcmamp.F @@ -67,22 +67,22 @@ c character*6 nompro parameter ( nompro = 'PCMATE' ) c -#include "nblang.h" -#include "coftex.h" + include "nblang.h" + include "coftex.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "impr02.h" -#include "envca1.h" + include "impr02.h" + include "envca1.h" c -#include "nbfami.h" -#include "nombmp.h" + include "nbfami.h" + include "nombmp.h" c -#include "nombsr.h" + include "nombsr.h" c -#include "dicfen.h" + include "dicfen.h" c c 0.3. ==> arguments c @@ -119,14 +119,14 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr06.h" + include "impr06.h" c c==== c 2. initialisations des renumerotations @@ -186,7 +186,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AP_Conversion/pcmanc.F b/src/tool/AP_Conversion/pcmanc.F index ecd9696f..b4f701f1 100644 --- a/src/tool/AP_Conversion/pcmanc.F +++ b/src/tool/AP_Conversion/pcmanc.F @@ -56,12 +56,12 @@ c character*6 nompro parameter ( nompro = 'PCMANC' ) c -#include "nblang.h" -#include "motcle.h" + include "nblang.h" + include "motcle.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -106,7 +106,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -132,7 +132,7 @@ c texte(2,4) = '(/,a6,1x,'''//saux07//' - ADDITIONAL OPERATIONS'')' texte(2,5) = '(38(''=''),/)' c -#include "impr03.h" + include "impr03.h" c c 1.4. ==> le numero de sous-etape c @@ -208,7 +208,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AP_Conversion/pcmano.F b/src/tool/AP_Conversion/pcmano.F index 68086f26..8069f53d 100644 --- a/src/tool/AP_Conversion/pcmano.F +++ b/src/tool/AP_Conversion/pcmano.F @@ -73,19 +73,19 @@ c character*6 nompro parameter ( nompro = 'PCMANO' ) c -#include "nblang.h" -#include "coftex.h" + include "nblang.h" + include "coftex.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "envca1.h" -#include "nbfami.h" -#include "nombno.h" -#include "nombsr.h" -#include "impr02.h" + include "envex1.h" + include "envca1.h" + include "nbfami.h" + include "nombno.h" + include "nombsr.h" + include "impr02.h" c -#include "dicfen.h" + include "dicfen.h" c c 0.3. ==> arguments c @@ -125,7 +125,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -142,7 +142,7 @@ c texte(2,6) = '(''Constant coordinate is wrong :'',i7)' texte(2,10) = '(''Both numbers oUGht to be equal ...'')' c -#include "impr06.h" + include "impr06.h" c codret = 0 c @@ -395,7 +395,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AP_Conversion/pcmape.F b/src/tool/AP_Conversion/pcmape.F index 957a20dd..904d8a1d 100644 --- a/src/tool/AP_Conversion/pcmape.F +++ b/src/tool/AP_Conversion/pcmape.F @@ -70,24 +70,24 @@ c character*6 nompro parameter ( nompro = 'PCMAPE' ) c -#include "nblang.h" -#include "coftex.h" + include "nblang.h" + include "coftex.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "impr02.h" -#include "envca1.h" + include "impr02.h" + include "envca1.h" c -#include "nbfami.h" -#include "nombar.h" -#include "nombqu.h" -#include "nombpe.h" + include "nbfami.h" + include "nombar.h" + include "nombqu.h" + include "nombpe.h" c -#include "nombsr.h" + include "nombsr.h" c -#include "dicfen.h" + include "dicfen.h" c c 0.3. ==> arguments c @@ -130,7 +130,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -141,9 +141,9 @@ c write(ulsort,90002) 'nbpecf, nbpeca =', nbpecf, nbpeca #endif c -#include "impr03.h" + include "impr03.h" c -#include "impr06.h" + include "impr06.h" c c==== c 2. initialisations des renumerotations @@ -374,7 +374,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AP_Conversion/pcmapy.F b/src/tool/AP_Conversion/pcmapy.F index 89f37756..9d258324 100644 --- a/src/tool/AP_Conversion/pcmapy.F +++ b/src/tool/AP_Conversion/pcmapy.F @@ -72,24 +72,24 @@ c character*6 nompro parameter ( nompro = 'PCMAPY' ) c -#include "nblang.h" -#include "coftex.h" + include "nblang.h" + include "coftex.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "impr02.h" -#include "envca1.h" + include "impr02.h" + include "envca1.h" c -#include "nbfami.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombpy.h" + include "nbfami.h" + include "nombar.h" + include "nombtr.h" + include "nombpy.h" c -#include "nombsr.h" + include "nombsr.h" c -#include "dicfen.h" + include "dicfen.h" c c 0.3. ==> arguments c @@ -129,9 +129,9 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -145,7 +145,7 @@ c cgn write(ulsort,*) cfapyr #endif c -#include "impr06.h" + include "impr06.h" c c==== c 2. initialisations des renumerotations @@ -370,7 +370,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AP_Conversion/pcmaq0.F b/src/tool/AP_Conversion/pcmaq0.F index 65913613..a6fd2f13 100644 --- a/src/tool/AP_Conversion/pcmaq0.F +++ b/src/tool/AP_Conversion/pcmaq0.F @@ -65,20 +65,20 @@ c character*6 nompro parameter ( nompro = 'PCMAQ0' ) c -#include "nblang.h" -#include "coftex.h" + include "nblang.h" + include "coftex.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "impr02.h" -#include "envca1.h" + include "impr02.h" + include "envca1.h" c -#include "nbfami.h" -#include "nombqu.h" + include "nbfami.h" + include "nombqu.h" c -#include "dicfen.h" + include "dicfen.h" c c 0.3. ==> arguments c @@ -106,14 +106,14 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr06.h" + include "impr06.h" c c==== c 2. Decompte des quadrangles actifs et du calcul @@ -160,7 +160,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AP_Conversion/pcmaqu.F b/src/tool/AP_Conversion/pcmaqu.F index f7cb2cb1..dbca4bb2 100644 --- a/src/tool/AP_Conversion/pcmaqu.F +++ b/src/tool/AP_Conversion/pcmaqu.F @@ -79,23 +79,23 @@ c character*6 nompro parameter ( nompro = 'PCMAQU' ) c -#include "nblang.h" -#include "coftex.h" + include "nblang.h" + include "coftex.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "impr02.h" -#include "envca1.h" + include "impr02.h" + include "envca1.h" c -#include "nbfami.h" -#include "nombar.h" -#include "nombqu.h" + include "nbfami.h" + include "nombar.h" + include "nombqu.h" c -#include "nombsr.h" + include "nombsr.h" c -#include "dicfen.h" + include "dicfen.h" c c 0.3. ==> arguments c @@ -134,16 +134,16 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" + include "impr03.h" c -#include "impr06.h" + include "impr06.h" c c==== c 2. initialisations des renumerotations @@ -402,7 +402,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AP_Conversion/pcmar0.F b/src/tool/AP_Conversion/pcmar0.F index f975350c..8d5afa5e 100644 --- a/src/tool/AP_Conversion/pcmar0.F +++ b/src/tool/AP_Conversion/pcmar0.F @@ -124,20 +124,20 @@ c character*6 nompro parameter ( nompro = 'PCMAR0' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nbfami.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombhe.h" -#include "nombpy.h" -#include "impr02.h" + include "nbfami.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombhe.h" + include "nombpy.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -181,7 +181,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -213,7 +213,7 @@ c texte(2,12) = '(''. with sons :'',2i10))' texte(2,13) = '(''. State for '',a,''# '',i10,'' :'',i10)' c -#include "impr03.h" + include "impr03.h" c codret = 0 c @@ -345,7 +345,7 @@ cgn > ', famille = ',famtri(iaux) c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AP_Conversion/pcmar1.F b/src/tool/AP_Conversion/pcmar1.F index 0da474d6..316f136c 100644 --- a/src/tool/AP_Conversion/pcmar1.F +++ b/src/tool/AP_Conversion/pcmar1.F @@ -71,14 +71,14 @@ c character*6 nompro parameter ( nompro = 'PCMAR1' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nombsr.h" -#include "nbutil.h" + include "nombsr.h" + include "nbutil.h" c c 0.3. ==> arguments c @@ -107,14 +107,14 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,90002) 'nparrc', nparrc @@ -211,7 +211,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AP_Conversion/pcmar2.F b/src/tool/AP_Conversion/pcmar2.F index 6c3531a1..997a060e 100644 --- a/src/tool/AP_Conversion/pcmar2.F +++ b/src/tool/AP_Conversion/pcmar2.F @@ -76,20 +76,20 @@ c character*6 nompro parameter ( nompro = 'PCMAR2' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" + include "gmenti.h" c -#include "nbfami.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "impr02.h" + include "nbfami.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -130,7 +130,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -170,7 +170,7 @@ c texte(2,19) = '(''. Family for '',a,''# '',i10,'' :'',i10)' texte(2,20) = '(''Impossible d''''avoir des groupes internes'')' c -#include "impr03.h" + include "impr03.h" c codret = 0 c @@ -521,7 +521,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AP_Conversion/pcmar3.F b/src/tool/AP_Conversion/pcmar3.F index 606b12a1..6609688f 100644 --- a/src/tool/AP_Conversion/pcmar3.F +++ b/src/tool/AP_Conversion/pcmar3.F @@ -87,14 +87,14 @@ c character*6 nompro parameter ( nompro = 'PCMAR3' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" -#include "impr02.h" + include "gmenti.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -141,7 +141,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -178,7 +178,7 @@ c texte(2,15) = '(2x,''After initial non conforming:'')' texte(2,19) = '(''. Family for '',a,''#'',i10,'':'',i10)' c -#include "impr03.h" + include "impr03.h" c codret = 0 c @@ -725,7 +725,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AP_Conversion/pcmarc.F b/src/tool/AP_Conversion/pcmarc.F index 3d93a43a..86b77870 100644 --- a/src/tool/AP_Conversion/pcmarc.F +++ b/src/tool/AP_Conversion/pcmarc.F @@ -52,20 +52,20 @@ c character*6 nompro parameter ( nompro = 'PCMARC' ) c -#include "nblang.h" -#include "consts.h" + include "nblang.h" + include "consts.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" -#include "gmstri.h" -#include "impr02.h" + include "gmenti.h" + include "gmstri.h" + include "impr02.h" c -#include "envca1.h" + include "envca1.h" c -#include "nbutil.h" + include "nbutil.h" c c 0.3. ==> arguments c @@ -112,7 +112,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -127,7 +127,7 @@ c texte(2,4) = '(''. Creation of equivalence for glue'')' texte(2,6) = '(2x,''Number of pairs of '',a,''to glue :'',i10)' c -#include "impr03.h" + include "impr03.h" c write (ulsort,texte(langue,4)) c @@ -474,7 +474,7 @@ c c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AP_Conversion/pcmat0.F b/src/tool/AP_Conversion/pcmat0.F index 0eff2a61..5d5131ba 100644 --- a/src/tool/AP_Conversion/pcmat0.F +++ b/src/tool/AP_Conversion/pcmat0.F @@ -62,20 +62,20 @@ c character*6 nompro parameter ( nompro = 'PCMAT0' ) c -#include "nblang.h" -#include "coftex.h" + include "nblang.h" + include "coftex.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "impr02.h" -#include "envca1.h" + include "impr02.h" + include "envca1.h" c -#include "nbfami.h" -#include "nombtr.h" + include "nbfami.h" + include "nombtr.h" c -#include "dicfen.h" + include "dicfen.h" c c 0.3. ==> arguments c @@ -103,14 +103,14 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr06.h" + include "impr06.h" c c==== c 2. Decompte des triangles actifs et du calcul @@ -157,7 +157,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AP_Conversion/pcmate.F b/src/tool/AP_Conversion/pcmate.F index 37d2a4a0..1c439111 100644 --- a/src/tool/AP_Conversion/pcmate.F +++ b/src/tool/AP_Conversion/pcmate.F @@ -73,24 +73,24 @@ c character*6 nompro parameter ( nompro = 'PCMATE' ) c -#include "nblang.h" -#include "coftex.h" + include "nblang.h" + include "coftex.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "impr02.h" -#include "envca1.h" + include "impr02.h" + include "envca1.h" c -#include "nbfami.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombte.h" + include "nbfami.h" + include "nombar.h" + include "nombtr.h" + include "nombte.h" c -#include "nombsr.h" + include "nombsr.h" c -#include "dicfen.h" + include "dicfen.h" c c 0.3. ==> arguments c @@ -132,9 +132,9 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -145,7 +145,7 @@ c write(ulsort,90002) 'nbtecf, nbteca =', nbtecf, nbteca #endif c -#include "impr06.h" + include "impr06.h" c c==== c 2. initialisations des renumerotations @@ -301,7 +301,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AP_Conversion/pcmatr.F b/src/tool/AP_Conversion/pcmatr.F index d6a30b38..ffaea166 100644 --- a/src/tool/AP_Conversion/pcmatr.F +++ b/src/tool/AP_Conversion/pcmatr.F @@ -74,23 +74,23 @@ c character*6 nompro parameter ( nompro = 'PCMATR' ) c -#include "nblang.h" -#include "coftex.h" + include "nblang.h" + include "coftex.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "impr02.h" -#include "envca1.h" + include "impr02.h" + include "envca1.h" c -#include "nbfami.h" -#include "nombar.h" -#include "nombtr.h" + include "nbfami.h" + include "nombar.h" + include "nombtr.h" c -#include "nombsr.h" + include "nombsr.h" c -#include "dicfen.h" + include "dicfen.h" c c 0.3. ==> arguments c @@ -129,16 +129,16 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" + include "impr03.h" c -#include "impr06.h" + include "impr06.h" c c==== c 2. initialisations des renumerotations @@ -426,7 +426,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AP_Conversion/pcmex0.F b/src/tool/AP_Conversion/pcmex0.F index cda64cfe..c58cb730 100644 --- a/src/tool/AP_Conversion/pcmex0.F +++ b/src/tool/AP_Conversion/pcmex0.F @@ -91,17 +91,17 @@ c character*6 nompro parameter ( nompro = 'PCMEX0' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nbfami.h" -#include "cofexn.h" -#include "dicfen.h" -#include "envca1.h" -#include "nombno.h" + include "nbfami.h" + include "cofexn.h" + include "dicfen.h" + include "envca1.h" + include "nombno.h" c c 0.3. ==> arguments c @@ -136,7 +136,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -155,7 +155,7 @@ c texte(2,6) = '(''==> maximal thickness:'',g13.5)' texte(2,7) = '(''==> '',a3,'' coordinate:'',g13.5)' c -#include "impr03.h" + include "impr03.h" c codret = 0 c @@ -249,7 +249,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AP_Conversion/pcmex1.F b/src/tool/AP_Conversion/pcmex1.F index 837cbd6a..73e8f228 100644 --- a/src/tool/AP_Conversion/pcmex1.F +++ b/src/tool/AP_Conversion/pcmex1.F @@ -112,20 +112,20 @@ c character*6 nompro parameter ( nompro = 'PCMEX1' ) c -#include "nblang.h" -#include "cofexa.h" -#include "cofexq.h" -#include "coftex.h" + include "nblang.h" + include "cofexa.h" + include "cofexq.h" + include "coftex.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nbfami.h" -#include "envca1.h" -#include "dicfen.h" -#include "nombno.h" -#include "nombar.h" + include "nbfami.h" + include "envca1.h" + include "dicfen.h" + include "nombno.h" + include "nombar.h" c c 0.3. ==> arguments c @@ -167,7 +167,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -178,7 +178,7 @@ c c texte(2,4) = '(''Number of active edges:'',i10)' c -#include "impr03.h" + include "impr03.h" c codret = 0 c @@ -370,7 +370,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AP_Conversion/pcmex2.F b/src/tool/AP_Conversion/pcmex2.F index 921a6eeb..c9791226 100644 --- a/src/tool/AP_Conversion/pcmex2.F +++ b/src/tool/AP_Conversion/pcmex2.F @@ -114,18 +114,18 @@ c character*6 nompro parameter ( nompro = 'PCMEX2' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nbfami.h" -#include "cofext.h" -#include "cofexq.h" -#include "dicfen.h" -#include "nombar.h" -#include "nombtr.h" + include "nbfami.h" + include "cofext.h" + include "cofexq.h" + include "dicfen.h" + include "nombar.h" + include "nombtr.h" c c 0.3. ==> arguments c @@ -170,7 +170,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -181,7 +181,7 @@ c c texte(2,4) = '(''Number of active triangles:'',i10)' c -#include "impr03.h" + include "impr03.h" c codret = 0 c @@ -467,7 +467,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AP_Conversion/pcmex3.F b/src/tool/AP_Conversion/pcmex3.F index 83ce462a..71fa8f08 100644 --- a/src/tool/AP_Conversion/pcmex3.F +++ b/src/tool/AP_Conversion/pcmex3.F @@ -96,17 +96,17 @@ c character*6 nompro parameter ( nompro = 'PCMEX3' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nbfami.h" -#include "cofexq.h" -#include "dicfen.h" -#include "nombar.h" -#include "nombqu.h" + include "nbfami.h" + include "cofexq.h" + include "dicfen.h" + include "nombar.h" + include "nombqu.h" c c 0.3. ==> arguments c @@ -148,7 +148,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -159,7 +159,7 @@ c c texte(2,4) = '(''Number of active quadrangles:'',i10)' c -#include "impr03.h" + include "impr03.h" c codret = 0 c @@ -499,7 +499,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AP_Conversion/pcmext.F b/src/tool/AP_Conversion/pcmext.F index 716236d6..9d7c9bfb 100644 --- a/src/tool/AP_Conversion/pcmext.F +++ b/src/tool/AP_Conversion/pcmext.F @@ -51,23 +51,23 @@ c character*6 nompro parameter ( nompro = 'PCMEXT' ) c -#include "nblang.h" -#include "motcle.h" + include "nblang.h" + include "motcle.h" c c 0.2. ==> communs c -#include "gmenti.h" -#include "gmreel.h" + include "gmenti.h" + include "gmreel.h" c -#include "envex1.h" -#include "envca1.h" -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombhe.h" -#include "nombpe.h" -#include "nbfami.h" + include "envex1.h" + include "envca1.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombhe.h" + include "nombpe.h" + include "nbfami.h" c c 0.3. ==> arguments c @@ -147,7 +147,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -188,7 +188,7 @@ c c codret = 0 c -#include "impr03.h" + include "impr03.h" c c==== c 2. les structures de base @@ -966,7 +966,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AP_Conversion/pcmmen.F b/src/tool/AP_Conversion/pcmmen.F index 61772544..401d5cdd 100644 --- a/src/tool/AP_Conversion/pcmmen.F +++ b/src/tool/AP_Conversion/pcmmen.F @@ -59,18 +59,18 @@ c character*6 nompro parameter ( nompro = 'PCMMEN' ) c -#include "consts.h" + include "consts.h" c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "nbutil.h" -#include "rftmed.h" -#include "impr02.h" + include "envca1.h" + include "nbutil.h" + include "rftmed.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -107,7 +107,7 @@ c==== c 1. preliminaires c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -122,7 +122,7 @@ c texte(2,5) = '(''Family to duplicate :'',i10)' texte(2,6) = '(''Family after the duplication:'',i10)' c -#include "impr03.h" + include "impr03.h" c codret = 0 c @@ -338,7 +338,7 @@ c c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AP_Conversion/pcs0he.F b/src/tool/AP_Conversion/pcs0he.F index deceb330..bc7a1231 100644 --- a/src/tool/AP_Conversion/pcs0he.F +++ b/src/tool/AP_Conversion/pcs0he.F @@ -85,14 +85,14 @@ c c c 0.2. ==> communs c -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombpy.h" -#include "nombhe.h" -#include "hexcf0.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombpy.h" + include "nombhe.h" + include "hexcf0.h" c c 0.3. ==> arguments c @@ -123,7 +123,7 @@ c integer etan c ______________________________________________________________________ c -#include "impr03.h" + include "impr03.h" c c==== c 1. les seuls cas interessants sont ceux ou un noeud est cree a diff --git a/src/tool/AP_Conversion/pcs0pe.F b/src/tool/AP_Conversion/pcs0pe.F index f9ad32af..6055ffb0 100644 --- a/src/tool/AP_Conversion/pcs0pe.F +++ b/src/tool/AP_Conversion/pcs0pe.F @@ -75,13 +75,13 @@ c c c 0.2. ==> communs c -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombpy.h" -#include "nombpe.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombpy.h" + include "nombpe.h" c c 0.3. ==> arguments c @@ -109,7 +109,7 @@ c integer etan c ______________________________________________________________________ c -#include "impr03.h" + include "impr03.h" c c==== c 1. les seuls cas interessants sont ceux ou un noeud est cree a diff --git a/src/tool/AP_Conversion/pcs0qu.F b/src/tool/AP_Conversion/pcs0qu.F index 3f317e8f..867a8905 100644 --- a/src/tool/AP_Conversion/pcs0qu.F +++ b/src/tool/AP_Conversion/pcs0qu.F @@ -58,9 +58,9 @@ c c c 0.2. ==> communs c -#include "nombno.h" -#include "nombar.h" -#include "nombqu.h" + include "nombno.h" + include "nombar.h" + include "nombqu.h" c c 0.3. ==> arguments c diff --git a/src/tool/AP_Conversion/pcs0te.F b/src/tool/AP_Conversion/pcs0te.F index b750fff1..69ccfaee 100644 --- a/src/tool/AP_Conversion/pcs0te.F +++ b/src/tool/AP_Conversion/pcs0te.F @@ -63,10 +63,10 @@ c c c 0.2. ==> communs c -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombte.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombte.h" c c 0.3. ==> arguments c diff --git a/src/tool/AP_Conversion/pcs0tr.F b/src/tool/AP_Conversion/pcs0tr.F index e249bd33..1d5361e7 100644 --- a/src/tool/AP_Conversion/pcs0tr.F +++ b/src/tool/AP_Conversion/pcs0tr.F @@ -58,9 +58,9 @@ c c c 0.2. ==> communs c -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" c c 0.3. ==> arguments c diff --git a/src/tool/AP_Conversion/pcs1ar.F b/src/tool/AP_Conversion/pcs1ar.F index 93cf3ad1..3206b2f7 100644 --- a/src/tool/AP_Conversion/pcs1ar.F +++ b/src/tool/AP_Conversion/pcs1ar.F @@ -50,12 +50,12 @@ c implicit none save c -#include "fracta.h" + include "fracta.h" c c 0.2. ==> communs c -#include "nombar.h" -#include "nombno.h" + include "nombar.h" + include "nombno.h" c c 0.3. ==> arguments c diff --git a/src/tool/AP_Conversion/pcs1he.F b/src/tool/AP_Conversion/pcs1he.F index 57b8c2d1..b358090b 100644 --- a/src/tool/AP_Conversion/pcs1he.F +++ b/src/tool/AP_Conversion/pcs1he.F @@ -73,18 +73,18 @@ c implicit none save c -#include "fractf.h" + include "fractf.h" c c 0.2. ==> communs c -#include "nombar.h" -#include "nombno.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombpy.h" -#include "nombhe.h" -#include "hexcf0.h" + include "nombar.h" + include "nombno.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombpy.h" + include "nombhe.h" + include "hexcf0.h" c c 0.3. ==> arguments c @@ -112,7 +112,7 @@ c double precision daux c ______________________________________________________________________ c -#include "impr03.h" + include "impr03.h" c c==== c 1. interpolation p1 pour les hexaedres qui viennent d'etre decoupes diff --git a/src/tool/AP_Conversion/pcs1pe.F b/src/tool/AP_Conversion/pcs1pe.F index 8926824d..1ffbdcd8 100644 --- a/src/tool/AP_Conversion/pcs1pe.F +++ b/src/tool/AP_Conversion/pcs1pe.F @@ -72,17 +72,17 @@ c implicit none save c -#include "fracte.h" + include "fracte.h" c c 0.2. ==> communs c -#include "nombar.h" -#include "nombno.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombpy.h" -#include "nombpe.h" + include "nombar.h" + include "nombno.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombpy.h" + include "nombpe.h" c c 0.3. ==> arguments c diff --git a/src/tool/AP_Conversion/pcs1qu.F b/src/tool/AP_Conversion/pcs1qu.F index a5f34b41..a109f2cb 100644 --- a/src/tool/AP_Conversion/pcs1qu.F +++ b/src/tool/AP_Conversion/pcs1qu.F @@ -54,13 +54,13 @@ c implicit none save c -#include "fractc.h" + include "fractc.h" c c 0.2. ==> communs c -#include "nombar.h" -#include "nombno.h" -#include "nombqu.h" + include "nombar.h" + include "nombno.h" + include "nombqu.h" c c 0.3. ==> arguments c diff --git a/src/tool/AP_Conversion/pcs2ar.F b/src/tool/AP_Conversion/pcs2ar.F index b79b87fa..7e6cfdd5 100644 --- a/src/tool/AP_Conversion/pcs2ar.F +++ b/src/tool/AP_Conversion/pcs2ar.F @@ -50,13 +50,13 @@ c implicit none save c -#include "fractc.h" -#include "fractf.h" + include "fractc.h" + include "fractf.h" c c 0.2. ==> communs c -#include "nombno.h" -#include "nombar.h" + include "nombno.h" + include "nombar.h" c c 0.3. ==> arguments c @@ -72,7 +72,7 @@ c integer larete, a1, a2, sm, s1, s2, m1, m2, nuv c ______________________________________________________________________ c -#include "impr03.h" + include "impr03.h" c c==== c 1. interpolation pour les aretes qui viennent d'etre decoupees diff --git a/src/tool/AP_Conversion/pcs2h1.F b/src/tool/AP_Conversion/pcs2h1.F index 93dc2f1d..b1905b07 100644 --- a/src/tool/AP_Conversion/pcs2h1.F +++ b/src/tool/AP_Conversion/pcs2h1.F @@ -68,22 +68,22 @@ c implicit none save c -#include "fractf.h" -#include "fractg.h" -#include "fracth.h" + include "fractf.h" + include "fractg.h" + include "fracth.h" c character*6 nompro parameter ( nompro = 'PCS2H1' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nombar.h" -#include "nombqu.h" -#include "nombhe.h" + include "nombar.h" + include "nombqu.h" + include "nombhe.h" c c 0.3. ==> arguments c @@ -112,9 +112,9 @@ c parameter ( nbmess = 100 ) character*80 texte(nblang,nbmess) c -#include "impr01.h" + include "impr01.h" c -#include "impr03.h" + include "impr03.h" c ______________________________________________________________________ c cgn write (ulsort,texte(langue,1)) 'Entree', nompro @@ -413,7 +413,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AP_Conversion/pcs2h2.F b/src/tool/AP_Conversion/pcs2h2.F index e6a2a8b5..608a0733 100644 --- a/src/tool/AP_Conversion/pcs2h2.F +++ b/src/tool/AP_Conversion/pcs2h2.F @@ -68,20 +68,20 @@ c implicit none save c -#include "fractf.h" -#include "fractg.h" -#include "fracth.h" + include "fractf.h" + include "fractg.h" + include "fracth.h" c character*6 nompro parameter ( nompro = 'PCS2H2' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nombar.h" + include "nombar.h" c c 0.3. ==> arguments c @@ -110,9 +110,9 @@ c c c ______________________________________________________________________ c -#include "impr01.h" + include "impr01.h" c -#include "impr03.h" + include "impr03.h" c cgn write (ulsort,texte(langue,1)) 'Entree', nompro #ifdef _DEBUG_HOMARD_ @@ -552,7 +552,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AP_Conversion/pcs2h3.F b/src/tool/AP_Conversion/pcs2h3.F index 027699f8..4a009281 100644 --- a/src/tool/AP_Conversion/pcs2h3.F +++ b/src/tool/AP_Conversion/pcs2h3.F @@ -61,19 +61,19 @@ c implicit none save c -#include "fracti.h" -#include "fractj.h" + include "fracti.h" + include "fractj.h" c character*6 nompro parameter ( nompro = 'PCS2H3' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nombar.h" + include "nombar.h" c c 0.3. ==> arguments c @@ -102,9 +102,9 @@ c c c ______________________________________________________________________ c -#include "impr01.h" + include "impr01.h" c -#include "impr03.h" + include "impr03.h" c cgn write (ulsort,texte(langue,1)) 'Entree', nompro #ifdef _DEBUG_HOMARD_ @@ -396,7 +396,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AP_Conversion/pcs2h4.F b/src/tool/AP_Conversion/pcs2h4.F index b17886d9..2d6617ef 100644 --- a/src/tool/AP_Conversion/pcs2h4.F +++ b/src/tool/AP_Conversion/pcs2h4.F @@ -63,17 +63,17 @@ c character*6 nompro parameter ( nompro = 'PCS2H4' ) c -#include "nblang.h" + include "nblang.h" c -#include "fractf.h" -#include "fractg.h" -#include "fracth.h" + include "fractf.h" + include "fractg.h" + include "fracth.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nombar.h" + include "nombar.h" c c 0.3. ==> arguments c @@ -108,10 +108,10 @@ c 0.5. ==> initialisation c data perm12 / 2, 1 / c -#include "impr03.h" + include "impr03.h" c ______________________________________________________________________ c -#include "impr01.h" + include "impr01.h" c cgn write (ulsort,texte(langue,1)) 'Entree', nompro #ifdef _DEBUG_HOMARD_ @@ -291,7 +291,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AP_Conversion/pcs2h5.F b/src/tool/AP_Conversion/pcs2h5.F index 77e72798..478c4530 100644 --- a/src/tool/AP_Conversion/pcs2h5.F +++ b/src/tool/AP_Conversion/pcs2h5.F @@ -65,22 +65,22 @@ c implicit none save c -#include "fractf.h" -#include "fractg.h" -#include "fracth.h" + include "fractf.h" + include "fractg.h" + include "fracth.h" c character*6 nompro parameter ( nompro = 'PCS2H5' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nombar.h" -#include "nombqu.h" -#include "nombhe.h" + include "nombar.h" + include "nombqu.h" + include "nombhe.h" c c 0.3. ==> arguments c @@ -110,10 +110,10 @@ c parameter ( nbmess = 100 ) character*80 texte(nblang,nbmess) c -#include "impr03.h" + include "impr03.h" c ______________________________________________________________________ c -#include "impr01.h" + include "impr01.h" c cgn write (ulsort,texte(langue,1)) 'Entree', nompro #ifdef _DEBUG_HOMARD_ @@ -626,7 +626,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AP_Conversion/pcs2he.F b/src/tool/AP_Conversion/pcs2he.F index 57dc2de6..e47b0941 100644 --- a/src/tool/AP_Conversion/pcs2he.F +++ b/src/tool/AP_Conversion/pcs2he.F @@ -85,25 +85,25 @@ c character*6 nompro parameter ( nompro = 'PCS2HE' ) c -#include "nblang.h" + include "nblang.h" c -#include "fractc.h" -#include "fract0.h" + include "fractc.h" + include "fract0.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombpy.h" -#include "nombhe.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombpy.h" + include "nombhe.h" c -#include "hexcf0.h" -#include "hexcf3.h" -#include "ope002.h" + include "hexcf0.h" + include "hexcf3.h" + include "ope002.h" c c 0.3. ==> arguments c @@ -144,8 +144,8 @@ c c 0.5. ==> initialisations c ______________________________________________________________________ c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c do 10 , lehexa = 1, nbheto c @@ -184,7 +184,7 @@ c c if ( afaire ) then c -#include "hexcf4.h" + include "hexcf4.h" c c==== c 2. L'eventuel noeud central @@ -325,7 +325,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AP_Conversion/pcs2p1.F b/src/tool/AP_Conversion/pcs2p1.F index 548b80ed..80e01e64 100644 --- a/src/tool/AP_Conversion/pcs2p1.F +++ b/src/tool/AP_Conversion/pcs2p1.F @@ -55,14 +55,14 @@ c implicit none save c -#include "fracta.h" -#include "fractc.h" -#include "fractf.h" -#include "fractg.h" + include "fracta.h" + include "fractc.h" + include "fractf.h" + include "fractg.h" c c 0.2. ==> communs c -#include "nombar.h" + include "nombar.h" c c 0.3. ==> arguments c @@ -82,7 +82,7 @@ c integer iaux1, iaux2, iaux3, iaux4 c ______________________________________________________________________ c -#include "impr03.h" + include "impr03.h" c c==== c diff --git a/src/tool/AP_Conversion/pcs2p2.F b/src/tool/AP_Conversion/pcs2p2.F index 920a9e21..39eb3209 100644 --- a/src/tool/AP_Conversion/pcs2p2.F +++ b/src/tool/AP_Conversion/pcs2p2.F @@ -56,16 +56,16 @@ c implicit none save c -#include "fract0.h" -#include "fractf.h" -#include "fractg.h" -#include "fractl.h" -#include "fractm.h" -#include "fractn.h" + include "fract0.h" + include "fractf.h" + include "fractg.h" + include "fractl.h" + include "fractm.h" + include "fractn.h" c c 0.2. ==> communs c -#include "nombar.h" + include "nombar.h" c c 0.3. ==> arguments c @@ -89,7 +89,7 @@ cgn integer jaux c c ______________________________________________________________________ c -#include "impr03.h" + include "impr03.h" c cgn write(1,90002) 'listso', (listso(iaux),iaux=1,6) cgn write(1,90002) 'listno', (listno(iaux),iaux=1,9) diff --git a/src/tool/AP_Conversion/pcs2p3.F b/src/tool/AP_Conversion/pcs2p3.F index 4a34b18c..e08ff45c 100644 --- a/src/tool/AP_Conversion/pcs2p3.F +++ b/src/tool/AP_Conversion/pcs2p3.F @@ -56,18 +56,18 @@ c implicit none save c -#include "fract0.h" -#include "fracta.h" -#include "fractb.h" -#include "fractf.h" -#include "fractk.h" -#include "fractm.h" -#include "fractn.h" -#include "fracto.h" + include "fract0.h" + include "fracta.h" + include "fractb.h" + include "fractf.h" + include "fractk.h" + include "fractm.h" + include "fractn.h" + include "fracto.h" c c 0.2. ==> communs c -#include "nombar.h" + include "nombar.h" c c 0.3. ==> arguments c @@ -91,7 +91,7 @@ cgn integer jaux c c ______________________________________________________________________ c -#include "impr03.h" + include "impr03.h" c cgn write(1,90002) 'listso', (listso(iaux),iaux=1,6) cgn write(1,90002) 'listno', (listno(iaux),iaux=1,9) diff --git a/src/tool/AP_Conversion/pcs2p4.F b/src/tool/AP_Conversion/pcs2p4.F index fc572d2d..4a68fda2 100644 --- a/src/tool/AP_Conversion/pcs2p4.F +++ b/src/tool/AP_Conversion/pcs2p4.F @@ -56,12 +56,12 @@ c implicit none save c -#include "fractf.h" -#include "fractg.h" + include "fractf.h" + include "fractg.h" c c 0.2. ==> communs c -#include "nombar.h" + include "nombar.h" c c 0.3. ==> arguments c @@ -83,7 +83,7 @@ cgn integer iaux c c ______________________________________________________________________ c -#include "impr03.h" + include "impr03.h" c cgn write(1,90002) 'listso', (listso(iaux),iaux=1,6) cgn write(1,90002) 'listno', (listno(iaux),iaux=1,9) diff --git a/src/tool/AP_Conversion/pcs2p5.F b/src/tool/AP_Conversion/pcs2p5.F index e466460a..ace997b8 100644 --- a/src/tool/AP_Conversion/pcs2p5.F +++ b/src/tool/AP_Conversion/pcs2p5.F @@ -56,12 +56,12 @@ c implicit none save c -#include "fractf.h" -#include "fractg.h" + include "fractf.h" + include "fractg.h" c c 0.2. ==> communs c -#include "nombar.h" + include "nombar.h" c c 0.3. ==> arguments c @@ -83,7 +83,7 @@ cgn integer iaux c c ______________________________________________________________________ c -#include "impr03.h" + include "impr03.h" c cgn write(1,90002) 'listso', (listso(iaux),iaux=1,6) cgn write(1,90002) 'listno', (listno(iaux),iaux=1,9) diff --git a/src/tool/AP_Conversion/pcs2p6.F b/src/tool/AP_Conversion/pcs2p6.F index 59562523..76ffe8ca 100644 --- a/src/tool/AP_Conversion/pcs2p6.F +++ b/src/tool/AP_Conversion/pcs2p6.F @@ -56,12 +56,12 @@ c implicit none save c -#include "fractf.h" -#include "fractg.h" + include "fractf.h" + include "fractg.h" c c 0.2. ==> communs c -#include "nombar.h" + include "nombar.h" c c 0.3. ==> arguments c @@ -83,7 +83,7 @@ c c c ______________________________________________________________________ c -#include "impr03.h" + include "impr03.h" c cgn write(1,90002) 'listso', (listso(jaux),jaux=1,6) cgn write(1,90002) 'listno', (listno(jaux),jaux=1,9) diff --git a/src/tool/AP_Conversion/pcs2pe.F b/src/tool/AP_Conversion/pcs2pe.F index 36e21af6..497c4b00 100644 --- a/src/tool/AP_Conversion/pcs2pe.F +++ b/src/tool/AP_Conversion/pcs2pe.F @@ -79,19 +79,19 @@ c character*6 nompro parameter ( nompro = 'PCS2PE' ) c -#include "envex1.h" -#include "nblang.h" -#include "fractb.h" -#include "fractk.h" + include "envex1.h" + include "nblang.h" + include "fractb.h" + include "fractk.h" c c 0.2. ==> communs c -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombpy.h" -#include "nombpe.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombpy.h" + include "nombpe.h" c c 0.3. ==> arguments c @@ -135,14 +135,14 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" + include "impr03.h" c codret = 0 c @@ -402,7 +402,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AP_Conversion/pcs2qu.F b/src/tool/AP_Conversion/pcs2qu.F index af3dff4d..8bf654b6 100644 --- a/src/tool/AP_Conversion/pcs2qu.F +++ b/src/tool/AP_Conversion/pcs2qu.F @@ -57,17 +57,17 @@ c implicit none save c -#include "fracta.h" -#include "fractc.h" -#include "fractf.h" -#include "fractg.h" + include "fracta.h" + include "fractc.h" + include "fractf.h" + include "fractg.h" c c 0.2. ==> communs c -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" c c 0.3. ==> arguments c diff --git a/src/tool/AP_Conversion/pcs2te.F b/src/tool/AP_Conversion/pcs2te.F index bce6e6a4..97fcaf8f 100644 --- a/src/tool/AP_Conversion/pcs2te.F +++ b/src/tool/AP_Conversion/pcs2te.F @@ -64,15 +64,15 @@ c implicit none save c -#include "fractc.h" -#include "fractf.h" + include "fractc.h" + include "fractf.h" c c 0.2. ==> communs c -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombte.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombte.h" c c 0.3. ==> arguments c @@ -95,7 +95,7 @@ c logical afaire c ______________________________________________________________________ c -#include "impr03.h" + include "impr03.h" cgn write (1,90002) 'PCS2TE, nbfop2', nbfop2 c do 10 , letetr = 1, nbteto diff --git a/src/tool/AP_Conversion/pcs2tr.F b/src/tool/AP_Conversion/pcs2tr.F index 993f35db..db0a7098 100644 --- a/src/tool/AP_Conversion/pcs2tr.F +++ b/src/tool/AP_Conversion/pcs2tr.F @@ -55,16 +55,16 @@ c implicit none save c -#include "fracta.h" -#include "fractc.h" -#include "fractf.h" + include "fracta.h" + include "fractc.h" + include "fractf.h" c c 0.2. ==> communs c -#include "demitr.h" -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" + include "demitr.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" c c 0.3. ==> arguments c @@ -94,7 +94,7 @@ c c 0.5. ==> initialisations c ______________________________________________________________________ c -#include "impr03.h" + include "impr03.h" cgn write (1,90002) 'PCS2TR, nbfop2', nbfop2 c do 10 , letri0 = 1, nbtrto diff --git a/src/tool/AP_Conversion/pcs3tr.F b/src/tool/AP_Conversion/pcs3tr.F index a0aadba6..4a36746f 100644 --- a/src/tool/AP_Conversion/pcs3tr.F +++ b/src/tool/AP_Conversion/pcs3tr.F @@ -60,8 +60,8 @@ c c c 0.2. ==> communs c -#include "nombtr.h" -#include "nomber.h" + include "nombtr.h" + include "nomber.h" c c 0.3. ==> arguments c @@ -88,7 +88,7 @@ c c c 0.5. ==> initialisations c -#include "impr03.h" + include "impr03.h" c ______________________________________________________________________ c c==== diff --git a/src/tool/AP_Conversion/pcsar0.F b/src/tool/AP_Conversion/pcsar0.F index f4563945..a2ea8886 100644 --- a/src/tool/AP_Conversion/pcsar0.F +++ b/src/tool/AP_Conversion/pcsar0.F @@ -80,16 +80,16 @@ c character*6 nompro parameter ( nompro = 'PCSAR0' ) c -#include "nblang.h" -#include "fracta.h" + include "nblang.h" + include "fracta.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nombar.h" -#include "nombsr.h" -#include "nomber.h" + include "nombar.h" + include "nombsr.h" + include "nomber.h" c c 0.3. ==> arguments c @@ -152,9 +152,9 @@ c==== c 1. initialisations c==== c -#include "pcimp0.h" -#include "impr01.h" -#include "impr03.h" + include "pcimp0.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -486,7 +486,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AP_Conversion/pcsar1.F b/src/tool/AP_Conversion/pcsar1.F index c7996a34..d5d0a87b 100644 --- a/src/tool/AP_Conversion/pcsar1.F +++ b/src/tool/AP_Conversion/pcsar1.F @@ -86,21 +86,21 @@ c character*6 nompro parameter ( nompro = 'PCSAR1' ) c -#include "nblang.h" -#include "fracta.h" -#include "fractc.h" + include "nblang.h" + include "fracta.h" + include "fractc.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nombar.h" -#include "nombtr.h" -#include "nombsr.h" -#include "nomber.h" + include "nombar.h" + include "nombtr.h" + include "nombsr.h" + include "nomber.h" c -#include "demitr.h" -#include "ope1a3.h" + include "demitr.h" + include "ope1a3.h" c c 0.3. ==> arguments c @@ -168,9 +168,9 @@ c==== c 1. initialisations c==== c -#include "pcimp0.h" -#include "impr01.h" -#include "impr03.h" + include "pcimp0.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -651,7 +651,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AP_Conversion/pcseh0.F b/src/tool/AP_Conversion/pcseh0.F index 452bb8be..f0a5e2c4 100644 --- a/src/tool/AP_Conversion/pcseh0.F +++ b/src/tool/AP_Conversion/pcseh0.F @@ -101,12 +101,12 @@ c character*6 nompro parameter ( nompro = 'PCSEH0' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "nombsr.h" -#include "nomber.h" + include "nombsr.h" + include "nomber.h" c c 0.3. ==> arguments c @@ -154,8 +154,8 @@ c==== c 1. initialisations c==== c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro diff --git a/src/tool/AP_Conversion/pcseh1.F b/src/tool/AP_Conversion/pcseh1.F index 85751d2a..5fd06ad9 100644 --- a/src/tool/AP_Conversion/pcseh1.F +++ b/src/tool/AP_Conversion/pcseh1.F @@ -144,19 +144,19 @@ c character*6 nompro parameter ( nompro = 'PCSEH1' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envca1.h" -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombhe.h" -#include "nombpy.h" -#include "nombsr.h" + include "envca1.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombhe.h" + include "nombpy.h" + include "nombsr.h" c c 0.3. ==> arguments c @@ -219,13 +219,13 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif -#include "impr03.h" + include "impr03.h" c codret = 0 c diff --git a/src/tool/AP_Conversion/pcseh8.F b/src/tool/AP_Conversion/pcseh8.F index e909ba98..da3797d4 100644 --- a/src/tool/AP_Conversion/pcseh8.F +++ b/src/tool/AP_Conversion/pcseh8.F @@ -102,12 +102,12 @@ c character*6 nompro parameter ( nompro = 'PCSEH8' ) c -#include "nblang.h" -#include "fractf.h" + include "nblang.h" + include "fractf.h" c c 0.2. ==> communs c -#include "nombsr.h" + include "nombsr.h" c c 0.3. ==> arguments c @@ -153,13 +153,13 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif -#include "impr03.h" + include "impr03.h" c codret = 0 c diff --git a/src/tool/AP_Conversion/pcseh9.F b/src/tool/AP_Conversion/pcseh9.F index ce28ef13..f644b30f 100644 --- a/src/tool/AP_Conversion/pcseh9.F +++ b/src/tool/AP_Conversion/pcseh9.F @@ -125,19 +125,19 @@ c character*6 nompro parameter ( nompro = 'PCSEH9' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envca1.h" -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombhe.h" -#include "nombpy.h" -#include "nombsr.h" + include "envca1.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombhe.h" + include "nombpy.h" + include "nombsr.h" c c 0.3. ==> arguments c @@ -197,7 +197,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro diff --git a/src/tool/AP_Conversion/pcsehy.F b/src/tool/AP_Conversion/pcsehy.F index 59c7400e..176b79be 100644 --- a/src/tool/AP_Conversion/pcsehy.F +++ b/src/tool/AP_Conversion/pcsehy.F @@ -68,11 +68,11 @@ c character*6 nompro parameter ( nompro = 'PCSEHY' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "hexcf0.h" + include "hexcf0.h" c c 0.3. ==> arguments c @@ -102,15 +102,15 @@ c==== c 1. initialisations c==== c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "pcimp2.h" + include "pcimp2.h" c codret = 0 c diff --git a/src/tool/AP_Conversion/pcsehz.F b/src/tool/AP_Conversion/pcsehz.F index 9b423356..451156db 100644 --- a/src/tool/AP_Conversion/pcsehz.F +++ b/src/tool/AP_Conversion/pcsehz.F @@ -76,19 +76,19 @@ c character*6 nompro parameter ( nompro = 'PCSEHZ' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envca1.h" -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombhe.h" -#include "nombpy.h" -#include "hexcf0.h" + include "envca1.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombhe.h" + include "nombpy.h" + include "hexcf0.h" c c 0.3. ==> arguments c @@ -128,15 +128,15 @@ c==== c 1. initialisations c==== c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "pcimp2.h" + include "pcimp2.h" c codret = 0 c diff --git a/src/tool/AP_Conversion/pcsep0.F b/src/tool/AP_Conversion/pcsep0.F index 93645659..c94c6d81 100644 --- a/src/tool/AP_Conversion/pcsep0.F +++ b/src/tool/AP_Conversion/pcsep0.F @@ -101,12 +101,12 @@ c character*6 nompro parameter ( nompro = 'PCSEP0' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "nombsr.h" -#include "nomber.h" + include "nombsr.h" + include "nomber.h" c c 0.3. ==> arguments c @@ -154,8 +154,8 @@ c==== c 1. initialisations c==== c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro diff --git a/src/tool/AP_Conversion/pcsep1.F b/src/tool/AP_Conversion/pcsep1.F index b53882de..1e61c883 100644 --- a/src/tool/AP_Conversion/pcsep1.F +++ b/src/tool/AP_Conversion/pcsep1.F @@ -145,19 +145,19 @@ c character*6 nompro parameter ( nompro = 'PCSEP1' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envca1.h" -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombpe.h" -#include "nombpy.h" -#include "nombsr.h" + include "envca1.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombpe.h" + include "nombpy.h" + include "nombsr.h" c c 0.3. ==> arguments c @@ -220,13 +220,13 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif -#include "impr03.h" + include "impr03.h" c codret = 0 c diff --git a/src/tool/AP_Conversion/pcsep8.F b/src/tool/AP_Conversion/pcsep8.F index 00ae0c9f..a03dd748 100644 --- a/src/tool/AP_Conversion/pcsep8.F +++ b/src/tool/AP_Conversion/pcsep8.F @@ -102,12 +102,12 @@ c character*6 nompro parameter ( nompro = 'PCSEP8' ) c -#include "nblang.h" -#include "fractf.h" + include "nblang.h" + include "fractf.h" c c 0.2. ==> communs c -#include "nombsr.h" + include "nombsr.h" c c 0.3. ==> arguments c @@ -153,13 +153,13 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif -#include "impr03.h" + include "impr03.h" c codret = 0 c diff --git a/src/tool/AP_Conversion/pcsep9.F b/src/tool/AP_Conversion/pcsep9.F index 1aa65687..0e0898d9 100644 --- a/src/tool/AP_Conversion/pcsep9.F +++ b/src/tool/AP_Conversion/pcsep9.F @@ -125,19 +125,19 @@ c character*6 nompro parameter ( nompro = 'PCSEP9' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envca1.h" -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombpe.h" -#include "nombpy.h" -#include "nombsr.h" + include "envca1.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombpe.h" + include "nombpy.h" + include "nombsr.h" c c 0.3. ==> arguments c @@ -197,7 +197,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -214,7 +214,7 @@ c texte(2,5) = > '( '' status at iteration '',a3,'' : '',i4)' c -#include "impr03.h" + include "impr03.h" c c==== c 2. Exploration des 8 fils diff --git a/src/tool/AP_Conversion/pcsepy.F b/src/tool/AP_Conversion/pcsepy.F index af2ebc8d..8d92efa3 100644 --- a/src/tool/AP_Conversion/pcsepy.F +++ b/src/tool/AP_Conversion/pcsepy.F @@ -68,7 +68,7 @@ c character*6 nompro parameter ( nompro = 'PCSEPY' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c @@ -100,15 +100,15 @@ c==== c 1. initialisations c==== c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "pcimp2.h" + include "pcimp2.h" c codret = 0 c diff --git a/src/tool/AP_Conversion/pcsepz.F b/src/tool/AP_Conversion/pcsepz.F index 3b5fb0d5..c8f9cc6b 100644 --- a/src/tool/AP_Conversion/pcsepz.F +++ b/src/tool/AP_Conversion/pcsepz.F @@ -76,18 +76,18 @@ c character*6 nompro parameter ( nompro = 'PCSEPZ' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envca1.h" -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombpe.h" -#include "nombpy.h" + include "envca1.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombpe.h" + include "nombpy.h" c c 0.3. ==> arguments c @@ -127,15 +127,15 @@ c==== c 1. initialisations c==== c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "pcimp2.h" + include "pcimp2.h" c codret = 0 c diff --git a/src/tool/AP_Conversion/pcseq0.F b/src/tool/AP_Conversion/pcseq0.F index 42a7cb0b..cc3aa028 100644 --- a/src/tool/AP_Conversion/pcseq0.F +++ b/src/tool/AP_Conversion/pcseq0.F @@ -109,17 +109,17 @@ c character*6 nompro parameter ( nompro = 'PCSEQ0' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envca1.h" -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombsr.h" -#include "nomber.h" + include "envca1.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombsr.h" + include "nomber.h" c c 0.3. ==> arguments c @@ -175,9 +175,9 @@ c==== c 1. initialisations c==== c -#include "pcimp0.h" -#include "impr01.h" -#include "impr03.h" + include "pcimp0.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro diff --git a/src/tool/AP_Conversion/pcseq1.F b/src/tool/AP_Conversion/pcseq1.F index f7874ca8..ccc0d47e 100644 --- a/src/tool/AP_Conversion/pcseq1.F +++ b/src/tool/AP_Conversion/pcseq1.F @@ -114,18 +114,18 @@ c character*6 nompro parameter ( nompro = 'PCSEQ1' ) c -#include "nblang.h" -#include "fracta.h" + include "nblang.h" + include "fracta.h" c c 0.2. ==> communs c -#include "envca1.h" -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombsr.h" -#include "nomber.h" + include "envca1.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombsr.h" + include "nomber.h" c c 0.3. ==> arguments c @@ -197,9 +197,9 @@ c==== c 1. initialisations c==== c -#include "pcimp0.h" -#include "impr01.h" -#include "impr03.h" + include "pcimp0.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro diff --git a/src/tool/AP_Conversion/pcseq2.F b/src/tool/AP_Conversion/pcseq2.F index 647fe972..3fc68b33 100644 --- a/src/tool/AP_Conversion/pcseq2.F +++ b/src/tool/AP_Conversion/pcseq2.F @@ -114,18 +114,18 @@ c character*6 nompro parameter ( nompro = 'PCSEQ2' ) c -#include "nblang.h" -#include "fractb.h" + include "nblang.h" + include "fractb.h" c c 0.2. ==> communs c -#include "envca1.h" -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombsr.h" -#include "nomber.h" + include "envca1.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombsr.h" + include "nomber.h" c c 0.3. ==> arguments c @@ -198,9 +198,9 @@ c==== c 1. initialisations c==== c -#include "pcimp0.h" -#include "impr01.h" -#include "impr03.h" + include "pcimp0.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro diff --git a/src/tool/AP_Conversion/pcseq3.F b/src/tool/AP_Conversion/pcseq3.F index 5e08b6f7..07e9a912 100644 --- a/src/tool/AP_Conversion/pcseq3.F +++ b/src/tool/AP_Conversion/pcseq3.F @@ -112,18 +112,18 @@ c character*6 nompro parameter ( nompro = 'PCSEQ3' ) c -#include "nblang.h" -#include "fractc.h" + include "nblang.h" + include "fractc.h" c c 0.2. ==> communs c -#include "envca1.h" -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombsr.h" -#include "nomber.h" + include "envca1.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombsr.h" + include "nomber.h" c c 0.3. ==> arguments c @@ -187,9 +187,9 @@ c==== c 1. initialisations c==== c -#include "pcimp0.h" -#include "impr01.h" -#include "impr03.h" + include "pcimp0.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro diff --git a/src/tool/AP_Conversion/pcseq4.F b/src/tool/AP_Conversion/pcseq4.F index 907515fd..46b2ed51 100644 --- a/src/tool/AP_Conversion/pcseq4.F +++ b/src/tool/AP_Conversion/pcseq4.F @@ -114,18 +114,18 @@ c character*6 nompro parameter ( nompro = 'PCSEQ4' ) c -#include "nblang.h" -#include "fractb.h" + include "nblang.h" + include "fractb.h" c c 0.2. ==> communs c -#include "envca1.h" -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombsr.h" -#include "nomber.h" + include "envca1.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombsr.h" + include "nomber.h" c c 0.3. ==> arguments c @@ -198,9 +198,9 @@ c==== c 1. initialisations c==== c -#include "pcimp0.h" -#include "impr01.h" -#include "impr03.h" + include "pcimp0.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro diff --git a/src/tool/AP_Conversion/pcset0.F b/src/tool/AP_Conversion/pcset0.F index 8f550fd5..21e17b84 100644 --- a/src/tool/AP_Conversion/pcset0.F +++ b/src/tool/AP_Conversion/pcset0.F @@ -81,17 +81,17 @@ c character*6 nompro parameter ( nompro = 'PCSET0' ) c -#include "nblang.h" -#include "fracta.h" -#include "fractc.h" -#include "fractf.h" -#include "fracti.h" + include "nblang.h" + include "fracta.h" + include "fractc.h" + include "fractf.h" + include "fracti.h" c c 0.2. ==> communs c -#include "nombte.h" -#include "nombsr.h" -#include "nomber.h" + include "nombte.h" + include "nombsr.h" + include "nomber.h" c c 0.3. ==> arguments c @@ -148,7 +148,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -167,7 +167,7 @@ c c coderr = 0 c -#include "impr03.h" + include "impr03.h" c c 1.2. ==> on repere son ancien numero dans le calcul c diff --git a/src/tool/AP_Conversion/pcset2.F b/src/tool/AP_Conversion/pcset2.F index acaeff99..910e2097 100644 --- a/src/tool/AP_Conversion/pcset2.F +++ b/src/tool/AP_Conversion/pcset2.F @@ -85,18 +85,18 @@ c character*6 nompro parameter ( nompro = 'PCSET2' ) c -#include "nblang.h" -#include "fracta.h" -#include "fractc.h" -#include "fractf.h" -#include "fractg.h" -#include "fracth.h" + include "nblang.h" + include "fracta.h" + include "fractc.h" + include "fractf.h" + include "fractg.h" + include "fracth.h" c c 0.2. ==> communs c -#include "nombte.h" -#include "nombsr.h" -#include "nomber.h" + include "nombte.h" + include "nombsr.h" + include "nomber.h" c c 0.3. ==> arguments c @@ -165,7 +165,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro diff --git a/src/tool/AP_Conversion/pcset4.F b/src/tool/AP_Conversion/pcset4.F index 6661321b..06689db4 100644 --- a/src/tool/AP_Conversion/pcset4.F +++ b/src/tool/AP_Conversion/pcset4.F @@ -85,18 +85,18 @@ c character*6 nompro parameter ( nompro = 'PCSET4' ) c -#include "nblang.h" -#include "fracta.h" -#include "fractc.h" -#include "fractf.h" -#include "fractg.h" -#include "fracth.h" + include "nblang.h" + include "fracta.h" + include "fractc.h" + include "fractf.h" + include "fractg.h" + include "fracth.h" c c 0.2. ==> communs c -#include "nombte.h" -#include "nombsr.h" -#include "nomber.h" + include "nombte.h" + include "nombsr.h" + include "nomber.h" c c 0.3. ==> arguments c @@ -167,7 +167,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro diff --git a/src/tool/AP_Conversion/pcset8.F b/src/tool/AP_Conversion/pcset8.F index 300c08e8..ffb19ae9 100644 --- a/src/tool/AP_Conversion/pcset8.F +++ b/src/tool/AP_Conversion/pcset8.F @@ -83,16 +83,16 @@ c character*6 nompro parameter ( nompro = 'PCSET8' ) c -#include "nblang.h" -#include "fracta.h" -#include "fractc.h" -#include "fractf.h" + include "nblang.h" + include "fracta.h" + include "fractc.h" + include "fractf.h" c c 0.2. ==> communs c -#include "nombte.h" -#include "nombsr.h" -#include "nomber.h" + include "nombte.h" + include "nombsr.h" + include "nomber.h" c c 0.3. ==> arguments c @@ -159,7 +159,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro diff --git a/src/tool/AP_Conversion/pcshe0.F b/src/tool/AP_Conversion/pcshe0.F index 16eccd34..70dbb1cd 100644 --- a/src/tool/AP_Conversion/pcshe0.F +++ b/src/tool/AP_Conversion/pcshe0.F @@ -139,24 +139,24 @@ c character*6 nompro parameter ( nompro = 'PCSHE0' ) c -#include "nblang.h" -#include "fracti.h" + include "nblang.h" + include "fracti.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "impr02.h" + include "envex1.h" + include "impr02.h" c -#include "envca1.h" -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombhe.h" -#include "nombpy.h" -#include "nombsr.h" -#include "nomber.h" + include "envca1.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombhe.h" + include "nombpy.h" + include "nombsr.h" + include "nomber.h" c c 0.3. ==> arguments c @@ -224,14 +224,14 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" + include "impr03.h" c codret = 0 c @@ -421,7 +421,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AP_Conversion/pcsi00.F b/src/tool/AP_Conversion/pcsi00.F index f7a3d9c7..4d0d6da5 100644 --- a/src/tool/AP_Conversion/pcsi00.F +++ b/src/tool/AP_Conversion/pcsi00.F @@ -51,11 +51,11 @@ c implicit none save c -#include "fracta.h" + include "fracta.h" c c 0.2. ==> communs c -#include "nombar.h" + include "nombar.h" c c 0.3. ==> arguments c @@ -73,7 +73,7 @@ c integer s1, s2, sm, nuv c ______________________________________________________________________ c -#include "impr03.h" + include "impr03.h" c cgn write(1,90002) 'Aretes', (nuaret(iaux),iaux=1,nbarco) c diff --git a/src/tool/AP_Conversion/pcsiar.F b/src/tool/AP_Conversion/pcsiar.F index 98a20027..2fe12501 100644 --- a/src/tool/AP_Conversion/pcsiar.F +++ b/src/tool/AP_Conversion/pcsiar.F @@ -50,12 +50,12 @@ c implicit none save c -#include "fracta.h" + include "fracta.h" c c 0.2. ==> communs c -#include "nombno.h" -#include "nombar.h" + include "nombno.h" + include "nombar.h" c c 0.3. ==> arguments c diff --git a/src/tool/AP_Conversion/pcsihe.F b/src/tool/AP_Conversion/pcsihe.F index 5ddd9e38..6e4adc63 100644 --- a/src/tool/AP_Conversion/pcsihe.F +++ b/src/tool/AP_Conversion/pcsihe.F @@ -76,21 +76,21 @@ c character*6 nompro parameter ( nompro = 'PCSIHE' ) c -#include "nblang.h" + include "nblang.h" c -#include "fract0.h" -#include "fracta.h" + include "fract0.h" + include "fracta.h" c c 0.2. ==> communs c -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombpy.h" -#include "nombhe.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombpy.h" + include "nombhe.h" c -#include "hexcf0.h" + include "hexcf0.h" c c 0.3. ==> arguments c @@ -130,8 +130,8 @@ c c c 0.5. ==> initialisations c ______________________________________________________________________ -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" cgn write (*,*) 'Entree dans ', nompro, ' avec nbheto = ',nbheto langue = 1 c diff --git a/src/tool/AP_Conversion/pcsipe.F b/src/tool/AP_Conversion/pcsipe.F index 1ded451e..7244fd2f 100644 --- a/src/tool/AP_Conversion/pcsipe.F +++ b/src/tool/AP_Conversion/pcsipe.F @@ -78,18 +78,18 @@ c character*6 nompro parameter ( nompro = 'PCSIPE' ) c -#include "nblang.h" -#include "fracte.h" + include "nblang.h" + include "fracte.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombpy.h" -#include "nombpe.h" + include "envex1.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombpy.h" + include "nombpe.h" c c 0.3. ==> arguments c @@ -132,14 +132,14 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" + include "impr03.h" c codret = 0 c @@ -274,7 +274,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AP_Conversion/pcsiqu.F b/src/tool/AP_Conversion/pcsiqu.F index 47f5a884..7d583e86 100644 --- a/src/tool/AP_Conversion/pcsiqu.F +++ b/src/tool/AP_Conversion/pcsiqu.F @@ -57,15 +57,15 @@ c implicit none save c -#include "fracta.h" -#include "fractc.h" + include "fracta.h" + include "fractc.h" c c 0.2. ==> communs c -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" c c 0.3. ==> arguments c @@ -95,7 +95,7 @@ c c c 0.5. ==> initialisations c -#include "impr03.h" + include "impr03.h" c ______________________________________________________________________ cgn write (1,*) 'PCSIQU' cgn 1789 format(a,10i4) diff --git a/src/tool/AP_Conversion/pcsite.F b/src/tool/AP_Conversion/pcsite.F index 0670d762..ba97fe62 100644 --- a/src/tool/AP_Conversion/pcsite.F +++ b/src/tool/AP_Conversion/pcsite.F @@ -64,14 +64,14 @@ c implicit none save c -#include "fracta.h" + include "fracta.h" c c 0.2. ==> communs c -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombte.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombte.h" c c 0.3. ==> arguments c diff --git a/src/tool/AP_Conversion/pcsitr.F b/src/tool/AP_Conversion/pcsitr.F index f39973c3..a1605878 100644 --- a/src/tool/AP_Conversion/pcsitr.F +++ b/src/tool/AP_Conversion/pcsitr.F @@ -55,14 +55,14 @@ c implicit none save c -#include "fracta.h" + include "fracta.h" c c 0.2. ==> communs c -#include "demitr.h" -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" + include "demitr.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" c c 0.3. ==> arguments c diff --git a/src/tool/AP_Conversion/pcsmar.F b/src/tool/AP_Conversion/pcsmar.F index 86e765a6..5bfc73d6 100644 --- a/src/tool/AP_Conversion/pcsmar.F +++ b/src/tool/AP_Conversion/pcsmar.F @@ -51,12 +51,12 @@ c implicit none save c -#include "fracta.h" + include "fracta.h" c c 0.2. ==> communs c -#include "nombar.h" -#include "nombno.h" + include "nombar.h" + include "nombno.h" c c 0.3. ==> arguments c @@ -71,7 +71,7 @@ c integer larete, nuv, s1, s2, sm c ______________________________________________________________________ c -#include "impr03.h" + include "impr03.h" c c==== c 1. interpolation p1 pour toutes les aretes diff --git a/src/tool/AP_Conversion/pcsoar.F b/src/tool/AP_Conversion/pcsoar.F index 4256a3cc..e9aba947 100644 --- a/src/tool/AP_Conversion/pcsoar.F +++ b/src/tool/AP_Conversion/pcsoar.F @@ -123,24 +123,24 @@ c character*6 nompro parameter ( nompro = 'PCSOAR' ) c -#include "nblang.h" -#include "consts.h" -#include "meddc0.h" + include "nblang.h" + include "consts.h" + include "meddc0.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmreel.h" -#include "gmenti.h" + include "gmreel.h" + include "gmenti.h" c -#include "envca1.h" -#include "nomber.h" -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombsr.h" + include "envca1.h" + include "nomber.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombsr.h" c c 0.3. ==> arguments c @@ -199,8 +199,8 @@ c==== c 1. initialisations c==== c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -347,7 +347,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AP_Conversion/pcsohe.F b/src/tool/AP_Conversion/pcsohe.F index b9aa5b45..1c63ea57 100644 --- a/src/tool/AP_Conversion/pcsohe.F +++ b/src/tool/AP_Conversion/pcsohe.F @@ -145,28 +145,28 @@ c character*6 nompro parameter ( nompro = 'PCSOHE' ) c -#include "nblang.h" -#include "consts.h" -#include "meddc0.h" + include "nblang.h" + include "consts.h" + include "meddc0.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "impr02.h" + include "envex1.h" + include "impr02.h" c -#include "gmenti.h" -#include "gmreel.h" + include "gmenti.h" + include "gmreel.h" c -#include "envca1.h" -#include "nombsr.h" -#include "nomber.h" -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombhe.h" -#include "nombpy.h" + include "envca1.h" + include "nombsr.h" + include "nomber.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombhe.h" + include "nombpy.h" c c 0.3. ==> arguments c @@ -244,15 +244,15 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "pcimp1.h" -#include "impr03.h" + include "pcimp1.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,4)) nrfonc @@ -514,7 +514,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AP_Conversion/pcsolu.F b/src/tool/AP_Conversion/pcsolu.F index 68ecde3c..3cc2246f 100644 --- a/src/tool/AP_Conversion/pcsolu.F +++ b/src/tool/AP_Conversion/pcsolu.F @@ -53,12 +53,12 @@ c character*6 nompro parameter ( nompro = 'PCSOLU' ) c -#include "nblang.h" -#include "motcle.h" + include "nblang.h" + include "motcle.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -102,8 +102,8 @@ c==== c 1. messages c==== c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -229,7 +229,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AP_Conversion/pcsono.F b/src/tool/AP_Conversion/pcsono.F index 3330845c..70bb9796 100644 --- a/src/tool/AP_Conversion/pcsono.F +++ b/src/tool/AP_Conversion/pcsono.F @@ -162,26 +162,26 @@ c character*6 nompro parameter ( nompro = 'PCSONO' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmreel.h" -#include "gmenti.h" + include "gmreel.h" + include "gmenti.h" c -#include "envca1.h" -#include "nomber.h" -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombhe.h" -#include "nombpe.h" -#include "nombpy.h" -#include "nombsr.h" + include "envca1.h" + include "nomber.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombhe.h" + include "nombpe.h" + include "nombpy.h" + include "nombsr.h" c c 0.3. ==> arguments c @@ -248,8 +248,8 @@ c==== c 1. initialisations c==== c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -258,7 +258,7 @@ c c codret = 0 c -#include "esimpr.h" + include "esimpr.h" c texte(1,4) = '(5x,''Fonctions '',a2,'' :'')' texte(1,5) = @@ -1033,7 +1033,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AP_Conversion/pcsope.F b/src/tool/AP_Conversion/pcsope.F index ab3b94e3..b518fb65 100644 --- a/src/tool/AP_Conversion/pcsope.F +++ b/src/tool/AP_Conversion/pcsope.F @@ -145,28 +145,28 @@ c character*6 nompro parameter ( nompro = 'PCSOPE' ) c -#include "nblang.h" -#include "consts.h" -#include "meddc0.h" + include "nblang.h" + include "consts.h" + include "meddc0.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "impr02.h" + include "envex1.h" + include "impr02.h" c -#include "gmenti.h" -#include "gmreel.h" + include "gmenti.h" + include "gmreel.h" c -#include "envca1.h" -#include "nombsr.h" -#include "nomber.h" -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombpe.h" -#include "nombpy.h" + include "envca1.h" + include "nombsr.h" + include "nomber.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombpe.h" + include "nombpy.h" c c 0.3. ==> arguments c @@ -244,15 +244,15 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "pcimp1.h" -#include "impr03.h" + include "pcimp1.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,4)) nrfonc @@ -520,7 +520,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AP_Conversion/pcsoqu.F b/src/tool/AP_Conversion/pcsoqu.F index 7535c51d..e06bead5 100644 --- a/src/tool/AP_Conversion/pcsoqu.F +++ b/src/tool/AP_Conversion/pcsoqu.F @@ -132,24 +132,24 @@ c character*6 nompro parameter ( nompro = 'PCSOQU' ) c -#include "nblang.h" -#include "consts.h" -#include "meddc0.h" + include "nblang.h" + include "consts.h" + include "meddc0.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" -#include "gmreel.h" + include "gmenti.h" + include "gmreel.h" c -#include "envca1.h" -#include "nombsr.h" -#include "nomber.h" -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" + include "envca1.h" + include "nombsr.h" + include "nomber.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" c c 0.3. ==> arguments c @@ -223,7 +223,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -236,8 +236,8 @@ c c codret = 0 c -#include "pcimp1.h" -#include "impr03.h" + include "pcimp1.h" + include "impr03.h" c c==== c 2. grandeurs utiles @@ -536,7 +536,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AP_Conversion/pcsote.F b/src/tool/AP_Conversion/pcsote.F index 59d80f0d..4b1bf038 100644 --- a/src/tool/AP_Conversion/pcsote.F +++ b/src/tool/AP_Conversion/pcsote.F @@ -113,21 +113,21 @@ c character*6 nompro parameter ( nompro = 'PCSOTE' ) c -#include "nblang.h" -#include "consts.h" -#include "meddc0.h" + include "nblang.h" + include "consts.h" + include "meddc0.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "gmenti.h" -#include "gmreel.h" + include "envca1.h" + include "gmenti.h" + include "gmreel.h" c -#include "nombte.h" -#include "nombsr.h" -#include "nomber.h" + include "nombte.h" + include "nombsr.h" + include "nomber.h" c c 0.3. ==> arguments c @@ -182,15 +182,15 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "pcimp1.h" -#include "impr03.h" + include "pcimp1.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,4)) nrfonc @@ -355,7 +355,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AP_Conversion/pcsotr.F b/src/tool/AP_Conversion/pcsotr.F index 0386d7e6..1d0d8b78 100644 --- a/src/tool/AP_Conversion/pcsotr.F +++ b/src/tool/AP_Conversion/pcsotr.F @@ -118,21 +118,21 @@ c character*6 nompro parameter ( nompro = 'PCSOTR' ) c -#include "nblang.h" -#include "consts.h" -#include "meddc0.h" + include "nblang.h" + include "consts.h" + include "meddc0.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" -#include "gmreel.h" + include "gmenti.h" + include "gmreel.h" c -#include "envca1.h" -#include "nombsr.h" -#include "nomber.h" -#include "nombtr.h" + include "envca1.h" + include "nombsr.h" + include "nomber.h" + include "nombtr.h" c c 0.3. ==> arguments c @@ -186,8 +186,8 @@ c==== c 1. initialisations c==== c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -200,7 +200,7 @@ c c codret = 0 c -#include "pcimp1.h" + include "pcimp1.h" c c==== c 2. grandeurs utiles @@ -431,7 +431,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AP_Conversion/pcsovr.F b/src/tool/AP_Conversion/pcsovr.F index 12e1d491..bd5855aa 100644 --- a/src/tool/AP_Conversion/pcsovr.F +++ b/src/tool/AP_Conversion/pcsovr.F @@ -66,29 +66,29 @@ c character*6 nompro parameter ( nompro = 'PCSOVR' ) c -#include "nblang.h" -#include "consts.h" -#include "meddc0.h" + include "nblang.h" + include "consts.h" + include "meddc0.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" -#include "gmreel.h" -#include "gmstri.h" + include "gmenti.h" + include "gmreel.h" + include "gmstri.h" c -#include "envada.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombhe.h" -#include "nombpy.h" -#include "nombpe.h" -#include "nomber.h" -#include "nombsr.h" -#include "envca1.h" -#include "impr02.h" + include "envada.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombhe.h" + include "nombpy.h" + include "nombpe.h" + include "nomber.h" + include "nombsr.h" + include "envca1.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -196,8 +196,8 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -292,7 +292,7 @@ c endif c if ( codret.eq.0 ) then -#include "mslve4.h" + include "mslve4.h" endif c if ( codret.eq.0 ) then @@ -1605,7 +1605,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AP_Conversion/pcspe0.F b/src/tool/AP_Conversion/pcspe0.F index b8630747..4978d793 100644 --- a/src/tool/AP_Conversion/pcspe0.F +++ b/src/tool/AP_Conversion/pcspe0.F @@ -139,24 +139,24 @@ c character*6 nompro parameter ( nompro = 'PCSPE0' ) c -#include "nblang.h" -#include "fracti.h" + include "nblang.h" + include "fracti.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "impr02.h" + include "envex1.h" + include "impr02.h" c -#include "envca1.h" -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombpe.h" -#include "nombpy.h" -#include "nombsr.h" -#include "nomber.h" + include "envca1.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombpe.h" + include "nombpy.h" + include "nombsr.h" + include "nomber.h" c c 0.3. ==> arguments c @@ -224,14 +224,14 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" + include "impr03.h" c codret = 0 c @@ -439,7 +439,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AP_Conversion/pcsprn.F b/src/tool/AP_Conversion/pcsprn.F index f8edaa7b..91cc4ca9 100644 --- a/src/tool/AP_Conversion/pcsprn.F +++ b/src/tool/AP_Conversion/pcsprn.F @@ -53,8 +53,8 @@ cgn parameter ( nompro = 'PCSPRN' ) c c 0.2. ==> communs c -#include "nomber.h" -#include "nombno.h" + include "nomber.h" + include "nombno.h" c c 0.3. ==> arguments c diff --git a/src/tool/AP_Conversion/pcspt0.F b/src/tool/AP_Conversion/pcspt0.F index 727558aa..fb16451c 100644 --- a/src/tool/AP_Conversion/pcspt0.F +++ b/src/tool/AP_Conversion/pcspt0.F @@ -75,13 +75,13 @@ c character*6 nompro parameter ( nompro = 'PCSPT0' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "nombte.h" -#include "nombsr.h" -#include "nomber.h" + include "nombte.h" + include "nombsr.h" + include "nomber.h" c c 0.3. ==> arguments c @@ -137,7 +137,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -154,7 +154,7 @@ c texte(2,5) = > '( '' status at iteration '',a3,'' : '',i4)' c -#include "impr03.h" + include "impr03.h" c coderr = 0 c diff --git a/src/tool/AP_Conversion/pcspt2.F b/src/tool/AP_Conversion/pcspt2.F index c1b32480..4c47105d 100644 --- a/src/tool/AP_Conversion/pcspt2.F +++ b/src/tool/AP_Conversion/pcspt2.F @@ -79,13 +79,13 @@ c character*6 nompro parameter ( nompro = 'PCSPT2' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "nombte.h" -#include "nombsr.h" -#include "nomber.h" + include "nombte.h" + include "nombsr.h" + include "nomber.h" c c 0.3. ==> arguments c @@ -145,7 +145,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro diff --git a/src/tool/AP_Conversion/pcspt4.F b/src/tool/AP_Conversion/pcspt4.F index 677b650b..9e5b60a6 100644 --- a/src/tool/AP_Conversion/pcspt4.F +++ b/src/tool/AP_Conversion/pcspt4.F @@ -79,13 +79,13 @@ c character*6 nompro parameter ( nompro = 'PCSPT4' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "nombte.h" -#include "nombsr.h" -#include "nomber.h" + include "nombte.h" + include "nombsr.h" + include "nomber.h" c c 0.3. ==> arguments c @@ -147,7 +147,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro diff --git a/src/tool/AP_Conversion/pcspt8.F b/src/tool/AP_Conversion/pcspt8.F index 6dd7fd27..35a2340b 100644 --- a/src/tool/AP_Conversion/pcspt8.F +++ b/src/tool/AP_Conversion/pcspt8.F @@ -77,13 +77,13 @@ c character*6 nompro parameter ( nompro = 'PCSPT8' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "nombte.h" -#include "nombsr.h" -#include "nomber.h" + include "nombte.h" + include "nombsr.h" + include "nomber.h" c c 0.3. ==> arguments c @@ -148,7 +148,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro diff --git a/src/tool/AP_Conversion/pcsptd.F b/src/tool/AP_Conversion/pcsptd.F index e2ce1f55..ef78d04c 100644 --- a/src/tool/AP_Conversion/pcsptd.F +++ b/src/tool/AP_Conversion/pcsptd.F @@ -79,13 +79,13 @@ c character*6 nompro parameter ( nompro = 'PCSPTD' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "nombtr.h" -#include "nombsr.h" -#include "nomber.h" + include "nombtr.h" + include "nombsr.h" + include "nomber.h" c c 0.3. ==> arguments c @@ -143,7 +143,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -160,7 +160,7 @@ c texte(2,5) = > '( '' status at iteration '',a3,'' : '',i4)' c -#include "impr03.h" + include "impr03.h" c coderr = 0 c diff --git a/src/tool/AP_Conversion/pcsptq.F b/src/tool/AP_Conversion/pcsptq.F index 26cbe8c2..0012140c 100644 --- a/src/tool/AP_Conversion/pcsptq.F +++ b/src/tool/AP_Conversion/pcsptq.F @@ -77,13 +77,13 @@ c character*6 nompro parameter ( nompro = 'PCSPTQ' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "nombtr.h" -#include "nombsr.h" -#include "nomber.h" + include "nombtr.h" + include "nombsr.h" + include "nomber.h" c c 0.3. ==> arguments c @@ -142,7 +142,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -159,7 +159,7 @@ c texte(2,5) = > '( '' status at iteration '',a3,'' : '',i4)' c -#include "impr03.h" + include "impr03.h" c codret = 0 c diff --git a/src/tool/AP_Conversion/pcsptz.F b/src/tool/AP_Conversion/pcsptz.F index 4ca7963a..52d2801d 100644 --- a/src/tool/AP_Conversion/pcsptz.F +++ b/src/tool/AP_Conversion/pcsptz.F @@ -75,13 +75,13 @@ c character*6 nompro parameter ( nompro = 'PCSPTZ' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "nombtr.h" -#include "nombsr.h" -#include "nomber.h" + include "nombtr.h" + include "nombsr.h" + include "nomber.h" c c 0.3. ==> arguments c @@ -133,7 +133,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -150,7 +150,7 @@ c texte(2,5) = > '( '' status at iteration '',a3,'' : '',i4)' c -#include "impr03.h" + include "impr03.h" c coderr = 0 c diff --git a/src/tool/AP_Conversion/pcsqu0.F b/src/tool/AP_Conversion/pcsqu0.F index 71dc617c..e59111d6 100644 --- a/src/tool/AP_Conversion/pcsqu0.F +++ b/src/tool/AP_Conversion/pcsqu0.F @@ -105,22 +105,22 @@ c character*6 nompro parameter ( nompro = 'PCSQU0' ) c -#include "nblang.h" -#include "fractb.h" -#include "fractc.h" -#include "fractf.h" + include "nblang.h" + include "fractb.h" + include "fractc.h" + include "fractf.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombsr.h" -#include "nomber.h" + include "envca1.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombsr.h" + include "nomber.h" c c 0.3. ==> arguments c @@ -174,9 +174,9 @@ c==== c 1. initialisations c==== c -#include "pcimp0.h" -#include "impr01.h" -#include "impr03.h" + include "pcimp0.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -459,7 +459,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AP_Conversion/pcsqug.F b/src/tool/AP_Conversion/pcsqug.F index 2ac7658e..1684db73 100644 --- a/src/tool/AP_Conversion/pcsqug.F +++ b/src/tool/AP_Conversion/pcsqug.F @@ -88,17 +88,17 @@ c character*6 nompro parameter ( nompro = 'PCSQUG' ) c -#include "nblang.h" -#include "fractc.h" + include "nblang.h" + include "fractc.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "nombqu.h" -#include "nombsr.h" -#include "nomber.h" + include "envca1.h" + include "nombqu.h" + include "nombsr.h" + include "nomber.h" c c 0.3. ==> arguments c @@ -169,8 +169,8 @@ c==== c 1. initialisations c==== c -#include "pcimp0.h" -#include "impr01.h" + include "pcimp0.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -637,7 +637,7 @@ cgn 9222 continue cgn 922 continue if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AP_Conversion/pcsrc0.F b/src/tool/AP_Conversion/pcsrc0.F index 217ebb87..f5a04031 100644 --- a/src/tool/AP_Conversion/pcsrc0.F +++ b/src/tool/AP_Conversion/pcsrc0.F @@ -71,7 +71,7 @@ c==== c 1. on trie les valeurs dans la numerotation du calcul en sortie c==== c -#include "impr03.h" + include "impr03.h" c do 11 , nuv = 1, nbtafo c diff --git a/src/tool/AP_Conversion/pcsrho.F b/src/tool/AP_Conversion/pcsrho.F index 2d9fc16d..fb586d66 100644 --- a/src/tool/AP_Conversion/pcsrho.F +++ b/src/tool/AP_Conversion/pcsrho.F @@ -89,15 +89,15 @@ c character*6 nompro parameter ( nompro = 'PCSRHO' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nomber.h" -#include "nombsr.h" -#include "nombno.h" + include "nomber.h" + include "nombsr.h" + include "nombno.h" c c 0.3. ==> arguments c @@ -136,8 +136,8 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -518,7 +518,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AP_Conversion/pcste0.F b/src/tool/AP_Conversion/pcste0.F index f27a0b73..ab858650 100644 --- a/src/tool/AP_Conversion/pcste0.F +++ b/src/tool/AP_Conversion/pcste0.F @@ -82,16 +82,16 @@ c character*6 nompro parameter ( nompro = 'PCSTE0' ) c -#include "nblang.h" -#include "fracti.h" + include "nblang.h" + include "fracti.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nombte.h" -#include "nombsr.h" -#include "nomber.h" + include "nombte.h" + include "nombsr.h" + include "nomber.h" c c 0.3. ==> arguments c @@ -135,14 +135,14 @@ c==== c 1. initialisations c==== c -#include "pcimp0.h" -#include "impr01.h" + include "pcimp0.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif -#include "impr03.h" + include "impr03.h" cgn write (ulsort,*) 'prfcan en entree de '//nompro cgn write (ulsort,91020) (prfcan(iaux),iaux=1,17) cgn write (ulsort,*) 'nteeca en entree de '//nompro @@ -278,7 +278,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AP_Conversion/pcsteg.F b/src/tool/AP_Conversion/pcsteg.F index ded67e90..8e0e684b 100644 --- a/src/tool/AP_Conversion/pcsteg.F +++ b/src/tool/AP_Conversion/pcsteg.F @@ -84,16 +84,16 @@ c character*6 nompro parameter ( nompro = 'PCSTEG' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "nombte.h" -#include "nombsr.h" -#include "nomber.h" + include "envca1.h" + include "nombte.h" + include "nombsr.h" + include "nomber.h" c c 0.3. ==> arguments c @@ -139,14 +139,14 @@ c==== c 1. initialisations c==== c -#include "pcimp0.h" -#include "impr01.h" + include "pcimp0.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif -#include "impr03.h" + include "impr03.h" cgn write (ulsort,*) 'prfcan en entree de '//nompro cgn write (ulsort,91020) (prfcan(iaux),iaux=1,17) cgn write (ulsort,*) 'nteeca en entree de '//nompro @@ -298,7 +298,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AP_Conversion/pcstr0.F b/src/tool/AP_Conversion/pcstr0.F index 82555900..ad4e9c4e 100644 --- a/src/tool/AP_Conversion/pcstr0.F +++ b/src/tool/AP_Conversion/pcstr0.F @@ -83,19 +83,19 @@ c character*6 nompro parameter ( nompro = 'PCSTR0' ) c -#include "nblang.h" -#include "fracta.h" -#include "fractc.h" + include "nblang.h" + include "fracta.h" + include "fractc.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nombtr.h" -#include "nombsr.h" -#include "nomber.h" -#include "demitr.h" -#include "ope1a3.h" + include "nombtr.h" + include "nombsr.h" + include "nomber.h" + include "demitr.h" + include "ope1a3.h" c c 0.3. ==> arguments c @@ -170,9 +170,9 @@ c==== c 1. initialisations c==== c -#include "pcimp0.h" -#include "impr01.h" -#include "impr03.h" + include "pcimp0.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -883,7 +883,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AP_Conversion/pcstrg.F b/src/tool/AP_Conversion/pcstrg.F index df0aaa07..b1e8cb4d 100644 --- a/src/tool/AP_Conversion/pcstrg.F +++ b/src/tool/AP_Conversion/pcstrg.F @@ -84,16 +84,16 @@ c character*6 nompro parameter ( nompro = 'PCSTRG' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "nombtr.h" -#include "nombsr.h" -#include "nomber.h" + include "envca1.h" + include "nombtr.h" + include "nombsr.h" + include "nomber.h" c c 0.3. ==> arguments c @@ -139,8 +139,8 @@ c==== c 1. initialisations c==== c -#include "pcimp0.h" -#include "impr01.h" + include "pcimp0.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -158,7 +158,7 @@ c texte(2,5) = > '( '' status at iteration '',a3,'' : '',i4)' c -#include "impr03.h" + include "impr03.h" c cgn write (ulsort,90002) 'nbfonc, ngauss, nbnorf', cgn > nbfonc,ngauss,nbnorf @@ -274,7 +274,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AV_Conversion/vccfam.F b/src/tool/AV_Conversion/vccfam.F index 051281f3..8a225e2c 100644 --- a/src/tool/AV_Conversion/vccfam.F +++ b/src/tool/AV_Conversion/vccfam.F @@ -74,19 +74,19 @@ c character*6 nompro parameter ( nompro = 'VCCFAM' ) c -#include "nblang.h" + include "nblang.h" c -#include "cofamp.h" -#include "cofaar.h" -#include "cofina.h" -#include "cofatq.h" -#include "coftex.h" + include "cofamp.h" + include "cofaar.h" + include "cofina.h" + include "cofatq.h" + include "coftex.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "impr02.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -119,7 +119,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -136,7 +136,7 @@ c texte(2,6) = '(''This number is greater than maximum:'',i8)' texte(2,7) = '(''Modify the programs UTINCG and/or VCCFAM'')' c -#include "impr03.h" + include "impr03.h" c codret = 0 c @@ -520,7 +520,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AV_Conversion/vccfca.F b/src/tool/AV_Conversion/vccfca.F index bee03569..30d4e990 100644 --- a/src/tool/AV_Conversion/vccfca.F +++ b/src/tool/AV_Conversion/vccfca.F @@ -87,22 +87,22 @@ c character*6 nompro parameter ( nompro = 'VCCFCA' ) c -#include "nblang.h" -#include "consts.h" + include "nblang.h" + include "consts.h" c -#include "cofaar.h" -#include "coftfq.h" -#include "cofatq.h" -#include "coftex.h" + include "cofaar.h" + include "coftfq.h" + include "cofatq.h" + include "coftex.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nbutil.h" -#include "nbfamm.h" -#include "dicfen.h" -#include "impr02.h" + include "nbutil.h" + include "nbfamm.h" + include "dicfen.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -142,7 +142,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -157,7 +157,7 @@ c texte(2,5) = '(''This number is greater than maximum:'',i8)' texte(2,6) = '(''Modify UTINCG program.'')' c -#include "impr03.h" + include "impr03.h" c codret = 0 c @@ -267,7 +267,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AV_Conversion/vccfcf.F b/src/tool/AV_Conversion/vccfcf.F index 180c98f0..313df4c4 100644 --- a/src/tool/AV_Conversion/vccfcf.F +++ b/src/tool/AV_Conversion/vccfcf.F @@ -92,16 +92,16 @@ c character*6 nompro parameter ( nompro = 'VCCFCF' ) c -#include "nblang.h" + include "nblang.h" c -#include "coftex.h" -#include "cofatq.h" + include "coftex.h" + include "cofatq.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "impr02.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -133,7 +133,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -152,7 +152,7 @@ c c codret = 0 c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,4)) mess14(langue,4,typdep), nbfdep @@ -296,7 +296,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AV_Conversion/vccfnc.F b/src/tool/AV_Conversion/vccfnc.F index 413965e5..7394772b 100644 --- a/src/tool/AV_Conversion/vccfnc.F +++ b/src/tool/AV_Conversion/vccfnc.F @@ -87,25 +87,25 @@ c character*6 nompro parameter ( nompro = 'VCCFNC' ) c -#include "nblang.h" -#include "consts.h" + include "nblang.h" + include "consts.h" c -#include "cofaar.h" -#include "coftfq.h" -#include "cofatq.h" -#include "coftex.h" + include "cofaar.h" + include "coftfq.h" + include "cofatq.h" + include "coftex.h" c -#include "meddc0.h" + include "meddc0.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "envca1.h" + include "envex1.h" + include "envca1.h" c -#include "nbutil.h" -#include "nbfamm.h" -#include "dicfen.h" -#include "impr02.h" + include "nbutil.h" + include "nbfamm.h" + include "dicfen.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -145,7 +145,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -166,7 +166,7 @@ c texte(2,8) = '(/,a14,'' : addition of MED family #'',i8)' texte(2,9) = '(''No type was found for the '',a)' c -#include "impr03.h" + include "impr03.h" c codret = 0 c @@ -483,7 +483,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AV_Conversion/vcequ1.F b/src/tool/AV_Conversion/vcequ1.F index fc1b53c2..085681b3 100644 --- a/src/tool/AV_Conversion/vcequ1.F +++ b/src/tool/AV_Conversion/vcequ1.F @@ -98,18 +98,18 @@ c character*6 nompro parameter ( nompro = 'VCEQU1' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombsr.h" -#include "nbutil.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombsr.h" + include "nbutil.h" c c 0.3. ==> arguments c @@ -137,7 +137,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -264,7 +264,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AV_Conversion/vcequ2.F b/src/tool/AV_Conversion/vcequ2.F index 2534ae5a..153b06b3 100644 --- a/src/tool/AV_Conversion/vcequ2.F +++ b/src/tool/AV_Conversion/vcequ2.F @@ -95,19 +95,19 @@ c character*6 nompro parameter ( nompro = 'VCEQU2' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nbutil.h" -#include "envca1.h" -#include "impr02.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nbutil.h" + include "envca1.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -137,7 +137,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -453,7 +453,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AV_Conversion/vcequ3.F b/src/tool/AV_Conversion/vcequ3.F index 9bef3d04..3e0ff121 100644 --- a/src/tool/AV_Conversion/vcequ3.F +++ b/src/tool/AV_Conversion/vcequ3.F @@ -92,13 +92,13 @@ c character*6 nompro parameter ( nompro = 'VCEQU3' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "impr02.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -126,7 +126,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -231,7 +231,7 @@ c c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AV_Conversion/vcequ4.F b/src/tool/AV_Conversion/vcequ4.F index 8bce0057..911e9b31 100644 --- a/src/tool/AV_Conversion/vcequ4.F +++ b/src/tool/AV_Conversion/vcequ4.F @@ -60,16 +60,16 @@ c character*6 nompro parameter ( nompro = 'VCEQU4' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "impr02.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -103,7 +103,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -519,7 +519,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AV_Conversion/vcequ5.F b/src/tool/AV_Conversion/vcequ5.F index e9eb9e89..178fa5cd 100644 --- a/src/tool/AV_Conversion/vcequ5.F +++ b/src/tool/AV_Conversion/vcequ5.F @@ -57,17 +57,17 @@ c character*6 nompro parameter ( nompro = 'VCEQU5' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nombno.h" -#include "nombar.h" -#include "nbutil.h" -#include "envca1.h" -#include "impr02.h" + include "nombno.h" + include "nombar.h" + include "nbutil.h" + include "envca1.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -96,7 +96,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -264,7 +264,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AV_Conversion/vcequ6.F b/src/tool/AV_Conversion/vcequ6.F index eb0b7f73..cda4be76 100644 --- a/src/tool/AV_Conversion/vcequ6.F +++ b/src/tool/AV_Conversion/vcequ6.F @@ -59,17 +59,17 @@ c character*6 nompro parameter ( nompro = 'VCEQU6' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "impr02.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -102,7 +102,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -369,7 +369,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AV_Conversion/vcequ7.F b/src/tool/AV_Conversion/vcequ7.F index e4f6dc38..9203629d 100644 --- a/src/tool/AV_Conversion/vcequ7.F +++ b/src/tool/AV_Conversion/vcequ7.F @@ -53,16 +53,16 @@ c character*6 nompro parameter ( nompro = 'VCEQU7' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "impr02.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -91,7 +91,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -168,7 +168,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AV_Conversion/vcequa.F b/src/tool/AV_Conversion/vcequa.F index 0e2b414e..ed3e6a72 100644 --- a/src/tool/AV_Conversion/vcequa.F +++ b/src/tool/AV_Conversion/vcequa.F @@ -64,16 +64,16 @@ c character*6 nompro parameter ( nompro = 'VCEQUA' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "impr02.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -107,7 +107,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -368,7 +368,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AV_Conversion/vcequi.F b/src/tool/AV_Conversion/vcequi.F index 74a0a8e6..47a9c0d2 100644 --- a/src/tool/AV_Conversion/vcequi.F +++ b/src/tool/AV_Conversion/vcequi.F @@ -94,20 +94,20 @@ c character*6 nompro parameter ( nompro = 'VCEQUI' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "dicfen.h" -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombsr.h" -#include "nbutil.h" -#include "impr02.h" + include "dicfen.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombsr.h" + include "nbutil.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -140,7 +140,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -306,7 +306,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AV_Conversion/vcequn.F b/src/tool/AV_Conversion/vcequn.F index a2979648..9f753be3 100644 --- a/src/tool/AV_Conversion/vcequn.F +++ b/src/tool/AV_Conversion/vcequn.F @@ -57,16 +57,16 @@ c character*6 nompro parameter ( nompro = 'VCEQUN' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nombno.h" -#include "nombar.h" -#include "nbutil.h" -#include "impr02.h" + include "nombno.h" + include "nombar.h" + include "nbutil.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -96,7 +96,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -244,7 +244,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Sortie', nompro diff --git a/src/tool/AV_Conversion/vcfia0.F b/src/tool/AV_Conversion/vcfia0.F index 41be7754..13e49002 100644 --- a/src/tool/AV_Conversion/vcfia0.F +++ b/src/tool/AV_Conversion/vcfia0.F @@ -57,30 +57,30 @@ c character*6 nompro parameter ( nompro = 'VCFIA0' ) c -#include "nblang.h" -#include "motcle.h" + include "nblang.h" + include "motcle.h" c c 0.2. ==> communs c -#include "envex1.h" -c -#include "gmenti.h" -#include "gmreel.h" -#include "gmstri.h" -c -#include "envca1.h" -#include "impr02.h" -#include "nombmp.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombno.h" -#include "nombte.h" -#include "nombhe.h" -#include "nombpy.h" -#include "nombpe.h" -#include "dicfen.h" -#include "nbfamm.h" + include "envex1.h" +c + include "gmenti.h" + include "gmreel.h" + include "gmstri.h" +c + include "envca1.h" + include "impr02.h" + include "nombmp.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombno.h" + include "nombte.h" + include "nombhe.h" + include "nombpy.h" + include "nombpe.h" + include "dicfen.h" + include "nbfamm.h" c c 0.3. ==> arguments c @@ -156,7 +156,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -188,7 +188,7 @@ c codret = 1 endif c -#include "impr03.h" + include "impr03.h" c c==== c 2. les structures de base @@ -842,7 +842,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AV_Conversion/vcfia1.F b/src/tool/AV_Conversion/vcfia1.F index 87434d00..f34b91a0 100644 --- a/src/tool/AV_Conversion/vcfia1.F +++ b/src/tool/AV_Conversion/vcfia1.F @@ -61,11 +61,11 @@ c character*6 nompro parameter ( nompro = 'VCFIA1' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -96,7 +96,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -163,7 +163,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AV_Conversion/vcfia2.F b/src/tool/AV_Conversion/vcfia2.F index d95e83cb..2f7230eb 100644 --- a/src/tool/AV_Conversion/vcfia2.F +++ b/src/tool/AV_Conversion/vcfia2.F @@ -62,11 +62,11 @@ c character*6 nompro parameter ( nompro = 'VCFIA2' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -101,7 +101,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -126,7 +126,7 @@ c texte(2,9) = '(''# of those families:'')' texte(2,10) = '(''... The group was found into the family.'')' c -#include "impr03.h" + include "impr03.h" c codret = 0 c @@ -294,7 +294,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AV_Conversion/vcfia3.F b/src/tool/AV_Conversion/vcfia3.F index d815da71..b2b06732 100644 --- a/src/tool/AV_Conversion/vcfia3.F +++ b/src/tool/AV_Conversion/vcfia3.F @@ -61,14 +61,14 @@ c character*6 nompro parameter ( nompro = 'VCFIA3' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "coftex.h" + include "envex1.h" + include "coftex.h" c -#include "impr02.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -95,7 +95,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -140,7 +140,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AV_Conversion/vcfia4.F b/src/tool/AV_Conversion/vcfia4.F index e5296ab5..31177cfe 100644 --- a/src/tool/AV_Conversion/vcfia4.F +++ b/src/tool/AV_Conversion/vcfia4.F @@ -98,23 +98,23 @@ c character*6 nompro parameter ( nompro = 'VCFIA4' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "envca1.h" -#include "coftex.h" -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombpy.h" -#include "nombhe.h" -#include "nombpe.h" + include "envex1.h" + include "envca1.h" + include "coftex.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombpy.h" + include "nombhe.h" + include "nombpe.h" c -#include "impr02.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -156,7 +156,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -174,7 +174,7 @@ c write (ulsort,texte(langue,5)) diammi #endif c -#include "impr03.h" + include "impr03.h" c codret = 0 c @@ -531,7 +531,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AV_Conversion/vcfiad.F b/src/tool/AV_Conversion/vcfiad.F index a5a928a6..9e2cfa76 100644 --- a/src/tool/AV_Conversion/vcfiad.F +++ b/src/tool/AV_Conversion/vcfiad.F @@ -56,12 +56,12 @@ c character*6 nompro parameter ( nompro = 'VCFIAD' ) c -#include "nblang.h" -#include "motcle.h" + include "nblang.h" + include "motcle.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -105,7 +105,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -187,7 +187,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AV_Conversion/vcind0.F b/src/tool/AV_Conversion/vcind0.F index 7444c0d6..8f68e062 100644 --- a/src/tool/AV_Conversion/vcind0.F +++ b/src/tool/AV_Conversion/vcind0.F @@ -55,13 +55,13 @@ c character*6 nompro parameter ( nompro = 'VCIND0' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmstri.h" + include "gmstri.h" c c 0.3. ==> arguments c @@ -94,7 +94,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -194,7 +194,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AV_Conversion/vcind1.F b/src/tool/AV_Conversion/vcind1.F index c9f316fb..0ff85526 100644 --- a/src/tool/AV_Conversion/vcind1.F +++ b/src/tool/AV_Conversion/vcind1.F @@ -56,11 +56,11 @@ c character*6 nompro parameter ( nompro = 'VCIND1' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -94,7 +94,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -255,7 +255,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AV_Conversion/vcind2.F b/src/tool/AV_Conversion/vcind2.F index 2468e25d..55cb026e 100644 --- a/src/tool/AV_Conversion/vcind2.F +++ b/src/tool/AV_Conversion/vcind2.F @@ -65,16 +65,16 @@ c character*6 nompro parameter ( nompro = 'VCIND2' ) c -#include "nblang.h" -#include "consts.h" -#include "meddc0.h" -#include "esutil.h" + include "nblang.h" + include "consts.h" + include "meddc0.h" + include "esutil.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "rftmed.h" + include "rftmed.h" c c 0.3. ==> arguments c @@ -107,7 +107,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -222,7 +222,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AV_Conversion/vcind3.F b/src/tool/AV_Conversion/vcind3.F index b47bc37d..cf7d6ea9 100644 --- a/src/tool/AV_Conversion/vcind3.F +++ b/src/tool/AV_Conversion/vcind3.F @@ -60,13 +60,13 @@ c character*6 nompro parameter ( nompro = 'VCIND3' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmreel.h" + include "gmreel.h" c c 0.3. ==> arguments c @@ -98,7 +98,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -192,7 +192,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AV_Conversion/vcindi.F b/src/tool/AV_Conversion/vcindi.F index fe998329..90124183 100644 --- a/src/tool/AV_Conversion/vcindi.F +++ b/src/tool/AV_Conversion/vcindi.F @@ -53,28 +53,28 @@ c character*6 nompro parameter ( nompro = 'VCINDI' ) c -#include "nblang.h" -#include "motcle.h" + include "nblang.h" + include "motcle.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmreel.h" -#include "gmenti.h" -#include "gmstri.h" + include "gmreel.h" + include "gmenti.h" + include "gmstri.h" c -#include "envca1.h" -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombpy.h" -#include "nombhe.h" -#include "nombpe.h" -#include "refert.h" -#include "impr02.h" + include "envca1.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombpy.h" + include "nombhe.h" + include "nombpe.h" + include "refert.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -153,7 +153,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -188,7 +188,7 @@ c texte(2,17) = '(''More than one field are defined over the '',a)' texte(2,18) = '(''A single time-step should be selected.'')' c -#include "impr03.h" + include "impr03.h" c c 1.4. ==> le numero de sous-etape c @@ -1071,7 +1071,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AV_Conversion/vcinr1.F b/src/tool/AV_Conversion/vcinr1.F index ac4a5426..ed674168 100644 --- a/src/tool/AV_Conversion/vcinr1.F +++ b/src/tool/AV_Conversion/vcinr1.F @@ -67,13 +67,13 @@ c character*6 nompro parameter ( nompro = 'VCINR1' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" + include "gmenti.h" c c 0.3. ==> arguments c @@ -109,7 +109,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -124,7 +124,7 @@ c texte(2,6) = '(''.. Profile length:'',i10)' texte(2,7) = '(''.. Renumbering size:'',i10)' c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ if ( nbvapr.le.0 ) then @@ -225,7 +225,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AV_Conversion/vcinr2.F b/src/tool/AV_Conversion/vcinr2.F index 2174fd48..fd215a1e 100644 --- a/src/tool/AV_Conversion/vcinr2.F +++ b/src/tool/AV_Conversion/vcinr2.F @@ -68,11 +68,11 @@ c character*6 nompro parameter ( nompro = 'VCINR2' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -108,7 +108,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -123,7 +123,7 @@ c texte(2,5) = '(''.. Profile length :'',i10)' texte(2,6) = '(''.. Component # :'',i10)' c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ if ( nbvapr.le.0 ) then @@ -197,7 +197,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AV_Conversion/vcinrr.F b/src/tool/AV_Conversion/vcinrr.F index 57e282a1..dfb984f8 100644 --- a/src/tool/AV_Conversion/vcinrr.F +++ b/src/tool/AV_Conversion/vcinrr.F @@ -104,21 +104,21 @@ c character*6 nompro parameter ( nompro = 'VCINRR' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "impr02.h" -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombhe.h" -#include "nombpy.h" -#include "nombpe.h" + include "impr02.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombhe.h" + include "nombpy.h" + include "nombpe.h" c c 0.3. ==> arguments c @@ -168,7 +168,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -179,7 +179,7 @@ c c texte(2,4) = '(''. Error indicator over '',i10,1x,a)' c -#include "impr03.h" + include "impr03.h" c cgn do 111 , iaux = 1 , nbtafo cgn do 111 , jaux = 1 , nbvind @@ -353,7 +353,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AV_Conversion/vcmaco.F b/src/tool/AV_Conversion/vcmaco.F index 6d362706..f926ddbe 100644 --- a/src/tool/AV_Conversion/vcmaco.F +++ b/src/tool/AV_Conversion/vcmaco.F @@ -93,37 +93,37 @@ c character*6 nompro parameter ( nompro = 'VCMACO' ) c -#include "nblang.h" -#include "referx.h" + include "nblang.h" + include "referx.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" -#include "gmreel.h" -#include "gmstri.h" + include "gmenti.h" + include "gmreel.h" + include "gmstri.h" c -#include "dicfen.h" -#include "envca1.h" -#include "envca2.h" + include "dicfen.h" + include "envca1.h" + include "envca2.h" c -#include "nombno.h" -#include "nombmp.h" -#include "nombar.h" -#include "nombqu.h" -#include "nombtr.h" -#include "nombte.h" -#include "nombhe.h" -#include "nombpe.h" -#include "nombpy.h" -#include "nombsr.h" -#include "nomest.h" -#include "nbfami.h" + include "nombno.h" + include "nombmp.h" + include "nombar.h" + include "nombqu.h" + include "nombtr.h" + include "nombte.h" + include "nombhe.h" + include "nombpe.h" + include "nombpy.h" + include "nombsr.h" + include "nomest.h" + include "nbfami.h" c -#include "rfamed.h" + include "rfamed.h" c -#include "nbutil.h" + include "nbutil.h" c c 0.3. ==> arguments c @@ -214,7 +214,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -237,11 +237,11 @@ c > '(/,5x,i10,'' other elements.'',/,5x,''This is forbidden ...'')' texte(2,10) ='(/,''Incompatible elements are '',a)' c -#include "impr03.h" + include "impr03.h" c typcca = typcce c -#include "mslve4.h" + include "mslve4.h" c #ifdef _DEBUG_HOMARD_ if ( eleinc.eq.0 ) then @@ -2275,7 +2275,7 @@ c c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AV_Conversion/vcmafa.F b/src/tool/AV_Conversion/vcmafa.F index b232d5b4..d2ad2098 100644 --- a/src/tool/AV_Conversion/vcmafa.F +++ b/src/tool/AV_Conversion/vcmafa.F @@ -81,37 +81,37 @@ c character*6 nompro parameter ( nompro = 'VCMAFA' ) c -#include "nblang.h" -#include "consts.h" -#include "meddc0.h" -#include "coftfq.h" -#include "coftfh.h" -#include "cofpfh.h" -#include "coftfp.h" -#include "cofpfp.h" + include "nblang.h" + include "consts.h" + include "meddc0.h" + include "coftfq.h" + include "coftfh.h" + include "cofpfh.h" + include "coftfp.h" + include "cofpfp.h" c c 0.2. ==> communs c -#include "envex1.h" -c -#include "gmenti.h" -#include "gmstri.h" -c -#include "nbutil.h" -#include "dicfen.h" -#include "envca1.h" -#include "nbfami.h" -#include "nbfamm.h" -#include "nombmp.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombno.h" -#include "nombte.h" -#include "nombhe.h" -#include "nombpy.h" -#include "nombpe.h" -#include "impr02.h" + include "envex1.h" +c + include "gmenti.h" + include "gmstri.h" +c + include "nbutil.h" + include "dicfen.h" + include "envca1.h" + include "nbfami.h" + include "nbfamm.h" + include "nombmp.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombno.h" + include "nombte.h" + include "nombhe.h" + include "nombpy.h" + include "nombpe.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -201,7 +201,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -219,7 +219,7 @@ c texte(2,7) = '(5x,''Conversion '',a18,'' ---> HOMARD'',/)' texte(2,8) = '(''No analytical boundary was defined.'')' c -#include "impr03.h" + include "impr03.h" c c==== c 2. recuperation des donnees du maillage d'entree @@ -274,7 +274,7 @@ c endif c #ifdef _DEBUG_HOMARD_ -#include "mslve4.h" + include "mslve4.h" #endif c c 2.2. ==> tableaux @@ -2348,7 +2348,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AV_Conversion/vcmaig.F b/src/tool/AV_Conversion/vcmaig.F index 244471db..98e43b09 100644 --- a/src/tool/AV_Conversion/vcmaig.F +++ b/src/tool/AV_Conversion/vcmaig.F @@ -54,17 +54,17 @@ c character*6 nompro parameter ( nompro = 'VCMAIG' ) c -#include "nblang.h" -#include "referx.h" -#include "consts.h" + include "nblang.h" + include "referx.h" + include "consts.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "meddc0.h" -#include "envca1.h" -#include "nbutil.h" + include "meddc0.h" + include "envca1.h" + include "nbutil.h" c c 0.3. ==> arguments c @@ -93,7 +93,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -108,7 +108,7 @@ c texte(2,4) = '(''End of count on ignored elements :'',i10)' texte(2,5) = '(i10,'' elements were forecasted.'')' c -#include "impr03.h" + include "impr03.h" c c==== c 2. on passe en revue chaque element ignore @@ -159,7 +159,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AV_Conversion/vcmail.F b/src/tool/AV_Conversion/vcmail.F index 91297d55..62d0a38c 100644 --- a/src/tool/AV_Conversion/vcmail.F +++ b/src/tool/AV_Conversion/vcmail.F @@ -53,12 +53,12 @@ c character*6 nompro parameter ( nompro = 'VCMAIL' ) c -#include "nblang.h" -#include "motcle.h" + include "nblang.h" + include "motcle.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -101,7 +101,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -131,7 +131,7 @@ c write (ulsort,texte(langue,5)) endif c -#include "impr03.h" + include "impr03.h" c c==== c 2. les structures de base @@ -253,7 +253,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AV_Conversion/vcmar0.F b/src/tool/AV_Conversion/vcmar0.F index ef8f054c..91ad061a 100644 --- a/src/tool/AV_Conversion/vcmar0.F +++ b/src/tool/AV_Conversion/vcmar0.F @@ -61,22 +61,22 @@ c character*6 nompro parameter ( nompro = 'VCMAR0' ) c -#include "coftex.h" -#include "referx.h" + include "coftex.h" + include "referx.h" c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "nbutil.h" -#include "nombno.h" -#include "refere.h" -#include "nombsr.h" -#include "rftmed.h" -#include "impr02.h" + include "envca1.h" + include "nbutil.h" + include "nombno.h" + include "refere.h" + include "nombsr.h" + include "rftmed.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -112,7 +112,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -133,7 +133,7 @@ c texte(2,10) = >'(''. Neighbour element (calculation #)'',i10,'' ('',a,'')'')' c -#include "impr03.h" + include "impr03.h" c c==== c 2. on passe en revue chaque maille @@ -284,7 +284,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AV_Conversion/vcmare.F b/src/tool/AV_Conversion/vcmare.F index 920d6ed7..d8ec8e3d 100644 --- a/src/tool/AV_Conversion/vcmare.F +++ b/src/tool/AV_Conversion/vcmare.F @@ -115,26 +115,26 @@ c character*6 nompro parameter ( nompro = 'VCMARE' ) c -#include "coftex.h" -#include "referx.h" + include "coftex.h" + include "referx.h" c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "dicfen.h" -#include "envca1.h" -#include "nbutil.h" -#include "nombno.h" -#include "refere.h" -#include "refert.h" -#include "nombar.h" -#include "nombsr.h" -#include "nomest.h" -#include "rftmed.h" -#include "impr02.h" + include "dicfen.h" + include "envca1.h" + include "nbutil.h" + include "nombno.h" + include "refere.h" + include "refert.h" + include "nombar.h" + include "nombsr.h" + include "nomest.h" + include "rftmed.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -178,7 +178,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -211,7 +211,7 @@ c texte(2,11) = '(''Estimation of the number of edges:'',i10)' texte(2,12) = '(''This number is too low.'')' c -#include "impr03.h" + include "impr03.h" c c 1.2. ==> mise a zero c @@ -609,7 +609,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AV_Conversion/vcme21.F b/src/tool/AV_Conversion/vcme21.F index b1975505..66f586b6 100644 --- a/src/tool/AV_Conversion/vcme21.F +++ b/src/tool/AV_Conversion/vcme21.F @@ -85,14 +85,14 @@ c character*6 nompro parameter ( nompro = 'VCME21' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "gmenti.h" + include "envex1.h" + include "gmenti.h" c -#include "impr02.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -126,14 +126,14 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" + include "impr03.h" c texte(1,4) = '(''Familles d''''extrusion des '',a)' c @@ -275,7 +275,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AV_Conversion/vcme22.F b/src/tool/AV_Conversion/vcme22.F index 6b1c4165..7631760c 100644 --- a/src/tool/AV_Conversion/vcme22.F +++ b/src/tool/AV_Conversion/vcme22.F @@ -116,15 +116,15 @@ c character*6 nompro parameter ( nompro = 'VCME22' ) c -#include "nblang.h" -#include "cofaar.h" -#include "cofexq.h" + include "nblang.h" + include "cofaar.h" + include "cofexq.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "impr02.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -157,14 +157,14 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" + include "impr03.h" c texte(1,4) = '(''Familles d''''extrusion des '',a)' c @@ -414,7 +414,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AV_Conversion/vcme23.F b/src/tool/AV_Conversion/vcme23.F index d495af3a..93c24a67 100644 --- a/src/tool/AV_Conversion/vcme23.F +++ b/src/tool/AV_Conversion/vcme23.F @@ -54,16 +54,16 @@ c character*6 nompro parameter ( nompro = 'VCME23' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "gmenti.h" + include "envex1.h" + include "gmenti.h" c -#include "impr02.h" -#include "dicfen.h" -#include "nbfami.h" + include "impr02.h" + include "dicfen.h" + include "nbfami.h" c c 0.3. ==> arguments c @@ -92,14 +92,14 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" + include "impr03.h" c codret = 0 c @@ -194,7 +194,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AV_Conversion/vcme24.F b/src/tool/AV_Conversion/vcme24.F index 0e7845d8..dfa2f258 100644 --- a/src/tool/AV_Conversion/vcme24.F +++ b/src/tool/AV_Conversion/vcme24.F @@ -78,21 +78,21 @@ c character*6 nompro parameter ( nompro = 'VCME24' ) c -#include "nblang.h" -#include "consts.h" -#include "cofaar.h" -#include "coftex.h" -#include "cofexq.h" -#include "cofexh.h" + include "nblang.h" + include "consts.h" + include "cofaar.h" + include "coftex.h" + include "cofexq.h" + include "cofexh.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "impr02.h" -#include "meddc0.h" -#include "dicfen.h" -#include "nbfami.h" + include "impr02.h" + include "meddc0.h" + include "dicfen.h" + include "nbfami.h" c c 0.3. ==> arguments c @@ -122,14 +122,14 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,90002) 'numfam', numfam @@ -258,7 +258,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AV_Conversion/vcme25.F b/src/tool/AV_Conversion/vcme25.F index 0148a2ac..57dfb0e7 100644 --- a/src/tool/AV_Conversion/vcme25.F +++ b/src/tool/AV_Conversion/vcme25.F @@ -73,14 +73,14 @@ c character*6 nompro parameter ( nompro = 'VCME25' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "gmenti.h" + include "envex1.h" + include "gmenti.h" c -#include "impr02.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -110,14 +110,14 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" + include "impr03.h" c texte(1,4) = '(''Familles d''''extrusion des '',a)' c @@ -221,7 +221,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AV_Conversion/vcme26.F b/src/tool/AV_Conversion/vcme26.F index 73a97e19..0f28a8c2 100644 --- a/src/tool/AV_Conversion/vcme26.F +++ b/src/tool/AV_Conversion/vcme26.F @@ -105,14 +105,14 @@ c character*6 nompro parameter ( nompro = 'VCME26' ) c -#include "nblang.h" -#include "cofaar.h" + include "nblang.h" + include "cofaar.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "impr02.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -141,14 +141,14 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" + include "impr03.h" c texte(1,4) = '(''Familles d''''extrusion des '',a)' c @@ -339,7 +339,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AV_Conversion/vcme27.F b/src/tool/AV_Conversion/vcme27.F index bec59d82..8a434225 100644 --- a/src/tool/AV_Conversion/vcme27.F +++ b/src/tool/AV_Conversion/vcme27.F @@ -59,16 +59,16 @@ c character*6 nompro parameter ( nompro = 'VCME27' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "gmenti.h" + include "envex1.h" + include "gmenti.h" c -#include "impr02.h" -#include "dicfen.h" -#include "nbfami.h" + include "impr02.h" + include "dicfen.h" + include "nbfami.h" c c 0.3. ==> arguments c @@ -98,14 +98,14 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" + include "impr03.h" c codret = 0 c @@ -200,7 +200,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AV_Conversion/vcme28.F b/src/tool/AV_Conversion/vcme28.F index 1ca39252..9cea6fc1 100644 --- a/src/tool/AV_Conversion/vcme28.F +++ b/src/tool/AV_Conversion/vcme28.F @@ -89,23 +89,23 @@ c character*6 nompro parameter ( nompro = 'VCME28' ) c -#include "nblang.h" -#include "consts.h" -#include "cofaar.h" -#include "coftex.h" -#include "cofext.h" -#include "cofexq.h" -#include "cofexh.h" -#include "coftfq.h" + include "nblang.h" + include "consts.h" + include "cofaar.h" + include "coftex.h" + include "cofext.h" + include "cofexq.h" + include "cofexh.h" + include "coftfq.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "impr02.h" -#include "meddc0.h" -#include "dicfen.h" -#include "nbfami.h" + include "impr02.h" + include "meddc0.h" + include "dicfen.h" + include "nbfami.h" c c 0.3. ==> arguments c @@ -137,14 +137,14 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,90002) 'numfam', numfam @@ -348,7 +348,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AV_Conversion/vcme29.F b/src/tool/AV_Conversion/vcme29.F index 0ffc4aad..4ade19a2 100644 --- a/src/tool/AV_Conversion/vcme29.F +++ b/src/tool/AV_Conversion/vcme29.F @@ -64,16 +64,16 @@ c character*6 nompro parameter ( nompro = 'VCME29' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "gmenti.h" -#include "nbfami.h" -#include "dicfen.h" + include "envex1.h" + include "gmenti.h" + include "nbfami.h" + include "dicfen.h" c -#include "impr02.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -102,14 +102,14 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" + include "impr03.h" c texte(1,4) = '(''Familles d''''extrusion des '',a)' texte(1,5) = '(''Influence des '',a)' @@ -220,7 +220,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AV_Conversion/vcme30.F b/src/tool/AV_Conversion/vcme30.F index 8d26f357..b0b2501a 100644 --- a/src/tool/AV_Conversion/vcme30.F +++ b/src/tool/AV_Conversion/vcme30.F @@ -83,17 +83,17 @@ c character*6 nompro parameter ( nompro = 'VCME30' ) c -#include "nblang.h" -#include "cofaar.h" -#include "cofexn.h" -#include "cofexa.h" + include "nblang.h" + include "cofaar.h" + include "cofexn.h" + include "cofexa.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "dicfen.h" + include "envex1.h" + include "dicfen.h" c -#include "impr02.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -123,14 +123,14 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" + include "impr03.h" c texte(1,4) = '(''Familles d''''extrusion des '',a)' c @@ -297,7 +297,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AV_Conversion/vcme31.F b/src/tool/AV_Conversion/vcme31.F index 85920a7d..cdc57b9c 100644 --- a/src/tool/AV_Conversion/vcme31.F +++ b/src/tool/AV_Conversion/vcme31.F @@ -80,18 +80,18 @@ c character*6 nompro parameter ( nompro = 'VCME31' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "gmenti.h" -#include "nombar.h" -#include "nombqu.h" -#include "nbfami.h" -#include "dicfen.h" + include "envex1.h" + include "gmenti.h" + include "nombar.h" + include "nombqu.h" + include "nbfami.h" + include "dicfen.h" c -#include "impr02.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -123,14 +123,14 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" + include "impr03.h" c texte(1,4) = '(''Familles d''''extrusion des '',a)' texte(1,5) = '(''Influence des '',a)' @@ -300,7 +300,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AV_Conversion/vcme32.F b/src/tool/AV_Conversion/vcme32.F index 191b32c9..58174d67 100644 --- a/src/tool/AV_Conversion/vcme32.F +++ b/src/tool/AV_Conversion/vcme32.F @@ -113,20 +113,20 @@ c character*6 nompro parameter ( nompro = 'VCME32' ) c -#include "nblang.h" -#include "cofaar.h" -#include "cofexa.h" -#include "cofexq.h" -#include "coftfq.h" + include "nblang.h" + include "cofaar.h" + include "cofexa.h" + include "cofexq.h" + include "coftfq.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "dicfen.h" -#include "nombar.h" -#include "nombqu.h" + include "envex1.h" + include "dicfen.h" + include "nombar.h" + include "nombqu.h" c -#include "impr02.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -158,14 +158,14 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" + include "impr03.h" c texte(1,4) = '(''Familles d''''extrusion des '',a)' c @@ -436,7 +436,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AV_Conversion/vcmex0.F b/src/tool/AV_Conversion/vcmex0.F index 3452249f..1bf23648 100644 --- a/src/tool/AV_Conversion/vcmex0.F +++ b/src/tool/AV_Conversion/vcmex0.F @@ -92,17 +92,17 @@ c character*6 nompro parameter ( nompro = 'VCMEX0' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" + include "envca1.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" c c 0.3. ==> arguments c @@ -137,7 +137,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -156,7 +156,7 @@ c texte(2,6) = '(''==> maximal thickness:'',g13.5)' texte(2,7) = '(''==> '',a3,'' coordinate:'',g13.5)' c -#include "impr03.h" + include "impr03.h" c codret = 0 c @@ -366,7 +366,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AV_Conversion/vcmex1.F b/src/tool/AV_Conversion/vcmex1.F index ca09bb2e..770136c4 100644 --- a/src/tool/AV_Conversion/vcmex1.F +++ b/src/tool/AV_Conversion/vcmex1.F @@ -107,20 +107,20 @@ c character*6 nompro parameter ( nompro = 'VCMEX1' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombhe.h" -#include "nombpe.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombhe.h" + include "nombpe.h" c -#include "ope1a4.h" + include "ope1a4.h" c c 0.3. ==> arguments c @@ -159,14 +159,14 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" + include "impr03.h" c codret = 0 c @@ -470,7 +470,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AV_Conversion/vcmex2.F b/src/tool/AV_Conversion/vcmex2.F index ae42fce9..5a5a621b 100644 --- a/src/tool/AV_Conversion/vcmex2.F +++ b/src/tool/AV_Conversion/vcmex2.F @@ -156,25 +156,25 @@ c character*6 nompro parameter ( nompro = 'VCMEX2' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" + include "gmenti.h" c -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombhe.h" -#include "nbfami.h" -#include "dicfen.h" -#include "cofexa.h" -#include "cofexn.h" -#include "cofext.h" -#include "cofexq.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombhe.h" + include "nbfami.h" + include "dicfen.h" + include "cofexa.h" + include "cofexn.h" + include "cofext.h" + include "cofexq.h" c c 0.3. ==> arguments c @@ -216,14 +216,14 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" + include "impr03.h" c codret = 0 c @@ -584,7 +584,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AV_Conversion/vcmexa.F b/src/tool/AV_Conversion/vcmexa.F index 3c6bb2e5..f3c5c9ca 100644 --- a/src/tool/AV_Conversion/vcmexa.F +++ b/src/tool/AV_Conversion/vcmexa.F @@ -54,18 +54,18 @@ c character*6 nompro parameter ( nompro = 'VCMEXA' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "gmenti.h" -#include "gmreel.h" + include "gmenti.h" + include "gmreel.h" c -#include "envex1.h" -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" + include "envex1.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" c c 0.3. ==> arguments c @@ -133,7 +133,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -174,7 +174,7 @@ c c codret = 0 c -#include "impr03.h" + include "impr03.h" c c==== c 2. les structures de base @@ -344,7 +344,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AV_Conversion/vcmexb.F b/src/tool/AV_Conversion/vcmexb.F index 0086c502..bc74f93c 100644 --- a/src/tool/AV_Conversion/vcmexb.F +++ b/src/tool/AV_Conversion/vcmexb.F @@ -70,21 +70,21 @@ c character*6 nompro parameter ( nompro = 'VCMEXB' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "gmenti.h" + include "gmenti.h" c -#include "envada.h" -#include "envex1.h" -#include "envca1.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombhe.h" -#include "nombpe.h" -#include "nbfami.h" -#include "nomber.h" + include "envada.h" + include "envex1.h" + include "envca1.h" + include "nombtr.h" + include "nombqu.h" + include "nombhe.h" + include "nombpe.h" + include "nbfami.h" + include "nomber.h" c c 0.3. ==> arguments c @@ -138,7 +138,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -155,7 +155,7 @@ c c codret = 0 c -#include "impr03.h" + include "impr03.h" c c==== c 2. la structure generale @@ -491,7 +491,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AV_Conversion/vcmexd.F b/src/tool/AV_Conversion/vcmexd.F index e7f93cd3..6e9e8aee 100644 --- a/src/tool/AV_Conversion/vcmexd.F +++ b/src/tool/AV_Conversion/vcmexd.F @@ -77,25 +77,25 @@ c character*6 nompro parameter ( nompro = 'VCMEXD' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "gmenti.h" -#include "gmreel.h" -c -#include "envex1.h" -#include "envca1.h" -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombhe.h" -#include "nombpe.h" -#include "nbfami.h" -#include "dicfen.h" -#include "nouvnb.h" -#include "nomber.h" + include "gmenti.h" + include "gmreel.h" +c + include "envex1.h" + include "envca1.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombhe.h" + include "nombpe.h" + include "nbfami.h" + include "dicfen.h" + include "nouvnb.h" + include "nomber.h" c c 0.3. ==> arguments c @@ -201,7 +201,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -218,7 +218,7 @@ c c codret = 0 c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ call gmprsx ( nompro, nomail ) @@ -729,7 +729,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AV_Conversion/vcmext.F b/src/tool/AV_Conversion/vcmext.F index 100dea3a..800193e8 100644 --- a/src/tool/AV_Conversion/vcmext.F +++ b/src/tool/AV_Conversion/vcmext.F @@ -54,21 +54,21 @@ c character*6 nompro parameter ( nompro = 'VCMEXT' ) c -#include "nblang.h" -#include "consts.h" + include "nblang.h" + include "consts.h" c c 0.2. ==> communs c -#include "gmenti.h" -#include "gmreel.h" + include "gmenti.h" + include "gmreel.h" c -#include "envex1.h" -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nbfami.h" -#include "dicfen.h" + include "envex1.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nbfami.h" + include "dicfen.h" c c 0.3. ==> arguments c @@ -144,7 +144,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -185,7 +185,7 @@ c c codret = 0 c -#include "impr03.h" + include "impr03.h" c c==== c 2. les structures de base @@ -557,7 +557,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AV_Conversion/vcmfac.F b/src/tool/AV_Conversion/vcmfac.F index a11b89a8..66d6bba1 100644 --- a/src/tool/AV_Conversion/vcmfac.F +++ b/src/tool/AV_Conversion/vcmfac.F @@ -150,34 +150,34 @@ c character*6 nompro parameter ( nompro = 'VCMFAC' ) c -#include "coftex.h" -#include "referx.h" + include "coftex.h" + include "referx.h" c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -c -#include "dicfen.h" -#include "envca1.h" -#include "nbutil.h" -#include "refere.h" -#include "refert.h" -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombhe.h" -#include "nombpe.h" -#include "nombpy.h" -#include "nombsr.h" -#include "nomest.h" -#include "nancnb.h" -#include "envada.h" -#include "rftmed.h" -#include "impr02.h" + include "envex1.h" +c + include "dicfen.h" + include "envca1.h" + include "nbutil.h" + include "refere.h" + include "refert.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombhe.h" + include "nombpe.h" + include "nombpy.h" + include "nombsr.h" + include "nomest.h" + include "nancnb.h" + include "envada.h" + include "rftmed.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -252,7 +252,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -288,7 +288,7 @@ c texte(2,14) = '(''Edges (HOMARD #) : '',6i10)' texte(2,15) = '(''Nodes (calculation #) : '',4i10)' c -#include "impr03.h" + include "impr03.h" c c 1.2. ==> mise a zero c @@ -1251,7 +1251,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AV_Conversion/vcmmen.F b/src/tool/AV_Conversion/vcmmen.F index b0891e59..51fbe4a7 100644 --- a/src/tool/AV_Conversion/vcmmen.F +++ b/src/tool/AV_Conversion/vcmmen.F @@ -63,17 +63,17 @@ c character*6 nompro parameter ( nompro = 'VCMMEN' ) c -#include "consts.h" + include "consts.h" c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "nbutil.h" -#include "impr02.h" + include "envca1.h" + include "nbutil.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -108,7 +108,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -123,7 +123,7 @@ c texte(2,5) = '(''# in calculation : '',i10)' texte(2,6) = '(''MED family : '',i4,'' ; type : '',i4)' c -#include "impr03.h" + include "impr03.h" c codret = 0 c @@ -280,7 +280,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AV_Conversion/vcmmpo.F b/src/tool/AV_Conversion/vcmmpo.F index 9aa21a61..85f451a8 100644 --- a/src/tool/AV_Conversion/vcmmpo.F +++ b/src/tool/AV_Conversion/vcmmpo.F @@ -61,19 +61,19 @@ c character*6 nompro parameter ( nompro = 'VCMMPO' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "dicfen.h" -#include "nbutil.h" -#include "nombno.h" -#include "refert.h" -#include "nombmp.h" -#include "nombsr.h" -#include "rftmed.h" + include "dicfen.h" + include "nbutil.h" + include "nombno.h" + include "refert.h" + include "nombmp.h" + include "nombsr.h" + include "rftmed.h" c c 0.3. ==> arguments c @@ -106,7 +106,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -195,7 +195,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AV_Conversion/vcmnc1.F b/src/tool/AV_Conversion/vcmnc1.F index 04873086..ea9ef1dd 100644 --- a/src/tool/AV_Conversion/vcmnc1.F +++ b/src/tool/AV_Conversion/vcmnc1.F @@ -86,18 +86,18 @@ c character*6 nompro parameter ( nompro = 'VCMNC1' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "impr02.h" -#include "envex1.h" -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "dicfen.h" -#include "nombsr.h" + include "impr02.h" + include "envex1.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "dicfen.h" + include "nombsr.h" c c 0.3. ==> arguments c @@ -139,7 +139,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -320,7 +320,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AV_Conversion/vcmnc2.F b/src/tool/AV_Conversion/vcmnc2.F index 0bca8e39..79a12427 100644 --- a/src/tool/AV_Conversion/vcmnc2.F +++ b/src/tool/AV_Conversion/vcmnc2.F @@ -98,20 +98,20 @@ c character*6 nompro parameter ( nompro = 'VCMNC2' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "impr02.h" -#include "envex1.h" -#include "nombno.h" -#include "nombmp.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "envca1.h" -#include "dicfen.h" -#include "nombsr.h" + include "impr02.h" + include "envex1.h" + include "nombno.h" + include "nombmp.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "envca1.h" + include "dicfen.h" + include "nombsr.h" c c 0.3. ==> arguments c @@ -160,7 +160,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -354,7 +354,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AV_Conversion/vcmnc3.F b/src/tool/AV_Conversion/vcmnc3.F index 55cf817c..1d7d4618 100644 --- a/src/tool/AV_Conversion/vcmnc3.F +++ b/src/tool/AV_Conversion/vcmnc3.F @@ -104,23 +104,23 @@ c character*6 nompro parameter ( nompro = 'VCMNC3' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "gmenti.h" -#include "impr02.h" + include "gmenti.h" + include "impr02.h" c -#include "envex1.h" -#include "nombno.h" -#include "nombmp.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombhe.h" -#include "envca1.h" -#include "dicfen.h" -#include "nombsr.h" + include "envex1.h" + include "nombno.h" + include "nombmp.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombhe.h" + include "envca1.h" + include "dicfen.h" + include "nombsr.h" c c 0.3. ==> arguments c @@ -172,7 +172,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -410,7 +410,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AV_Conversion/vcmnc4.F b/src/tool/AV_Conversion/vcmnc4.F index fb0c6a26..78adc9a9 100644 --- a/src/tool/AV_Conversion/vcmnc4.F +++ b/src/tool/AV_Conversion/vcmnc4.F @@ -59,13 +59,13 @@ c character*6 nompro parameter ( nompro = 'VCMNC4' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "impr02.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -95,7 +95,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -138,7 +138,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AV_Conversion/vcmnco.F b/src/tool/AV_Conversion/vcmnco.F index d840536e..ccad842b 100644 --- a/src/tool/AV_Conversion/vcmnco.F +++ b/src/tool/AV_Conversion/vcmnco.F @@ -98,25 +98,25 @@ c character*6 nompro parameter ( nompro = 'VCMNCO' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "gmenti.h" -#include "gmreel.h" -c -#include "impr02.h" -#include "nombno.h" -#include "nombmp.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombhe.h" -#include "nombte.h" -#include "envca1.h" -#include "dicfen.h" -#include "nombsr.h" + include "envex1.h" + include "gmenti.h" + include "gmreel.h" +c + include "impr02.h" + include "nombno.h" + include "nombmp.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombhe.h" + include "nombte.h" + include "envca1.h" + include "dicfen.h" + include "nombsr.h" c c 0.3. ==> arguments c @@ -181,7 +181,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -750,7 +750,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AV_Conversion/vcmnoe.F b/src/tool/AV_Conversion/vcmnoe.F index 760c4150..4f930f96 100644 --- a/src/tool/AV_Conversion/vcmnoe.F +++ b/src/tool/AV_Conversion/vcmnoe.F @@ -86,22 +86,22 @@ c character*6 nompro parameter ( nompro = 'VCMNOE' ) c -#include "nblang.h" -#include "referx.h" -#include "coftex.h" + include "nblang.h" + include "referx.h" + include "coftex.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "refere.h" -#include "refert.h" -#include "dicfen.h" -#include "nbutil.h" -#include "nombno.h" -#include "nombsr.h" -#include "envca1.h" -#include "rftmed.h" + include "refere.h" + include "refert.h" + include "dicfen.h" + include "nbutil.h" + include "nombno.h" + include "nombsr.h" + include "envca1.h" + include "rftmed.h" c c 0.3. ==> arguments c @@ -132,7 +132,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -178,7 +178,7 @@ c texte(2,17) = > '(''. included only mesh-point nodes :'',i10)' c -#include "impr03.h" + include "impr03.h" c codret = 0 c @@ -571,7 +571,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AV_Conversion/vcmre0.F b/src/tool/AV_Conversion/vcmre0.F index b3240583..9b87956a 100644 --- a/src/tool/AV_Conversion/vcmre0.F +++ b/src/tool/AV_Conversion/vcmre0.F @@ -58,11 +58,11 @@ c character*6 nompro parameter ( nompro = 'VCMRE0' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -89,8 +89,8 @@ c==== c 1. messages c==== c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -155,7 +155,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AV_Conversion/vcmren.F b/src/tool/AV_Conversion/vcmren.F index 02d32384..67e15024 100644 --- a/src/tool/AV_Conversion/vcmren.F +++ b/src/tool/AV_Conversion/vcmren.F @@ -85,23 +85,23 @@ c character*6 nompro parameter ( nompro = 'VCMREN' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nombno.h" -#include "nombar.h" -#include "nombmp.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombpy.h" -#include "nombhe.h" -#include "nombpe.h" -#include "nombsr.h" -#include "nbutil.h" + include "nombno.h" + include "nombar.h" + include "nombmp.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombpy.h" + include "nombhe.h" + include "nombpe.h" + include "nombsr.h" + include "nbutil.h" c c 0.3. ==> arguments c @@ -135,8 +135,8 @@ c==== c 1. messages c==== c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -330,7 +330,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AV_Conversion/vcms20.F b/src/tool/AV_Conversion/vcms20.F index 674f3f7c..177b65de 100644 --- a/src/tool/AV_Conversion/vcms20.F +++ b/src/tool/AV_Conversion/vcms20.F @@ -54,20 +54,20 @@ c character*6 nompro parameter ( nompro = 'VCMS20' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" -#include "gmreel.h" -#include "gmstri.h" + include "gmenti.h" + include "gmreel.h" + include "gmstri.h" c -#include "envca1.h" + include "envca1.h" c -#include "nbutil.h" -#include "impr02.h" + include "nbutil.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -118,7 +118,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -134,7 +134,7 @@ c texte(2,5) = '(''. Number of '',a,'' :'',i10)' texte(2,6) = '(''The number of nodes,'',i10,'' should be pair.'')' c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,90002) 'maext0', maext0 @@ -727,7 +727,7 @@ c c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AV_Conversion/vcms21.F b/src/tool/AV_Conversion/vcms21.F index 6be86df7..39682fa6 100644 --- a/src/tool/AV_Conversion/vcms21.F +++ b/src/tool/AV_Conversion/vcms21.F @@ -65,13 +65,13 @@ c character*6 nompro parameter ( nompro = 'VCMS21' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" + include "envca1.h" c c 0.3. ==> arguments c @@ -103,7 +103,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -132,7 +132,7 @@ c texte(2,8) = '(''==> maximal thickness:'',g13.5)' texte(2,9) = '(''==> '',a3,'' coordinate:'',g13.5)' c -#include "impr03.h" + include "impr03.h" c codret = 0 c @@ -270,7 +270,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AV_Conversion/vcms22.F b/src/tool/AV_Conversion/vcms22.F index bbd04727..531f691a 100644 --- a/src/tool/AV_Conversion/vcms22.F +++ b/src/tool/AV_Conversion/vcms22.F @@ -76,19 +76,19 @@ c character*6 nompro parameter ( nompro = 'VCMS22' ) c -#include "nblang.h" -#include "consta.h" -#include "consts.h" -#include "fractc.h" + include "nblang.h" + include "consta.h" + include "consts.h" + include "fractc.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "infini.h" -#include "meddc0.h" -#include "impr02.h" -#include "op0123.h" + include "infini.h" + include "meddc0.h" + include "impr02.h" + include "op0123.h" c c 0.3. ==> arguments c @@ -132,7 +132,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -161,7 +161,7 @@ c > '(''Found number of '',a,'' for the 2D mesh :'',i10)' texte(2,11) = '(''Element '',i10,'' ('',a,''), numloc = '',4i10)' c -#include "impr03.h" + include "impr03.h" c codret = 0 c @@ -581,7 +581,7 @@ c c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AV_Conversion/vcms2d.F b/src/tool/AV_Conversion/vcms2d.F index 91894ef4..5032cf19 100644 --- a/src/tool/AV_Conversion/vcms2d.F +++ b/src/tool/AV_Conversion/vcms2d.F @@ -53,12 +53,12 @@ c character*6 nompro parameter ( nompro = 'VCMS2D' ) c -#include "nblang.h" -#include "motcle.h" + include "nblang.h" + include "motcle.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -92,7 +92,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -153,7 +153,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AV_Conversion/vcmver.F b/src/tool/AV_Conversion/vcmver.F index 87eedbf8..7ab172a7 100644 --- a/src/tool/AV_Conversion/vcmver.F +++ b/src/tool/AV_Conversion/vcmver.F @@ -49,26 +49,26 @@ c character*6 nompro parameter ( nompro = 'VCMVER' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" + include "gmenti.h" c -#include "envca1.h" -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" + include "envca1.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" c #ifdef _DEBUG_HOMARD_ -#include "dicfen.h" -#include "nbfami.h" + include "dicfen.h" + include "nbfami.h" #endif c -#include "impr02.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -118,7 +118,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -370,7 +370,7 @@ c c if ( nbblqu.ne.1 ) then c -#include "mslve4.h" + include "mslve4.h" write(ulsort,texte(langue,8)) nbblqu, mess14(langue,3,4) write(ulsort,texte(langue,9)) codret = 12 @@ -414,7 +414,7 @@ c c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AV_Conversion/vcori1.F b/src/tool/AV_Conversion/vcori1.F index db316cba..01dbd3f9 100644 --- a/src/tool/AV_Conversion/vcori1.F +++ b/src/tool/AV_Conversion/vcori1.F @@ -56,17 +56,17 @@ c character*6 nompro parameter ( nompro = 'VCORI1' ) c -#include "nblang.h" -#include "referx.h" + include "nblang.h" + include "referx.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "refere.h" -#include "nbutil.h" -#include "nombtr.h" -#include "i1i2i3.h" -#include "impr02.h" + include "envex1.h" + include "refere.h" + include "nbutil.h" + include "nombtr.h" + include "i1i2i3.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -102,7 +102,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -118,7 +118,7 @@ c texte(2,5) = '(4x,''==> '',a,i10,'', local face position'',i2)' texte(2,7) = '(''Code cannot be found'')' c -#include "impr03.h" + include "impr03.h" c c==== c 2. exploration des possibilites @@ -159,7 +159,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AV_Conversion/vcori2.F b/src/tool/AV_Conversion/vcori2.F index 54860d96..de057632 100644 --- a/src/tool/AV_Conversion/vcori2.F +++ b/src/tool/AV_Conversion/vcori2.F @@ -56,17 +56,17 @@ c character*6 nompro parameter ( nompro = 'VCORI2' ) c -#include "nblang.h" -#include "referx.h" + include "nblang.h" + include "referx.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "refere.h" -#include "nbutil.h" -#include "nombqu.h" -#include "j1234j.h" -#include "impr02.h" + include "envex1.h" + include "refere.h" + include "nbutil.h" + include "nombqu.h" + include "j1234j.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -102,7 +102,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -118,7 +118,7 @@ c texte(2,5) = '(4x,''==> '',a,i10,'', local face position'',i2)' texte(2,7) = '(''Code cannot be found'')' c -#include "impr03.h" + include "impr03.h" c c==== c 2. exploration des possibilites @@ -161,7 +161,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AV_Conversion/vcorie.F b/src/tool/AV_Conversion/vcorie.F index 5198a450..db4f167a 100644 --- a/src/tool/AV_Conversion/vcorie.F +++ b/src/tool/AV_Conversion/vcorie.F @@ -82,28 +82,28 @@ c character*6 nompro parameter ( nompro = 'VCORIE' ) c -#include "nblang.h" -#include "referx.h" -#include "cofaar.h" + include "nblang.h" + include "referx.h" + include "cofaar.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "dicfen.h" -#include "refert.h" -#include "refere.h" -#include "nbutil.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombhe.h" -#include "nombpe.h" -#include "nombpy.h" -#include "nombsr.h" -#include "envca1.h" -#include "rftmed.h" -#include "impr02.h" + include "envex1.h" + include "dicfen.h" + include "refert.h" + include "refere.h" + include "nbutil.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombhe.h" + include "nombpe.h" + include "nombpy.h" + include "nombsr.h" + include "envca1.h" + include "rftmed.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -154,7 +154,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -170,7 +170,7 @@ c texte(2,5) = '(4x,''==> '',a,i10,'', local face position'',i2)' texte(2,7) = '(''Code cannot be found'')' c -#include "impr03.h" + include "impr03.h" c c==== c 2. determination de l'orientation des aretes, des triangles et @@ -722,7 +722,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AV_Conversion/vcsfal.F b/src/tool/AV_Conversion/vcsfal.F index 561c4f12..03b78bf4 100644 --- a/src/tool/AV_Conversion/vcsfal.F +++ b/src/tool/AV_Conversion/vcsfal.F @@ -69,17 +69,17 @@ c character*6 nompro parameter ( nompro = 'VCSFAL' ) c -#include "nblang.h" -#include "cofaar.h" + include "nblang.h" + include "cofaar.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "dicfen.h" -#include "nombar.h" -#include "refert.h" -#include "rftmed.h" + include "dicfen.h" + include "nombar.h" + include "refert.h" + include "rftmed.h" c c 0.3. ==> arguments c @@ -116,14 +116,14 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" + include "impr03.h" c codret = 0 c @@ -211,7 +211,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AV_Conversion/vcsfas.F b/src/tool/AV_Conversion/vcsfas.F index 95007846..e6e3ec96 100644 --- a/src/tool/AV_Conversion/vcsfas.F +++ b/src/tool/AV_Conversion/vcsfas.F @@ -79,20 +79,20 @@ c character*6 nompro parameter ( nompro = 'VCSFAS' ) c -#include "nblang.h" -#include "cofaar.h" -#include "cofatq.h" + include "nblang.h" + include "cofaar.h" + include "cofatq.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "dicfen.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "refert.h" -#include "rftmed.h" + include "dicfen.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "refert.h" + include "rftmed.h" c c 0.3. ==> arguments c @@ -135,14 +135,14 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" + include "impr03.h" c codret = 0 c @@ -252,7 +252,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AV_Conversion/vcsfin.F b/src/tool/AV_Conversion/vcsfin.F index bc46ae0c..3e85859e 100644 --- a/src/tool/AV_Conversion/vcsfin.F +++ b/src/tool/AV_Conversion/vcsfin.F @@ -104,17 +104,17 @@ c character*6 nompro parameter ( nompro = 'VCSFIN' ) c -#include "nblang.h" -#include "consts.h" + include "nblang.h" + include "consts.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "dicfen.h" -#include "nombar.h" -#include "nombqu.h" -#include "nombtr.h" + include "dicfen.h" + include "nombar.h" + include "nombqu.h" + include "nombtr.h" c c 0.3. ==> arguments c @@ -160,7 +160,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -177,7 +177,7 @@ c texte(2,6) = > '(''Number of links analytical boundary / group:'',i10)' c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,90002) 'suifro', suifro @@ -324,7 +324,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AV_Conversion/vcsfl0.F b/src/tool/AV_Conversion/vcsfl0.F index 2414feca..bbc8ec85 100644 --- a/src/tool/AV_Conversion/vcsfl0.F +++ b/src/tool/AV_Conversion/vcsfl0.F @@ -73,13 +73,13 @@ c character*6 nompro parameter ( nompro = 'VCSFL0' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "refert.h" -#include "rftmed.h" + include "envex1.h" + include "refert.h" + include "rftmed.h" c c 0.3. ==> arguments c @@ -122,7 +122,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -148,7 +148,7 @@ c texte(2,10) = > '(''.. End #'',i3,'' : noeud '',i10,3(a3,'' ='',g15.8))' c -#include "impr03.h" + include "impr03.h" c codret = 0 c @@ -344,7 +344,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AV_Conversion/vcsflg.F b/src/tool/AV_Conversion/vcsflg.F index f1149283..98717fbf 100644 --- a/src/tool/AV_Conversion/vcsflg.F +++ b/src/tool/AV_Conversion/vcsflg.F @@ -74,11 +74,11 @@ c character*6 nompro parameter ( nompro = 'VCSFLG' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -114,7 +114,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -143,7 +143,7 @@ c texte(2,10) = '(i5,'' problem(s) in boundary definition'')' texte(2,11) = '(7x,''. This family matches.'')' c -#include "impr03.h" + include "impr03.h" c codret = 0 c @@ -315,7 +315,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AV_Conversion/vcsfli.F b/src/tool/AV_Conversion/vcsfli.F index 357d89ce..ea2a5747 100644 --- a/src/tool/AV_Conversion/vcsfli.F +++ b/src/tool/AV_Conversion/vcsfli.F @@ -79,13 +79,13 @@ c character*6 nompro parameter ( nompro = 'VCSFLI' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "refert.h" -#include "rftmed.h" + include "envex1.h" + include "refert.h" + include "rftmed.h" c c 0.3. ==> arguments c @@ -127,7 +127,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -153,7 +153,7 @@ c texte(2,9) = '(/,''Total number of lines :'',i10)' texte(2,10) = '(''Number of vertices to describe lines :'',i10)' c -#include "impr03.h" + include "impr03.h" c codret = 0 c @@ -397,7 +397,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AV_Conversion/vcsfll.F b/src/tool/AV_Conversion/vcsfll.F index 997da252..bf9c4772 100644 --- a/src/tool/AV_Conversion/vcsfll.F +++ b/src/tool/AV_Conversion/vcsfll.F @@ -83,11 +83,11 @@ c character*6 nompro parameter ( nompro = 'VCSFLL' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -128,7 +128,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -164,7 +164,7 @@ c texte(2,13) = > '(/,''The definition of this boundary cannot be found.'')' c -#include "impr03.h" + include "impr03.h" c codret = 0 c @@ -396,7 +396,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/AV_Conversion/vcvar1.F b/src/tool/AV_Conversion/vcvar1.F index ada58c86..04848974 100644 --- a/src/tool/AV_Conversion/vcvar1.F +++ b/src/tool/AV_Conversion/vcvar1.F @@ -43,14 +43,14 @@ c implicit none save c -#include "referx.h" + include "referx.h" c c 0.2. ==> communs c -#include "nbutil.h" -#include "nombar.h" -#include "refere.h" -#include "rftmed.h" + include "nbutil.h" + include "nombar.h" + include "refere.h" + include "rftmed.h" c c 0.3. ==> arguments c diff --git a/src/tool/AV_Conversion/vcvar2.F b/src/tool/AV_Conversion/vcvar2.F index 4f8bac26..233d5bb0 100644 --- a/src/tool/AV_Conversion/vcvar2.F +++ b/src/tool/AV_Conversion/vcvar2.F @@ -46,14 +46,14 @@ c implicit none save c -#include "referx.h" + include "referx.h" c c 0.2. ==> communs c -#include "nbutil.h" -#include "nombar.h" -#include "refere.h" -#include "rftmed.h" + include "nbutil.h" + include "nombar.h" + include "refere.h" + include "rftmed.h" c c 0.3. ==> arguments c diff --git a/src/tool/AV_Conversion/vcvos1.F b/src/tool/AV_Conversion/vcvos1.F index 4bdb358c..9fc285ac 100644 --- a/src/tool/AV_Conversion/vcvos1.F +++ b/src/tool/AV_Conversion/vcvos1.F @@ -49,12 +49,12 @@ c implicit none save c -#include "referx.h" + include "referx.h" c c 0.2. ==> communs c -#include "refere.h" -#include "rftmed.h" + include "refere.h" + include "rftmed.h" c c 0.3. ==> arguments c @@ -72,7 +72,7 @@ c integer glop #endif c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (*,90002) 'nbnoto', nbnoto diff --git a/src/tool/AV_Conversion/vcvos2.F b/src/tool/AV_Conversion/vcvos2.F index a3f14ce0..0697876e 100644 --- a/src/tool/AV_Conversion/vcvos2.F +++ b/src/tool/AV_Conversion/vcvos2.F @@ -50,12 +50,12 @@ c implicit none save c -#include "referx.h" + include "referx.h" c c 0.2. ==> communs c -#include "refere.h" -#include "rftmed.h" + include "refere.h" + include "rftmed.h" c c 0.3. ==> arguments c diff --git a/src/tool/Creation_Maillage/cmal01.F b/src/tool/Creation_Maillage/cmal01.F index 8ceb5a52..b88c6cb4 100644 --- a/src/tool/Creation_Maillage/cmal01.F +++ b/src/tool/Creation_Maillage/cmal01.F @@ -85,13 +85,13 @@ c character*6 nompro parameter ( nompro = 'CMAL01' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "envca1.h" -#include "gmenti.h" + include "envex1.h" + include "envca1.h" + include "gmenti.h" c c 0.3. ==> arguments c @@ -162,14 +162,14 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,90002) 'typall', typall @@ -630,7 +630,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmalco.F b/src/tool/Creation_Maillage/cmalco.F index 16f8f2ac..60638067 100644 --- a/src/tool/Creation_Maillage/cmalco.F +++ b/src/tool/Creation_Maillage/cmalco.F @@ -53,18 +53,18 @@ c character*6 nompro parameter ( nompro = 'CMALCO' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "impr02.h" + include "impr02.h" c -#include "envca1.h" -#include "nombhe.h" -#include "nombpe.h" -#include "nouvnb.h" + include "envca1.h" + include "nombhe.h" + include "nombpe.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -116,7 +116,7 @@ c======================================================================= c c 1.3. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -135,7 +135,7 @@ c texte(2,6) = '(''Size modification of arrays for '',a)' texte(2,7) = '(5x,''==> error code :'',i8)' c -#include "impr03.h" + include "impr03.h" c c 1.4. ==> le numero de sous-etape c @@ -312,7 +312,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmalde.F b/src/tool/Creation_Maillage/cmalde.F index 18b2232a..de045931 100644 --- a/src/tool/Creation_Maillage/cmalde.F +++ b/src/tool/Creation_Maillage/cmalde.F @@ -63,23 +63,23 @@ c character*6 nompro parameter ( nompro = 'CMALDE' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "impr02.h" + include "envex1.h" + include "impr02.h" c -#include "envca1.h" -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombhe.h" -#include "nombpe.h" -#include "nombpy.h" -#include "nouvnb.h" + include "envca1.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombhe.h" + include "nombpe.h" + include "nombpy.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -126,7 +126,7 @@ c======================================================================= c c 1.3. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -143,7 +143,7 @@ c texte(2,5) = '(45(''=''),/)' texte(2,6) = '(''Size modification of arrays for '',a)' c -#include "impr03.h" + include "impr03.h" c c 1.4. ==> le numero de sous-etape c @@ -281,7 +281,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmalra.F b/src/tool/Creation_Maillage/cmalra.F index b0b8663c..9765bddc 100644 --- a/src/tool/Creation_Maillage/cmalra.F +++ b/src/tool/Creation_Maillage/cmalra.F @@ -63,12 +63,12 @@ c character*6 nompro parameter ( nompro = 'CMALRA' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "envca1.h" + include "envex1.h" + include "envca1.h" c c 0.3. ==> arguments c @@ -130,7 +130,7 @@ c======================================================================= c c 1.3. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -145,7 +145,7 @@ c > '(/,a6,'' MEMORY ALLOCATION FOR STANDARD REFINEMENT'')' texte(2,5) = '(48(''=''),/)' c -#include "impr03.h" + include "impr03.h" c c 1.4. ==> le numero de sous-etape c @@ -264,7 +264,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmcact.F b/src/tool/Creation_Maillage/cmcact.F index fbdfdf98..c6394e8d 100644 --- a/src/tool/Creation_Maillage/cmcact.F +++ b/src/tool/Creation_Maillage/cmcact.F @@ -68,15 +68,15 @@ c character*6 nompro parameter ( nompro = 'CMCACT' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envada.h" -#include "nombno.h" -#include "nouvnb.h" + include "envada.h" + include "nombno.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -107,14 +107,14 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" + include "impr03.h" c c==== c 2. numeros mini/maxi des noeuds p1 @@ -384,7 +384,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmcdhb.F b/src/tool/Creation_Maillage/cmcdhb.F index 8e732c8c..2ea97c56 100644 --- a/src/tool/Creation_Maillage/cmcdhb.F +++ b/src/tool/Creation_Maillage/cmcdhb.F @@ -121,17 +121,17 @@ c character*6 nompro parameter ( nompro = 'CMCDHB' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" -#include "nombhe.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" + include "nombhe.h" c c 0.3. ==> arguments c @@ -183,7 +183,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -204,8 +204,8 @@ c texte(2,8) ='(''Edge #'',i2,'' :'',i10,'' state :'',i10)' texte(2,10) ='(i10,'' problems ...'')' c -#include "impr03.h" -#include "impr04.h" + include "impr03.h" + include "impr04.h" c codret = 0 c @@ -422,7 +422,7 @@ cgn write(ulsort,90002) 'fhpyte',fhpyte(1,1),fhpyte(2,1) c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmcdhe.F b/src/tool/Creation_Maillage/cmcdhe.F index 5557ba10..453d383e 100644 --- a/src/tool/Creation_Maillage/cmcdhe.F +++ b/src/tool/Creation_Maillage/cmcdhe.F @@ -110,20 +110,20 @@ c character*6 nompro parameter ( nompro = 'CMCDHE' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" -#include "nombhe.h" -#include "hexcf0.h" -#include "hexcf1.h" -#include "ope002.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" + include "nombhe.h" + include "hexcf0.h" + include "hexcf1.h" + include "ope002.h" c c 0.3. ==> arguments c @@ -152,7 +152,7 @@ c c c 0.4. ==> variables locales c -#include "hexcf3.h" + include "hexcf3.h" c integer iaux integer decbin, decbrf @@ -172,7 +172,7 @@ c 1. intialisations c==== c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -189,8 +189,8 @@ c texte(2,6) = '(''Permutation:'',i5)' texte(2,7) = '(''New status for the hexahedron:'',i5)' c -#include "impr03.h" -#include "impr04.h" + include "impr03.h" + include "impr04.h" c c 1.2. ==> variables de travail c @@ -198,7 +198,7 @@ c c nbfihe = 0 c -#include "hexcf2.h" + include "hexcf2.h" c c Parcours des hexaedres actifs c @@ -260,7 +260,7 @@ c #endif call utsohe ( somare, listar, listso ) c -#include "hexcf4.h" + include "hexcf4.h" c c==== c 4. L'etat final de l'hexaedre @@ -1931,7 +1931,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmcdpe.F b/src/tool/Creation_Maillage/cmcdpe.F index 00933bac..16acaa1d 100644 --- a/src/tool/Creation_Maillage/cmcdpe.F +++ b/src/tool/Creation_Maillage/cmcdpe.F @@ -126,17 +126,17 @@ c character*6 nompro parameter ( nompro = 'CMCDPE' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" -#include "nombhe.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" + include "nombhe.h" c c 0.3. ==> arguments c @@ -189,7 +189,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -210,8 +210,8 @@ c texte(2,8) ='(''Edge #'',i2,'' :'',i10,'' state :'',i10)' texte(2,10) ='(i10,'' problems ...'')' c -#include "impr03.h" -#include "impr04.h" + include "impr03.h" + include "impr04.h" c codret = 0 c @@ -516,7 +516,7 @@ cgn write(ulsort,90002) 'fppyte',fppyte(1,1),fppyte(2,1) c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmcdq2.F b/src/tool/Creation_Maillage/cmcdq2.F index 2782682e..804eec0f 100644 --- a/src/tool/Creation_Maillage/cmcdq2.F +++ b/src/tool/Creation_Maillage/cmcdq2.F @@ -76,16 +76,16 @@ c character*6 nompro parameter ( nompro = 'CMCDQ2' ) c -#include "nblang.h" -#include "cofatq.h" + include "nblang.h" + include "cofatq.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nouvnb.h" -#include "dicfen.h" -#include "nbfami.h" + include "nouvnb.h" + include "dicfen.h" + include "nbfami.h" c c 0.3. ==> arguments c @@ -123,7 +123,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -138,7 +138,7 @@ c texte(2,5) ='(''quadrangle #'',i10,''do not match :'')' texte(2,6) ='(''Edge #'',i2,'' :'',i10,'' state :'',i10)' c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,90002) 'indare', indare @@ -283,7 +283,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmcdq3.F b/src/tool/Creation_Maillage/cmcdq3.F index 9f5bd12d..6cb7651d 100644 --- a/src/tool/Creation_Maillage/cmcdq3.F +++ b/src/tool/Creation_Maillage/cmcdq3.F @@ -84,17 +84,17 @@ c character*6 nompro parameter ( nompro = 'CMCDQ3' ) c -#include "nblang.h" -#include "coftfq.h" -#include "cofatq.h" + include "nblang.h" + include "coftfq.h" + include "cofatq.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nouvnb.h" -#include "dicfen.h" -#include "nbfami.h" + include "nouvnb.h" + include "dicfen.h" + include "nbfami.h" c c 0.3. ==> arguments c @@ -135,7 +135,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -150,7 +150,7 @@ c texte(2,5) ='(''quadrangle #'',i10,''do not match :'')' texte(2,6) ='(''Edge #'',i2,'' :'',i10,'' state :'',i10)' c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,90002) 'entree : indare', indare @@ -346,7 +346,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmcdq5.F b/src/tool/Creation_Maillage/cmcdq5.F index f6adbe74..834c182b 100644 --- a/src/tool/Creation_Maillage/cmcdq5.F +++ b/src/tool/Creation_Maillage/cmcdq5.F @@ -82,18 +82,18 @@ c character*6 nompro parameter ( nompro = 'CMCDQ5' ) c -#include "nblang.h" -#include "cofatq.h" -#include "fractc.h" + include "nblang.h" + include "cofatq.h" + include "fractc.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "envca1.h" + include "envex1.h" + include "envca1.h" c -#include "nouvnb.h" -#include "dicfen.h" -#include "nbfami.h" + include "nouvnb.h" + include "dicfen.h" + include "nbfami.h" c c 0.3. ==> arguments c @@ -138,7 +138,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -155,7 +155,7 @@ c texte(2,6) ='(''Edge #'',i2,'' :'',i10,'' state :'',i10)' texte(2,7) = '(''.. Central node'',i10,'', coor :'',3g15.7)' c -#include "impr03.h" + include "impr03.h" c codret = 0 c @@ -369,7 +369,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmcdqu.F b/src/tool/Creation_Maillage/cmcdqu.F index ed741dfe..3894a032 100644 --- a/src/tool/Creation_Maillage/cmcdqu.F +++ b/src/tool/Creation_Maillage/cmcdqu.F @@ -91,16 +91,16 @@ c character*6 nompro parameter ( nompro = 'CMCDQU' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "envca1.h" + include "envex1.h" + include "envca1.h" c -#include "nouvnb.h" -#include "dicfen.h" -#include "nbfami.h" + include "nouvnb.h" + include "dicfen.h" + include "nbfami.h" c c 0.3. ==> arguments c @@ -138,14 +138,14 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" + include "impr03.h" c codret = 0 c @@ -235,7 +235,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmcdte.F b/src/tool/Creation_Maillage/cmcdte.F index 513b224b..3f3b0b0e 100644 --- a/src/tool/Creation_Maillage/cmcdte.F +++ b/src/tool/Creation_Maillage/cmcdte.F @@ -78,15 +78,15 @@ c character*6 nompro parameter ( nompro = 'CMCDTE' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "i1i2i3.h" -#include "demitr.h" -#include "nouvnb.h" + include "i1i2i3.h" + include "demitr.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -147,7 +147,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -1810,7 +1810,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmcdtr.F b/src/tool/Creation_Maillage/cmcdtr.F index c36c4d47..fdffb39b 100644 --- a/src/tool/Creation_Maillage/cmcdtr.F +++ b/src/tool/Creation_Maillage/cmcdtr.F @@ -75,17 +75,17 @@ c character*6 nompro parameter ( nompro = 'CMCDTR' ) c -#include "nblang.h" -#include "cofatq.h" + include "nblang.h" + include "cofatq.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "demitr.h" -#include "nouvnb.h" -#include "dicfen.h" -#include "nbfami.h" + include "demitr.h" + include "nouvnb.h" + include "dicfen.h" + include "nbfami.h" c c 0.3. ==> arguments c @@ -122,7 +122,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -139,7 +139,7 @@ c texte(2,6) ='(''Edge #'',i2,'':'',i10,'' state:'',i10)' texte(2,10) ='(i10,'' problems ...'')' c -#include "impr03.h" + include "impr03.h" c codret = 0 c @@ -346,7 +346,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmch01.F b/src/tool/Creation_Maillage/cmch01.F index dca8e41e..7e1e418e 100644 --- a/src/tool/Creation_Maillage/cmch01.F +++ b/src/tool/Creation_Maillage/cmch01.F @@ -115,17 +115,17 @@ c character*6 nompro parameter ( nompro = 'CMCH01' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" -#include "cofpfh.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" + include "cofpfh.h" c c 0.3. ==> arguments c @@ -179,7 +179,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -480,7 +480,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmch02.F b/src/tool/Creation_Maillage/cmch02.F index 57a4e92b..6db94870 100644 --- a/src/tool/Creation_Maillage/cmch02.F +++ b/src/tool/Creation_Maillage/cmch02.F @@ -115,17 +115,17 @@ c character*6 nompro parameter ( nompro = 'CMCH02' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" -#include "cofpfh.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" + include "cofpfh.h" c c 0.3. ==> arguments c @@ -179,7 +179,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -480,7 +480,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmch03.F b/src/tool/Creation_Maillage/cmch03.F index f5deb0f7..115d2b5e 100644 --- a/src/tool/Creation_Maillage/cmch03.F +++ b/src/tool/Creation_Maillage/cmch03.F @@ -115,17 +115,17 @@ c character*6 nompro parameter ( nompro = 'CMCH03' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" -#include "cofpfh.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" + include "cofpfh.h" c c 0.3. ==> arguments c @@ -179,7 +179,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -480,7 +480,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmch04.F b/src/tool/Creation_Maillage/cmch04.F index f8aa07ff..c68d0de7 100644 --- a/src/tool/Creation_Maillage/cmch04.F +++ b/src/tool/Creation_Maillage/cmch04.F @@ -115,17 +115,17 @@ c character*6 nompro parameter ( nompro = 'CMCH04' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" -#include "cofpfh.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" + include "cofpfh.h" c c 0.3. ==> arguments c @@ -179,7 +179,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -480,7 +480,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmch05.F b/src/tool/Creation_Maillage/cmch05.F index 59cbb207..3fc78787 100644 --- a/src/tool/Creation_Maillage/cmch05.F +++ b/src/tool/Creation_Maillage/cmch05.F @@ -115,17 +115,17 @@ c character*6 nompro parameter ( nompro = 'CMCH05' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" -#include "cofpfh.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" + include "cofpfh.h" c c 0.3. ==> arguments c @@ -179,7 +179,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -480,7 +480,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmch06.F b/src/tool/Creation_Maillage/cmch06.F index 1a09ba4c..c8b7b179 100644 --- a/src/tool/Creation_Maillage/cmch06.F +++ b/src/tool/Creation_Maillage/cmch06.F @@ -115,17 +115,17 @@ c character*6 nompro parameter ( nompro = 'CMCH06' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" -#include "cofpfh.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" + include "cofpfh.h" c c 0.3. ==> arguments c @@ -179,7 +179,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -480,7 +480,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmch07.F b/src/tool/Creation_Maillage/cmch07.F index 38697170..f8fd4969 100644 --- a/src/tool/Creation_Maillage/cmch07.F +++ b/src/tool/Creation_Maillage/cmch07.F @@ -115,17 +115,17 @@ c character*6 nompro parameter ( nompro = 'CMCH07' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" -#include "cofpfh.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" + include "cofpfh.h" c c 0.3. ==> arguments c @@ -179,7 +179,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -480,7 +480,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmch08.F b/src/tool/Creation_Maillage/cmch08.F index f5580a91..b6c0cbe9 100644 --- a/src/tool/Creation_Maillage/cmch08.F +++ b/src/tool/Creation_Maillage/cmch08.F @@ -115,17 +115,17 @@ c character*6 nompro parameter ( nompro = 'CMCH08' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" -#include "cofpfh.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" + include "cofpfh.h" c c 0.3. ==> arguments c @@ -179,7 +179,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -480,7 +480,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmch09.F b/src/tool/Creation_Maillage/cmch09.F index 5b338c3d..fd3ea898 100644 --- a/src/tool/Creation_Maillage/cmch09.F +++ b/src/tool/Creation_Maillage/cmch09.F @@ -115,17 +115,17 @@ c character*6 nompro parameter ( nompro = 'CMCH09' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" -#include "cofpfh.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" + include "cofpfh.h" c c 0.3. ==> arguments c @@ -179,7 +179,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -480,7 +480,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmch10.F b/src/tool/Creation_Maillage/cmch10.F index 8292fb2b..266419ba 100644 --- a/src/tool/Creation_Maillage/cmch10.F +++ b/src/tool/Creation_Maillage/cmch10.F @@ -115,17 +115,17 @@ c character*6 nompro parameter ( nompro = 'CMCH10' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" -#include "cofpfh.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" + include "cofpfh.h" c c 0.3. ==> arguments c @@ -179,7 +179,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -480,7 +480,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmch11.F b/src/tool/Creation_Maillage/cmch11.F index 6d1a9f31..4f9804d2 100644 --- a/src/tool/Creation_Maillage/cmch11.F +++ b/src/tool/Creation_Maillage/cmch11.F @@ -115,17 +115,17 @@ c character*6 nompro parameter ( nompro = 'CMCH11' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" -#include "cofpfh.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" + include "cofpfh.h" c c 0.3. ==> arguments c @@ -179,7 +179,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -480,7 +480,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmch12.F b/src/tool/Creation_Maillage/cmch12.F index 0611b092..a89f1b4c 100644 --- a/src/tool/Creation_Maillage/cmch12.F +++ b/src/tool/Creation_Maillage/cmch12.F @@ -115,17 +115,17 @@ c character*6 nompro parameter ( nompro = 'CMCH12' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" -#include "cofpfh.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" + include "cofpfh.h" c c 0.3. ==> arguments c @@ -179,7 +179,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -480,7 +480,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmch13.F b/src/tool/Creation_Maillage/cmch13.F index 1b9ef378..dbdd1faa 100644 --- a/src/tool/Creation_Maillage/cmch13.F +++ b/src/tool/Creation_Maillage/cmch13.F @@ -115,17 +115,17 @@ c character*6 nompro parameter ( nompro = 'CMCH13' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" -#include "cofpfh.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" + include "cofpfh.h" c c 0.3. ==> arguments c @@ -179,7 +179,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -480,7 +480,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmch14.F b/src/tool/Creation_Maillage/cmch14.F index c96689b1..72bea85f 100644 --- a/src/tool/Creation_Maillage/cmch14.F +++ b/src/tool/Creation_Maillage/cmch14.F @@ -115,17 +115,17 @@ c character*6 nompro parameter ( nompro = 'CMCH14' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" -#include "cofpfh.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" + include "cofpfh.h" c c 0.3. ==> arguments c @@ -179,7 +179,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -480,7 +480,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmch15.F b/src/tool/Creation_Maillage/cmch15.F index 324809ab..606db21b 100644 --- a/src/tool/Creation_Maillage/cmch15.F +++ b/src/tool/Creation_Maillage/cmch15.F @@ -115,17 +115,17 @@ c character*6 nompro parameter ( nompro = 'CMCH15' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" -#include "cofpfh.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" + include "cofpfh.h" c c 0.3. ==> arguments c @@ -179,7 +179,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -480,7 +480,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmch16.F b/src/tool/Creation_Maillage/cmch16.F index 262a2473..b4549a1b 100644 --- a/src/tool/Creation_Maillage/cmch16.F +++ b/src/tool/Creation_Maillage/cmch16.F @@ -115,17 +115,17 @@ c character*6 nompro parameter ( nompro = 'CMCH16' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" -#include "cofpfh.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" + include "cofpfh.h" c c 0.3. ==> arguments c @@ -179,7 +179,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -480,7 +480,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmch17.F b/src/tool/Creation_Maillage/cmch17.F index 140296d0..b8c59d4e 100644 --- a/src/tool/Creation_Maillage/cmch17.F +++ b/src/tool/Creation_Maillage/cmch17.F @@ -115,17 +115,17 @@ c character*6 nompro parameter ( nompro = 'CMCH17' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" -#include "cofpfh.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" + include "cofpfh.h" c c 0.3. ==> arguments c @@ -179,7 +179,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -480,7 +480,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmch18.F b/src/tool/Creation_Maillage/cmch18.F index 680741c3..453791ed 100644 --- a/src/tool/Creation_Maillage/cmch18.F +++ b/src/tool/Creation_Maillage/cmch18.F @@ -115,17 +115,17 @@ c character*6 nompro parameter ( nompro = 'CMCH18' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" -#include "cofpfh.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" + include "cofpfh.h" c c 0.3. ==> arguments c @@ -179,7 +179,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -480,7 +480,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmch19.F b/src/tool/Creation_Maillage/cmch19.F index 49d1be4e..2dc5d5dc 100644 --- a/src/tool/Creation_Maillage/cmch19.F +++ b/src/tool/Creation_Maillage/cmch19.F @@ -115,17 +115,17 @@ c character*6 nompro parameter ( nompro = 'CMCH19' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" -#include "cofpfh.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" + include "cofpfh.h" c c 0.3. ==> arguments c @@ -179,7 +179,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -480,7 +480,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmch20.F b/src/tool/Creation_Maillage/cmch20.F index 837a5561..a1de437b 100644 --- a/src/tool/Creation_Maillage/cmch20.F +++ b/src/tool/Creation_Maillage/cmch20.F @@ -115,17 +115,17 @@ c character*6 nompro parameter ( nompro = 'CMCH20' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" -#include "cofpfh.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" + include "cofpfh.h" c c 0.3. ==> arguments c @@ -179,7 +179,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -480,7 +480,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmch21.F b/src/tool/Creation_Maillage/cmch21.F index 792d8694..fdc7ec6c 100644 --- a/src/tool/Creation_Maillage/cmch21.F +++ b/src/tool/Creation_Maillage/cmch21.F @@ -115,17 +115,17 @@ c character*6 nompro parameter ( nompro = 'CMCH21' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" -#include "cofpfh.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" + include "cofpfh.h" c c 0.3. ==> arguments c @@ -179,7 +179,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -480,7 +480,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmch22.F b/src/tool/Creation_Maillage/cmch22.F index ccca11e5..27fc6bf6 100644 --- a/src/tool/Creation_Maillage/cmch22.F +++ b/src/tool/Creation_Maillage/cmch22.F @@ -115,17 +115,17 @@ c character*6 nompro parameter ( nompro = 'CMCH22' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" -#include "cofpfh.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" + include "cofpfh.h" c c 0.3. ==> arguments c @@ -179,7 +179,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -480,7 +480,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmch23.F b/src/tool/Creation_Maillage/cmch23.F index d9eb25e9..e61fe4d0 100644 --- a/src/tool/Creation_Maillage/cmch23.F +++ b/src/tool/Creation_Maillage/cmch23.F @@ -115,17 +115,17 @@ c character*6 nompro parameter ( nompro = 'CMCH23' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" -#include "cofpfh.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" + include "cofpfh.h" c c 0.3. ==> arguments c @@ -179,7 +179,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -480,7 +480,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmch24.F b/src/tool/Creation_Maillage/cmch24.F index 37526643..07d28d50 100644 --- a/src/tool/Creation_Maillage/cmch24.F +++ b/src/tool/Creation_Maillage/cmch24.F @@ -115,17 +115,17 @@ c character*6 nompro parameter ( nompro = 'CMCH24' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" -#include "cofpfh.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" + include "cofpfh.h" c c 0.3. ==> arguments c @@ -179,7 +179,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -480,7 +480,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmch31.F b/src/tool/Creation_Maillage/cmch31.F index a8b7ab71..26770283 100644 --- a/src/tool/Creation_Maillage/cmch31.F +++ b/src/tool/Creation_Maillage/cmch31.F @@ -114,16 +114,16 @@ c character*6 nompro parameter ( nompro = 'CMCH31' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -176,7 +176,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -462,7 +462,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmch32.F b/src/tool/Creation_Maillage/cmch32.F index bd8f3b60..3cc28b6e 100644 --- a/src/tool/Creation_Maillage/cmch32.F +++ b/src/tool/Creation_Maillage/cmch32.F @@ -114,16 +114,16 @@ c character*6 nompro parameter ( nompro = 'CMCH32' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -176,7 +176,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -462,7 +462,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmch33.F b/src/tool/Creation_Maillage/cmch33.F index 3f9fe141..d3c6a1fd 100644 --- a/src/tool/Creation_Maillage/cmch33.F +++ b/src/tool/Creation_Maillage/cmch33.F @@ -114,16 +114,16 @@ c character*6 nompro parameter ( nompro = 'CMCH33' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -176,7 +176,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -462,7 +462,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmch34.F b/src/tool/Creation_Maillage/cmch34.F index ce4ee952..9bfcd1d5 100644 --- a/src/tool/Creation_Maillage/cmch34.F +++ b/src/tool/Creation_Maillage/cmch34.F @@ -114,16 +114,16 @@ c character*6 nompro parameter ( nompro = 'CMCH34' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -176,7 +176,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -462,7 +462,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmch35.F b/src/tool/Creation_Maillage/cmch35.F index 092a3570..9490ad96 100644 --- a/src/tool/Creation_Maillage/cmch35.F +++ b/src/tool/Creation_Maillage/cmch35.F @@ -114,16 +114,16 @@ c character*6 nompro parameter ( nompro = 'CMCH35' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -176,7 +176,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -462,7 +462,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmch36.F b/src/tool/Creation_Maillage/cmch36.F index 1127051c..917616ca 100644 --- a/src/tool/Creation_Maillage/cmch36.F +++ b/src/tool/Creation_Maillage/cmch36.F @@ -114,16 +114,16 @@ c character*6 nompro parameter ( nompro = 'CMCH36' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -176,7 +176,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -462,7 +462,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmch40.F b/src/tool/Creation_Maillage/cmch40.F index b1360058..6bfe8a39 100644 --- a/src/tool/Creation_Maillage/cmch40.F +++ b/src/tool/Creation_Maillage/cmch40.F @@ -112,17 +112,17 @@ c character*6 nompro parameter ( nompro = 'CMCH40' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" -#include "cofpfh.h" -#include "coftfh.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" + include "cofpfh.h" + include "coftfh.h" c c 0.3. ==> arguments c @@ -173,7 +173,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -344,7 +344,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmch41.F b/src/tool/Creation_Maillage/cmch41.F index 211fcf22..c2de561f 100644 --- a/src/tool/Creation_Maillage/cmch41.F +++ b/src/tool/Creation_Maillage/cmch41.F @@ -107,15 +107,15 @@ c character*6 nompro parameter ( nompro = 'CMCH41' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -158,7 +158,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -358,7 +358,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmch42.F b/src/tool/Creation_Maillage/cmch42.F index 530ec852..2624c912 100644 --- a/src/tool/Creation_Maillage/cmch42.F +++ b/src/tool/Creation_Maillage/cmch42.F @@ -107,15 +107,15 @@ c character*6 nompro parameter ( nompro = 'CMCH42' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -158,7 +158,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -358,7 +358,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmch43.F b/src/tool/Creation_Maillage/cmch43.F index 65b5c1bb..a812acd4 100644 --- a/src/tool/Creation_Maillage/cmch43.F +++ b/src/tool/Creation_Maillage/cmch43.F @@ -107,15 +107,15 @@ c character*6 nompro parameter ( nompro = 'CMCH43' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -158,7 +158,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -358,7 +358,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmch44.F b/src/tool/Creation_Maillage/cmch44.F index 6bfdc2ba..01b7e84f 100644 --- a/src/tool/Creation_Maillage/cmch44.F +++ b/src/tool/Creation_Maillage/cmch44.F @@ -107,15 +107,15 @@ c character*6 nompro parameter ( nompro = 'CMCH44' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -158,7 +158,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -358,7 +358,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmch45.F b/src/tool/Creation_Maillage/cmch45.F index 0c739fda..b1d0c164 100644 --- a/src/tool/Creation_Maillage/cmch45.F +++ b/src/tool/Creation_Maillage/cmch45.F @@ -107,15 +107,15 @@ c character*6 nompro parameter ( nompro = 'CMCH45' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -158,7 +158,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -358,7 +358,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmch46.F b/src/tool/Creation_Maillage/cmch46.F index 93ee1355..e9857048 100644 --- a/src/tool/Creation_Maillage/cmch46.F +++ b/src/tool/Creation_Maillage/cmch46.F @@ -107,15 +107,15 @@ c character*6 nompro parameter ( nompro = 'CMCH46' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -158,7 +158,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -358,7 +358,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmch61.F b/src/tool/Creation_Maillage/cmch61.F index e7ac62d7..7b432a26 100644 --- a/src/tool/Creation_Maillage/cmch61.F +++ b/src/tool/Creation_Maillage/cmch61.F @@ -95,16 +95,16 @@ c character*6 nompro parameter ( nompro = 'CMCH61' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" -#include "cofpfh.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" + include "cofpfh.h" c c 0.3. ==> arguments c @@ -152,7 +152,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -493,7 +493,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmch62.F b/src/tool/Creation_Maillage/cmch62.F index ddc045af..ca3c3fe6 100644 --- a/src/tool/Creation_Maillage/cmch62.F +++ b/src/tool/Creation_Maillage/cmch62.F @@ -95,16 +95,16 @@ c character*6 nompro parameter ( nompro = 'CMCH62' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" -#include "cofpfh.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" + include "cofpfh.h" c c 0.3. ==> arguments c @@ -152,7 +152,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -475,7 +475,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmch63.F b/src/tool/Creation_Maillage/cmch63.F index f3bf99a0..eed50f69 100644 --- a/src/tool/Creation_Maillage/cmch63.F +++ b/src/tool/Creation_Maillage/cmch63.F @@ -95,16 +95,16 @@ c character*6 nompro parameter ( nompro = 'CMCH63' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" -#include "cofpfh.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" + include "cofpfh.h" c c 0.3. ==> arguments c @@ -152,7 +152,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -475,7 +475,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmch64.F b/src/tool/Creation_Maillage/cmch64.F index 9bfca44d..0f01936d 100644 --- a/src/tool/Creation_Maillage/cmch64.F +++ b/src/tool/Creation_Maillage/cmch64.F @@ -95,16 +95,16 @@ c character*6 nompro parameter ( nompro = 'CMCH64' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" -#include "cofpfh.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" + include "cofpfh.h" c c 0.3. ==> arguments c @@ -152,7 +152,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -475,7 +475,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmch65.F b/src/tool/Creation_Maillage/cmch65.F index a124964f..11359726 100644 --- a/src/tool/Creation_Maillage/cmch65.F +++ b/src/tool/Creation_Maillage/cmch65.F @@ -95,16 +95,16 @@ c character*6 nompro parameter ( nompro = 'CMCH65' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" -#include "cofpfh.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" + include "cofpfh.h" c c 0.3. ==> arguments c @@ -152,7 +152,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -475,7 +475,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmch66.F b/src/tool/Creation_Maillage/cmch66.F index be86f263..44057c11 100644 --- a/src/tool/Creation_Maillage/cmch66.F +++ b/src/tool/Creation_Maillage/cmch66.F @@ -95,16 +95,16 @@ c character*6 nompro parameter ( nompro = 'CMCH66' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" -#include "cofpfh.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" + include "cofpfh.h" c c 0.3. ==> arguments c @@ -152,7 +152,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -458,7 +458,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmch67.F b/src/tool/Creation_Maillage/cmch67.F index b0f228a6..a6e7fa5b 100644 --- a/src/tool/Creation_Maillage/cmch67.F +++ b/src/tool/Creation_Maillage/cmch67.F @@ -95,16 +95,16 @@ c character*6 nompro parameter ( nompro = 'CMCH67' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" -#include "cofpfh.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" + include "cofpfh.h" c c 0.3. ==> arguments c @@ -152,7 +152,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -475,7 +475,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmch68.F b/src/tool/Creation_Maillage/cmch68.F index 855e8c0c..43336ff1 100644 --- a/src/tool/Creation_Maillage/cmch68.F +++ b/src/tool/Creation_Maillage/cmch68.F @@ -95,16 +95,16 @@ c character*6 nompro parameter ( nompro = 'CMCH68' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" -#include "cofpfh.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" + include "cofpfh.h" c c 0.3. ==> arguments c @@ -152,7 +152,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -458,7 +458,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmch69.F b/src/tool/Creation_Maillage/cmch69.F index d234c1f7..9aad7bdf 100644 --- a/src/tool/Creation_Maillage/cmch69.F +++ b/src/tool/Creation_Maillage/cmch69.F @@ -95,16 +95,16 @@ c character*6 nompro parameter ( nompro = 'CMCH69' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" -#include "cofpfh.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" + include "cofpfh.h" c c 0.3. ==> arguments c @@ -152,7 +152,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -493,7 +493,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmch70.F b/src/tool/Creation_Maillage/cmch70.F index 36884090..56074b59 100644 --- a/src/tool/Creation_Maillage/cmch70.F +++ b/src/tool/Creation_Maillage/cmch70.F @@ -95,16 +95,16 @@ c character*6 nompro parameter ( nompro = 'CMCH70' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" -#include "cofpfh.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" + include "cofpfh.h" c c 0.3. ==> arguments c @@ -152,7 +152,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -475,7 +475,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmch71.F b/src/tool/Creation_Maillage/cmch71.F index 3b4183d4..c960fca3 100644 --- a/src/tool/Creation_Maillage/cmch71.F +++ b/src/tool/Creation_Maillage/cmch71.F @@ -95,16 +95,16 @@ c character*6 nompro parameter ( nompro = 'CMCH71' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" -#include "cofpfh.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" + include "cofpfh.h" c c 0.3. ==> arguments c @@ -152,7 +152,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -475,7 +475,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmch72.F b/src/tool/Creation_Maillage/cmch72.F index d32aeab7..63a483ce 100644 --- a/src/tool/Creation_Maillage/cmch72.F +++ b/src/tool/Creation_Maillage/cmch72.F @@ -95,16 +95,16 @@ c character*6 nompro parameter ( nompro = 'CMCH72' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" -#include "cofpfh.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" + include "cofpfh.h" c c 0.3. ==> arguments c @@ -152,7 +152,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -475,7 +475,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmch81.F b/src/tool/Creation_Maillage/cmch81.F index b53028cb..9ca7c6b8 100644 --- a/src/tool/Creation_Maillage/cmch81.F +++ b/src/tool/Creation_Maillage/cmch81.F @@ -103,16 +103,16 @@ c character*6 nompro parameter ( nompro = 'CMCH81' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -162,7 +162,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -464,7 +464,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmch82.F b/src/tool/Creation_Maillage/cmch82.F index af006ab3..34973b58 100644 --- a/src/tool/Creation_Maillage/cmch82.F +++ b/src/tool/Creation_Maillage/cmch82.F @@ -103,16 +103,16 @@ c character*6 nompro parameter ( nompro = 'CMCH82' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -162,7 +162,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -464,7 +464,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmch83.F b/src/tool/Creation_Maillage/cmch83.F index 5c6320a1..23154795 100644 --- a/src/tool/Creation_Maillage/cmch83.F +++ b/src/tool/Creation_Maillage/cmch83.F @@ -103,16 +103,16 @@ c character*6 nompro parameter ( nompro = 'CMCH83' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -162,7 +162,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -464,7 +464,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmch84.F b/src/tool/Creation_Maillage/cmch84.F index ddf03196..1c1eb55c 100644 --- a/src/tool/Creation_Maillage/cmch84.F +++ b/src/tool/Creation_Maillage/cmch84.F @@ -103,16 +103,16 @@ c character*6 nompro parameter ( nompro = 'CMCH84' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -162,7 +162,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -464,7 +464,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmch85.F b/src/tool/Creation_Maillage/cmch85.F index a2879655..c736ef1b 100644 --- a/src/tool/Creation_Maillage/cmch85.F +++ b/src/tool/Creation_Maillage/cmch85.F @@ -103,16 +103,16 @@ c character*6 nompro parameter ( nompro = 'CMCH85' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -162,7 +162,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -464,7 +464,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmch86.F b/src/tool/Creation_Maillage/cmch86.F index b5f97827..c337b622 100644 --- a/src/tool/Creation_Maillage/cmch86.F +++ b/src/tool/Creation_Maillage/cmch86.F @@ -103,16 +103,16 @@ c character*6 nompro parameter ( nompro = 'CMCH86' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -162,7 +162,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -464,7 +464,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmch87.F b/src/tool/Creation_Maillage/cmch87.F index d24fbf31..7254d18c 100644 --- a/src/tool/Creation_Maillage/cmch87.F +++ b/src/tool/Creation_Maillage/cmch87.F @@ -103,16 +103,16 @@ c character*6 nompro parameter ( nompro = 'CMCH87' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -162,7 +162,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -464,7 +464,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmch88.F b/src/tool/Creation_Maillage/cmch88.F index d857a71f..55408f80 100644 --- a/src/tool/Creation_Maillage/cmch88.F +++ b/src/tool/Creation_Maillage/cmch88.F @@ -103,16 +103,16 @@ c character*6 nompro parameter ( nompro = 'CMCH88' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -162,7 +162,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -464,7 +464,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmcha1.F b/src/tool/Creation_Maillage/cmcha1.F index 7966994c..fdc83ee3 100644 --- a/src/tool/Creation_Maillage/cmcha1.F +++ b/src/tool/Creation_Maillage/cmcha1.F @@ -95,15 +95,15 @@ c character*6 nompro parameter ( nompro = 'CMCHA1' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -140,7 +140,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -478,7 +478,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmcha2.F b/src/tool/Creation_Maillage/cmcha2.F index d6ceede9..0173c17d 100644 --- a/src/tool/Creation_Maillage/cmcha2.F +++ b/src/tool/Creation_Maillage/cmcha2.F @@ -112,16 +112,16 @@ c character*6 nompro parameter ( nompro = 'CMCHA2' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -164,7 +164,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -1049,7 +1049,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmcha3.F b/src/tool/Creation_Maillage/cmcha3.F index 59c6d79e..ef86d7ed 100644 --- a/src/tool/Creation_Maillage/cmcha3.F +++ b/src/tool/Creation_Maillage/cmcha3.F @@ -101,16 +101,16 @@ c character*6 nompro parameter ( nompro = 'CMCHA3' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -151,8 +151,8 @@ c==== c 1. messages c==== c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -434,7 +434,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmchaa.F b/src/tool/Creation_Maillage/cmchaa.F index 4f36ee2e..aecb87a2 100644 --- a/src/tool/Creation_Maillage/cmchaa.F +++ b/src/tool/Creation_Maillage/cmchaa.F @@ -69,13 +69,13 @@ c character*6 nompro parameter ( nompro = 'CMCHAA' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nouvnb.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -105,7 +105,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -352,7 +352,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmchac.F b/src/tool/Creation_Maillage/cmchac.F index b668aa40..9314cf9f 100644 --- a/src/tool/Creation_Maillage/cmchac.F +++ b/src/tool/Creation_Maillage/cmchac.F @@ -81,14 +81,14 @@ c character*6 nompro parameter ( nompro = 'CMCHAC' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nouvnb.h" -#include "ope1a4.h" + include "nouvnb.h" + include "ope1a4.h" c c 0.3. ==> arguments c @@ -128,7 +128,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -262,7 +262,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmchad.F b/src/tool/Creation_Maillage/cmchad.F index 8b38f146..6c817a2b 100644 --- a/src/tool/Creation_Maillage/cmchad.F +++ b/src/tool/Creation_Maillage/cmchad.F @@ -87,17 +87,17 @@ c character*6 nompro parameter ( nompro = 'CMCHAD' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" -#include "cofpfh.h" -#include "ope1a4.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" + include "cofpfh.h" + include "ope1a4.h" c c 0.3. ==> arguments c @@ -130,7 +130,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -189,7 +189,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmchae.F b/src/tool/Creation_Maillage/cmchae.F index b3e6dd89..9a0e1392 100644 --- a/src/tool/Creation_Maillage/cmchae.F +++ b/src/tool/Creation_Maillage/cmchae.F @@ -86,16 +86,16 @@ c character*6 nompro parameter ( nompro = 'CMCHAE' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" -#include "coftfh.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" + include "coftfh.h" c c 0.3. ==> arguments c @@ -142,7 +142,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -304,7 +304,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmchaf.F b/src/tool/Creation_Maillage/cmchaf.F index f5f310c8..27fe99fb 100644 --- a/src/tool/Creation_Maillage/cmchaf.F +++ b/src/tool/Creation_Maillage/cmchaf.F @@ -83,14 +83,14 @@ c character*6 nompro parameter ( nompro = 'CMCHAF' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nouvnb.h" -#include "ope1a4.h" + include "nouvnb.h" + include "ope1a4.h" c c 0.3. ==> arguments c @@ -141,7 +141,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -355,7 +355,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmchag.F b/src/tool/Creation_Maillage/cmchag.F index ca2f1698..288865b3 100644 --- a/src/tool/Creation_Maillage/cmchag.F +++ b/src/tool/Creation_Maillage/cmchag.F @@ -86,16 +86,16 @@ c character*6 nompro parameter ( nompro = 'CMCHAG' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" -#include "coftfh.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" + include "coftfh.h" c c 0.3. ==> arguments c @@ -153,7 +153,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -319,7 +319,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmchah.F b/src/tool/Creation_Maillage/cmchah.F index 450cc6b2..d19adf6e 100644 --- a/src/tool/Creation_Maillage/cmchah.F +++ b/src/tool/Creation_Maillage/cmchah.F @@ -83,14 +83,14 @@ c character*6 nompro parameter ( nompro = 'CMCHAH' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nouvnb.h" -#include "ope1a4.h" + include "nouvnb.h" + include "ope1a4.h" c c 0.3. ==> arguments c @@ -141,7 +141,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -355,7 +355,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmchai.F b/src/tool/Creation_Maillage/cmchai.F index c75c7d87..db59ddbf 100644 --- a/src/tool/Creation_Maillage/cmchai.F +++ b/src/tool/Creation_Maillage/cmchai.F @@ -86,16 +86,16 @@ c character*6 nompro parameter ( nompro = 'CMCHAI' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" -#include "coftfh.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" + include "coftfh.h" c c 0.3. ==> arguments c @@ -155,7 +155,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -321,7 +321,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmchak.F b/src/tool/Creation_Maillage/cmchak.F index 956955e3..45e549f9 100644 --- a/src/tool/Creation_Maillage/cmchak.F +++ b/src/tool/Creation_Maillage/cmchak.F @@ -68,13 +68,13 @@ c character*6 nompro parameter ( nompro = 'CMCHAK' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nouvnb.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -104,7 +104,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -438,7 +438,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmchal.F b/src/tool/Creation_Maillage/cmchal.F index df1668b7..89d4d273 100644 --- a/src/tool/Creation_Maillage/cmchal.F +++ b/src/tool/Creation_Maillage/cmchal.F @@ -68,13 +68,13 @@ c character*6 nompro parameter ( nompro = 'CMCHAL' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nouvnb.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -104,7 +104,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -438,7 +438,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmcham.F b/src/tool/Creation_Maillage/cmcham.F index 2eb7bafb..5d792993 100644 --- a/src/tool/Creation_Maillage/cmcham.F +++ b/src/tool/Creation_Maillage/cmcham.F @@ -83,16 +83,16 @@ c character*6 nompro parameter ( nompro = 'CMCHAM' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" -#include "coftfh.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" + include "coftfh.h" c c 0.3. ==> arguments c @@ -122,7 +122,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -386,7 +386,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmchan.F b/src/tool/Creation_Maillage/cmchan.F index 3f6faba7..00c5f537 100644 --- a/src/tool/Creation_Maillage/cmchan.F +++ b/src/tool/Creation_Maillage/cmchan.F @@ -83,16 +83,16 @@ c character*6 nompro parameter ( nompro = 'CMCHAN' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" -#include "coftfh.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" + include "coftfh.h" c c 0.3. ==> arguments c @@ -126,7 +126,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -391,7 +391,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmchap.F b/src/tool/Creation_Maillage/cmchap.F index 7db92777..373fb174 100644 --- a/src/tool/Creation_Maillage/cmchap.F +++ b/src/tool/Creation_Maillage/cmchap.F @@ -79,13 +79,13 @@ c character*6 nompro parameter ( nompro = 'CMCHAP' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nouvnb.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -120,7 +120,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -424,7 +424,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmchaq.F b/src/tool/Creation_Maillage/cmchaq.F index c1a68366..ab2a9008 100644 --- a/src/tool/Creation_Maillage/cmchaq.F +++ b/src/tool/Creation_Maillage/cmchaq.F @@ -79,13 +79,13 @@ c character*6 nompro parameter ( nompro = 'CMCHAQ' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nouvnb.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -120,7 +120,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -424,7 +424,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmchar.F b/src/tool/Creation_Maillage/cmchar.F index d0f5bce7..a333946d 100644 --- a/src/tool/Creation_Maillage/cmchar.F +++ b/src/tool/Creation_Maillage/cmchar.F @@ -79,13 +79,13 @@ c character*6 nompro parameter ( nompro = 'CMCHAR' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nouvnb.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -120,7 +120,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -424,7 +424,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmchas.F b/src/tool/Creation_Maillage/cmchas.F index 1bb690a2..664a517c 100644 --- a/src/tool/Creation_Maillage/cmchas.F +++ b/src/tool/Creation_Maillage/cmchas.F @@ -79,13 +79,13 @@ c character*6 nompro parameter ( nompro = 'CMCHAS' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nouvnb.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -120,7 +120,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -424,7 +424,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmchat.F b/src/tool/Creation_Maillage/cmchat.F index a9a570ed..fa0c3d09 100644 --- a/src/tool/Creation_Maillage/cmchat.F +++ b/src/tool/Creation_Maillage/cmchat.F @@ -79,13 +79,13 @@ c character*6 nompro parameter ( nompro = 'CMCHAT' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nouvnb.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -120,7 +120,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -424,7 +424,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmchau.F b/src/tool/Creation_Maillage/cmchau.F index 269e4ff6..93460df5 100644 --- a/src/tool/Creation_Maillage/cmchau.F +++ b/src/tool/Creation_Maillage/cmchau.F @@ -79,13 +79,13 @@ c character*6 nompro parameter ( nompro = 'CMCHAU' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nouvnb.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -120,7 +120,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -424,7 +424,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmchav.F b/src/tool/Creation_Maillage/cmchav.F index 1b1b0b34..d97cdcad 100644 --- a/src/tool/Creation_Maillage/cmchav.F +++ b/src/tool/Creation_Maillage/cmchav.F @@ -79,13 +79,13 @@ c character*6 nompro parameter ( nompro = 'CMCHAV' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nouvnb.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -120,7 +120,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -424,7 +424,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmchaw.F b/src/tool/Creation_Maillage/cmchaw.F index 4ab9faea..4723abfb 100644 --- a/src/tool/Creation_Maillage/cmchaw.F +++ b/src/tool/Creation_Maillage/cmchaw.F @@ -79,13 +79,13 @@ c character*6 nompro parameter ( nompro = 'CMCHAW' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nouvnb.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -120,7 +120,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -424,7 +424,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmchea.F b/src/tool/Creation_Maillage/cmchea.F index e4b47ec0..52456534 100644 --- a/src/tool/Creation_Maillage/cmchea.F +++ b/src/tool/Creation_Maillage/cmchea.F @@ -59,7 +59,7 @@ c c c 0.2. ==> communs c -#include "nouvnb.h" + include "nouvnb.h" c c 0.3. ==> arguments c diff --git a/src/tool/Creation_Maillage/cmchex.F b/src/tool/Creation_Maillage/cmchex.F index 36bba8c5..14456ec8 100644 --- a/src/tool/Creation_Maillage/cmchex.F +++ b/src/tool/Creation_Maillage/cmchex.F @@ -72,7 +72,7 @@ c c c 0.2. ==> communs c -#include "nouvnb.h" + include "nouvnb.h" c c 0.3. ==> arguments c diff --git a/src/tool/Creation_Maillage/cmchf0.F b/src/tool/Creation_Maillage/cmchf0.F index 9f119698..bcd93adf 100644 --- a/src/tool/Creation_Maillage/cmchf0.F +++ b/src/tool/Creation_Maillage/cmchf0.F @@ -107,16 +107,16 @@ c character*6 nompro parameter ( nompro = 'CMCHF0' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" -#include "impr02.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -154,7 +154,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -372,7 +372,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmchfa.F b/src/tool/Creation_Maillage/cmchfa.F index 2f3adb16..398a6204 100644 --- a/src/tool/Creation_Maillage/cmchfa.F +++ b/src/tool/Creation_Maillage/cmchfa.F @@ -86,15 +86,15 @@ c character*6 nompro parameter ( nompro = 'CMCHFA' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nouvnb.h" -#include "comp07.h" -#include "defiqu.h" + include "nouvnb.h" + include "comp07.h" + include "defiqu.h" c c 0.3. ==> arguments c @@ -127,7 +127,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -321,7 +321,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmchfb.F b/src/tool/Creation_Maillage/cmchfb.F index d890c0bb..ca84a227 100644 --- a/src/tool/Creation_Maillage/cmchfb.F +++ b/src/tool/Creation_Maillage/cmchfb.F @@ -63,13 +63,13 @@ c character*6 nompro parameter ( nompro = 'CMCHFB' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nouvnb.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -96,7 +96,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -168,7 +168,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmchfc.F b/src/tool/Creation_Maillage/cmchfc.F index 22893689..78dc7ab8 100644 --- a/src/tool/Creation_Maillage/cmchfc.F +++ b/src/tool/Creation_Maillage/cmchfc.F @@ -63,13 +63,13 @@ c character*6 nompro parameter ( nompro = 'CMCHFC' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nouvnb.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -97,7 +97,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -144,7 +144,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmchfd.F b/src/tool/Creation_Maillage/cmchfd.F index 2fec951c..ca9f92f6 100644 --- a/src/tool/Creation_Maillage/cmchfd.F +++ b/src/tool/Creation_Maillage/cmchfd.F @@ -62,7 +62,7 @@ cgn parameter ( nompro = 'CMCHFD' ) c c 0.2. ==> communs c -#include "nouvnb.h" + include "nouvnb.h" c c 0.3. ==> arguments c diff --git a/src/tool/Creation_Maillage/cmchfe.F b/src/tool/Creation_Maillage/cmchfe.F index d4e00905..751c3b6e 100644 --- a/src/tool/Creation_Maillage/cmchfe.F +++ b/src/tool/Creation_Maillage/cmchfe.F @@ -62,7 +62,7 @@ cgn parameter ( nompro = 'CMCHFE' ) c c 0.2. ==> communs c -#include "nouvnb.h" + include "nouvnb.h" c c 0.3. ==> arguments c diff --git a/src/tool/Creation_Maillage/cmchpa.F b/src/tool/Creation_Maillage/cmchpa.F index 079d59df..9e77f622 100644 --- a/src/tool/Creation_Maillage/cmchpa.F +++ b/src/tool/Creation_Maillage/cmchpa.F @@ -63,14 +63,14 @@ c character*6 nompro parameter ( nompro = 'CMCHPA' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nouvnb.h" -#include "fractf.h" + include "nouvnb.h" + include "fractf.h" c c 0.3. ==> arguments c @@ -99,15 +99,15 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" -#include "impr04.h" + include "impr03.h" + include "impr04.h" c codret = 0 c @@ -146,7 +146,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmchpb.F b/src/tool/Creation_Maillage/cmchpb.F index 61236603..f43dcdd6 100644 --- a/src/tool/Creation_Maillage/cmchpb.F +++ b/src/tool/Creation_Maillage/cmchpb.F @@ -73,15 +73,15 @@ c character*6 nompro parameter ( nompro = 'CMCHPB' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "nouvnb.h" -#include "fractf.h" + include "envca1.h" + include "nouvnb.h" + include "fractf.h" c c 0.3. ==> arguments c @@ -115,15 +115,15 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" -#include "impr04.h" + include "impr03.h" + include "impr04.h" c codret = 0 c @@ -186,7 +186,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmconf.F b/src/tool/Creation_Maillage/cmconf.F index f95d4a6a..6fa86224 100644 --- a/src/tool/Creation_Maillage/cmconf.F +++ b/src/tool/Creation_Maillage/cmconf.F @@ -73,25 +73,25 @@ c character*6 nompro parameter ( nompro = 'CMCONF' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" -#include "gmreel.h" + include "gmenti.h" + include "gmreel.h" c -#include "nombno.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombhe.h" -#include "nombpe.h" -#include "nombpy.h" -#include "nouvnb.h" -#include "envca1.h" -#include "impr02.h" + include "nombno.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombhe.h" + include "nombpe.h" + include "nombpy.h" + include "nouvnb.h" + include "envca1.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -165,7 +165,7 @@ c======================================================================= c c 1.3. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -187,7 +187,7 @@ c texte(2,7) = > '(5x,''Wrong number.'',i10,'' were expected.'')' c -#include "impr03.h" + include "impr03.h" c c 1.4. ==> le numero de sous-etape c @@ -726,7 +726,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmcp01.F b/src/tool/Creation_Maillage/cmcp01.F index f1ed6099..c7be468b 100644 --- a/src/tool/Creation_Maillage/cmcp01.F +++ b/src/tool/Creation_Maillage/cmcp01.F @@ -108,18 +108,18 @@ c character*6 nompro parameter ( nompro = 'CMCP01' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" -#include "ope001.h" -#include "i1i2i3.h" -#include "coftfp.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" + include "ope001.h" + include "i1i2i3.h" + include "coftfp.h" c c 0.3. ==> arguments c @@ -173,15 +173,15 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" -#include "impr04.h" + include "impr03.h" + include "impr04.h" c codret = 0 c @@ -416,7 +416,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmcp02.F b/src/tool/Creation_Maillage/cmcp02.F index a4ae0e9a..65a64226 100644 --- a/src/tool/Creation_Maillage/cmcp02.F +++ b/src/tool/Creation_Maillage/cmcp02.F @@ -108,18 +108,18 @@ c character*6 nompro parameter ( nompro = 'CMCP02' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" -#include "ope001.h" -#include "i1i2i3.h" -#include "coftfp.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" + include "ope001.h" + include "i1i2i3.h" + include "coftfp.h" c c 0.3. ==> arguments c @@ -173,15 +173,15 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" -#include "impr04.h" + include "impr03.h" + include "impr04.h" c codret = 0 c @@ -416,7 +416,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmcp03.F b/src/tool/Creation_Maillage/cmcp03.F index 7703109d..9317b595 100644 --- a/src/tool/Creation_Maillage/cmcp03.F +++ b/src/tool/Creation_Maillage/cmcp03.F @@ -108,18 +108,18 @@ c character*6 nompro parameter ( nompro = 'CMCP03' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" -#include "ope001.h" -#include "i1i2i3.h" -#include "coftfp.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" + include "ope001.h" + include "i1i2i3.h" + include "coftfp.h" c c 0.3. ==> arguments c @@ -173,15 +173,15 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" -#include "impr04.h" + include "impr03.h" + include "impr04.h" c codret = 0 c @@ -416,7 +416,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmcp04.F b/src/tool/Creation_Maillage/cmcp04.F index 5c986d94..e962a4ab 100644 --- a/src/tool/Creation_Maillage/cmcp04.F +++ b/src/tool/Creation_Maillage/cmcp04.F @@ -108,19 +108,19 @@ c character*6 nompro parameter ( nompro = 'CMCP04' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" -#include "ope001.h" -#include "ope002.h" -#include "i1i2i3.h" -#include "coftfp.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" + include "ope001.h" + include "ope002.h" + include "i1i2i3.h" + include "coftfp.h" c c 0.3. ==> arguments c @@ -174,15 +174,15 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" -#include "impr04.h" + include "impr03.h" + include "impr04.h" c codret = 0 c @@ -419,7 +419,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmcp05.F b/src/tool/Creation_Maillage/cmcp05.F index 55720dfe..deba3c64 100644 --- a/src/tool/Creation_Maillage/cmcp05.F +++ b/src/tool/Creation_Maillage/cmcp05.F @@ -108,19 +108,19 @@ c character*6 nompro parameter ( nompro = 'CMCP05' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" -#include "ope001.h" -#include "ope002.h" -#include "i1i2i3.h" -#include "coftfp.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" + include "ope001.h" + include "ope002.h" + include "i1i2i3.h" + include "coftfp.h" c c 0.3. ==> arguments c @@ -174,15 +174,15 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" -#include "impr04.h" + include "impr03.h" + include "impr04.h" c codret = 0 c @@ -419,7 +419,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmcp06.F b/src/tool/Creation_Maillage/cmcp06.F index 6b69d5d4..8da53d24 100644 --- a/src/tool/Creation_Maillage/cmcp06.F +++ b/src/tool/Creation_Maillage/cmcp06.F @@ -108,19 +108,19 @@ c character*6 nompro parameter ( nompro = 'CMCP06' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" -#include "ope001.h" -#include "ope002.h" -#include "i1i2i3.h" -#include "coftfp.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" + include "ope001.h" + include "ope002.h" + include "i1i2i3.h" + include "coftfp.h" c c 0.3. ==> arguments c @@ -174,15 +174,15 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" -#include "impr04.h" + include "impr03.h" + include "impr04.h" c codret = 0 c @@ -419,7 +419,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmcp0a.F b/src/tool/Creation_Maillage/cmcp0a.F index 65ef7e56..39035afb 100644 --- a/src/tool/Creation_Maillage/cmcp0a.F +++ b/src/tool/Creation_Maillage/cmcp0a.F @@ -108,15 +108,15 @@ c character*6 nompro parameter ( nompro = 'CMCP0A' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -155,7 +155,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -166,8 +166,8 @@ c c texte(2,4) = '(''No edge is correct.'')' c -#include "impr03.h" -#include "impr04.h" + include "impr03.h" + include "impr04.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,90002) 'indare', indare @@ -366,7 +366,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmcp0b.F b/src/tool/Creation_Maillage/cmcp0b.F index 380c92b7..dcd1e68b 100644 --- a/src/tool/Creation_Maillage/cmcp0b.F +++ b/src/tool/Creation_Maillage/cmcp0b.F @@ -75,15 +75,15 @@ c character*6 nompro parameter ( nompro = 'CMCP0B' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nouvnb.h" -#include "ope001.h" -#include "demitr.h" + include "nouvnb.h" + include "ope001.h" + include "demitr.h" c c 0.3. ==> arguments c @@ -119,15 +119,15 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" -#include "impr04.h" + include "impr03.h" + include "impr04.h" c codret = 0 c @@ -229,7 +229,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmcp0c.F b/src/tool/Creation_Maillage/cmcp0c.F index 49d50ab6..6b6bc04d 100644 --- a/src/tool/Creation_Maillage/cmcp0c.F +++ b/src/tool/Creation_Maillage/cmcp0c.F @@ -71,13 +71,13 @@ c character*6 nompro parameter ( nompro = 'CMCP0C' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nouvnb.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -111,7 +111,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -167,7 +167,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmcp0d.F b/src/tool/Creation_Maillage/cmcp0d.F index b783c809..0cacb426 100644 --- a/src/tool/Creation_Maillage/cmcp0d.F +++ b/src/tool/Creation_Maillage/cmcp0d.F @@ -82,16 +82,16 @@ c character*6 nompro parameter ( nompro = 'CMCP0D' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" -#include "cofpfp.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" + include "cofpfp.h" c c 0.3. ==> arguments c @@ -122,7 +122,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -175,7 +175,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmcp17.F b/src/tool/Creation_Maillage/cmcp17.F index 00001fa2..9e2edf5f 100644 --- a/src/tool/Creation_Maillage/cmcp17.F +++ b/src/tool/Creation_Maillage/cmcp17.F @@ -99,17 +99,17 @@ c character*6 nompro parameter ( nompro = 'CMCP17' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" -#include "ope001.h" -#include "cofpfp.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" + include "ope001.h" + include "cofpfp.h" c c 0.3. ==> arguments c @@ -158,15 +158,15 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" -#include "impr04.h" + include "impr03.h" + include "impr04.h" c codret = 0 c @@ -338,7 +338,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmcp18.F b/src/tool/Creation_Maillage/cmcp18.F index 7462045b..b334eb02 100644 --- a/src/tool/Creation_Maillage/cmcp18.F +++ b/src/tool/Creation_Maillage/cmcp18.F @@ -99,17 +99,17 @@ c character*6 nompro parameter ( nompro = 'CMCP18' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" -#include "ope001.h" -#include "cofpfp.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" + include "ope001.h" + include "cofpfp.h" c c 0.3. ==> arguments c @@ -158,15 +158,15 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" -#include "impr04.h" + include "impr03.h" + include "impr04.h" c codret = 0 c @@ -338,7 +338,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmcp19.F b/src/tool/Creation_Maillage/cmcp19.F index d1b779e9..22226798 100644 --- a/src/tool/Creation_Maillage/cmcp19.F +++ b/src/tool/Creation_Maillage/cmcp19.F @@ -99,17 +99,17 @@ c character*6 nompro parameter ( nompro = 'CMCP19' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" -#include "ope001.h" -#include "cofpfp.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" + include "ope001.h" + include "cofpfp.h" c c 0.3. ==> arguments c @@ -158,15 +158,15 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" -#include "impr04.h" + include "impr03.h" + include "impr04.h" c codret = 0 c @@ -338,7 +338,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmcp1a.F b/src/tool/Creation_Maillage/cmcp1a.F index dde70a6d..7bf54e2d 100644 --- a/src/tool/Creation_Maillage/cmcp1a.F +++ b/src/tool/Creation_Maillage/cmcp1a.F @@ -102,15 +102,15 @@ c character*6 nompro parameter ( nompro = 'CMCP1A' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -148,7 +148,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -159,8 +159,8 @@ c c texte(2,4) = '(''No edge is correct.'')' c -#include "impr03.h" -#include "impr04.h" + include "impr03.h" + include "impr04.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,90002) 'indtri', indtri @@ -274,7 +274,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmcp1b.F b/src/tool/Creation_Maillage/cmcp1b.F index 0e6c876e..53c2342b 100644 --- a/src/tool/Creation_Maillage/cmcp1b.F +++ b/src/tool/Creation_Maillage/cmcp1b.F @@ -66,13 +66,13 @@ c character*6 nompro parameter ( nompro = 'CMCP1B' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nouvnb.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -100,15 +100,15 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" -#include "impr04.h" + include "impr03.h" + include "impr04.h" c codret = 0 c @@ -221,7 +221,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmcp1c.F b/src/tool/Creation_Maillage/cmcp1c.F index 8c62f543..e3085afd 100644 --- a/src/tool/Creation_Maillage/cmcp1c.F +++ b/src/tool/Creation_Maillage/cmcp1c.F @@ -68,13 +68,13 @@ c character*6 nompro parameter ( nompro = 'CMCP1C' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nouvnb.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -105,7 +105,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -148,7 +148,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmcp1e.F b/src/tool/Creation_Maillage/cmcp1e.F index 25c1865c..a10b32ba 100644 --- a/src/tool/Creation_Maillage/cmcp1e.F +++ b/src/tool/Creation_Maillage/cmcp1e.F @@ -81,16 +81,16 @@ c character*6 nompro parameter ( nompro = 'CMCP1E' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" -#include "coftfp.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" + include "coftfp.h" c c 0.3. ==> arguments c @@ -121,7 +121,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -169,7 +169,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmcp21.F b/src/tool/Creation_Maillage/cmcp21.F index b1ddd7b4..de61b5e6 100644 --- a/src/tool/Creation_Maillage/cmcp21.F +++ b/src/tool/Creation_Maillage/cmcp21.F @@ -96,17 +96,17 @@ c character*6 nompro parameter ( nompro = 'CMCP21' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" -#include "ope001.h" -#include "i1i2i3.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" + include "ope001.h" + include "i1i2i3.h" c c 0.3. ==> arguments c @@ -156,15 +156,15 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" -#include "impr04.h" + include "impr03.h" + include "impr04.h" c codret = 0 c @@ -374,7 +374,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmcp22.F b/src/tool/Creation_Maillage/cmcp22.F index f80a586f..4ae61779 100644 --- a/src/tool/Creation_Maillage/cmcp22.F +++ b/src/tool/Creation_Maillage/cmcp22.F @@ -96,17 +96,17 @@ c character*6 nompro parameter ( nompro = 'CMCP22' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" -#include "ope001.h" -#include "i1i2i3.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" + include "ope001.h" + include "i1i2i3.h" c c 0.3. ==> arguments c @@ -156,15 +156,15 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" -#include "impr04.h" + include "impr03.h" + include "impr04.h" c codret = 0 c @@ -379,7 +379,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmcp23.F b/src/tool/Creation_Maillage/cmcp23.F index 11a48e1b..c75fb848 100644 --- a/src/tool/Creation_Maillage/cmcp23.F +++ b/src/tool/Creation_Maillage/cmcp23.F @@ -96,17 +96,17 @@ c character*6 nompro parameter ( nompro = 'CMCP23' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" -#include "ope001.h" -#include "i1i2i3.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" + include "ope001.h" + include "i1i2i3.h" c c 0.3. ==> arguments c @@ -156,15 +156,15 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" -#include "impr04.h" + include "impr03.h" + include "impr04.h" c codret = 0 c @@ -374,7 +374,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmcp24.F b/src/tool/Creation_Maillage/cmcp24.F index faeaec83..f88bbe25 100644 --- a/src/tool/Creation_Maillage/cmcp24.F +++ b/src/tool/Creation_Maillage/cmcp24.F @@ -96,17 +96,17 @@ c character*6 nompro parameter ( nompro = 'CMCP24' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" -#include "ope001.h" -#include "i1i2i3.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" + include "ope001.h" + include "i1i2i3.h" c c 0.3. ==> arguments c @@ -156,15 +156,15 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" -#include "impr04.h" + include "impr03.h" + include "impr04.h" c codret = 0 c @@ -365,7 +365,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmcp25.F b/src/tool/Creation_Maillage/cmcp25.F index 374aa6ab..d9a06514 100644 --- a/src/tool/Creation_Maillage/cmcp25.F +++ b/src/tool/Creation_Maillage/cmcp25.F @@ -96,17 +96,17 @@ c character*6 nompro parameter ( nompro = 'CMCP25' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" -#include "ope001.h" -#include "i1i2i3.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" + include "ope001.h" + include "i1i2i3.h" c c 0.3. ==> arguments c @@ -156,15 +156,15 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" -#include "impr04.h" + include "impr03.h" + include "impr04.h" c codret = 0 c @@ -365,7 +365,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmcp26.F b/src/tool/Creation_Maillage/cmcp26.F index 3fd1d27a..48fa0abe 100644 --- a/src/tool/Creation_Maillage/cmcp26.F +++ b/src/tool/Creation_Maillage/cmcp26.F @@ -96,17 +96,17 @@ c character*6 nompro parameter ( nompro = 'CMCP26' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" -#include "ope001.h" -#include "i1i2i3.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" + include "ope001.h" + include "i1i2i3.h" c c 0.3. ==> arguments c @@ -156,15 +156,15 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" -#include "impr04.h" + include "impr03.h" + include "impr04.h" c codret = 0 c @@ -374,7 +374,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmcp2a.F b/src/tool/Creation_Maillage/cmcp2a.F index aa737afe..0ef57bbf 100644 --- a/src/tool/Creation_Maillage/cmcp2a.F +++ b/src/tool/Creation_Maillage/cmcp2a.F @@ -97,15 +97,15 @@ c character*6 nompro parameter ( nompro = 'CMCP2A' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -142,7 +142,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -153,8 +153,8 @@ c c texte(2,4) = '(''No edge is correct.'')' c -#include "impr03.h" -#include "impr04.h" + include "impr03.h" + include "impr04.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,90002) 'indare', indare @@ -341,7 +341,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmcp2b.F b/src/tool/Creation_Maillage/cmcp2b.F index ebbbac25..60023e8a 100644 --- a/src/tool/Creation_Maillage/cmcp2b.F +++ b/src/tool/Creation_Maillage/cmcp2b.F @@ -72,15 +72,15 @@ c character*6 nompro parameter ( nompro = 'CMCP2B' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nouvnb.h" -#include "ope001.h" -#include "demitr.h" + include "nouvnb.h" + include "ope001.h" + include "demitr.h" c c 0.3. ==> arguments c @@ -110,15 +110,15 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" -#include "impr04.h" + include "impr03.h" + include "impr04.h" c codret = 0 c @@ -323,7 +323,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmcp2c.F b/src/tool/Creation_Maillage/cmcp2c.F index 38f4be54..44e9a115 100644 --- a/src/tool/Creation_Maillage/cmcp2c.F +++ b/src/tool/Creation_Maillage/cmcp2c.F @@ -69,13 +69,13 @@ c character*6 nompro parameter ( nompro = 'CMCP2C' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nouvnb.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -109,7 +109,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -214,7 +214,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmcp2e.F b/src/tool/Creation_Maillage/cmcp2e.F index fcc79922..242a0c8e 100644 --- a/src/tool/Creation_Maillage/cmcp2e.F +++ b/src/tool/Creation_Maillage/cmcp2e.F @@ -82,16 +82,16 @@ c character*6 nompro parameter ( nompro = 'CMCP2E' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" -#include "coftfp.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" + include "coftfp.h" c c 0.3. ==> arguments c @@ -122,7 +122,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -206,7 +206,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmcp31.F b/src/tool/Creation_Maillage/cmcp31.F index 835fc722..aea2a8ff 100644 --- a/src/tool/Creation_Maillage/cmcp31.F +++ b/src/tool/Creation_Maillage/cmcp31.F @@ -115,18 +115,18 @@ c character*6 nompro parameter ( nompro = 'CMCP31' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" -#include "i1i2i3.h" -#include "cofpfp.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" + include "i1i2i3.h" + include "cofpfp.h" c c 0.3. ==> arguments c @@ -185,15 +185,15 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" -#include "impr04.h" + include "impr03.h" + include "impr04.h" c codret = 0 c @@ -462,7 +462,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmcp32.F b/src/tool/Creation_Maillage/cmcp32.F index 1528dda6..4a92c72c 100644 --- a/src/tool/Creation_Maillage/cmcp32.F +++ b/src/tool/Creation_Maillage/cmcp32.F @@ -115,18 +115,18 @@ c character*6 nompro parameter ( nompro = 'CMCP32' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" -#include "i1i2i3.h" -#include "cofpfp.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" + include "i1i2i3.h" + include "cofpfp.h" c c 0.3. ==> arguments c @@ -185,15 +185,15 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" -#include "impr04.h" + include "impr03.h" + include "impr04.h" c codret = 0 c @@ -462,7 +462,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmcp33.F b/src/tool/Creation_Maillage/cmcp33.F index 8c8f4c1b..634d9228 100644 --- a/src/tool/Creation_Maillage/cmcp33.F +++ b/src/tool/Creation_Maillage/cmcp33.F @@ -115,18 +115,18 @@ c character*6 nompro parameter ( nompro = 'CMCP33' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" -#include "i1i2i3.h" -#include "cofpfp.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" + include "i1i2i3.h" + include "cofpfp.h" c c 0.3. ==> arguments c @@ -185,15 +185,15 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" -#include "impr04.h" + include "impr03.h" + include "impr04.h" c codret = 0 c @@ -462,7 +462,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmcp34.F b/src/tool/Creation_Maillage/cmcp34.F index 97294112..0cfb24c7 100644 --- a/src/tool/Creation_Maillage/cmcp34.F +++ b/src/tool/Creation_Maillage/cmcp34.F @@ -115,18 +115,18 @@ c character*6 nompro parameter ( nompro = 'CMCP34' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" -#include "i1i2i3.h" -#include "cofpfp.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" + include "i1i2i3.h" + include "cofpfp.h" c c 0.3. ==> arguments c @@ -185,15 +185,15 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" -#include "impr04.h" + include "impr03.h" + include "impr04.h" c codret = 0 c @@ -473,7 +473,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmcp35.F b/src/tool/Creation_Maillage/cmcp35.F index bff7cb1c..e9fa27d8 100644 --- a/src/tool/Creation_Maillage/cmcp35.F +++ b/src/tool/Creation_Maillage/cmcp35.F @@ -115,18 +115,18 @@ c character*6 nompro parameter ( nompro = 'CMCP35' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" -#include "i1i2i3.h" -#include "cofpfp.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" + include "i1i2i3.h" + include "cofpfp.h" c c 0.3. ==> arguments c @@ -185,15 +185,15 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" -#include "impr04.h" + include "impr03.h" + include "impr04.h" c codret = 0 c @@ -473,7 +473,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmcp36.F b/src/tool/Creation_Maillage/cmcp36.F index 3fb063b4..bf799a63 100644 --- a/src/tool/Creation_Maillage/cmcp36.F +++ b/src/tool/Creation_Maillage/cmcp36.F @@ -115,18 +115,18 @@ c character*6 nompro parameter ( nompro = 'CMCP36' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" -#include "i1i2i3.h" -#include "cofpfp.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" + include "i1i2i3.h" + include "cofpfp.h" c c 0.3. ==> arguments c @@ -185,15 +185,15 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" -#include "impr04.h" + include "impr03.h" + include "impr04.h" c codret = 0 c @@ -473,7 +473,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmcp3a.F b/src/tool/Creation_Maillage/cmcp3a.F index 9a2b2f02..f13937e0 100644 --- a/src/tool/Creation_Maillage/cmcp3a.F +++ b/src/tool/Creation_Maillage/cmcp3a.F @@ -115,16 +115,16 @@ c character*6 nompro parameter ( nompro = 'CMCP3A' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -167,7 +167,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -178,8 +178,8 @@ c c texte(2,4) = '(''No edge is correct.'')' c -#include "impr03.h" -#include "impr04.h" + include "impr03.h" + include "impr04.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,90002) 'indnoe', indnoe @@ -397,7 +397,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmcp3b.F b/src/tool/Creation_Maillage/cmcp3b.F index a8a14b38..6a76e761 100644 --- a/src/tool/Creation_Maillage/cmcp3b.F +++ b/src/tool/Creation_Maillage/cmcp3b.F @@ -77,15 +77,15 @@ c character*6 nompro parameter ( nompro = 'CMCP3B' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nouvnb.h" -#include "ope001.h" -#include "demitr.h" + include "nouvnb.h" + include "ope001.h" + include "demitr.h" c c 0.3. ==> arguments c @@ -118,15 +118,15 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" -#include "impr04.h" + include "impr03.h" + include "impr04.h" c codret = 0 c @@ -310,7 +310,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmcp3c.F b/src/tool/Creation_Maillage/cmcp3c.F index be5e00a1..58b03a29 100644 --- a/src/tool/Creation_Maillage/cmcp3c.F +++ b/src/tool/Creation_Maillage/cmcp3c.F @@ -78,14 +78,14 @@ c character*6 nompro parameter ( nompro = 'CMCP3C' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nouvnb.h" -#include "ope1a4.h" + include "nouvnb.h" + include "ope1a4.h" c c 0.3. ==> arguments c @@ -119,7 +119,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -315,7 +315,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmcp3e.F b/src/tool/Creation_Maillage/cmcp3e.F index 2e8a8c9e..ce220ddd 100644 --- a/src/tool/Creation_Maillage/cmcp3e.F +++ b/src/tool/Creation_Maillage/cmcp3e.F @@ -85,16 +85,16 @@ c character*6 nompro parameter ( nompro = 'CMCP3E' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" -#include "coftfp.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" + include "coftfp.h" c c 0.3. ==> arguments c @@ -124,7 +124,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -276,7 +276,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmcp3f.F b/src/tool/Creation_Maillage/cmcp3f.F index e0c373ab..350a71fc 100644 --- a/src/tool/Creation_Maillage/cmcp3f.F +++ b/src/tool/Creation_Maillage/cmcp3f.F @@ -77,15 +77,15 @@ c character*6 nompro parameter ( nompro = 'CMCP3F' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nouvnb.h" -#include "ope001.h" -#include "demitr.h" + include "nouvnb.h" + include "ope001.h" + include "demitr.h" c c 0.3. ==> arguments c @@ -118,15 +118,15 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" -#include "impr04.h" + include "impr03.h" + include "impr04.h" c codret = 0 c @@ -310,7 +310,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmcp3g.F b/src/tool/Creation_Maillage/cmcp3g.F index b399a52c..e5fa5b53 100644 --- a/src/tool/Creation_Maillage/cmcp3g.F +++ b/src/tool/Creation_Maillage/cmcp3g.F @@ -78,14 +78,14 @@ c character*6 nompro parameter ( nompro = 'CMCP3G' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nouvnb.h" -#include "ope1a4.h" + include "nouvnb.h" + include "ope1a4.h" c c 0.3. ==> arguments c @@ -119,7 +119,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -315,7 +315,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmcp3h.F b/src/tool/Creation_Maillage/cmcp3h.F index 75b440d4..2e3eefca 100644 --- a/src/tool/Creation_Maillage/cmcp3h.F +++ b/src/tool/Creation_Maillage/cmcp3h.F @@ -85,16 +85,16 @@ c character*6 nompro parameter ( nompro = 'CMCP3H' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" -#include "coftfp.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" + include "coftfp.h" c c 0.3. ==> arguments c @@ -124,7 +124,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -276,7 +276,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmcp43.F b/src/tool/Creation_Maillage/cmcp43.F index 059db771..a6473fac 100644 --- a/src/tool/Creation_Maillage/cmcp43.F +++ b/src/tool/Creation_Maillage/cmcp43.F @@ -109,16 +109,16 @@ c character*6 nompro parameter ( nompro = 'CMCP43' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" -#include "i1i2i3.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" + include "i1i2i3.h" c c 0.3. ==> arguments c @@ -176,15 +176,15 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" -#include "impr04.h" + include "impr03.h" + include "impr04.h" c codret = 0 c @@ -418,7 +418,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmcp44.F b/src/tool/Creation_Maillage/cmcp44.F index cf1b088d..8af62f6e 100644 --- a/src/tool/Creation_Maillage/cmcp44.F +++ b/src/tool/Creation_Maillage/cmcp44.F @@ -109,16 +109,16 @@ c character*6 nompro parameter ( nompro = 'CMCP44' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" -#include "i1i2i3.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" + include "i1i2i3.h" c c 0.3. ==> arguments c @@ -176,15 +176,15 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" -#include "impr04.h" + include "impr03.h" + include "impr04.h" c codret = 0 c @@ -416,7 +416,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmcp45.F b/src/tool/Creation_Maillage/cmcp45.F index 315c3b90..c2a619c2 100644 --- a/src/tool/Creation_Maillage/cmcp45.F +++ b/src/tool/Creation_Maillage/cmcp45.F @@ -109,16 +109,16 @@ c character*6 nompro parameter ( nompro = 'CMCP45' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" -#include "i1i2i3.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" + include "i1i2i3.h" c c 0.3. ==> arguments c @@ -176,15 +176,15 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" -#include "impr04.h" + include "impr03.h" + include "impr04.h" c codret = 0 c @@ -415,7 +415,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmcp4a.F b/src/tool/Creation_Maillage/cmcp4a.F index 532b0145..d3f78513 100644 --- a/src/tool/Creation_Maillage/cmcp4a.F +++ b/src/tool/Creation_Maillage/cmcp4a.F @@ -108,15 +108,15 @@ c character*6 nompro parameter ( nompro = 'CMCP4A' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -155,7 +155,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -166,8 +166,8 @@ c c texte(2,4) = '(''No edge is correct.'')' c -#include "impr03.h" -#include "impr04.h" + include "impr03.h" + include "impr04.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,90002) 'indare', indare @@ -303,7 +303,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmcp4b.F b/src/tool/Creation_Maillage/cmcp4b.F index ed2aec16..d442e4bd 100644 --- a/src/tool/Creation_Maillage/cmcp4b.F +++ b/src/tool/Creation_Maillage/cmcp4b.F @@ -82,16 +82,16 @@ c character*6 nompro parameter ( nompro = 'CMCP4B' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nouvnb.h" -#include "ope001.h" -#include "demitr.h" -#include "defiqu.h" + include "nouvnb.h" + include "ope001.h" + include "demitr.h" + include "defiqu.h" c c 0.3. ==> arguments c @@ -126,15 +126,15 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" -#include "impr04.h" + include "impr03.h" + include "impr04.h" c codret = 0 c @@ -340,7 +340,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmcp4c.F b/src/tool/Creation_Maillage/cmcp4c.F index 3c14013f..2a007a6f 100644 --- a/src/tool/Creation_Maillage/cmcp4c.F +++ b/src/tool/Creation_Maillage/cmcp4c.F @@ -76,13 +76,13 @@ c character*6 nompro parameter ( nompro = 'CMCP4C' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nouvnb.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -117,7 +117,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -216,7 +216,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmcp4d.F b/src/tool/Creation_Maillage/cmcp4d.F index a72c80e6..a5ab9234 100644 --- a/src/tool/Creation_Maillage/cmcp4d.F +++ b/src/tool/Creation_Maillage/cmcp4d.F @@ -88,16 +88,16 @@ c character*6 nompro parameter ( nompro = 'CMCP4D' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" -#include "cofpfp.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" + include "cofpfp.h" c c 0.3. ==> arguments c @@ -128,7 +128,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -200,7 +200,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmcp4e.F b/src/tool/Creation_Maillage/cmcp4e.F index 1ea2821d..09750416 100644 --- a/src/tool/Creation_Maillage/cmcp4e.F +++ b/src/tool/Creation_Maillage/cmcp4e.F @@ -85,16 +85,16 @@ c character*6 nompro parameter ( nompro = 'CMCP4E' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" -#include "coftfp.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" + include "coftfp.h" c c 0.3. ==> arguments c @@ -124,7 +124,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -171,7 +171,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmcp51.F b/src/tool/Creation_Maillage/cmcp51.F index fae2f246..b6bfed72 100644 --- a/src/tool/Creation_Maillage/cmcp51.F +++ b/src/tool/Creation_Maillage/cmcp51.F @@ -104,18 +104,18 @@ c character*6 nompro parameter ( nompro = 'CMCP51' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" -#include "i1i2i3.h" -#include "ope001.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" + include "i1i2i3.h" + include "ope001.h" c c 0.3. ==> arguments c @@ -172,15 +172,15 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" -#include "impr04.h" + include "impr03.h" + include "impr04.h" c codret = 0 c @@ -421,7 +421,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmcp52.F b/src/tool/Creation_Maillage/cmcp52.F index a7153bc5..aee61b3f 100644 --- a/src/tool/Creation_Maillage/cmcp52.F +++ b/src/tool/Creation_Maillage/cmcp52.F @@ -104,18 +104,18 @@ c character*6 nompro parameter ( nompro = 'CMCP52' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" -#include "i1i2i3.h" -#include "ope001.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" + include "i1i2i3.h" + include "ope001.h" c c 0.3. ==> arguments c @@ -172,15 +172,15 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" -#include "impr04.h" + include "impr03.h" + include "impr04.h" c codret = 0 c @@ -428,7 +428,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmcp5a.F b/src/tool/Creation_Maillage/cmcp5a.F index f2f1623d..0fca9df3 100644 --- a/src/tool/Creation_Maillage/cmcp5a.F +++ b/src/tool/Creation_Maillage/cmcp5a.F @@ -104,16 +104,16 @@ c character*6 nompro parameter ( nompro = 'CMCP5A' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -154,7 +154,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -165,8 +165,8 @@ c c texte(2,4) = '(''No edge is correct.'')' c -#include "impr03.h" -#include "impr04.h" + include "impr03.h" + include "impr04.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,90002) 'indnoe', indnoe @@ -273,7 +273,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmcp5b.F b/src/tool/Creation_Maillage/cmcp5b.F index d1d73c89..9909121d 100644 --- a/src/tool/Creation_Maillage/cmcp5b.F +++ b/src/tool/Creation_Maillage/cmcp5b.F @@ -72,14 +72,14 @@ c character*6 nompro parameter ( nompro = 'CMCP5B' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nouvnb.h" -#include "ope001.h" + include "nouvnb.h" + include "ope001.h" c c 0.3. ==> arguments c @@ -110,15 +110,15 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" -#include "impr04.h" + include "impr03.h" + include "impr04.h" c codret = 0 c @@ -338,7 +338,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmcp5c.F b/src/tool/Creation_Maillage/cmcp5c.F index ddfb847e..1d674220 100644 --- a/src/tool/Creation_Maillage/cmcp5c.F +++ b/src/tool/Creation_Maillage/cmcp5c.F @@ -71,14 +71,14 @@ c character*6 nompro parameter ( nompro = 'CMCP5C' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nouvnb.h" -#include "ope1a3.h" + include "nouvnb.h" + include "ope1a3.h" c c 0.3. ==> arguments c @@ -112,7 +112,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -231,7 +231,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmcp5e.F b/src/tool/Creation_Maillage/cmcp5e.F index 54cfd5f8..7e41b6e8 100644 --- a/src/tool/Creation_Maillage/cmcp5e.F +++ b/src/tool/Creation_Maillage/cmcp5e.F @@ -85,17 +85,17 @@ c character*6 nompro parameter ( nompro = 'CMCP5E' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" -#include "ope1a3.h" -#include "coftfp.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" + include "ope1a3.h" + include "coftfp.h" c c 0.3. ==> arguments c @@ -126,7 +126,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -251,7 +251,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmcpen.F b/src/tool/Creation_Maillage/cmcpen.F index 18818748..8561b4cf 100644 --- a/src/tool/Creation_Maillage/cmcpen.F +++ b/src/tool/Creation_Maillage/cmcpen.F @@ -70,7 +70,7 @@ c c c 0.2. ==> communs c -#include "nouvnb.h" + include "nouvnb.h" c c 0.3. ==> arguments c diff --git a/src/tool/Creation_Maillage/cmcpy2.F b/src/tool/Creation_Maillage/cmcpy2.F index f03c90c3..fb632c7b 100644 --- a/src/tool/Creation_Maillage/cmcpy2.F +++ b/src/tool/Creation_Maillage/cmcpy2.F @@ -97,16 +97,16 @@ c character*6 nompro parameter ( nompro = 'CMCPY2' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" -#include "cofpfh.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" + include "cofpfh.h" c c 0.3. ==> arguments c @@ -137,14 +137,14 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" + include "impr03.h" c codret = 0 c @@ -227,7 +227,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmcpy3.F b/src/tool/Creation_Maillage/cmcpy3.F index 2da7398d..b1ebad35 100644 --- a/src/tool/Creation_Maillage/cmcpy3.F +++ b/src/tool/Creation_Maillage/cmcpy3.F @@ -98,16 +98,16 @@ c character*6 nompro parameter ( nompro = 'CMCPY3' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" -#include "cofpfh.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" + include "cofpfh.h" c c 0.3. ==> arguments c @@ -138,14 +138,14 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" + include "impr03.h" c codret = 0 c @@ -244,7 +244,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmcpy4.F b/src/tool/Creation_Maillage/cmcpy4.F index 10236d6c..9753ec06 100644 --- a/src/tool/Creation_Maillage/cmcpy4.F +++ b/src/tool/Creation_Maillage/cmcpy4.F @@ -100,16 +100,16 @@ c character*6 nompro parameter ( nompro = 'CMCPY4' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" -#include "cofpfh.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" + include "cofpfh.h" c c 0.3. ==> arguments c @@ -143,14 +143,14 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" + include "impr03.h" c codret = 0 c @@ -305,7 +305,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmcpya.F b/src/tool/Creation_Maillage/cmcpya.F index 29cc7c39..5907243e 100644 --- a/src/tool/Creation_Maillage/cmcpya.F +++ b/src/tool/Creation_Maillage/cmcpya.F @@ -60,7 +60,7 @@ c c c 0.2. ==> communs c -#include "nouvnb.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -75,7 +75,7 @@ c integer iaux c ______________________________________________________________________ c -#include "impr03.h" + include "impr03.h" c c==== c 1. creation effective d'une pyramide diff --git a/src/tool/Creation_Maillage/cmcpyr.F b/src/tool/Creation_Maillage/cmcpyr.F index 5925fe6e..a6e95c98 100644 --- a/src/tool/Creation_Maillage/cmcpyr.F +++ b/src/tool/Creation_Maillage/cmcpyr.F @@ -74,7 +74,7 @@ c c c 0.2. ==> communs c -#include "nouvnb.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -91,7 +91,7 @@ c==== c 1. creation effective d'une pyramide c==== #ifdef _DEBUG_HOMARD_ -#include "impr03.h" + include "impr03.h" write (1,90015) 'Pyramide', nupyra, > ', faces', nface1, nface2, nface3, nface4, nface5 write (1,90015) 'Pyramide', nupyra, diff --git a/src/tool/Creation_Maillage/cmcqua.F b/src/tool/Creation_Maillage/cmcqua.F index b27fa980..c5684d9e 100644 --- a/src/tool/Creation_Maillage/cmcqua.F +++ b/src/tool/Creation_Maillage/cmcqua.F @@ -69,8 +69,8 @@ c c c 0.2. ==> communs c -#include "j1234j.h" -#include "nouvnb.h" + include "j1234j.h" + include "nouvnb.h" c c 0.3. ==> arguments c diff --git a/src/tool/Creation_Maillage/cmcte3.F b/src/tool/Creation_Maillage/cmcte3.F index 8fd700b6..1346e4f3 100644 --- a/src/tool/Creation_Maillage/cmcte3.F +++ b/src/tool/Creation_Maillage/cmcte3.F @@ -97,16 +97,16 @@ c character*6 nompro parameter ( nompro = 'CMCTE3' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" -#include "coftfh.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" + include "coftfh.h" c c 0.3. ==> arguments c @@ -139,14 +139,14 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" + include "impr03.h" c codret = 0 c @@ -238,7 +238,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmctea.F b/src/tool/Creation_Maillage/cmctea.F index 0e535fea..2a0e6068 100644 --- a/src/tool/Creation_Maillage/cmctea.F +++ b/src/tool/Creation_Maillage/cmctea.F @@ -60,7 +60,7 @@ c c c 0.2. ==> communs c -#include "nouvnb.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -80,7 +80,7 @@ c 1. creation effective d'un tetraedre c==== c #ifdef _DEBUG_HOMARD_ -#include "impr03.h" + include "impr03.h" write (1,90015) 'Tetraedre', nutetr, > ', aretes', naret1, naret2, naret3, naret4, > naret5, naret6 diff --git a/src/tool/Creation_Maillage/cmctet.F b/src/tool/Creation_Maillage/cmctet.F index 2f3d2b02..ff1f0a13 100644 --- a/src/tool/Creation_Maillage/cmctet.F +++ b/src/tool/Creation_Maillage/cmctet.F @@ -72,7 +72,7 @@ c c c 0.2. ==> communs c -#include "nouvnb.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -91,7 +91,7 @@ c 1. creation effective d'un tetraedre c==== c #ifdef _DEBUG_HOMARD_ -#include "impr03.h" + include "impr03.h" write (1,90015) 'Tetraedre', nutetr, > ', faces', ntria1, ntria2, ntria3, ntria4 write (1,90015) 'Tetraedre', nutetr, diff --git a/src/tool/Creation_Maillage/cmctri.F b/src/tool/Creation_Maillage/cmctri.F index e83ff5de..40d28347 100644 --- a/src/tool/Creation_Maillage/cmctri.F +++ b/src/tool/Creation_Maillage/cmctri.F @@ -65,8 +65,8 @@ c c c 0.2. ==> communs c -#include "i1i2i3.h" -#include "nouvnb.h" + include "i1i2i3.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -83,7 +83,7 @@ c 1. creation effective d'un triangle c==== c #ifdef _DEBUG_HOMARD_ -#include "impr03.h" + include "impr03.h" write (1,90015) 'Triangle', nutria, > ', aretes', arete1, arete2, arete3 #endif diff --git a/src/tool/Creation_Maillage/cmdera.F b/src/tool/Creation_Maillage/cmdera.F index 9541ac3a..27fa333e 100644 --- a/src/tool/Creation_Maillage/cmdera.F +++ b/src/tool/Creation_Maillage/cmdera.F @@ -63,25 +63,25 @@ c character*6 nompro parameter ( nompro = 'CMDERA' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" -#include "gmreel.h" + include "gmenti.h" + include "gmreel.h" c -#include "envca1.h" -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombhe.h" -#include "nombpy.h" -#include "nombpe.h" -#include "nouvnb.h" + include "envca1.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombhe.h" + include "nombpy.h" + include "nombpe.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -179,7 +179,7 @@ c======================================================================= c c 1.3. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -205,7 +205,7 @@ c write (ulsort,texte(langue,4)) saux write (ulsort,texte(langue,5)) c -#include "impr03.h" + include "impr03.h" c c==== c 2. recuperation des pointeurs @@ -1139,7 +1139,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmdrar.F b/src/tool/Creation_Maillage/cmdrar.F index 3e922e1c..20aeef5e 100644 --- a/src/tool/Creation_Maillage/cmdrar.F +++ b/src/tool/Creation_Maillage/cmdrar.F @@ -57,9 +57,9 @@ cgn parameter ( nompro = 'CMRDAR' ) c c 0.2. ==> communs c -#include "envca1.h" -#include "nombar.h" -#include "nouvnb.h" + include "envca1.h" + include "nombar.h" + include "nouvnb.h" c c 0.3. ==> arguments c diff --git a/src/tool/Creation_Maillage/cmdrhe.F b/src/tool/Creation_Maillage/cmdrhe.F index 512730b2..9459e7b6 100644 --- a/src/tool/Creation_Maillage/cmdrhe.F +++ b/src/tool/Creation_Maillage/cmdrhe.F @@ -62,11 +62,11 @@ c c c 0.2. ==> communs c -#include "envca1.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombhe.h" -#include "nouvnb.h" + include "envca1.h" + include "nombtr.h" + include "nombqu.h" + include "nombhe.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -97,7 +97,7 @@ c c c 0.5. ==> initialisations c -#include "impr03.h" + include "impr03.h" c codret = 0 c ______________________________________________________________________ diff --git a/src/tool/Creation_Maillage/cmdrpe.F b/src/tool/Creation_Maillage/cmdrpe.F index de71b4e9..3ff6fb4d 100644 --- a/src/tool/Creation_Maillage/cmdrpe.F +++ b/src/tool/Creation_Maillage/cmdrpe.F @@ -62,11 +62,11 @@ cgn parameter ( nompro = 'CMDRPE' ) c c 0.2. ==> communs c -#include "envca1.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombpe.h" -#include "nouvnb.h" + include "envca1.h" + include "nombtr.h" + include "nombqu.h" + include "nombpe.h" + include "nouvnb.h" c c 0.3. ==> arguments c diff --git a/src/tool/Creation_Maillage/cmdrqu.F b/src/tool/Creation_Maillage/cmdrqu.F index 1a5f364b..bfc34d77 100644 --- a/src/tool/Creation_Maillage/cmdrqu.F +++ b/src/tool/Creation_Maillage/cmdrqu.F @@ -65,11 +65,11 @@ c c c 0.2. ==> communs c -#include "envca1.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombar.h" -#include "nouvnb.h" + include "envca1.h" + include "nombtr.h" + include "nombqu.h" + include "nombar.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -99,7 +99,7 @@ c 0.5. ==> initialisations c codret = 0 c -#include "impr03.h" + include "impr03.h" c ______________________________________________________________________ c #ifdef _DEBUG_HOMARD_ diff --git a/src/tool/Creation_Maillage/cmdrte.F b/src/tool/Creation_Maillage/cmdrte.F index b9843b44..01a53418 100644 --- a/src/tool/Creation_Maillage/cmdrte.F +++ b/src/tool/Creation_Maillage/cmdrte.F @@ -63,11 +63,11 @@ cgn parameter ( nompro = 'CMDRTE' ) c c 0.2. ==> communs c -#include "envca1.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nouvnb.h" + include "envca1.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nouvnb.h" c c 0.3. ==> arguments c diff --git a/src/tool/Creation_Maillage/cmdrtr.F b/src/tool/Creation_Maillage/cmdrtr.F index 7b606aa9..66e98339 100644 --- a/src/tool/Creation_Maillage/cmdrtr.F +++ b/src/tool/Creation_Maillage/cmdrtr.F @@ -63,11 +63,11 @@ cgn parameter ( nompro = 'CMDRTR' ) c c 0.2. ==> communs c -#include "envca1.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombar.h" -#include "nouvnb.h" + include "envca1.h" + include "nombtr.h" + include "nombqu.h" + include "nombar.h" + include "nouvnb.h" c c 0.3. ==> arguments c diff --git a/src/tool/Creation_Maillage/cmh100.F b/src/tool/Creation_Maillage/cmh100.F index bd3962f6..faeded1a 100644 --- a/src/tool/Creation_Maillage/cmh100.F +++ b/src/tool/Creation_Maillage/cmh100.F @@ -110,17 +110,17 @@ c integer nbsomm parameter ( nbsomm = 8 ) c -#include "nblang.h" -#include "cofpfh.h" + include "nblang.h" + include "cofpfh.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -172,8 +172,8 @@ c==== c 1. messages c==== c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -331,7 +331,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmh200.F b/src/tool/Creation_Maillage/cmh200.F index 84b64679..3b3f7950 100644 --- a/src/tool/Creation_Maillage/cmh200.F +++ b/src/tool/Creation_Maillage/cmh200.F @@ -112,17 +112,17 @@ c integer nbsomm parameter ( nbsomm = 8 ) c -#include "nblang.h" -#include "cofpfh.h" + include "nblang.h" + include "cofpfh.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -172,8 +172,8 @@ c==== c 1. messages c==== c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -365,7 +365,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmh201.F b/src/tool/Creation_Maillage/cmh201.F index 1d8667c7..1b5c6cda 100644 --- a/src/tool/Creation_Maillage/cmh201.F +++ b/src/tool/Creation_Maillage/cmh201.F @@ -112,17 +112,17 @@ c integer nbsomm parameter ( nbsomm = 8 ) c -#include "nblang.h" -#include "cofpfh.h" + include "nblang.h" + include "cofpfh.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -172,8 +172,8 @@ c==== c 1. messages c==== c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -365,7 +365,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmh202.F b/src/tool/Creation_Maillage/cmh202.F index 5b8bcb3b..f336cccf 100644 --- a/src/tool/Creation_Maillage/cmh202.F +++ b/src/tool/Creation_Maillage/cmh202.F @@ -112,17 +112,17 @@ c integer nbsomm parameter ( nbsomm = 8 ) c -#include "nblang.h" -#include "cofpfh.h" + include "nblang.h" + include "cofpfh.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -172,8 +172,8 @@ c==== c 1. messages c==== c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -365,7 +365,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmh203.F b/src/tool/Creation_Maillage/cmh203.F index 92470b46..0fa8bc19 100644 --- a/src/tool/Creation_Maillage/cmh203.F +++ b/src/tool/Creation_Maillage/cmh203.F @@ -112,17 +112,17 @@ c integer nbsomm parameter ( nbsomm = 8 ) c -#include "nblang.h" -#include "cofpfh.h" + include "nblang.h" + include "cofpfh.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -172,8 +172,8 @@ c==== c 1. messages c==== c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -369,7 +369,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmh204.F b/src/tool/Creation_Maillage/cmh204.F index ce2a9d43..c981ad89 100644 --- a/src/tool/Creation_Maillage/cmh204.F +++ b/src/tool/Creation_Maillage/cmh204.F @@ -112,17 +112,17 @@ c integer nbsomm parameter ( nbsomm = 8 ) c -#include "nblang.h" -#include "cofpfh.h" + include "nblang.h" + include "cofpfh.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -172,8 +172,8 @@ c==== c 1. messages c==== c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -373,7 +373,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmh300.F b/src/tool/Creation_Maillage/cmh300.F index bf61a475..47e86d1a 100644 --- a/src/tool/Creation_Maillage/cmh300.F +++ b/src/tool/Creation_Maillage/cmh300.F @@ -112,17 +112,17 @@ c integer nbsomm parameter ( nbsomm = 8 ) c -#include "nblang.h" -#include "cofpfh.h" + include "nblang.h" + include "cofpfh.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -172,8 +172,8 @@ c==== c 1. messages c==== c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -370,7 +370,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmh301.F b/src/tool/Creation_Maillage/cmh301.F index 13f9f3ae..90bbab1a 100644 --- a/src/tool/Creation_Maillage/cmh301.F +++ b/src/tool/Creation_Maillage/cmh301.F @@ -112,17 +112,17 @@ c integer nbsomm parameter ( nbsomm = 8 ) c -#include "nblang.h" -#include "cofpfh.h" + include "nblang.h" + include "cofpfh.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -172,8 +172,8 @@ c==== c 1. messages c==== c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -370,7 +370,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmh302.F b/src/tool/Creation_Maillage/cmh302.F index f80e7ccb..5cef96b5 100644 --- a/src/tool/Creation_Maillage/cmh302.F +++ b/src/tool/Creation_Maillage/cmh302.F @@ -112,17 +112,17 @@ c integer nbsomm parameter ( nbsomm = 8 ) c -#include "nblang.h" -#include "cofpfh.h" + include "nblang.h" + include "cofpfh.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -172,8 +172,8 @@ c==== c 1. messages c==== c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -380,7 +380,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmh303.F b/src/tool/Creation_Maillage/cmh303.F index 3826020c..50a908ab 100644 --- a/src/tool/Creation_Maillage/cmh303.F +++ b/src/tool/Creation_Maillage/cmh303.F @@ -112,17 +112,17 @@ c integer nbsomm parameter ( nbsomm = 8 ) c -#include "nblang.h" -#include "cofpfh.h" + include "nblang.h" + include "cofpfh.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -172,8 +172,8 @@ c==== c 1. messages c==== c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -382,7 +382,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmh304.F b/src/tool/Creation_Maillage/cmh304.F index 61650e01..13e0e341 100644 --- a/src/tool/Creation_Maillage/cmh304.F +++ b/src/tool/Creation_Maillage/cmh304.F @@ -112,17 +112,17 @@ c integer nbsomm parameter ( nbsomm = 8 ) c -#include "nblang.h" -#include "cofpfh.h" + include "nblang.h" + include "cofpfh.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -172,8 +172,8 @@ c==== c 1. messages c==== c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -382,7 +382,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmh305.F b/src/tool/Creation_Maillage/cmh305.F index 289ac4e0..84b4f926 100644 --- a/src/tool/Creation_Maillage/cmh305.F +++ b/src/tool/Creation_Maillage/cmh305.F @@ -112,17 +112,17 @@ c integer nbsomm parameter ( nbsomm = 8 ) c -#include "nblang.h" -#include "cofpfh.h" + include "nblang.h" + include "cofpfh.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -172,8 +172,8 @@ c==== c 1. messages c==== c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -374,7 +374,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmh306.F b/src/tool/Creation_Maillage/cmh306.F index ecbdd670..f74a106b 100644 --- a/src/tool/Creation_Maillage/cmh306.F +++ b/src/tool/Creation_Maillage/cmh306.F @@ -112,17 +112,17 @@ c integer nbsomm parameter ( nbsomm = 8 ) c -#include "nblang.h" -#include "cofpfh.h" + include "nblang.h" + include "cofpfh.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -172,8 +172,8 @@ c==== c 1. messages c==== c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -374,7 +374,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmh307.F b/src/tool/Creation_Maillage/cmh307.F index 5bc95c58..b3b55db5 100644 --- a/src/tool/Creation_Maillage/cmh307.F +++ b/src/tool/Creation_Maillage/cmh307.F @@ -112,17 +112,17 @@ c integer nbsomm parameter ( nbsomm = 8 ) c -#include "nblang.h" -#include "cofpfh.h" + include "nblang.h" + include "cofpfh.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -172,8 +172,8 @@ c==== c 1. messages c==== c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -377,7 +377,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmh308.F b/src/tool/Creation_Maillage/cmh308.F index 1269bdea..b82937cc 100644 --- a/src/tool/Creation_Maillage/cmh308.F +++ b/src/tool/Creation_Maillage/cmh308.F @@ -112,17 +112,17 @@ c integer nbsomm parameter ( nbsomm = 8 ) c -#include "nblang.h" -#include "cofpfh.h" + include "nblang.h" + include "cofpfh.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -172,8 +172,8 @@ c==== c 1. messages c==== c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -377,7 +377,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmh309.F b/src/tool/Creation_Maillage/cmh309.F index 3521aa11..96978d29 100644 --- a/src/tool/Creation_Maillage/cmh309.F +++ b/src/tool/Creation_Maillage/cmh309.F @@ -112,17 +112,17 @@ c integer nbsomm parameter ( nbsomm = 8 ) c -#include "nblang.h" -#include "cofpfh.h" + include "nblang.h" + include "cofpfh.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -172,8 +172,8 @@ c==== c 1. messages c==== c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -374,7 +374,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmh310.F b/src/tool/Creation_Maillage/cmh310.F index 7209b0bc..f14e7f6b 100644 --- a/src/tool/Creation_Maillage/cmh310.F +++ b/src/tool/Creation_Maillage/cmh310.F @@ -112,17 +112,17 @@ c integer nbsomm parameter ( nbsomm = 8 ) c -#include "nblang.h" -#include "cofpfh.h" + include "nblang.h" + include "cofpfh.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -172,8 +172,8 @@ c==== c 1. messages c==== c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -386,7 +386,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmh311.F b/src/tool/Creation_Maillage/cmh311.F index 528da298..38a397ee 100644 --- a/src/tool/Creation_Maillage/cmh311.F +++ b/src/tool/Creation_Maillage/cmh311.F @@ -112,17 +112,17 @@ c integer nbsomm parameter ( nbsomm = 8 ) c -#include "nblang.h" -#include "cofpfh.h" + include "nblang.h" + include "cofpfh.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -172,8 +172,8 @@ c==== c 1. messages c==== c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -378,7 +378,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmh400.F b/src/tool/Creation_Maillage/cmh400.F index 28d71139..d669955c 100644 --- a/src/tool/Creation_Maillage/cmh400.F +++ b/src/tool/Creation_Maillage/cmh400.F @@ -112,18 +112,18 @@ c integer nbsomm parameter ( nbsomm = 8 ) c -#include "nblang.h" -#include "cofpfh.h" -#include "coftfh.h" + include "nblang.h" + include "cofpfh.h" + include "coftfh.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -161,7 +161,7 @@ c integer are1, are2, are3, are4 integer are5, are6, are7, are8 -#include "defiqu.h" + include "defiqu.h" c integer laface, letria integer niveau, nf1 @@ -184,8 +184,8 @@ c==== c 1. messages c==== c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -506,7 +506,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmh401.F b/src/tool/Creation_Maillage/cmh401.F index a1bb7a21..e3fcf588 100644 --- a/src/tool/Creation_Maillage/cmh401.F +++ b/src/tool/Creation_Maillage/cmh401.F @@ -112,17 +112,17 @@ c integer nbsomm parameter ( nbsomm = 8 ) c -#include "nblang.h" -#include "cofpfh.h" + include "nblang.h" + include "cofpfh.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -172,8 +172,8 @@ c==== c 1. messages c==== c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -398,7 +398,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmh402.F b/src/tool/Creation_Maillage/cmh402.F index d2c06c37..1607d0e0 100644 --- a/src/tool/Creation_Maillage/cmh402.F +++ b/src/tool/Creation_Maillage/cmh402.F @@ -112,17 +112,17 @@ c integer nbsomm parameter ( nbsomm = 8 ) c -#include "nblang.h" -#include "cofpfh.h" + include "nblang.h" + include "cofpfh.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -172,8 +172,8 @@ c==== c 1. messages c==== c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -390,7 +390,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmh403.F b/src/tool/Creation_Maillage/cmh403.F index 08e326c5..c3c1a07e 100644 --- a/src/tool/Creation_Maillage/cmh403.F +++ b/src/tool/Creation_Maillage/cmh403.F @@ -112,17 +112,17 @@ c integer nbsomm parameter ( nbsomm = 8 ) c -#include "nblang.h" -#include "cofpfh.h" + include "nblang.h" + include "cofpfh.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -172,8 +172,8 @@ c==== c 1. messages c==== c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -390,7 +390,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmh404.F b/src/tool/Creation_Maillage/cmh404.F index c3d44100..b706afa2 100644 --- a/src/tool/Creation_Maillage/cmh404.F +++ b/src/tool/Creation_Maillage/cmh404.F @@ -112,17 +112,17 @@ c integer nbsomm parameter ( nbsomm = 8 ) c -#include "nblang.h" -#include "cofpfh.h" + include "nblang.h" + include "cofpfh.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -172,8 +172,8 @@ c==== c 1. messages c==== c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -382,7 +382,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmh405.F b/src/tool/Creation_Maillage/cmh405.F index 6919d01e..38fe9480 100644 --- a/src/tool/Creation_Maillage/cmh405.F +++ b/src/tool/Creation_Maillage/cmh405.F @@ -112,17 +112,17 @@ c integer nbsomm parameter ( nbsomm = 8 ) c -#include "nblang.h" -#include "cofpfh.h" + include "nblang.h" + include "cofpfh.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -172,8 +172,8 @@ c==== c 1. messages c==== c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -390,7 +390,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmh406.F b/src/tool/Creation_Maillage/cmh406.F index 9964f262..198a00ef 100644 --- a/src/tool/Creation_Maillage/cmh406.F +++ b/src/tool/Creation_Maillage/cmh406.F @@ -112,17 +112,17 @@ c integer nbsomm parameter ( nbsomm = 8 ) c -#include "nblang.h" -#include "cofpfh.h" + include "nblang.h" + include "cofpfh.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -172,8 +172,8 @@ c==== c 1. messages c==== c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -390,7 +390,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmh407.F b/src/tool/Creation_Maillage/cmh407.F index ba9a2706..a9cd028b 100644 --- a/src/tool/Creation_Maillage/cmh407.F +++ b/src/tool/Creation_Maillage/cmh407.F @@ -112,17 +112,17 @@ c integer nbsomm parameter ( nbsomm = 8 ) c -#include "nblang.h" -#include "cofpfh.h" + include "nblang.h" + include "cofpfh.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -172,8 +172,8 @@ c==== c 1. messages c==== c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -387,7 +387,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmh408.F b/src/tool/Creation_Maillage/cmh408.F index 63dba562..58a970a8 100644 --- a/src/tool/Creation_Maillage/cmh408.F +++ b/src/tool/Creation_Maillage/cmh408.F @@ -112,17 +112,17 @@ c integer nbsomm parameter ( nbsomm = 8 ) c -#include "nblang.h" -#include "cofpfh.h" + include "nblang.h" + include "cofpfh.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -172,8 +172,8 @@ c==== c 1. messages c==== c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -387,7 +387,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmh409.F b/src/tool/Creation_Maillage/cmh409.F index 77b28bea..9e2c4d14 100644 --- a/src/tool/Creation_Maillage/cmh409.F +++ b/src/tool/Creation_Maillage/cmh409.F @@ -112,17 +112,17 @@ c integer nbsomm parameter ( nbsomm = 8 ) c -#include "nblang.h" -#include "cofpfh.h" + include "nblang.h" + include "cofpfh.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -172,8 +172,8 @@ c==== c 1. messages c==== c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -382,7 +382,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmh410.F b/src/tool/Creation_Maillage/cmh410.F index 35f20adf..98bf2045 100644 --- a/src/tool/Creation_Maillage/cmh410.F +++ b/src/tool/Creation_Maillage/cmh410.F @@ -112,17 +112,17 @@ c integer nbsomm parameter ( nbsomm = 8 ) c -#include "nblang.h" -#include "cofpfh.h" + include "nblang.h" + include "cofpfh.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -172,8 +172,8 @@ c==== c 1. messages c==== c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -382,7 +382,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmh411.F b/src/tool/Creation_Maillage/cmh411.F index 108ea28e..41187f27 100644 --- a/src/tool/Creation_Maillage/cmh411.F +++ b/src/tool/Creation_Maillage/cmh411.F @@ -112,17 +112,17 @@ c integer nbsomm parameter ( nbsomm = 8 ) c -#include "nblang.h" -#include "cofpfh.h" + include "nblang.h" + include "cofpfh.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -172,8 +172,8 @@ c==== c 1. messages c==== c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -385,7 +385,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmh412.F b/src/tool/Creation_Maillage/cmh412.F index 6d25ef40..4f8bc495 100644 --- a/src/tool/Creation_Maillage/cmh412.F +++ b/src/tool/Creation_Maillage/cmh412.F @@ -112,17 +112,17 @@ c integer nbsomm parameter ( nbsomm = 8 ) c -#include "nblang.h" -#include "cofpfh.h" + include "nblang.h" + include "cofpfh.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -172,8 +172,8 @@ c==== c 1. messages c==== c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -395,7 +395,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmh413.F b/src/tool/Creation_Maillage/cmh413.F index 4c3c1fa4..cd2fe4a2 100644 --- a/src/tool/Creation_Maillage/cmh413.F +++ b/src/tool/Creation_Maillage/cmh413.F @@ -112,17 +112,17 @@ c integer nbsomm parameter ( nbsomm = 8 ) c -#include "nblang.h" -#include "cofpfh.h" + include "nblang.h" + include "cofpfh.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -172,8 +172,8 @@ c==== c 1. messages c==== c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -395,7 +395,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmh414.F b/src/tool/Creation_Maillage/cmh414.F index a91262c9..7795f225 100644 --- a/src/tool/Creation_Maillage/cmh414.F +++ b/src/tool/Creation_Maillage/cmh414.F @@ -112,17 +112,17 @@ c integer nbsomm parameter ( nbsomm = 8 ) c -#include "nblang.h" -#include "cofpfh.h" + include "nblang.h" + include "cofpfh.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -172,8 +172,8 @@ c==== c 1. messages c==== c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -382,7 +382,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmh415.F b/src/tool/Creation_Maillage/cmh415.F index c45f2a81..7b3e66a5 100644 --- a/src/tool/Creation_Maillage/cmh415.F +++ b/src/tool/Creation_Maillage/cmh415.F @@ -112,17 +112,17 @@ c integer nbsomm parameter ( nbsomm = 8 ) c -#include "nblang.h" -#include "cofpfh.h" + include "nblang.h" + include "cofpfh.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -172,8 +172,8 @@ c==== c 1. messages c==== c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -382,7 +382,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmh416.F b/src/tool/Creation_Maillage/cmh416.F index fb181b67..d36b3ee3 100644 --- a/src/tool/Creation_Maillage/cmh416.F +++ b/src/tool/Creation_Maillage/cmh416.F @@ -112,17 +112,17 @@ c integer nbsomm parameter ( nbsomm = 8 ) c -#include "nblang.h" -#include "cofpfh.h" + include "nblang.h" + include "cofpfh.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -172,8 +172,8 @@ c==== c 1. messages c==== c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -385,7 +385,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmh417.F b/src/tool/Creation_Maillage/cmh417.F index 01adb25c..0100359f 100644 --- a/src/tool/Creation_Maillage/cmh417.F +++ b/src/tool/Creation_Maillage/cmh417.F @@ -112,17 +112,17 @@ c integer nbsomm parameter ( nbsomm = 8 ) c -#include "nblang.h" -#include "cofpfh.h" + include "nblang.h" + include "cofpfh.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -172,8 +172,8 @@ c==== c 1. messages c==== c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -391,7 +391,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmh418.F b/src/tool/Creation_Maillage/cmh418.F index 6050054c..34d6655a 100644 --- a/src/tool/Creation_Maillage/cmh418.F +++ b/src/tool/Creation_Maillage/cmh418.F @@ -107,17 +107,17 @@ c character*6 nompro parameter ( nompro ='CMH418' ) c -#include "nblang.h" -#include "cofpfh.h" + include "nblang.h" + include "cofpfh.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -164,8 +164,8 @@ c==== c 1. messages c==== c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -285,7 +285,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmh500.F b/src/tool/Creation_Maillage/cmh500.F index 8f68e7e4..acde5488 100644 --- a/src/tool/Creation_Maillage/cmh500.F +++ b/src/tool/Creation_Maillage/cmh500.F @@ -112,17 +112,17 @@ c integer nbsomm parameter ( nbsomm = 8 ) c -#include "nblang.h" -#include "cofpfh.h" + include "nblang.h" + include "cofpfh.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -172,8 +172,8 @@ c==== c 1. messages c==== c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -398,7 +398,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmh501.F b/src/tool/Creation_Maillage/cmh501.F index cefd0a73..efe4603e 100644 --- a/src/tool/Creation_Maillage/cmh501.F +++ b/src/tool/Creation_Maillage/cmh501.F @@ -112,17 +112,17 @@ c integer nbsomm parameter ( nbsomm = 8 ) c -#include "nblang.h" -#include "cofpfh.h" + include "nblang.h" + include "cofpfh.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -172,8 +172,8 @@ c==== c 1. messages c==== c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -398,7 +398,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmh502.F b/src/tool/Creation_Maillage/cmh502.F index d4ad86a8..b2c938ea 100644 --- a/src/tool/Creation_Maillage/cmh502.F +++ b/src/tool/Creation_Maillage/cmh502.F @@ -112,17 +112,17 @@ c integer nbsomm parameter ( nbsomm = 8 ) c -#include "nblang.h" -#include "cofpfh.h" + include "nblang.h" + include "cofpfh.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -172,8 +172,8 @@ c==== c 1. messages c==== c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -403,7 +403,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmh503.F b/src/tool/Creation_Maillage/cmh503.F index 64d1a2f6..1afd267f 100644 --- a/src/tool/Creation_Maillage/cmh503.F +++ b/src/tool/Creation_Maillage/cmh503.F @@ -112,17 +112,17 @@ c integer nbsomm parameter ( nbsomm = 8 ) c -#include "nblang.h" -#include "cofpfh.h" + include "nblang.h" + include "cofpfh.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -172,8 +172,8 @@ c==== c 1. messages c==== c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -403,7 +403,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmh504.F b/src/tool/Creation_Maillage/cmh504.F index fbb2c165..e7f261b7 100644 --- a/src/tool/Creation_Maillage/cmh504.F +++ b/src/tool/Creation_Maillage/cmh504.F @@ -112,17 +112,17 @@ c integer nbsomm parameter ( nbsomm = 8 ) c -#include "nblang.h" -#include "cofpfh.h" + include "nblang.h" + include "cofpfh.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -172,8 +172,8 @@ c==== c 1. messages c==== c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -406,7 +406,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmh505.F b/src/tool/Creation_Maillage/cmh505.F index 588f08a1..d21197f5 100644 --- a/src/tool/Creation_Maillage/cmh505.F +++ b/src/tool/Creation_Maillage/cmh505.F @@ -112,17 +112,17 @@ c integer nbsomm parameter ( nbsomm = 8 ) c -#include "nblang.h" -#include "cofpfh.h" + include "nblang.h" + include "cofpfh.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -172,8 +172,8 @@ c==== c 1. messages c==== c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -403,7 +403,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmh506.F b/src/tool/Creation_Maillage/cmh506.F index 69c6387d..5fd9d67d 100644 --- a/src/tool/Creation_Maillage/cmh506.F +++ b/src/tool/Creation_Maillage/cmh506.F @@ -112,17 +112,17 @@ c integer nbsomm parameter ( nbsomm = 8 ) c -#include "nblang.h" -#include "cofpfh.h" + include "nblang.h" + include "cofpfh.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -172,8 +172,8 @@ c==== c 1. messages c==== c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -403,7 +403,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmh507.F b/src/tool/Creation_Maillage/cmh507.F index 2adccd24..83718abe 100644 --- a/src/tool/Creation_Maillage/cmh507.F +++ b/src/tool/Creation_Maillage/cmh507.F @@ -112,17 +112,17 @@ c integer nbsomm parameter ( nbsomm = 8 ) c -#include "nblang.h" -#include "cofpfh.h" + include "nblang.h" + include "cofpfh.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -172,8 +172,8 @@ c==== c 1. messages c==== c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -403,7 +403,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmh508.F b/src/tool/Creation_Maillage/cmh508.F index 699b36f7..f7ac4bf1 100644 --- a/src/tool/Creation_Maillage/cmh508.F +++ b/src/tool/Creation_Maillage/cmh508.F @@ -112,17 +112,17 @@ c integer nbsomm parameter ( nbsomm = 8 ) c -#include "nblang.h" -#include "cofpfh.h" + include "nblang.h" + include "cofpfh.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -172,8 +172,8 @@ c==== c 1. messages c==== c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -393,7 +393,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmh509.F b/src/tool/Creation_Maillage/cmh509.F index de54c86c..197fb8cb 100644 --- a/src/tool/Creation_Maillage/cmh509.F +++ b/src/tool/Creation_Maillage/cmh509.F @@ -112,17 +112,17 @@ c integer nbsomm parameter ( nbsomm = 8 ) c -#include "nblang.h" -#include "cofpfh.h" + include "nblang.h" + include "cofpfh.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -172,8 +172,8 @@ c==== c 1. messages c==== c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -393,7 +393,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmh510.F b/src/tool/Creation_Maillage/cmh510.F index 7f7f6c8e..1ecc89c9 100644 --- a/src/tool/Creation_Maillage/cmh510.F +++ b/src/tool/Creation_Maillage/cmh510.F @@ -112,17 +112,17 @@ c integer nbsomm parameter ( nbsomm = 8 ) c -#include "nblang.h" -#include "cofpfh.h" + include "nblang.h" + include "cofpfh.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -172,8 +172,8 @@ c==== c 1. messages c==== c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -393,7 +393,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmh511.F b/src/tool/Creation_Maillage/cmh511.F index 1da0b8f1..1e1ace2f 100644 --- a/src/tool/Creation_Maillage/cmh511.F +++ b/src/tool/Creation_Maillage/cmh511.F @@ -112,17 +112,17 @@ c integer nbsomm parameter ( nbsomm = 8 ) c -#include "nblang.h" -#include "cofpfh.h" + include "nblang.h" + include "cofpfh.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -172,8 +172,8 @@ c==== c 1. messages c==== c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -400,7 +400,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmh512.F b/src/tool/Creation_Maillage/cmh512.F index bcdb01ca..c375294a 100644 --- a/src/tool/Creation_Maillage/cmh512.F +++ b/src/tool/Creation_Maillage/cmh512.F @@ -112,17 +112,17 @@ c integer nbsomm parameter ( nbsomm = 8 ) c -#include "nblang.h" -#include "cofpfh.h" + include "nblang.h" + include "cofpfh.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -172,8 +172,8 @@ c==== c 1. messages c==== c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -401,7 +401,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmh600.F b/src/tool/Creation_Maillage/cmh600.F index c5a1c182..3ac64028 100644 --- a/src/tool/Creation_Maillage/cmh600.F +++ b/src/tool/Creation_Maillage/cmh600.F @@ -112,17 +112,17 @@ c integer nbsomm parameter ( nbsomm = 8 ) c -#include "nblang.h" -#include "cofpfh.h" + include "nblang.h" + include "cofpfh.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -172,8 +172,8 @@ c==== c 1. messages c==== c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -404,7 +404,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmh601.F b/src/tool/Creation_Maillage/cmh601.F index 3151e05a..f4e4946d 100644 --- a/src/tool/Creation_Maillage/cmh601.F +++ b/src/tool/Creation_Maillage/cmh601.F @@ -112,17 +112,17 @@ c integer nbsomm parameter ( nbsomm = 8 ) c -#include "nblang.h" -#include "cofpfh.h" + include "nblang.h" + include "cofpfh.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -172,8 +172,8 @@ c==== c 1. messages c==== c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -418,7 +418,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmh602.F b/src/tool/Creation_Maillage/cmh602.F index ad6a54a9..766e1ed5 100644 --- a/src/tool/Creation_Maillage/cmh602.F +++ b/src/tool/Creation_Maillage/cmh602.F @@ -112,17 +112,17 @@ c integer nbsomm parameter ( nbsomm = 8 ) c -#include "nblang.h" -#include "cofpfh.h" + include "nblang.h" + include "cofpfh.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -172,8 +172,8 @@ c==== c 1. messages c==== c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -422,7 +422,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmh603.F b/src/tool/Creation_Maillage/cmh603.F index 5303a47d..80ec4ad6 100644 --- a/src/tool/Creation_Maillage/cmh603.F +++ b/src/tool/Creation_Maillage/cmh603.F @@ -112,17 +112,17 @@ c integer nbsomm parameter ( nbsomm = 8 ) c -#include "nblang.h" -#include "cofpfh.h" + include "nblang.h" + include "cofpfh.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -172,8 +172,8 @@ c==== c 1. messages c==== c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -413,7 +413,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmh604.F b/src/tool/Creation_Maillage/cmh604.F index 0a20a450..ebdd6691 100644 --- a/src/tool/Creation_Maillage/cmh604.F +++ b/src/tool/Creation_Maillage/cmh604.F @@ -112,17 +112,17 @@ c integer nbsomm parameter ( nbsomm = 8 ) c -#include "nblang.h" -#include "cofpfh.h" + include "nblang.h" + include "cofpfh.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -172,8 +172,8 @@ c==== c 1. messages c==== c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -413,7 +413,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmh605.F b/src/tool/Creation_Maillage/cmh605.F index 6135846e..575bec33 100644 --- a/src/tool/Creation_Maillage/cmh605.F +++ b/src/tool/Creation_Maillage/cmh605.F @@ -112,17 +112,17 @@ c integer nbsomm parameter ( nbsomm = 8 ) c -#include "nblang.h" -#include "cofpfh.h" + include "nblang.h" + include "cofpfh.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -172,8 +172,8 @@ c==== c 1. messages c==== c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -411,7 +411,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmh606.F b/src/tool/Creation_Maillage/cmh606.F index 8c74f2cc..b0779cb8 100644 --- a/src/tool/Creation_Maillage/cmh606.F +++ b/src/tool/Creation_Maillage/cmh606.F @@ -112,17 +112,17 @@ c integer nbsomm parameter ( nbsomm = 8 ) c -#include "nblang.h" -#include "cofpfh.h" + include "nblang.h" + include "cofpfh.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -172,8 +172,8 @@ c==== c 1. messages c==== c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -404,7 +404,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmh607.F b/src/tool/Creation_Maillage/cmh607.F index a27bdd64..91940bb5 100644 --- a/src/tool/Creation_Maillage/cmh607.F +++ b/src/tool/Creation_Maillage/cmh607.F @@ -112,17 +112,17 @@ c integer nbsomm parameter ( nbsomm = 8 ) c -#include "nblang.h" -#include "cofpfh.h" + include "nblang.h" + include "cofpfh.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -172,8 +172,8 @@ c==== c 1. messages c==== c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -414,7 +414,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmh608.F b/src/tool/Creation_Maillage/cmh608.F index 4b8a0f8a..05ee7977 100644 --- a/src/tool/Creation_Maillage/cmh608.F +++ b/src/tool/Creation_Maillage/cmh608.F @@ -112,17 +112,17 @@ c integer nbsomm parameter ( nbsomm = 8 ) c -#include "nblang.h" -#include "cofpfh.h" + include "nblang.h" + include "cofpfh.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -172,8 +172,8 @@ c==== c 1. messages c==== c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -414,7 +414,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmh700.F b/src/tool/Creation_Maillage/cmh700.F index dc8242a2..16617d93 100644 --- a/src/tool/Creation_Maillage/cmh700.F +++ b/src/tool/Creation_Maillage/cmh700.F @@ -112,17 +112,17 @@ c integer nbsomm parameter ( nbsomm = 8 ) c -#include "nblang.h" -#include "cofpfh.h" + include "nblang.h" + include "cofpfh.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -172,8 +172,8 @@ c==== c 1. messages c==== c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -422,7 +422,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmh701.F b/src/tool/Creation_Maillage/cmh701.F index df2212ff..b152b63a 100644 --- a/src/tool/Creation_Maillage/cmh701.F +++ b/src/tool/Creation_Maillage/cmh701.F @@ -112,17 +112,17 @@ c integer nbsomm parameter ( nbsomm = 8 ) c -#include "nblang.h" -#include "cofpfh.h" + include "nblang.h" + include "cofpfh.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -172,8 +172,8 @@ c==== c 1. messages c==== c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -429,7 +429,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmh800.F b/src/tool/Creation_Maillage/cmh800.F index df6f9a3e..7d406b52 100644 --- a/src/tool/Creation_Maillage/cmh800.F +++ b/src/tool/Creation_Maillage/cmh800.F @@ -112,17 +112,17 @@ c integer nbsomm parameter ( nbsomm = 8 ) c -#include "nblang.h" -#include "cofpfh.h" + include "nblang.h" + include "cofpfh.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -181,8 +181,8 @@ c==== c 1. messages c==== c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -493,7 +493,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmh801.F b/src/tool/Creation_Maillage/cmh801.F index 6b3f8886..7bbae995 100644 --- a/src/tool/Creation_Maillage/cmh801.F +++ b/src/tool/Creation_Maillage/cmh801.F @@ -112,17 +112,17 @@ c integer nbsomm parameter ( nbsomm = 8 ) c -#include "nblang.h" -#include "cofpfh.h" + include "nblang.h" + include "cofpfh.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -172,8 +172,8 @@ c==== c 1. messages c==== c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -443,7 +443,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmh900.F b/src/tool/Creation_Maillage/cmh900.F index f73f6792..c3a32555 100644 --- a/src/tool/Creation_Maillage/cmh900.F +++ b/src/tool/Creation_Maillage/cmh900.F @@ -112,17 +112,17 @@ c integer nbsomm parameter ( nbsomm = 8 ) c -#include "nblang.h" -#include "cofpfh.h" + include "nblang.h" + include "cofpfh.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nouvnb.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -172,8 +172,8 @@ c==== c 1. messages c==== c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -447,7 +447,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmhoma.F b/src/tool/Creation_Maillage/cmhoma.F index 17a9ef3c..bc312e98 100644 --- a/src/tool/Creation_Maillage/cmhoma.F +++ b/src/tool/Creation_Maillage/cmhoma.F @@ -51,15 +51,15 @@ c character*6 nompro parameter ( nompro = 'CMHOMA' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nombno.h" -#include "nombar.h" -#include "impr02.h" + include "nombno.h" + include "nombar.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -86,7 +86,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -260,7 +260,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmhomo.F b/src/tool/Creation_Maillage/cmhomo.F index 75ae5232..08953963 100644 --- a/src/tool/Creation_Maillage/cmhomo.F +++ b/src/tool/Creation_Maillage/cmhomo.F @@ -82,17 +82,17 @@ c character*6 nompro parameter ( nompro = 'CMHOMO' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" + include "envca1.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" c c 0.3. ==> arguments c @@ -121,7 +121,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -245,7 +245,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmhomq.F b/src/tool/Creation_Maillage/cmhomq.F index 2db1eb05..bb3bdcd5 100644 --- a/src/tool/Creation_Maillage/cmhomq.F +++ b/src/tool/Creation_Maillage/cmhomq.F @@ -56,18 +56,18 @@ c character*6 nompro parameter ( nompro = 'CMHOMQ' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "ope1a4.h" -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "impr02.h" + include "ope1a4.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -99,7 +99,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -388,7 +388,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmhomt.F b/src/tool/Creation_Maillage/cmhomt.F index 4e45259f..d59a4a64 100644 --- a/src/tool/Creation_Maillage/cmhomt.F +++ b/src/tool/Creation_Maillage/cmhomt.F @@ -53,16 +53,16 @@ c character*6 nompro parameter ( nompro = 'CMHOMT' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "demitr.h" -#include "nombar.h" -#include "nombtr.h" -#include "impr02.h" + include "demitr.h" + include "nombar.h" + include "nombtr.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -95,7 +95,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -541,7 +541,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cminma.F b/src/tool/Creation_Maillage/cminma.F index 65578f85..9f31cbc6 100644 --- a/src/tool/Creation_Maillage/cminma.F +++ b/src/tool/Creation_Maillage/cminma.F @@ -57,22 +57,22 @@ c character*6 nompro parameter ( nompro = 'CMINMA' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "envada.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombno.h" -#include "nombte.h" -#include "nombhe.h" -#include "nombpy.h" -#include "nombpe.h" + include "envex1.h" + include "envada.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombno.h" + include "nombte.h" + include "nombhe.h" + include "nombpy.h" + include "nombpe.h" c -#include "nouvnb.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -99,14 +99,14 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" + include "impr03.h" c c==== c 2. initialisation des pointeurs @@ -206,7 +206,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmmisa.F b/src/tool/Creation_Maillage/cmmisa.F index e67a0de6..03521f5b 100644 --- a/src/tool/Creation_Maillage/cmmisa.F +++ b/src/tool/Creation_Maillage/cmmisa.F @@ -56,26 +56,26 @@ c character*6 nompro parameter ( nompro = 'CMMISA' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" + include "gmenti.h" c -#include "envca1.h" -#include "envada.h" -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombhe.h" -#include "nombpy.h" -#include "nombpe.h" -#include "nouvnb.h" -#include "impr02.h" + include "envca1.h" + include "envada.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombhe.h" + include "nombpy.h" + include "nombpe.h" + include "nouvnb.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -142,7 +142,7 @@ c c c 1.3. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -169,7 +169,7 @@ c texte(2,10) = '(5x,''Maximum level of '',a,'':'',i10)' texte(2,11) = '(5x,''Maximum level of '',a,'':'',i10,''.5'')' c -#include "impr03.h" + include "impr03.h" c c 1.4. ==> le numero de sous-etape c @@ -700,7 +700,7 @@ c 9.1. ==> message si erreur c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmnbco.F b/src/tool/Creation_Maillage/cmnbco.F index c85e55c9..525a51a7 100644 --- a/src/tool/Creation_Maillage/cmnbco.F +++ b/src/tool/Creation_Maillage/cmnbco.F @@ -67,19 +67,19 @@ c character*6 nompro parameter ( nompro = 'CMNBCO' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "gmenti.h" + include "envex1.h" + include "gmenti.h" c -#include "envca1.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombhe.h" -#include "nombpe.h" + include "envca1.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombhe.h" + include "nombpe.h" c c 0.3. ==> arguments c @@ -140,7 +140,7 @@ c======================================================================= c c 1.3. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -159,7 +159,7 @@ c texte(2,6) = '(''Size modification of arrays for '',a)' texte(2,7) = '(5x,''==> error code :'',i8)' c -#include "impr03.h" + include "impr03.h" c c 1.4. ==> le numero de sous-etape c @@ -336,7 +336,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmno22.F b/src/tool/Creation_Maillage/cmno22.F index a1c870ce..77d51b68 100644 --- a/src/tool/Creation_Maillage/cmno22.F +++ b/src/tool/Creation_Maillage/cmno22.F @@ -50,18 +50,18 @@ c character*6 nompro parameter ( nompro = 'CMNO22' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" -#include "gmreel.h" + include "gmenti.h" + include "gmreel.h" c -#include "envca1.h" -#include "nouvnb.h" -#include "impr02.h" + include "envca1.h" + include "nouvnb.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -97,7 +97,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -116,7 +116,7 @@ c texte(2,9) = > '(5x,''At the end, number of created '',a,'': '',i10)' c -#include "impr03.h" + include "impr03.h" c c==== c 2. recuperation des pointeurs @@ -221,7 +221,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmnoim.F b/src/tool/Creation_Maillage/cmnoim.F index 7bb4f8bc..ee0109f7 100644 --- a/src/tool/Creation_Maillage/cmnoim.F +++ b/src/tool/Creation_Maillage/cmnoim.F @@ -53,18 +53,18 @@ c character*6 nompro parameter ( nompro = 'CMNOIM' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" -#include "gmreel.h" + include "gmenti.h" + include "gmreel.h" c -#include "envca1.h" -#include "nouvnb.h" -#include "impr02.h" + include "envca1.h" + include "nouvnb.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -103,7 +103,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -122,7 +122,7 @@ c texte(2,9) = > '(5x,''At the end, number of created '',a,'': '',i10)' c -#include "impr03.h" + include "impr03.h" c c==== c 2. recuperation des pointeurs @@ -302,7 +302,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmnosu.F b/src/tool/Creation_Maillage/cmnosu.F index d6ddfc75..48372d56 100644 --- a/src/tool/Creation_Maillage/cmnosu.F +++ b/src/tool/Creation_Maillage/cmnosu.F @@ -54,16 +54,16 @@ c character*6 nompro parameter ( nompro = 'CMNOSU' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "envca1.h" + include "envex1.h" + include "envca1.h" c -#include "nombar.h" -#include "nouvnb.h" -#include "impr02.h" + include "nombar.h" + include "nouvnb.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -109,7 +109,7 @@ c c c 1.3. ==> les messages c -#include "impr01.h" + include "impr01.h" c texte(1,4) = '(/,a6,'' CREATION DES NOEUDS SUPPLEMENTAIRES'')' texte(1,5) = '(42(''=''),/)' @@ -123,7 +123,7 @@ c texte(2,6) = '(5x,i10,'' nodes were expected.'')' texte(2,7) = '(5x,i10,'' nodes were created.'')' c -#include "impr03.h" + include "impr03.h" c c 1.4. ==> le numero de sous-etape c @@ -296,7 +296,7 @@ c 7.1. ==> message si erreur c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmraff.F b/src/tool/Creation_Maillage/cmraff.F index a9437e3d..171a0500 100644 --- a/src/tool/Creation_Maillage/cmraff.F +++ b/src/tool/Creation_Maillage/cmraff.F @@ -60,25 +60,25 @@ c character*6 nompro parameter ( nompro = 'CMRAFF' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" -#include "gmreel.h" + include "gmenti.h" + include "gmreel.h" c -#include "envca1.h" -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombhe.h" -#include "nombpe.h" -#include "nouvnb.h" -#include "impr02.h" + include "envca1.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombhe.h" + include "nombpe.h" + include "nouvnb.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -145,7 +145,7 @@ c======================================================================= c c 1.3. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -175,7 +175,7 @@ c write (ulsort,texte(langue,4)) saux write (ulsort,texte(langue,5)) c -#include "impr03.h" + include "impr03.h" c c==== c 2. recuperation des pointeurs @@ -633,7 +633,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmrda1.F b/src/tool/Creation_Maillage/cmrda1.F index 1fc71a59..9a9f53e8 100644 --- a/src/tool/Creation_Maillage/cmrda1.F +++ b/src/tool/Creation_Maillage/cmrda1.F @@ -77,19 +77,19 @@ c character*6 nompro parameter ( nompro = 'CMRDA1' ) c -#include "nblang.h" + include "nblang.h" c -#include "fracta.h" -#include "cofaar.h" + include "fracta.h" + include "cofaar.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "envca1.h" -#include "nbfami.h" -#include "nombar.h" -#include "nouvnb.h" -#include "dicfen.h" + include "envex1.h" + include "envca1.h" + include "nbfami.h" + include "nombar.h" + include "nouvnb.h" + include "dicfen.h" c c 0.3. ==> arguments c @@ -117,7 +117,7 @@ c==== c 1. preliminaires c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -208,7 +208,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmrda2.F b/src/tool/Creation_Maillage/cmrda2.F index 749fe107..c7583ecb 100644 --- a/src/tool/Creation_Maillage/cmrda2.F +++ b/src/tool/Creation_Maillage/cmrda2.F @@ -72,17 +72,17 @@ c character*6 nompro parameter ( nompro = 'CMRDA2' ) c -#include "nblang.h" + include "nblang.h" c -#include "cofaar.h" + include "cofaar.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "nbfami.h" -#include "nombar.h" -#include "nouvnb.h" -#include "dicfen.h" + include "envex1.h" + include "nbfami.h" + include "nombar.h" + include "nouvnb.h" + include "dicfen.h" c c 0.3. ==> arguments c @@ -110,7 +110,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -197,7 +197,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmrdhe.F b/src/tool/Creation_Maillage/cmrdhe.F index c2d24b07..c4b13903 100644 --- a/src/tool/Creation_Maillage/cmrdhe.F +++ b/src/tool/Creation_Maillage/cmrdhe.F @@ -80,18 +80,18 @@ c character*6 nompro parameter ( nompro = 'CMRDHE' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "impr02.h" -#include "envca1.h" -#include "defiqu.h" -#include "nombhe.h" -#include "nouvnb.h" -#include "fracte.h" -#include "cofhex.h" + include "envex1.h" + include "impr02.h" + include "envca1.h" + include "defiqu.h" + include "nombhe.h" + include "nouvnb.h" + include "fracte.h" + include "cofhex.h" c c 0.3. ==> arguments c @@ -171,7 +171,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -742,7 +742,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmrdpe.F b/src/tool/Creation_Maillage/cmrdpe.F index 92380b68..873361ca 100644 --- a/src/tool/Creation_Maillage/cmrdpe.F +++ b/src/tool/Creation_Maillage/cmrdpe.F @@ -80,17 +80,17 @@ c character*6 nompro parameter ( nompro = 'CMRDPE' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "i1i2i3.h" -#include "cofpen.h" -#include "nombpe.h" -#include "nouvnb.h" -#include "defiqu.h" -#include "impr02.h" + include "envex1.h" + include "i1i2i3.h" + include "cofpen.h" + include "nombpe.h" + include "nouvnb.h" + include "defiqu.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -142,7 +142,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -557,7 +557,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmrdqu.F b/src/tool/Creation_Maillage/cmrdqu.F index 5ac1acbf..e46749aa 100644 --- a/src/tool/Creation_Maillage/cmrdqu.F +++ b/src/tool/Creation_Maillage/cmrdqu.F @@ -80,18 +80,18 @@ c character*6 nompro parameter ( nompro = 'CMRDQU' ) c -#include "nblang.h" -#include "fractc.h" -#include "cofatq.h" + include "nblang.h" + include "fractc.h" + include "cofatq.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "envca1.h" -#include "nombqu.h" -#include "nouvnb.h" -#include "dicfen.h" -#include "nbfami.h" + include "envex1.h" + include "envca1.h" + include "nombqu.h" + include "nouvnb.h" + include "dicfen.h" + include "nbfami.h" c c 0.3. ==> arguments c @@ -138,7 +138,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -156,7 +156,7 @@ c > '(''.. Internal edge'',i10,'', from'',i10,'' to'',i10)' texte(2,7) = '(''.. Quad son'',i10,'', edges:'',4i10)' c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,*) 'entree de ',nompro @@ -512,7 +512,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmrdte.F b/src/tool/Creation_Maillage/cmrdte.F index cacc8edf..fa5c7fb3 100644 --- a/src/tool/Creation_Maillage/cmrdte.F +++ b/src/tool/Creation_Maillage/cmrdte.F @@ -76,17 +76,17 @@ c character*6 nompro parameter ( nompro = 'CMRDTE' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "envca1.h" -#include "i1i2i3.h" -#include "nombte.h" -#include "nouvnb.h" -#include "permut.h" -#include "impr02.h" + include "envex1.h" + include "envca1.h" + include "i1i2i3.h" + include "nombte.h" + include "nouvnb.h" + include "permut.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -140,7 +140,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -654,7 +654,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmrdtr.F b/src/tool/Creation_Maillage/cmrdtr.F index d0389b44..e634b191 100644 --- a/src/tool/Creation_Maillage/cmrdtr.F +++ b/src/tool/Creation_Maillage/cmrdtr.F @@ -71,16 +71,16 @@ c character*6 nompro parameter ( nompro = 'CMRDTR' ) c -#include "nblang.h" -#include "cofatq.h" + include "nblang.h" + include "cofatq.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "nombtr.h" -#include "nouvnb.h" -#include "dicfen.h" -#include "nbfami.h" + include "envex1.h" + include "nombtr.h" + include "nouvnb.h" + include "dicfen.h" + include "nbfami.h" c c 0.3. ==> arguments c @@ -114,7 +114,7 @@ c==== c 1. preliminaires c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -125,7 +125,7 @@ c c texte(2,4) = '(''Splitting of triangle #'',i10)' c -#include "impr03.h" + include "impr03.h" c c==== c 1. decoupage en 4 des triangles de decision 4 @@ -292,7 +292,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Creation_Maillage/cmtrnp.F b/src/tool/Creation_Maillage/cmtrnp.F index 213c4906..f5f73cb0 100644 --- a/src/tool/Creation_Maillage/cmtrnp.F +++ b/src/tool/Creation_Maillage/cmtrnp.F @@ -55,12 +55,12 @@ c character*6 nompro parameter ( nompro = 'CMTRNP' ) c -#include "nblang.h" -#include "envca1.h" + include "nblang.h" + include "envca1.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -110,7 +110,7 @@ c======================================================================= c c 1.1. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -126,7 +126,7 @@ c texte(2,5) = '(31(''=''),/)' texte(2,6) = '(''From structure '',a8,'' to structure '',a8)' c -#include "impr03.h" + include "impr03.h" c c 1.2. ==> le numero de sous-etape c @@ -487,7 +487,7 @@ c 4.1. ==> message si erreur c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/deard0.F b/src/tool/Decision/deard0.F index 42b659f7..35c77567 100644 --- a/src/tool/Decision/deard0.F +++ b/src/tool/Decision/deard0.F @@ -61,18 +61,18 @@ c character*6 nompro parameter ( nompro = 'DEARD0' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombhe.h" -#include "nombpy.h" -#include "nombpe.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombhe.h" + include "nombpy.h" + include "nombpe.h" c c 0.3. ==> arguments c @@ -117,7 +117,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -216,7 +216,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/debil1.F b/src/tool/Decision/debil1.F index e0edac16..d5f4e70b 100644 --- a/src/tool/Decision/debil1.F +++ b/src/tool/Decision/debil1.F @@ -78,18 +78,18 @@ c character*6 nompro parameter ( nompro = 'DEBIL1' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombhe.h" -#include "nombpe.h" -#include "impr02.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombhe.h" + include "nombpe.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -124,7 +124,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -141,7 +141,7 @@ c > '(a,''#'',i10,'' : decision='',i2,'', status='',i5)' texte(2,6) = '(''Examination of the '',a,'' #'',i10)' c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,90002) 'tyconf', tyconf @@ -501,7 +501,7 @@ c if ( codret.ne.0 .and. codret.ne.1 ) then #endif c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/debila.F b/src/tool/Decision/debila.F index 08cbec66..da237656 100644 --- a/src/tool/Decision/debila.F +++ b/src/tool/Decision/debila.F @@ -56,17 +56,17 @@ c character*6 nompro parameter ( nompro = 'DEBILA' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "gmenti.h" + include "gmenti.h" c -#include "nombqu.h" -#include "nombtr.h" -#include "nombhe.h" -#include "nombpe.h" -#include "envca1.h" + include "nombqu.h" + include "nombtr.h" + include "nombhe.h" + include "nombpe.h" + include "envca1.h" c c 0.3. ==> arguments c @@ -117,7 +117,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -145,7 +145,7 @@ c write (ulsort,texte(langue,4)) saux write (ulsort,texte(langue,5)) c -#include "impr03.h" + include "impr03.h" c c==== c 2. recuperation des pointeurs, initialisations diff --git a/src/tool/Decision/decfs0.F b/src/tool/Decision/decfs0.F index 8b843ce1..4a808177 100644 --- a/src/tool/Decision/decfs0.F +++ b/src/tool/Decision/decfs0.F @@ -99,21 +99,21 @@ c character*6 nompro parameter ( nompro = 'DECFS0' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "infini.h" -#include "impr02.h" + include "envex1.h" + include "infini.h" + include "impr02.h" c -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombhe.h" -#include "nombpy.h" -#include "nombpe.h" -#include "hexcf0.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombhe.h" + include "nombpy.h" + include "nombpe.h" + include "hexcf0.h" c c 0.3. ==> arguments c @@ -166,7 +166,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -177,7 +177,7 @@ c c texte(2,4) = '(''Suppression of the conformities for '',a)' c -#include "impr03.h" + include "impr03.h" c codret = 0 c @@ -625,7 +625,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/decfs1.F b/src/tool/Decision/decfs1.F index 749e3479..51d25635 100644 --- a/src/tool/Decision/decfs1.F +++ b/src/tool/Decision/decfs1.F @@ -100,21 +100,21 @@ c character*6 nompro parameter ( nompro = 'DECFS1' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "infini.h" -#include "impr02.h" + include "envex1.h" + include "infini.h" + include "impr02.h" c -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombhe.h" -#include "nombpy.h" -#include "nombpe.h" -#include "hexcf0.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombhe.h" + include "nombpy.h" + include "nombpe.h" + include "hexcf0.h" c c 0.3. ==> arguments c @@ -167,7 +167,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -178,7 +178,7 @@ c c texte(2,4) = '(''Suppression of the conformities for '',a)' c -#include "impr03.h" + include "impr03.h" c codret = 0 c @@ -628,7 +628,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/decfs2.F b/src/tool/Decision/decfs2.F index c137acb3..423d7623 100644 --- a/src/tool/Decision/decfs2.F +++ b/src/tool/Decision/decfs2.F @@ -91,18 +91,18 @@ c character*6 nompro parameter ( nompro = 'DECFS2' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "impr02.h" -#include "envca1.h" -#include "nancnb.h" -#include "nombno.h" -#include "nombar.h" -#include "hexcf0.h" + include "impr02.h" + include "envca1.h" + include "nancnb.h" + include "nombno.h" + include "nombar.h" + include "hexcf0.h" c c 0.3. ==> arguments c @@ -147,7 +147,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -158,7 +158,7 @@ c c texte(2,4) = '(''Cut for conformity; binary code:'',i5)' c -#include "impr03.h" + include "impr03.h" c codret = 0 c @@ -441,7 +441,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/decfs3.F b/src/tool/Decision/decfs3.F index 4682aef6..dfdfb1dd 100644 --- a/src/tool/Decision/decfs3.F +++ b/src/tool/Decision/decfs3.F @@ -64,18 +64,18 @@ c character*6 nompro parameter ( nompro = 'DECFS3' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "impr02.h" + include "envex1.h" + include "impr02.h" c -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombhe.h" -#include "nombpe.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombhe.h" + include "nombpe.h" c c 0.3. ==> arguments c @@ -103,7 +103,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -269,7 +269,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/decfsu.F b/src/tool/Decision/decfsu.F index 7c760374..091fc757 100644 --- a/src/tool/Decision/decfsu.F +++ b/src/tool/Decision/decfsu.F @@ -54,25 +54,25 @@ c character*6 nompro parameter ( nompro = 'DECFSU' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" -#include "gmreel.h" + include "gmenti.h" + include "gmreel.h" c -#include "envca1.h" -#include "nancnb.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombno.h" -#include "nombte.h" -#include "nombpy.h" -#include "nombhe.h" -#include "nombpe.h" + include "envca1.h" + include "nancnb.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombno.h" + include "nombte.h" + include "nombpy.h" + include "nombhe.h" + include "nombpe.h" c c 0.3. ==> arguments c @@ -164,16 +164,16 @@ c c==== c 1. messages c==== -#include "impr02.h" + include "impr02.h" c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" + include "impr03.h" c codava = codret c @@ -902,7 +902,7 @@ c 7.1. ==> message si erreur c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/decine.F b/src/tool/Decision/decine.F index e5d6c6a4..309558f6 100644 --- a/src/tool/Decision/decine.F +++ b/src/tool/Decision/decine.F @@ -74,15 +74,15 @@ c character*6 nompro parameter ( nompro = 'DECINE' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "envca1.h" + include "envex1.h" + include "envca1.h" c -#include "nombno.h" -#include "nouvnb.h" + include "nombno.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -149,7 +149,7 @@ c======================================================================= c c 1.3. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -178,7 +178,7 @@ c texte(2,10) = '(''The number of nodes alternates.'')' texte(2,11) = '(''The process is over.'')' c -#include "impr03.h" + include "impr03.h" c c 1.4. ==> le numero de sous-etape c @@ -455,7 +455,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/decora.F b/src/tool/Decision/decora.F index e5b2f038..0e8b9f5e 100644 --- a/src/tool/Decision/decora.F +++ b/src/tool/Decision/decora.F @@ -59,21 +59,21 @@ c character*6 nompro parameter ( nompro = 'DECORA' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" + include "gmenti.h" c -#include "nombno.h" -#include "nombar.h" -#include "nombqu.h" -#include "nombtr.h" -#include "nombte.h" -#include "nombhe.h" -#include "envca1.h" + include "nombno.h" + include "nombar.h" + include "nombqu.h" + include "nombtr.h" + include "nombte.h" + include "nombhe.h" + include "envca1.h" c c 0.3. ==> arguments c @@ -127,7 +127,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -164,7 +164,7 @@ c write (ulsort,texte(langue,4)) saux write (ulsort,texte(langue,5)) c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,7)) taopti(36) @@ -509,7 +509,7 @@ c c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/decpt0.F b/src/tool/Decision/decpt0.F index a0412ac3..a3407e13 100644 --- a/src/tool/Decision/decpt0.F +++ b/src/tool/Decision/decpt0.F @@ -84,20 +84,20 @@ c character*6 nompro parameter ( nompro = 'DECPT0' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombhe.h" -#include "nombpy.h" -#include "nombpe.h" -#include "impr02.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombhe.h" + include "nombpy.h" + include "nombpe.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -133,7 +133,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -142,7 +142,7 @@ c c codret = 0 c -#include "impr03.h" + include "impr03.h" c c==== c 2. decompte des entites a decouper et a supprimer et impressions @@ -362,7 +362,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/decpte.F b/src/tool/Decision/decpte.F index eea3330a..0295bc06 100644 --- a/src/tool/Decision/decpte.F +++ b/src/tool/Decision/decpte.F @@ -75,21 +75,21 @@ c character*6 nompro parameter ( nompro = 'DECPTE' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envada.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombhe.h" -#include "nombpy.h" -#include "nombpe.h" -#include "impr02.h" + include "envada.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombhe.h" + include "nombpy.h" + include "nombpe.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -125,7 +125,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -148,7 +148,7 @@ c c codret = 0 c -#include "impr03.h" + include "impr03.h" c c==== c 2. decompte des entites a decouper et a supprimer et impressions @@ -251,7 +251,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/decr02.F b/src/tool/Decision/decr02.F index 1aff0fce..c9e27252 100644 --- a/src/tool/Decision/decr02.F +++ b/src/tool/Decision/decr02.F @@ -82,19 +82,19 @@ c character*6 nompro parameter ( nompro = 'DECR02' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "impr02.h" -#include "ope1a4.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "impr02.h" + include "ope1a4.h" c c 0.3. ==> arguments c @@ -131,7 +131,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -144,9 +144,9 @@ c texte(2,4) = '(5x,''A least 2 meshes between 2 levels.'')' texte(2,5) = '(7x,''Number of faces to deal with :'',i6,/)' c -#include "impr03.h" + include "impr03.h" c -#include "derco1.h" + include "derco1.h" c codret = 0 c @@ -383,7 +383,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/decr03.F b/src/tool/Decision/decr03.F index 525a57e3..fa4ba782 100644 --- a/src/tool/Decision/decr03.F +++ b/src/tool/Decision/decr03.F @@ -67,16 +67,16 @@ c character*6 nompro parameter ( nompro = 'DECR03' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "impr02.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -111,7 +111,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -130,9 +130,9 @@ c texte(2,7) = > '(a,''#'',i6,'' : decision ='',i2,'', status ='',i5)' c -#include "impr03.h" + include "impr03.h" c -#include "derco1.h" + include "derco1.h" c codret = 0 c @@ -507,7 +507,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/decr05.F b/src/tool/Decision/decr05.F index 42892951..3b92cfbf 100644 --- a/src/tool/Decision/decr05.F +++ b/src/tool/Decision/decr05.F @@ -107,18 +107,18 @@ c character*6 nompro parameter ( nompro = 'DECR05' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombhe.h" -#include "impr02.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombhe.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -160,7 +160,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -187,9 +187,9 @@ c > '(a,''#'',i8,'' : decision ='',i2,'', status ='',i5)' texte(2,10) = '(/,''Examination of the'',i10,1x,a,)' c -#include "impr03.h" + include "impr03.h" c -#include "derco1.h" + include "derco1.h" c codret = 0 c @@ -806,7 +806,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/dedco1.F b/src/tool/Decision/dedco1.F index 918e361f..c308a608 100644 --- a/src/tool/Decision/dedco1.F +++ b/src/tool/Decision/dedco1.F @@ -77,17 +77,17 @@ c character*6 nompro parameter ( nompro = 'DEDCO1' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envada.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "impr02.h" + include "envada.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -128,16 +128,16 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" + include "impr03.h" c -#include "derco1.h" + include "derco1.h" c codret = 0 c @@ -672,7 +672,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/dedco2.F b/src/tool/Decision/dedco2.F index ac6e429a..538b7f60 100644 --- a/src/tool/Decision/dedco2.F +++ b/src/tool/Decision/dedco2.F @@ -78,18 +78,18 @@ c character*6 nompro parameter ( nompro = 'DEDCO2' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envada.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" + include "envada.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" #ifdef _DEBUG_HOMARD_ -#include "impr02.h" + include "impr02.h" #endif c c 0.3. ==> arguments @@ -132,16 +132,16 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" + include "impr03.h" c -#include "derco1.h" + include "derco1.h" c codret = 0 c @@ -689,7 +689,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/dedcon.F b/src/tool/Decision/dedcon.F index e2ccb9cc..57455ea5 100644 --- a/src/tool/Decision/dedcon.F +++ b/src/tool/Decision/dedcon.F @@ -83,15 +83,15 @@ c character*6 nompro parameter ( nompro = 'DEDCON' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" c c 0.3. ==> arguments c @@ -124,15 +124,15 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "derco1.h" -#include "impr03.h" + include "derco1.h" + include "impr03.h" c codret = 0 c @@ -274,7 +274,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/dedera.F b/src/tool/Decision/dedera.F index 36d86ef8..22f6e715 100644 --- a/src/tool/Decision/dedera.F +++ b/src/tool/Decision/dedera.F @@ -55,17 +55,17 @@ c character*6 nompro parameter ( nompro = 'DEDERA' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" + include "gmenti.h" c -#include "envca1.h" -#include "nombtr.h" -#include "nombqu.h" + include "envca1.h" + include "nombtr.h" + include "nombqu.h" c c 0.3. ==> arguments c @@ -124,14 +124,14 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" + include "impr03.h" c codava = codret c @@ -398,7 +398,7 @@ c 8.1. ==> message si erreur c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/dedin1.F b/src/tool/Decision/dedin1.F index 17eb0bf2..1dbbabc1 100644 --- a/src/tool/Decision/dedin1.F +++ b/src/tool/Decision/dedin1.F @@ -62,17 +62,17 @@ c character*6 nompro parameter ( nompro = 'DEDIN1' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envada.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "impr02.h" + include "envada.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -107,16 +107,16 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" + include "impr03.h" c -#include "derco1.h" + include "derco1.h" c codret = 0 c @@ -336,7 +336,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/dedin2.F b/src/tool/Decision/dedin2.F index 72c0ca7a..feacf718 100644 --- a/src/tool/Decision/dedin2.F +++ b/src/tool/Decision/dedin2.F @@ -64,17 +64,17 @@ c character*6 nompro parameter ( nompro = 'DEDIN2' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envada.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "impr02.h" + include "envada.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -110,16 +110,16 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" + include "impr03.h" c -#include "derco1.h" + include "derco1.h" c codret = 0 c @@ -354,7 +354,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/dedini.F b/src/tool/Decision/dedini.F index 54fa02f2..d434439a 100644 --- a/src/tool/Decision/dedini.F +++ b/src/tool/Decision/dedini.F @@ -70,15 +70,15 @@ c character*6 nompro parameter ( nompro = 'DEDINI' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" c c 0.3. ==> arguments c @@ -109,7 +109,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -157,7 +157,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/deeli1.F b/src/tool/Decision/deeli1.F index 69e1d52c..913aeab0 100644 --- a/src/tool/Decision/deeli1.F +++ b/src/tool/Decision/deeli1.F @@ -62,13 +62,13 @@ c character*6 nompro parameter ( nompro = 'DEELI1' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nombar.h" + include "nombar.h" c c 0.3. ==> arguments c @@ -94,7 +94,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -107,7 +107,7 @@ c texte(2,9) ='(''Refinement reached the forbidden zone'')' texte(2,10) ='(''Number of reached edges :'',i6)' c -#include "impr03.h" + include "impr03.h" c c==== c 2. on explore toutes les aretes actives du macro-maillage : il ne @@ -145,7 +145,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,9)) write (ulsort,texte(langue,10)) codret diff --git a/src/tool/Decision/deelig.F b/src/tool/Decision/deelig.F index 5f58dda9..b9ecf910 100644 --- a/src/tool/Decision/deelig.F +++ b/src/tool/Decision/deelig.F @@ -51,15 +51,15 @@ c character*6 nompro parameter ( nompro = 'DEELIG' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" + include "gmenti.h" c -#include "envca1.h" + include "envca1.h" c c 0.3. ==> arguments c @@ -97,7 +97,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -108,7 +108,7 @@ c c texte(2,4) = '(''Error code from '',a6,'' ='',i4,/)' c -#include "impr03.h" + include "impr03.h" c c==== c 2. recuperation des pointeurs, initialisations @@ -197,7 +197,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/dehist.F b/src/tool/Decision/dehist.F index d4c3ca89..fe388ac2 100644 --- a/src/tool/Decision/dehist.F +++ b/src/tool/Decision/dehist.F @@ -51,20 +51,20 @@ c character*6 nompro parameter ( nompro = 'DEHIST' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" -#include "envca1.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombhe.h" -#include "nombpe.h" -#include "nombpy.h" + include "gmenti.h" + include "envca1.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombhe.h" + include "nombpe.h" + include "nombpy.h" c c 0.3. ==> arguments c @@ -122,7 +122,7 @@ c c c 1.3. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -251,7 +251,7 @@ c 4.1. ==> message si erreur c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/dehmaj.F b/src/tool/Decision/dehmaj.F index 61c17b66..fac65d4a 100644 --- a/src/tool/Decision/dehmaj.F +++ b/src/tool/Decision/dehmaj.F @@ -72,21 +72,21 @@ c character*6 nompro parameter ( nompro = 'DEHMAJ' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombno.h" -#include "nombte.h" -#include "nombhe.h" -#include "nombpy.h" -#include "nombpe.h" -#include "impr02.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombno.h" + include "nombte.h" + include "nombhe.h" + include "nombpy.h" + include "nombpe.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -116,7 +116,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -425,7 +425,7 @@ c c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/dehom1.F b/src/tool/Decision/dehom1.F index 535be3c7..6c04baf5 100644 --- a/src/tool/Decision/dehom1.F +++ b/src/tool/Decision/dehom1.F @@ -75,18 +75,18 @@ c character*6 nompro parameter ( nompro = 'DEHOM1' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "envada.h" -#include "envca1.h" -#include "impr02.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "envada.h" + include "envca1.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -122,7 +122,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -481,7 +481,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/dehomo.F b/src/tool/Decision/dehomo.F index 7f8928be..190cba79 100644 --- a/src/tool/Decision/dehomo.F +++ b/src/tool/Decision/dehomo.F @@ -55,17 +55,17 @@ c character*6 nompro parameter ( nompro = 'DEHOMO' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" + include "gmenti.h" c -#include "envca1.h" -#include "nombtr.h" -#include "nombqu.h" + include "envca1.h" + include "nombtr.h" + include "nombqu.h" c c 0.3. ==> arguments c @@ -118,7 +118,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -338,7 +338,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/dehova.F b/src/tool/Decision/dehova.F index 5dfd1685..1905ef78 100644 --- a/src/tool/Decision/dehova.F +++ b/src/tool/Decision/dehova.F @@ -54,14 +54,14 @@ c character*6 nompro parameter ( nompro = 'DEHOVA' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nombar.h" -#include "envca1.h" + include "nombar.h" + include "envca1.h" c c 0.3. ==> arguments c @@ -88,7 +88,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -162,7 +162,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/dehovf.F b/src/tool/Decision/dehovf.F index 0a0119b5..cefb4737 100644 --- a/src/tool/Decision/dehovf.F +++ b/src/tool/Decision/dehovf.F @@ -60,16 +60,16 @@ c character*6 nompro parameter ( nompro = 'DEHOVF' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "impr02.h" -#include "nombtr.h" -#include "nombqu.h" -#include "envca1.h" + include "impr02.h" + include "nombtr.h" + include "nombqu.h" + include "envca1.h" c c 0.3. ==> arguments c @@ -99,7 +99,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -183,7 +183,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/deiard.F b/src/tool/Decision/deiard.F index ad1285bc..2baa4a33 100644 --- a/src/tool/Decision/deiard.F +++ b/src/tool/Decision/deiard.F @@ -70,15 +70,15 @@ c character*6 nompro parameter ( nompro = 'DEIARD' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "impr02.h" + include "envex1.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -112,14 +112,14 @@ c==== c c 1.1. ==> Les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr05.h" + include "impr05.h" c codret = 0 c @@ -216,7 +216,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/deiari.F b/src/tool/Decision/deiari.F index 3481c15d..d8e6f91b 100644 --- a/src/tool/Decision/deiari.F +++ b/src/tool/Decision/deiari.F @@ -58,15 +58,15 @@ c character*6 nompro parameter ( nompro = 'DEIARI' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "impr02.h" + include "envex1.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -93,14 +93,14 @@ c==== c c 1.1. ==> Les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr05.h" + include "impr05.h" c codret = 0 c @@ -157,7 +157,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/deiarr.F b/src/tool/Decision/deiarr.F index 78dabfb0..0bf64511 100644 --- a/src/tool/Decision/deiarr.F +++ b/src/tool/Decision/deiarr.F @@ -63,15 +63,15 @@ c character*6 nompro parameter ( nompro = 'DEIARR' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "impr02.h" + include "envex1.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -102,14 +102,14 @@ c==== c c 1.1. ==> Les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr05.h" + include "impr05.h" c codret = 0 c @@ -174,7 +174,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/deihed.F b/src/tool/Decision/deihed.F index bb449f99..6ea1d16b 100644 --- a/src/tool/Decision/deihed.F +++ b/src/tool/Decision/deihed.F @@ -63,16 +63,16 @@ c character*6 nompro parameter ( nompro = 'DEIHED' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombhe.h" -#include "impr02.h" + include "envex1.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombhe.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -102,14 +102,14 @@ c==== c c 1.1. ==> Les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr05.h" + include "impr05.h" c codret = 0 c @@ -182,7 +182,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/deihei.F b/src/tool/Decision/deihei.F index 92bbe5a2..66623212 100644 --- a/src/tool/Decision/deihei.F +++ b/src/tool/Decision/deihei.F @@ -58,16 +58,16 @@ c character*6 nompro parameter ( nompro = 'DEIHEI' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombhe.h" -#include "impr02.h" + include "envex1.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombhe.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -95,14 +95,14 @@ c==== c c 1.1. ==> Les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr05.h" + include "impr05.h" c codret = 0 c @@ -157,7 +157,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/deiher.F b/src/tool/Decision/deiher.F index 7ace19fe..16b0cf02 100644 --- a/src/tool/Decision/deiher.F +++ b/src/tool/Decision/deiher.F @@ -64,16 +64,16 @@ c character*6 nompro parameter ( nompro = 'DEIHER' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombhe.h" -#include "impr02.h" + include "envex1.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombhe.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -103,14 +103,14 @@ c==== c c 1.1. ==> Les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr05.h" + include "impr05.h" c codret = 0 c @@ -174,7 +174,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/deinb1.F b/src/tool/Decision/deinb1.F index 06ce7d46..14467ead 100644 --- a/src/tool/Decision/deinb1.F +++ b/src/tool/Decision/deinb1.F @@ -59,18 +59,18 @@ c character*6 nompro parameter ( nompro = 'DEINB1' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmreel.h" + include "gmreel.h" c -#include "infini.h" -#include "envada.h" -#include "impr02.h" -#include "enti01.h" + include "infini.h" + include "envada.h" + include "impr02.h" + include "enti01.h" c c 0.3. ==> arguments c @@ -129,7 +129,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -146,7 +146,7 @@ c texte(2,5) = '(''.. Value '',a,'' :'',g16.8)' texte(2,6) = '(''--> round value for '',a,'' :'',g16.8)' c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,4)) mess14(langue,3,typenh) @@ -427,7 +427,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/deinbi.F b/src/tool/Decision/deinbi.F index 4edb3131..558cf913 100644 --- a/src/tool/Decision/deinbi.F +++ b/src/tool/Decision/deinbi.F @@ -72,20 +72,20 @@ c character*6 nompro parameter ( nompro = 'DEINBI' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombhe.h" -#include "nombpy.h" -#include "nombpe.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombhe.h" + include "nombpy.h" + include "nombpe.h" c c 0.3. ==> arguments c @@ -126,7 +126,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -255,7 +255,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/deinfi.F b/src/tool/Decision/deinfi.F index 01c4751f..e40976f5 100644 --- a/src/tool/Decision/deinfi.F +++ b/src/tool/Decision/deinfi.F @@ -83,23 +83,23 @@ c character*6 nompro parameter ( nompro = 'DEINFI' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "gmenti.h" -#include "nombno.h" -#include "nombmp.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombhe.h" -#include "nombpy.h" -#include "nombpe.h" + include "envex1.h" + include "gmenti.h" + include "nombno.h" + include "nombmp.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombhe.h" + include "nombpy.h" + include "nombpe.h" c -#include "impr02.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -147,7 +147,7 @@ c==== c 1. Initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -166,7 +166,7 @@ c texte(2,6) = '(5x,''Addition of filtered entities'')' texte(2,7) = '(''Filtering for the '',a)' c -#include "impr03.h" + include "impr03.h" c nbpass = nbpass + 1 #ifdef _DEBUG_HOMARD_ @@ -512,7 +512,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/deini0.F b/src/tool/Decision/deini0.F index 4f1e3b10..58dbc3e5 100644 --- a/src/tool/Decision/deini0.F +++ b/src/tool/Decision/deini0.F @@ -67,23 +67,23 @@ c character*6 nompro parameter ( nompro = 'DEINI0' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "impr02.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombpy.h" -#include "nombhe.h" -#include "nombpe.h" + include "impr02.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombpy.h" + include "nombhe.h" + include "nombpe.h" #ifdef _DEBUG_HOMARD_ -#include "nombar.h" -#include "nombno.h" -#include "enti01.h" + include "nombar.h" + include "nombno.h" + include "enti01.h" #endif c c 0.3. ==> arguments @@ -129,7 +129,7 @@ c==== c 1. Initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -148,7 +148,7 @@ c texte(2,6) = '(''Non coherent types for indicators.'')' texte(2,7) = '(''Non coherent numbers for components.'')' c -#include "impr03.h" + include "impr03.h" c c 1.2. ==> les types d'indicateurs : aucun pour le moment c @@ -465,7 +465,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/deini2.F b/src/tool/Decision/deini2.F index b012fc07..d8797862 100644 --- a/src/tool/Decision/deini2.F +++ b/src/tool/Decision/deini2.F @@ -61,16 +61,16 @@ c character*6 nompro parameter ( nompro = 'DEINI2' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nombqu.h" -#include "nombhe.h" + include "nombqu.h" + include "nombhe.h" #ifdef _DEBUG_HOMARD_ -#include "enti01.h" + include "enti01.h" #endif c c 0.3. ==> arguments @@ -106,7 +106,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -214,7 +214,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/deini3.F b/src/tool/Decision/deini3.F index 35fa4401..2ce5b567 100644 --- a/src/tool/Decision/deini3.F +++ b/src/tool/Decision/deini3.F @@ -53,19 +53,19 @@ c character*6 nompro parameter ( nompro = 'DEINI3' ) c -#include "nblang.h" -#include "impr02.h" + include "nblang.h" + include "impr02.h" c c 0.2. ==> communs c -#include "enti01.h" -#include "envex1.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombhe.h" -#include "nombpy.h" -#include "nombpe.h" + include "enti01.h" + include "envex1.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombhe.h" + include "nombpy.h" + include "nombpe.h" c c 0.3. ==> arguments c @@ -91,7 +91,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -171,7 +171,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/deini4.F b/src/tool/Decision/deini4.F index 41123526..1ed74d69 100644 --- a/src/tool/Decision/deini4.F +++ b/src/tool/Decision/deini4.F @@ -99,18 +99,18 @@ c character*6 nompro parameter ( nompro = 'DEINI4' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombhe.h" -#include "nombpe.h" -#include "nombpy.h" + include "envex1.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombhe.h" + include "nombpe.h" + include "nombpy.h" c c 0.3. ==> arguments c @@ -145,7 +145,7 @@ c==== c 1. initialisation c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -159,7 +159,7 @@ c texte(2,4) = '(5x,''Correction for conformal mode - phase #'',i1)' texte(2,5) = '(5x,''Correction for non conformal mode'')' c -#include "impr03.h" + include "impr03.h" c codret = 0 c @@ -676,7 +676,7 @@ cgn > decare(aretri(iaux,3)) c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/deini5.F b/src/tool/Decision/deini5.F index 2bde7044..f043dca0 100644 --- a/src/tool/Decision/deini5.F +++ b/src/tool/Decision/deini5.F @@ -53,13 +53,13 @@ c character*6 nompro parameter ( nompro = 'DEINI5' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "impr02.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -87,7 +87,7 @@ c==== c 1. Initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -166,7 +166,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/deinii.F b/src/tool/Decision/deinii.F index 925f6c5c..f21b65e0 100644 --- a/src/tool/Decision/deinii.F +++ b/src/tool/Decision/deinii.F @@ -141,20 +141,20 @@ c character*6 nompro parameter ( nompro = 'DEINII' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "envada.h" -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombhe.h" -#include "nombpy.h" -#include "nombpe.h" + include "envex1.h" + include "envada.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombhe.h" + include "nombpy.h" + include "nombpe.h" c c 0.3. ==> arguments c @@ -199,7 +199,7 @@ c==== c 1. initialisation c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -224,7 +224,7 @@ c texte(2,8) = '(5x,''After unrefinement indications'')' texte(2,9) = '(5x,''After refinement indications'')' c -#include "impr03.h" + include "impr03.h" c codret = 0 c @@ -1027,7 +1027,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/deinit.F b/src/tool/Decision/deinit.F index 3112f6b4..655bdd5b 100644 --- a/src/tool/Decision/deinit.F +++ b/src/tool/Decision/deinit.F @@ -57,25 +57,25 @@ c character*6 nompro parameter ( nompro = 'DEINIT' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" + include "gmenti.h" c -#include "nombmp.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombpy.h" -#include "nombhe.h" -#include "nombpe.h" -#include "envca1.h" -#include "envada.h" -#include "impr02.h" + include "nombmp.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombpy.h" + include "nombhe.h" + include "nombpe.h" + include "envca1.h" + include "envada.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -138,7 +138,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -170,7 +170,7 @@ c texte(2,6) = '(/,''Decisions over '',a)' texte(2,7) = '(/,5x,''Summary after the initialisation'')' c -#include "impr03.h" + include "impr03.h" c c 1.4. ==> le numero de sous-etape c @@ -635,7 +635,7 @@ c 6.1. ==> message si erreur c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/deinnu.F b/src/tool/Decision/deinnu.F index 01be21da..429fa36c 100644 --- a/src/tool/Decision/deinnu.F +++ b/src/tool/Decision/deinnu.F @@ -171,25 +171,25 @@ c character*6 nompro parameter ( nompro = 'DEINNU' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" -#include "gmreel.h" + include "gmenti.h" + include "gmreel.h" c -#include "nombno.h" -#include "nombmp.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombpy.h" -#include "nombhe.h" -#include "nombpe.h" -#include "envca1.h" + include "nombno.h" + include "nombmp.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombpy.h" + include "nombhe.h" + include "nombpe.h" + include "envca1.h" c c 0.3. ==> arguments c @@ -280,7 +280,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -297,7 +297,7 @@ c texte(2,6) = '(/,5x,''Filtering by the groups'')' texte(2,7) = '(/,5x,''Filtering by the minimal diametre'')' c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,90002) 'tyconf', tyconf @@ -971,7 +971,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/deinod.F b/src/tool/Decision/deinod.F index d7d77b63..4cfc855f 100644 --- a/src/tool/Decision/deinod.F +++ b/src/tool/Decision/deinod.F @@ -69,17 +69,17 @@ c character*6 nompro parameter ( nompro = 'DEINOD' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "envca1.h" -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "impr02.h" + include "envex1.h" + include "envca1.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -109,14 +109,14 @@ c==== c 1. initialisation c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr05.h" + include "impr05.h" c codret = 0 cgn print *,decare @@ -267,7 +267,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/deinoi.F b/src/tool/Decision/deinoi.F index a350a26c..4a615106 100644 --- a/src/tool/Decision/deinoi.F +++ b/src/tool/Decision/deinoi.F @@ -57,17 +57,17 @@ c character*6 nompro parameter ( nompro = 'DEINOI' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "envca1.h" -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "impr02.h" + include "envex1.h" + include "envca1.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -92,16 +92,16 @@ c==== c 1. initialisation c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" + include "impr03.h" c -#include "impr05.h" + include "impr05.h" c codret = 0 c @@ -209,7 +209,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/deinor.F b/src/tool/Decision/deinor.F index 2c6a53fa..6b95516d 100644 --- a/src/tool/Decision/deinor.F +++ b/src/tool/Decision/deinor.F @@ -62,17 +62,17 @@ c character*6 nompro parameter ( nompro = 'DEINOR' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "envca1.h" -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "impr02.h" + include "envex1.h" + include "envca1.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -100,16 +100,16 @@ c==== c 1. initialisation c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" + include "impr03.h" c -#include "impr05.h" + include "impr05.h" c #ifdef _DEBUG_HOMARD_ write(ulsort,90002) 'degre', degre @@ -219,7 +219,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/deinri.F b/src/tool/Decision/deinri.F index 2ef1f1b2..bcf17a22 100644 --- a/src/tool/Decision/deinri.F +++ b/src/tool/Decision/deinri.F @@ -127,21 +127,21 @@ c character*6 nompro parameter ( nompro = 'DEINRI' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "gmreel.h" + include "envex1.h" + include "gmreel.h" c -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombhe.h" -#include "nombpy.h" -#include "nombpe.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombhe.h" + include "nombpy.h" + include "nombpe.h" c c 0.3. ==> arguments c @@ -194,14 +194,14 @@ c==== c 1. initialisation c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" + include "impr03.h" c c==== c 2. allocation de tableaux temporaires @@ -647,7 +647,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/deinse.F b/src/tool/Decision/deinse.F index 6b8afe01..c8fe6fb5 100644 --- a/src/tool/Decision/deinse.F +++ b/src/tool/Decision/deinse.F @@ -91,20 +91,20 @@ c character*6 nompro parameter ( nompro = 'DEINSE' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envada.h" + include "envada.h" c -#include "gmenti.h" -#include "infini.h" -#include "precis.h" -#include "impr02.h" -#include "nombno.h" -#include "envca1.h" + include "gmenti.h" + include "infini.h" + include "precis.h" + include "impr02.h" + include "nombno.h" + include "envca1.h" c c 0.3. ==> arguments c @@ -146,14 +146,14 @@ c==== c 1. initialisation c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" + include "impr03.h" c cgn write (ulsort,90002) 'typenh', typenh cgn write (ulsort,90002) 'pilraf', pilraf @@ -733,7 +733,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/deinst.F b/src/tool/Decision/deinst.F index e9aa7067..240c46ed 100644 --- a/src/tool/Decision/deinst.F +++ b/src/tool/Decision/deinst.F @@ -63,12 +63,12 @@ c character*6 nompro parameter ( nompro = 'DEINST' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "impr02.h" + include "envex1.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -94,7 +94,7 @@ c==== c 1. initialisation c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -115,7 +115,7 @@ c write (ulsort,texte(langue,6)) seuibe #endif c -#include "impr03.h" + include "impr03.h" c c==== c 2. transfert de reel a entier @@ -146,7 +146,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/deinti.F b/src/tool/Decision/deinti.F index e7b06393..5037c88e 100644 --- a/src/tool/Decision/deinti.F +++ b/src/tool/Decision/deinti.F @@ -68,13 +68,13 @@ c character*6 nompro parameter ( nompro = 'DEINTI' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "impr02.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -104,7 +104,7 @@ c==== c c 1.1. ==> Les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -193,7 +193,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/deinun.F b/src/tool/Decision/deinun.F index 6f7f61f7..3446e49d 100644 --- a/src/tool/Decision/deinun.F +++ b/src/tool/Decision/deinun.F @@ -68,16 +68,16 @@ c character*6 nompro parameter ( nompro = 'DEINUN' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envada.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" + include "envada.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" c c 0.3. ==> arguments c @@ -105,7 +105,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -215,7 +215,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/deinz0.F b/src/tool/Decision/deinz0.F index 2a2e87a1..f3e65144 100644 --- a/src/tool/Decision/deinz0.F +++ b/src/tool/Decision/deinz0.F @@ -68,14 +68,14 @@ c character*6 nompro parameter ( nompro = 'DEINZ0' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "nombno.h" + include "envca1.h" + include "nombno.h" c c 0.3. ==> arguments c @@ -111,7 +111,7 @@ c==== c 1. initialisation c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -124,7 +124,7 @@ c texte(2,4) = '(''Zone as a brick'')' texte(2,5) = '(''OK for node # '',i10,3g15.7)' c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,4)) @@ -255,7 +255,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret c diff --git a/src/tool/Decision/deinz1.F b/src/tool/Decision/deinz1.F index c09211d8..01a98a9a 100644 --- a/src/tool/Decision/deinz1.F +++ b/src/tool/Decision/deinz1.F @@ -68,14 +68,14 @@ c character*6 nompro parameter ( nompro = 'DEINZ1' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "nombno.h" + include "envca1.h" + include "nombno.h" c c 0.3. ==> arguments c @@ -114,7 +114,7 @@ c==== c c 1.1. ==> Les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -127,7 +127,7 @@ c texte(2,4) = '(''Spherical zone'')' texte(2,8) = '(''OK for node # '',i10,3g15.7)' c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,4)) @@ -227,7 +227,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret c diff --git a/src/tool/Decision/deinz2.F b/src/tool/Decision/deinz2.F index 6126f69c..2ab7693f 100644 --- a/src/tool/Decision/deinz2.F +++ b/src/tool/Decision/deinz2.F @@ -71,15 +71,15 @@ c character*6 nompro parameter ( nompro = 'DEINZ2' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "envca1.h" + include "envex1.h" + include "envca1.h" c -#include "nombno.h" -#include "precis.h" + include "nombno.h" + include "precis.h" c c 0.3. ==> arguments c @@ -122,7 +122,7 @@ c==== c c 1.1. ==> Les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -139,7 +139,7 @@ c texte(2,8) = '(''OK for node # '',i10,3g15.7)' texte(2,9) = '(''The definition of the axis is not valid.'')' c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ if ( rint.lt.0 ) then @@ -258,7 +258,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret c diff --git a/src/tool/Decision/deinzr.F b/src/tool/Decision/deinzr.F index 4f6a2241..4747d9ef 100644 --- a/src/tool/Decision/deinzr.F +++ b/src/tool/Decision/deinzr.F @@ -98,18 +98,18 @@ c character*6 nompro parameter ( nompro = 'DEINZR' ) c -#include "nblang.h" + include "nblang.h" c integer nbmcle parameter ( nbmcle = 20 ) c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "nombno.h" -#include "nombar.h" + include "envca1.h" + include "nombno.h" + include "nombar.h" c c 0.3. ==> arguments c @@ -159,7 +159,7 @@ c==== c 1. initialisation c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -207,7 +207,7 @@ c endif #endif c -#include "impr03.h" + include "impr03.h" c c==== c 2. les zones @@ -572,7 +572,7 @@ cgn write(ulsort,4000) (iaux, arindi(iaux) , iaux = 1, nbarto) cgn 4000 format(5(i4,' :',i2)) if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret c diff --git a/src/tool/Decision/deiped.F b/src/tool/Decision/deiped.F index 849a165b..6a259cdc 100644 --- a/src/tool/Decision/deiped.F +++ b/src/tool/Decision/deiped.F @@ -65,16 +65,16 @@ c character*6 nompro parameter ( nompro = 'DEIPED' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombpe.h" -#include "impr02.h" + include "envex1.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombpe.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -105,14 +105,14 @@ c==== c c 1.1. ==> Les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr05.h" + include "impr05.h" c codret = 0 c @@ -193,7 +193,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/deipei.F b/src/tool/Decision/deipei.F index bfa5d598..f3a5d3ee 100644 --- a/src/tool/Decision/deipei.F +++ b/src/tool/Decision/deipei.F @@ -61,16 +61,16 @@ c character*6 nompro parameter ( nompro = 'DEIPEI' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombpe.h" -#include "impr02.h" + include "envex1.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombpe.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -99,14 +99,14 @@ c==== c c 1.1. ==> Les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr05.h" + include "impr05.h" c codret = 0 c @@ -192,7 +192,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/deiper.F b/src/tool/Decision/deiper.F index accb0c34..780e1383 100644 --- a/src/tool/Decision/deiper.F +++ b/src/tool/Decision/deiper.F @@ -67,16 +67,16 @@ c character*6 nompro parameter ( nompro = 'DEIPER' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombpe.h" -#include "impr02.h" + include "envex1.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombpe.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -107,14 +107,14 @@ c==== c c 1.1. ==> Les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr05.h" + include "impr05.h" c codret = 0 c @@ -194,7 +194,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/deipyd.F b/src/tool/Decision/deipyd.F index d4b830cc..faaaaf49 100644 --- a/src/tool/Decision/deipyd.F +++ b/src/tool/Decision/deipyd.F @@ -51,13 +51,13 @@ c character*6 nompro parameter ( nompro = 'DEIPYD' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "nombpy.h" -#include "impr02.h" + include "envex1.h" + include "nombpy.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -83,14 +83,14 @@ c==== c c 1.1. ==> Les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr05.h" + include "impr05.h" c codret = 0 c @@ -133,7 +133,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/deipyi.F b/src/tool/Decision/deipyi.F index 2cc2bc47..6e6b1887 100644 --- a/src/tool/Decision/deipyi.F +++ b/src/tool/Decision/deipyi.F @@ -61,16 +61,16 @@ c character*6 nompro parameter ( nompro = 'DEIPYI' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombpy.h" -#include "impr02.h" + include "envex1.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombpy.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -99,14 +99,14 @@ c==== c c 1.1. ==> Les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr05.h" + include "impr05.h" c codret = 0 c @@ -192,7 +192,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/deipyr.F b/src/tool/Decision/deipyr.F index 680a9786..8eb05f36 100644 --- a/src/tool/Decision/deipyr.F +++ b/src/tool/Decision/deipyr.F @@ -67,16 +67,16 @@ c character*6 nompro parameter ( nompro = 'DEIPYR' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombpy.h" -#include "impr02.h" + include "envex1.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombpy.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -107,14 +107,14 @@ c==== c c 1.1. ==> Les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr05.h" + include "impr05.h" c codret = 0 c @@ -195,7 +195,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/deiqud.F b/src/tool/Decision/deiqud.F index 398cab8a..c4b16bc7 100644 --- a/src/tool/Decision/deiqud.F +++ b/src/tool/Decision/deiqud.F @@ -61,15 +61,15 @@ c character*6 nompro parameter ( nompro = 'DEIQUD' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "impr02.h" + include "envex1.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -99,15 +99,15 @@ c==== c c 1.1. ==> Les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr05.h" -#include "derco1.h" + include "impr05.h" + include "derco1.h" c codret = 0 c @@ -197,7 +197,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/deiqui.F b/src/tool/Decision/deiqui.F index 10e47e36..60f40fd9 100644 --- a/src/tool/Decision/deiqui.F +++ b/src/tool/Decision/deiqui.F @@ -56,15 +56,15 @@ c character*6 nompro parameter ( nompro = 'DEIQUI' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "impr02.h" + include "envex1.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -91,15 +91,15 @@ c==== c c 1.1. ==> Les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr05.h" -#include "derco1.h" + include "impr05.h" + include "derco1.h" c codret = 0 c @@ -147,7 +147,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/deiqur.F b/src/tool/Decision/deiqur.F index d86e7bc2..64875782 100644 --- a/src/tool/Decision/deiqur.F +++ b/src/tool/Decision/deiqur.F @@ -62,15 +62,15 @@ c character*6 nompro parameter ( nompro = 'DEIQUR' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "impr02.h" + include "envex1.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -98,17 +98,17 @@ c==== c 1. initialisation c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" + include "impr03.h" c -#include "impr05.h" -#include "derco1.h" + include "impr05.h" + include "derco1.h" c codret = 0 c @@ -197,7 +197,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/deisa1.F b/src/tool/Decision/deisa1.F index dcb7a443..66341886 100644 --- a/src/tool/Decision/deisa1.F +++ b/src/tool/Decision/deisa1.F @@ -80,23 +80,23 @@ c character*6 nompro parameter ( nompro = 'DEISA1' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "gmreel.h" -#include "gmenti.h" + include "gmreel.h" + include "gmenti.h" c -#include "envex1.h" + include "envex1.h" c -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombhe.h" -#include "nombpy.h" -#include "nombpe.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombhe.h" + include "nombpy.h" + include "nombpe.h" c c 0.3. ==> arguments c @@ -161,14 +161,14 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" + include "impr03.h" c c==== c 2. les tableaux @@ -460,7 +460,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/deisa2.F b/src/tool/Decision/deisa2.F index ff03a0b0..00871f25 100644 --- a/src/tool/Decision/deisa2.F +++ b/src/tool/Decision/deisa2.F @@ -143,21 +143,21 @@ c character*6 nompro parameter ( nompro = 'DEISA2' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "impr02.h" -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombhe.h" -#include "nombpy.h" -#include "nombpe.h" + include "impr02.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombhe.h" + include "nombpy.h" + include "nombpe.h" c c 0.3. ==> arguments c @@ -216,7 +216,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -232,7 +232,7 @@ c texte(2,5) = '(''. Jump of error indicator along the '',a)' texte(2,6) = '(''. Jump of error indicator through the '',a)' c -#include "impr03.h" + include "impr03.h" c c==== c 2. Au moins un indicateur est exprime sur les noeuds @@ -442,7 +442,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/deisau.F b/src/tool/Decision/deisau.F index 86e14b07..4c46cce1 100644 --- a/src/tool/Decision/deisau.F +++ b/src/tool/Decision/deisau.F @@ -52,19 +52,19 @@ c character*6 nompro parameter ( nompro = 'DEISAU' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "enti01.h" + include "envex1.h" + include "enti01.h" c -#include "gmenti.h" -#include "gmreel.h" + include "gmenti.h" + include "gmreel.h" c -#include "nombar.h" -#include "envca1.h" -#include "impr02.h" + include "nombar.h" + include "envca1.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -128,14 +128,14 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" + include "impr03.h" c codava = codret c @@ -351,7 +351,7 @@ c 6.1. ==> message si erreur c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/deisfa.F b/src/tool/Decision/deisfa.F index 766f7bda..23bc0492 100644 --- a/src/tool/Decision/deisfa.F +++ b/src/tool/Decision/deisfa.F @@ -71,17 +71,17 @@ c character*6 nompro parameter ( nompro = 'DEISFA' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "infini.h" -#include "impr02.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "infini.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -129,7 +129,7 @@ c==== c c 1.1. ==> Les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -154,7 +154,7 @@ cgn print *, aretri cgn print *, hetqua cgn print *, arequa c -#include "impr03.h" + include "impr03.h" c codret = 0 c @@ -453,7 +453,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/deisno.F b/src/tool/Decision/deisno.F index 39a9f22f..78505cab 100644 --- a/src/tool/Decision/deisno.F +++ b/src/tool/Decision/deisno.F @@ -56,15 +56,15 @@ c character*6 nompro parameter ( nompro = 'DEISNO' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nombno.h" -#include "nombar.h" -#include "impr02.h" + include "nombno.h" + include "nombar.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -98,7 +98,7 @@ c==== c c 1.1. ==> Les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -176,7 +176,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/deisv0.F b/src/tool/Decision/deisv0.F index eb043116..b431ea90 100644 --- a/src/tool/Decision/deisv0.F +++ b/src/tool/Decision/deisv0.F @@ -67,17 +67,17 @@ c character*6 nompro parameter ( nompro = 'DEISV0' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "impr02.h" -#include "nombte.h" -#include "nombhe.h" -#include "nombpy.h" -#include "nombpe.h" + include "impr02.h" + include "nombte.h" + include "nombhe.h" + include "nombpy.h" + include "nombpe.h" c c 0.3. ==> arguments c @@ -110,7 +110,7 @@ c 1. prealables c==== c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -204,7 +204,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/deisv1.F b/src/tool/Decision/deisv1.F index 986b5ec3..b0ed1f80 100644 --- a/src/tool/Decision/deisv1.F +++ b/src/tool/Decision/deisv1.F @@ -88,16 +88,16 @@ c character*6 nompro parameter ( nompro = 'DEISV1' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "infini.h" -#include "impr02.h" -#include "nombtr.h" -#include "nombqu.h" + include "infini.h" + include "impr02.h" + include "nombtr.h" + include "nombqu.h" c c 0.3. ==> arguments c @@ -146,7 +146,7 @@ c==== c 1. initialisation c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -169,7 +169,7 @@ c texte(2,10) = '(''. Infinite norm of components.'')' texte(2,11) = '(''. Relative value for the component.'')' c -#include "impr03.h" + include "impr03.h" c codret = 0 c @@ -448,7 +448,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/deisv2.F b/src/tool/Decision/deisv2.F index d5bfc0d2..bed7b998 100644 --- a/src/tool/Decision/deisv2.F +++ b/src/tool/Decision/deisv2.F @@ -115,22 +115,22 @@ c character*6 nompro parameter ( nompro = 'DEISV2' ) c -#include "nblang.h" + include "nblang.h" c integer lgdaux parameter( lgdaux = 500 ) c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "impr02.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombhe.h" -#include "nombpy.h" -#include "nombpe.h" + include "impr02.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombhe.h" + include "nombpy.h" + include "nombpe.h" c c 0.3. ==> arguments c @@ -183,7 +183,7 @@ c==== c c 1.1. ==> Les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -200,7 +200,7 @@ c > '(i6,''components are requested, but size of daux equals'',i6)' texte(2,6) = '(''. Examen du '',a,i10)' c -#include "impr03.h" + include "impr03.h" 20000 format(a,i10,a,20g16.8) 20001 format(2(a,i10)) c @@ -691,7 +691,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/deisv3.F b/src/tool/Decision/deisv3.F index 529e626b..1f1a0bd7 100644 --- a/src/tool/Decision/deisv3.F +++ b/src/tool/Decision/deisv3.F @@ -58,14 +58,14 @@ c character*6 nompro parameter ( nompro = 'DEISV3' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nombtr.h" -#include "nombqu.h" + include "nombtr.h" + include "nombqu.h" c c 0.3. ==> arguments c @@ -96,7 +96,7 @@ c==== c c 1.1. ==> Les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -188,7 +188,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/deisv4.F b/src/tool/Decision/deisv4.F index 3f524935..b05fdec7 100644 --- a/src/tool/Decision/deisv4.F +++ b/src/tool/Decision/deisv4.F @@ -67,13 +67,13 @@ c character*6 nompro parameter ( nompro = 'DEISV4' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "impr02.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -109,8 +109,8 @@ c==== c c 1.1. ==> Les messages c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -198,7 +198,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/deisv5.F b/src/tool/Decision/deisv5.F index 1fbec723..c273e0fc 100644 --- a/src/tool/Decision/deisv5.F +++ b/src/tool/Decision/deisv5.F @@ -83,18 +83,18 @@ c character*6 nompro parameter ( nompro = 'DEISV5' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "infini.h" -#include "impr02.h" -#include "nombte.h" -#include "nombhe.h" -#include "nombpy.h" -#include "nombpe.h" + include "infini.h" + include "impr02.h" + include "nombte.h" + include "nombhe.h" + include "nombpy.h" + include "nombpe.h" c c 0.3. ==> arguments c @@ -136,8 +136,8 @@ c==== c 1. initialisation c==== c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -281,7 +281,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/deisv6.F b/src/tool/Decision/deisv6.F index 7c75b69a..e9cd9d25 100644 --- a/src/tool/Decision/deisv6.F +++ b/src/tool/Decision/deisv6.F @@ -107,18 +107,18 @@ c character*6 nompro parameter ( nompro = 'DEISV6' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "impr02.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombhe.h" -#include "hexcf0.h" + include "impr02.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombhe.h" + include "hexcf0.h" c c 0.3. ==> arguments c @@ -158,8 +158,8 @@ c==== c c 1.1. ==> Les messages c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -338,7 +338,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/deisv7.F b/src/tool/Decision/deisv7.F index 0b3998a8..72cdf8d9 100644 --- a/src/tool/Decision/deisv7.F +++ b/src/tool/Decision/deisv7.F @@ -50,11 +50,11 @@ c character*6 nompro parameter ( nompro = 'DEISV7' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -78,7 +78,7 @@ c==== c c 1.1. ==> Les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -115,7 +115,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/deisv8.F b/src/tool/Decision/deisv8.F index 33d72733..1b3fb3bb 100644 --- a/src/tool/Decision/deisv8.F +++ b/src/tool/Decision/deisv8.F @@ -80,15 +80,15 @@ c character*6 nompro parameter ( nompro = 'DEISV8' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "impr02.h" -#include "nombqu.h" -#include "nombhe.h" + include "impr02.h" + include "nombqu.h" + include "nombhe.h" c c 0.3. ==> arguments c @@ -129,8 +129,8 @@ c==== c c 1.1. ==> Les messages c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -295,7 +295,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/deited.F b/src/tool/Decision/deited.F index d95ba528..a2511ced 100644 --- a/src/tool/Decision/deited.F +++ b/src/tool/Decision/deited.F @@ -63,16 +63,16 @@ c character*6 nompro parameter ( nompro = 'DEITED' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "impr02.h" + include "envex1.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -102,15 +102,15 @@ c==== c c 1.1. ==> Les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr05.h" -#include "derco1.h" + include "impr05.h" + include "derco1.h" c codret = 0 c @@ -191,7 +191,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/deitei.F b/src/tool/Decision/deitei.F index 4049957e..71b9abee 100644 --- a/src/tool/Decision/deitei.F +++ b/src/tool/Decision/deitei.F @@ -58,16 +58,16 @@ c character*6 nompro parameter ( nompro = 'DEITEI' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "impr02.h" + include "envex1.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -95,15 +95,15 @@ c==== c c 1.1. ==> Les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr05.h" -#include "derco1.h" + include "impr05.h" + include "derco1.h" c codret = 0 c @@ -159,7 +159,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/deiter.F b/src/tool/Decision/deiter.F index fb3cf760..b74238e2 100644 --- a/src/tool/Decision/deiter.F +++ b/src/tool/Decision/deiter.F @@ -64,16 +64,16 @@ c character*6 nompro parameter ( nompro = 'DEITER' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "impr02.h" + include "envex1.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -103,15 +103,15 @@ c==== c c 1.1. ==> Les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr05.h" -#include "derco1.h" + include "impr05.h" + include "derco1.h" c codret = 0 c @@ -175,7 +175,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/deitrd.F b/src/tool/Decision/deitrd.F index ea0aaa35..e7b46238 100644 --- a/src/tool/Decision/deitrd.F +++ b/src/tool/Decision/deitrd.F @@ -61,15 +61,15 @@ c character*6 nompro parameter ( nompro = 'DEITRD' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "impr02.h" + include "envex1.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -99,15 +99,15 @@ c==== c c 1.1. ==> Les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr05.h" -#include "derco1.h" + include "impr05.h" + include "derco1.h" c codret = 0 c @@ -184,7 +184,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/deitri.F b/src/tool/Decision/deitri.F index d0233f0a..26d2c270 100644 --- a/src/tool/Decision/deitri.F +++ b/src/tool/Decision/deitri.F @@ -56,15 +56,15 @@ c character*6 nompro parameter ( nompro = 'DEITRI' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "impr02.h" + include "envex1.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -91,15 +91,15 @@ c==== c c 1.1. ==> Les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr05.h" -#include "derco1.h" + include "impr05.h" + include "derco1.h" c codret = 0 c @@ -147,7 +147,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/deitrr.F b/src/tool/Decision/deitrr.F index 96f6abeb..24ea2772 100644 --- a/src/tool/Decision/deitrr.F +++ b/src/tool/Decision/deitrr.F @@ -62,15 +62,15 @@ c character*6 nompro parameter ( nompro = 'DEITRR' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "impr02.h" + include "envex1.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -100,15 +100,15 @@ c==== c c 1.1. ==> Les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr05.h" -#include "derco1.h" + include "impr05.h" + include "derco1.h" c codret = 0 c @@ -178,7 +178,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/deiuc0.F b/src/tool/Decision/deiuc0.F index 13e5d641..d91e4709 100644 --- a/src/tool/Decision/deiuc0.F +++ b/src/tool/Decision/deiuc0.F @@ -56,13 +56,13 @@ c character*6 nompro parameter ( nompro = 'DEIUC0' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "impr02.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -92,7 +92,7 @@ c==== c c 1.1. ==> Les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -163,7 +163,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/deiucm.F b/src/tool/Decision/deiucm.F index ae89f431..a7a38fb8 100644 --- a/src/tool/Decision/deiucm.F +++ b/src/tool/Decision/deiucm.F @@ -51,16 +51,16 @@ c character*6 nompro parameter ( nompro = 'DEIUCM' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" -#include "gmreel.h" + include "gmenti.h" + include "gmreel.h" c -#include "impr02.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -116,7 +116,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -316,7 +316,7 @@ c 5.1. ==> message si erreur c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/delis1.F b/src/tool/Decision/delis1.F index 452f2fbc..241a8421 100644 --- a/src/tool/Decision/delis1.F +++ b/src/tool/Decision/delis1.F @@ -67,15 +67,15 @@ c character*6 nompro parameter ( nompro = 'DELIS1' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" c c 0.3. ==> arguments c @@ -133,14 +133,14 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write(ulsort,90002) 'option', option @@ -381,7 +381,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/delist.F b/src/tool/Decision/delist.F index ea0b0237..85073e6a 100644 --- a/src/tool/Decision/delist.F +++ b/src/tool/Decision/delist.F @@ -54,18 +54,18 @@ c character*6 nompro parameter ( nompro = 'DELIST' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" + include "gmenti.h" c -#include "envca1.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombhe.h" + include "envca1.h" + include "nombtr.h" + include "nombqu.h" + include "nombhe.h" c c 0.3. ==> arguments c @@ -112,7 +112,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -127,7 +127,7 @@ c texte(2,5) = '(/,''After calling '',a6,'':'',/)' texte(2,10) = '(/,''Bad code for '',a6,'': '',i8,/)' c -#include "impr03.h" + include "impr03.h" c c==== c 2. recuperation des pointeurs, initialisations @@ -290,7 +290,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/deraff.F b/src/tool/Decision/deraff.F index 83999e82..be935c7e 100644 --- a/src/tool/Decision/deraff.F +++ b/src/tool/Decision/deraff.F @@ -55,17 +55,17 @@ c character*6 nompro parameter ( nompro = 'DERAFF' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" + include "gmenti.h" c -#include "envca1.h" -#include "nombtr.h" -#include "nombqu.h" + include "envca1.h" + include "nombtr.h" + include "nombqu.h" c c 0.3. ==> arguments c @@ -124,14 +124,14 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" + include "impr03.h" c codava = codret c @@ -357,7 +357,7 @@ c 7.1. ==> message si erreur c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/derco1.F b/src/tool/Decision/derco1.F index 025548dc..0b71973e 100644 --- a/src/tool/Decision/derco1.F +++ b/src/tool/Decision/derco1.F @@ -85,14 +85,14 @@ c character*6 nompro parameter ( nompro = 'DERCO1' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" + include "envex1.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" c c 0.3. ==> arguments c @@ -129,16 +129,16 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" + include "impr03.h" c -#include "derco1.h" + include "derco1.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,12)) niveau @@ -458,7 +458,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/derco2.F b/src/tool/Decision/derco2.F index 9bf3d233..088e422b 100644 --- a/src/tool/Decision/derco2.F +++ b/src/tool/Decision/derco2.F @@ -109,18 +109,18 @@ c character*6 nompro parameter ( nompro = 'DERCO2' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombpy.h" -#include "nombhe.h" -#include "nombpe.h" + include "envex1.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombpy.h" + include "nombhe.h" + include "nombpe.h" c c 0.3. ==> arguments c @@ -168,16 +168,16 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" + include "impr03.h" c -#include "derco1.h" + include "derco1.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,12)) niveau @@ -728,7 +728,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/derco3.F b/src/tool/Decision/derco3.F index 7775ad8b..38488a62 100644 --- a/src/tool/Decision/derco3.F +++ b/src/tool/Decision/derco3.F @@ -76,15 +76,15 @@ c character*6 nompro parameter ( nompro = 'DERCO3' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" + include "envex1.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" c c 0.3. ==> arguments c @@ -122,7 +122,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -130,10 +130,10 @@ c #endif c #ifdef _DEBUG_HOMARD_ -#include "impr03.h" + include "impr03.h" #endif c -#include "derco1.h" + include "derco1.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,12)) niveau @@ -347,7 +347,7 @@ c c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/derco4.F b/src/tool/Decision/derco4.F index 88296d72..40d83dda 100644 --- a/src/tool/Decision/derco4.F +++ b/src/tool/Decision/derco4.F @@ -85,14 +85,14 @@ c character*6 nompro parameter ( nompro = 'DERCO4' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" + include "envex1.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" c c 0.3. ==> arguments c @@ -131,16 +131,16 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" + include "impr03.h" c -#include "derco1.h" + include "derco1.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,12)) niveau @@ -458,7 +458,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/derco5.F b/src/tool/Decision/derco5.F index 852e0f30..ed0ae73b 100644 --- a/src/tool/Decision/derco5.F +++ b/src/tool/Decision/derco5.F @@ -113,18 +113,18 @@ c character*6 nompro parameter ( nompro = 'DERCO5' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombpy.h" -#include "nombhe.h" -#include "nombpe.h" + include "envex1.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombpy.h" + include "nombhe.h" + include "nombpe.h" c c 0.3. ==> arguments c @@ -172,20 +172,20 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,90002) 'tyconf', tyconf #endif c -#include "derco1.h" + include "derco1.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,12)) niveau @@ -712,7 +712,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/derco6.F b/src/tool/Decision/derco6.F index 6ab75f63..ad0f8e4f 100644 --- a/src/tool/Decision/derco6.F +++ b/src/tool/Decision/derco6.F @@ -80,15 +80,15 @@ c character*6 nompro parameter ( nompro = 'DERCO6' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" + include "envex1.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" c c 0.3. ==> arguments c @@ -128,14 +128,14 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "derco1.h" + include "derco1.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,12)) niveau @@ -458,7 +458,7 @@ c c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/derco7.F b/src/tool/Decision/derco7.F index 5aa251b3..55e1e751 100644 --- a/src/tool/Decision/derco7.F +++ b/src/tool/Decision/derco7.F @@ -74,16 +74,16 @@ c character*6 nompro parameter ( nompro = 'DERCO7' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombhe.h" + include "envex1.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombhe.h" c c 0.3. ==> arguments c @@ -120,7 +120,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -128,10 +128,10 @@ c #endif c #ifdef _DEBUG_HOMARD_ -#include "impr03.h" + include "impr03.h" #endif c -#include "derco1.h" + include "derco1.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,12)) niveau @@ -281,7 +281,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/derco8.F b/src/tool/Decision/derco8.F index 571bbcbc..3dc59af9 100644 --- a/src/tool/Decision/derco8.F +++ b/src/tool/Decision/derco8.F @@ -90,16 +90,16 @@ c character*6 nompro parameter ( nompro = 'DERCO8' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombhe.h" + include "envex1.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombhe.h" c c 0.3. ==> arguments c @@ -141,7 +141,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -149,10 +149,10 @@ c #endif c #ifdef _DEBUG_HOMARD_ -#include "impr03.h" + include "impr03.h" #endif c -#include "derco1.h" + include "derco1.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,12)) niveau @@ -359,7 +359,7 @@ c c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/derco9.F b/src/tool/Decision/derco9.F index 11724a55..867196ac 100644 --- a/src/tool/Decision/derco9.F +++ b/src/tool/Decision/derco9.F @@ -67,17 +67,17 @@ c character*6 nompro parameter ( nompro = 'DERCO9' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombpy.h" -#include "nombhe.h" -#include "nombpe.h" + include "envex1.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombpy.h" + include "nombhe.h" + include "nombpe.h" c c 0.3. ==> arguments c @@ -110,7 +110,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -118,9 +118,9 @@ c #endif c -#include "impr03.h" + include "impr03.h" c -#include "derco1.h" + include "derco1.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,12)) niveau @@ -279,7 +279,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/dercon.F b/src/tool/Decision/dercon.F index 4cf545b6..37d18eca 100644 --- a/src/tool/Decision/dercon.F +++ b/src/tool/Decision/dercon.F @@ -139,20 +139,20 @@ c character*6 nompro parameter ( nompro = 'DERCON' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envada.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombpy.h" -#include "nombpe.h" -#include "nombhe.h" + include "envada.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombpy.h" + include "nombpe.h" + include "nombhe.h" c c 0.3. ==> arguments c @@ -198,15 +198,15 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "derco1.h" -#include "impr03.h" + include "derco1.h" + include "impr03.h" c codret = 0 #ifdef _DEBUG_HOMARD_ @@ -667,7 +667,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Decision/desmaj.F b/src/tool/Decision/desmaj.F index 2915f337..3b711b97 100644 --- a/src/tool/Decision/desmaj.F +++ b/src/tool/Decision/desmaj.F @@ -63,22 +63,22 @@ c character*6 nompro parameter ( nompro = 'DESMAJ' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombhe.h" -#include "nombpy.h" -#include "nombpe.h" -#include "impr02.h" + include "envca1.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombhe.h" + include "nombpy.h" + include "nombpe.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -107,7 +107,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -120,7 +120,7 @@ c texte(2,4) = '(5x,''Number of '',a,'' : '',i10)' texte(2,5) = '(5x,''Number of active '',a,'' : '',i10)' c -#include "impr03.h" + include "impr03.h" c c==== c 2. mise a jour des nombres d'entites du maillage @@ -461,7 +461,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret endif diff --git a/src/tool/Dependance_Machine/dmvaen.F b/src/tool/Dependance_Machine/dmvaen.F index 62d3047d..2d0c96e2 100644 --- a/src/tool/Dependance_Machine/dmvaen.F +++ b/src/tool/Dependance_Machine/dmvaen.F @@ -53,7 +53,7 @@ c character*6 nompro parameter ( nompro = 'DMVAEN' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c @@ -81,7 +81,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro diff --git a/src/tool/ES_HOMARD/esece0.F b/src/tool/ES_HOMARD/esece0.F index 1f5a6ad9..7915cf22 100644 --- a/src/tool/ES_HOMARD/esece0.F +++ b/src/tool/ES_HOMARD/esece0.F @@ -79,14 +79,14 @@ c character*6 nompro parameter ( nompro = 'ESECE0' ) c -#include "nblang.h" -#include "consts.h" + include "nblang.h" + include "consts.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "impr02.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -106,7 +106,7 @@ c c c 0.4. ==> variables locales c -#include "meddc0.h" + include "meddc0.h" c integer iaux integer listma(1) @@ -122,7 +122,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -133,7 +133,7 @@ c c texte(2,4) = '(''... Writings of '',i10,1x,a)' c -#include "esimpr.h" + include "esimpr.h" c texte(1,81) = '(''Longueur allouee pour tbiaux : '',i10)' texte(1,82) = '(''Longueur necessaire pour tbiaux : '',i10)' @@ -141,7 +141,7 @@ c texte(2,81) = '(''Allocated length for tbiaux : '',i10)' texte(2,82) = '(''Used length for tbiaux : '',i10)' c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,4)) nbenti, mess14(langue,3,typenh) @@ -230,7 +230,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/ES_HOMARD/esece1.F b/src/tool/ES_HOMARD/esece1.F index 69a602d5..d2ad2f7f 100644 --- a/src/tool/ES_HOMARD/esece1.F +++ b/src/tool/ES_HOMARD/esece1.F @@ -87,17 +87,17 @@ c character*6 nompro parameter ( nompro = 'ESECE1' ) c -#include "nblang.h" -#include "consts.h" + include "nblang.h" + include "consts.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" + include "gmenti.h" c -#include "impr02.h" -#include "enti01.h" + include "impr02.h" + include "enti01.h" c c 0.3. ==> arguments c @@ -122,7 +122,7 @@ c c c 0.4. ==> variables locales c -#include "meddc0.h" + include "meddc0.h" c integer nbcmax parameter ( nbcmax = 20 ) @@ -153,7 +153,7 @@ c==== c 1. initialisation c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -166,13 +166,13 @@ c texte(2,4) = > '(''... Writings of additional terms for the '',i10,1x,a)' c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,4)) nbenti, mess14(langue,3,typenh) #endif c -#include "esimpr.h" + include "esimpr.h" c texte(1,4) = '(/,''Creation du champ : '',a64)' texte(1,5) = '(''Type du champ : '',i2)' @@ -480,7 +480,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/ES_HOMARD/esece2.F b/src/tool/ES_HOMARD/esece2.F index 8e5a61ff..3eadb192 100644 --- a/src/tool/ES_HOMARD/esece2.F +++ b/src/tool/ES_HOMARD/esece2.F @@ -64,19 +64,19 @@ c character*6 nompro parameter ( nompro = 'ESECE2' ) c -#include "nblang.h" -#include "consts.h" + include "nblang.h" + include "consts.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "fahmed.h" -#include "oriett.h" -#include "orieqh.h" -#include "oriefp.h" -#include "oriefy.h" + include "envex1.h" + include "fahmed.h" + include "oriett.h" + include "orieqh.h" + include "oriefp.h" + include "oriefy.h" c -#include "impr02.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -90,7 +90,7 @@ c c c 0.4. ==> variables locales c -#include "meddc0.h" + include "meddc0.h" c integer iaux, jaux, kaux, laux integer orient(8) @@ -105,7 +105,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -116,7 +116,7 @@ c c texte(2,4) = '(''... Conversion of '',i10,1x,a)' c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,4)) nbencf, mess14(langue,3,typenh) @@ -284,7 +284,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/ES_HOMARD/esecen.F b/src/tool/ES_HOMARD/esecen.F index 302093c5..6cb99afc 100644 --- a/src/tool/ES_HOMARD/esecen.F +++ b/src/tool/ES_HOMARD/esecen.F @@ -56,26 +56,26 @@ c character*6 nompro parameter ( nompro = 'ESECEN' ) c -#include "nblang.h" -#include "consts.h" + include "nblang.h" + include "consts.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "gmenti.h" + include "envex1.h" + include "gmenti.h" c -#include "envca1.h" -#include "nbfami.h" -#include "nombmp.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombpy.h" -#include "nombhe.h" -#include "nombpe.h" + include "envca1.h" + include "nbfami.h" + include "nombmp.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombpy.h" + include "nombhe.h" + include "nombpe.h" c -#include "impr02.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -93,7 +93,7 @@ c c c 0.4. ==> variables locales c -#include "meddc0.h" + include "meddc0.h" c integer iaux, jaux integer typenh, typgeo, typent @@ -119,7 +119,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -132,9 +132,9 @@ c texte(2,4) = '(''. Writings of meshes.'')' texte(2,5) = '(/,''... '',a)' c -#include "impr03.h" + include "impr03.h" c -#include "esimpr.h" + include "esimpr.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,4)) @@ -355,7 +355,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/ES_HOMARD/esecf0.F b/src/tool/ES_HOMARD/esecf0.F index 3a643115..62989de4 100644 --- a/src/tool/ES_HOMARD/esecf0.F +++ b/src/tool/ES_HOMARD/esecf0.F @@ -63,17 +63,17 @@ c character*6 nompro parameter ( nompro = 'ESECF0' ) c -#include "nblang.h" -#include "consts.h" + include "nblang.h" + include "consts.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" + include "gmenti.h" c -#include "enti01.h" -#include "impr02.h" + include "enti01.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -88,7 +88,7 @@ c c c 0.4. ==> variables locales c -#include "meddc0.h" + include "meddc0.h" c integer nbgrox parameter (nbgrox = 10 ) @@ -113,7 +113,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -128,9 +128,9 @@ c texte(2,5) = '(''... Writings of the'',i4,''-th family'')' texte(2,6) = '(''Error in size of array nomgro.'')' c -#include "impr03.h" + include "impr03.h" c -#include "esimpr.h" + include "esimpr.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,4)) nbfent, mess14(langue,3,typenh) @@ -321,7 +321,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/ES_HOMARD/esecfd.F b/src/tool/ES_HOMARD/esecfd.F index 2cd8450a..24f30c82 100644 --- a/src/tool/ES_HOMARD/esecfd.F +++ b/src/tool/ES_HOMARD/esecfd.F @@ -53,16 +53,16 @@ c character*6 nompro parameter ( nompro = 'ESECFD' ) c -#include "nblang.h" -#include "consts.h" + include "nblang.h" + include "consts.h" c c 0.2. ==> communs c -#include "motcle.h" -#include "gmenti.h" -#include "gmreel.h" -#include "gmstri.h" -#include "envex1.h" + include "motcle.h" + include "gmenti.h" + include "gmreel.h" + include "gmstri.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -77,7 +77,7 @@ c c c 0.4. ==> variables locales c -#include "meddc0.h" + include "meddc0.h" c integer iaux, jaux integer lnomaf @@ -107,7 +107,7 @@ c==== c 1. initialisation c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -120,9 +120,9 @@ c texte(2,4) = '(''. Writings of discrete boundaries.'')' texte(2,5) = '(5x,''Writing of the discrete boundary '',a)' c -#include "impr03.h" + include "impr03.h" c -#include "esimpr.h" + include "esimpr.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,4)) @@ -444,7 +444,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/ES_HOMARD/esecfe.F b/src/tool/ES_HOMARD/esecfe.F index 801df0c1..c30ee653 100644 --- a/src/tool/ES_HOMARD/esecfe.F +++ b/src/tool/ES_HOMARD/esecfe.F @@ -53,14 +53,14 @@ c character*6 nompro parameter ( nompro = 'ESECFE' ) c -#include "nblang.h" -#include "consts.h" + include "nblang.h" + include "consts.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "nbfami.h" -#include "impr02.h" + include "envex1.h" + include "nbfami.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -76,7 +76,7 @@ c c c 0.4. ==> variables locales c -#include "meddc0.h" + include "meddc0.h" c integer iaux, jaux integer typenh @@ -92,7 +92,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -105,7 +105,7 @@ c c 1000 format('... ',a,' : ',i8) c -#include "esimpr.h" + include "esimpr.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,4)) @@ -179,7 +179,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/ES_HOMARD/esecfs.F b/src/tool/ES_HOMARD/esecfs.F index 902e5338..e9e48e95 100644 --- a/src/tool/ES_HOMARD/esecfs.F +++ b/src/tool/ES_HOMARD/esecfs.F @@ -54,14 +54,14 @@ c character*6 nompro parameter ( nompro = 'ESECFS' ) c -#include "nblang.h" -#include "consts.h" + include "nblang.h" + include "consts.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmstri.h" + include "gmstri.h" c c 0.3. ==> arguments c @@ -77,7 +77,7 @@ c c c 0.4. ==> variables locales c -#include "meddc0.h" + include "meddc0.h" c integer iaux, jaux, kaux integer codre1, codre2 @@ -98,14 +98,14 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "esimpr.h" + include "esimpr.h" c texte(1,4) = '(''. Ecriture des familles supplementaires'')' texte(1,5) = '(''... InfoSupS.Tab'',i2)' @@ -117,7 +117,7 @@ c texte(2,81) = '(''Allocated length for tbsaux : '',i10)' texte(2,82) = '(''Used length for tbsaux : '',i10)' c -#include "impr03.h" + include "impr03.h" c 1002 format(10(a8,'+')) c @@ -277,7 +277,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/ES_HOMARD/esecig.F b/src/tool/ES_HOMARD/esecig.F index 4d7bad2c..e68d8852 100644 --- a/src/tool/ES_HOMARD/esecig.F +++ b/src/tool/ES_HOMARD/esecig.F @@ -50,14 +50,14 @@ c character*6 nompro parameter ( nompro = 'ESECIG' ) c -#include "nblang.h" -#include "consts.h" + include "nblang.h" + include "consts.h" c c 0.2. ==> communs c -#include "gmenti.h" -#include "envca1.h" -#include "envex1.h" + include "gmenti.h" + include "envca1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -70,7 +70,7 @@ c c c 0.4. ==> variables locales c -#include "meddc0.h" + include "meddc0.h" c integer iaux, jaux integer nbelig @@ -91,7 +91,7 @@ c==== c 1. initialisation c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -102,9 +102,9 @@ c c texte(2,4) = '(''. Writings of additional information.'')' c -#include "impr03.h" + include "impr03.h" c -#include "esimpr.h" + include "esimpr.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,4)) @@ -175,7 +175,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/ES_HOMARD/esecn1.F b/src/tool/ES_HOMARD/esecn1.F index ad67286b..39ae9c86 100644 --- a/src/tool/ES_HOMARD/esecn1.F +++ b/src/tool/ES_HOMARD/esecn1.F @@ -56,16 +56,16 @@ c character*6 nompro parameter ( nompro = 'ESECN1' ) c -#include "nblang.h" -#include "consts.h" + include "nblang.h" + include "consts.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "gmenti.h" + include "envex1.h" + include "gmenti.h" c -#include "enti01.h" -#include "nombno.h" + include "enti01.h" + include "nombno.h" c c 0.3. ==> arguments c @@ -83,7 +83,7 @@ c c c 0.4. ==> variables locales c -#include "meddc0.h" + include "meddc0.h" c integer nbcmax parameter ( nbcmax = 20 ) @@ -112,7 +112,7 @@ c 1. initialisation c==== c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -127,7 +127,7 @@ c write (ulsort,texte(langue,4)) #endif c -#include "esimpr.h" + include "esimpr.h" c texte(1,4) = '(/,''Creation du champ : '',a64)' texte(1,5) = '(''Type du champ : '',i2)' @@ -289,7 +289,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/ES_HOMARD/esecno.F b/src/tool/ES_HOMARD/esecno.F index d1231ab2..d62d5e30 100644 --- a/src/tool/ES_HOMARD/esecno.F +++ b/src/tool/ES_HOMARD/esecno.F @@ -55,17 +55,17 @@ c character*6 nompro parameter ( nompro = 'ESECNO' ) c -#include "nblang.h" -#include "consts.h" + include "nblang.h" + include "consts.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "gmenti.h" -#include "gmreel.h" + include "envex1.h" + include "gmenti.h" + include "gmreel.h" c -#include "envca1.h" -#include "nombno.h" + include "envca1.h" + include "nombno.h" c c 0.3. ==> arguments c @@ -82,7 +82,7 @@ c c c 0.4. ==> variables locales c -#include "meddc0.h" + include "meddc0.h" c integer iaux integer adcoor, adhist, adarno @@ -100,7 +100,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -111,9 +111,9 @@ c c texte(2,4) = '(''. Writings of nodes.'')' c -#include "impr03.h" + include "impr03.h" c -#include "esimpr.h" + include "esimpr.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,4)) @@ -180,7 +180,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/ES_HOMARD/esecs1.F b/src/tool/ES_HOMARD/esecs1.F index 7d817b4e..35d70e65 100644 --- a/src/tool/ES_HOMARD/esecs1.F +++ b/src/tool/ES_HOMARD/esecs1.F @@ -48,13 +48,13 @@ c character*6 nompro parameter ( nompro = 'ESECS1' ) c -#include "nblang.h" -#include "consts.h" + include "nblang.h" + include "consts.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "gmenti.h" + include "envex1.h" + include "gmenti.h" c c 0.3. ==> arguments c @@ -81,7 +81,7 @@ c==== c 1. initialisation c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -94,9 +94,9 @@ c texte(2,4) = '(''... Writings of numbering'')' texte(2,7) = '(''First values : '',10i6)' c -#include "impr03.h" + include "impr03.h" c -#include "esimpr.h" + include "esimpr.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,4)) @@ -171,7 +171,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/ES_HOMARD/esecs2.F b/src/tool/ES_HOMARD/esecs2.F index 118950d8..e862f23e 100644 --- a/src/tool/ES_HOMARD/esecs2.F +++ b/src/tool/ES_HOMARD/esecs2.F @@ -48,15 +48,15 @@ c character*6 nompro parameter ( nompro = 'ESECS2' ) c -#include "nblang.h" -#include "consts.h" + include "nblang.h" + include "consts.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "gmenti.h" + include "envex1.h" + include "gmenti.h" c -#include "enti01.h" + include "enti01.h" c c 0.3. ==> arguments c @@ -92,7 +92,7 @@ c==== c 1. initialisation c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -105,9 +105,9 @@ c texte(2,4) = '(''... Writings of numbering'')' texte(2,7) = '(''First values : '',10i6)' c -#include "impr03.h" + include "impr03.h" c -#include "esimpr.h" + include "esimpr.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,4)) @@ -276,7 +276,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/ES_HOMARD/esecs3.F b/src/tool/ES_HOMARD/esecs3.F index 6e8ec4a7..eea7de82 100644 --- a/src/tool/ES_HOMARD/esecs3.F +++ b/src/tool/ES_HOMARD/esecs3.F @@ -49,25 +49,25 @@ c character*6 nompro parameter ( nompro = 'ESECS3' ) c -#include "nblang.h" -#include "consts.h" + include "nblang.h" + include "consts.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "gmenti.h" -c -#include "impr02.h" -#include "enti01.h" -#include "nombno.h" -#include "nombmp.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombpy.h" -#include "nombhe.h" -#include "nombpe.h" + include "envex1.h" + include "gmenti.h" +c + include "impr02.h" + include "enti01.h" + include "nombno.h" + include "nombmp.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombpy.h" + include "nombhe.h" + include "nombpe.h" c c 0.3. ==> arguments c @@ -110,7 +110,7 @@ c==== c 1. initialisation c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -125,9 +125,9 @@ c texte(2,5) = '(/,''..... for '',a)' texte(2,7) = '(''First values : '',10i6)' c -#include "impr03.h" + include "impr03.h" c -#include "esimpr.h" + include "esimpr.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,4)) @@ -326,7 +326,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/ES_HOMARD/esecs4.F b/src/tool/ES_HOMARD/esecs4.F index bf76c9f2..fc553bd0 100644 --- a/src/tool/ES_HOMARD/esecs4.F +++ b/src/tool/ES_HOMARD/esecs4.F @@ -52,12 +52,12 @@ c character*6 nompro parameter ( nompro = 'ESECS4' ) c -#include "nblang.h" -#include "consts.h" + include "nblang.h" + include "consts.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -71,7 +71,7 @@ c c c 0.4. ==> variables locales c -#include "meddc0.h" + include "meddc0.h" c integer iaux, jaux c @@ -90,7 +90,7 @@ c 1. initialisation c==== c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -103,7 +103,7 @@ c texte(2,4) = '(''... Writings of constant dimension '',g15.8)' texte(2,5) = '(/,''..... for '',a)' c -#include "esimpr.h" + include "esimpr.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,4)) coocst @@ -153,7 +153,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/ES_HOMARD/esecs5.F b/src/tool/ES_HOMARD/esecs5.F index 42563654..76cdd2b2 100644 --- a/src/tool/ES_HOMARD/esecs5.F +++ b/src/tool/ES_HOMARD/esecs5.F @@ -47,20 +47,20 @@ c character*6 nompro parameter ( nompro = 'ESECS5' ) c -#include "nblang.h" -#include "consts.h" + include "nblang.h" + include "consts.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "gmenti.h" + include "envex1.h" + include "gmenti.h" c -#include "impr02.h" -#include "enti01.h" -#include "nombte.h" -#include "nombpy.h" -#include "nombhe.h" -#include "nombpe.h" + include "impr02.h" + include "enti01.h" + include "nombte.h" + include "nombpy.h" + include "nombhe.h" + include "nombpe.h" c c 0.3. ==> arguments c @@ -92,7 +92,7 @@ c==== c 1. initialisation c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -107,9 +107,9 @@ c texte(2,5) = '(/,''..... for '',a)' texte(2,7) = '(''First values : '',10i6)' c -#include "impr03.h" + include "impr03.h" c -#include "esimpr.h" + include "esimpr.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,4)) @@ -248,7 +248,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/ES_HOMARD/esecsu.F b/src/tool/ES_HOMARD/esecsu.F index e405cfac..c187efd0 100644 --- a/src/tool/ES_HOMARD/esecsu.F +++ b/src/tool/ES_HOMARD/esecsu.F @@ -62,12 +62,12 @@ c character*6 nompro parameter ( nompro = 'ESECSU' ) c -#include "nblang.h" -#include "consts.h" + include "nblang.h" + include "consts.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -104,7 +104,7 @@ c==== c 1. initialisation c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -117,9 +117,9 @@ c texte(2,4) = '(''. Writings of additional information.'')' texte(2,7) = '(''First values : '',10i6)' c -#include "impr03.h" + include "impr03.h" c -#include "esimpr.h" + include "esimpr.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,4)) @@ -257,7 +257,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/ES_HOMARD/esemh0.F b/src/tool/ES_HOMARD/esemh0.F index 638a7cdc..2aebd686 100644 --- a/src/tool/ES_HOMARD/esemh0.F +++ b/src/tool/ES_HOMARD/esemh0.F @@ -47,26 +47,26 @@ c character*6 nompro parameter ( nompro = 'ESEMH0' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" + include "gmenti.h" c -#include "dicfen.h" -#include "nbfami.h" -#include "nombno.h" -#include "nombmp.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombhe.h" -#include "nombpe.h" -#include "nombpy.h" -#include "envada.h" + include "dicfen.h" + include "nbfami.h" + include "nombno.h" + include "nombmp.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombhe.h" + include "nombpe.h" + include "nombpy.h" + include "envada.h" c c 0.3. ==> arguments c @@ -91,7 +91,7 @@ c==== c 1. les initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -102,7 +102,7 @@ c c texte(2,4) = '(''Recording of the commons'')' c -#include "impr03.h" + include "impr03.h" c c==== c 2. controle des allocations deja presentes @@ -372,7 +372,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/ES_HOMARD/esemh1.F b/src/tool/ES_HOMARD/esemh1.F index 1090ee0a..108e6d0c 100644 --- a/src/tool/ES_HOMARD/esemh1.F +++ b/src/tool/ES_HOMARD/esemh1.F @@ -63,28 +63,28 @@ c character*6 nompro parameter ( nompro = 'ESEMH1' ) c -#include "nblang.h" -#include "consts.h" + include "nblang.h" + include "consts.h" c c 0.2. ==> communs c -#include "gmenti.h" -#include "gmreel.h" -#include "gmstri.h" -c -#include "dicfen.h" -#include "envex1.h" -#include "envca1.h" -#include "nbutil.h" -#include "nombmp.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombno.h" -#include "nombte.h" -#include "nombpy.h" -#include "nombhe.h" -#include "nombpe.h" + include "gmenti.h" + include "gmreel.h" + include "gmstri.h" +c + include "dicfen.h" + include "envex1.h" + include "envca1.h" + include "nbutil.h" + include "nombmp.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombno.h" + include "nombte.h" + include "nombpy.h" + include "nombhe.h" + include "nombpe.h" c c 0.3. ==> arguments c @@ -103,7 +103,7 @@ c c c 0.4. ==> variables locales c -#include "meddc0.h" + include "meddc0.h" c integer iaux, jaux, kaux integer codre0 @@ -135,7 +135,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -148,7 +148,7 @@ c texte(2,4) = '(''Full writings.'')' texte(2,5) = '(''Writings without any boundary.'')' c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ if ( optecr.gt.0 ) then @@ -159,7 +159,7 @@ c write (ulsort,texte(langue,iaux)) #endif c -#include "esimpr.h" + include "esimpr.h" c c 1.2. ==> tableaux de travail c @@ -542,7 +542,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/ES_HOMARD/esemh2.F b/src/tool/ES_HOMARD/esemh2.F index 9e167e91..c87315a4 100644 --- a/src/tool/ES_HOMARD/esemh2.F +++ b/src/tool/ES_HOMARD/esemh2.F @@ -56,13 +56,13 @@ c character*6 nompro parameter ( nompro = 'ESEMH2' ) c -#include "nblang.h" -#include "consts.h" + include "nblang.h" + include "consts.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "envca2.h" + include "envex1.h" + include "envca2.h" c c 0.3. ==> arguments c @@ -81,7 +81,7 @@ c c c 0.4. ==> variables locales c -#include "meddc0.h" + include "meddc0.h" c integer iaux integer ngro, numfam @@ -99,7 +99,7 @@ c 1. initialisations c==== c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -114,7 +114,7 @@ c write (ulsort,texte(langue,4)) #endif c -#include "esimpr.h" + include "esimpr.h" c c==== c 2. La famille nulle @@ -230,7 +230,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/ES_HOMARD/esemho.F b/src/tool/ES_HOMARD/esemho.F index 9e8e6058..5169de4c 100644 --- a/src/tool/ES_HOMARD/esemho.F +++ b/src/tool/ES_HOMARD/esemho.F @@ -71,13 +71,13 @@ c character*6 nompro parameter ( nompro = 'ESEMHO' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" + include "envca1.h" c c 0.3. ==> arguments c @@ -132,7 +132,7 @@ c c c 1.2. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -150,7 +150,7 @@ c texte(2,6) = '(/,5x,''Writing of mesh '',a,'' on file'')' texte(2,7) = '(/,1x,''Keyword : '',a8)' c -#include "impr03.h" + include "impr03.h" c c 1.3. ==> le titre c @@ -275,7 +275,7 @@ c 6.1. ==> message si erreur c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/ES_HOMARD/esle01.F b/src/tool/ES_HOMARD/esle01.F index a7222477..54a9cf2d 100644 --- a/src/tool/ES_HOMARD/esle01.F +++ b/src/tool/ES_HOMARD/esle01.F @@ -56,12 +56,12 @@ c character*6 nompro parameter ( nompro = 'ESLE01' ) c -#include "nblang.h" -#include "consts.h" + include "nblang.h" + include "consts.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -77,7 +77,7 @@ c c c 0.4. ==> variables locales c -#include "meddc0.h" + include "meddc0.h" c integer iaux, jaux integer nbchfi, nrocha @@ -97,7 +97,7 @@ c 1. initialisations c==== c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -116,13 +116,13 @@ c > '('' # ! Component ! Unit'',/,49(''-''))' texte(2,7) = '(i6,'' ! '',a16,'' ! '',a16)' c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,4)) nomcha #endif c -#include "esimpr.h" + include "esimpr.h" c c 1.2. ==> champ absent a priori c @@ -250,7 +250,7 @@ c c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/ES_HOMARD/esle02.F b/src/tool/ES_HOMARD/esle02.F index 2d038116..a221dffb 100644 --- a/src/tool/ES_HOMARD/esle02.F +++ b/src/tool/ES_HOMARD/esle02.F @@ -59,17 +59,17 @@ c character*6 nompro parameter ( nompro = 'ESLE02' ) c -#include "nblang.h" -#include "consts.h" + include "nblang.h" + include "consts.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" + include "gmenti.h" c -#include "impr02.h" -#include "enti01.h" + include "impr02.h" + include "enti01.h" c c 0.3. ==> arguments c @@ -83,7 +83,7 @@ c c c 0.4. ==> variables locales c -#include "meddc0.h" + include "meddc0.h" c integer iaux, jaux, kaux, laux integer nbprof @@ -113,7 +113,7 @@ c==== c 1. initialisation c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -128,9 +128,9 @@ c write (ulsort,texte(langue,4)) mess14(langue,3,typenh) #endif c -#include "impr03.h" + include "impr03.h" c -#include "esimpr.h" + include "esimpr.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,90002) 'nbenca', nbenca @@ -389,7 +389,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/ES_HOMARD/esle03.F b/src/tool/ES_HOMARD/esle03.F index aec3f7e9..d51746e4 100644 --- a/src/tool/ES_HOMARD/esle03.F +++ b/src/tool/ES_HOMARD/esle03.F @@ -59,12 +59,12 @@ c character*6 nompro parameter ( nompro = 'ESLE03' ) c -#include "nblang.h" -#include "consts.h" + include "nblang.h" + include "consts.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -78,7 +78,7 @@ c c c 0.4. ==> variables locales c -#include "meddc0.h" + include "meddc0.h" c integer iaux integer numdt, numit @@ -96,7 +96,7 @@ c==== c 1. initialisation c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -115,7 +115,7 @@ c write (ulsort,texte(langue,5)) #endif c -#include "esimpr.h" + include "esimpr.h" c c==== c 2. Si une des coordonnees est constante, lecture de la valeur @@ -208,7 +208,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/ES_HOMARD/eslee0.F b/src/tool/ES_HOMARD/eslee0.F index 5f9f5a01..7046ce44 100644 --- a/src/tool/ES_HOMARD/eslee0.F +++ b/src/tool/ES_HOMARD/eslee0.F @@ -70,14 +70,14 @@ c character*6 nompro parameter ( nompro = 'ESLEE0' ) c -#include "nblang.h" -#include "consts.h" + include "nblang.h" + include "consts.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "impr02.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -93,7 +93,7 @@ c c c 0.4. ==> variables locales c -#include "meddc0.h" + include "meddc0.h" c integer iaux integer dim1 @@ -108,7 +108,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -119,9 +119,9 @@ c c texte(2,4) = '(''... Readings of '',i10,1x,a)' c -#include "impr03.h" + include "impr03.h" c -#include "esimpr.h" + include "esimpr.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,4)) nbencf, mess14(langue,3,typenh) @@ -191,7 +191,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/ES_HOMARD/eslee1.F b/src/tool/ES_HOMARD/eslee1.F index 31abfccd..4269ce55 100644 --- a/src/tool/ES_HOMARD/eslee1.F +++ b/src/tool/ES_HOMARD/eslee1.F @@ -62,15 +62,15 @@ c character*6 nompro parameter ( nompro = 'ESLEE1' ) c -#include "nblang.h" -#include "consts.h" + include "nblang.h" + include "consts.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "fahmed.h" + include "envex1.h" + include "fahmed.h" c -#include "impr02.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -83,7 +83,7 @@ c c c 0.4. ==> variables locales c -#include "meddc0.h" + include "meddc0.h" c integer iaux, jaux, kaux,laux c @@ -96,7 +96,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -107,7 +107,7 @@ c c texte(2,4) = '(''... Connectivity for the '',i10,1x,a)' c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,4)) nbencf, mess14(langue,3,typenh) @@ -158,7 +158,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/ES_HOMARD/eslee2.F b/src/tool/ES_HOMARD/eslee2.F index bcc4ac02..c05fb9c4 100644 --- a/src/tool/ES_HOMARD/eslee2.F +++ b/src/tool/ES_HOMARD/eslee2.F @@ -66,16 +66,16 @@ c character*6 nompro parameter ( nompro = 'ESLEE2' ) c -#include "nblang.h" -#include "consts.h" + include "nblang.h" + include "consts.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "gmenti.h" + include "envex1.h" + include "gmenti.h" c -#include "impr02.h" -#include "enti01.h" + include "impr02.h" + include "enti01.h" c c 0.3. ==> arguments c @@ -91,7 +91,7 @@ c c c 0.4. ==> variables locales c -#include "meddc0.h" + include "meddc0.h" c integer nbcmax parameter ( nbcmax = 20 ) @@ -119,7 +119,7 @@ c==== c 1. initialisation c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -137,9 +137,9 @@ c write (ulsort,texte(langue,4)) mess14(langue,3,typenh) #endif c -#include "impr03.h" + include "impr03.h" c -#include "esimpr.h" + include "esimpr.h" c c==== c 2. Lecture sous forme de champ pour les tableaux a une valeur @@ -464,7 +464,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/ES_HOMARD/esleen.F b/src/tool/ES_HOMARD/esleen.F index 0df43bc9..6f4cef78 100644 --- a/src/tool/ES_HOMARD/esleen.F +++ b/src/tool/ES_HOMARD/esleen.F @@ -52,27 +52,27 @@ c character*6 nompro parameter ( nompro = 'ESLEEN' ) c -#include "nblang.h" -#include "consts.h" + include "nblang.h" + include "consts.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "gmenti.h" + include "envex1.h" + include "gmenti.h" c -#include "envca1.h" -#include "nbfami.h" -#include "dicfen.h" -#include "nombmp.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombpy.h" -#include "nombhe.h" -#include "nombpe.h" + include "envca1.h" + include "nbfami.h" + include "dicfen.h" + include "nombmp.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombpy.h" + include "nombhe.h" + include "nombpe.h" c -#include "impr02.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -87,7 +87,7 @@ c c c 0.4. ==> variables locales c -#include "meddc0.h" + include "meddc0.h" c integer iaux, jaux integer typenh, typgeo, typent @@ -110,7 +110,7 @@ c 1. initialisations c==== c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -125,9 +125,9 @@ c texte(2,5) = '(''... Size of temporary array :'',i10)' texte(2,6) = '(''.. Readings of the '',a14)' c -#include "impr03.h" + include "impr03.h" c -#include "esimpr.h" + include "esimpr.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,4)) @@ -414,7 +414,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/ES_HOMARD/eslefe.F b/src/tool/ES_HOMARD/eslefe.F index 88b7fc3a..a252d60a 100644 --- a/src/tool/ES_HOMARD/eslefe.F +++ b/src/tool/ES_HOMARD/eslefe.F @@ -54,22 +54,22 @@ c character*6 nompro parameter ( nompro = 'ESLEFE' ) c -#include "nblang.h" -#include "consts.h" + include "nblang.h" + include "consts.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" -#include "gmstri.h" + include "gmenti.h" + include "gmstri.h" c -#include "dicfen.h" -#include "nbfami.h" -#include "envca2.h" + include "dicfen.h" + include "nbfami.h" + include "envca2.h" c -#include "enti01.h" -#include "impr02.h" + include "enti01.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -86,7 +86,7 @@ c c c 0.4. ==> variables locales c -#include "meddc0.h" + include "meddc0.h" c integer nbgrox parameter (nbgrox = 10000 ) @@ -120,14 +120,14 @@ c 1. initialisations c==== c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "esimpr.h" + include "esimpr.h" c texte(1,4) = '(''. Lecture des familles'')' texte(1,6) = '(''Allongement de nomgro.'')' @@ -139,7 +139,7 @@ c texte(2,81) = '(''Allocated length for tbsaux : '',i10)' texte(2,82) = '(''Used length for tbsaux : '',i10)' c -#include "impr03.h" + include "impr03.h" c 1002 format(10(a8,'+')) 1003 format(a80,'+') @@ -666,7 +666,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/ES_HOMARD/eslen1.F b/src/tool/ES_HOMARD/eslen1.F index 09180a9c..95fc14e0 100644 --- a/src/tool/ES_HOMARD/eslen1.F +++ b/src/tool/ES_HOMARD/eslen1.F @@ -55,19 +55,19 @@ c character*6 nompro parameter ( nompro = 'ESLEN1' ) c -#include "nblang.h" -#include "consts.h" + include "nblang.h" + include "consts.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "gmenti.h" -#include "gmreel.h" + include "envex1.h" + include "gmenti.h" + include "gmreel.h" c -#include "impr02.h" -#include "nombno.h" -#include "envca1.h" -#include "enti01.h" + include "impr02.h" + include "nombno.h" + include "envca1.h" + include "enti01.h" c c 0.3. ==> arguments c @@ -82,7 +82,7 @@ c c c 0.4. ==> variables locales c -#include "meddc0.h" + include "meddc0.h" c integer nbcmax parameter ( nbcmax = 20 ) @@ -108,14 +108,14 @@ c==== c 1. initialisation c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "esimpr.h" + include "esimpr.h" c texte(1,4) = '(''... Lecture des complements pour les noeuds'')' texte(1,81) = '(''Longueur allouee pour tbiaux : '',i10)' @@ -125,7 +125,7 @@ c texte(2,81) = '(''Allocated length for tbiaux : '',i10)' texte(2,82) = '(''Used length for tbiaux : '',i10)' c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,4)) @@ -288,7 +288,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/ES_HOMARD/esleno.F b/src/tool/ES_HOMARD/esleno.F index c0f890e5..fbc49343 100644 --- a/src/tool/ES_HOMARD/esleno.F +++ b/src/tool/ES_HOMARD/esleno.F @@ -57,19 +57,19 @@ c character*6 nompro parameter ( nompro = 'ESLENO' ) c -#include "nblang.h" -#include "consts.h" + include "nblang.h" + include "consts.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "gmenti.h" -#include "gmreel.h" + include "envex1.h" + include "gmenti.h" + include "gmreel.h" c -#include "envca1.h" -#include "nombno.h" -#include "dicfen.h" -#include "nbfami.h" + include "envca1.h" + include "nombno.h" + include "dicfen.h" + include "nbfami.h" c c 0.3. ==> arguments c @@ -84,7 +84,7 @@ c c c 0.4. ==> variables locales c -#include "meddc0.h" + include "meddc0.h" c integer iaux integer codre1, codre2, codre3, codre4, codre5 @@ -105,7 +105,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -116,7 +116,7 @@ c c texte(2,4) = '(''. Readings of nodes.'')' c -#include "esimpr.h" + include "esimpr.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,4)) @@ -202,7 +202,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/ES_HOMARD/eslmh1.F b/src/tool/ES_HOMARD/eslmh1.F index 646455d9..96cf6fc5 100644 --- a/src/tool/ES_HOMARD/eslmh1.F +++ b/src/tool/ES_HOMARD/eslmh1.F @@ -55,28 +55,28 @@ c character*6 nompro parameter ( nompro = 'ESLMH1' ) c -#include "nblang.h" -#include "consts.h" + include "nblang.h" + include "consts.h" c c 0.2. ==> communs c -#include "gmenti.h" -#include "gmstri.h" -c -#include "dicfen.h" -#include "envex1.h" -#include "envca1.h" -#include "nombmp.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombno.h" -#include "nombte.h" -#include "nombpy.h" -#include "nombhe.h" -#include "nombpe.h" -#include "front1.h" -#include "nbutil.h" + include "gmenti.h" + include "gmstri.h" +c + include "dicfen.h" + include "envex1.h" + include "envca1.h" + include "nombmp.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombno.h" + include "nombte.h" + include "nombpy.h" + include "nombhe.h" + include "nombpe.h" + include "front1.h" + include "nbutil.h" c c 0.3. ==> arguments c @@ -90,7 +90,7 @@ c c c 0.4. ==> variables locales c -#include "meddc0.h" + include "meddc0.h" c integer iaux, jaux integer codre0 @@ -126,7 +126,7 @@ c==== c 1. intialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -137,9 +137,9 @@ c c texte(2,4) = '(5x,''Readings of mesh '',a,'' on file'')' c -#include "impr03.h" + include "impr03.h" c -#include "esimpr.h" + include "esimpr.h" c codret = 0 c @@ -507,7 +507,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/ES_HOMARD/eslmh2.F b/src/tool/ES_HOMARD/eslmh2.F index 0276421d..5ccc3139 100644 --- a/src/tool/ES_HOMARD/eslmh2.F +++ b/src/tool/ES_HOMARD/eslmh2.F @@ -131,13 +131,13 @@ c character*6 nompro parameter ( nompro = 'ESLMH2' ) c -#include "nblang.h" -#include "consts.h" + include "nblang.h" + include "consts.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "front1.h" + include "envex1.h" + include "front1.h" c c 0.3. ==> arguments c @@ -162,7 +162,7 @@ c c c 0.4. ==> variables locales c -#include "meddc0.h" + include "meddc0.h" c integer iaux, jaux integer infmgl(30) @@ -186,7 +186,7 @@ c==== c 1. intialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -199,9 +199,9 @@ c texte(2,5) = '(''No profile into the file?'')' texte(2,5) = '(''Global information are missing.'')' c -#include "esimpr.h" + include "esimpr.h" c -#include "impr03.h" + include "impr03.h" c c==== c 2. Le maillage est-il present dans le fichier ? @@ -483,7 +483,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/ES_HOMARD/eslmh3.F b/src/tool/ES_HOMARD/eslmh3.F index ecba6bbb..1f740bcc 100644 --- a/src/tool/ES_HOMARD/eslmh3.F +++ b/src/tool/ES_HOMARD/eslmh3.F @@ -52,28 +52,28 @@ c character*6 nompro parameter ( nompro = 'ESLMH3' ) c -#include "nblang.h" -#include "consts.h" + include "nblang.h" + include "consts.h" c c 0.2. ==> communs c -#include "gmenti.h" + include "gmenti.h" c -#include "envex1.h" + include "envex1.h" c -#include "envada.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nombmp.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombno.h" -#include "nombte.h" -#include "nombpy.h" -#include "nombhe.h" -#include "nombpe.h" -#include "nancnb.h" + include "envada.h" + include "dicfen.h" + include "nbfami.h" + include "nombmp.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombno.h" + include "nombte.h" + include "nombpy.h" + include "nombhe.h" + include "nombpe.h" + include "nancnb.h" c c 0.3. ==> arguments c @@ -87,7 +87,7 @@ c c c 0.4. ==> variables locales c -#include "meddc0.h" + include "meddc0.h" c integer iaux, jaux, kaux, laux integer lgnpro @@ -107,7 +107,7 @@ c==== c 1. intialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -118,9 +118,9 @@ c c texte(2,4) = '(/,5x,''Updating of commons'')' c -#include "esimpr.h" + include "esimpr.h" c -#include "impr03.h" + include "impr03.h" c c==== c 2. Recuperation des parametres essentiels @@ -504,7 +504,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/ES_HOMARD/eslmh4.F b/src/tool/ES_HOMARD/eslmh4.F index 2071f3c0..905a8267 100644 --- a/src/tool/ES_HOMARD/eslmh4.F +++ b/src/tool/ES_HOMARD/eslmh4.F @@ -48,16 +48,16 @@ c character*6 nompro parameter ( nompro = 'ESLMH4' ) c -#include "nblang.h" -#include "consts.h" + include "nblang.h" + include "consts.h" c c 0.2. ==> communs c -#include "gmenti.h" + include "gmenti.h" c -#include "envex1.h" -#include "enti01.h" -#include "nbutil.h" + include "envex1.h" + include "enti01.h" + include "nbutil.h" c c 0.3. ==> arguments c @@ -69,7 +69,7 @@ c c c 0.4. ==> variables locales c -#include "meddc0.h" + include "meddc0.h" c integer iaux, jaux, kaux, laux integer codre1, codre2 @@ -96,7 +96,7 @@ c 1. intialisations c==== c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -109,7 +109,7 @@ c texte(2,4) = '(''... Numbers'')' texte(2,7) = '(''First values : '',10i6)' c -#include "esimpr.h" + include "esimpr.h" c c==== c 2. Recuperation des parametres essentiels @@ -320,7 +320,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/ES_HOMARD/eslmh5.F b/src/tool/ES_HOMARD/eslmh5.F index e7b8c131..94c4e8fa 100644 --- a/src/tool/ES_HOMARD/eslmh5.F +++ b/src/tool/ES_HOMARD/eslmh5.F @@ -57,15 +57,15 @@ c character*6 nompro parameter ( nompro = 'ESLMH5' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "gmenti.h" + include "gmenti.h" c -#include "envex1.h" -#include "enti01.h" -#include "impr02.h" + include "envex1.h" + include "enti01.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -100,7 +100,7 @@ c==== c c 1.1. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -177,7 +177,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/ES_HOMARD/eslmh6.F b/src/tool/ES_HOMARD/eslmh6.F index 3d52f2c3..eeffcfba 100644 --- a/src/tool/ES_HOMARD/eslmh6.F +++ b/src/tool/ES_HOMARD/eslmh6.F @@ -50,16 +50,16 @@ c character*6 nompro parameter ( nompro = 'ESLMH6' ) c -#include "nblang.h" -#include "consts.h" + include "nblang.h" + include "consts.h" c c 0.2. ==> communs c -#include "gmenti.h" + include "gmenti.h" c -#include "envca1.h" -#include "envex1.h" -#include "nbutil.h" + include "envca1.h" + include "envex1.h" + include "nbutil.h" c c 0.3. ==> arguments c @@ -72,7 +72,7 @@ c c c 0.4. ==> variables locales c -#include "meddc0.h" + include "meddc0.h" c integer iaux, jaux integer hfmdel, hnoeel @@ -92,16 +92,16 @@ c 1. intialisations c==== c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "esimpr.h" + include "esimpr.h" c -#include "impr03.h" + include "impr03.h" c c==== c 2. les elements ignores @@ -171,7 +171,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/ES_HOMARD/eslmh7.F b/src/tool/ES_HOMARD/eslmh7.F index 6c56af16..3a08f649 100644 --- a/src/tool/ES_HOMARD/eslmh7.F +++ b/src/tool/ES_HOMARD/eslmh7.F @@ -57,17 +57,17 @@ c character*6 nompro parameter ( nompro = 'ESLMH7' ) c -#include "nblang.h" -#include "consts.h" + include "nblang.h" + include "consts.h" c c 0.2. ==> communs c -#include "gmenti.h" -#include "gmreel.h" -#include "gmstri.h" + include "gmenti.h" + include "gmreel.h" + include "gmstri.h" c -#include "front1.h" -#include "envex1.h" + include "front1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -84,7 +84,7 @@ c c c 0.4. ==> variables locales c -#include "meddc0.h" + include "meddc0.h" c integer iaux, jaux integer codre0 @@ -107,7 +107,7 @@ c==== c 1. intialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -118,9 +118,9 @@ c c texte(2,4) = '(5x,''Readings of the discrete boundary '',a)' c -#include "impr03.h" + include "impr03.h" c -#include "esimpr.h" + include "esimpr.h" c write (ulsort,texte(langue,4)) nomafr(1:lnomaf) c @@ -377,7 +377,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/ES_HOMARD/eslmho.F b/src/tool/ES_HOMARD/eslmho.F index 5eea64f3..be1117e3 100644 --- a/src/tool/ES_HOMARD/eslmho.F +++ b/src/tool/ES_HOMARD/eslmho.F @@ -61,15 +61,15 @@ c character*6 nompro parameter ( nompro = 'ESLMHO' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nomber.h" -#include "nombar.h" -#include "envca1.h" + include "nomber.h" + include "nombar.h" + include "envca1.h" c c 0.3. ==> arguments c @@ -137,7 +137,7 @@ c c c 1.2. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -159,7 +159,7 @@ c write (ulsort,texte(langue,4)) saux write (ulsort,texte(langue,5)) c -#include "impr03.h" + include "impr03.h" c c==== c 2. Lecture du maillage @@ -592,7 +592,7 @@ c 7.1. ==> message si erreur c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/ES_MED/esdesc.F b/src/tool/ES_MED/esdesc.F index c984908f..37fde331 100644 --- a/src/tool/ES_MED/esdesc.F +++ b/src/tool/ES_MED/esdesc.F @@ -50,15 +50,15 @@ c character*6 nompro parameter ( nompro = 'ESDESC' ) c -#include "nblang.h" -#include "consts.h" + include "nblang.h" + include "consts.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envada.h" -#include "nuvers.h" + include "envada.h" + include "nuvers.h" c c 0.3. ==> arguments c @@ -70,7 +70,7 @@ c c c 0.4. ==> variables locales c -#include "meddc0.h" + include "meddc0.h" c integer iaux integer numann, datheu @@ -89,14 +89,14 @@ c==== c c 1.1. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "esimpr.h" + include "esimpr.h" c codret = 0 c @@ -178,7 +178,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/ES_MED/esech1.F b/src/tool/ES_MED/esech1.F index 34ba8b68..b1e7053c 100644 --- a/src/tool/ES_MED/esech1.F +++ b/src/tool/ES_MED/esech1.F @@ -86,21 +86,21 @@ c character*6 nompro parameter ( nompro = 'ESECH1' ) c -#include "nblang.h" -#include "consts.h" -#include "meddc0.h" + include "nblang.h" + include "consts.h" + include "meddc0.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "esutil.h" -#include "gmenti.h" -#include "gmreel.h" -#include "gmstri.h" + include "esutil.h" + include "gmenti.h" + include "gmreel.h" + include "gmstri.h" c -#include "rftmed.h" -#include "impr02.h" + include "rftmed.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -147,14 +147,14 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "esimpr.h" + include "esimpr.h" c texte(1,4) = '(/,''Tableau numero '',i6,/,21(''-''))' texte(1,5) = @@ -175,7 +175,7 @@ c texte(2,13) = '(''... First value: '',g14.7)' texte(2,14) = '(''... Last value : '',g14.7)' c -#include "impr03.h" + include "impr03.h" c c==== c 2. on parcourt tous les tableaux @@ -514,7 +514,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/ES_MED/esech2.F b/src/tool/ES_MED/esech2.F index 787c6b5f..33e0d966 100644 --- a/src/tool/ES_MED/esech2.F +++ b/src/tool/ES_MED/esech2.F @@ -60,11 +60,11 @@ c character*6 nompro parameter ( nompro = 'ESECH2' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -93,7 +93,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -106,9 +106,9 @@ c texte(2,5) = '(''. First value: '',g14.7)' texte(2,6) = '(''. Last value : '',g14.7)' c -#include "impr03.h" + include "impr03.h" c -#include "esimpr.h" + include "esimpr.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,*) '=============================================' @@ -193,7 +193,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/ES_MED/esech3.F b/src/tool/ES_MED/esech3.F index 528de7dd..804eaa7d 100644 --- a/src/tool/ES_MED/esech3.F +++ b/src/tool/ES_MED/esech3.F @@ -60,11 +60,11 @@ c character*6 nompro parameter ( nompro = 'ESECH3' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -93,7 +93,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -106,9 +106,9 @@ c texte(2,5) = '(''. First value: '',i10)' texte(2,6) = '(''. Last value : '',i10)' c -#include "impr03.h" + include "impr03.h" c -#include "esimpr.h" + include "esimpr.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,*) '=============================================' @@ -193,7 +193,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/ES_MED/esemm0.F b/src/tool/ES_MED/esemm0.F index 5e1b5c2e..86b616e7 100644 --- a/src/tool/ES_MED/esemm0.F +++ b/src/tool/ES_MED/esemm0.F @@ -63,12 +63,12 @@ c character*6 nompro parameter ( nompro = 'ESEMM0' ) c -#include "nblang.h" -#include "consts.h" + include "nblang.h" + include "consts.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -85,7 +85,7 @@ c c c 0.4. ==> variables locales c -#include "meddc0.h" + include "meddc0.h" c integer iaux, jaux, kaux integer typrep @@ -103,7 +103,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -116,9 +116,9 @@ c texte(2,4) = '(''Full writings.'')' texte(2,5) = '(''Writings of numbering only.'')' c -#include "impr03.h" + include "impr03.h" c -#include "esimpr.h" + include "esimpr.h" c codret = 0 c @@ -200,7 +200,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/ES_MED/esemm1.F b/src/tool/ES_MED/esemm1.F index 288adb60..4fe806f7 100644 --- a/src/tool/ES_MED/esemm1.F +++ b/src/tool/ES_MED/esemm1.F @@ -100,17 +100,17 @@ c character*6 nompro parameter ( nompro = 'ESEMM1' ) c -#include "nblang.h" -#include "consts.h" + include "nblang.h" + include "consts.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "impr02.h" -#include "indefi.h" + include "envex1.h" + include "impr02.h" + include "indefi.h" c -#include "envca1.h" -#include "nbutil.h" + include "envca1.h" + include "nbutil.h" c c 0.3. ==> arguments c @@ -142,7 +142,7 @@ c c c 0.4. ==> variables locales c -#include "meddc0.h" + include "meddc0.h" c integer typnoe, typpoi, typseg, typtri, typtet, typenc integer typqua, typhex, typpyr, typpen @@ -174,7 +174,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -188,8 +188,8 @@ c texte(2,4) = '(''Mesh #'',i10,'', with type'',i10)' texte(2,5) = '(''==> This type is unknown for MED.'')' c -#include "impr03.h" -#include "esimpr.h" + include "impr03.h" + include "esimpr.h" c codret = 0 c @@ -1002,7 +1002,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/ES_MED/esemmb.F b/src/tool/ES_MED/esemmb.F index 22a8a488..a8b6eeeb 100644 --- a/src/tool/ES_MED/esemmb.F +++ b/src/tool/ES_MED/esemmb.F @@ -97,12 +97,12 @@ c character*6 nompro parameter ( nompro = 'ESEMMF' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "impr02.h" + include "envex1.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -135,7 +135,7 @@ c==== c c 1.1. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -146,8 +146,8 @@ c c texte(2,4) = '(''. Writings of '',i10,1x,a)' c -#include "esimpr.h" -#include "impr03.h" + include "esimpr.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,4)) nbmato, mess14(langue,3,typenh) @@ -212,7 +212,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/ES_MED/esemmc.F b/src/tool/ES_MED/esemmc.F index 383d671b..12055f23 100644 --- a/src/tool/ES_MED/esemmc.F +++ b/src/tool/ES_MED/esemmc.F @@ -93,13 +93,13 @@ c character*6 nompro parameter ( nompro = 'ESEMMF' ) c -#include "nblang.h" -#include "consts.h" + include "nblang.h" + include "consts.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "impr02.h" + include "envex1.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -119,7 +119,7 @@ c c c 0.4. ==> variables locales c -#include "meddc0.h" + include "meddc0.h" c integer iaux, jaux, kaux c @@ -134,7 +134,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -145,8 +145,8 @@ c c texte(2,4) = '(''. Writings of '',i10,1x,a)' c -#include "esimpr.h" -#include "impr03.h" + include "esimpr.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,4)) nbmato, mess14(langue,3,typenh) @@ -273,7 +273,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/ES_MED/esemmd.F b/src/tool/ES_MED/esemmd.F index e8ef6bf2..2c84b607 100644 --- a/src/tool/ES_MED/esemmd.F +++ b/src/tool/ES_MED/esemmd.F @@ -57,19 +57,19 @@ c character*6 nompro parameter ( nompro = 'ESEMMD' ) c -#include "nblang.h" -#include "consts.h" + include "nblang.h" + include "consts.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" -#include "gmreel.h" -#include "gmstri.h" + include "gmenti.h" + include "gmreel.h" + include "gmstri.h" c -#include "nbutil.h" -#include "envca1.h" + include "nbutil.h" + include "envca1.h" c c 0.3. ==> arguments c @@ -81,7 +81,7 @@ c c c 0.4. ==> variables locales c -#include "meddc0.h" + include "meddc0.h" c integer iaux, jaux integer adnomb @@ -123,16 +123,16 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" + include "impr03.h" c -#include "esimpr.h" + include "esimpr.h" c c==== c 2. premiers decodages @@ -432,7 +432,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/ES_MED/esemmf.F b/src/tool/ES_MED/esemmf.F index af2514cb..96949da5 100644 --- a/src/tool/ES_MED/esemmf.F +++ b/src/tool/ES_MED/esemmf.F @@ -87,13 +87,13 @@ c character*6 nompro parameter ( nompro = 'ESEMMF' ) c -#include "nblang.h" -#include "consts.h" + include "nblang.h" + include "consts.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "impr02.h" + include "envex1.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -110,7 +110,7 @@ c c c 0.4. ==> variables locales c -#include "meddc0.h" + include "meddc0.h" c integer iaux c @@ -127,7 +127,7 @@ c==== c c 1.1. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -138,8 +138,8 @@ c c texte(2,4) = '(''. Writings of '',i10,1x,a)' c -#include "esimpr.h" -#include "impr03.h" + include "esimpr.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,4)) nbmato, mess14(langue,3,typenh) @@ -219,7 +219,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/ES_MED/esemmq.F b/src/tool/ES_MED/esemmq.F index dc7bb978..b8284309 100644 --- a/src/tool/ES_MED/esemmq.F +++ b/src/tool/ES_MED/esemmq.F @@ -59,18 +59,18 @@ c character*6 nompro parameter ( nompro = 'ESEMMQ' ) c -#include "nblang.h" -#include "consts.h" + include "nblang.h" + include "consts.h" c c 0.2. ==> communs c -#include "gmenti.h" -#include "envex1.h" -#include "impr02.h" -#include "indefi.h" + include "gmenti.h" + include "envex1.h" + include "impr02.h" + include "indefi.h" c -#include "envca1.h" -#include "nbutil.h" + include "envca1.h" + include "nbutil.h" c c 0.3. ==> arguments c @@ -87,7 +87,7 @@ c c c 0.4. ==> variables locales c -#include "meddc0.h" + include "meddc0.h" c integer iaux, jaux, kaux integer nuenmx, nbcibl @@ -106,16 +106,16 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" + include "impr03.h" c -#include "esimpr.h" + include "esimpr.h" c codret = 0 c @@ -253,7 +253,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/ES_MED/esemno.F b/src/tool/ES_MED/esemno.F index a0986e80..834fb50e 100644 --- a/src/tool/ES_MED/esemno.F +++ b/src/tool/ES_MED/esemno.F @@ -59,12 +59,12 @@ c character*6 nompro parameter ( nompro = 'ESEMNO' ) c -#include "nblang.h" -#include "consts.h" + include "nblang.h" + include "consts.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -82,7 +82,7 @@ c c c 0.4. ==> variables locales c -#include "meddc0.h" + include "meddc0.h" c integer typnoe integer iaux @@ -96,14 +96,14 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "esimpr.h" + include "esimpr.h" c texte(1,61) = '(''Coordonnees des'',i10,'' noeuds.'')' texte(1,62) = '(''Familles des'',i10,'' noeuds.'')' @@ -111,7 +111,7 @@ c texte(2,61) = '(''Coordinates of the'',i10,'' nodes.'')' texte(2,62) = '(''Families of the'',i10,'' nodes.'')' c -#include "impr03.h" + include "impr03.h" c codret = 0 c @@ -184,7 +184,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/ES_MED/eses11.F b/src/tool/ES_MED/eses11.F index 1a3c8034..4c441856 100644 --- a/src/tool/ES_MED/eses11.F +++ b/src/tool/ES_MED/eses11.F @@ -57,14 +57,14 @@ c character*6 nompro parameter ( nompro = 'ESES11' ) c -#include "nblang.h" -#include "consts.h" + include "nblang.h" + include "consts.h" c -#include "meddc0.h" + include "meddc0.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -93,14 +93,14 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "esimpr.h" + include "esimpr.h" c texte(1,4) = '(/,''Creation du champ : '',a)' texte(1,5) = '(''Type du champ : '',i2)' @@ -116,7 +116,7 @@ c texte(2,7) = '(i6,'' ! '',a16,'' ! '',a16)' texte(2,8) = '(''Time step unity: '',a)' c -#include "impr03.h" + include "impr03.h" c c==== c 2. creation du champ @@ -172,7 +172,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/ES_MED/esesm1.F b/src/tool/ES_MED/esesm1.F index 019da15e..186c7aca 100644 --- a/src/tool/ES_MED/esesm1.F +++ b/src/tool/ES_MED/esesm1.F @@ -62,18 +62,18 @@ c character*6 nompro parameter ( nompro = 'ESESM1' ) c -#include "nblang.h" -#include "consts.h" + include "nblang.h" + include "consts.h" c -#include "meddc0.h" + include "meddc0.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" -#include "gmreel.h" -#include "gmstri.h" + include "gmenti.h" + include "gmreel.h" + include "gmstri.h" c c 0.3. ==> arguments c @@ -113,8 +113,8 @@ c==== c 1. initialisations c==== c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -133,7 +133,7 @@ c texte(2,7) = '(''First values: '',10i6)' texte(2,100) = '(''Last values: '',10i6)' c -#include "esimpr.h" + include "esimpr.h" c c==== c 2. ecriture des eventuels profils @@ -332,7 +332,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/ES_MED/esesmd.F b/src/tool/ES_MED/esesmd.F index bae28b5e..e739b198 100644 --- a/src/tool/ES_MED/esesmd.F +++ b/src/tool/ES_MED/esesmd.F @@ -55,17 +55,17 @@ c character*6 nompro parameter ( nompro = 'ESESMD' ) c -#include "nblang.h" -#include "consts.h" + include "nblang.h" + include "consts.h" c -#include "motcle.h" -#include "meddc0.h" + include "motcle.h" + include "meddc0.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmstri.h" + include "gmstri.h" c c 0.3. ==> arguments c @@ -101,7 +101,7 @@ c==== c c 1.1. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -112,7 +112,7 @@ c c texte(2,5) = '(''Field : '')' c -#include "esimpr.h" + include "esimpr.h" c #ifdef _DEBUG_HOMARD_ call gmprsx (nompro, nosolu ) @@ -218,7 +218,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/ES_MED/eslch1.F b/src/tool/ES_MED/eslch1.F index a541af00..0a824c81 100644 --- a/src/tool/ES_MED/eslch1.F +++ b/src/tool/ES_MED/eslch1.F @@ -65,13 +65,13 @@ c character*6 nompro parameter ( nompro = 'ESLCH1' ) c -#include "nblang.h" -#include "consts.h" -#include "meddc0.h" + include "nblang.h" + include "consts.h" + include "meddc0.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -111,7 +111,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -122,9 +122,9 @@ c c texte(2,4) = '(''Readings of a new profile.'')' c -#include "impr03.h" + include "impr03.h" c -#include "esimpr.h" + include "esimpr.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,32)) nomcha @@ -310,7 +310,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/ES_MED/eslch2.F b/src/tool/ES_MED/eslch2.F index bfcacb04..a2acd13b 100644 --- a/src/tool/ES_MED/eslch2.F +++ b/src/tool/ES_MED/eslch2.F @@ -130,14 +130,14 @@ c character*6 nompro parameter ( nompro = 'ESLCH2' ) c -#include "nblang.h" -#include "consts.h" -#include "meddc0.h" + include "nblang.h" + include "consts.h" + include "meddc0.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "esutil.h" + include "envex1.h" + include "esutil.h" c c 0.3. ==> arguments c @@ -192,7 +192,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -206,8 +206,8 @@ c texte(2,4) = '(''Readings of a new profile.'')' texte(2,5) = '(''Readings of a new Gauss localization.'')' c -#include "esimpr.h" -#include "impr03.h" + include "esimpr.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,32)) nomcha @@ -768,7 +768,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/ES_MED/eslch3.F b/src/tool/ES_MED/eslch3.F index 7ad2f8d8..008d00d9 100644 --- a/src/tool/ES_MED/eslch3.F +++ b/src/tool/ES_MED/eslch3.F @@ -111,14 +111,14 @@ c character*6 nompro parameter ( nompro = 'ESLCH3' ) c -#include "nblang.h" -#include "consts.h" + include "nblang.h" + include "consts.h" c c 0.2. ==> communs c -#include "esutil.h" -#include "envex1.h" -#include "meddc0.h" + include "esutil.h" + include "envex1.h" + include "meddc0.h" c c 0.3. ==> arguments c @@ -156,14 +156,14 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "esimpr.h" + include "esimpr.h" c texte(1,4) = '(/,''Nom du champ : '',a)' texte(1,5) = '(''Numero du champ :'',i5)' @@ -173,7 +173,7 @@ c texte(2,5) = '(''Field #'',i5)' texte(2,6) = '(''Array #'',i5)' c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,4)) nomcha @@ -315,7 +315,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,4)) nomcha write (ulsort,texte(langue,65+carsup)) diff --git a/src/tool/ES_MED/eslch4.F b/src/tool/ES_MED/eslch4.F index 6e37c3f6..f0d680e5 100644 --- a/src/tool/ES_MED/eslch4.F +++ b/src/tool/ES_MED/eslch4.F @@ -115,18 +115,18 @@ c character*6 nompro parameter ( nompro = 'ESLCH4' ) c -#include "nblang.h" -#include "consts.h" -#include "meddc0.h" + include "nblang.h" + include "consts.h" + include "meddc0.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "esutil.h" -#include "gmenti.h" -#include "gmreel.h" -#include "gmstri.h" + include "esutil.h" + include "gmenti.h" + include "gmreel.h" + include "gmstri.h" c c 0.3. ==> arguments c @@ -175,7 +175,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -190,9 +190,9 @@ c texte(2,5) = > '(''No function with same characteristics than the field.'')' c -#include "impr03.h" + include "impr03.h" c -#include "esimpr.h" + include "esimpr.h" c c==== c 2. on parcourt tous les tableaux @@ -579,7 +579,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/ES_MED/eslch5.F b/src/tool/ES_MED/eslch5.F index 32b9f418..594e9bcf 100644 --- a/src/tool/ES_MED/eslch5.F +++ b/src/tool/ES_MED/eslch5.F @@ -64,11 +64,11 @@ c character*6 nompro parameter ( nompro = 'ESLCH5' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -100,7 +100,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -186,7 +186,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/ES_MED/eslch6.F b/src/tool/ES_MED/eslch6.F index 73df0a75..649614f4 100644 --- a/src/tool/ES_MED/eslch6.F +++ b/src/tool/ES_MED/eslch6.F @@ -111,12 +111,12 @@ c character*6 nompro parameter ( nompro = 'ESLCH6' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "esutil.h" + include "envex1.h" + include "esutil.h" c c 0.3. ==> arguments c @@ -145,15 +145,15 @@ c==== c 1. initialisations c==== c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "esimpr.h" + include "esimpr.h" c texte(1,4) = '(''Numero du champ :'',i5)' texte(1,6) = '(''Recherche dans la categorie : '')' @@ -300,7 +300,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,32)) nomcha write (ulsort,texte(langue,65+numcat)) diff --git a/src/tool/ES_MED/eslch7.F b/src/tool/ES_MED/eslch7.F index 80c4606c..8e3b15e1 100644 --- a/src/tool/ES_MED/eslch7.F +++ b/src/tool/ES_MED/eslch7.F @@ -103,12 +103,12 @@ c character*6 nompro parameter ( nompro = 'ESLCH7' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "esutil.h" -#include "envex1.h" + include "esutil.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -138,15 +138,15 @@ c==== c c 1.1. ==> les messages c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "esimpr.h" + include "esimpr.h" c texte(1,4) = '(/,''Impossible de trouver la fonction associee.'')' c @@ -196,7 +196,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,4)) write (ulsort,texte(langue,1)) 'Sortie', nompro diff --git a/src/tool/ES_MED/eslch8.F b/src/tool/ES_MED/eslch8.F index 132ebbd1..d099ba4a 100644 --- a/src/tool/ES_MED/eslch8.F +++ b/src/tool/ES_MED/eslch8.F @@ -64,11 +64,11 @@ c character*6 nompro parameter ( nompro = 'ESLCH8' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -100,7 +100,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -186,7 +186,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/ES_MED/eslent.F b/src/tool/ES_MED/eslent.F index d6c19acd..c1c4f671 100644 --- a/src/tool/ES_MED/eslent.F +++ b/src/tool/ES_MED/eslent.F @@ -48,12 +48,12 @@ c character*6 nompro parameter ( nompro = 'ESLENT' ) c -#include "nblang.h" -#include "consts.h" + include "nblang.h" + include "consts.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -63,7 +63,7 @@ c c c 0.4. ==> variables locales c -#include "meddc0.h" + include "meddc0.h" c integer iaux integer lgdesc @@ -79,14 +79,14 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "esimpr.h" + include "esimpr.h" c c==== c 2. recherche des differentes infos @@ -147,7 +147,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/ES_MED/eslimd.F b/src/tool/ES_MED/eslimd.F index 940e4ca6..6c7149d4 100644 --- a/src/tool/ES_MED/eslimd.F +++ b/src/tool/ES_MED/eslimd.F @@ -101,19 +101,19 @@ c character*6 nompro parameter ( nompro = 'ESLIMD' ) c -#include "nblang.h" -#include "consts.h" + include "nblang.h" + include "consts.h" c -#include "motcle.h" -#include "meddc0.h" + include "motcle.h" + include "meddc0.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" -#include "gmreel.h" -#include "gmstri.h" + include "gmenti.h" + include "gmreel.h" + include "gmstri.h" c 0.3. ==> arguments c @@ -155,7 +155,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -175,9 +175,9 @@ c texte(2,7) = >'(''The name of the indicator field component is unknown.'')' c -#include "impr03.h" + include "impr03.h" c -#include "esimpr.h" + include "esimpr.h" c c==== c 2. premiers decodages @@ -414,7 +414,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/ES_MED/eslmm1.F b/src/tool/ES_MED/eslmm1.F index fceab71f..12cda0e4 100644 --- a/src/tool/ES_MED/eslmm1.F +++ b/src/tool/ES_MED/eslmm1.F @@ -61,15 +61,15 @@ c character*6 nompro parameter ( nompro = 'ESLMM1' ) c -#include "nblang.h" -#include "consts.h" + include "nblang.h" + include "consts.h" c -#include "equiva.h" + include "equiva.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "impr02.h" + include "envex1.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -91,7 +91,7 @@ c c c 0.4. ==> variables locales c -#include "meddc0.h" + include "meddc0.h" c integer nbmai1, nbmai2 integer nbseg2, nbseg3 @@ -127,7 +127,7 @@ c==== c c 1.1. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -142,7 +142,7 @@ c texte(2,5) = > '(''These kinds of elements are not treated in HOMARD.'')' c -#include "esimpr.h" + include "esimpr.h" c nbnoto = 0 nbmane = 0 @@ -585,7 +585,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/ES_MED/eslmm2.F b/src/tool/ES_MED/eslmm2.F index 0bc8eb78..8f5b6c9a 100644 --- a/src/tool/ES_MED/eslmm2.F +++ b/src/tool/ES_MED/eslmm2.F @@ -125,12 +125,12 @@ c character*6 nompro parameter ( nompro = 'ESLMM2' ) c -#include "nblang.h" -#include "consts.h" + include "nblang.h" + include "consts.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -176,7 +176,7 @@ c c c 0.4. ==> variables locales c -#include "meddc0.h" + include "meddc0.h" c integer nummai integer iaux, jaux, kaux, laux, maux @@ -204,7 +204,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -215,7 +215,7 @@ c c texte(2,4) = '(/,''REPERE NON PREVU ='',i4,/)' c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,90002) 'option', option @@ -1074,7 +1074,7 @@ c c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/ES_MED/eslmmb.F b/src/tool/ES_MED/eslmmb.F index b711c10a..52fb5835 100644 --- a/src/tool/ES_MED/eslmmb.F +++ b/src/tool/ES_MED/eslmmb.F @@ -87,12 +87,12 @@ c character*6 nompro parameter ( nompro = 'ESLMMB' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "impr02.h" + include "envex1.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -122,7 +122,7 @@ c==== c c 1.1. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -133,9 +133,9 @@ c c texte(2,4) = '(''... Readings of '',i10,1x,a)' c -#include "esimpr.h" + include "esimpr.h" c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,4)) nbmato, mess14(langue,3,typenh) @@ -187,7 +187,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/ES_MED/eslmmc.F b/src/tool/ES_MED/eslmmc.F index f289bf56..807346e5 100644 --- a/src/tool/ES_MED/eslmmc.F +++ b/src/tool/ES_MED/eslmmc.F @@ -79,13 +79,13 @@ c character*6 nompro parameter ( nompro = 'ESLMMC' ) c -#include "nblang.h" -#include "consts.h" + include "nblang.h" + include "consts.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "impr02.h" + include "envex1.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -102,7 +102,7 @@ c c c 0.4. ==> variables locales c -#include "meddc0.h" + include "meddc0.h" c integer iaux, jaux, kaux, laux integer nmafin @@ -121,7 +121,7 @@ c==== c c 1.1. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -134,9 +134,9 @@ c texte(2,4) = '(''... Readings of '',i10,1x,a)' texte(2,63) = '(''All the families are 0.'')' c -#include "impr03.h" + include "impr03.h" c -#include "esimpr.h" + include "esimpr.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,4)) nbmato, mess14(langue,3,typenh) @@ -264,7 +264,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/ES_MED/eslmmd.F b/src/tool/ES_MED/eslmmd.F index 488659fa..e176ede5 100644 --- a/src/tool/ES_MED/eslmmd.F +++ b/src/tool/ES_MED/eslmmd.F @@ -63,16 +63,16 @@ c character*6 nompro parameter ( nompro = 'ESLMMD' ) c -#include "nblang.h" -#include "consts.h" + include "nblang.h" + include "consts.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" -#include "gmreel.h" -#include "gmstri.h" + include "gmenti.h" + include "gmreel.h" + include "gmstri.h" c c 0.3. ==> arguments c @@ -87,7 +87,7 @@ c c c 0.4. ==> variables locales c -#include "meddc0.h" + include "meddc0.h" c integer iaux, jaux integer codre1, codre2, codre3, codre4, codre5 @@ -143,16 +143,16 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" + include "impr03.h" c -#include "esimpr.h" + include "esimpr.h" #ifdef _DEBUG_HOMARD_ write (ulsort,90002) 'option', option #endif @@ -708,7 +708,7 @@ c c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/ES_MED/eslmmf.F b/src/tool/ES_MED/eslmmf.F index b5375242..2e40c40a 100644 --- a/src/tool/ES_MED/eslmmf.F +++ b/src/tool/ES_MED/eslmmf.F @@ -83,13 +83,13 @@ c character*6 nompro parameter ( nompro = 'ESLMMF' ) c -#include "nblang.h" -#include "consts.h" + include "nblang.h" + include "consts.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "impr02.h" + include "envex1.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -106,7 +106,7 @@ c c c 0.4. ==> variables locales c -#include "meddc0.h" + include "meddc0.h" c integer iaux integer numdt, numit @@ -126,7 +126,7 @@ c==== c c 1.1. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -139,9 +139,9 @@ c texte(2,4) = '(''... Readings of '',i10,1x,a)' texte(2,63) = '(''All the families are 0.'')' c -#include "impr03.h" + include "impr03.h" c -#include "esimpr.h" + include "esimpr.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,4)) nbmato, mess14(langue,3,typenh) @@ -278,7 +278,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/ES_MED/eslmmn.F b/src/tool/ES_MED/eslmmn.F index c8804a4e..f303f8c0 100644 --- a/src/tool/ES_MED/eslmmn.F +++ b/src/tool/ES_MED/eslmmn.F @@ -52,13 +52,13 @@ c character*6 nompro parameter ( nompro = 'ESLMMN' ) c -#include "nblang.h" -#include "consts.h" + include "nblang.h" + include "consts.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "impr02.h" + include "envex1.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -72,7 +72,7 @@ c c c 0.4. ==> variables locales c -#include "meddc0.h" + include "meddc0.h" c integer typnoe c @@ -91,7 +91,7 @@ c==== c c 1.1. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -102,7 +102,7 @@ c c texte(2,4) = '(''Number of nodes:'',i10)' c -#include "esimpr.h" + include "esimpr.h" c nbnoto = 0 c @@ -137,7 +137,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/ES_MED/eslmno.F b/src/tool/ES_MED/eslmno.F index cf6f7e85..754ba030 100644 --- a/src/tool/ES_MED/eslmno.F +++ b/src/tool/ES_MED/eslmno.F @@ -59,12 +59,12 @@ c character*6 nompro parameter ( nompro = 'ESLMNO' ) c -#include "nblang.h" -#include "consts.h" + include "nblang.h" + include "consts.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -82,7 +82,7 @@ c c c 0.4. ==> variables locales c -#include "meddc0.h" + include "meddc0.h" c integer iaux integer typnoe @@ -99,14 +99,14 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "esimpr.h" + include "esimpr.h" c texte(1,61) = '(''Coordonnees des'',i10,'' noeuds.'')' texte(1,62) = '(''Familles des'',i10,'' noeuds.'')' @@ -116,7 +116,7 @@ c texte(2,62) = '(''Families of the'',i10,'' nodes.'')' texte(2,63) = '(''All the families are 0.'')' c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,90002) 'option', option @@ -220,7 +220,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/ES_MED/eslnma.F b/src/tool/ES_MED/eslnma.F index d60f28f9..4e5f1ec3 100644 --- a/src/tool/ES_MED/eslnma.F +++ b/src/tool/ES_MED/eslnma.F @@ -75,12 +75,12 @@ c character*6 nompro parameter ( nompro = 'ESLNMA' ) c -#include "nblang.h" -#include "consts.h" + include "nblang.h" + include "consts.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -102,7 +102,7 @@ c c c 0.4. ==> variables locales c -#include "meddc0.h" + include "meddc0.h" c integer iaux, jaux integer codre0 @@ -122,7 +122,7 @@ c==== c c 1.1. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -356,7 +356,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/ES_MED/eslnof.F b/src/tool/ES_MED/eslnof.F index b384d968..c5c49b44 100644 --- a/src/tool/ES_MED/eslnof.F +++ b/src/tool/ES_MED/eslnof.F @@ -65,15 +65,15 @@ c character*6 nompro parameter ( nompro = 'ESLNOF' ) c -#include "nblang.h" -#include "consts.h" + include "nblang.h" + include "consts.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" -#include "gmstri.h" + include "gmenti.h" + include "gmstri.h" c c 0.3. ==> arguments c @@ -92,7 +92,7 @@ c c c 0.4. ==> variables locales c -#include "meddc0.h" + include "meddc0.h" c integer nbmaie integer nromai @@ -120,14 +120,14 @@ c==== c c 1.1. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "esimpr.h" + include "esimpr.h" c sdim = 0 c @@ -317,7 +317,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/ES_MED/eslnom.F b/src/tool/ES_MED/eslnom.F index e546bb76..23ba4b3f 100644 --- a/src/tool/ES_MED/eslnom.F +++ b/src/tool/ES_MED/eslnom.F @@ -59,15 +59,15 @@ c character*6 nompro parameter ( nompro = 'ESLNOM' ) c -#include "nblang.h" -#include "consts.h" + include "nblang.h" + include "consts.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" -#include "gmstri.h" + include "gmenti.h" + include "gmstri.h" c c 0.3. ==> arguments c @@ -83,7 +83,7 @@ c c c 0.4. ==> variables locales c -#include "meddc0.h" + include "meddc0.h" c integer nbmaie integer typema @@ -108,14 +108,14 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "esimpr.h" + include "esimpr.h" c mdim = 0 c @@ -125,7 +125,7 @@ c texte(2,4) = '(''Number of meshes:'',i3)' texte(2,5) = '(''Name of mesh #'',i3,'': '',a64)' c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,22)) nomamd(1:lnomam) @@ -289,7 +289,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/ES_MED/eslnum.F b/src/tool/ES_MED/eslnum.F index 683f3737..6d9973ed 100644 --- a/src/tool/ES_MED/eslnum.F +++ b/src/tool/ES_MED/eslnum.F @@ -75,12 +75,12 @@ c character*6 nompro parameter ( nompro = 'ESLNUM' ) c -#include "nblang.h" -#include "consts.h" + include "nblang.h" + include "consts.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -98,7 +98,7 @@ c c c 0.4. ==> variables locales c -#include "meddc0.h" + include "meddc0.h" c integer iaux, jaux integer typnoe, typseg, typtri, typqua @@ -124,7 +124,7 @@ c==== c c 1.1. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -429,7 +429,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/ES_MED/eslpg1.F b/src/tool/ES_MED/eslpg1.F index 363459b3..31e5d80b 100644 --- a/src/tool/ES_MED/eslpg1.F +++ b/src/tool/ES_MED/eslpg1.F @@ -52,15 +52,15 @@ c character*6 nompro parameter ( nompro = 'ESLPG1' ) c -#include "nblang.h" -#include "consts.h" -#include "meddc0.h" + include "nblang.h" + include "consts.h" + include "meddc0.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmreel.h" + include "gmreel.h" c c 0.3. ==> arguments c @@ -94,7 +94,7 @@ c==== c c 1.1. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -111,7 +111,7 @@ c write (ulsort,texte(langue,5)) nolopg #endif c -#include "esimpr.h" + include "esimpr.h" c c==== c 2. caracterisation de la localisation a lire @@ -194,7 +194,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/ES_MED/eslpg2.F b/src/tool/ES_MED/eslpg2.F index a094c3be..225acf46 100644 --- a/src/tool/ES_MED/eslpg2.F +++ b/src/tool/ES_MED/eslpg2.F @@ -55,13 +55,13 @@ c character*6 nompro parameter ( nompro = 'ESLPG2' ) c -#include "nblang.h" -#include "consts.h" -#include "meddc0.h" + include "nblang.h" + include "consts.h" + include "meddc0.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -94,7 +94,7 @@ c==== c c 1.1. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -111,7 +111,7 @@ c texte(2,5) = '(''.. This localization is found : '',a)' texte(2,6) = '(''It is not stored inthe file.'')' c -#include "esimpr.h" + include "esimpr.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,4)) nolopg @@ -199,7 +199,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/ES_MED/eslpr1.F b/src/tool/ES_MED/eslpr1.F index 6ba93d29..2a62dd44 100644 --- a/src/tool/ES_MED/eslpr1.F +++ b/src/tool/ES_MED/eslpr1.F @@ -51,15 +51,15 @@ c character*6 nompro parameter ( nompro = 'ESLPR1' ) c -#include "nblang.h" -#include "consts.h" -#include "meddc0.h" + include "nblang.h" + include "consts.h" + include "meddc0.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" + include "gmenti.h" c c 0.3. ==> arguments c @@ -89,7 +89,7 @@ c==== c c 1.1. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -100,7 +100,7 @@ c c texte(2,4) = '(''Profile length in MED file :'')' c -#include "esimpr.h" + include "esimpr.h" cgn print *, '. nbcomp = ', nbcomp cgn print *, '. typerr = ', typerr c @@ -167,7 +167,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/ES_MED/eslsc1.F b/src/tool/ES_MED/eslsc1.F index c39de84b..ecdf5040 100644 --- a/src/tool/ES_MED/eslsc1.F +++ b/src/tool/ES_MED/eslsc1.F @@ -52,16 +52,16 @@ c character*6 nompro parameter ( nompro = 'ESLSC1' ) c -#include "nblang.h" -#include "consts.h" -#include "meddc0.h" -#include "litme0.h" + include "nblang.h" + include "consts.h" + include "meddc0.h" + include "litme0.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmstri.h" + include "gmstri.h" c c 0.3. ==> arguments c @@ -99,7 +99,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -113,9 +113,9 @@ c c 1000 format (53('-')) c -#include "esimpr.h" + include "esimpr.h" c -#include "impr03.h" + include "impr03.h" c codret = 0 c @@ -123,7 +123,7 @@ c==== c 2. prealables c==== c -#include "litmed.h" + include "litmed.h" c c 2.1. ==> ouverture du fichier MED c @@ -296,7 +296,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/ES_MED/eslsch.F b/src/tool/ES_MED/eslsch.F index 6e74c540..16e16b75 100644 --- a/src/tool/ES_MED/eslsch.F +++ b/src/tool/ES_MED/eslsch.F @@ -71,18 +71,18 @@ c character*6 nompro parameter ( nompro = 'ESLSCH' ) c -#include "nblang.h" -#include "consts.h" + include "nblang.h" + include "consts.h" c -#include "meddc0.h" + include "meddc0.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" -#include "gmreel.h" -#include "gmstri.h" + include "gmenti.h" + include "gmreel.h" + include "gmstri.h" c c 0.3. ==> arguments c @@ -111,20 +111,20 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "esimpr.h" + include "esimpr.h" c texte(1,4) = '(/,''Lecture de tous les champs du fichier'')' c texte(2,4) = '(/,''Readings of all fields from the file.'')' c -#include "impr03.h" + include "impr03.h" c c==== c 2. tous les champs sont a lire @@ -211,7 +211,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/ES_MED/eslsm0.F b/src/tool/ES_MED/eslsm0.F index 897fe802..ec8edac6 100644 --- a/src/tool/ES_MED/eslsm0.F +++ b/src/tool/ES_MED/eslsm0.F @@ -125,15 +125,15 @@ c character*6 nompro parameter ( nompro = 'ESLSM0' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "esutil.h" -#include "gmenti.h" -#include "gmstri.h" + include "esutil.h" + include "gmenti.h" + include "gmstri.h" c c 0.3. ==> arguments c @@ -184,16 +184,16 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" + include "impr03.h" c -#include "esimpr.h" + include "esimpr.h" c c==== c 2. prealables @@ -776,7 +776,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/ES_MED/eslsm1.F b/src/tool/ES_MED/eslsm1.F index 7c0429bc..67aaa200 100644 --- a/src/tool/ES_MED/eslsm1.F +++ b/src/tool/ES_MED/eslsm1.F @@ -102,19 +102,19 @@ c character*6 nompro parameter ( nompro = 'ESLSM1' ) c -#include "nblang.h" -#include "consts.h" -#include "meddc0.h" -#include "litme0.h" + include "nblang.h" + include "consts.h" + include "meddc0.h" + include "litme0.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "esutil.h" -#include "gmenti.h" -#include "gmreel.h" -#include "gmstri.h" + include "esutil.h" + include "gmenti.h" + include "gmreel.h" + include "gmstri.h" c c 0.3. ==> arguments c @@ -166,18 +166,18 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "esimpr.h" + include "esimpr.h" c -#include "impr03.h" + include "impr03.h" c -#include "litmed.h" + include "litmed.h" c nbcham = 0 c @@ -768,7 +768,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/ES_MED/eslsm2.F b/src/tool/ES_MED/eslsm2.F index 8ed78ab6..e5b7f1c7 100644 --- a/src/tool/ES_MED/eslsm2.F +++ b/src/tool/ES_MED/eslsm2.F @@ -85,17 +85,17 @@ c character*6 nompro parameter ( nompro = 'ESLSM2' ) c -#include "nblang.h" -#include "consts.h" -#include "meddc0.h" + include "nblang.h" + include "consts.h" + include "meddc0.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "esutil.h" -#include "gmenti.h" -#include "gmstri.h" + include "esutil.h" + include "gmenti.h" + include "gmstri.h" c c 0.3. ==> arguments c @@ -133,7 +133,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -144,9 +144,9 @@ c c texte(2,4) = '(''Number of existing functions :'',i8)' c -#include "impr03.h" + include "impr03.h" c -#include "esimpr.h" + include "esimpr.h" c nbfonc = 0 c @@ -285,7 +285,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/ES_MED/eslsm3.F b/src/tool/ES_MED/eslsm3.F index c78642dd..74a41e01 100644 --- a/src/tool/ES_MED/eslsm3.F +++ b/src/tool/ES_MED/eslsm3.F @@ -75,17 +75,17 @@ c character*6 nompro parameter ( nompro = 'ESLSM3' ) c -#include "nblang.h" -#include "consts.h" -#include "meddc0.h" + include "nblang.h" + include "consts.h" + include "meddc0.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "esutil.h" -#include "gmenti.h" -#include "gmstri.h" + include "esutil.h" + include "gmenti.h" + include "gmstri.h" c c 0.3. ==> arguments c @@ -118,14 +118,14 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "esimpr.h" + include "esimpr.h" c c==== c 2. creations des fonctions @@ -240,7 +240,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/ES_MED/eslsm4.F b/src/tool/ES_MED/eslsm4.F index c81c95cf..9f524cfd 100644 --- a/src/tool/ES_MED/eslsm4.F +++ b/src/tool/ES_MED/eslsm4.F @@ -90,18 +90,18 @@ c character*6 nompro parameter ( nompro = 'ESLSM4' ) c -#include "nblang.h" -#include "consts.h" + include "nblang.h" + include "consts.h" c -#include "meddc0.h" + include "meddc0.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "esutil.h" -#include "gmenti.h" -#include "gmstri.h" + include "esutil.h" + include "gmenti.h" + include "gmstri.h" c c 0.3. ==> arguments c @@ -138,16 +138,16 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" + include "impr03.h" c -#include "esimpr.h" + include "esimpr.h" c c==== c 2. lecture des valeurs, champ par champ @@ -240,7 +240,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/ES_MED/eslsm5.F b/src/tool/ES_MED/eslsm5.F index a81f9a49..8a4cacd4 100644 --- a/src/tool/ES_MED/eslsm5.F +++ b/src/tool/ES_MED/eslsm5.F @@ -82,17 +82,17 @@ c character*6 nompro parameter ( nompro = 'ESLSM5' ) c -#include "nblang.h" -#include "consts.h" -#include "meddc0.h" + include "nblang.h" + include "consts.h" + include "meddc0.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "esutil.h" -#include "gmenti.h" -#include "gmstri.h" + include "esutil.h" + include "gmenti.h" + include "gmstri.h" c c 0.3. ==> arguments c @@ -139,14 +139,14 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "esimpr.h" + include "esimpr.h" c texte(1,4) = '(''Creation du paquet de fonctions '',i3,'' : '',a)' texte(1,5) = @@ -161,7 +161,7 @@ c texte(2,7) = '(''Pack cannot be found.'')' texte(2,8) = '(''Number of created packs :'',i8)' c -#include "impr03.h" + include "impr03.h" c nbpafo = 0 c @@ -531,7 +531,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/ES_MED/eslsmd.F b/src/tool/ES_MED/eslsmd.F index 3fe38845..8d71aa68 100644 --- a/src/tool/ES_MED/eslsmd.F +++ b/src/tool/ES_MED/eslsmd.F @@ -88,18 +88,18 @@ c character*6 nompro parameter ( nompro = 'ESLSMD' ) c -#include "nblang.h" + include "nblang.h" c -#include "motcle.h" -#include "consts.h" + include "motcle.h" + include "consts.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" -#include "gmreel.h" -#include "gmstri.h" + include "gmenti.h" + include "gmreel.h" + include "gmstri.h" c c 0.3. ==> arguments c @@ -133,16 +133,16 @@ c==== c c 1.1. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" + include "impr03.h" c -#include "esimpr.h" + include "esimpr.h" c c 1.2. ==> nom du fichier contenant la solution c @@ -291,7 +291,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/ES_MED/esouvl.F b/src/tool/ES_MED/esouvl.F index 234273ca..0ad8d752 100644 --- a/src/tool/ES_MED/esouvl.F +++ b/src/tool/ES_MED/esouvl.F @@ -54,14 +54,14 @@ c character*6 nompro parameter ( nompro = 'ESOUVL' ) c -#include "nblang.h" -#include "consts.h" + include "nblang.h" + include "consts.h" c -#include "motcle.h" + include "motcle.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -76,7 +76,7 @@ c 0.4. ==> variables locales c integer iaux c -#include "meddc0.h" + include "meddc0.h" c integer nbmess parameter ( nbmess = 150 ) @@ -89,14 +89,14 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "esimpr.h" + include "esimpr.h" c c==== c 2. ouverture @@ -150,7 +150,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/ES_MED/esveri.F b/src/tool/ES_MED/esveri.F index 9b73c422..96f424d4 100644 --- a/src/tool/ES_MED/esveri.F +++ b/src/tool/ES_MED/esveri.F @@ -53,12 +53,12 @@ c character*6 nompro parameter ( nompro = 'ESVERI' ) c -#include "nblang.h" -#include "consts.h" + include "nblang.h" + include "consts.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -70,7 +70,7 @@ c c c 0.4. ==> variables locales c -#include "meddc0.h" + include "meddc0.h" c integer iaux integer*8 idfmed @@ -90,14 +90,14 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "esimpr.h" + include "esimpr.h" c texte(1,4) = '(''Fichier : '',a)' texte(1,11) = '(''Ce fichier n''''existe pas.'')' @@ -238,7 +238,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/ES_Xfig/pppma1.F b/src/tool/ES_Xfig/pppma1.F index 43170c90..903cb960 100644 --- a/src/tool/ES_Xfig/pppma1.F +++ b/src/tool/ES_Xfig/pppma1.F @@ -84,11 +84,11 @@ c character*6 nompro parameter ( nompro = 'PPPMA1' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -138,7 +138,7 @@ c==== c 1. les messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -414,7 +414,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/ES_Xfig/pppma2.F b/src/tool/ES_Xfig/pppma2.F index de462e62..ee456237 100644 --- a/src/tool/ES_Xfig/pppma2.F +++ b/src/tool/ES_Xfig/pppma2.F @@ -65,13 +65,13 @@ c character*6 nompro parameter ( nompro = 'PPPMA2' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "impr02.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -99,7 +99,7 @@ c==== c 1. les messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -114,7 +114,7 @@ c texte(2,5) = '(''Function over '',a)' texte(2,6) = '(''min = '',g12.5,'', max = '',g12.5)' c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,4)) typcof @@ -231,7 +231,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/ES_Xfig/pppma3.F b/src/tool/ES_Xfig/pppma3.F index feddcd75..5a254ed4 100644 --- a/src/tool/ES_Xfig/pppma3.F +++ b/src/tool/ES_Xfig/pppma3.F @@ -85,13 +85,13 @@ c character*6 nompro parameter ( nompro = 'PPPMA3' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "envca1.h" -#include "nombno.h" + include "envex1.h" + include "envca1.h" + include "nombno.h" c c 0.3. ==> arguments c @@ -139,14 +139,14 @@ c==== c 1. prealables c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,90002) 'nbtrvi', nbtrvi @@ -479,7 +479,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/ES_Xfig/pppma4.F b/src/tool/ES_Xfig/pppma4.F index 3e06b7cb..fa3e4fd1 100644 --- a/src/tool/ES_Xfig/pppma4.F +++ b/src/tool/ES_Xfig/pppma4.F @@ -80,13 +80,13 @@ c character*6 nompro parameter ( nompro = 'PPPMA4' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "envca1.h" -#include "nombno.h" + include "envex1.h" + include "envca1.h" + include "nombno.h" c c 0.3. ==> arguments c @@ -133,7 +133,7 @@ c==== c 1. prealables c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -561,7 +561,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/ES_Xfig/pppma5.F b/src/tool/ES_Xfig/pppma5.F index 8d2b6c3b..3e4e5d41 100644 --- a/src/tool/ES_Xfig/pppma5.F +++ b/src/tool/ES_Xfig/pppma5.F @@ -64,11 +64,11 @@ c character*6 nompro parameter ( nompro = 'PPPMA5' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -104,7 +104,7 @@ c==== c 1. prealables c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -241,7 +241,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/ES_Xfig/pppxma.F b/src/tool/ES_Xfig/pppxma.F index b67115f2..23964119 100644 --- a/src/tool/ES_Xfig/pppxma.F +++ b/src/tool/ES_Xfig/pppxma.F @@ -136,18 +136,18 @@ c character*6 nompro parameter ( nompro = 'PPPXMA' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" -#include "gmreel.h" + include "gmenti.h" + include "gmreel.h" c -#include "nombno.h" -#include "nomber.h" -#include "infini.h" + include "nombno.h" + include "nomber.h" + include "infini.h" c c 0.3. ==> arguments c @@ -203,7 +203,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -214,7 +214,7 @@ c c texte(2,10) = '(''After pp.ma'',i1,'', codret = '',i4)' c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,90002) 'infsup', infsup @@ -396,7 +396,7 @@ c c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/ES_Xfig/ppxma5.F b/src/tool/ES_Xfig/ppxma5.F index eafe4a42..96250351 100644 --- a/src/tool/ES_Xfig/ppxma5.F +++ b/src/tool/ES_Xfig/ppxma5.F @@ -148,23 +148,23 @@ c character*6 nompro parameter ( nompro = 'PPXMA5' ) c -#include "nblang.h" -#include "nuvers.h" -#include "fracta.h" -#include "fractb.h" -#include "fractc.h" + include "nblang.h" + include "nuvers.h" + include "fracta.h" + include "fractb.h" + include "fractc.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" + include "gmenti.h" c -#include "impr02.h" -#include "nombno.h" -#include "nomber.h" -#include "nbutil.h" -#include "infini.h" + include "impr02.h" + include "nombno.h" + include "nomber.h" + include "nbutil.h" + include "infini.h" c c 0.3. ==> arguments c @@ -231,7 +231,7 @@ c==== c 1. Messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -244,7 +244,7 @@ c texte(2,4) = '(''Function over '',a)' texte(2,5) = '(a,'' : min = '',g12.5,'', max = '',g12.5)' c -#include "impr03.h" + include "impr03.h" c codret = 0 c @@ -1568,7 +1568,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Gestion_MTU/gagpmc.F b/src/tool/Gestion_MTU/gagpmc.F index 8bf6536a..f6a7ddc3 100644 --- a/src/tool/Gestion_MTU/gagpmc.F +++ b/src/tool/Gestion_MTU/gagpmc.F @@ -52,26 +52,26 @@ c parameter ( nompro = 'GAGPMC' ) c c -#include "genbla.h" + include "genbla.h" c -#include "gmmaxt.h" -#include "gmmatc.h" + include "gmmaxt.h" + include "gmmatc.h" c c 0.2. ==> communs c -#include "gmtoai.h" -#include "gmtoas.h" + include "gmtoai.h" + include "gmtoas.h" c -#include "gmtrrl.h" -#include "gmtren.h" -#include "gmtrst.h" + include "gmtrrl.h" + include "gmtren.h" + include "gmtrst.h" c -#include "gmalrl.h" -#include "gmalen.h" -#include "gmalst.h" + include "gmalrl.h" + include "gmalen.h" + include "gmalst.h" c -#include "gmimpr.h" -#include "gmlang.h" + include "gmimpr.h" + include "gmlang.h" c c 0.3. ==> arguments c @@ -100,7 +100,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro diff --git a/src/tool/Gestion_MTU/gagpmf.F b/src/tool/Gestion_MTU/gagpmf.F index 7b09aed5..61e0ce83 100644 --- a/src/tool/Gestion_MTU/gagpmf.F +++ b/src/tool/Gestion_MTU/gagpmf.F @@ -72,18 +72,18 @@ c parameter ( nompro = 'GAGPMF' ) c c -#include "genbla.h" + include "genbla.h" c -#include "gmmatc.h" + include "gmmatc.h" c c 0.2. ==> communs c -#include "gmtori.h" -#include "gmtors.h" + include "gmtori.h" + include "gmtors.h" c -#include "gminds.h" -#include "gmimpr.h" -#include "gmlang.h" + include "gminds.h" + include "gmimpr.h" + include "gmlang.h" c c 0.3. ==> arguments c @@ -121,7 +121,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro diff --git a/src/tool/Gestion_MTU/gasgmc.F b/src/tool/Gestion_MTU/gasgmc.F index b2cbcc33..a6ba18c4 100644 --- a/src/tool/Gestion_MTU/gasgmc.F +++ b/src/tool/Gestion_MTU/gasgmc.F @@ -48,18 +48,18 @@ c parameter ( nompro = 'GASGMC' ) c c -#include "genbla.h" + include "genbla.h" c -#include "gmmatc.h" + include "gmmatc.h" c c 0.2. ==> communs c -#include "gminds.h" + include "gminds.h" c -#include "gmcoer.h" -#include "envex1.h" -#include "gmimpr.h" -#include "gmlang.h" + include "gmcoer.h" + include "envex1.h" + include "gmimpr.h" + include "gmlang.h" c c 0.3. ==> arguments c @@ -69,7 +69,7 @@ c c c 0.4. ==> variables locales c -#include "gmixjx.h" + include "gmixjx.h" c character*8 chemin(ix,jx), objter character*8 objdet(nbjx), objlib(nbjx) @@ -104,7 +104,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -333,7 +333,7 @@ c write (ulsort,*) mess write (ulsort,90000) c -#include "envex2.h" + include "envex2.h" c endif c diff --git a/src/tool/Gestion_MTU/gballo.F b/src/tool/Gestion_MTU/gballo.F index f37842ed..19047c67 100644 --- a/src/tool/Gestion_MTU/gballo.F +++ b/src/tool/Gestion_MTU/gballo.F @@ -63,20 +63,20 @@ c character*6 nompro parameter ( nompro = 'GBALLO' ) c -#include "gmmatc.h" -#include "genbla.h" + include "gmmatc.h" + include "genbla.h" c c 0.2. ==> communs c -#include "gmtori.h" -#include "gmtoai.h" -#include "gmtors.h" -#include "gmtoas.h" -#include "gmimpr.h" + include "gmtori.h" + include "gmtoai.h" + include "gmtors.h" + include "gmtoas.h" + include "gmimpr.h" c -#include "envex1.h" -#include "gmlang.h" -#include "gmcoer.h" + include "envex1.h" + include "gmlang.h" + include "gmcoer.h" c c 0.3. ==> arguments c @@ -102,14 +102,14 @@ c c c 0.5. ==> initialisations c -#include "alphnu.h" + include "alphnu.h" c data nfois / 0 / c adress = 0 codret = 0 c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -386,7 +386,7 @@ c c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c endif c diff --git a/src/tool/Gestion_MTU/gbalme.F b/src/tool/Gestion_MTU/gbalme.F index c1406adf..f65cff3d 100644 --- a/src/tool/Gestion_MTU/gbalme.F +++ b/src/tool/Gestion_MTU/gbalme.F @@ -41,16 +41,16 @@ c character*6 nompro parameter ( nompro = 'GBALME' ) c -#include "genbla.h" + include "genbla.h" c c 0.2. ==> communs c -#include "gmtail.h" + include "gmtail.h" c -#include "gmimpr.h" -#include "envex1.h" -#include "gmlang.h" -#include "gmcoer.h" + include "gmimpr.h" + include "envex1.h" + include "gmlang.h" + include "gmcoer.h" c c 0.3. ==> arguments c @@ -70,7 +70,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -115,7 +115,7 @@ c==== c if ( coergm.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c endif c diff --git a/src/tool/Gestion_MTU/gbaloj.F b/src/tool/Gestion_MTU/gbaloj.F index 3f3418ab..6c089ebf 100644 --- a/src/tool/Gestion_MTU/gbaloj.F +++ b/src/tool/Gestion_MTU/gbaloj.F @@ -49,14 +49,14 @@ c implicit none save c -#include "gmmatc.h" + include "gmmatc.h" c c 0.2. ==> communs c -#include "gmtori.h" -#include "gmtoai.h" -#include "gmtors.h" -#include "gmtoas.h" + include "gmtori.h" + include "gmtoai.h" + include "gmtors.h" + include "gmtoas.h" c c 0.3. ==> arguments c diff --git a/src/tool/Gestion_MTU/gbcara.F b/src/tool/Gestion_MTU/gbcara.F index 0756980b..9bc9e164 100644 --- a/src/tool/Gestion_MTU/gbcara.F +++ b/src/tool/Gestion_MTU/gbcara.F @@ -59,26 +59,26 @@ c character*6 nompro parameter ( nompro = 'GBCARA' ) c -#include "genbla.h" -#include "gmmaxt.h" + include "genbla.h" + include "gmmaxt.h" c c 0.2. ==> communs c -#include "gmtail.h" -#include "gmtyge.h" + include "gmtail.h" + include "gmtyge.h" c -#include "gmtrrl.h" -#include "gmtren.h" -#include "gmtrst.h" + include "gmtrrl.h" + include "gmtren.h" + include "gmtrst.h" c -#include "gmalrl.h" -#include "gmalen.h" -#include "gmalst.h" + include "gmalrl.h" + include "gmalen.h" + include "gmalst.h" c -#include "envex1.h" -#include "gmcoer.h" -#include "gmimpr.h" -#include "gmlang.h" + include "envex1.h" + include "gmcoer.h" + include "gmimpr.h" + include "gmlang.h" c c 0.3. ==> arguments c @@ -114,7 +114,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -349,7 +349,7 @@ c #endif c if ( iaux.eq.20 ) then -#include "envex2.h" + include "envex2.h" call ugstop('gbcara',ulsort,1,1,1) endif c diff --git a/src/tool/Gestion_MTU/gbdnoe.F b/src/tool/Gestion_MTU/gbdnoe.F index 699e6db2..09d9aa2f 100644 --- a/src/tool/Gestion_MTU/gbdnoe.F +++ b/src/tool/Gestion_MTU/gbdnoe.F @@ -62,10 +62,10 @@ c c c 0.2. ==> communs c -#include "gminds.h" -#include "gmcoer.h" + include "gminds.h" + include "gmcoer.h" #ifdef _DEBUG_HOMARD_ -#include "gmimpr.h" + include "gmimpr.h" #endif c c 0.3. ==> arguments @@ -77,7 +77,7 @@ c c c 0.4. ==> variables locales c -#include "gmnelx.h" + include "gmnelx.h" c character*1 sepa(4) character*8 nomfis diff --git a/src/tool/Gestion_MTU/gbdnof.F b/src/tool/Gestion_MTU/gbdnof.F index f637a177..18b541b2 100644 --- a/src/tool/Gestion_MTU/gbdnof.F +++ b/src/tool/Gestion_MTU/gbdnof.F @@ -50,17 +50,17 @@ c implicit none save c -#include "gmmatc.h" + include "gmmatc.h" c c 0.2. ==> communs c -#include "gmtori.h" -#include "gmtoai.h" -#include "gmtors.h" -#include "gmtoas.h" -#include "gminds.h" -#include "gmimpr.h" -#include "gmcoer.h" + include "gmtori.h" + include "gmtoai.h" + include "gmtors.h" + include "gmtoas.h" + include "gminds.h" + include "gmimpr.h" + include "gmcoer.h" c c 0.3. ==> arguments c diff --git a/src/tool/Gestion_MTU/gbdtoj.F b/src/tool/Gestion_MTU/gbdtoj.F index 45906c89..528bd35b 100644 --- a/src/tool/Gestion_MTU/gbdtoj.F +++ b/src/tool/Gestion_MTU/gbdtoj.F @@ -52,21 +52,21 @@ c character*6 nompro parameter ( nompro = 'GBDTOJ' ) c -#include "genbla.h" -#include "gmmatc.h" + include "genbla.h" + include "gmmatc.h" c c 0.2. ==> communs c -#include "gmtori.h" -#include "gmtoai.h" -#include "gmtoas.h" + include "gmtori.h" + include "gmtoai.h" + include "gmtoas.h" c -#include "gminds.h" + include "gminds.h" c -#include "gmimpr.h" -#include "envex1.h" -#include "gmlang.h" -#include "gmcoer.h" + include "gmimpr.h" + include "envex1.h" + include "gmlang.h" + include "gmcoer.h" c c 0.3. ==> arguments c @@ -90,7 +90,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -158,7 +158,7 @@ c==== c if ( coergm.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c endif c diff --git a/src/tool/Gestion_MTU/gbgeno.F b/src/tool/Gestion_MTU/gbgeno.F index 8308b789..95f3fe2d 100644 --- a/src/tool/Gestion_MTU/gbgeno.F +++ b/src/tool/Gestion_MTU/gbgeno.F @@ -72,17 +72,17 @@ c implicit none save c -#include "gmmatc.h" + include "gmmatc.h" c c 0.2. ==> communs c -#include "gmtori.h" -#include "gmtoai.h" -#include "gmtors.h" -#include "gmtoas.h" -#include "gminom.h" + include "gmtori.h" + include "gmtoai.h" + include "gmtors.h" + include "gmtoas.h" + include "gminom.h" c -#include "gmimpr.h" + include "gmimpr.h" c c 0.3. ==> arguments c @@ -101,7 +101,7 @@ c c c 0.5. ==> initialisations c -#include "alphnu.h" + include "alphnu.h" c ______________________________________________________________________ c c==== diff --git a/src/tool/Gestion_MTU/gbitos.F b/src/tool/Gestion_MTU/gbitos.F index 9f6ee5bf..481b0a2e 100644 --- a/src/tool/Gestion_MTU/gbitos.F +++ b/src/tool/Gestion_MTU/gbitos.F @@ -54,25 +54,25 @@ c character*6 nompro parameter ( nompro = 'GBITOS' ) c -#include "genbla.h" + include "genbla.h" c -#include "gmmatc.h" + include "gmmatc.h" c c 0.2. ==> communs c -#include "gmtori.h" -#include "gmtoai.h" -#include "gmtors.h" -#include "gmtoas.h" -#include "gmtove.h" + include "gmtori.h" + include "gmtoai.h" + include "gmtors.h" + include "gmtoas.h" + include "gmtove.h" c -#include "gminom.h" -#include "gmtail.h" -#include "gmindi.h" -#include "gminds.h" + include "gminom.h" + include "gmtail.h" + include "gmindi.h" + include "gminds.h" c -#include "gmimpr.h" -#include "gmlang.h" + include "gmimpr.h" + include "gmlang.h" c c 0.3. ==> arguments c @@ -82,7 +82,7 @@ c c c 0.4. ==> variables locales c -#include "gmnelx.h" + include "gmnelx.h" c integer lelm(nelx), nelm, lgtot, ns integer nftypo, ipart, ncham, ncha, iadr, it @@ -109,7 +109,7 @@ c==== c 1. les messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro diff --git a/src/tool/Gestion_MTU/gblboj.F b/src/tool/Gestion_MTU/gblboj.F index c6145701..c9f2c366 100644 --- a/src/tool/Gestion_MTU/gblboj.F +++ b/src/tool/Gestion_MTU/gblboj.F @@ -40,20 +40,20 @@ c character*6 nompro parameter ( nompro = 'GBLBOJ' ) c -#include "gmmatc.h" -#include "genbla.h" + include "gmmatc.h" + include "genbla.h" c c 0.2. ==> communs c -#include "gmtoai.h" -#include "gmtoas.h" -#include "gmindi.h" -#include "gminds.h" + include "gmtoai.h" + include "gmtoas.h" + include "gmindi.h" + include "gminds.h" c -#include "gmimpr.h" -#include "envex1.h" -#include "gmlang.h" -#include "gmcoer.h" + include "gmimpr.h" + include "envex1.h" + include "gmlang.h" + include "gmcoer.h" c c 0.3. ==> arguments c @@ -73,7 +73,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -221,7 +221,7 @@ c c write(ulsort,*) nompro, ', code retour ',coergm,' pour ',nomter c -#include "envex2.h" + include "envex2.h" c endif c diff --git a/src/tool/Gestion_MTU/gblibe.F b/src/tool/Gestion_MTU/gblibe.F index 4ef6465e..5a881d7f 100644 --- a/src/tool/Gestion_MTU/gblibe.F +++ b/src/tool/Gestion_MTU/gblibe.F @@ -42,9 +42,9 @@ c c c 0.2. ==> communs c -#include "gmtail.h" + include "gmtail.h" c -#include "gmimpr.h" + include "gmimpr.h" c c 0.3. ==> arguments c diff --git a/src/tool/Gestion_MTU/gbntcr.F b/src/tool/Gestion_MTU/gbntcr.F index d993d8dc..56f0059b 100644 --- a/src/tool/Gestion_MTU/gbntcr.F +++ b/src/tool/Gestion_MTU/gbntcr.F @@ -35,17 +35,17 @@ c implicit none save c -#include "gmmaxt.h" -#include "gmmatc.h" + include "gmmaxt.h" + include "gmmatc.h" c -#include "gmcain.h" + include "gmcain.h" c c 0.2. ==> communs c -#include "gmtenb.h" -#include "gmteno.h" + include "gmtenb.h" + include "gmteno.h" #ifdef _DEBUG_HOMARD_ -#include "gmimpr.h" + include "gmimpr.h" #endif c c 0.3. ==> arguments diff --git a/src/tool/Gestion_MTU/gbntde.F b/src/tool/Gestion_MTU/gbntde.F index bb225ce8..93f18fcd 100644 --- a/src/tool/Gestion_MTU/gbntde.F +++ b/src/tool/Gestion_MTU/gbntde.F @@ -38,15 +38,15 @@ c implicit none save c -#include "gmmaxt.h" -#include "gmmatc.h" + include "gmmaxt.h" + include "gmmatc.h" c c 0.2. ==> communs c -#include "gmtenb.h" -#include "gmteno.h" -#include "gminds.h" -#include "gmimpr.h" + include "gmtenb.h" + include "gmteno.h" + include "gminds.h" + include "gmimpr.h" c c 0.3. ==> arguments c diff --git a/src/tool/Gestion_MTU/gbobal.F b/src/tool/Gestion_MTU/gbobal.F index f9140de0..33f44ca9 100644 --- a/src/tool/Gestion_MTU/gbobal.F +++ b/src/tool/Gestion_MTU/gbobal.F @@ -49,18 +49,18 @@ c implicit none save c -#include "gmmatc.h" + include "gmmatc.h" c c 0.2. ==> communs c -#include "gmtori.h" -#include "gmtoai.h" -#include "gmtors.h" -#include "gmtoas.h" -#include "gmindi.h" + include "gmtori.h" + include "gmtoai.h" + include "gmtors.h" + include "gmtoas.h" + include "gmindi.h" c -#include "gmimpr.h" -#include "gmcoer.h" + include "gmimpr.h" + include "gmcoer.h" c c 0.3. ==> arguments c diff --git a/src/tool/Gestion_MTU/gbpart.F b/src/tool/Gestion_MTU/gbpart.F index 742423f6..4e875102 100644 --- a/src/tool/Gestion_MTU/gbpart.F +++ b/src/tool/Gestion_MTU/gbpart.F @@ -54,7 +54,7 @@ c 0.2. ==> communs c c 0.3. ==> arguments c -#include "gmnelx.h" + include "gmnelx.h" c character*(*) chaine character*80 elem(nelx) diff --git a/src/tool/Gestion_MTU/gbralo.F b/src/tool/Gestion_MTU/gbralo.F index a88ef4fb..e09b703a 100644 --- a/src/tool/Gestion_MTU/gbralo.F +++ b/src/tool/Gestion_MTU/gbralo.F @@ -46,9 +46,9 @@ c c c 0.2. ==> communs c -#include "gmtail.h" + include "gmtail.h" c -#include "gmimpr.h" + include "gmimpr.h" c c 0.3. ==> arguments c diff --git a/src/tool/Gestion_MTU/gmadoj.F b/src/tool/Gestion_MTU/gmadoj.F index 90395ade..8beb44ee 100644 --- a/src/tool/Gestion_MTU/gmadoj.F +++ b/src/tool/Gestion_MTU/gmadoj.F @@ -50,9 +50,9 @@ c c c 0.2. ==> communs c -#include "gmindi.h" -#include "gmimpr.h" -#include "gmcoer.h" + include "gmindi.h" + include "gmimpr.h" + include "gmcoer.h" c c 0.3. ==> arguments c diff --git a/src/tool/Gestion_MTU/gmalog.F b/src/tool/Gestion_MTU/gmalog.F index 501a277d..0f011b88 100644 --- a/src/tool/Gestion_MTU/gmalog.F +++ b/src/tool/Gestion_MTU/gmalog.F @@ -104,26 +104,26 @@ c character*6 nompro parameter ( nompro = 'GMALOG' ) c -#include "gmmaxt.h" -#include "gmptrd.h" + include "gmmaxt.h" + include "gmptrd.h" c -#include "genbla.h" -#include "gmcain.h" + include "genbla.h" + include "gmcain.h" c c 0.2. ==> communs c -#include "gmtyge.h" -#include "gmtail.h" -#include "gmindi.h" + include "gmtyge.h" + include "gmtail.h" + include "gmindi.h" c -#include "gmenti.h" -#include "gmreel.h" -#include "gmstri.h" + include "gmenti.h" + include "gmreel.h" + include "gmstri.h" c -#include "envex1.h" -#include "gmcoer.h" -#include "gmimpr.h" -#include "gmlang.h" + include "envex1.h" + include "gmcoer.h" + include "gmimpr.h" + include "gmlang.h" c c 0.3. ==> arguments c @@ -168,7 +168,7 @@ c==== c 1. preliminaires c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -676,7 +676,7 @@ c==== c if ( coergm.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c endif c diff --git a/src/tool/Gestion_MTU/gmaloi.F b/src/tool/Gestion_MTU/gmaloi.F index fc9e05a1..e0cfb5e8 100644 --- a/src/tool/Gestion_MTU/gmaloi.F +++ b/src/tool/Gestion_MTU/gmaloi.F @@ -42,21 +42,21 @@ c character*6 nompro parameter ( nompro = 'GMALOI' ) c -#include "genbla.h" -#include "gmmaxt.h" + include "genbla.h" + include "gmmaxt.h" c c 0.2. ==> communs c -#include "gmenti.h" -#include "gmadui.h" -#include "gmtren.h" -#include "gmalen.h" -#include "gmindi.h" -#include "gmindf.h" -#include "gmimpr.h" -#include "envex1.h" -#include "gmcoer.h" -#include "gmlang.h" + include "gmenti.h" + include "gmadui.h" + include "gmtren.h" + include "gmalen.h" + include "gmindi.h" + include "gmindf.h" + include "gmimpr.h" + include "envex1.h" + include "gmcoer.h" + include "gmlang.h" c c 0.3. ==> arguments c @@ -78,7 +78,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -139,7 +139,7 @@ c c if ( coergm.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c endif c diff --git a/src/tool/Gestion_MTU/gmaloj.F b/src/tool/Gestion_MTU/gmaloj.F index bda9969e..b8307303 100644 --- a/src/tool/Gestion_MTU/gmaloj.F +++ b/src/tool/Gestion_MTU/gmaloj.F @@ -59,14 +59,14 @@ c character*6 nompro parameter ( nompro = 'GMALOJ' ) c -#include "gmcain.h" -#include "genbla.h" + include "gmcain.h" + include "genbla.h" c c 0.2. ==> communs c -#include "gmimpr.h" -#include "envex1.h" -#include "gmlang.h" + include "gmimpr.h" + include "envex1.h" + include "gmlang.h" c c 0.3. ==> arguments c @@ -88,7 +88,7 @@ c==== c 1. Initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -143,7 +143,7 @@ c write (ulsort,texte(langue,5)) typobj write (ulsort,texte(langue,6)) long c -#include "envex2.h" + include "envex2.h" c endif c diff --git a/src/tool/Gestion_MTU/gmalor.F b/src/tool/Gestion_MTU/gmalor.F index ddc04f20..e4f91c7f 100644 --- a/src/tool/Gestion_MTU/gmalor.F +++ b/src/tool/Gestion_MTU/gmalor.F @@ -46,21 +46,21 @@ c character*6 nompro parameter ( nompro = 'GMALOR' ) c -#include "genbla.h" -#include "gmmaxt.h" + include "genbla.h" + include "gmmaxt.h" c c 0.2. ==> communs c -#include "gmreel.h" -#include "gmadur.h" -#include "gmtrrl.h" -#include "gmalrl.h" -#include "gmindf.h" -#include "gmindr.h" -#include "envex1.h" -#include "gmimpr.h" -#include "gmcoer.h" -#include "gmlang.h" + include "gmreel.h" + include "gmadur.h" + include "gmtrrl.h" + include "gmalrl.h" + include "gmindf.h" + include "gmindr.h" + include "envex1.h" + include "gmimpr.h" + include "gmcoer.h" + include "gmlang.h" c c 0.3. ==> arguments c @@ -83,7 +83,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -138,7 +138,7 @@ c c if ( coergm.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c endif c diff --git a/src/tool/Gestion_MTU/gmalos.F b/src/tool/Gestion_MTU/gmalos.F index 3e887203..097b54a5 100644 --- a/src/tool/Gestion_MTU/gmalos.F +++ b/src/tool/Gestion_MTU/gmalos.F @@ -42,22 +42,22 @@ c character*6 nompro parameter ( nompro = 'GMALOS' ) c -#include "genbla.h" -#include "gmmaxt.h" + include "genbla.h" + include "gmmaxt.h" c c 0.2. ==> communs c -#include "gmstri.h" -#include "gmadus.h" -#include "gmtrst.h" -#include "gmalst.h" -#include "gmindf.h" -#include "gminds.h" -#include "gmimpr.h" + include "gmstri.h" + include "gmadus.h" + include "gmtrst.h" + include "gmalst.h" + include "gmindf.h" + include "gminds.h" + include "gmimpr.h" c -#include "envex1.h" -#include "gmcoer.h" -#include "gmlang.h" + include "envex1.h" + include "gmcoer.h" + include "gmlang.h" c c 0.3. ==> arguments c @@ -80,7 +80,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -143,7 +143,7 @@ c c if ( coergm.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c endif c diff --git a/src/tool/Gestion_MTU/gmalot.F b/src/tool/Gestion_MTU/gmalot.F index 2b58400f..971eae2c 100644 --- a/src/tool/Gestion_MTU/gmalot.F +++ b/src/tool/Gestion_MTU/gmalot.F @@ -59,15 +59,15 @@ c character*6 nompro parameter ( nompro = 'GMALOT' ) c -#include "gmmaxt.h" -#include "gmcain.h" -#include "genbla.h" + include "gmmaxt.h" + include "gmcain.h" + include "genbla.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "gmlang.h" -#include "gmimpr.h" + include "envex1.h" + include "gmlang.h" + include "gmimpr.h" c c 0.3. ==> arguments c @@ -98,7 +98,7 @@ c==== c 2. Initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -161,7 +161,7 @@ c write (ulsort,texte(langue,5)) typobj write (ulsort,texte(langue,6)) long c -#include "envex2.h" + include "envex2.h" c endif c diff --git a/src/tool/Gestion_MTU/gmatoj.F b/src/tool/Gestion_MTU/gmatoj.F index 586f5548..52f971bf 100644 --- a/src/tool/Gestion_MTU/gmatoj.F +++ b/src/tool/Gestion_MTU/gmatoj.F @@ -52,17 +52,17 @@ c implicit none save c -#include "gmmatc.h" + include "gmmatc.h" c c 0.2. ==> communs c -#include "gmtori.h" -#include "gmtoai.h" -#include "gmtors.h" -#include "gmtoas.h" + include "gmtori.h" + include "gmtoai.h" + include "gmtors.h" + include "gmtoas.h" c -#include "gmcoer.h" -#include "gmimpr.h" + include "gmcoer.h" + include "gmimpr.h" c c 0.3. ==> arguments c diff --git a/src/tool/Gestion_MTU/gmcata.F b/src/tool/Gestion_MTU/gmcata.F index 70ae6d95..72779e92 100644 --- a/src/tool/Gestion_MTU/gmcata.F +++ b/src/tool/Gestion_MTU/gmcata.F @@ -47,11 +47,11 @@ c implicit none save c -#include "gmmaxt.h" + include "gmmaxt.h" c c 0.2. ==> communs c -#include "gmimpr.h" + include "gmimpr.h" c c 0.3. ==> arguments c diff --git a/src/tool/Gestion_MTU/gmcmpr.F b/src/tool/Gestion_MTU/gmcmpr.F index f96fbfa0..0f0591a9 100644 --- a/src/tool/Gestion_MTU/gmcmpr.F +++ b/src/tool/Gestion_MTU/gmcmpr.F @@ -62,31 +62,31 @@ c implicit none save c -#include "gmmaxt.h" + include "gmmaxt.h" c c 0.2. ==> communs c -#include "gmtyge.h" + include "gmtyge.h" c -#include "gmenti.h" -#include "gmreel.h" -#include "gmstri.h" + include "gmenti.h" + include "gmreel.h" + include "gmstri.h" c -#include "gmtrrl.h" -#include "gmtren.h" -#include "gmtrst.h" + include "gmtrrl.h" + include "gmtren.h" + include "gmtrst.h" c -#include "gmalrl.h" -#include "gmalen.h" -#include "gmalst.h" + include "gmalrl.h" + include "gmalen.h" + include "gmalst.h" c -#include "gmadui.h" -#include "gmadur.h" -#include "gmadus.h" + include "gmadui.h" + include "gmadur.h" + include "gmadus.h" c -#include "gmimpr.h" + include "gmimpr.h" c -#include "gmindf.h" + include "gmindf.h" c c 0.3. ==> arguments c @@ -111,7 +111,7 @@ c write(ulsort,*) 'Compression de la memoire' #endif c -#include "impr03.h" + include "impr03.h" c c==== c 1. Pas de compression en mode dynamique diff --git a/src/tool/Gestion_MTU/gmcpal.F b/src/tool/Gestion_MTU/gmcpal.F index 91a4e074..85d8317f 100644 --- a/src/tool/Gestion_MTU/gmcpal.F +++ b/src/tool/Gestion_MTU/gmcpal.F @@ -50,7 +50,7 @@ c c c 0.2. ==> communs c -#include "gmcoer.h" + include "gmcoer.h" c c 0.3. ==> arguments c diff --git a/src/tool/Gestion_MTU/gmcpgp.F b/src/tool/Gestion_MTU/gmcpgp.F index dbe76ea4..75b3150c 100644 --- a/src/tool/Gestion_MTU/gmcpgp.F +++ b/src/tool/Gestion_MTU/gmcpgp.F @@ -54,15 +54,15 @@ c parameter ( nompro = 'GMCPGP' ) c c -#include "genbla.h" + include "genbla.h" c c 0.2. ==> communs c -#include "gminds.h" + include "gminds.h" c -#include "gmcoer.h" -#include "gmimpr.h" -#include "gmlang.h" + include "gmcoer.h" + include "gmimpr.h" + include "gmlang.h" c c 0.3. ==> arguments c @@ -71,7 +71,7 @@ c c c 0.4. ==> variables locales c -#include "gmixjx.h" + include "gmixjx.h" c integer iaux, jaux integer i,nbj,ide1,ioa1,ity1,ide2,isup,igrp @@ -99,7 +99,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro diff --git a/src/tool/Gestion_MTU/gmcpoj.F b/src/tool/Gestion_MTU/gmcpoj.F index 2c08b273..c0bcd390 100644 --- a/src/tool/Gestion_MTU/gmcpoj.F +++ b/src/tool/Gestion_MTU/gmcpoj.F @@ -48,20 +48,20 @@ c implicit none save c -#include "gmmatc.h" + include "gmmatc.h" c c 0.2. ==> communs c -#include "gmtori.h" -#include "gmtoai.h" -#include "gmtors.h" -#include "gmtoas.h" -#include "gmenti.h" -#include "gmreel.h" -#include "gmstri.h" + include "gmtori.h" + include "gmtoai.h" + include "gmtors.h" + include "gmtoas.h" + include "gmenti.h" + include "gmreel.h" + include "gmstri.h" c -#include "gmimpr.h" -#include "gmcoer.h" + include "gmimpr.h" + include "gmcoer.h" c c 0.3. ==> arguments c diff --git a/src/tool/Gestion_MTU/gmdesa.F b/src/tool/Gestion_MTU/gmdesa.F index b5eb509b..e41f05d3 100644 --- a/src/tool/Gestion_MTU/gmdesa.F +++ b/src/tool/Gestion_MTU/gmdesa.F @@ -48,21 +48,21 @@ c character*6 nompro parameter ( nompro = 'GMDESA' ) c -#include "genbla.h" -#include "gmmaxt.h" + include "genbla.h" + include "gmmaxt.h" c c 0.2. ==> communs c -#include "gmtrrl.h" -#include "gmtren.h" -#include "gmtrst.h" -#include "gmalrl.h" -#include "gmalen.h" -#include "gmalst.h" -#include "gmimpr.h" -#include "gmcoer.h" -#include "envex1.h" -#include "gmlang.h" + include "gmtrrl.h" + include "gmtren.h" + include "gmtrst.h" + include "gmalrl.h" + include "gmalen.h" + include "gmalst.h" + include "gmimpr.h" + include "gmcoer.h" + include "envex1.h" + include "gmlang.h" c c 0.3. ==> arguments c @@ -89,7 +89,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -232,7 +232,7 @@ c c if ( coergm.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c endif c diff --git a/src/tool/Gestion_MTU/gmdesg.F b/src/tool/Gestion_MTU/gmdesg.F index 4a90b3f4..4bd593c3 100644 --- a/src/tool/Gestion_MTU/gmdesg.F +++ b/src/tool/Gestion_MTU/gmdesg.F @@ -82,25 +82,25 @@ c character*6 nompro parameter ( nompro = 'GMDESG' ) c -#include "genbla.h" -#include "gmmaxt.h" + include "genbla.h" + include "gmmaxt.h" c c 0.2. ==> communs c -#include "gmtail.h" -#include "gmtyge.h" + include "gmtail.h" + include "gmtyge.h" c -#include "gmindi.h" -#include "gminds.h" + include "gmindi.h" + include "gminds.h" c -#include "gmtrrl.h" -#include "gmtren.h" -#include "gmtrst.h" + include "gmtrrl.h" + include "gmtren.h" + include "gmtrst.h" c -#include "gmimpr.h" -#include "envex1.h" -#include "gmlang.h" -#include "gmcoer.h" + include "gmimpr.h" + include "envex1.h" + include "gmlang.h" + include "gmcoer.h" c c 0.3. ==> arguments c @@ -147,7 +147,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -443,7 +443,7 @@ c==== c if ( coergm.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c endif c diff --git a/src/tool/Gestion_MTU/gmdesi.F b/src/tool/Gestion_MTU/gmdesi.F index 57b7ad32..6d8f5e5b 100644 --- a/src/tool/Gestion_MTU/gmdesi.F +++ b/src/tool/Gestion_MTU/gmdesi.F @@ -48,19 +48,19 @@ c character*6 nompro parameter ( nompro = 'GMDESI' ) c -#include "genbla.h" -#include "gmmaxt.h" + include "genbla.h" + include "gmmaxt.h" c c 0.2. ==> communs c -#include "gmadui.h" -#include "gmtren.h" -#include "gmalen.h" + include "gmadui.h" + include "gmtren.h" + include "gmalen.h" c -#include "gmimpr.h" -#include "envex1.h" -#include "gmlang.h" -#include "gmcoer.h" + include "gmimpr.h" + include "envex1.h" + include "gmlang.h" + include "gmcoer.h" c c 0.3. ==> arguments c @@ -84,7 +84,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -106,7 +106,7 @@ c==== c if ( coergm.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c endif c diff --git a/src/tool/Gestion_MTU/gmdesr.F b/src/tool/Gestion_MTU/gmdesr.F index e6f13d49..c5981253 100644 --- a/src/tool/Gestion_MTU/gmdesr.F +++ b/src/tool/Gestion_MTU/gmdesr.F @@ -48,19 +48,19 @@ c character*6 nompro parameter ( nompro = 'GMDESR' ) c -#include "genbla.h" -#include "gmmaxt.h" + include "genbla.h" + include "gmmaxt.h" c c 0.2. ==> communs c -#include "gmadur.h" -#include "gmtrrl.h" -#include "gmalrl.h" + include "gmadur.h" + include "gmtrrl.h" + include "gmalrl.h" c -#include "gmimpr.h" -#include "envex1.h" -#include "gmlang.h" -#include "gmcoer.h" + include "gmimpr.h" + include "envex1.h" + include "gmlang.h" + include "gmcoer.h" c c 0.3. ==> arguments c @@ -84,7 +84,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -106,7 +106,7 @@ c==== c if ( coergm.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c endif c diff --git a/src/tool/Gestion_MTU/gmdess.F b/src/tool/Gestion_MTU/gmdess.F index 31297d28..33cc6b8e 100644 --- a/src/tool/Gestion_MTU/gmdess.F +++ b/src/tool/Gestion_MTU/gmdess.F @@ -48,19 +48,19 @@ c character*6 nompro parameter ( nompro = 'GMDESS' ) c -#include "genbla.h" -#include "gmmaxt.h" + include "genbla.h" + include "gmmaxt.h" c c 0.2. ==> communs c -#include "gmadus.h" -#include "gmtrst.h" -#include "gmalst.h" + include "gmadus.h" + include "gmtrst.h" + include "gmalst.h" c -#include "gmimpr.h" -#include "envex1.h" -#include "gmlang.h" -#include "gmcoer.h" + include "gmimpr.h" + include "envex1.h" + include "gmlang.h" + include "gmcoer.h" c c 0.3. ==> arguments c @@ -87,7 +87,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -109,7 +109,7 @@ c==== c if ( coergm.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c endif c diff --git a/src/tool/Gestion_MTU/gmdmp.F b/src/tool/Gestion_MTU/gmdmp.F index c1622560..e26869d7 100644 --- a/src/tool/Gestion_MTU/gmdmp.F +++ b/src/tool/Gestion_MTU/gmdmp.F @@ -41,12 +41,12 @@ c implicit none save c -#include "gmmatc.h" + include "gmmatc.h" c c 0.2. ==> communs c -#include "gmtors.h" -#include "gmimpr.h" + include "gmtors.h" + include "gmimpr.h" c c 0.3. ==> arguments c diff --git a/src/tool/Gestion_MTU/gmdmpg.F b/src/tool/Gestion_MTU/gmdmpg.F index 89638939..52a4939b 100644 --- a/src/tool/Gestion_MTU/gmdmpg.F +++ b/src/tool/Gestion_MTU/gmdmpg.F @@ -68,17 +68,17 @@ c character*6 nompro parameter ( nompro = 'GMDMPG' ) c -#include "genbla.h" -#include "gmmaxt.h" -#include "gmptrd.h" + include "genbla.h" + include "gmmaxt.h" + include "gmptrd.h" c c 0.2. ==> communs c -#include "gmtail.h" -#include "gmtyge.h" + include "gmtail.h" + include "gmtyge.h" c -#include "gmimpr.h" -#include "gmlang.h" + include "gmimpr.h" + include "gmlang.h" c c 0.3. ==> arguments c @@ -113,7 +113,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro diff --git a/src/tool/Gestion_MTU/gmdmpi.F b/src/tool/Gestion_MTU/gmdmpi.F index 10e1dc11..5fa9b362 100644 --- a/src/tool/Gestion_MTU/gmdmpi.F +++ b/src/tool/Gestion_MTU/gmdmpi.F @@ -45,15 +45,15 @@ c implicit none save c -#include "gmmaxt.h" + include "gmmaxt.h" c c 0.2. ==> communs c -#include "gmenti.h" + include "gmenti.h" c -#include "gmadui.h" -#include "gmtren.h" -#include "gmalen.h" + include "gmadui.h" + include "gmtren.h" + include "gmalen.h" c c 0.3. ==> arguments c diff --git a/src/tool/Gestion_MTU/gmdmpr.F b/src/tool/Gestion_MTU/gmdmpr.F index 4f22d683..4e2f7c49 100644 --- a/src/tool/Gestion_MTU/gmdmpr.F +++ b/src/tool/Gestion_MTU/gmdmpr.F @@ -44,16 +44,16 @@ c implicit none save c -#include "gmmaxt.h" + include "gmmaxt.h" c c 0.2. ==> communs c -#include "gmreel.h" + include "gmreel.h" c -#include "gmadur.h" -#include "gmtrrl.h" + include "gmadur.h" + include "gmtrrl.h" c -#include "gmalrl.h" + include "gmalrl.h" c c 0.3. ==> arguments c diff --git a/src/tool/Gestion_MTU/gmdmps.F b/src/tool/Gestion_MTU/gmdmps.F index c176b19d..00200f04 100644 --- a/src/tool/Gestion_MTU/gmdmps.F +++ b/src/tool/Gestion_MTU/gmdmps.F @@ -45,15 +45,15 @@ c implicit none save c -#include "gmmaxt.h" + include "gmmaxt.h" c c 0.2. ==> communs c -#include "gmstri.h" + include "gmstri.h" c -#include "gmadus.h" -#include "gmtrst.h" -#include "gmalst.h" + include "gmadus.h" + include "gmtrst.h" + include "gmalst.h" c c 0.3. ==> arguments c diff --git a/src/tool/Gestion_MTU/gmdmpt.F b/src/tool/Gestion_MTU/gmdmpt.F index 6b4f82b1..a888afe8 100644 --- a/src/tool/Gestion_MTU/gmdmpt.F +++ b/src/tool/Gestion_MTU/gmdmpt.F @@ -42,15 +42,15 @@ c implicit none save c -#include "gmmatc.h" + include "gmmatc.h" c c 0.2. ==> communs c -#include "gmtori.h" -#include "gmtoai.h" -#include "gmtors.h" -#include "gmtoas.h" -#include "gmimpr.h" + include "gmtori.h" + include "gmtoai.h" + include "gmtors.h" + include "gmtoas.h" + include "gmimpr.h" c c 0.3. ==> arguments c diff --git a/src/tool/Gestion_MTU/gmdtoj.F b/src/tool/Gestion_MTU/gmdtoj.F index f26c8a2d..f22bf081 100644 --- a/src/tool/Gestion_MTU/gmdtoj.F +++ b/src/tool/Gestion_MTU/gmdtoj.F @@ -46,15 +46,15 @@ c character*6 nompro parameter ( nompro = 'GMDTOJ' ) c -#include "genbla.h" -#include "gmmatc.h" + include "genbla.h" + include "gmmatc.h" c c 0.2. ==> communs c -#include "gmimpr.h" -#include "envex1.h" -#include "gmlang.h" -#include "gmcoer.h" + include "gmimpr.h" + include "envex1.h" + include "gmlang.h" + include "gmcoer.h" c c 0.3. ==> arguments c @@ -76,7 +76,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -139,7 +139,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c endif c diff --git a/src/tool/Gestion_MTU/gmecat.F b/src/tool/Gestion_MTU/gmecat.F index 174b04d9..b0a728c2 100644 --- a/src/tool/Gestion_MTU/gmecat.F +++ b/src/tool/Gestion_MTU/gmecat.F @@ -52,13 +52,13 @@ c implicit none save c -#include "gmmatc.h" + include "gmmatc.h" c c 0.2. ==> communs c -#include "gmtori.h" -#include "gmtoai.h" -#include "gmtoas.h" + include "gmtori.h" + include "gmtoai.h" + include "gmtoas.h" c c 0.3. ==> arguments c diff --git a/src/tool/Gestion_MTU/gmecpr.F b/src/tool/Gestion_MTU/gmecpr.F index 679a0a14..4014705a 100644 --- a/src/tool/Gestion_MTU/gmecpr.F +++ b/src/tool/Gestion_MTU/gmecpr.F @@ -45,21 +45,21 @@ c character*6 nompro parameter ( nompro = 'GMECPR' ) c -#include "genbla.h" + include "genbla.h" c -#include "gmmatc.h" + include "gmmatc.h" c -#include "nuvers.h" + include "nuvers.h" c c 0.2. ==> communs c -#include "gmtori.h" -#include "gmtors.h" -#include "gmtove.h" + include "gmtori.h" + include "gmtors.h" + include "gmtove.h" c #ifdef _DEBUG_HOMARD_ -#include "gmimpr.h" -#include "gmlang.h" + include "gmimpr.h" + include "gmlang.h" #endif c c 0.3. ==> arguments @@ -71,7 +71,7 @@ c c c 0.4. ==> variables locales c -#include "gmnelx.h" + include "gmnelx.h" c integer iaux, jaux, jdeb, jfin c @@ -87,7 +87,7 @@ c==== c 1. les messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -138,12 +138,12 @@ c >/,'c') c 21004 format ( - > '#include "gmmatc.h"', + > ' include "gmmatc.h"', >/,'c', - >/,'#include "gmtoas.h"', - >/,'#include "gmtori.h"', - >/,'#include "gmtors.h"', - >/,'#include "gmtove.h"', + >/,' include "gmtoas.h"', + >/,' include "gmtori.h"', + >/,' include "gmtors.h"', + >/,' include "gmtove.h"', >/,'c', >/,' integer iaux', >/,'c') diff --git a/src/tool/Gestion_MTU/gmextg.F b/src/tool/Gestion_MTU/gmextg.F index c105912d..5bb7c775 100644 --- a/src/tool/Gestion_MTU/gmextg.F +++ b/src/tool/Gestion_MTU/gmextg.F @@ -77,14 +77,14 @@ c implicit none save c -#include "gmmaxt.h" + include "gmmaxt.h" c c 0.2. ==> communs c -#include "gmtyge.h" + include "gmtyge.h" c -#include "gmimpr.h" -#include "gmcoer.h" + include "gmimpr.h" + include "gmcoer.h" c c 0.3. ==> arguments c diff --git a/src/tool/Gestion_MTU/gminfo.F b/src/tool/Gestion_MTU/gminfo.F index be996b22..3f4ad0e8 100644 --- a/src/tool/Gestion_MTU/gminfo.F +++ b/src/tool/Gestion_MTU/gminfo.F @@ -46,15 +46,15 @@ c character*6 nompro parameter ( nompro = 'GMINFO' ) c -#include "genbla.h" + include "genbla.h" c c 0.2. ==> communs c #ifdef _DEBUG_HOMARD_ -#include "gmimpr.h" -#include "gmlang.h" + include "gmimpr.h" + include "gmlang.h" #endif -#include "gmopim.h" + include "gmopim.h" c c 0.3. ==> arguments c @@ -77,7 +77,7 @@ c==== c 1. initialisation des messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro diff --git a/src/tool/Gestion_MTU/gminge.F b/src/tool/Gestion_MTU/gminge.F index 5cb495ae..a94341b4 100644 --- a/src/tool/Gestion_MTU/gminge.F +++ b/src/tool/Gestion_MTU/gminge.F @@ -123,51 +123,51 @@ c character*6 nompro parameter ( nompro = 'GMINGE' ) c -#include "genbla.h" -#include "gelggt.h" + include "genbla.h" + include "gelggt.h" c -#include "gmgmve.h" + include "gmgmve.h" c -#include "gmmaxt.h" -#include "gmptrd.h" -#include "gmmatc.h" -#include "gmlgen.h" + include "gmmaxt.h" + include "gmptrd.h" + include "gmmatc.h" + include "gmlgen.h" c c 0.2. ==> communs c -#include "gmtail.h" -#include "gmtyge.h" -#include "gmtyar.h" -#include "gmindf.h" + include "gmtail.h" + include "gmtyge.h" + include "gmtyar.h" + include "gmindf.h" c -#include "envex1.h" -#include "gmcoer.h" -#include "gmimpr.h" -#include "gmlang.h" -#include "gmopim.h" + include "envex1.h" + include "gmcoer.h" + include "gmimpr.h" + include "gmlang.h" + include "gmopim.h" c -#include "gmenti.h" -#include "gmreel.h" -#include "gmstri.h" + include "gmenti.h" + include "gmreel.h" + include "gmstri.h" c -#include "gmtrrl.h" -#include "gmtren.h" -#include "gmtrst.h" + include "gmtrrl.h" + include "gmtren.h" + include "gmtrst.h" c -#include "gmalrl.h" -#include "gmalen.h" -#include "gmalst.h" + include "gmalrl.h" + include "gmalen.h" + include "gmalst.h" c -#include "gmadui.h" -#include "gmadur.h" -#include "gmadus.h" + include "gmadui.h" + include "gmadur.h" + include "gmadus.h" c -#include "gmindi.h" -#include "gmindr.h" -#include "gminds.h" + include "gmindi.h" + include "gmindr.h" + include "gminds.h" c -#include "gmtenb.h" -#include "gmteno.h" + include "gmtenb.h" + include "gmteno.h" c c 0.3. ==> arguments c @@ -177,7 +177,7 @@ c c c 0.4. ==> variables locales c -#include "gedita.h" + include "gedita.h" c integer iaux, code c @@ -194,14 +194,14 @@ c parameter ( nbmess = 20 ) character*80 texte(nblang,nbmess) c -#include "motcle.h" + include "motcle.h" c c 0.5. ==> initialisations c data nfois / 1 / c ______________________________________________________________________ c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ if ( langdf.ge.1 .and. langdf.le.nblang ) then @@ -599,7 +599,7 @@ c c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Gestion_MTU/gmitob.F b/src/tool/Gestion_MTU/gmitob.F index 725f8d15..85365314 100644 --- a/src/tool/Gestion_MTU/gmitob.F +++ b/src/tool/Gestion_MTU/gmitob.F @@ -22,12 +22,12 @@ c - - -- c save c -#include "gmmatc.h" + include "gmmatc.h" c -#include "gmtoas.h" -#include "gmtori.h" -#include "gmtors.h" -#include "gmtove.h" + include "gmtoas.h" + include "gmtori.h" + include "gmtors.h" + include "gmtove.h" c integer iaux c diff --git a/src/tool/Gestion_MTU/gmlanm.F b/src/tool/Gestion_MTU/gmlanm.F index 5fcfb9f5..63d1e232 100644 --- a/src/tool/Gestion_MTU/gmlanm.F +++ b/src/tool/Gestion_MTU/gmlanm.F @@ -44,12 +44,12 @@ c parameter ( nompro = 'GMLANM' ) c c -#include "genbla.h" + include "genbla.h" c c 0.2. ==> communs c -#include "gmimpr.h" -#include "gmlang.h" + include "gmimpr.h" + include "gmlang.h" c c 0.3. ==> arguments c @@ -89,7 +89,7 @@ c lgimpr = 1 endif c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulimpr,texte(lgimpr,1)) nompro diff --git a/src/tool/Gestion_MTU/gmlboj.F b/src/tool/Gestion_MTU/gmlboj.F index f539d90e..ec38ed7b 100644 --- a/src/tool/Gestion_MTU/gmlboj.F +++ b/src/tool/Gestion_MTU/gmlboj.F @@ -48,15 +48,15 @@ c character*6 nompro parameter ( nompro = 'GMLBOJ' ) c -#include "genbla.h" -#include "gmcain.h" + include "genbla.h" + include "gmcain.h" c c 0.2. ==> communs c -#include "gmimpr.h" -#include "envex1.h" -#include "gmlang.h" -#include "gmcoer.h" + include "gmimpr.h" + include "envex1.h" + include "gmlang.h" + include "gmcoer.h" c c 0.3. ==> arguments c @@ -81,7 +81,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -173,7 +173,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c endif c diff --git a/src/tool/Gestion_MTU/gmliat.F b/src/tool/Gestion_MTU/gmliat.F index 731cc6cb..246ac5b8 100644 --- a/src/tool/Gestion_MTU/gmliat.F +++ b/src/tool/Gestion_MTU/gmliat.F @@ -52,15 +52,15 @@ c implicit none save c -#include "gmmatc.h" + include "gmmatc.h" c c 0.2. ==> communs c -#include "gmtori.h" -#include "gmtoai.h" -#include "gmtoas.h" + include "gmtori.h" + include "gmtoai.h" + include "gmtoas.h" c -#include "gmindi.h" + include "gmindi.h" c c 0.3. ==> arguments c diff --git a/src/tool/Gestion_MTU/gmmess.F b/src/tool/Gestion_MTU/gmmess.F index ba032b78..25cd0ebb 100644 --- a/src/tool/Gestion_MTU/gmmess.F +++ b/src/tool/Gestion_MTU/gmmess.F @@ -44,12 +44,12 @@ c character*6 nompro parameter ( nompro = 'GMMESS' ) c -#include "genbla.h" + include "genbla.h" c c 0.2. ==> communs c -#include "gmimpr.h" -#include "gmlang.h" + include "gmimpr.h" + include "gmlang.h" c c 0.3. ==> arguments c @@ -91,7 +91,7 @@ c lgimpr = langue endif c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulimpr,texte(lgimpr,1)) nompro diff --git a/src/tool/Gestion_MTU/gmmod.F b/src/tool/Gestion_MTU/gmmod.F index 3847d648..b917b672 100644 --- a/src/tool/Gestion_MTU/gmmod.F +++ b/src/tool/Gestion_MTU/gmmod.F @@ -60,14 +60,14 @@ c character*6 nompro parameter ( nompro = 'GMMOD' ) c -#include "genbla.h" + include "genbla.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "gmcoer.h" -#include "gmimpr.h" -#include "gmlang.h" + include "envex1.h" + include "gmcoer.h" + include "gmimpr.h" + include "gmlang.h" c c 0.3. ==> arguments c @@ -96,7 +96,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -495,7 +495,7 @@ c endif write (ulsort,90000) c -#include "envex2.h" + include "envex2.h" c endif c diff --git a/src/tool/Gestion_MTU/gmmodg.F b/src/tool/Gestion_MTU/gmmodg.F index 165461ea..247c7cf1 100644 --- a/src/tool/Gestion_MTU/gmmodg.F +++ b/src/tool/Gestion_MTU/gmmodg.F @@ -91,18 +91,18 @@ c character*6 nompro parameter ( nompro = 'GMMODG' ) c -#include "genbla.h" -#include "gmmaxt.h" + include "genbla.h" + include "gmmaxt.h" c c 0.2. ==> communs c -#include "gmtail.h" -#include "gmtyge.h" + include "gmtail.h" + include "gmtyge.h" c -#include "gmimpr.h" -#include "envex1.h" -#include "gmlang.h" -#include "gmcoer.h" + include "gmimpr.h" + include "envex1.h" + include "gmlang.h" + include "gmcoer.h" c c 0.3. ==> arguments c @@ -142,7 +142,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -327,7 +327,7 @@ c c if ( coergm.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c endif c diff --git a/src/tool/Gestion_MTU/gmmodi.F b/src/tool/Gestion_MTU/gmmodi.F index 1d6314af..6a6f7111 100644 --- a/src/tool/Gestion_MTU/gmmodi.F +++ b/src/tool/Gestion_MTU/gmmodi.F @@ -86,22 +86,22 @@ c character*6 nompro parameter ( nompro = 'GMMODI' ) c -#include "genbla.h" -#include "gmmaxt.h" + include "genbla.h" + include "gmmaxt.h" c c 0.2. ==> communs c -#include "gmenti.h" -#include "gmadui.h" -#include "gmtren.h" -#include "gmalen.h" -#include "gmindi.h" -#include "gmindf.h" + include "gmenti.h" + include "gmadui.h" + include "gmtren.h" + include "gmalen.h" + include "gmindi.h" + include "gmindf.h" c -#include "envex1.h" -#include "gmcoer.h" -#include "gmimpr.h" -#include "gmlang.h" + include "envex1.h" + include "gmcoer.h" + include "gmimpr.h" + include "gmlang.h" c c 0.3. ==> arguments c @@ -133,7 +133,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -449,7 +449,7 @@ c c if ( coergm.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c endif c diff --git a/src/tool/Gestion_MTU/gmmodr.F b/src/tool/Gestion_MTU/gmmodr.F index ed6ca689..fc1bdbfb 100644 --- a/src/tool/Gestion_MTU/gmmodr.F +++ b/src/tool/Gestion_MTU/gmmodr.F @@ -86,22 +86,22 @@ c character*6 nompro parameter ( nompro = 'GMMODR' ) c -#include "genbla.h" -#include "gmmaxt.h" + include "genbla.h" + include "gmmaxt.h" c c 0.2. ==> communs c -#include "gmreel.h" -#include "gmadur.h" -#include "gmtrrl.h" -#include "gmalrl.h" -#include "gmindf.h" -#include "gmindr.h" + include "gmreel.h" + include "gmadur.h" + include "gmtrrl.h" + include "gmalrl.h" + include "gmindf.h" + include "gmindr.h" c -#include "envex1.h" -#include "gmcoer.h" -#include "gmimpr.h" -#include "gmlang.h" + include "envex1.h" + include "gmcoer.h" + include "gmimpr.h" + include "gmlang.h" c c 0.3. ==> arguments c @@ -133,7 +133,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -428,7 +428,7 @@ c c if ( coergm.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c endif c diff --git a/src/tool/Gestion_MTU/gmmods.F b/src/tool/Gestion_MTU/gmmods.F index 155175d9..3137cb12 100644 --- a/src/tool/Gestion_MTU/gmmods.F +++ b/src/tool/Gestion_MTU/gmmods.F @@ -86,22 +86,22 @@ c character*6 nompro parameter ( nompro = 'GMMODS' ) c -#include "genbla.h" -#include "gmmaxt.h" + include "genbla.h" + include "gmmaxt.h" c c 0.2. ==> communs c -#include "gmstri.h" -#include "gmadus.h" -#include "gmtrst.h" -#include "gmalst.h" -#include "gminds.h" -#include "gmindf.h" + include "gmstri.h" + include "gmadus.h" + include "gmtrst.h" + include "gmalst.h" + include "gminds.h" + include "gmindf.h" c -#include "envex1.h" -#include "gmcoer.h" -#include "gmimpr.h" -#include "gmlang.h" + include "envex1.h" + include "gmcoer.h" + include "gmimpr.h" + include "gmlang.h" c c 0.3. ==> arguments c @@ -133,7 +133,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -428,7 +428,7 @@ c c if ( coergm.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c endif c diff --git a/src/tool/Gestion_MTU/gmmoge.F b/src/tool/Gestion_MTU/gmmoge.F index e94574be..22584f7f 100644 --- a/src/tool/Gestion_MTU/gmmoge.F +++ b/src/tool/Gestion_MTU/gmmoge.F @@ -55,18 +55,18 @@ c character*6 nompro parameter ( nompro = 'GMMOGE' ) c -#include "genbla.h" + include "genbla.h" c c 0.2. ==> communs c -#include "gmimpr.h" -#include "gmlang.h" + include "gmimpr.h" + include "gmlang.h" c c les communs qui suivent sont ici pour declarer les variables lgxxxx c -#include "gmenti.h" -#include "gmreel.h" -#include "gmstri.h" + include "gmenti.h" + include "gmreel.h" + include "gmstri.h" c c 0.3. ==> arguments c @@ -91,7 +91,7 @@ c c character*5 fmtent c -#include "motcle.h" + include "motcle.h" c integer nbmess parameter ( nbmess = 10 ) @@ -105,7 +105,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro diff --git a/src/tool/Gestion_MTU/gmnomc.F b/src/tool/Gestion_MTU/gmnomc.F index b7cd4051..465ddf87 100644 --- a/src/tool/Gestion_MTU/gmnomc.F +++ b/src/tool/Gestion_MTU/gmnomc.F @@ -45,16 +45,16 @@ c character*6 nompro parameter ( nompro = 'GMNOMC' ) c -#include "genbla.h" + include "genbla.h" c c 0.2. ==> communs c -#include "gminds.h" + include "gminds.h" c #ifdef _DEBUG_HOMARD_ -#include "envex1.h" -#include "gmimpr.h" -#include "gmlang.h" + include "envex1.h" + include "gmimpr.h" + include "gmlang.h" #endif c c 0.3. ==> arguments @@ -81,7 +81,7 @@ c==== c 1. preliminaires c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -139,7 +139,7 @@ c #ifdef _DEBUG_HOMARD_ if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Gestion_MTU/gmntve.F b/src/tool/Gestion_MTU/gmntve.F index c26f4692..cf15e395 100644 --- a/src/tool/Gestion_MTU/gmntve.F +++ b/src/tool/Gestion_MTU/gmntve.F @@ -49,14 +49,14 @@ c parameter ( nompro = 'GMNTVE' ) c c -#include "genbla.h" + include "genbla.h" c c 0.2. ==> communs c -#include "gminds.h" + include "gminds.h" c -#include "gmimpr.h" -#include "gmlang.h" + include "gmimpr.h" + include "gmlang.h" c c 0.3. ==> arguments c @@ -86,7 +86,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro diff --git a/src/tool/Gestion_MTU/gmprot.F b/src/tool/Gestion_MTU/gmprot.F index 0b9afc70..b2a850c6 100644 --- a/src/tool/Gestion_MTU/gmprot.F +++ b/src/tool/Gestion_MTU/gmprot.F @@ -44,21 +44,21 @@ c character*6 nompro parameter ( nompro = 'GMPROT' ) c -#include "genbla.h" + include "genbla.h" c -#include "gmmatc.h" + include "gmmatc.h" c c 0.2. ==> communs c -#include "gmenti.h" -#include "gmreel.h" -#include "gmstri.h" + include "gmenti.h" + include "gmreel.h" + include "gmstri.h" c -#include "gmtail.h" + include "gmtail.h" c -#include "gmcoer.h" -#include "gmimpr.h" -#include "gmlang.h" + include "gmcoer.h" + include "gmimpr.h" + include "gmlang.h" c c 0.3. ==> arguments c @@ -97,7 +97,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro diff --git a/src/tool/Gestion_MTU/gmprsx.F b/src/tool/Gestion_MTU/gmprsx.F index 8bd03ece..75711b36 100644 --- a/src/tool/Gestion_MTU/gmprsx.F +++ b/src/tool/Gestion_MTU/gmprsx.F @@ -42,19 +42,19 @@ c character*6 nompro parameter ( nompro = 'GMPRSX' ) c -#include "genbla.h" + include "genbla.h" c -#include "gmmatc.h" + include "gmmatc.h" c c 0.2. ==> communs c -#include "gmtori.h" -#include "gmtoai.h" -#include "gmtoas.h" -#include "gmtors.h" + include "gmtori.h" + include "gmtoai.h" + include "gmtoas.h" + include "gmtors.h" c -#include "gmimpr.h" -#include "gmlang.h" + include "gmimpr.h" + include "gmlang.h" c c 0.3. ==> arguments c @@ -81,7 +81,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro diff --git a/src/tool/Gestion_MTU/gmsgoj.F b/src/tool/Gestion_MTU/gmsgoj.F index 332beab2..c0bf6f04 100644 --- a/src/tool/Gestion_MTU/gmsgoj.F +++ b/src/tool/Gestion_MTU/gmsgoj.F @@ -45,16 +45,16 @@ c parameter ( nompro = 'GMSGOJ' ) c c -#include "genbla.h" + include "genbla.h" c -#include "gmcain.h" + include "gmcain.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "gmcoer.h" -#include "gmimpr.h" -#include "gmlang.h" + include "envex1.h" + include "gmcoer.h" + include "gmimpr.h" + include "gmlang.h" c c 0.3. ==> arguments c @@ -80,7 +80,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -193,7 +193,7 @@ c endif write (ulsort,90000) c -#include "envex2.h" + include "envex2.h" c endif c diff --git a/src/tool/Gestion_MTU/gmshfi.F b/src/tool/Gestion_MTU/gmshfi.F index c06dd90c..8e5b2eb6 100644 --- a/src/tool/Gestion_MTU/gmshfi.F +++ b/src/tool/Gestion_MTU/gmshfi.F @@ -43,7 +43,7 @@ c c c 0.2. ==> communs c -#include "gmimpr.h" + include "gmimpr.h" c c 0.3. ==> arguments c diff --git a/src/tool/Gestion_MTU/gmshfr.F b/src/tool/Gestion_MTU/gmshfr.F index 015cafaf..cc76b6a6 100644 --- a/src/tool/Gestion_MTU/gmshfr.F +++ b/src/tool/Gestion_MTU/gmshfr.F @@ -43,7 +43,7 @@ c c c 0.2. ==> communs c -#include "gmimpr.h" + include "gmimpr.h" c c 0.3. ==> arguments c diff --git a/src/tool/Gestion_MTU/gmshfs.F b/src/tool/Gestion_MTU/gmshfs.F index eee40782..c1fb0774 100644 --- a/src/tool/Gestion_MTU/gmshfs.F +++ b/src/tool/Gestion_MTU/gmshfs.F @@ -43,7 +43,7 @@ c c c 0.2. ==> communs c -#include "gmimpr.h" + include "gmimpr.h" c c 0.3. ==> arguments c diff --git a/src/tool/Gestion_MTU/gmstat.F b/src/tool/Gestion_MTU/gmstat.F index 00a3f9c9..d39bb256 100644 --- a/src/tool/Gestion_MTU/gmstat.F +++ b/src/tool/Gestion_MTU/gmstat.F @@ -41,30 +41,30 @@ c character*6 nompro parameter ( nompro = 'GMSTAT' ) c -#include "genbla.h" + include "genbla.h" c -#include "gmmatc.h" + include "gmmatc.h" c -#include "gmmaxt.h" + include "gmmaxt.h" c c 0.2. ==> communs c -#include "gmtori.h" -#include "gmtoai.h" + include "gmtori.h" + include "gmtoai.h" c -#include "gmenti.h" -#include "gmreel.h" -#include "gmstri.h" + include "gmenti.h" + include "gmreel.h" + include "gmstri.h" c -#include "gmtrrl.h" -#include "gmtren.h" -#include "gmtrst.h" + include "gmtrrl.h" + include "gmtren.h" + include "gmtrst.h" c -#include "gmimpr.h" -#include "gmlang.h" -#include "gmopim.h" -#include "gmtail.h" -#include "gmtyge.h" + include "gmimpr.h" + include "gmlang.h" + include "gmopim.h" + include "gmtail.h" + include "gmtyge.h" c c 0.3. ==> arguments c @@ -89,7 +89,7 @@ c c 0.5. ==> initialisations c ______________________________________________________________________ c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro diff --git a/src/tool/Gestion_MTU/gmstop.F b/src/tool/Gestion_MTU/gmstop.F index 600eb5f1..62e43a3e 100644 --- a/src/tool/Gestion_MTU/gmstop.F +++ b/src/tool/Gestion_MTU/gmstop.F @@ -39,26 +39,26 @@ c implicit none save c -#include "gmmatc.h" -#include "gmmaxt.h" + include "gmmatc.h" + include "gmmaxt.h" c c 0.2. ==> communs c -#include "gmtoai.h" -#include "gmtoas.h" -#include "gmtors.h" + include "gmtoai.h" + include "gmtoas.h" + include "gmtors.h" c -#include "gmtren.h" -#include "gmtrrl.h" -#include "gmtrst.h" + include "gmtren.h" + include "gmtrrl.h" + include "gmtrst.h" c -#include "gmalen.h" -#include "gmalrl.h" -#include "gmalst.h" + include "gmalen.h" + include "gmalrl.h" + include "gmalst.h" c -#include "gminds.h" + include "gminds.h" c -#include "gmimpr.h" + include "gmimpr.h" c c 0.3. ==> arguments c diff --git a/src/tool/Gestion_MTU/gmtyoj.F b/src/tool/Gestion_MTU/gmtyoj.F index 90c072a2..c6e76d12 100644 --- a/src/tool/Gestion_MTU/gmtyoj.F +++ b/src/tool/Gestion_MTU/gmtyoj.F @@ -48,17 +48,17 @@ c parameter ( nompro = 'GMTYOJ' ) c c -#include "genbla.h" + include "genbla.h" c -#include "gmmatc.h" + include "gmmatc.h" c c 0.2. ==> communs c -#include "gmtoas.h" + include "gmtoas.h" c -#include "gmimpr.h" -#include "gmlang.h" -#include "gminds.h" + include "gmimpr.h" + include "gmlang.h" + include "gminds.h" c c 0.3. ==> arguments c @@ -84,7 +84,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro diff --git a/src/tool/Gestion_MTU/gtbila.F b/src/tool/Gestion_MTU/gtbila.F index 2c4373b0..335bc987 100644 --- a/src/tool/Gestion_MTU/gtbila.F +++ b/src/tool/Gestion_MTU/gtbila.F @@ -35,8 +35,8 @@ c character*6 nompro parameter ( nompro = 'GTBILA' ) c -#include "genbla.h" -#include "gtnbse.h" + include "genbla.h" + include "gtnbse.h" c c 0.2. ==> communs c @@ -44,7 +44,7 @@ c 0.3. ==> arguments c c 0.4. ==> variables locales c -#include "gtdita.h" + include "gtdita.h" c integer code c @@ -83,7 +83,7 @@ c==== c 2. messages c==== c -#include "impr01.h" + include "impr01.h" c texte(1,4) = ' Identification de la section ' texte(1,5) = ' Temps d''execution ' diff --git a/src/tool/Gestion_MTU/gtdems.F b/src/tool/Gestion_MTU/gtdems.F index 82aa9f99..cc8a3321 100644 --- a/src/tool/Gestion_MTU/gtdems.F +++ b/src/tool/Gestion_MTU/gtdems.F @@ -51,8 +51,8 @@ c character*6 nompro parameter ( nompro = 'GTDEMS' ) c -#include "genbla.h" -#include "gtnbse.h" + include "genbla.h" + include "gtnbse.h" c c 0.2. ==> communs c @@ -67,7 +67,7 @@ c integer iaux integer ulsort, langue c -#include "gtdita.h" + include "gtdita.h" c integer nbmess parameter ( nbmess = 10 ) @@ -78,7 +78,7 @@ c==== c 1. initialisation des messages c==== c -#include "impr01.h" + include "impr01.h" c c==== c 2. mesure du temps ecoule depuis le dernier appel a dmtemp diff --git a/src/tool/Gestion_MTU/gtfims.F b/src/tool/Gestion_MTU/gtfims.F index 8c1a6fa1..47b410bc 100644 --- a/src/tool/Gestion_MTU/gtfims.F +++ b/src/tool/Gestion_MTU/gtfims.F @@ -51,8 +51,8 @@ c character*6 nompro parameter ( nompro = 'GTFIMS' ) c -#include "genbla.h" -#include "gtnbse.h" + include "genbla.h" + include "gtnbse.h" c c 0.2. ==> communs c @@ -67,7 +67,7 @@ c integer iaux integer ulsort, langue c -#include "gtdita.h" + include "gtdita.h" c integer nbmess parameter ( nbmess = 10 ) @@ -78,7 +78,7 @@ c==== c 1. initialisation des messages c==== c -#include "impr01.h" + include "impr01.h" c c==== c 2. mesure du temps ecoule depuis le dernier appel a dmtemp diff --git a/src/tool/Gestion_MTU/gtinfo.F b/src/tool/Gestion_MTU/gtinfo.F index cd76b73c..85149b6c 100644 --- a/src/tool/Gestion_MTU/gtinfo.F +++ b/src/tool/Gestion_MTU/gtinfo.F @@ -46,9 +46,9 @@ c character*6 nompro parameter ( nompro = 'GTINFO' ) c -#include "genbla.h" + include "genbla.h" c -#include "gtnbse.h" + include "gtnbse.h" c c 0.2. ==> communs c @@ -58,7 +58,7 @@ c c c 0.4. ==> variables locales c -#include "gtdita.h" + include "gtdita.h" c integer iaux, code c @@ -75,7 +75,7 @@ c==== c 1. initialisation des messages c==== c -#include "impr01.h" + include "impr01.h" c texte(1,4) = '(''Dans '',a,'', imprgt ='',i8)' c diff --git a/src/tool/Gestion_MTU/gtinit.F b/src/tool/Gestion_MTU/gtinit.F index 75702638..63dda102 100644 --- a/src/tool/Gestion_MTU/gtinit.F +++ b/src/tool/Gestion_MTU/gtinit.F @@ -52,10 +52,10 @@ c character*6 nompro parameter ( nompro = 'GTINIT' ) c -#include "genbla.h" -#include "gelggt.h" + include "genbla.h" + include "gelggt.h" c -#include "gtnbse.h" + include "gtnbse.h" c c 0.2. ==> communs c @@ -65,8 +65,8 @@ c c c 0.4. ==> variables locales c -#include "gedita.h" -#include "gtdita.h" + include "gedita.h" + include "gtdita.h" c integer iaux, jaux, code integer langue @@ -95,7 +95,7 @@ c langue = 1 endif c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro diff --git a/src/tool/Gestion_MTU/gtlanm.F b/src/tool/Gestion_MTU/gtlanm.F index c9f62a6b..567331ec 100644 --- a/src/tool/Gestion_MTU/gtlanm.F +++ b/src/tool/Gestion_MTU/gtlanm.F @@ -44,9 +44,9 @@ c character*6 nompro parameter ( nompro = 'GTLANM' ) c -#include "genbla.h" + include "genbla.h" c -#include "gtnbse.h" + include "gtnbse.h" c c 0.2. ==> communs c @@ -56,7 +56,7 @@ c c c 0.4. ==> variables locales c -#include "gtdita.h" + include "gtdita.h" c integer iaux, code c @@ -74,7 +74,7 @@ c==== c 1. initialisation des messages c==== c -#include "impr01.h" + include "impr01.h" c texte(1,4) = '(''Le numero de langue '',i2,'' voulu'')' texte(1,5) = '(''pour les sorties GT est incorrect.'')' diff --git a/src/tool/Gestion_MTU/gtmess.F b/src/tool/Gestion_MTU/gtmess.F index 1d86862f..487cb125 100644 --- a/src/tool/Gestion_MTU/gtmess.F +++ b/src/tool/Gestion_MTU/gtmess.F @@ -43,8 +43,8 @@ c character*6 nompro parameter ( nompro = 'GTMESS' ) c -#include "genbla.h" -#include "gtnbse.h" + include "genbla.h" + include "gtnbse.h" c c 0.2. ==> communs c @@ -54,7 +54,7 @@ c c c 0.4. ==> variables locales c -#include "gtdita.h" + include "gtdita.h" c logical imprim, dejavu c @@ -81,7 +81,7 @@ c==== c c 1.1. ==> initialisation des messages c -#include "impr01.h" + include "impr01.h" c texte(1,10) = '(''Le numero d''''unite logique '',i2,'' voulu'')' texte(1,4) = diff --git a/src/tool/Gestion_MTU/gtnoms.F b/src/tool/Gestion_MTU/gtnoms.F index 60187b22..8579db8b 100644 --- a/src/tool/Gestion_MTU/gtnoms.F +++ b/src/tool/Gestion_MTU/gtnoms.F @@ -45,8 +45,8 @@ c character*6 nompro parameter ( nompro = 'GTNOMS' ) c -#include "gtnbse.h" -#include "genbla.h" + include "gtnbse.h" + include "genbla.h" c c 0.2. ==> communs c @@ -58,7 +58,7 @@ c c c 0.4. ==> variables locales c -#include "gtdita.h" + include "gtdita.h" c integer code, iaux, ifin, lontit integer ulsort @@ -74,7 +74,7 @@ c==== c 1. initialisation des messages c==== c -#include "impr01.h" + include "impr01.h" c c==== c 2. recuperation de l'information diff --git a/src/tool/Gestion_MTU/gtstop.F b/src/tool/Gestion_MTU/gtstop.F index f05fabe4..c34359b8 100644 --- a/src/tool/Gestion_MTU/gtstop.F +++ b/src/tool/Gestion_MTU/gtstop.F @@ -50,7 +50,7 @@ c character*6 nompro parameter ( nompro = 'GTSTOP' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c @@ -70,7 +70,7 @@ c character*80 texte(nblang,nbmess) #endif c -#include "langue.h" + include "langue.h" c c==== c 1. appel du programme d'arret general diff --git a/src/tool/Gestion_MTU/gttabl.F b/src/tool/Gestion_MTU/gttabl.F index c6b9d9d7..ab0d5e03 100644 --- a/src/tool/Gestion_MTU/gttabl.F +++ b/src/tool/Gestion_MTU/gttabl.F @@ -61,7 +61,7 @@ c character*6 nompro parameter ( nompro = 'GTTABL' ) c -#include "genbla.h" + include "genbla.h" c c 0.2. ==> communs c @@ -69,7 +69,7 @@ c 0.3. ==> arguments c integer code, nbsep1 c -#include "gtdita.h" + include "gtdita.h" c c 0.4. ==> variables locales c @@ -108,7 +108,7 @@ c==== c 1. initialisation des messages c==== c -#include "impr01.h" + include "impr01.h" c c==== c 2. verifications diff --git a/src/tool/Gestion_MTU/gubila.F b/src/tool/Gestion_MTU/gubila.F index 73535e47..caff4f0d 100644 --- a/src/tool/Gestion_MTU/gubila.F +++ b/src/tool/Gestion_MTU/gubila.F @@ -44,11 +44,11 @@ c #endif c #ifdef _DEBUG_HOMARD_ -#include "genbla.h" + include "genbla.h" #endif c -#include "gunbul.h" -#include "gulggt.h" + include "gunbul.h" + include "gulggt.h" c c 0.2. ==> communs c @@ -83,7 +83,7 @@ c 1. recuperation de l'information c=== c #ifdef _DEBUG_HOMARD_ -#include "impr01.h" + include "impr01.h" #endif c code = 1 diff --git a/src/tool/Gestion_MTU/gucara.F b/src/tool/Gestion_MTU/gucara.F index 365eea94..b55674cd 100644 --- a/src/tool/Gestion_MTU/gucara.F +++ b/src/tool/Gestion_MTU/gucara.F @@ -46,8 +46,8 @@ c character*6 nompro parameter ( nompro = 'GUCARA' ) c -#include "gunbul.h" -#include "genbla.h" + include "gunbul.h" + include "genbla.h" c c 0.2. ==> communs c @@ -58,7 +58,7 @@ c c c 0.4. ==> variables locales c -#include "gulggt.h" + include "gulggt.h" c integer guimp, raison integer iaux, code @@ -82,7 +82,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c texte(1,10) = '(''La longueur du nom vaut'',i4,'' curieux !'')' texte(1,4) = '(''Il faut :'')' diff --git a/src/tool/Gestion_MTU/gufefi.F b/src/tool/Gestion_MTU/gufefi.F index 450a20a4..d134a4a5 100644 --- a/src/tool/Gestion_MTU/gufefi.F +++ b/src/tool/Gestion_MTU/gufefi.F @@ -44,9 +44,9 @@ c character*6 nompro parameter ( nompro = 'GUFEFI' ) c -#include "genbla.h" -#include "gunbul.h" -#include "gulggt.h" + include "genbla.h" + include "gunbul.h" + include "gulggt.h" c c 0.2. ==> communs c @@ -82,7 +82,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c texte(1,10) = '(''Fermeture du fichier :'')' texte(1,4) = '(''Impossible de trouver une UL associee.'')' diff --git a/src/tool/Gestion_MTU/guferm.F b/src/tool/Gestion_MTU/guferm.F index 7f6ad137..1b53d797 100644 --- a/src/tool/Gestion_MTU/guferm.F +++ b/src/tool/Gestion_MTU/guferm.F @@ -44,9 +44,9 @@ c character*6 nompro parameter ( nompro = 'GUFERM' ) c -#include "genbla.h" + include "genbla.h" c -#include "gunbul.h" + include "gunbul.h" c c 0.2. ==> communs c @@ -58,7 +58,7 @@ c c c 0.4. ==> variables locales c -#include "gulggt.h" + include "gulggt.h" c integer guimp, raison integer iaux, code, statfi, l200 @@ -85,7 +85,7 @@ c=== c 1. recuperation de l'information c=== c -#include "impr01.h" + include "impr01.h" c code = 1 call gutabl ( code, gunmbr, statut, nomfic, lnomfi ) diff --git a/src/tool/Gestion_MTU/gufeul.F b/src/tool/Gestion_MTU/gufeul.F index e3ed8f57..8b5e644a 100644 --- a/src/tool/Gestion_MTU/gufeul.F +++ b/src/tool/Gestion_MTU/gufeul.F @@ -43,9 +43,9 @@ c character*6 nompro parameter ( nompro = 'GUFEUL' ) c -#include "genbla.h" -#include "gunbul.h" -#include "gulggt.h" + include "genbla.h" + include "gunbul.h" + include "gulggt.h" c c 0.2. ==> communs c @@ -80,7 +80,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c texte(1,10) = '(''Fermeture de l''''unite logique : '',i4)' texte(1,4) = '(''Impossible de trouver un fichier associe.'')' diff --git a/src/tool/Gestion_MTU/gufiul.F b/src/tool/Gestion_MTU/gufiul.F index 06dd7638..afe6be58 100644 --- a/src/tool/Gestion_MTU/gufiul.F +++ b/src/tool/Gestion_MTU/gufiul.F @@ -46,9 +46,9 @@ c character*6 nompro parameter ( nompro = 'GUFIUL' ) c -#include "genbla.h" -#include "gunbul.h" -#include "gulggt.h" + include "genbla.h" + include "gunbul.h" + include "gulggt.h" c c 0.2. ==> communs c @@ -82,7 +82,7 @@ c==== c codret = 0 c -#include "impr01.h" + include "impr01.h" c texte(1,10) = '(''Numero d''''unite logique : '',i4)' texte(1,4) = '(''Doit etre compris entre 0 et '',i4)' diff --git a/src/tool/Gestion_MTU/guinfg.F b/src/tool/Gestion_MTU/guinfg.F index 5aa0eb3b..aa0fdbf3 100644 --- a/src/tool/Gestion_MTU/guinfg.F +++ b/src/tool/Gestion_MTU/guinfg.F @@ -44,9 +44,9 @@ c character*6 nompro parameter ( nompro = 'GUINFG' ) c -#include "genbla.h" -#include "gunbul.h" -#include "gulggt.h" + include "genbla.h" + include "gunbul.h" + include "gulggt.h" c c 0.2. ==> communs c @@ -83,7 +83,7 @@ c=== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c c 1 234 567890 123456789012345678901234567890123456789 chau49 = '(''*'',12x,''Recapitulatif des unites logiques activ' diff --git a/src/tool/Gestion_MTU/guinit.F b/src/tool/Gestion_MTU/guinit.F index f4ce38e3..3c3470e3 100644 --- a/src/tool/Gestion_MTU/guinit.F +++ b/src/tool/Gestion_MTU/guinit.F @@ -52,13 +52,13 @@ c character*6 nompro parameter ( nompro = 'GUINIT' ) c -#include "genbla.h" + include "genbla.h" c -#include "gelggt.h" -#include "gedita.h" + include "gelggt.h" + include "gedita.h" c -#include "gunbul.h" -#include "gulggt.h" + include "gunbul.h" + include "gulggt.h" c c 0.2. ==> communs c @@ -104,7 +104,7 @@ c==== c 1. initialisation c==== c -#include "impr01.h" + include "impr01.h" c c 1.1. ==> au debut, tout va bien ... c diff --git a/src/tool/Gestion_MTU/gulanm.F b/src/tool/Gestion_MTU/gulanm.F index 0fdc1ac8..62d776c0 100644 --- a/src/tool/Gestion_MTU/gulanm.F +++ b/src/tool/Gestion_MTU/gulanm.F @@ -48,9 +48,9 @@ c character*6 nompro parameter ( nompro = 'GULANM' ) c -#include "genbla.h" -#include "gunbul.h" -#include "gulggt.h" + include "genbla.h" + include "gunbul.h" + include "gulggt.h" c c 0.2. ==> communs c @@ -89,7 +89,7 @@ c==== c codret = 0 c -#include "impr01.h" + include "impr01.h" c texte(1,10) = '(''Le numero de langue '',i2,'' voulu'')' texte(1,4) = '(''pour les sorties GU est incorrect.'')' diff --git a/src/tool/Gestion_MTU/gumess.F b/src/tool/Gestion_MTU/gumess.F index c5c72510..2791660b 100644 --- a/src/tool/Gestion_MTU/gumess.F +++ b/src/tool/Gestion_MTU/gumess.F @@ -42,8 +42,8 @@ c character*6 nompro parameter ( nompro = 'GUMESS' ) c -#include "genbla.h" -#include "gunbul.h" + include "genbla.h" + include "gunbul.h" c c 0.2. ==> communs c @@ -54,7 +54,7 @@ c c c 0.4. ==> variables locales c -#include "gulggt.h" + include "gulggt.h" c logical imprim c @@ -85,7 +85,7 @@ c c c 1.1. ==> initialisation des messages c -#include "impr01.h" + include "impr01.h" c texte(1,10) = '(''Le numero d''''unite logique '',i2,'' voulu'')' texte(1,4) = diff --git a/src/tool/Gestion_MTU/gumoge.F b/src/tool/Gestion_MTU/gumoge.F index 329b8143..76e929bb 100644 --- a/src/tool/Gestion_MTU/gumoge.F +++ b/src/tool/Gestion_MTU/gumoge.F @@ -43,8 +43,8 @@ c character*6 nompro parameter ( nompro = 'GUMOGE' ) c -#include "gunbul.h" -#include "genbla.h" + include "gunbul.h" + include "genbla.h" c c 0.2. ==> communs c @@ -61,7 +61,7 @@ c integer iaux #endif c -#include "gulggt.h" + include "gulggt.h" c integer codre0 integer lfmode @@ -80,7 +80,7 @@ c integer langue integer typarr c -#include "motcle.h" + include "motcle.h" c integer nbmess parameter ( nbmess = 10 ) @@ -94,7 +94,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c texte(1,4) = >'(''L''''option de la memoire '',a8,'' est illisible.'')' diff --git a/src/tool/Gestion_MTU/guoufs.F b/src/tool/Gestion_MTU/guoufs.F index 38edbc52..18c79541 100644 --- a/src/tool/Gestion_MTU/guoufs.F +++ b/src/tool/Gestion_MTU/guoufs.F @@ -39,7 +39,7 @@ c save c #ifdef _DEBUG_HOMARD_ -#include "gunbul.h" + include "gunbul.h" #endif c c 0.2. ==> communs diff --git a/src/tool/Gestion_MTU/guouge.F b/src/tool/Gestion_MTU/guouge.F index 97ff95e9..432d1ff2 100644 --- a/src/tool/Gestion_MTU/guouge.F +++ b/src/tool/Gestion_MTU/guouge.F @@ -50,10 +50,10 @@ c parameter ( nompro = 'GUOUGE' ) c #ifdef _DEBUG_HOMARD_ -#include "genbla.h" + include "genbla.h" #endif c -#include "gunbul.h" + include "gunbul.h" c c 0.2. ==> communs c @@ -68,7 +68,7 @@ c c c 0.4. ==> variables locales c -#include "gulggt.h" + include "gulggt.h" c integer ulsort integer typarr @@ -99,7 +99,7 @@ c 1. recuperation de l'information c=== c #ifdef _DEBUG_HOMARD_ -#include "impr01.h" + include "impr01.h" #endif c code = 1 diff --git a/src/tool/Gestion_MTU/gurbbu.F b/src/tool/Gestion_MTU/gurbbu.F index 5c670958..01985dcb 100644 --- a/src/tool/Gestion_MTU/gurbbu.F +++ b/src/tool/Gestion_MTU/gurbbu.F @@ -41,9 +41,9 @@ c character*6 nompro parameter ( nompro = 'GURBBU' ) c -#include "genbla.h" + include "genbla.h" c -#include "gunbul.h" + include "gunbul.h" c c 0.2. ==> communs c @@ -58,7 +58,7 @@ c integer iaux #endif c -#include "gulggt.h" + include "gulggt.h" c integer ulsort, langue integer typarr @@ -82,7 +82,7 @@ c=== c 1. recuperation de l'information c=== c -#include "impr01.h" + include "impr01.h" c code = 1 call gutabl ( code, gunmbr, statut, nomfic, lnomfi ) diff --git a/src/tool/Gestion_MTU/gusost.F b/src/tool/Gestion_MTU/gusost.F index 948c6c8f..99362208 100644 --- a/src/tool/Gestion_MTU/gusost.F +++ b/src/tool/Gestion_MTU/gusost.F @@ -37,7 +37,7 @@ c save c #ifdef _DEBUG_HOMARD_ -#include "gunbul.h" + include "gunbul.h" #endif c c 0.2. ==> communs diff --git a/src/tool/Gestion_MTU/gustat.F b/src/tool/Gestion_MTU/gustat.F index a0509eca..f0b51e7f 100644 --- a/src/tool/Gestion_MTU/gustat.F +++ b/src/tool/Gestion_MTU/gustat.F @@ -58,10 +58,10 @@ c parameter ( nompro = 'GUSTAT' ) #endif c -#include "gulggt.h" + include "gulggt.h" #ifdef _DEBUG_HOMARD_ -#include "genbla.h" -#include "gunbul.h" + include "genbla.h" + include "gunbul.h" #endif c c 0.2. ==> communs @@ -99,7 +99,7 @@ c #endif c #ifdef _DEBUG_HOMARD_ -#include "impr01.h" + include "impr01.h" #endif c #ifdef _DEBUG_HOMARD_ diff --git a/src/tool/Gestion_MTU/gustop.F b/src/tool/Gestion_MTU/gustop.F index b0e49ce9..8697381b 100644 --- a/src/tool/Gestion_MTU/gustop.F +++ b/src/tool/Gestion_MTU/gustop.F @@ -45,7 +45,7 @@ c character*6 nompro parameter ( nompro = 'GUSTOP' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c @@ -65,8 +65,8 @@ c c c 0.5. ==> initialisations c -#include "langue.h" -#include "impr01.h" + include "langue.h" + include "impr01.h" c c=== c 1. appel du programme d'arret general diff --git a/src/tool/Gestion_MTU/gutabl.F b/src/tool/Gestion_MTU/gutabl.F index 5aaa228b..8285851b 100644 --- a/src/tool/Gestion_MTU/gutabl.F +++ b/src/tool/Gestion_MTU/gutabl.F @@ -73,10 +73,10 @@ c character*6 nompro parameter ( nompro = 'GUTABL' ) c -#include "genbla.h" + include "genbla.h" c -#include "gunbul.h" -#include "gulggt.h" + include "gunbul.h" + include "gulggt.h" c c 0.2. ==> communs c @@ -120,7 +120,7 @@ c==== c 1. verifications c==== c -#include "impr01.h" + include "impr01.h" c c 1.1. ==> unite pour la sortie standard et langue c diff --git a/src/tool/Gestion_MTU/ugfia3.F b/src/tool/Gestion_MTU/ugfia3.F index 70e1b69f..99761fb1 100644 --- a/src/tool/Gestion_MTU/ugfia3.F +++ b/src/tool/Gestion_MTU/ugfia3.F @@ -53,7 +53,7 @@ c character*6 nompro parameter ( nompro = 'UGFIA3' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c @@ -89,11 +89,11 @@ c==== c 1. initialisations c==== c -#include "impr03.h" + include "impr03.h" c c 1.1. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro diff --git a/src/tool/Gestion_MTU/ugfino.F b/src/tool/Gestion_MTU/ugfino.F index 63000ea5..da182e83 100644 --- a/src/tool/Gestion_MTU/ugfino.F +++ b/src/tool/Gestion_MTU/ugfino.F @@ -63,8 +63,8 @@ c character*6 nompro parameter ( nompro = 'UGFINO' ) c -#include "consts.h" -#include "genbla.h" + include "consts.h" + include "genbla.h" c c 0.2. ==> communs c @@ -112,7 +112,7 @@ c==== c c 1.1. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro diff --git a/src/tool/Gestion_MTU/uginit.F b/src/tool/Gestion_MTU/uginit.F index 3b771882..452d346b 100644 --- a/src/tool/Gestion_MTU/uginit.F +++ b/src/tool/Gestion_MTU/uginit.F @@ -52,7 +52,7 @@ c character*6 nompro parameter ( nompro = 'UGINIT' ) c -#include "gelggt.h" + include "gelggt.h" c c 0.2. ==> communs c diff --git a/src/tool/Gestion_MTU/uglanm.F b/src/tool/Gestion_MTU/uglanm.F index e3132e9a..1eff36ce 100644 --- a/src/tool/Gestion_MTU/uglanm.F +++ b/src/tool/Gestion_MTU/uglanm.F @@ -49,8 +49,8 @@ c character*6 nompro parameter ( nompro = 'UGLANM' ) c -#include "genbla.h" -#include "gelggt.h" + include "genbla.h" + include "gelggt.h" c c 0.2. ==> communs c @@ -84,7 +84,7 @@ c==== c codret = 0 c -#include "impr01.h" + include "impr01.h" c texte(1,10) = '(''Le numero de langue '',i2,'' pour les'')' texte(1,4) = '(''messages des gestionnaires est incorrect.'')' diff --git a/src/tool/Gestion_MTU/ugstop.F b/src/tool/Gestion_MTU/ugstop.F index 749d8733..08d0be53 100644 --- a/src/tool/Gestion_MTU/ugstop.F +++ b/src/tool/Gestion_MTU/ugstop.F @@ -54,7 +54,7 @@ c character*6 nompro parameter ( nompro = 'UGSTOP' ) c -#include "genbla.h" + include "genbla.h" c c 0.2. ==> communs c @@ -103,7 +103,7 @@ c ulsort = messul endif c -#include "impr01.h" + include "impr01.h" c texte(1,4) = ': A la demande du programme ' c 12345678901234567890123456789012345678 diff --git a/src/tool/Gestion_MTU/ugtabl.F b/src/tool/Gestion_MTU/ugtabl.F index 8902e8d2..9435dd94 100644 --- a/src/tool/Gestion_MTU/ugtabl.F +++ b/src/tool/Gestion_MTU/ugtabl.F @@ -46,9 +46,9 @@ c character*6 nompro parameter ( nompro = 'UGTABL' ) c -#include "genbla.h" + include "genbla.h" c -#include "gelggt.h" + include "gelggt.h" c c 0.2. ==> communs c @@ -77,7 +77,7 @@ c==== c 1. verifications de l'initialisation c==== c -#include "impr01.h" + include "impr01.h" c if ( code.ne.0 .and. .not.initia ) then write (ulsort,texte(langue,1)) 'Entree', nompro diff --git a/src/tool/HOMARD_00/hoapcv.F b/src/tool/HOMARD_00/hoapcv.F index 5cfaa862..6e873569 100644 --- a/src/tool/HOMARD_00/hoapcv.F +++ b/src/tool/HOMARD_00/hoapcv.F @@ -48,17 +48,17 @@ c character*6 nompro parameter ( nompro = 'HOAPCV' ) c -#include "motcle.h" -#include "nblang.h" + include "motcle.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" -#include "gmreel.h" -#include "gmstri.h" -#include "cndoad.h" + include "gmenti.h" + include "gmreel.h" + include "gmstri.h" + include "cndoad.h" c c 0.3. ==> arguments c @@ -154,7 +154,7 @@ c c c 1.5. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -201,7 +201,7 @@ c endif endif c -#include "impr03.h" + include "impr03.h" c c==== c 2. compactage des tableaux @@ -474,7 +474,7 @@ c 7.1. ==> message si erreur c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/HOMARD_00/hoapec.F b/src/tool/HOMARD_00/hoapec.F index c9dec59a..59081f0c 100644 --- a/src/tool/HOMARD_00/hoapec.F +++ b/src/tool/HOMARD_00/hoapec.F @@ -48,17 +48,17 @@ c character*6 nompro parameter ( nompro = 'HOAPEC' ) c -#include "motcle.h" -#include "nblang.h" + include "motcle.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" -#include "gmstri.h" + include "gmenti.h" + include "gmstri.h" c -#include "cndoad.h" + include "cndoad.h" c c 0.3. ==> arguments c @@ -88,7 +88,7 @@ c==== c 1. les initialisations c==== c -#include "impr03.h" + include "impr03.h" c codava = codret c @@ -144,7 +144,7 @@ c c c 1.5. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -265,7 +265,7 @@ c 5.1. ==> message si erreur c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/HOMARD_00/hoapem.F b/src/tool/HOMARD_00/hoapem.F index f801bb17..bd92bf2b 100644 --- a/src/tool/HOMARD_00/hoapem.F +++ b/src/tool/HOMARD_00/hoapem.F @@ -52,12 +52,12 @@ c character*6 nompro parameter ( nompro = 'HOAPEM' ) c -#include "nblang.h" -#include "motcle.h" + include "nblang.h" + include "motcle.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -103,7 +103,7 @@ c c c 1.3. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -218,7 +218,7 @@ c 4.1. ==> message si erreur c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/HOMARD_00/hoapes.F b/src/tool/HOMARD_00/hoapes.F index 3af87a5b..d9fc9803 100644 --- a/src/tool/HOMARD_00/hoapes.F +++ b/src/tool/HOMARD_00/hoapes.F @@ -52,12 +52,12 @@ c character*6 nompro parameter ( nompro = 'HOAPES' ) c -#include "nblang.h" -#include "motcle.h" + include "nblang.h" + include "motcle.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -109,7 +109,7 @@ c c c 1.3. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -137,9 +137,9 @@ c write (ulsort,texte(langue,4)) saux write (ulsort,texte(langue,5)) c -#include "esimpr.h" + include "esimpr.h" c -#include "impr03.h" + include "impr03.h" c c==== c 2. ecriture de la solution interpolee @@ -239,7 +239,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/HOMARD_00/hoapls.F b/src/tool/HOMARD_00/hoapls.F index fb1c11d8..16d5e65f 100644 --- a/src/tool/HOMARD_00/hoapls.F +++ b/src/tool/HOMARD_00/hoapls.F @@ -55,12 +55,12 @@ c character*6 nompro parameter ( nompro = 'HOAPLS' ) c -#include "nblang.h" -#include "motcle.h" + include "nblang.h" + include "motcle.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -107,7 +107,7 @@ c c c 1.3. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -126,7 +126,7 @@ c texte(2,7) = '(''Solution: '',a)' texte(2,8) = '(''No fonction is to be interpolated.'')' c -#include "impr03.h" + include "impr03.h" c c 1.4. ==> le numero de sous-etape c @@ -221,7 +221,7 @@ c 4.1. ==> message si erreur c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/HOMARD_00/hoavcv.F b/src/tool/HOMARD_00/hoavcv.F index 3b57f8de..a0b45bd2 100644 --- a/src/tool/HOMARD_00/hoavcv.F +++ b/src/tool/HOMARD_00/hoavcv.F @@ -48,18 +48,18 @@ c character*6 nompro parameter ( nompro = 'HOAVCV' ) c -#include "motcle.h" -#include "nblang.h" + include "motcle.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "envca2.h" + include "envex1.h" + include "envca2.h" c -#include "gmenti.h" -#include "gmreel.h" -#include "gmstri.h" -#include "cndoad.h" + include "gmenti.h" + include "gmreel.h" + include "gmstri.h" + include "cndoad.h" c c 0.3. ==> arguments c @@ -155,7 +155,7 @@ c c c 1.5. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -172,7 +172,7 @@ c >''' C O N V E R S I O N S B E F O R E A D A P T A T I O N'')' texte(2,5) = '(64(''=''),/)' c -#include "impr03.h" + include "impr03.h" c c 1.6. ==> le titre c @@ -610,7 +610,7 @@ c 11.1. ==> message si erreur c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/HOMARD_00/hoavec.F b/src/tool/HOMARD_00/hoavec.F index 5b82cba4..a7b4f300 100644 --- a/src/tool/HOMARD_00/hoavec.F +++ b/src/tool/HOMARD_00/hoavec.F @@ -48,14 +48,14 @@ c character*6 nompro parameter ( nompro = 'HOAVEC' ) c -#include "motcle.h" -#include "nblang.h" + include "motcle.h" + include "nblang.h" c c 0.2. ==> communs c -#include "gmenti.h" -#include "gmstri.h" -#include "cndoad.h" + include "gmenti.h" + include "gmstri.h" + include "cndoad.h" c c 0.3. ==> arguments c @@ -165,7 +165,7 @@ c c c 1.7. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro diff --git a/src/tool/HOMARD_00/hoavli.F b/src/tool/HOMARD_00/hoavli.F index be3255cb..be4c3267 100644 --- a/src/tool/HOMARD_00/hoavli.F +++ b/src/tool/HOMARD_00/hoavli.F @@ -59,11 +59,11 @@ c character*6 nompro parameter ( nompro = 'HOAVLI' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -111,7 +111,7 @@ c c c 1.3. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -182,7 +182,7 @@ c 3.1. ==> message si erreur c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/HOMARD_00/hoavlm.F b/src/tool/HOMARD_00/hoavlm.F index 26a33376..26fdbda4 100644 --- a/src/tool/HOMARD_00/hoavlm.F +++ b/src/tool/HOMARD_00/hoavlm.F @@ -53,15 +53,15 @@ c character*6 nompro parameter ( nompro = 'HOAVLM' ) c -#include "nblang.h" -#include "motcle.h" + include "nblang.h" + include "motcle.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c VERRUE CONFORME PENTAEDRE - DEBUT -#include "gmenti.h" + include "gmenti.h" c VERRUE CONFORME PENTAEDRE - FIN c c 0.3. ==> arguments @@ -116,7 +116,7 @@ c c c 1.3. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -139,7 +139,7 @@ c c call utcvne ( nretap, nrsset, saux, iaux, codret ) c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,90002) 'taopti( 4) - modhom', taopti( 4) @@ -263,7 +263,7 @@ c 4.1. ==> message si erreur c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/HOMARD_00/hocmsa.F b/src/tool/HOMARD_00/hocmsa.F index b8ff8535..6d81f2f8 100644 --- a/src/tool/HOMARD_00/hocmsa.F +++ b/src/tool/HOMARD_00/hocmsa.F @@ -52,17 +52,17 @@ c character*6 nompro parameter ( nompro = 'HOCMSA' ) c -#include "motcle.h" -#include "nblang.h" + include "motcle.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" -#include "gmstri.h" + include "gmenti.h" + include "gmstri.h" c -#include "cndoad.h" + include "cndoad.h" c c 0.3. ==> arguments c @@ -124,7 +124,7 @@ c codret = 2 endif c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -346,7 +346,7 @@ c 5.1. ==> message si erreur c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/HOMARD_00/hocrma.F b/src/tool/HOMARD_00/hocrma.F index 0a3d8ae2..99c25839 100644 --- a/src/tool/HOMARD_00/hocrma.F +++ b/src/tool/HOMARD_00/hocrma.F @@ -66,29 +66,29 @@ c character*6 nompro parameter ( nompro = 'HOCRMA' ) c -#include "motcle.h" -#include "nblang.h" + include "motcle.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -c -#include "gmenti.h" -#include "gmstri.h" -c -#include "nouvnb.h" -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombhe.h" -#include "nombpy.h" -#include "nombpe.h" -#include "cndoad.h" -#include "envada.h" -#include "envca1.h" -#include "envca2.h" + include "envex1.h" +c + include "gmenti.h" + include "gmstri.h" +c + include "nouvnb.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombhe.h" + include "nombpy.h" + include "nombpe.h" + include "cndoad.h" + include "envada.h" + include "envca1.h" + include "envca2.h" c c 0.3. ==> arguments c @@ -192,7 +192,7 @@ c c c 1.5. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -209,7 +209,7 @@ c texte(2,5) = '(32(''=''),/)' texte(2,7) = '(''==> Total number of temporary entities :'',i10)' c -#include "impr03.h" + include "impr03.h" c c 1.6. ==> le titre c @@ -625,7 +625,7 @@ c le type de deraffinement car il a ete inhibe c . Aux iterations suivantes : toujours c==== #ifdef _DEBUG_HOMARD_ - write (ulsort,90002) '8. creation des noeuds supp ; codret', codret + write (ulsort,90002) '8. creation noeuds supp ; codret', codret #endif c if ( imem(adopti+30).ne.0 .or. imem(adopti+31).ne.0 ) then @@ -775,7 +775,7 @@ c 12.1. ==> message si erreur c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/HOMARD_00/hodeci.F b/src/tool/HOMARD_00/hodeci.F index 97764bd5..bb731555 100644 --- a/src/tool/HOMARD_00/hodeci.F +++ b/src/tool/HOMARD_00/hodeci.F @@ -72,28 +72,28 @@ c character*6 nompro parameter ( nompro = 'HODECI' ) c -#include "nblang.h" -#include "motcle.h" + include "nblang.h" + include "motcle.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" -#include "gmreel.h" -#include "gmstri.h" + include "gmenti.h" + include "gmreel.h" + include "gmstri.h" c -#include "cndoad.h" -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombhe.h" -#include "nombpy.h" -#include "nombpe.h" -#include "envada.h" -#include "infini.h" + include "cndoad.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombhe.h" + include "nombpy.h" + include "nombpe.h" + include "envada.h" + include "infini.h" c c 0.3. ==> arguments c @@ -134,7 +134,7 @@ c==== c 1. les initialisations c==== c -#include "impr03.h" + include "impr03.h" c codava = codret c @@ -164,7 +164,7 @@ c codret = 2 endif c -#include "impr01.h" + include "impr01.h" c c 1.4. ==> l'etat courant c @@ -892,7 +892,7 @@ c 14.1. ==> message si erreur c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/HOMARD_00/hoinco.F b/src/tool/HOMARD_00/hoinco.F index f393e132..1f8db47b 100644 --- a/src/tool/HOMARD_00/hoinco.F +++ b/src/tool/HOMARD_00/hoinco.F @@ -47,17 +47,17 @@ c character*6 nompro parameter ( nompro = 'HOINCO' ) c -#include "motcle.h" -#include "nblang.h" + include "motcle.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" -#include "gmstri.h" + include "gmenti.h" + include "gmstri.h" c -#include "cndoad.h" + include "cndoad.h" c c 0.3. ==> arguments c @@ -114,7 +114,7 @@ c codret = 2 endif c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -179,7 +179,7 @@ c endif endif c -#include "impr03.h" + include "impr03.h" c c==== c 2. programme veritable @@ -207,7 +207,7 @@ c 3.1. ==> message si erreur c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/HOMARD_00/hoinit.F b/src/tool/HOMARD_00/hoinit.F index 82b89fbc..c9442d32 100644 --- a/src/tool/HOMARD_00/hoinit.F +++ b/src/tool/HOMARD_00/hoinit.F @@ -48,12 +48,12 @@ c character*6 nompro parameter ( nompro = 'HOINIT' ) c -#include "motcle.h" -#include "nblang.h" + include "motcle.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -71,7 +71,7 @@ c parameter ( nbrmes = 10 ) character*40 messag(nblang,nbrmes) c -#include "mesutp.h" + include "mesutp.h" c integer nbmess parameter ( nbmess = 10 ) @@ -86,7 +86,7 @@ c==== c c 1.1. ==> les messages c -#include "impr01.h" + include "impr01.h" c ulsort = 6 if ( langue.le.0 .or. langue.gt.nblang ) then @@ -125,7 +125,7 @@ c numsec (iaux) = 0 20 continue c -#include "hotits.h" + include "hotits.h" c endif c @@ -172,7 +172,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/HOMARD_00/holect.F b/src/tool/HOMARD_00/holect.F index 64048420..ca199185 100644 --- a/src/tool/HOMARD_00/holect.F +++ b/src/tool/HOMARD_00/holect.F @@ -56,20 +56,20 @@ c character*6 nompro parameter ( nompro = 'HOLECT' ) c -#include "motcle.h" -#include "nblang.h" + include "motcle.h" + include "nblang.h" c -#include "mesutp.h" + include "mesutp.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" -#include "gmreel.h" -#include "gmstri.h" + include "gmenti.h" + include "gmreel.h" + include "gmstri.h" c -#include "cndoad.h" + include "cndoad.h" c c 0.3. ==> arguments c @@ -154,7 +154,7 @@ c c c 1.5. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -196,7 +196,7 @@ c endif endif c -#include "impr03.h" + include "impr03.h" c c==== c 2. lectures des options et verification @@ -245,10 +245,10 @@ c endif c if ( modhom.eq.2 ) then -#include "hotit2.h" + include "hotit2.h" endif if ( modhom.eq.3 ) then -#include "hotit3.h" + include "hotit3.h" endif c call gtfims (nrssse) @@ -315,7 +315,7 @@ c 5.1. ==> message si erreur c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/HOMARD_00/holopt.F b/src/tool/HOMARD_00/holopt.F index bf2ab482..9734bf9c 100644 --- a/src/tool/HOMARD_00/holopt.F +++ b/src/tool/HOMARD_00/holopt.F @@ -57,13 +57,13 @@ c character*6 nompro parameter ( nompro = 'HOLOPT' ) c -#include "motcle.h" -#include "nblang.h" + include "motcle.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "infini.h" + include "envex1.h" + include "infini.h" c c 0.3. ==> arguments c @@ -121,15 +121,15 @@ c c c 1.2. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "melopt.h" -#include "impr03.h" + include "melopt.h" + include "impr03.h" c c 1.3. ==> le numero de sous-etape c @@ -912,7 +912,7 @@ c c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/HOMARD_00/holver.F b/src/tool/HOMARD_00/holver.F index 6ccd5d5e..7d85f079 100644 --- a/src/tool/HOMARD_00/holver.F +++ b/src/tool/HOMARD_00/holver.F @@ -53,12 +53,12 @@ c character*6 nompro parameter ( nompro = 'HOLVER' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "ope1a3.h" + include "envex1.h" + include "ope1a3.h" c c 0.3. ==> arguments c @@ -108,7 +108,7 @@ c c c 1.2. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -135,9 +135,9 @@ c texte(2,98) = '(7x,''Error indicator:'')' texte(2,99) = '(7x,''Solution:'')' c -#include "impr03.h" + include "impr03.h" c -#include "mslver.h" + include "mslver.h" c c 1.3. ==> le numero de sous-etape c @@ -173,8 +173,8 @@ c==== c c 3.1. ==> type de code de calcul associe c -#include "mslve0.h" -#include "mslve1.h" + include "mslve0.h" + include "mslve1.h" c c 3.2. ==> pour le mode homard pur #ifdef _DEBUG_HOMARD_ @@ -202,52 +202,52 @@ c 3.2.2. ==> type de conformite write (ulsort,90002) '3.2.2. conformite ; nbrepb', nbrepb #endif c -#include "mslve2.h" + include "mslve2.h" c c 3.2.3. ==> maillage extrude #ifdef _DEBUG_HOMARD_ write (ulsort,90002) '3.2.3. maillage extrude ; nbrepb', nbrepb #endif c -#include "mslve3.h" + include "mslve3.h" c c 3.2.4. ==> raffinement #ifdef _DEBUG_HOMARD_ write (ulsort,90002) '3.2.4. raffinement ; nbrepb', nbrepb #endif c -#include "mslve5.h" -#include "mslv13.h" -#include "mslve6.h" + include "mslve5.h" + include "mslv13.h" + include "mslve6.h" c c 3.2.5. ==> deraffinement #ifdef _DEBUG_HOMARD_ write (ulsort,90002) '3.2.5. deraffinement ; nbrepb', nbrepb #endif c -#include "mslve7.h" -#include "mslve8.h" + include "mslve7.h" + include "mslve8.h" c c 3.2.6. ==> coherence entre raffinement et deraffinement #ifdef _DEBUG_HOMARD_ write (ulsort,90002) '3.2.6. raff/dera ; nbrepb', nbrepb #endif c -#include "mslve9.h" + include "mslve9.h" c c 3.2.7. ==> coherence des seuils #ifdef _DEBUG_HOMARD_ write (ulsort,90002) '3.2.7. seuils ; nbrepb', nbrepb #endif c -#include "mslv10.h" + include "mslv10.h" c c 3.2.8. ==> indicateur de suivi de frontiere #ifdef _DEBUG_HOMARD_ write (ulsort,90002) '3.2.8. suivi de frontiere ; nbrepb', nbrepb #endif c -#include "mslv11.h" + include "mslv11.h" c c 3.3. ==> pour les autres modes c @@ -282,7 +282,7 @@ c 3.5. ==> reperage temporel de l'indicateur d'erreur c if ( modhom.eq.1 ) then c -#include "mslv12.h" + include "mslv12.h" c endif c @@ -451,7 +451,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/HOMARD_00/homajc.F b/src/tool/HOMARD_00/homajc.F index 63b7b56f..2423ea13 100644 --- a/src/tool/HOMARD_00/homajc.F +++ b/src/tool/HOMARD_00/homajc.F @@ -50,22 +50,22 @@ c character*6 nompro parameter ( nompro = 'HOMAJC' ) c -#include "nblang.h" -#include "motcle.h" + include "nblang.h" + include "motcle.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" -#include "gmstri.h" + include "gmenti.h" + include "gmstri.h" c -#include "cndoad.h" -#include "nombtr.h" -#include "nombqu.h" -#include "envada.h" + include "cndoad.h" + include "nombtr.h" + include "nombqu.h" + include "envada.h" c -#include "nombpe.h" + include "nombpe.h" c c 0.3. ==> arguments c @@ -98,7 +98,7 @@ c==== c 1. les initialisations c==== c -#include "impr03.h" + include "impr03.h" c codava = codret c @@ -128,7 +128,7 @@ c codret = 2 endif c -#include "impr01.h" + include "impr01.h" c c 1.4. ==> l'etat courant c @@ -293,7 +293,7 @@ c 4.1. ==> message si erreur c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/HOMARD_00/hoprin.F b/src/tool/HOMARD_00/hoprin.F index 30835669..27f7005f 100644 --- a/src/tool/HOMARD_00/hoprin.F +++ b/src/tool/HOMARD_00/hoprin.F @@ -35,76 +35,76 @@ c character*6 nompro parameter ( nompro = 'HOPRIN' ) c -#include "nblang.h" -#include "referx.h" + include "nblang.h" + include "referx.h" c c 0.2. ==> communs c On les met tous pour assurer la coherence en descendance. c En principe, le save devrait remedier a cela mais on fait c ceinture et bretelles c -#include "chisig.h" -#include "cndoad.h" -#include "cofhex.h" -#include "cofpen.h" -#include "comp07.h" -#include "defiqu.h" -#include "demitr.h" -#include "dicfen.h" -#include "enti01.h" -#include "envada.h" -#include "envca1.h" -#include "envca2.h" -#include "envex1.h" -#include "fahmed.h" -#include "front0.h" -#include "front1.h" -#include "front2.h" -#include "gmenti.h" -#include "gmreel.h" -#include "gmstri.h" -#include "hexcf0.h" -#include "hexcf1.h" -#include "i1i2i3.h" -#include "impr02.h" -#include "indefi.h" -#include "indefr.h" -#include "indefs.h" -#include "infini.h" -#include "j1234j.h" -#include "nancnb.h" -#include "nbfami.h" -#include "nbfamm.h" -#include "nbutil.h" -#include "nombar.h" -#include "nomber.h" -#include "nombhe.h" -#include "nombmp.h" -#include "nombno.h" -#include "nombpe.h" -#include "nombpy.h" -#include "nombqu.h" -#include "nombsr.h" -#include "nombte.h" -#include "nombtr.h" -#include "nomest.h" -#include "nouvnb.h" -#include "op0123.h" -#include "op1234.h" -#include "op1aa6.h" -#include "ope1a3.h" -#include "ope1a4.h" -#include "ope4a6.h" -#include "oriefp.h" -#include "oriefy.h" -#include "orieqh.h" -#include "oriett.h" -#include "permut.h" -#include "precis.h" -#include "refere.h" -#include "refert.h" -#include "rfamed.h" -#include "rftmed.h" + include "chisig.h" + include "cndoad.h" + include "cofhex.h" + include "cofpen.h" + include "comp07.h" + include "defiqu.h" + include "demitr.h" + include "dicfen.h" + include "enti01.h" + include "envada.h" + include "envca1.h" + include "envca2.h" + include "envex1.h" + include "fahmed.h" + include "front0.h" + include "front1.h" + include "front2.h" + include "gmenti.h" + include "gmreel.h" + include "gmstri.h" + include "hexcf0.h" + include "hexcf1.h" + include "i1i2i3.h" + include "impr02.h" + include "indefi.h" + include "indefr.h" + include "indefs.h" + include "infini.h" + include "j1234j.h" + include "nancnb.h" + include "nbfami.h" + include "nbfamm.h" + include "nbutil.h" + include "nombar.h" + include "nomber.h" + include "nombhe.h" + include "nombmp.h" + include "nombno.h" + include "nombpe.h" + include "nombpy.h" + include "nombqu.h" + include "nombsr.h" + include "nombte.h" + include "nombtr.h" + include "nomest.h" + include "nouvnb.h" + include "op0123.h" + include "op1234.h" + include "op1aa6.h" + include "ope1a3.h" + include "ope1a4.h" + include "ope4a6.h" + include "oriefp.h" + include "oriefy.h" + include "orieqh.h" + include "oriett.h" + include "permut.h" + include "precis.h" + include "refere.h" + include "refert.h" + include "rfamed.h" + include "rftmed.h" c c 0.3. ==> arguments c @@ -120,8 +120,8 @@ c parameter ( nbmess = 10 ) character*80 texte(nblang,nbmess) c -#include "hoconf.h" -#include "langue.h" + include "hoconf.h" + include "langue.h" c c 0.5. ==> initialisations c ______________________________________________________________________ @@ -130,8 +130,8 @@ c==== c 1. initialisation c==== c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c lang = langue nomfic = nfconf diff --git a/src/tool/HOMARD_00/hostop.F b/src/tool/HOMARD_00/hostop.F index e08ab234..116ec7e1 100644 --- a/src/tool/HOMARD_00/hostop.F +++ b/src/tool/HOMARD_00/hostop.F @@ -51,11 +51,11 @@ c character*6 nompro parameter ( nompro = 'HOSTOP' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -73,14 +73,14 @@ c c c 0.5. ==> initialisations c -#include "langue.h" + include "langue.h" c ______________________________________________________________________ c c==== c 1. entete c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro diff --git a/src/tool/HOMARD_00/hosufr.F b/src/tool/HOMARD_00/hosufr.F index 9be3e05e..1f18be45 100644 --- a/src/tool/HOMARD_00/hosufr.F +++ b/src/tool/HOMARD_00/hosufr.F @@ -52,17 +52,17 @@ c character*6 nompro parameter ( nompro = 'HOSUFR' ) c -#include "motcle.h" -#include "nblang.h" + include "motcle.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" -#include "gmstri.h" + include "gmenti.h" + include "gmstri.h" c -#include "cndoad.h" + include "cndoad.h" c c 0.3. ==> arguments c @@ -121,7 +121,7 @@ c codret = 2 endif c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -200,7 +200,7 @@ c c endif c -#include "impr03.h" + include "impr03.h" c c==== c 2. A-t-on des aretes et des quadrangles concernees @@ -262,7 +262,7 @@ c 4.1. ==> message si erreur c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Information/inconv.F b/src/tool/Information/inconv.F index 00b94cf3..d3c4e73d 100644 --- a/src/tool/Information/inconv.F +++ b/src/tool/Information/inconv.F @@ -50,18 +50,18 @@ c character*6 nompro parameter ( nompro = 'INCONV' ) c -#include "motcle.h" -#include "nblang.h" + include "motcle.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" -#include "gmstri.h" + include "gmenti.h" + include "gmstri.h" c -#include "envca2.h" -#include "cndoad.h" + include "envca2.h" + include "cndoad.h" c c 0.3. ==> arguments c @@ -149,7 +149,7 @@ c c c 1.5. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -163,7 +163,7 @@ c texte(2,4) = '(//,a6,'' M E S H C O N V E R S I O N'')' texte(2,5) = '(36(''=''),/)' c -#include "impr03.h" + include "impr03.h" c c 1.6. ==> le titre c @@ -304,7 +304,7 @@ c 4.1. ==> message si erreur c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Information/infami.F b/src/tool/Information/infami.F index a6cecb55..72a22cf8 100644 --- a/src/tool/Information/infami.F +++ b/src/tool/Information/infami.F @@ -54,25 +54,25 @@ c character*6 nompro parameter ( nompro = 'INFAMI' ) c -#include "nblang.h" -#include "consts.h" + include "nblang.h" + include "consts.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" + include "gmenti.h" c -#include "meddc0.h" -#include "envca1.h" -#include "nombmp.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombhe.h" -#include "nombpy.h" -#include "nombpe.h" -#include "nbfami.h" + include "meddc0.h" + include "envca1.h" + include "nombmp.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombhe.h" + include "nombpy.h" + include "nombpe.h" + include "nbfami.h" c c 0.3. ==> arguments c @@ -113,14 +113,14 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" + include "impr03.h" c c==== c 2. recuperation des pointeurs @@ -334,7 +334,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Information/infc00.F b/src/tool/Information/infc00.F index 3caefb9b..927718d0 100644 --- a/src/tool/Information/infc00.F +++ b/src/tool/Information/infc00.F @@ -64,19 +64,19 @@ c character*6 nompro parameter ( nompro = 'INFC00' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "envca1.h" -#include "nombtr.h" -#include "nombte.h" -#include "nombqu.h" -#include "nombpy.h" -#include "nombhe.h" -#include "nombpe.h" -#include "nbutil.h" + include "envex1.h" + include "envca1.h" + include "nombtr.h" + include "nombte.h" + include "nombqu.h" + include "nombpy.h" + include "nombhe.h" + include "nombpe.h" + include "nbutil.h" c c 0.3. ==> arguments c @@ -111,8 +111,8 @@ c==== c 1. messages c==== c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -245,7 +245,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Information/infc01.F b/src/tool/Information/infc01.F index 2900b324..5789595f 100644 --- a/src/tool/Information/infc01.F +++ b/src/tool/Information/infc01.F @@ -64,15 +64,15 @@ c character*6 nompro parameter ( nompro = 'INFC01' ) c -#include "nblang.h" -#include "consts.h" -#include "esutil.h" + include "nblang.h" + include "consts.h" + include "esutil.h" c c 0.2. ==> communs c -#include "gmstri.h" + include "gmstri.h" c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -107,7 +107,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -117,7 +117,7 @@ c c texte(2,4) = '(''Creation of the field '', a8)' c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,4)) nomcha @@ -226,7 +226,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Information/infc02.F b/src/tool/Information/infc02.F index e6b6f6d6..295e5042 100644 --- a/src/tool/Information/infc02.F +++ b/src/tool/Information/infc02.F @@ -123,22 +123,22 @@ c character*6 nompro parameter ( nompro = 'INFC02' ) c -#include "nblang.h" -#include "consts.h" -#include "esutil.h" + include "nblang.h" + include "consts.h" + include "esutil.h" c c 0.2. ==> communs c -#include "gmenti.h" -#include "gmreel.h" -#include "gmstri.h" -#include "nombsr.h" + include "gmenti.h" + include "gmreel.h" + include "gmstri.h" + include "nombsr.h" c -#include "nombhe.h" -#include "nombpe.h" + include "nombhe.h" + include "nombpe.h" c -#include "envex1.h" -#include "impr02.h" + include "envex1.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -163,7 +163,7 @@ c c c 0.4. ==> variables locales c -#include "meddc0.h" + include "meddc0.h" c integer iaux, jaux integer adhist, adcode, adinsu, adcoar, admere, adins2 @@ -199,8 +199,8 @@ c==== c 1. messages c==== c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -638,7 +638,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Information/infc03.F b/src/tool/Information/infc03.F index eadd75fa..09aec957 100644 --- a/src/tool/Information/infc03.F +++ b/src/tool/Information/infc03.F @@ -104,19 +104,19 @@ c character*6 nompro parameter ( nompro = 'INFC03' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "envca1.h" -#include "impr02.h" -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombhe.h" -#include "nombpe.h" + include "envex1.h" + include "envca1.h" + include "impr02.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombhe.h" + include "nombpe.h" c c 0.3. ==> arguments c @@ -155,7 +155,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -165,7 +165,7 @@ c c texte(2,4) = '(''.. Examination of the '',a)' c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,4)) mess14(langue,3,typenh) @@ -337,7 +337,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Information/infc32.F b/src/tool/Information/infc32.F index aa92c07e..6a55f974 100644 --- a/src/tool/Information/infc32.F +++ b/src/tool/Information/infc32.F @@ -70,16 +70,16 @@ c character*6 nompro parameter ( nompro = 'INFC32' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "envca1.h" -#include "impr02.h" -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" + include "envex1.h" + include "envca1.h" + include "impr02.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" c c 0.3. ==> arguments c @@ -114,8 +114,8 @@ c==== c 1. messages c==== c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -241,7 +241,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Information/infc33.F b/src/tool/Information/infc33.F index 2358964a..dd59c0d7 100644 --- a/src/tool/Information/infc33.F +++ b/src/tool/Information/infc33.F @@ -86,20 +86,20 @@ c character*6 nompro parameter ( nompro = 'INFC33' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "envca1.h" -#include "impr02.h" -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombhe.h" -#include "nombpe.h" + include "envex1.h" + include "envca1.h" + include "impr02.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombhe.h" + include "nombpe.h" c c 0.3. ==> arguments c @@ -139,8 +139,8 @@ c==== c 1. messages c==== c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -338,7 +338,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Information/infc34.F b/src/tool/Information/infc34.F index dcec361f..ea8cf962 100644 --- a/src/tool/Information/infc34.F +++ b/src/tool/Information/infc34.F @@ -70,16 +70,16 @@ c character*6 nompro parameter ( nompro = 'INFC34' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "envca1.h" -#include "impr02.h" -#include "nombno.h" -#include "nombar.h" -#include "nombqu.h" + include "envex1.h" + include "envca1.h" + include "impr02.h" + include "nombno.h" + include "nombar.h" + include "nombqu.h" c c 0.3. ==> arguments c @@ -114,8 +114,8 @@ c==== c 1. messages c==== c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -234,7 +234,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Information/infc35.F b/src/tool/Information/infc35.F index c3007c9b..9050a1fd 100644 --- a/src/tool/Information/infc35.F +++ b/src/tool/Information/infc35.F @@ -83,20 +83,20 @@ c character*6 nompro parameter ( nompro = 'INFC35' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "envca1.h" -#include "impr02.h" -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombpy.h" -#include "nombhe.h" -#include "nombpe.h" + include "envex1.h" + include "envca1.h" + include "impr02.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombpy.h" + include "nombhe.h" + include "nombpe.h" c c 0.3. ==> arguments c @@ -134,8 +134,8 @@ c==== c 1. messages c==== c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -269,7 +269,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Information/infc36.F b/src/tool/Information/infc36.F index 9de3ccdc..0e4d7edd 100644 --- a/src/tool/Information/infc36.F +++ b/src/tool/Information/infc36.F @@ -77,17 +77,17 @@ c character*6 nompro parameter ( nompro = 'INFC36' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "envca1.h" -#include "impr02.h" -#include "nombno.h" -#include "nombar.h" -#include "nombqu.h" -#include "nombhe.h" + include "envex1.h" + include "envca1.h" + include "impr02.h" + include "nombno.h" + include "nombar.h" + include "nombqu.h" + include "nombhe.h" c c 0.3. ==> arguments c @@ -126,8 +126,8 @@ c==== c 1. messages c==== c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -394,7 +394,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Information/infc37.F b/src/tool/Information/infc37.F index 4b0cbe04..16458187 100644 --- a/src/tool/Information/infc37.F +++ b/src/tool/Information/infc37.F @@ -76,18 +76,18 @@ c character*6 nompro parameter ( nompro = 'INFC37' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "envca1.h" -#include "impr02.h" -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombpe.h" + include "envex1.h" + include "envca1.h" + include "impr02.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombpe.h" c c 0.3. ==> arguments c @@ -124,8 +124,8 @@ c==== c 1. messages c==== c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -256,7 +256,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Information/infca1.F b/src/tool/Information/infca1.F index 90e42ea3..7fccb645 100644 --- a/src/tool/Information/infca1.F +++ b/src/tool/Information/infca1.F @@ -70,13 +70,13 @@ c character*6 nompro parameter ( nompro = 'INFCA1' ) c -#include "nblang.h" -#include "esutil.h" + include "nblang.h" + include "esutil.h" c c 0.2. ==> communs c -#include "gmenti.h" -#include "gmstri.h" + include "gmenti.h" + include "gmstri.h" c c 0.3. ==> arguments c @@ -125,7 +125,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro diff --git a/src/tool/Information/infca2.F b/src/tool/Information/infca2.F index d8abe4ca..43cd7c9e 100644 --- a/src/tool/Information/infca2.F +++ b/src/tool/Information/infca2.F @@ -73,19 +73,19 @@ c character*6 nompro parameter ( nompro = 'INFCA2' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" -#include "gmreel.h" + include "gmenti.h" + include "gmreel.h" c -#include "nombno.h" -#include "envca1.h" -#include "envada.h" -#include "nomber.h" + include "nombno.h" + include "envca1.h" + include "envada.h" + include "nomber.h" c c 0.3. ==> arguments c @@ -130,7 +130,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -287,7 +287,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Information/infcas.F b/src/tool/Information/infcas.F index a300f81f..0e07eafe 100644 --- a/src/tool/Information/infcas.F +++ b/src/tool/Information/infcas.F @@ -60,22 +60,22 @@ c cfonc integer nbtych cfonc parameter ( nbtych = 5 ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" -#include "gmreel.h" -#include "gmstri.h" + include "gmenti.h" + include "gmreel.h" + include "gmstri.h" c -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "envca1.h" -#include "nomber.h" -#include "nbutil.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "envca1.h" + include "nomber.h" + include "nbutil.h" c c 0.3. ==> arguments c @@ -138,7 +138,7 @@ c======================================================================= c c 1.1. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -153,7 +153,7 @@ c texte(2,5) = '(29(''=''),/)' texte(2,10) = '(''Beginning of writings #'',i3)' c -#include "impr03.h" + include "impr03.h" c c 1.4. ==> le numero de sous-etape c @@ -546,7 +546,7 @@ c 6.1. ==> message si erreur c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Information/infcom.F b/src/tool/Information/infcom.F index d7b9faa2..3bbd26bb 100644 --- a/src/tool/Information/infcom.F +++ b/src/tool/Information/infcom.F @@ -52,32 +52,32 @@ c character*6 nompro parameter ( nompro = 'INFCOM' ) c -#include "nblang.h" -#include "motcle.h" -#include "consts.h" + include "nblang.h" + include "motcle.h" + include "consts.h" c integer nbrcas parameter ( nbrcas = 5 ) c c 0.2. ==> communs c -#include "indefs.h" -#include "gmenti.h" -#include "gmreel.h" -#include "gmstri.h" -#include "envex1.h" -#include "impr02.h" -#include "meddc0.h" -c -#include "nombno.h" -#include "nombmp.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombte.h" -#include "nombqu.h" -#include "nombpy.h" -#include "nombhe.h" -#include "nombpe.h" + include "indefs.h" + include "gmenti.h" + include "gmreel.h" + include "gmstri.h" + include "envex1.h" + include "impr02.h" + include "meddc0.h" +c + include "nombno.h" + include "nombmp.h" + include "nombar.h" + include "nombtr.h" + include "nombte.h" + include "nombqu.h" + include "nombpy.h" + include "nombhe.h" + include "nombpe.h" c c 0.3. ==> arguments c @@ -157,7 +157,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -171,7 +171,7 @@ c texte(2,5) = '(''Type of treatment: '', a)' texte(2,6) = '(''.. Examination of the'',i10,1x,a)' c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,90002) 'taopti(12)', taopti(12) @@ -613,7 +613,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Information/inffre.F b/src/tool/Information/inffre.F index 9230149c..f087d411 100644 --- a/src/tool/Information/inffre.F +++ b/src/tool/Information/inffre.F @@ -96,25 +96,25 @@ c character*6 nompro parameter ( nompro = 'INFFRE' ) c -#include "nblang.h" -#include "consts.h" -#include "meddc0.h" -#include "fractb.h" -#include "fractc.h" -#include "fracte.h" -#include "fractf.h" -#include "esutil.h" + include "nblang.h" + include "consts.h" + include "meddc0.h" + include "fractb.h" + include "fractc.h" + include "fracte.h" + include "fractf.h" + include "esutil.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" -#include "gmreel.h" -#include "gmstri.h" + include "gmenti.h" + include "gmreel.h" + include "gmstri.h" c -#include "nomber.h" -#include "envca1.h" + include "nomber.h" + include "envca1.h" c c 0.3. ==> arguments c @@ -171,7 +171,7 @@ c 1. initialisation c==== c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -188,7 +188,7 @@ c texte(2,6) = '(a,'' :'',i5)' texte(2,7) = '(''Node projection cannot be done'')' c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,4)) nocham @@ -683,7 +683,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Information/infoar.F b/src/tool/Information/infoar.F index d9e12aeb..e173139b 100644 --- a/src/tool/Information/infoar.F +++ b/src/tool/Information/infoar.F @@ -115,30 +115,30 @@ c integer langst parameter ( langst = 1 ) c -#include "nblang.h" -#include "consts.h" -#include "tbdim0.h" -#include "meddc0.h" -#include "cofaar.h" + include "nblang.h" + include "consts.h" + include "tbdim0.h" + include "meddc0.h" + include "cofaar.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "inmess.h" -c -#include "dicfen.h" -#include "nbfami.h" -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombpy.h" -#include "nombhe.h" -#include "nombpe.h" -#include "nomber.h" -#include "envca1.h" -#include "envada.h" + include "envex1.h" + include "inmess.h" +c + include "dicfen.h" + include "nbfami.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombpy.h" + include "nombhe.h" + include "nombpe.h" + include "nomber.h" + include "envca1.h" + include "envada.h" c c 0.3. ==> arguments c @@ -194,17 +194,17 @@ c parameter ( nbmess = 10 ) character*80 texte(nblang,nbmess) c -#include "fracta.h" + include "fracta.h" c ______________________________________________________________________ c c==== c 1. initialisation c==== c -#include "impr01.h" -#include "infoen.h" -#include "tbdim1.h" -#include "impr03.h" + include "impr01.h" + include "infoen.h" + include "tbdim1.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -372,7 +372,7 @@ c write (ulecr,46040) laface, taux40 nbface = nbface + 1 iaux = nbface -#include "tbdim2.h" + include "tbdim2.h" trav1a(iaux) = laface 3261 continue endif @@ -523,7 +523,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Information/infofo.F b/src/tool/Information/infofo.F index adeff900..0ccee63b 100644 --- a/src/tool/Information/infofo.F +++ b/src/tool/Information/infofo.F @@ -56,18 +56,18 @@ c character*6 nompro parameter ( nompro = 'INFOFO' ) c -#include "nblang.h" -#include "consts.h" -#include "meddc0.h" -#include "esutil.h" + include "nblang.h" + include "consts.h" + include "meddc0.h" + include "esutil.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" -#include "gmstri.h" -#include "gmreel.h" + include "gmenti.h" + include "gmstri.h" + include "gmreel.h" c c 0.3. ==> arguments c @@ -111,8 +111,8 @@ c==== c 1. messages c==== c -#include "impr01.h" -#include "infoen.h" + include "impr01.h" + include "infoen.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -131,7 +131,7 @@ c texte(2,7) = '(''. Profil name : '',a)' texte(2,8) = '(''Profile lengths are not coherent.'')' c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,4)) typg @@ -475,7 +475,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Information/infohe.F b/src/tool/Information/infohe.F index 2036b34b..8b2798d3 100644 --- a/src/tool/Information/infohe.F +++ b/src/tool/Information/infohe.F @@ -115,30 +115,30 @@ c integer langst parameter ( langst = 1 ) c -#include "nblang.h" -#include "consts.h" -#include "tbdim0.h" -#include "meddc0.h" + include "nblang.h" + include "consts.h" + include "tbdim0.h" + include "meddc0.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "inmess.h" -#include "impr02.h" -c -#include "nomber.h" -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombpy.h" -#include "nombhe.h" -#include "nombpe.h" -#include "hexcf0.h" -#include "hexcf1.h" -#include "envada.h" -#include "envca1.h" + include "envex1.h" + include "inmess.h" + include "impr02.h" +c + include "nomber.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombpy.h" + include "nombhe.h" + include "nombpe.h" + include "hexcf0.h" + include "hexcf1.h" + include "envada.h" + include "envca1.h" c c 0.3. ==> arguments c @@ -197,18 +197,18 @@ c parameter ( nbmess = 10 ) character*80 texte(nblang,nbmess) c -#include "fractf.h" + include "fractf.h" c ______________________________________________________________________ c c==== c 1. initialisation c==== c -#include "impr01.h" -#include "infoen.h" -#include "tbdim1.h" + include "impr01.h" + include "infoen.h" + include "tbdim1.h" c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -632,7 +632,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Information/infomp.F b/src/tool/Information/infomp.F index ea93fd9d..577b5811 100644 --- a/src/tool/Information/infomp.F +++ b/src/tool/Information/infomp.F @@ -66,20 +66,20 @@ c character*6 nompro parameter ( nompro = 'INFOMP' ) c -#include "nblang.h" -#include "consts.h" -#include "meddc0.h" + include "nblang.h" + include "consts.h" + include "meddc0.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "inmess.h" + include "envex1.h" + include "inmess.h" c -#include "nombno.h" -#include "nombmp.h" -#include "nomber.h" -#include "envca1.h" -#include "envada.h" + include "nombno.h" + include "nombmp.h" + include "nomber.h" + include "envca1.h" + include "envada.h" c c 0.3. ==> arguments c @@ -118,8 +118,8 @@ c==== c 1. initialisation c==== c -#include "impr01.h" -#include "infoen.h" + include "impr01.h" + include "infoen.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -251,7 +251,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Information/infono.F b/src/tool/Information/infono.F index 9d3e55b0..325d56d2 100644 --- a/src/tool/Information/infono.F +++ b/src/tool/Information/infono.F @@ -104,26 +104,26 @@ c character*6 nompro parameter ( nompro = 'INFONO' ) c -#include "nblang.h" -#include "tbdim0.h" + include "nblang.h" + include "tbdim0.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "inmess.h" -c -#include "nomber.h" -#include "nombno.h" -#include "nombmp.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombpy.h" -#include "nombhe.h" -#include "nombpe.h" -#include "envca1.h" -#include "envada.h" + include "envex1.h" + include "inmess.h" +c + include "nomber.h" + include "nombno.h" + include "nombmp.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombpy.h" + include "nombhe.h" + include "nombpe.h" + include "envca1.h" + include "envada.h" c c 0.3. ==> arguments c @@ -187,16 +187,16 @@ c==== c 1. initialisation c==== c -#include "impr01.h" -#include "infoen.h" -#include "tbdim1.h" + include "impr01.h" + include "infoen.h" + include "tbdim1.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" + include "impr03.h" c codret = 0 c @@ -345,11 +345,11 @@ c on range dans trav1a les aretes qui finissent a ce noeud do 2261 , kaux = 1 , nbarto if ( somare(1,kaux).eq.lenoeu ) then jaux = jaux + 1 -#include "tbdim3.h" + include "tbdim3.h" trav2a(jaux) = kaux elseif ( somare(2,kaux).eq.lenoeu ) then iaux = iaux + 1 -#include "tbdim2.h" + include "tbdim2.h" trav1a(iaux) = kaux endif 2261 continue @@ -371,7 +371,7 @@ c dans trav1a taux20 = textar(mod(hetare(larete),10))(1:20) write (ulecr,46021) larete, lenoeu, sommfi, taux20 iaux = iaux + 1 -#include "tbdim2.h" + include "tbdim2.h" trav1a(iaux) = larete 2263 continue endif @@ -399,7 +399,7 @@ c endif write (ulecr,47030) laface, taux40 iaux = iaux + 1 -#include "tbdim2.h" + include "tbdim2.h" trav2a(iaux) = laface 2271 continue endif @@ -448,7 +448,7 @@ c 2276 continue nbface = nbface + 1 iaux = nbface -#include "tbdim2.h" + include "tbdim2.h" trav2a(iaux) = laface 2277 continue 2275 continue @@ -603,7 +603,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Information/infope.F b/src/tool/Information/infope.F index d920a05c..f18b9c5c 100644 --- a/src/tool/Information/infope.F +++ b/src/tool/Information/infope.F @@ -116,28 +116,28 @@ c integer langst parameter ( langst = 1 ) c -#include "nblang.h" -#include "consts.h" -#include "tbdim0.h" -#include "meddc0.h" + include "nblang.h" + include "consts.h" + include "tbdim0.h" + include "meddc0.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "inmess.h" -#include "impr02.h" -c -#include "nomber.h" -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombpy.h" -#include "nombhe.h" -#include "nombpe.h" -#include "envada.h" -#include "envca1.h" + include "envex1.h" + include "inmess.h" + include "impr02.h" +c + include "nomber.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombpy.h" + include "nombhe.h" + include "nombpe.h" + include "envada.h" + include "envca1.h" c c 0.3. ==> arguments c @@ -196,16 +196,16 @@ c parameter ( nbmess = 10 ) character*80 texte(nblang,nbmess) c -#include "fracte.h" + include "fracte.h" c ______________________________________________________________________ c c==== c 1. initialisation c==== c -#include "impr01.h" -#include "infoen.h" -#include "tbdim1.h" + include "impr01.h" + include "infoen.h" + include "tbdim1.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -624,7 +624,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Information/infopf.F b/src/tool/Information/infopf.F index f6e28146..ab019b64 100644 --- a/src/tool/Information/infopf.F +++ b/src/tool/Information/infopf.F @@ -56,16 +56,16 @@ c character*6 nompro parameter ( nompro = 'INFOPF' ) c -#include "nblang.h" -#include "consts.h" -#include "meddc0.h" + include "nblang.h" + include "consts.h" + include "meddc0.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" -#include "gmstri.h" + include "gmenti.h" + include "gmstri.h" c c 0.3. ==> arguments c @@ -97,7 +97,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -112,7 +112,7 @@ c texte(2,5) = '(''Number of entity :'',i5)' texte(2,6) = '(/,''Pack of functions # '',i5)' c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,4)) typg @@ -208,7 +208,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Information/infopy.F b/src/tool/Information/infopy.F index 0942103e..eac603a4 100644 --- a/src/tool/Information/infopy.F +++ b/src/tool/Information/infopy.F @@ -127,30 +127,30 @@ c integer langst parameter ( langst = 1 ) c -#include "nblang.h" -#include "consts.h" -#include "tbdim0.h" -#include "meddc0.h" + include "nblang.h" + include "consts.h" + include "tbdim0.h" + include "meddc0.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "inmess.h" -#include "impr02.h" + include "envex1.h" + include "inmess.h" + include "impr02.h" c -#include "nomber.h" -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombpy.h" -#include "nombhe.h" -#include "nombpe.h" -#include "hexcf0.h" + include "nomber.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombpy.h" + include "nombhe.h" + include "nombpe.h" + include "hexcf0.h" c -#include "envada.h" -#include "envca1.h" + include "envada.h" + include "envca1.h" c c 0.3. ==> arguments c @@ -211,7 +211,7 @@ c parameter ( nbmess = 10 ) character*80 texte(nblang,nbmess) c -#include "fractd.h" + include "fractd.h" c c ______________________________________________________________________ c @@ -219,11 +219,11 @@ c==== c 1. initialisation c==== c -#include "impr01.h" -#include "infoen.h" -#include "tbdim1.h" + include "impr01.h" + include "infoen.h" + include "tbdim1.h" c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -643,7 +643,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Information/infoqu.F b/src/tool/Information/infoqu.F index 389a480c..268cee66 100644 --- a/src/tool/Information/infoqu.F +++ b/src/tool/Information/infoqu.F @@ -104,28 +104,28 @@ c integer langst parameter ( langst = 1 ) c -#include "nblang.h" -#include "consts.h" -#include "tbdim0.h" -#include "meddc0.h" + include "nblang.h" + include "consts.h" + include "tbdim0.h" + include "meddc0.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "inmess.h" -#include "impr02.h" -#include "indefi.h" -c -#include "nomber.h" -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombpy.h" -#include "nombhe.h" -#include "nombpe.h" -#include "envada.h" -#include "envca1.h" + include "envex1.h" + include "inmess.h" + include "impr02.h" + include "indefi.h" +c + include "nomber.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombpy.h" + include "nombhe.h" + include "nombpe.h" + include "envada.h" + include "envca1.h" c c 0.3. ==> arguments c @@ -190,23 +190,23 @@ c parameter ( nbmess = 10 ) character*80 texte(nblang,nbmess) c -#include "fractc.h" + include "fractc.h" c ______________________________________________________________________ c c==== c 1. initialisation c==== c -#include "impr01.h" -#include "infoen.h" -#include "tbdim1.h" + include "impr01.h" + include "infoen.h" + include "tbdim1.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" + include "impr03.h" c codret = 0 c @@ -462,7 +462,7 @@ c if ( jaux.gt.0 ) then if ( nivtri(jaux).eq.niveau ) then ntrniv = ntrniv + 1 -#include "tbdim4.h" + include "tbdim4.h" trav2a(ntrniv+nquniv) = jaux else do 32621 , laux = 1 , nbfitr @@ -471,14 +471,14 @@ c endif 32621 continue ntraut = ntraut + 1 -#include "tbdim5.h" + include "tbdim5.h" trav1a(nbar+ntraut+nquaut) = jaux endif else if ( -jaux.ne.lequad ) then if ( nivqua(-jaux).eq.niveau ) then nquniv = nquniv + 1 -#include "tbdim4.h" + include "tbdim4.h" trav2a(ntrniv+nquniv) = jaux else do 32622 , laux = 1 , nbfiqu @@ -487,7 +487,7 @@ c endif 32622 continue nquaut = nquaut + 1 -#include "tbdim5.h" + include "tbdim5.h" trav1a(nbar+ntraut+nquaut) = jaux endif endif @@ -701,7 +701,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Information/infote.F b/src/tool/Information/infote.F index e0ab286f..f6800c5e 100644 --- a/src/tool/Information/infote.F +++ b/src/tool/Information/infote.F @@ -126,30 +126,30 @@ c integer langst parameter ( langst = 1 ) c -#include "nblang.h" -#include "consts.h" -#include "tbdim0.h" -#include "meddc0.h" + include "nblang.h" + include "consts.h" + include "tbdim0.h" + include "meddc0.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "inmess.h" -#include "impr02.h" + include "envex1.h" + include "inmess.h" + include "impr02.h" c -#include "nomber.h" -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombpy.h" -#include "nombhe.h" -#include "nombpe.h" -#include "hexcf0.h" + include "nomber.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombpy.h" + include "nombhe.h" + include "nombpe.h" + include "hexcf0.h" c -#include "envada.h" -#include "envca1.h" + include "envada.h" + include "envca1.h" c c 0.3. ==> arguments c @@ -210,18 +210,18 @@ c parameter ( nbmess = 10 ) character*80 texte(nblang,nbmess) c -#include "fractc.h" + include "fractc.h" c ______________________________________________________________________ c c==== c 1. initialisation c==== c -#include "impr01.h" -#include "infoen.h" -#include "tbdim1.h" + include "impr01.h" + include "infoen.h" + include "tbdim1.h" c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -658,7 +658,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Information/infotr.F b/src/tool/Information/infotr.F index ea8fdf4f..e8d6bd1f 100644 --- a/src/tool/Information/infotr.F +++ b/src/tool/Information/infotr.F @@ -104,28 +104,28 @@ c integer langst parameter ( langst = 1 ) c -#include "nblang.h" -#include "consts.h" -#include "tbdim0.h" -#include "meddc0.h" + include "nblang.h" + include "consts.h" + include "tbdim0.h" + include "meddc0.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "inmess.h" -#include "impr02.h" -#include "indefi.h" -c -#include "nomber.h" -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombpy.h" -#include "nombpe.h" -#include "envada.h" -#include "envca1.h" + include "envex1.h" + include "inmess.h" + include "impr02.h" + include "indefi.h" +c + include "nomber.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombpy.h" + include "nombpe.h" + include "envada.h" + include "envca1.h" c c 0.3. ==> arguments c @@ -189,23 +189,23 @@ c parameter ( nbmess = 10 ) character*80 texte(nblang,nbmess) c -#include "fractb.h" + include "fractb.h" c ______________________________________________________________________ c c==== c 1. initialisation c==== c -#include "impr01.h" -#include "infoen.h" -#include "tbdim1.h" + include "impr01.h" + include "infoen.h" + include "tbdim1.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" + include "impr03.h" c codret = 0 c @@ -453,7 +453,7 @@ c if ( jaux.ne.letria ) then if ( nivtri(jaux).eq.niveau ) then ntrniv = ntrniv + 1 -#include "tbdim4.h" + include "tbdim4.h" trav2a(ntrniv+nquniv) = jaux else do 32621 , laux = 1 , nbfitr @@ -462,18 +462,18 @@ c endif 32621 continue ntraut = ntraut + 1 -#include "tbdim5.h" + include "tbdim5.h" trav1a(nbar+ntraut+nquaut) = jaux endif endif else if ( nivqua(-jaux).eq.niveau ) then nquniv = nquniv + 1 -#include "tbdim4.h" + include "tbdim4.h" trav2a(ntrniv+nquniv) = jaux else nquaut = nquaut + 1 -#include "tbdim5.h" + include "tbdim5.h" trav1a(nbar+ntraut+nquaut) = jaux endif endif @@ -686,7 +686,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Information/infova.F b/src/tool/Information/infova.F index 356fb3f0..5413358b 100644 --- a/src/tool/Information/infova.F +++ b/src/tool/Information/infova.F @@ -74,19 +74,19 @@ c character*6 nompro parameter ( nompro = 'INFOVA' ) c -#include "nblang.h" -#include "tbdim0.h" + include "nblang.h" + include "tbdim0.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "impr02.h" + include "envex1.h" + include "impr02.h" c -#include "nombar.h" -#include "nombte.h" -#include "nombpy.h" -#include "nombhe.h" -#include "nombpe.h" + include "nombar.h" + include "nombte.h" + include "nombpy.h" + include "nombhe.h" + include "nombpe.h" c c 0.3. ==> arguments c @@ -125,8 +125,8 @@ c 1. initialisation c==== c 1.1. ==> messages c -#include "impr01.h" -#include "infoen.h" + include "impr01.h" + include "infoen.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -137,7 +137,7 @@ c c texte(2,4) = '(''Number of edgs'',i10)' c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,4)) nbaret @@ -320,7 +320,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Information/infovi.F b/src/tool/Information/infovi.F index 9af2f4de..d9b91879 100644 --- a/src/tool/Information/infovi.F +++ b/src/tool/Information/infovi.F @@ -68,20 +68,20 @@ c character*6 nompro parameter ( nompro = 'INFOVI' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "inmess.h" -#include "impr02.h" + include "envex1.h" + include "inmess.h" + include "impr02.h" c -#include "nombte.h" -#include "nombpy.h" -#include "nombhe.h" -#include "nombpe.h" -#include "hexcf0.h" -#include "hexcf1.h" + include "nombte.h" + include "nombpy.h" + include "nombhe.h" + include "nombpe.h" + include "hexcf0.h" + include "hexcf1.h" c c 0.3. ==> arguments c @@ -117,15 +117,15 @@ c 1. initialisation c==== c 1.1. ==> messages c -#include "impr01.h" -#include "infoen.h" + include "impr01.h" + include "infoen.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" + include "impr03.h" c c 1.2. ==> indirections dans les messages c @@ -244,7 +244,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Information/infovo.F b/src/tool/Information/infovo.F index 083ce9d3..64ce6048 100644 --- a/src/tool/Information/infovo.F +++ b/src/tool/Information/infovo.F @@ -87,23 +87,23 @@ c character*6 nompro parameter ( nompro = 'INFOVO' ) c -#include "nblang.h" -#include "tbdim0.h" + include "nblang.h" + include "tbdim0.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "inmess.h" -#include "impr02.h" + include "envex1.h" + include "inmess.h" + include "impr02.h" c -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombpy.h" -#include "nombhe.h" -#include "nombpe.h" -#include "hexcf0.h" -#include "hexcf1.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombpy.h" + include "nombhe.h" + include "nombpe.h" + include "hexcf0.h" + include "hexcf1.h" c c 0.3. ==> arguments c @@ -144,8 +144,8 @@ c 1. initialisation c==== c 1.1. ==> messages c -#include "impr01.h" -#include "infoen.h" + include "impr01.h" + include "infoen.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -162,9 +162,9 @@ c texte(2,6) = '(''.. '',a,''#'',i10)' texte(2,7) = '(''Number of '',,a,'':'',i10)' c -#include "impr03.h" + include "impr03.h" c -#include "tbdim1.h" + include "tbdim1.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,4)) nufafi-nufade+1 @@ -229,7 +229,7 @@ c do 311 , jaux = 1 , volint(1,0) if ( volint(1,jaux).eq.letetr ) then iaux = nument -#include "tbdim2.h" + include "tbdim2.h" trav1a(iaux) = 0 goto 31 endif @@ -259,7 +259,7 @@ c do 321 , jaux = 1 , volint(2,0) if ( volint(2,jaux).eq.lehexa ) then iaux = decafv+nument -#include "tbdim2.h" + include "tbdim2.h" trav1a(iaux) = 0 goto 32 endif @@ -289,7 +289,7 @@ c do 331 , jaux = 1 , volint(3,0) if ( volint(3,jaux).eq.lapyra ) then iaux = 2*decafv+nument -#include "tbdim2.h" + include "tbdim2.h" trav1a(iaux) = 0 goto 33 endif @@ -319,7 +319,7 @@ c do 341 , jaux = 1 , volint(4,0) if ( volint(4,jaux).eq.lepent ) then iaux = 3*decafv+nument -#include "tbdim2.h" + include "tbdim2.h" trav1a(iaux) = 0 goto 34 endif @@ -439,7 +439,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Information/infqen.F b/src/tool/Information/infqen.F index fa3780d9..ce1967f5 100644 --- a/src/tool/Information/infqen.F +++ b/src/tool/Information/infqen.F @@ -101,27 +101,27 @@ c character*6 nompro parameter ( nompro = 'INFQEN' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "gmenti.h" -#include "gmreel.h" -#include "envex1.h" + include "gmenti.h" + include "gmreel.h" + include "envex1.h" c -#include "dicfen.h" -#include "nbfami.h" -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombhe.h" -#include "nombpy.h" -#include "nombpe.h" -#include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombhe.h" + include "nombpy.h" + include "nombpe.h" + include "envca1.h" c -#include "impr02.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -174,7 +174,7 @@ c==== c c 1.1. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -197,7 +197,7 @@ c texte(2,10) = > '(''In this mesh, all the faces are connected to tetraedra.'')' c -#include "impr03.h" + include "impr03.h" c 10000 format (40('*')) 10001 format ('*',i10 ,' |',i10 ,' | ',g12.5,' *') @@ -382,7 +382,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Information/infve0.F b/src/tool/Information/infve0.F index f36ef6bd..65cf3ca6 100644 --- a/src/tool/Information/infve0.F +++ b/src/tool/Information/infve0.F @@ -186,23 +186,23 @@ c character*6 nompro parameter ( nompro = 'INFVE0' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" -#include "gmreel.h" + include "gmenti.h" + include "gmreel.h" c -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "envca1.h" -#include "envada.h" -#include "nomber.h" -#include "impr02.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "envca1.h" + include "envada.h" + include "nomber.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -279,7 +279,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -308,7 +308,7 @@ c texte(2,18) = '(''Current action : '',a)' texte(2,20) = '(/,''Creation of Xfig file #'',i4)' c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ if ( numblo.eq.0 ) then @@ -637,7 +637,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Information/infve1.F b/src/tool/Information/infve1.F index 96609c9f..fb9925e3 100644 --- a/src/tool/Information/infve1.F +++ b/src/tool/Information/infve1.F @@ -127,17 +127,17 @@ c character*6 nompro parameter ( nompro = 'INFVE1' ) c -#include "nblang.h" -#include "esutil.h" -#include "consts.h" + include "nblang.h" + include "esutil.h" + include "consts.h" c c 0.2. ==> communs c -#include "envca1.h" -#include "gmenti.h" -#include "gmstri.h" -#include "infini.h" -#include "precis.h" + include "envca1.h" + include "gmenti.h" + include "gmstri.h" + include "infini.h" + include "precis.h" c c 0.3. ==> arguments c @@ -202,7 +202,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro diff --git a/src/tool/Information/infve2.F b/src/tool/Information/infve2.F index fd8af50c..c67be5e3 100644 --- a/src/tool/Information/infve2.F +++ b/src/tool/Information/infve2.F @@ -158,23 +158,23 @@ c character*6 nompro parameter ( nompro = 'INFVE2' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "envca1.h" -#include "envada.h" -#include "impr02.h" -#include "nombno.h" -#include "nombar.h" -#include "nombqu.h" -#include "nombtr.h" -#include "nombte.h" -#include "nombhe.h" -#include "nombpy.h" -#include "nombpe.h" -#include "nbfami.h" + include "envex1.h" + include "envca1.h" + include "envada.h" + include "impr02.h" + include "nombno.h" + include "nombar.h" + include "nombqu.h" + include "nombtr.h" + include "nombte.h" + include "nombhe.h" + include "nombpy.h" + include "nombpe.h" + include "nbfami.h" c c 0.3. ==> arguments c @@ -227,7 +227,7 @@ c==== c 1. prealables c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -238,7 +238,7 @@ c c texte(2,4) = '(''Number of '',a,'' for plotting:'',i10)' c -#include "impr03.h" + include "impr03.h" c c a priori, on ne trace rien c @@ -847,7 +847,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Information/infve3.F b/src/tool/Information/infve3.F index 94a439c2..61cfdba7 100644 --- a/src/tool/Information/infve3.F +++ b/src/tool/Information/infve3.F @@ -68,17 +68,17 @@ c character*6 nompro parameter ( nompro = 'INFVE3' ) c -#include "nblang.h" + include "nblang.h" c -#include "consta.h" -#include "fracta.h" + include "consta.h" + include "fracta.h" c c 0.2. ==> communs c -#include "nombno.h" -#include "envca1.h" -#include "precis.h" -#include "envex1.h" + include "nombno.h" + include "envca1.h" + include "precis.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -112,7 +112,7 @@ c==== c 1. les messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -129,7 +129,7 @@ c texte(2,6) = '(''Centre = '',3g12.5)' texte(2,7) = '(''Size = '',3g12.5)' c -#include "impr03.h" + include "impr03.h" c codret = 0 c @@ -412,7 +412,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Information/infve4.F b/src/tool/Information/infve4.F index 32710047..143e906b 100644 --- a/src/tool/Information/infve4.F +++ b/src/tool/Information/infve4.F @@ -72,19 +72,19 @@ c character*6 nompro parameter ( nompro = 'INFVE4' ) c -#include "nblang.h" -#include "consts.h" -#include "meddc0.h" + include "nblang.h" + include "consts.h" + include "meddc0.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "envca1.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "envca1.h" c c 0.3. ==> arguments c @@ -117,7 +117,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -170,7 +170,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Information/infve5.F b/src/tool/Information/infve5.F index 47c4e478..2fc61cc6 100644 --- a/src/tool/Information/infve5.F +++ b/src/tool/Information/infve5.F @@ -75,16 +75,16 @@ c character*6 nompro parameter ( nompro = 'INFVE5' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombhe.h" -#include "nombpy.h" -#include "impr02.h" + include "envex1.h" + include "nombqu.h" + include "nombte.h" + include "nombhe.h" + include "nombpy.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -113,7 +113,7 @@ c 1. prealables c==== c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -132,7 +132,7 @@ c texte(2,7) = '(''Writings for the level #'',i6)' texte(2,8) = '(''Search of the '',a,'' for plotting'')' c -#include "impr03.h" + include "impr03.h" c codret = 0 c @@ -396,7 +396,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Information/infve6.F b/src/tool/Information/infve6.F index 034226cf..e11e4d55 100644 --- a/src/tool/Information/infve6.F +++ b/src/tool/Information/infve6.F @@ -84,14 +84,14 @@ c character*6 nompro parameter ( nompro = 'INFVE6' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca2.h" -#include "envada.h" + include "envca2.h" + include "envada.h" c c 0.3. ==> arguments c @@ -125,7 +125,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -401,7 +401,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Information/infve7.F b/src/tool/Information/infve7.F index a852c435..e134b550 100644 --- a/src/tool/Information/infve7.F +++ b/src/tool/Information/infve7.F @@ -60,18 +60,18 @@ c character*6 nompro parameter ( nompro = 'INFVE7' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombhe.h" -#include "nombpe.h" -#include "nombpy.h" -#include "impr02.h" + include "envex1.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombhe.h" + include "nombpe.h" + include "nombpy.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -99,7 +99,7 @@ c 1. prealables c==== c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -184,7 +184,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Information/infvec.F b/src/tool/Information/infvec.F index 0fe92317..7c343744 100644 --- a/src/tool/Information/infvec.F +++ b/src/tool/Information/infvec.F @@ -61,29 +61,29 @@ c cfonc integer nbtych cfonc parameter ( nbtych = 5 ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -c -#include "gmenti.h" -#include "gmreel.h" -#include "gmstri.h" -c -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombhe.h" -#include "nombpy.h" -#include "nombpe.h" -#include "nbfami.h" -#include "envca1.h" -#include "envada.h" -#include "nomber.h" -#include "nbutil.h" + include "envex1.h" +c + include "gmenti.h" + include "gmreel.h" + include "gmstri.h" +c + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombhe.h" + include "nombpy.h" + include "nombpe.h" + include "nbfami.h" + include "envca1.h" + include "envada.h" + include "nomber.h" + include "nbutil.h" c c 0.3. ==> arguments c @@ -185,7 +185,7 @@ c======================================================================= c c 1.1. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -202,7 +202,7 @@ c texte(2,6) = '(''Beginning of writings #'',i3)' texte(2,7) = '(''Current action : '',a)' c -#include "impr03.h" + include "impr03.h" c c 1.4. ==> le numero de sous-etape c @@ -1091,7 +1091,7 @@ c c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Information/ininfm.F b/src/tool/Information/ininfm.F index 83196f44..e2d956cb 100644 --- a/src/tool/Information/ininfm.F +++ b/src/tool/Information/ininfm.F @@ -52,20 +52,20 @@ c character*6 nompro parameter ( nompro = 'ININFM' ) c -#include "motcle.h" -#include "nblang.h" + include "motcle.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "envca1.h" -#include "envada.h" + include "envex1.h" + include "envca1.h" + include "envada.h" c -#include "gmenti.h" -#include "gmstri.h" + include "gmenti.h" + include "gmstri.h" c -#include "cndoad.h" -#include "nomber.h" + include "cndoad.h" + include "nomber.h" c c 0.3. ==> arguments c @@ -163,9 +163,9 @@ c c c 1.5. ==> les messages c -#include "impr03.h" + include "impr03.h" c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -532,7 +532,7 @@ c 7.1. ==> message si erreur c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Information/initer.F b/src/tool/Information/initer.F index adf1140e..aca2dcf3 100644 --- a/src/tool/Information/initer.F +++ b/src/tool/Information/initer.F @@ -48,14 +48,14 @@ c character*6 nompro parameter ( nompro = 'INITER' ) c -#include "nblang.h" -#include "consts.h" + include "nblang.h" + include "consts.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envada.h" + include "envada.h" c c 0.3. ==> arguments c @@ -80,7 +80,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -133,7 +133,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Information/inqur1.F b/src/tool/Information/inqur1.F index ec4b19a1..7a21c4a6 100644 --- a/src/tool/Information/inqur1.F +++ b/src/tool/Information/inqur1.F @@ -54,30 +54,30 @@ c character*6 nompro parameter ( nompro = 'INQUR1' ) c -#include "nblang.h" -#include "consts.h" -#include "motcle.h" + include "nblang.h" + include "consts.h" + include "motcle.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "inmess.h" -c -#include "gmenti.h" -#include "gmreel.h" -#include "gmstri.h" -c -#include "meddc0.h" -#include "envca1.h" -#include "nombmp.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombhe.h" -#include "nombpy.h" -#include "nombpe.h" -#include "nomber.h" -#include "nbfami.h" + include "envex1.h" + include "inmess.h" +c + include "gmenti.h" + include "gmreel.h" + include "gmstri.h" +c + include "meddc0.h" + include "envca1.h" + include "nombmp.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombhe.h" + include "nombpy.h" + include "nombpe.h" + include "nomber.h" + include "nbfami.h" c c 0.3. ==> arguments c @@ -164,16 +164,16 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "inmes0.h" + include "inmes0.h" c -#include "impr03.h" + include "impr03.h" c c==== c 2. recuperation des pointeurs @@ -1374,7 +1374,7 @@ c 4.1. ==> message si erreur c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Information/inqur2.F b/src/tool/Information/inqur2.F index 24d3f50f..03837c5a 100644 --- a/src/tool/Information/inqur2.F +++ b/src/tool/Information/inqur2.F @@ -57,21 +57,21 @@ c parameter ( nompro = 'INQUR2' ) #endif c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c #ifdef _DEBUG_HOMARD_ -#include "envex1.h" + include "envex1.h" #endif c -#include "nombmp.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombhe.h" -#include "nombpy.h" -#include "nombpe.h" + include "nombmp.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombhe.h" + include "nombpy.h" + include "nombpe.h" c c 0.3. ==> arguments c @@ -103,7 +103,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -125,7 +125,7 @@ c texte(2,8) = '(''Only faces or tetraedra.'')' texte(2,9) = '(''#'',i10,'' impossible. A >0 # is required.'')' c -#include "impr03.h" + include "impr03.h" c 10001 format ( >/,'Choisir . soit ''q'' pour quitter,', @@ -449,7 +449,7 @@ c c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Information/inqure.F b/src/tool/Information/inqure.F index 34831e2a..8ff6c6ff 100644 --- a/src/tool/Information/inqure.F +++ b/src/tool/Information/inqure.F @@ -52,18 +52,18 @@ c character*6 nompro parameter ( nompro = 'INQURE' ) c -#include "motcle.h" -#include "nblang.h" + include "motcle.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "envada.h" + include "envex1.h" + include "envada.h" c -#include "gmenti.h" -#include "gmstri.h" + include "gmenti.h" + include "gmstri.h" c -#include "cndoad.h" + include "cndoad.h" c c 0.3. ==> arguments c @@ -103,7 +103,7 @@ c==== c 1. les initialisations c==== c -#include "impr03.h" + include "impr03.h" c codava = codret c @@ -159,7 +159,7 @@ c c c 1.5. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -344,7 +344,7 @@ c 5.1. ==> message si erreur c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Modification/mmag10.F b/src/tool/Modification/mmag10.F index d466d029..8a3d79df 100644 --- a/src/tool/Modification/mmag10.F +++ b/src/tool/Modification/mmag10.F @@ -138,18 +138,18 @@ c character*6 nompro parameter ( nompro = 'MMAG10' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "gmenti.h" -#include "envex1.h" -#include "impr02.h" + include "gmenti.h" + include "envex1.h" + include "impr02.h" c -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombte.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombte.h" c c 0.3. ==> arguments c @@ -209,14 +209,14 @@ c 1. prealables c==== c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "mmag01.h" + include "mmag01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,12)) nbjois @@ -490,7 +490,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Modification/mmag11.F b/src/tool/Modification/mmag11.F index 16ed8f40..0ba8f2bf 100644 --- a/src/tool/Modification/mmag11.F +++ b/src/tool/Modification/mmag11.F @@ -102,16 +102,16 @@ c character*6 nompro parameter ( nompro = 'MMAG11' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "impr02.h" + include "envex1.h" + include "impr02.h" c -#include "nombar.h" -#include "nombtr.h" -#include "nombte.h" + include "nombar.h" + include "nombtr.h" + include "nombte.h" c c 0.3. ==> arguments c @@ -152,15 +152,15 @@ c 1. prealables c==== c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "mmag01.h" -#include "impr03.h" + include "mmag01.h" + include "impr03.h" c texte(1,31) = '('' ==> '',a,''en lien :'',2i8)' c @@ -429,7 +429,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Modification/mmag12.F b/src/tool/Modification/mmag12.F index 61f8036a..c3344acd 100644 --- a/src/tool/Modification/mmag12.F +++ b/src/tool/Modification/mmag12.F @@ -94,12 +94,12 @@ c character*6 nompro parameter ( nompro = 'MMAG12' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "impr02.h" + include "envex1.h" + include "impr02.h" c c 0.3. ==> arguments cc @@ -137,14 +137,14 @@ c 1. prealables c==== c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "mmag01.h" + include "mmag01.h" c texte(1,31) = '(5x,''* Ordre de * Nombre de *'')' texte(1,32) = '(5x,''* multiplicite * '',a, '' *'')' @@ -168,7 +168,7 @@ c texte(2,37) = >'(i4,'' cases of multiplicity cannot be solved.''/)' c -#include "impr03.h" + include "impr03.h" 1000 format(5x,33('*')) 1001 format(5x,'* ',i3,' * ',i6,' *') 1002 format(5x,33('*'),/) @@ -521,7 +521,7 @@ c c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Modification/mmag13.F b/src/tool/Modification/mmag13.F index be9a176c..56be8720 100644 --- a/src/tool/Modification/mmag13.F +++ b/src/tool/Modification/mmag13.F @@ -151,14 +151,14 @@ c character*6 nompro parameter ( nompro = 'MMAG13' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "impr02.h" + include "envex1.h" + include "impr02.h" c -#include "nombar.h" + include "nombar.h" c c 0.3. ==> arguments c @@ -203,15 +203,15 @@ c 1. prealables c==== c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "mmag01.h" -#include "impr03.h" + include "mmag01.h" + include "impr03.h" c texte(1,31) = '(''Ordre de multiplicite :'',i2)' texte(1,32) = '(''Nombre estime de '',a,'':'',i6)' @@ -729,7 +729,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Modification/mmag30.F b/src/tool/Modification/mmag30.F index 95b00279..cd69e54f 100644 --- a/src/tool/Modification/mmag30.F +++ b/src/tool/Modification/mmag30.F @@ -198,21 +198,21 @@ c character*6 nompro parameter ( nompro = 'MMAG30' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombpe.h" -#include "nombhe.h" -#include "impr02.h" + include "envca1.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombpe.h" + include "nombhe.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -265,15 +265,15 @@ c 1. initialisations c==== c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "mmag01.h" -#include "impr03.h" + include "mmag01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,8)) mess14(langue,3,-1), nbduno @@ -493,7 +493,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Modification/mmag31.F b/src/tool/Modification/mmag31.F index 28e5d33d..178f3b3b 100644 --- a/src/tool/Modification/mmag31.F +++ b/src/tool/Modification/mmag31.F @@ -117,20 +117,20 @@ c character*6 nompro parameter ( nompro = 'MMAG31' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombpe.h" -#include "impr02.h" + include "envca1.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombpe.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -182,15 +182,15 @@ c 1. initialisations c==== c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "mmag01.h" -#include "impr03.h" + include "mmag01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,8)) mess14(langue,3,-1), nbduno @@ -728,7 +728,7 @@ c c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Modification/mmag32.F b/src/tool/Modification/mmag32.F index 560e5f89..7802629a 100644 --- a/src/tool/Modification/mmag32.F +++ b/src/tool/Modification/mmag32.F @@ -134,22 +134,22 @@ c character*6 nompro parameter ( nompro = 'MMAG32' ) c -#include "nblang.h" + include "nblang.h" c integer ordre parameter ( ordre = 3 ) c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombpe.h" -#include "impr02.h" + include "envca1.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombpe.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -202,16 +202,16 @@ c 1. initialisations c==== c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" -#include "mmag01.h" -#include "mmag02.h" + include "impr03.h" + include "mmag01.h" + include "mmag02.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,7)) mess14(langue,3,7), nbpejt @@ -687,7 +687,7 @@ c c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Modification/mmag33.F b/src/tool/Modification/mmag33.F index c13c0b40..30ce2370 100644 --- a/src/tool/Modification/mmag33.F +++ b/src/tool/Modification/mmag33.F @@ -139,21 +139,21 @@ c character*6 nompro parameter ( nompro = 'MMAG33' ) c -#include "nblang.h" + include "nblang.h" c integer ordre parameter ( ordre = 4 ) c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "nombno.h" -#include "nombar.h" -#include "nombqu.h" -#include "nombhe.h" -#include "impr02.h" + include "envca1.h" + include "nombno.h" + include "nombar.h" + include "nombqu.h" + include "nombhe.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -208,16 +208,16 @@ c 1. initialisations c==== c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" -#include "mmag01.h" -#include "mmag02.h" + include "impr03.h" + include "mmag01.h" + include "mmag02.h" c nbjoin = nbjois + nbjoit c @@ -773,7 +773,7 @@ c c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Modification/mmag34.F b/src/tool/Modification/mmag34.F index 4a5e54a0..8d2ae25d 100644 --- a/src/tool/Modification/mmag34.F +++ b/src/tool/Modification/mmag34.F @@ -73,18 +73,18 @@ c character*6 nompro parameter ( nompro = 'MMAG34' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nbfami.h" -#include "nombtr.h" -#include "nombte.h" -#include "impr02.h" -#include "i1i2i3.h" -#include "op0123.h" + include "nbfami.h" + include "nombtr.h" + include "nombte.h" + include "impr02.h" + include "i1i2i3.h" + include "op0123.h" c c 0.3. ==> arguments c @@ -117,16 +117,16 @@ c 1. initialisations c==== c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "mmag01.h" -#include "mmag02.h" -#include "impr03.h" + include "mmag01.h" + include "mmag02.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,7)) @@ -448,7 +448,7 @@ c c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Modification/mmag35.F b/src/tool/Modification/mmag35.F index 8bc77773..032d71f5 100644 --- a/src/tool/Modification/mmag35.F +++ b/src/tool/Modification/mmag35.F @@ -74,19 +74,19 @@ c character*6 nompro parameter ( nompro = 'MMAG35' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nombtr.h" -#include "nombqu.h" -#include "nombpe.h" -#include "impr02.h" -#include "i1i2i3.h" -#include "j1234j.h" -#include "op1234.h" + include "nombtr.h" + include "nombqu.h" + include "nombpe.h" + include "impr02.h" + include "i1i2i3.h" + include "j1234j.h" + include "op1234.h" c c 0.3. ==> arguments c @@ -120,16 +120,16 @@ c 1. initialisations c==== c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "mmag01.h" -#include "mmag02.h" -#include "impr03.h" + include "mmag01.h" + include "mmag02.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,7)) @@ -569,7 +569,7 @@ c c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Modification/mmag36.F b/src/tool/Modification/mmag36.F index 7688312f..ba26c9fc 100644 --- a/src/tool/Modification/mmag36.F +++ b/src/tool/Modification/mmag36.F @@ -74,18 +74,18 @@ c character*6 nompro parameter ( nompro = 'MMAG36' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nombqu.h" -#include "nombhe.h" -#include "impr02.h" -#include "j1234j.h" -#include "op1234.h" -#include "op1aa6.h" + include "nombqu.h" + include "nombhe.h" + include "impr02.h" + include "j1234j.h" + include "op1234.h" + include "op1aa6.h" c c 0.3. ==> arguments c @@ -118,16 +118,16 @@ c 1. initialisations c==== c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "mmag01.h" -#include "mmag02.h" -#include "impr03.h" + include "mmag01.h" + include "mmag02.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,7)) @@ -644,7 +644,7 @@ c c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Modification/mmag40.F b/src/tool/Modification/mmag40.F index 81edc1d6..f8872429 100644 --- a/src/tool/Modification/mmag40.F +++ b/src/tool/Modification/mmag40.F @@ -108,21 +108,21 @@ c character*6 nompro parameter ( nompro = 'MMAG40' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombhe.h" -#include "nombpe.h" -#include "dicfen.h" -#include "nbfami.h" -#include "impr02.h" + include "envca1.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombhe.h" + include "nombpe.h" + include "dicfen.h" + include "nbfami.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -169,14 +169,14 @@ c 1. initialisations c==== c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "mmag01.h" + include "mmag01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,7)) mess14(langue,3,7), nbpejs+nbpejt @@ -278,7 +278,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Modification/mmag41.F b/src/tool/Modification/mmag41.F index 81ecc51c..1ddea51a 100644 --- a/src/tool/Modification/mmag41.F +++ b/src/tool/Modification/mmag41.F @@ -88,22 +88,22 @@ c character*6 nompro parameter ( nompro = 'MMAG41' ) c -#include "nblang.h" -#include "coftex.h" + include "nblang.h" + include "coftex.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombpe.h" -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombpe.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" c -#include "impr02.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -151,16 +151,16 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "mmag01.h" + include "mmag01.h" c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,90002) 'nbjois', nbjois @@ -266,7 +266,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Modification/mmag42.F b/src/tool/Modification/mmag42.F index c9a0c91c..70d1f3f0 100644 --- a/src/tool/Modification/mmag42.F +++ b/src/tool/Modification/mmag42.F @@ -95,21 +95,21 @@ c character*6 nompro parameter ( nompro = 'MMAG42' ) c -#include "nblang.h" -#include "coftex.h" + include "nblang.h" + include "coftex.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nombno.h" -#include "nombar.h" -#include "nombpe.h" -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" + include "nombno.h" + include "nombar.h" + include "nombpe.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" c -#include "impr02.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -156,16 +156,16 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "mmag01.h" + include "mmag01.h" c -#include "impr03.h" + include "impr03.h" c codret = 0 c @@ -242,7 +242,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Modification/mmag43.F b/src/tool/Modification/mmag43.F index d3a47407..8e4e760f 100644 --- a/src/tool/Modification/mmag43.F +++ b/src/tool/Modification/mmag43.F @@ -95,21 +95,21 @@ c character*6 nompro parameter ( nompro = 'MMAG43' ) c -#include "nblang.h" -#include "coftex.h" + include "nblang.h" + include "coftex.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nombno.h" -#include "nombar.h" -#include "nombhe.h" -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" + include "nombno.h" + include "nombar.h" + include "nombhe.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" c -#include "impr02.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -157,16 +157,16 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "mmag01.h" + include "mmag01.h" c -#include "impr03.h" + include "impr03.h" c codret = 0 c @@ -243,7 +243,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Modification/mmag91.F b/src/tool/Modification/mmag91.F index 42308bd6..44606424 100644 --- a/src/tool/Modification/mmag91.F +++ b/src/tool/Modification/mmag91.F @@ -65,14 +65,14 @@ c character*6 nompro parameter ( nompro = 'MMAG91' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nombar.h" -#include "impr02.h" + include "nombar.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -101,16 +101,16 @@ c 1. initialisations c==== c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" -#include "mmag01.h" -#include "mmag02.h" + include "impr03.h" + include "mmag01.h" + include "mmag02.h" c codret = 0 c @@ -176,7 +176,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Modification/mmag92.F b/src/tool/Modification/mmag92.F index 600521a3..5e5322c7 100644 --- a/src/tool/Modification/mmag92.F +++ b/src/tool/Modification/mmag92.F @@ -62,13 +62,13 @@ c character*6 nompro parameter ( nompro = 'MMAG92' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "impr02.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -96,16 +96,16 @@ c 1. initialisations c==== c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" -#include "mmag01.h" -#include "mmag02.h" + include "impr03.h" + include "mmag01.h" + include "mmag02.h" c codret = 0 c @@ -154,7 +154,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Modification/mmag93.F b/src/tool/Modification/mmag93.F index f1cb8ccb..a6e576cb 100644 --- a/src/tool/Modification/mmag93.F +++ b/src/tool/Modification/mmag93.F @@ -72,13 +72,13 @@ c character*6 nompro parameter ( nompro = 'MMAG93' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "impr02.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -104,16 +104,16 @@ c 1. initialisations c==== c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" -#include "mmag01.h" -#include "mmag02.h" + include "impr03.h" + include "mmag01.h" + include "mmag02.h" c codret = 0 c @@ -167,7 +167,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Modification/mmag94.F b/src/tool/Modification/mmag94.F index 621a04fe..aed17637 100644 --- a/src/tool/Modification/mmag94.F +++ b/src/tool/Modification/mmag94.F @@ -74,13 +74,13 @@ c character*6 nompro parameter ( nompro = 'MMAG93' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "impr02.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -106,16 +106,16 @@ c 1. initialisations c==== c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" -#include "mmag01.h" -#include "mmag02.h" + include "impr03.h" + include "mmag01.h" + include "mmag02.h" c codret = 0 c @@ -169,7 +169,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Modification/mmagco.F b/src/tool/Modification/mmagco.F index 13facbdf..7b55f500 100644 --- a/src/tool/Modification/mmagco.F +++ b/src/tool/Modification/mmagco.F @@ -70,16 +70,16 @@ c character*6 nompro parameter ( nompro = 'MMAGCO' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "nombno.h" -#include "nombar.h" -#include "impr02.h" + include "envca1.h" + include "nombno.h" + include "nombar.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -112,14 +112,14 @@ c 1. initialisations c==== c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,90002) 'Option', option @@ -599,7 +599,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Modification/mmagf0.F b/src/tool/Modification/mmagf0.F index e6d5112a..5531d85f 100644 --- a/src/tool/Modification/mmagf0.F +++ b/src/tool/Modification/mmagf0.F @@ -57,29 +57,29 @@ c character*6 nompro parameter ( nompro = 'MMAGF0' ) c -#include "nblang.h" -#include "consts.h" + include "nblang.h" + include "consts.h" c c 0.2. ==> communs c -#include "meddc0.h" -#include "envex1.h" + include "meddc0.h" + include "envex1.h" c -#include "gmenti.h" -#include "gmstri.h" + include "gmenti.h" + include "gmstri.h" c -#include "coftex.h" -#include "nbfami.h" -#include "dicfen.h" + include "coftex.h" + include "nbfami.h" + include "dicfen.h" c #ifdef _DEBUG_HOMARD_ -#include "nombmp.h" -#include "nombhe.h" -#include "nombpe.h" -#include "nombpy.h" + include "nombmp.h" + include "nombhe.h" + include "nombpe.h" + include "nombpy.h" #endif c -#include "impr02.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -138,7 +138,7 @@ c 1. prealables c==== c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -662,7 +662,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Modification/mmagf1.F b/src/tool/Modification/mmagf1.F index af8bf9de..b7c554ae 100644 --- a/src/tool/Modification/mmagf1.F +++ b/src/tool/Modification/mmagf1.F @@ -89,26 +89,26 @@ c character*6 nompro parameter ( nompro = 'MMAGF1' ) c -#include "nblang.h" -#include "consts.h" + include "nblang.h" + include "consts.h" c c 0.2. ==> communs c -#include "meddc0.h" -#include "envex1.h" -c -#include "coftex.h" -#include "cofatq.h" -#include "cofina.h" -#include "coftfq.h" -#include "cofpfh.h" -#include "coftfh.h" -#include "cofpfp.h" -#include "coftfp.h" -#include "envca1.h" -#include "nbfami.h" -#include "dicfen.h" -#include "impr02.h" + include "meddc0.h" + include "envex1.h" +c + include "coftex.h" + include "cofatq.h" + include "cofina.h" + include "coftfq.h" + include "cofpfh.h" + include "coftfh.h" + include "cofpfp.h" + include "coftfp.h" + include "envca1.h" + include "nbfami.h" + include "dicfen.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -153,7 +153,7 @@ c 1. prealables c==== c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -463,7 +463,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Modification/mmagr0.F b/src/tool/Modification/mmagr0.F index 8c60d9b4..7760129e 100644 --- a/src/tool/Modification/mmagr0.F +++ b/src/tool/Modification/mmagr0.F @@ -72,18 +72,18 @@ c character*6 nompro parameter ( nompro = 'MMAGR0' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "impr02.h" + include "envex1.h" + include "impr02.h" c -#include "coftex.h" -#include "nbfami.h" -#include "dicfen.h" -#include "nombtr.h" -#include "nombte.h" + include "coftex.h" + include "nbfami.h" + include "dicfen.h" + include "nombtr.h" + include "nombte.h" c c 0.3. ==> arguments c @@ -114,15 +114,15 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" -#include "mmag01.h" + include "impr03.h" + include "mmag01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,19)) mess14(langue,3,3), nbftet @@ -270,7 +270,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Modification/mmagr2.F b/src/tool/Modification/mmagr2.F index d0bf05c0..20092521 100644 --- a/src/tool/Modification/mmagr2.F +++ b/src/tool/Modification/mmagr2.F @@ -65,23 +65,23 @@ c character*6 nompro parameter ( nompro = 'MMAGR2' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "impr02.h" + include "impr02.h" c -#include "envca1.h" + include "envca1.h" c -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombpe.h" -#include "nombhe.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombpe.h" + include "nombhe.h" c c 0.3. ==> arguments c @@ -117,14 +117,14 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "mmag01.h" + include "mmag01.h" c texte(1,4) = '(''(Re)allocation des tableaux des '',a)' texte(1,5) = '(5x,''==> code de retour :'',i8)' @@ -132,7 +132,7 @@ c texte(2,4) = '(''(Re)allocation of arrays for '',a)' texte(2,5) = '(5x,''==> error code :'',i8)' c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ if ( nbnotn.gt.0 ) then @@ -503,7 +503,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Modification/mmagr4.F b/src/tool/Modification/mmagr4.F index 14a395f3..f94c988e 100644 --- a/src/tool/Modification/mmagr4.F +++ b/src/tool/Modification/mmagr4.F @@ -61,19 +61,19 @@ c character*6 nompro parameter ( nompro = 'MMAGR4' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "coftex.h" -#include "nbfami.h" -#include "dicfen.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombte.h" -#include "impr02.h" + include "coftex.h" + include "nbfami.h" + include "dicfen.h" + include "nombar.h" + include "nombtr.h" + include "nombte.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -105,14 +105,14 @@ c 1. initialisations c==== c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "mmag01.h" + include "mmag01.h" c c 1.2. ==> rien au depart c @@ -167,7 +167,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Modification/mmagr5.F b/src/tool/Modification/mmagr5.F index e2d8f61c..86b561f0 100644 --- a/src/tool/Modification/mmagr5.F +++ b/src/tool/Modification/mmagr5.F @@ -130,20 +130,20 @@ c character*6 nompro parameter ( nompro = 'MMAGR5' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "coftex.h" -#include "nbfami.h" -#include "dicfen.h" -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombte.h" -#include "impr02.h" + include "coftex.h" + include "nbfami.h" + include "dicfen.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombte.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -184,14 +184,14 @@ c 1. initialisations c==== c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "mmag01.h" + include "mmag01.h" c texte(1,31) = '(5x,''==> substitution par le '',a,i8)' c @@ -408,7 +408,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Modification/mmagr6.F b/src/tool/Modification/mmagr6.F index 72ede774..5ba6555f 100644 --- a/src/tool/Modification/mmagr6.F +++ b/src/tool/Modification/mmagr6.F @@ -95,21 +95,21 @@ c character*6 nompro parameter ( nompro = 'MMAGR6' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "coftex.h" -#include "envca1.h" -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombpe.h" -#include "impr02.h" + include "coftex.h" + include "envca1.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombpe.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -150,14 +150,14 @@ c 1. initialisations c==== c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "mmag01.h" + include "mmag01.h" c texte(1,31) = '(a,'' Traitement du '',a,i8,'', ordre'',i3)' c @@ -479,7 +479,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Modification/mmagre.F b/src/tool/Modification/mmagre.F index 080e7acb..798f884a 100644 --- a/src/tool/Modification/mmagre.F +++ b/src/tool/Modification/mmagre.F @@ -52,29 +52,29 @@ c character*6 nompro parameter ( nompro = 'MMAGRE' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" -#include "gmreel.h" -#include "gmstri.h" + include "gmenti.h" + include "gmreel.h" + include "gmstri.h" c -#include "impr02.h" + include "impr02.h" c -#include "envca1.h" -#include "envada.h" + include "envca1.h" + include "envada.h" c -#include "nbfami.h" -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombte.h" -#include "nombqu.h" -#include "nombpe.h" -#include "nombhe.h" + include "nbfami.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombte.h" + include "nombqu.h" + include "nombpe.h" + include "nombhe.h" c c 0.3. ==> arguments c @@ -175,7 +175,7 @@ c c c 1.3. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -192,7 +192,7 @@ c texte(2,7) = '(5x,''Number of '',a,'' to create :'',i8)' texte(2,8) = '(5x,''Number of '',a,'' to duplicate :'',i8)' c -#include "impr03.h" + include "impr03.h" c c 1.4. ==> le numero de sous-etape c @@ -1432,7 +1432,7 @@ c 18.1. ==> erreurs c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Modification/mmagve.F b/src/tool/Modification/mmagve.F index 1a43c86f..ab07d330 100644 --- a/src/tool/Modification/mmagve.F +++ b/src/tool/Modification/mmagve.F @@ -57,20 +57,20 @@ c character*6 nompro parameter ( nompro = 'MMAGVE' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "impr02.h" + include "envex1.h" + include "impr02.h" c -#include "coftex.h" -#include "nbfami.h" -#include "dicfen.h" -#include "nombte.h" -#include "nombhe.h" -#include "nombpy.h" -#include "nombpe.h" + include "coftex.h" + include "nbfami.h" + include "dicfen.h" + include "nombte.h" + include "nombhe.h" + include "nombpy.h" + include "nombpe.h" c c 0.3. ==> arguments c @@ -104,15 +104,15 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" -#include "mmag01.h" + include "impr03.h" + include "mmag01.h" c texte(1,31) = >'(''Les seules mailles volumiques possibles sont les '',a,''.'')' @@ -236,7 +236,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Modification/mmcnp2.F b/src/tool/Modification/mmcnp2.F index 3460d579..15e0386a 100644 --- a/src/tool/Modification/mmcnp2.F +++ b/src/tool/Modification/mmcnp2.F @@ -51,19 +51,19 @@ c character*6 nompro parameter ( nompro = 'MMCNP2' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" + include "gmenti.h" c -#include "envca1.h" + include "envca1.h" c -#include "nombar.h" -#include "nombno.h" -#include "nouvnb.h" + include "nombar.h" + include "nombno.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -89,7 +89,7 @@ c c c 0.5. ==> initialisations c -#include "impr01.h" + include "impr01.h" c ______________________________________________________________________ c c==== @@ -148,7 +148,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Modification/mmdeg0.F b/src/tool/Modification/mmdeg0.F index 8af8ee08..f39c3970 100644 --- a/src/tool/Modification/mmdeg0.F +++ b/src/tool/Modification/mmdeg0.F @@ -47,19 +47,19 @@ c character*6 nompro parameter ( nompro = 'MMDEG0' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" + include "gmenti.h" c -#include "envca1.h" + include "envca1.h" c -#include "nombar.h" -#include "nombno.h" -#include "nouvnb.h" + include "nombar.h" + include "nombno.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -107,7 +107,7 @@ c==== c c 1.1. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -528,7 +528,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Modification/mmdegr.F b/src/tool/Modification/mmdegr.F index 1a8bf8c3..40283d2d 100644 --- a/src/tool/Modification/mmdegr.F +++ b/src/tool/Modification/mmdegr.F @@ -52,11 +52,11 @@ c character*6 nompro parameter ( nompro = 'MMDEGR' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -89,7 +89,7 @@ c==== c c 1.1. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -138,7 +138,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Modification/mmelde.F b/src/tool/Modification/mmelde.F index fb05a05b..09faac87 100644 --- a/src/tool/Modification/mmelde.F +++ b/src/tool/Modification/mmelde.F @@ -103,16 +103,16 @@ c character*6 nompro parameter ( nompro = 'MMELDE' ) c -#include "nblang.h" -#include "coftex.h" + include "nblang.h" + include "coftex.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "dicfen.h" -#include "rftmed.h" -#include "impr02.h" + include "dicfen.h" + include "rftmed.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -144,7 +144,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -219,7 +219,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Modification/mmmodi.F b/src/tool/Modification/mmmodi.F index d2b1fff9..92492431 100644 --- a/src/tool/Modification/mmmodi.F +++ b/src/tool/Modification/mmmodi.F @@ -52,13 +52,13 @@ c character*6 nompro parameter ( nompro = 'MMMODI' ) c -#include "motcle.h" -#include "nblang.h" + include "motcle.h" + include "nblang.h" c c 0.2. ==> communs c -#include "gmenti.h" -#include "cndoad.h" + include "gmenti.h" + include "cndoad.h" c c 0.3. ==> arguments c @@ -146,7 +146,7 @@ c c c 1.5. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro diff --git a/src/tool/Modification/mmsn21.F b/src/tool/Modification/mmsn21.F index 3bce74f1..2ae632ba 100644 --- a/src/tool/Modification/mmsn21.F +++ b/src/tool/Modification/mmsn21.F @@ -52,9 +52,9 @@ cc parameter ( nompro = 'MMSN21' ) c c 0.2. ==> communs c -#include "nombar.h" -#include "nombno.h" -#include "nouvnb.h" + include "nombar.h" + include "nombno.h" + include "nouvnb.h" c c 0.3. ==> arguments c diff --git a/src/tool/Modification/mmsnp2.F b/src/tool/Modification/mmsnp2.F index e6e77fff..fe753868 100644 --- a/src/tool/Modification/mmsnp2.F +++ b/src/tool/Modification/mmsnp2.F @@ -48,21 +48,21 @@ c character*6 nompro parameter ( nompro = 'MMSNP2' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" -#include "gmreel.h" + include "gmenti.h" + include "gmreel.h" c -#include "envca1.h" -#include "nombno.h" -#include "nombmp.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" + include "envca1.h" + include "nombno.h" + include "nombmp.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" c c 0.3. ==> arguments c @@ -110,7 +110,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -401,7 +401,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Suivi_Frontiere/sfbatr.F b/src/tool/Suivi_Frontiere/sfbatr.F index 57724a38..77456ebf 100644 --- a/src/tool/Suivi_Frontiere/sfbatr.F +++ b/src/tool/Suivi_Frontiere/sfbatr.F @@ -57,15 +57,15 @@ c character*6 nompro parameter ( nompro = 'SFBATR' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "impr02.h" + include "envex1.h" + include "impr02.h" c -#include "nombar.h" -#include "nombtr.h" + include "nombar.h" + include "nombtr.h" c c 0.3. ==> arguments c @@ -96,7 +96,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -169,7 +169,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Suivi_Frontiere/sfbatt.F b/src/tool/Suivi_Frontiere/sfbatt.F index f016187c..e73f7e14 100644 --- a/src/tool/Suivi_Frontiere/sfbatt.F +++ b/src/tool/Suivi_Frontiere/sfbatt.F @@ -63,8 +63,8 @@ c c c 0.2. ==> communs c -#include "nombar.h" -#include "nombtr.h" + include "nombar.h" + include "nombtr.h" c c 0.3. ==> arguments c diff --git a/src/tool/Suivi_Frontiere/sfcaf1.F b/src/tool/Suivi_Frontiere/sfcaf1.F index 16dd5971..c750b502 100644 --- a/src/tool/Suivi_Frontiere/sfcaf1.F +++ b/src/tool/Suivi_Frontiere/sfcaf1.F @@ -105,24 +105,24 @@ c character*6 nompro parameter ( nompro = 'SFCAF1' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" -#include "gmreel.h" + include "gmenti.h" + include "gmreel.h" c -#include "envca1.h" -#include "nombno.h" -#include "nombqu.h" -#include "nombtr.h" -#include "nombte.h" -#include "nombhe.h" -#include "nombpe.h" -#include "nombpy.h" -#include "precis.h" + include "envca1.h" + include "nombno.h" + include "nombqu.h" + include "nombtr.h" + include "nombte.h" + include "nombhe.h" + include "nombpe.h" + include "nombpy.h" + include "precis.h" c c 0.3. ==> arguments c @@ -195,14 +195,14 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ if ( codret.eq.0 ) then @@ -845,7 +845,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Suivi_Frontiere/sfcaf2.F b/src/tool/Suivi_Frontiere/sfcaf2.F index bec63dec..9c906f08 100644 --- a/src/tool/Suivi_Frontiere/sfcaf2.F +++ b/src/tool/Suivi_Frontiere/sfcaf2.F @@ -156,24 +156,24 @@ c character*6 nompro parameter ( nompro = 'SFCAF2' ) c -#include "nblang.h" -#include "cofaar.h" -#include "cofatq.h" + include "nblang.h" + include "cofaar.h" + include "cofatq.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "front1.h" -#include "front2.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nombno.h" -#include "nombar.h" -#include "nombqu.h" -#include "nombtr.h" -#include "impr02.h" + include "envca1.h" + include "front1.h" + include "front2.h" + include "dicfen.h" + include "nbfami.h" + include "nombno.h" + include "nombar.h" + include "nombqu.h" + include "nombtr.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -239,7 +239,7 @@ c==== c codret = 0 c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -269,7 +269,7 @@ c texte(2,11) = > '(''. Unknown analytical boundary type:'',i10)' c -#include "impr03.h" + include "impr03.h" c c 1.4. ==> le numero de sous-etape c @@ -745,7 +745,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Suivi_Frontiere/sfcafr.F b/src/tool/Suivi_Frontiere/sfcafr.F index 96c6e167..3874aac5 100644 --- a/src/tool/Suivi_Frontiere/sfcafr.F +++ b/src/tool/Suivi_Frontiere/sfcafr.F @@ -66,12 +66,12 @@ c character*6 nompro parameter ( nompro = 'SFCAFR' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "gmenti.h" + include "envex1.h" + include "gmenti.h" c c 0.3. ==> arguments c @@ -115,14 +115,14 @@ c======================================================================= if ( codava.eq.0 ) then c======================================================================= c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,90002) 'nbarfr', nbarfr @@ -200,7 +200,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Suivi_Frontiere/sfcoaq.F b/src/tool/Suivi_Frontiere/sfcoaq.F index a31f71b9..1c14742b 100644 --- a/src/tool/Suivi_Frontiere/sfcoaq.F +++ b/src/tool/Suivi_Frontiere/sfcoaq.F @@ -59,16 +59,16 @@ c character*6 nompro parameter ( nompro = 'SFCOAQ' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "gmenti.h" + include "envex1.h" + include "gmenti.h" c -#include "envca1.h" -#include "nombqu.h" -#include "impr02.h" + include "envca1.h" + include "nombqu.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -106,7 +106,7 @@ c 1. messages c==== c 1.1. ==> Les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -125,7 +125,7 @@ c texte(2,7) = '(''No '',a,''is involved'')' texte(2,8) = '(''Number of involved '',a,'':'',i10)' c -#include "impr03.h" + include "impr03.h" c c 1.2. ==> Controle c @@ -271,7 +271,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Suivi_Frontiere/sfcofa.F b/src/tool/Suivi_Frontiere/sfcofa.F index b3b441b9..5ba5140b 100644 --- a/src/tool/Suivi_Frontiere/sfcofa.F +++ b/src/tool/Suivi_Frontiere/sfcofa.F @@ -85,18 +85,18 @@ c character*6 nompro parameter ( nompro = 'SFCOFA' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "nombno.h" -#include "nombar.h" -#include "nombqu.h" -#include "nombtr.h" -#include "impr02.h" + include "envca1.h" + include "nombno.h" + include "nombar.h" + include "nombqu.h" + include "nombtr.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -133,7 +133,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -260,7 +260,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Suivi_Frontiere/sfcoi1.F b/src/tool/Suivi_Frontiere/sfcoi1.F index 2b9f3ec7..67afbce3 100644 --- a/src/tool/Suivi_Frontiere/sfcoi1.F +++ b/src/tool/Suivi_Frontiere/sfcoi1.F @@ -71,13 +71,13 @@ c character*6 nompro parameter ( nompro = 'SFCOI1' ) c -#include "nblang.h" -#include "consta.h" + include "nblang.h" + include "consta.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "precis.h" + include "envex1.h" + include "precis.h" c c 0.3. ==> arguments c @@ -110,7 +110,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -125,7 +125,7 @@ c texte(2,5) = '(''Type of boundary: '',a)' texte(2,6) = '(''The definition of the axis is not valid.'')' c -#include "impr03.h" + include "impr03.h" c 123456789012345678901234 messag(1,1) = 'Cylindre ' messag(1,2) = 'Sphere ' @@ -288,7 +288,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Suivi_Frontiere/sfcoin.F b/src/tool/Suivi_Frontiere/sfcoin.F index 2bf95618..43901b37 100644 --- a/src/tool/Suivi_Frontiere/sfcoin.F +++ b/src/tool/Suivi_Frontiere/sfcoin.F @@ -61,21 +61,21 @@ c character*6 nompro parameter ( nompro = 'SFCOIN' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" -#include "gmreel.h" -#include "gmstri.h" + include "gmenti.h" + include "gmreel.h" + include "gmstri.h" c -#include "envca1.h" -#include "nombqu.h" -#include "impr02.h" -#include "precis.h" -#include "front0.h" + include "envca1.h" + include "nombqu.h" + include "impr02.h" + include "precis.h" + include "front0.h" c c 0.3. ==> arguments c @@ -141,7 +141,7 @@ c 1. les initialisations c==== c 1.1. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -160,7 +160,7 @@ c texte(2,7) = '(''Number of involved '',a,'':'',i10)' texte(2,8) = '(/,''. Conversion of discrete geometry'',/)' c -#include "impr03.h" + include "impr03.h" c c 1.4. ==> le numero de sous-etape c @@ -672,7 +672,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Suivi_Frontiere/sfcon1.F b/src/tool/Suivi_Frontiere/sfcon1.F index c714be54..a68fe984 100644 --- a/src/tool/Suivi_Frontiere/sfcon1.F +++ b/src/tool/Suivi_Frontiere/sfcon1.F @@ -62,11 +62,11 @@ c character*6 nompro parameter ( nompro = 'SFCON1' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -93,7 +93,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -146,7 +146,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Suivi_Frontiere/sfcona.F b/src/tool/Suivi_Frontiere/sfcona.F index 579f3f55..047f0afe 100644 --- a/src/tool/Suivi_Frontiere/sfcona.F +++ b/src/tool/Suivi_Frontiere/sfcona.F @@ -65,17 +65,17 @@ c character*6 nompro parameter ( nompro = 'SFCONA' ) c -#include "nblang.h" -#include "cofaar.h" + include "nblang.h" + include "cofaar.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "dicfen.h" -#include "nbfami.h" -#include "nombar.h" -#include "impr02.h" + include "dicfen.h" + include "nbfami.h" + include "nombar.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -104,7 +104,7 @@ c 1. Prealables c==== c 1.1. ==> Les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -248,7 +248,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Suivi_Frontiere/sfconq.F b/src/tool/Suivi_Frontiere/sfconq.F index 650d6a98..164b0f2f 100644 --- a/src/tool/Suivi_Frontiere/sfconq.F +++ b/src/tool/Suivi_Frontiere/sfconq.F @@ -62,17 +62,17 @@ c character*6 nompro parameter ( nompro = 'SFCONQ' ) c -#include "nblang.h" -#include "cofatq.h" + include "nblang.h" + include "cofatq.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "dicfen.h" -#include "nbfami.h" -#include "nombqu.h" -#include "impr02.h" + include "dicfen.h" + include "nbfami.h" + include "nombqu.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -102,7 +102,7 @@ c 1. Prealables c==== c 1.1. ==> Les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -245,7 +245,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Suivi_Frontiere/sfconv.F b/src/tool/Suivi_Frontiere/sfconv.F index 7522cb7a..2579fa23 100644 --- a/src/tool/Suivi_Frontiere/sfconv.F +++ b/src/tool/Suivi_Frontiere/sfconv.F @@ -54,12 +54,12 @@ c character*6 nompro parameter ( nompro = 'SFCONV' ) c -#include "motcle.h" -#include "nblang.h" + include "motcle.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -95,7 +95,7 @@ c==== c c 1.1. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -164,7 +164,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Suivi_Frontiere/sfcot1.F b/src/tool/Suivi_Frontiere/sfcot1.F index 0ab349c5..90f44343 100644 --- a/src/tool/Suivi_Frontiere/sfcot1.F +++ b/src/tool/Suivi_Frontiere/sfcot1.F @@ -128,25 +128,25 @@ c character*6 nompro parameter ( nompro = 'SFCOT1' ) c -#include "nblang.h" -#include "tbdim0.h" + include "nblang.h" + include "tbdim0.h" c c 0.2. ==> communs c -#include "envex1.h" -c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nombno.h" -#include "nombar.h" -#include "nombqu.h" -#include "nombtr.h" -#include "nombte.h" -#include "nombhe.h" -#include "nombpy.h" -#include "nombpe.h" -#include "impr02.h" + include "envex1.h" +c + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nombno.h" + include "nombar.h" + include "nombqu.h" + include "nombtr.h" + include "nombte.h" + include "nombhe.h" + include "nombpy.h" + include "nombpe.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -199,7 +199,7 @@ c==== c c 1.1. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -224,7 +224,7 @@ c texte(2,11) = '(''Number of '',a,'' to swap :'',i10)' texte(2,12) = '(''... Correction of '',a,i10)' c -#include "impr03.h" + include "impr03.h" c codret = 0 c @@ -609,7 +609,7 @@ c c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Suivi_Frontiere/sfcot2.F b/src/tool/Suivi_Frontiere/sfcot2.F index ae3390b1..f8bdb6f0 100644 --- a/src/tool/Suivi_Frontiere/sfcot2.F +++ b/src/tool/Suivi_Frontiere/sfcot2.F @@ -138,24 +138,24 @@ c character*6 nompro parameter ( nompro = 'SFCOT2' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nombno.h" -#include "nombar.h" -#include "nombqu.h" -#include "nombtr.h" -#include "nombte.h" -#include "nombhe.h" -#include "nombpy.h" -#include "nombpe.h" -#include "impr02.h" + include "envex1.h" +c + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nombno.h" + include "nombar.h" + include "nombqu.h" + include "nombtr.h" + include "nombte.h" + include "nombhe.h" + include "nombpy.h" + include "nombpe.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -204,7 +204,7 @@ c==== c c 1.1. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -394,7 +394,7 @@ c c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Suivi_Frontiere/sfcotl.F b/src/tool/Suivi_Frontiere/sfcotl.F index 95789716..4621a793 100644 --- a/src/tool/Suivi_Frontiere/sfcotl.F +++ b/src/tool/Suivi_Frontiere/sfcotl.F @@ -138,24 +138,24 @@ c character*6 nompro parameter ( nompro = 'SFCOTL' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nombno.h" -#include "nombar.h" -#include "nombqu.h" -#include "nombtr.h" -#include "nombte.h" -#include "nombhe.h" -#include "nombpy.h" -#include "nombpe.h" -#include "impr02.h" + include "envex1.h" +c + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nombno.h" + include "nombar.h" + include "nombqu.h" + include "nombtr.h" + include "nombte.h" + include "nombhe.h" + include "nombpy.h" + include "nombpe.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -213,7 +213,7 @@ c c c 1.3. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -430,7 +430,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Suivi_Frontiere/sfcovo.F b/src/tool/Suivi_Frontiere/sfcovo.F index a8e54632..65261b9a 100644 --- a/src/tool/Suivi_Frontiere/sfcovo.F +++ b/src/tool/Suivi_Frontiere/sfcovo.F @@ -79,20 +79,20 @@ c character*6 nompro parameter ( nompro = 'SFCOVO' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "nombno.h" -#include "nombar.h" -#include "nombqu.h" -#include "nombtr.h" -#include "nombte.h" -#include "nombhe.h" -#include "impr02.h" + include "envca1.h" + include "nombno.h" + include "nombar.h" + include "nombqu.h" + include "nombtr.h" + include "nombte.h" + include "nombhe.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -127,7 +127,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -142,7 +142,7 @@ c texte(2,5) = '(''.. Problem.'')' texte(2,6) = '(''.. Number of neighbours '',a,''type :'',i10)' c -#include "impr03.h" + include "impr03.h" c c==== c 3. Controle des tetraedres @@ -335,7 +335,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Suivi_Frontiere/sfctri.F b/src/tool/Suivi_Frontiere/sfctri.F index 34da2a84..5e3b0a65 100644 --- a/src/tool/Suivi_Frontiere/sfctri.F +++ b/src/tool/Suivi_Frontiere/sfctri.F @@ -52,14 +52,14 @@ c character*6 nompro parameter ( nompro = 'SFCTRI' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "front1.h" -#include "impr02.h" + include "front1.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -85,7 +85,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -110,7 +110,7 @@ c > '(''.. The vertex #'',i10,'' is end of the line #'',i4)' texte(2,8) = '(''.. It belongs to the line #'',i4,/)' c -#include "impr03.h" + include "impr03.h" c codret = 0 c @@ -235,7 +235,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Suivi_Frontiere/sfcvco.F b/src/tool/Suivi_Frontiere/sfcvco.F index f919d9d0..a1f441ab 100644 --- a/src/tool/Suivi_Frontiere/sfcvco.F +++ b/src/tool/Suivi_Frontiere/sfcvco.F @@ -53,12 +53,12 @@ c character*6 nompro parameter ( nompro = 'SFCVCO' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "impr02.h" + include "envex1.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -83,7 +83,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -94,7 +94,7 @@ c c texte(2,4) = '(''Constant coordinate is wrong:'',i7)' c -#include "impr03.h" + include "impr03.h" c codret = 0 c @@ -150,7 +150,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Suivi_Frontiere/sfcvgf.F b/src/tool/Suivi_Frontiere/sfcvgf.F index 54740844..0389382b 100644 --- a/src/tool/Suivi_Frontiere/sfcvgf.F +++ b/src/tool/Suivi_Frontiere/sfcvgf.F @@ -51,16 +51,16 @@ c character*6 nompro parameter ( nompro = 'SFCVGF' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" -#include "gmreel.h" -#include "gmstri.h" -#include "front1.h" + include "gmenti.h" + include "gmreel.h" + include "gmstri.h" + include "front1.h" c c 0.3. ==> arguments c @@ -114,14 +114,14 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" + include "impr03.h" c c==== c 2. recuperation des donnees du maillage HOMARD @@ -679,7 +679,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Suivi_Frontiere/sfdefg.F b/src/tool/Suivi_Frontiere/sfdefg.F index bb181928..1164d85d 100644 --- a/src/tool/Suivi_Frontiere/sfdefg.F +++ b/src/tool/Suivi_Frontiere/sfdefg.F @@ -56,13 +56,13 @@ c character*6 nompro parameter ( nompro = 'SFDEFG' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "motcle.h" + include "motcle.h" c c 0.3. ==> arguments c @@ -92,7 +92,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -111,7 +111,7 @@ c > ncafdg//'.Table') #endif c -#include "impr03.h" + include "impr03.h" c==== c 2. les structures c==== @@ -243,7 +243,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Suivi_Frontiere/sffa01.F b/src/tool/Suivi_Frontiere/sffa01.F index d7c59927..3b3a2cfd 100644 --- a/src/tool/Suivi_Frontiere/sffa01.F +++ b/src/tool/Suivi_Frontiere/sffa01.F @@ -55,12 +55,12 @@ c character*6 nompro parameter ( nompro = 'SFFA01' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "envca1.h" + include "envex1.h" + include "envca1.h" c c 0.3. ==> arguments c @@ -92,7 +92,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -115,7 +115,7 @@ c texte(2,8) = '(''Initial coordonnates:'',3g17.9)' texte(2,9) = '(''Moved coordonnates :'',3g17.9)' c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ if ( lenoeu.eq.-113 .or.lenoeu.eq.-13 ) then @@ -223,7 +223,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Suivi_Frontiere/sffa02.F b/src/tool/Suivi_Frontiere/sffa02.F index 4eae7f0d..56f5e9c5 100644 --- a/src/tool/Suivi_Frontiere/sffa02.F +++ b/src/tool/Suivi_Frontiere/sffa02.F @@ -55,12 +55,12 @@ c character*6 nompro parameter ( nompro = 'SFFA02' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "envca1.h" + include "envex1.h" + include "envca1.h" c c 0.3. ==> arguments c @@ -91,7 +91,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -177,7 +177,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Suivi_Frontiere/sffa03.F b/src/tool/Suivi_Frontiere/sffa03.F index e368dc6a..4a6d6cd0 100644 --- a/src/tool/Suivi_Frontiere/sffa03.F +++ b/src/tool/Suivi_Frontiere/sffa03.F @@ -56,13 +56,13 @@ c character*6 nompro parameter ( nompro = 'SFFA03' ) c -#include "nblang.h" -#include "consta.h" + include "nblang.h" + include "consta.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "envca1.h" + include "envex1.h" + include "envca1.h" c c 0.3. ==> arguments c @@ -95,7 +95,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -216,7 +216,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Suivi_Frontiere/sffa05.F b/src/tool/Suivi_Frontiere/sffa05.F index 16c19ac8..65d3cb62 100644 --- a/src/tool/Suivi_Frontiere/sffa05.F +++ b/src/tool/Suivi_Frontiere/sffa05.F @@ -56,12 +56,12 @@ c character*6 nompro parameter ( nompro = 'SFFA05' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "envca1.h" + include "envex1.h" + include "envca1.h" c c 0.3. ==> arguments c @@ -95,7 +95,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -229,7 +229,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Suivi_Frontiere/sffaf1.F b/src/tool/Suivi_Frontiere/sffaf1.F index 44c74a0b..b489aa07 100644 --- a/src/tool/Suivi_Frontiere/sffaf1.F +++ b/src/tool/Suivi_Frontiere/sffaf1.F @@ -50,11 +50,11 @@ c character*6 nompro parameter ( nompro = 'SFFAF1' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -88,7 +88,7 @@ c==== c codret = 0 c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -101,7 +101,7 @@ c texte(2,4) = >'(''*'',28x,a8,'' boundary group(s)'',28x,''*'')' c -#include "impr03.h" + include "impr03.h" c 1000 format('* ',a80,' *') 1001 format('*',10x,i10,14x,'*') @@ -165,7 +165,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Suivi_Frontiere/sffaf2.F b/src/tool/Suivi_Frontiere/sffaf2.F index 2416193b..16a94dc2 100644 --- a/src/tool/Suivi_Frontiere/sffaf2.F +++ b/src/tool/Suivi_Frontiere/sffaf2.F @@ -84,11 +84,11 @@ c character*6 nompro parameter ( nompro = 'SFFAF2' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -128,7 +128,7 @@ c==== c codret = 0 c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -149,7 +149,7 @@ c texte(2,6) = '(''* Radius: '',g14.7,58x,''*'')' texte(2,7) = '(''* Angle: '',g14.7,58x,''*'')' c -#include "impr03.h" + include "impr03.h" c 1000 format('* ',a80,' *') 1100 format(84('*')) @@ -309,7 +309,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Suivi_Frontiere/sffaf3.F b/src/tool/Suivi_Frontiere/sffaf3.F index 4172894c..dbb06c21 100644 --- a/src/tool/Suivi_Frontiere/sffaf3.F +++ b/src/tool/Suivi_Frontiere/sffaf3.F @@ -49,11 +49,11 @@ c character*6 nompro parameter ( nompro = 'SFFAF3' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -88,7 +88,7 @@ c==== c codret = 0 c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -101,7 +101,7 @@ c texte(2,4) = '(''*'',35x,''1D boundary'',36x,''*'')' texte(2,5) = '(''*'',35x,''2D boundary'',36x,''*'')' c -#include "impr03.h" + include "impr03.h" c 1000 format('* ',a80,' *') 1001 format('*',10x,i10,14x,'*') @@ -204,7 +204,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Suivi_Frontiere/sffaff.F b/src/tool/Suivi_Frontiere/sffaff.F index f6d8f0fe..62ad0d35 100644 --- a/src/tool/Suivi_Frontiere/sffaff.F +++ b/src/tool/Suivi_Frontiere/sffaff.F @@ -68,16 +68,16 @@ c character*6 nompro parameter ( nompro = 'SFFAFF' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "envada.h" + include "envex1.h" + include "envada.h" c -#include "gmenti.h" -#include "gmreel.h" -#include "gmstri.h" + include "gmenti.h" + include "gmreel.h" + include "gmstri.h" c c 0.3. ==> arguments c @@ -113,7 +113,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -128,7 +128,7 @@ c texte(2,7) = '(''Number of links boundary/group :'',i8)' texte(2,8) = '(''Number of analytical boundaries:'',i8)' c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,90002) 'suifro', suifro @@ -366,7 +366,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Suivi_Frontiere/sfgrf0.F b/src/tool/Suivi_Frontiere/sfgrf0.F index 88b83aff..07998675 100644 --- a/src/tool/Suivi_Frontiere/sfgrf0.F +++ b/src/tool/Suivi_Frontiere/sfgrf0.F @@ -60,14 +60,14 @@ c character*6 nompro parameter ( nompro = 'SFGRF0' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" -#include "envca1.h" + include "gmenti.h" + include "envca1.h" c c 0.3. ==> arguments c @@ -100,7 +100,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -200,7 +200,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Suivi_Frontiere/sfgrf1.F b/src/tool/Suivi_Frontiere/sfgrf1.F index 4ae36051..4a7d03b6 100644 --- a/src/tool/Suivi_Frontiere/sfgrf1.F +++ b/src/tool/Suivi_Frontiere/sfgrf1.F @@ -52,16 +52,16 @@ c character*6 nompro parameter ( nompro = 'SFGRF1' ) c -#include "nblang.h" -#include "consts.h" + include "nblang.h" + include "consts.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "impr02.h" -#include "envca1.h" -#include "meddc0.h" + include "impr02.h" + include "envca1.h" + include "meddc0.h" c c 0.3. ==> arguments c @@ -88,7 +88,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -101,7 +101,7 @@ c texte(2,4) = '(''Number of meshes :'',i11)' texte(2,5) = '(''Number of families of '',a,'' :'',i11)' c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,4)) nbmail @@ -164,7 +164,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Suivi_Frontiere/sfgrf2.F b/src/tool/Suivi_Frontiere/sfgrf2.F index 8bb45ddf..0f19cc2e 100644 --- a/src/tool/Suivi_Frontiere/sfgrf2.F +++ b/src/tool/Suivi_Frontiere/sfgrf2.F @@ -64,12 +64,12 @@ c character*6 nompro parameter ( nompro = 'SFGRF2' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "impr02.h" + include "envex1.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -102,7 +102,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -117,7 +117,7 @@ c texte(2,5) = '(/,''Line # '',i5,/,12(''=''))' texte(2,6) = '(''. It is defined by group : '',a,/)' c -#include "impr03.h" + include "impr03.h" c codret = 0 c @@ -266,7 +266,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Suivi_Frontiere/sfgrf3.F b/src/tool/Suivi_Frontiere/sfgrf3.F index c4559572..981bdc3d 100644 --- a/src/tool/Suivi_Frontiere/sfgrf3.F +++ b/src/tool/Suivi_Frontiere/sfgrf3.F @@ -66,14 +66,14 @@ c character*6 nompro parameter ( nompro = 'SFGRF3' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "impr02.h" -#include "gmenti.h" -#include "gmstri.h" + include "envex1.h" + include "impr02.h" + include "gmenti.h" + include "gmstri.h" c c 0.3. ==> arguments c @@ -110,7 +110,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -131,7 +131,7 @@ c texte(2,6) = >'(''*'',20x,''All the groups are taken off'',34x,''*'')' c -#include "impr03.h" + include "impr03.h" c 1000 format(/) 1001 format(84('*')) @@ -427,7 +427,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Suivi_Frontiere/sfgrfa.F b/src/tool/Suivi_Frontiere/sfgrfa.F index 6ca6c190..1599e47c 100644 --- a/src/tool/Suivi_Frontiere/sfgrfa.F +++ b/src/tool/Suivi_Frontiere/sfgrfa.F @@ -53,14 +53,14 @@ c character*6 nompro parameter ( nompro = 'SFGRFA' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" -#include "gmstri.h" + include "gmenti.h" + include "gmstri.h" c c 0.3. ==> arguments c @@ -93,14 +93,14 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" + include "impr03.h" #ifdef _DEBUG_HOMARD_ write (ulsort,90002) 'nbgrmx', nbgrmx #endif @@ -251,7 +251,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Suivi_Frontiere/sfgrfb.F b/src/tool/Suivi_Frontiere/sfgrfb.F index 7feeb374..65198c4f 100644 --- a/src/tool/Suivi_Frontiere/sfgrfb.F +++ b/src/tool/Suivi_Frontiere/sfgrfb.F @@ -53,14 +53,14 @@ c character*6 nompro parameter ( nompro = 'SFGRFB' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" -#include "gmstri.h" + include "gmenti.h" + include "gmstri.h" c c 0.3. ==> arguments c @@ -95,14 +95,14 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" + include "impr03.h" c codret = 0 c @@ -235,7 +235,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Suivi_Frontiere/sfgrou.F b/src/tool/Suivi_Frontiere/sfgrou.F index a30cb538..d2409dfd 100644 --- a/src/tool/Suivi_Frontiere/sfgrou.F +++ b/src/tool/Suivi_Frontiere/sfgrou.F @@ -51,11 +51,11 @@ c character*6 nompro parameter ( nompro = 'SFGROU' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -81,7 +81,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -100,7 +100,7 @@ c texte(2,6) = '(''It cannot be followed.'')' texte(2,7) = '(''Number of groups in families:'',i8)' c -#include "impr03.h" + include "impr03.h" c c==== c 2. Nombre de groupes designes dans le fichier de configuration @@ -155,7 +155,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Suivi_Frontiere/sfindr.F b/src/tool/Suivi_Frontiere/sfindr.F index 6ab601b5..05f0e74a 100644 --- a/src/tool/Suivi_Frontiere/sfindr.F +++ b/src/tool/Suivi_Frontiere/sfindr.F @@ -68,17 +68,17 @@ c character*6 nompro parameter ( nompro = 'SFINDR' ) c -#include "nblang.h" -#include "cofina.h" -#include "cofaar.h" + include "nblang.h" + include "cofina.h" + include "cofaar.h" c c 0.2. ==> communs c -#include "front1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nombar.h" -#include "envex1.h" + include "front1.h" + include "dicfen.h" + include "nbfami.h" + include "nombar.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -113,7 +113,7 @@ c==== c c 1.1. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -130,7 +130,7 @@ c 7890123456789012345678901234567 texte(2,5) = '(37(''=''),/)' texte(2,6) = '(''Line # '',i4,'' is a straight line.'')' c -#include "impr03.h" + include "impr03.h" c c 1.2. ==> le numero de sous-etape c @@ -219,7 +219,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Suivi_Frontiere/sflgeo.F b/src/tool/Suivi_Frontiere/sflgeo.F index 4a176bc1..09127624 100644 --- a/src/tool/Suivi_Frontiere/sflgeo.F +++ b/src/tool/Suivi_Frontiere/sflgeo.F @@ -54,13 +54,13 @@ c character*6 nompro parameter ( nompro = 'SFLGEO' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "motcle.h" + include "motcle.h" c 0.3. ==> arguments c integer lgopti @@ -108,7 +108,7 @@ c c c 1.3. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -125,7 +125,7 @@ c texte(2,6) = '(''Degree of the mesh is :'',i3)' texte(2,7) = '(''It should be linear.'')' c -#include "impr03.h" + include "impr03.h" c c 1.4. ==> le numero de sous-etape c @@ -189,7 +189,7 @@ c 4.1. ==> message si erreur c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Suivi_Frontiere/sflise.F b/src/tool/Suivi_Frontiere/sflise.F index 1027ea2e..2ebd472c 100644 --- a/src/tool/Suivi_Frontiere/sflise.F +++ b/src/tool/Suivi_Frontiere/sflise.F @@ -55,13 +55,13 @@ c character*6 nompro parameter ( nompro = 'SFLISE' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "front1.h" + include "front1.h" c c 0.3. ==> arguments c @@ -84,7 +84,7 @@ c==== c 1. initialisation c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -155,7 +155,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,4)) sfnbli write (ulsort,texte(langue,5)) seglig(0)+1 diff --git a/src/tool/Suivi_Frontiere/sfliso.F b/src/tool/Suivi_Frontiere/sfliso.F index 232908b1..832d18c3 100644 --- a/src/tool/Suivi_Frontiere/sfliso.F +++ b/src/tool/Suivi_Frontiere/sfliso.F @@ -83,21 +83,21 @@ c character*6 nompro parameter ( nompro = 'SFLISO' ) c -#include "nblang.h" -#include "cofaar.h" -#include "cofina.h" + include "nblang.h" + include "cofaar.h" + include "cofina.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "envca1.h" -#include "front1.h" -#include "front2.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nombno.h" -#include "nombar.h" -#include "impr02.h" + include "envex1.h" + include "envca1.h" + include "front1.h" + include "front2.h" + include "dicfen.h" + include "nbfami.h" + include "nombno.h" + include "nombar.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -142,7 +142,7 @@ c 1. messages c==== c 1.1. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -174,7 +174,7 @@ c texte(2,12) = '(a,'' Inhibition of bf for the edge #'',i10)' texte(2,20) = '(5x,''Examination of nodes located on lines'')' c -#include "impr03.h" + include "impr03.h" c c 1.2. ==> a priori, aucun segment n'est attache a un noeud c @@ -500,7 +500,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Suivi_Frontiere/sfmop2.F b/src/tool/Suivi_Frontiere/sfmop2.F index 472d5675..6f831bcc 100644 --- a/src/tool/Suivi_Frontiere/sfmop2.F +++ b/src/tool/Suivi_Frontiere/sfmop2.F @@ -52,15 +52,15 @@ c character*6 nompro parameter ( nompro = 'SFMOP2' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "envca1.h" + include "envex1.h" + include "envca1.h" c -#include "nombno.h" -#include "nombar.h" + include "nombno.h" + include "nombar.h" c c 0.3. ==> arguments c @@ -96,7 +96,7 @@ c c c 1.3. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -180,7 +180,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Suivi_Frontiere/sfnnfl.F b/src/tool/Suivi_Frontiere/sfnnfl.F index c0681c2f..a8f80959 100644 --- a/src/tool/Suivi_Frontiere/sfnnfl.F +++ b/src/tool/Suivi_Frontiere/sfnnfl.F @@ -64,17 +64,17 @@ c character*6 nompro parameter ( nompro = 'SFNNFL' ) c -#include "nblang.h" -#include "cofaar.h" + include "nblang.h" + include "cofaar.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "envca1.h" -#include "front2.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nombar.h" + include "envex1.h" + include "envca1.h" + include "front2.h" + include "dicfen.h" + include "nbfami.h" + include "nombar.h" c c 0.3. ==> arguments c @@ -102,7 +102,7 @@ c==== c c 1.3. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -166,7 +166,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Suivi_Frontiere/sfnofl.F b/src/tool/Suivi_Frontiere/sfnofl.F index b4165178..903570ed 100644 --- a/src/tool/Suivi_Frontiere/sfnofl.F +++ b/src/tool/Suivi_Frontiere/sfnofl.F @@ -91,23 +91,23 @@ c character*6 nompro parameter ( nompro = 'SFNOFL' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" -#include "gmreel.h" + include "gmenti.h" + include "gmreel.h" c -#include "envca1.h" -#include "front1.h" -#include "front2.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nombno.h" -#include "nombar.h" -#include "impr02.h" + include "envca1.h" + include "front1.h" + include "front2.h" + include "dicfen.h" + include "nbfami.h" + include "nombno.h" + include "nombar.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -153,7 +153,7 @@ c==== c c 1.3. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -294,7 +294,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Suivi_Frontiere/sfnuli.F b/src/tool/Suivi_Frontiere/sfnuli.F index 5e43ebd7..ba3c8ee5 100644 --- a/src/tool/Suivi_Frontiere/sfnuli.F +++ b/src/tool/Suivi_Frontiere/sfnuli.F @@ -65,16 +65,16 @@ c character*6 nompro parameter ( nompro = 'SFNULI' ) c -#include "nblang.h" -#include "cofaar.h" -#include "cofina.h" + include "nblang.h" + include "cofaar.h" + include "cofina.h" c c 0.2. ==> communs c -#include "front1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "envex1.h" + include "front1.h" + include "dicfen.h" + include "nbfami.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -109,7 +109,7 @@ c==== c c 1.1. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -128,7 +128,7 @@ c texte(2,7) = > '(5x,''Line #'',i10,'' does not belong to list:'')' c -#include "impr03.h" + include "impr03.h" c c 1.2. ==> le numero de sous-etape c @@ -201,7 +201,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,7)) lig write (ulsort,91020) (numlig(ligv),ligv=1,sfnbli) diff --git a/src/tool/Suivi_Frontiere/sfpop2.F b/src/tool/Suivi_Frontiere/sfpop2.F index 0ff4f198..660a1ed5 100644 --- a/src/tool/Suivi_Frontiere/sfpop2.F +++ b/src/tool/Suivi_Frontiere/sfpop2.F @@ -76,18 +76,18 @@ c character*6 nompro parameter ( nompro = 'SFPOP2' ) c -#include "nblang.h" -#include "cofaar.h" + include "nblang.h" + include "cofaar.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "dicfen.h" -#include "nbfami.h" -#include "nombno.h" -#include "nombar.h" -#include "fracta.h" + include "dicfen.h" + include "nbfami.h" + include "nombno.h" + include "nombar.h" + include "fracta.h" c c 0.3. ==> arguments c @@ -130,7 +130,7 @@ c c c 1.3. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -249,7 +249,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Suivi_Frontiere/sfprep.F b/src/tool/Suivi_Frontiere/sfprep.F index ebb2ebc7..ac73f05a 100644 --- a/src/tool/Suivi_Frontiere/sfprep.F +++ b/src/tool/Suivi_Frontiere/sfprep.F @@ -57,16 +57,16 @@ c character*6 nompro parameter ( nompro = 'SFPREP' ) c -#include "motcle.h" -#include "nblang.h" + include "motcle.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" + include "gmenti.h" c -#include "envca1.h" + include "envca1.h" c c 0.3. ==> arguments c @@ -113,14 +113,14 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ if ( codret.eq.0 ) then @@ -257,7 +257,7 @@ c c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Suivi_Frontiere/sfseno.F b/src/tool/Suivi_Frontiere/sfseno.F index a34447fd..a2eaf35a 100644 --- a/src/tool/Suivi_Frontiere/sfseno.F +++ b/src/tool/Suivi_Frontiere/sfseno.F @@ -57,9 +57,9 @@ c c c 0.2. ==> communs c -#include "front1.h" -#include "infini.h" -#include "envca1.h" + include "front1.h" + include "infini.h" + include "envca1.h" c c 0.3. ==> arguments c @@ -88,7 +88,7 @@ c c 0.5. ==> initialisations c ______________________________________________________________________ c -#include "impr03.h" + include "impr03.h" c c==== c 1. initialisation diff --git a/src/tool/Suivi_Frontiere/sfslin.F b/src/tool/Suivi_Frontiere/sfslin.F index 714d95e5..d55245db 100644 --- a/src/tool/Suivi_Frontiere/sfslin.F +++ b/src/tool/Suivi_Frontiere/sfslin.F @@ -73,16 +73,16 @@ c character*6 nompro parameter ( nompro = 'SFSLIN' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "envca1.h" + include "envex1.h" + include "envca1.h" c -#include "front1.h" -#include "front2.h" -#include "impr02.h" + include "front1.h" + include "front2.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -122,7 +122,7 @@ c 1. initialisations c==== c cgn ulsort = lenoeu -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -150,7 +150,7 @@ c > '(''.. The '',a,i10,'' cannot be found on boundary.'')' texte(2,10) = '(''.. The edge of boundary cannot be found.'')' c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,4)) mess14(langue,2,-1), lenoeu @@ -419,7 +419,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Suivi_Frontiere/sftqqu.F b/src/tool/Suivi_Frontiere/sftqqu.F index 1bfe5152..2f91503d 100644 --- a/src/tool/Suivi_Frontiere/sftqqu.F +++ b/src/tool/Suivi_Frontiere/sftqqu.F @@ -66,18 +66,18 @@ c double precision rapqmx parameter ( rapqmx = 5.0d0 ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "envca1.h" + include "envex1.h" + include "envca1.h" c -#include "nombno.h" -#include "nombar.h" -#include "nombqu.h" -#include "impr02.h" -#include "ope1a4.h" + include "nombno.h" + include "nombar.h" + include "nombqu.h" + include "impr02.h" + include "ope1a4.h" c c 0.3. ==> arguments c @@ -124,7 +124,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -559,7 +559,7 @@ c c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Suivi_Frontiere/sftqtr.F b/src/tool/Suivi_Frontiere/sftqtr.F index dec429c8..c16c4f7e 100644 --- a/src/tool/Suivi_Frontiere/sftqtr.F +++ b/src/tool/Suivi_Frontiere/sftqtr.F @@ -66,17 +66,17 @@ c double precision rapqmx parameter ( rapqmx = 5.0d0 ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "envca1.h" + include "envex1.h" + include "envca1.h" c -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "impr02.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -123,7 +123,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -564,7 +564,7 @@ c c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utacma.F b/src/tool/Utilitaire/utacma.F index aa31f348..c4f3672a 100644 --- a/src/tool/Utilitaire/utacma.F +++ b/src/tool/Utilitaire/utacma.F @@ -105,11 +105,11 @@ c integer nbnomb parameter ( nbnomb = 50 ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -144,7 +144,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -163,7 +163,7 @@ c texte(2,6) = '(''Problem while allocating object '',a8)' texte(2,7) = '(''Problem while allocating a temporary object.'')' c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,4)) @@ -331,7 +331,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utacme.F b/src/tool/Utilitaire/utacme.F index 1132091e..e4523220 100644 --- a/src/tool/Utilitaire/utacme.F +++ b/src/tool/Utilitaire/utacme.F @@ -70,13 +70,13 @@ c character*6 nompro parameter ( nompro = 'UTACME' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "impr02.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -109,7 +109,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -219,7 +219,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utad01.F b/src/tool/Utilitaire/utad01.F index be62829c..8df6f718 100644 --- a/src/tool/Utilitaire/utad01.F +++ b/src/tool/Utilitaire/utad01.F @@ -70,12 +70,12 @@ c character*6 nompro parameter ( nompro = 'UTAD01' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "indefi.h" + include "envex1.h" + include "indefi.h" c c 0.3. ==> arguments c @@ -108,7 +108,7 @@ c==== c c 1.3. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -236,7 +236,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utad02.F b/src/tool/Utilitaire/utad02.F index c8e9bf90..21f2328f 100644 --- a/src/tool/Utilitaire/utad02.F +++ b/src/tool/Utilitaire/utad02.F @@ -81,12 +81,12 @@ c character*6 nompro parameter ( nompro = 'UTAD02' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "indefi.h" + include "envex1.h" + include "indefi.h" c c 0.3. ==> arguments c @@ -123,7 +123,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -136,7 +136,7 @@ c texte(2,4) = '(''Adresses for entities'')' texte(2,8) = '(''Error codes'',20i3)' c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,4)) @@ -370,7 +370,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utad03.F b/src/tool/Utilitaire/utad03.F index 455dbbc2..5fc5a9f9 100644 --- a/src/tool/Utilitaire/utad03.F +++ b/src/tool/Utilitaire/utad03.F @@ -65,11 +65,11 @@ c character*6 nompro parameter ( nompro = 'UTAD03' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -102,7 +102,7 @@ c==== c c 1.3. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -267,7 +267,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,5)) option diff --git a/src/tool/Utilitaire/utad04.F b/src/tool/Utilitaire/utad04.F index eb556468..831d189f 100644 --- a/src/tool/Utilitaire/utad04.F +++ b/src/tool/Utilitaire/utad04.F @@ -92,11 +92,11 @@ c character*6 nompro parameter ( nompro = 'UTAD04' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -133,7 +133,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -144,7 +144,7 @@ c c texte(2,4) = '(''Adresses for neighbours'')' c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,4)) @@ -346,7 +346,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utad05.F b/src/tool/Utilitaire/utad05.F index fbba3194..fc534301 100644 --- a/src/tool/Utilitaire/utad05.F +++ b/src/tool/Utilitaire/utad05.F @@ -75,11 +75,11 @@ c character*6 nompro parameter ( nompro = 'UTAD05' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -113,7 +113,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -130,7 +130,7 @@ c texte(2,9) = '(''Old number of nodes : '',i10)' texte(2,10) = '(''New number of nodes : '',i10)' c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,4)) @@ -303,7 +303,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utad06.F b/src/tool/Utilitaire/utad06.F index 78df38db..b3de5bb3 100644 --- a/src/tool/Utilitaire/utad06.F +++ b/src/tool/Utilitaire/utad06.F @@ -97,12 +97,12 @@ c character*6 nompro parameter ( nompro = 'UTAD06' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "impr02.h" + include "envex1.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -146,7 +146,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -167,7 +167,7 @@ c texte(2,9) = '(''Old number of entities : '',i10)' texte(2,10) = '(''New number of entities : '',i10)' c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,4)) mess14(langue,3,typenh) @@ -625,7 +625,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utad07.F b/src/tool/Utilitaire/utad07.F index 300a8c26..36ab2795 100644 --- a/src/tool/Utilitaire/utad07.F +++ b/src/tool/Utilitaire/utad07.F @@ -75,13 +75,13 @@ c character*6 nompro parameter ( nompro = 'UTAD07' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "impr02.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -115,7 +115,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -258,7 +258,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utad08.F b/src/tool/Utilitaire/utad08.F index da8dd2c8..7cdadd26 100644 --- a/src/tool/Utilitaire/utad08.F +++ b/src/tool/Utilitaire/utad08.F @@ -67,12 +67,12 @@ c character*6 nompro parameter ( nompro = 'UTAD08' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "impr02.h" + include "envex1.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -101,7 +101,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -116,7 +116,7 @@ c > '(''Destruction of the arrays for the families of the '',a)' texte(2,8) = '(''Error codes'',20i3)' c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,4)) mess14(langue,3,typenh) @@ -224,7 +224,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utad11.F b/src/tool/Utilitaire/utad11.F index c5dcc9ee..4572b186 100644 --- a/src/tool/Utilitaire/utad11.F +++ b/src/tool/Utilitaire/utad11.F @@ -71,11 +71,11 @@ c character*6 nompro parameter ( nompro = 'UTAD11' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -106,7 +106,7 @@ c==== c c 1.3. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -249,7 +249,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utad12.F b/src/tool/Utilitaire/utad12.F index ed7120a5..3bb04f5e 100644 --- a/src/tool/Utilitaire/utad12.F +++ b/src/tool/Utilitaire/utad12.F @@ -65,13 +65,13 @@ c character*6 nompro parameter ( nompro = 'UTAD12' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "enti01.h" -#include "impr02.h" + include "envex1.h" + include "enti01.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -101,7 +101,7 @@ c==== c c 1.1. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -151,7 +151,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utad13.F b/src/tool/Utilitaire/utad13.F index cd039186..faee72f3 100644 --- a/src/tool/Utilitaire/utad13.F +++ b/src/tool/Utilitaire/utad13.F @@ -62,11 +62,11 @@ c character*6 nompro parameter ( nompro = 'UTAD13' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -97,7 +97,7 @@ c==== c c 1.3. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -164,7 +164,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utad21.F b/src/tool/Utilitaire/utad21.F index d18169f4..f3897046 100644 --- a/src/tool/Utilitaire/utad21.F +++ b/src/tool/Utilitaire/utad21.F @@ -62,11 +62,11 @@ c character*6 nompro parameter ( nompro = 'UTAD21' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -100,7 +100,7 @@ c==== c c 1.3. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -225,7 +225,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utad22.F b/src/tool/Utilitaire/utad22.F index fa503d85..92d80a6b 100644 --- a/src/tool/Utilitaire/utad22.F +++ b/src/tool/Utilitaire/utad22.F @@ -76,11 +76,11 @@ c character*6 nompro parameter ( nompro = 'UTAD22' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -115,7 +115,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -126,7 +126,7 @@ c c texte(2,4) = '(''Adresses for entities'')' c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,4)) @@ -268,7 +268,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utad31.F b/src/tool/Utilitaire/utad31.F index 1e6033a2..01905972 100644 --- a/src/tool/Utilitaire/utad31.F +++ b/src/tool/Utilitaire/utad31.F @@ -77,13 +77,13 @@ c character*6 nompro parameter ( nompro = 'UTAD31' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "impr02.h" -#include "enti01.h" + include "envex1.h" + include "impr02.h" + include "enti01.h" c c 0.3. ==> arguments c @@ -116,7 +116,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -234,7 +234,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utad41.F b/src/tool/Utilitaire/utad41.F index 8505b5b3..e54c0ee5 100644 --- a/src/tool/Utilitaire/utad41.F +++ b/src/tool/Utilitaire/utad41.F @@ -62,11 +62,11 @@ c character*6 nompro parameter ( nompro = 'UTAD41' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -97,7 +97,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -108,7 +108,7 @@ c c texte(2,4) = '(''Adresses for entities'')' c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,4)) @@ -185,7 +185,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utad80.F b/src/tool/Utilitaire/utad80.F index 72334cc4..8edb65d2 100644 --- a/src/tool/Utilitaire/utad80.F +++ b/src/tool/Utilitaire/utad80.F @@ -54,12 +54,12 @@ c character*6 nompro parameter ( nompro = 'UTAD80' ) c -#include "nblang.h" -#include "motcle.h" + include "nblang.h" + include "motcle.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -70,7 +70,7 @@ c c c 0.4. ==> variables locales c -#include "utliob.h" + include "utliob.h" c integer codre1, codre2, codre3, codre4, codre5 integer codre6 @@ -89,7 +89,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -129,7 +129,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utad97.F b/src/tool/Utilitaire/utad97.F index 13f5a6ff..8ab52e76 100644 --- a/src/tool/Utilitaire/utad97.F +++ b/src/tool/Utilitaire/utad97.F @@ -97,15 +97,15 @@ c character*6 nompro parameter ( nompro = 'UTAD97' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "impr02.h" -#include "enti01.h" + include "envex1.h" + include "impr02.h" + include "enti01.h" c -#include "envca1.h" + include "envca1.h" c c 0.3. ==> arguments c @@ -146,7 +146,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -157,7 +157,7 @@ c c texte(2,4) = '(''Adresses for '',a)' c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,4)) mess14(langue,3,typenh) @@ -350,7 +350,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utad98.F b/src/tool/Utilitaire/utad98.F index 437f461c..e509580c 100644 --- a/src/tool/Utilitaire/utad98.F +++ b/src/tool/Utilitaire/utad98.F @@ -79,14 +79,14 @@ c character*6 nompro parameter ( nompro = 'UTAD98' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "impr02.h" + include "envex1.h" + include "impr02.h" c -#include "envca1.h" + include "envca1.h" c c 0.3. ==> arguments c @@ -147,7 +147,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -160,7 +160,7 @@ c texte(2,6) = '(''Size modification of arrays for '',a)' texte(2,7) = '(5x,''==> error code :'',i8)' c -#include "impr03.h" + include "impr03.h" c c==== c 2. structure generale @@ -502,7 +502,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utad99.F b/src/tool/Utilitaire/utad99.F index 5c753b2d..d0224132 100644 --- a/src/tool/Utilitaire/utad99.F +++ b/src/tool/Utilitaire/utad99.F @@ -57,19 +57,19 @@ c character*6 nompro parameter ( nompro = 'UTAD99' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombhe.h" -#include "nombpy.h" -#include "nombpe.h" + include "envca1.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombhe.h" + include "nombpy.h" + include "nombpe.h" c c 0.3. ==> arguments c @@ -109,7 +109,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -269,7 +269,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utadpt.F b/src/tool/Utilitaire/utadpt.F index 7e280330..50ab62d5 100644 --- a/src/tool/Utilitaire/utadpt.F +++ b/src/tool/Utilitaire/utadpt.F @@ -56,11 +56,11 @@ c character*6 nompro parameter ( nompro = 'UTADPT' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -92,14 +92,14 @@ c 1. messages c==== c 1.1. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,90002) 'choix', choix @@ -192,7 +192,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utahma.F b/src/tool/Utilitaire/utahma.F index e3309cb2..1bfdfa84 100644 --- a/src/tool/Utilitaire/utahma.F +++ b/src/tool/Utilitaire/utahma.F @@ -154,11 +154,11 @@ c character*6 nompro parameter ( nompro = 'UTAHMA' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -197,7 +197,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -214,7 +214,7 @@ c texte(2,6) = '(''Problem while allocating object '',a8)' texte(2,7) = '(''Problem while allocating a temporary object.'')' c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write(ulsort,texte(langue,4)) @@ -573,7 +573,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utaipe.F b/src/tool/Utilitaire/utaipe.F index 27795e07..4ed64a64 100644 --- a/src/tool/Utilitaire/utaipe.F +++ b/src/tool/Utilitaire/utaipe.F @@ -68,15 +68,15 @@ c character*6 nompro parameter ( nompro = 'UTAIPE' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "nombtr.h" -#include "nombte.h" -#include "nombpe.h" -#include "impr02.h" + include "envex1.h" + include "nombtr.h" + include "nombte.h" + include "nombpe.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -108,7 +108,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -125,7 +125,7 @@ c texte(2,6) = '(''Option:'',i2)' texte(2,7) = '(''Impossible.'')' c -#include "impr03.h" + include "impr03.h" c codret = 0 c @@ -364,7 +364,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utal00.F b/src/tool/Utilitaire/utal00.F index 9129a8fb..262409d6 100644 --- a/src/tool/Utilitaire/utal00.F +++ b/src/tool/Utilitaire/utal00.F @@ -93,13 +93,13 @@ c character*6 nompro parameter ( nompro = 'UTAL00' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "envca1.h" -#include "gmenti.h" + include "envex1.h" + include "envca1.h" + include "gmenti.h" c c 0.3. ==> arguments c @@ -154,14 +154,14 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,90002) 'option', option @@ -367,7 +367,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utal02.F b/src/tool/Utilitaire/utal02.F index 4ed5cfb4..50fd380e 100644 --- a/src/tool/Utilitaire/utal02.F +++ b/src/tool/Utilitaire/utal02.F @@ -91,13 +91,13 @@ c character*6 nompro parameter ( nompro = 'UTAL02' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "impr02.h" -#include "indefi.h" + include "envex1.h" + include "impr02.h" + include "indefi.h" c c 0.3. ==> arguments c @@ -135,7 +135,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -150,7 +150,7 @@ c texte(2,6) = '(''Structure: '',a)' texte(2,8) = '(''Error codes'',20i3)' c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,4)) mess14(langue,3,typenh) @@ -442,7 +442,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utal41.F b/src/tool/Utilitaire/utal41.F index 5ae964f8..aa5d67c1 100644 --- a/src/tool/Utilitaire/utal41.F +++ b/src/tool/Utilitaire/utal41.F @@ -71,11 +71,11 @@ c character*6 nompro parameter ( nompro = 'UTAL41' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -112,7 +112,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -123,7 +123,7 @@ c c texte(2,4) = '(''Allocations for entities'')' c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,4)) @@ -267,7 +267,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utalfe.F b/src/tool/Utilitaire/utalfe.F index 8c7f6740..7ca0b2d8 100644 --- a/src/tool/Utilitaire/utalfe.F +++ b/src/tool/Utilitaire/utalfe.F @@ -65,13 +65,13 @@ c character*6 nompro parameter ( nompro = 'UTALFE' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "impr02.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -100,7 +100,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -112,7 +112,7 @@ c c texte(2,4) = '(''Allocation of structures for family of '',a)' c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,4)) mess14(langue,3,typenh) @@ -166,7 +166,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utalfo.F b/src/tool/Utilitaire/utalfo.F index 7de337fc..0339310a 100644 --- a/src/tool/Utilitaire/utalfo.F +++ b/src/tool/Utilitaire/utalfo.F @@ -76,13 +76,13 @@ c character*6 nompro parameter ( nompro = 'UTALFO' ) c -#include "nblang.h" -#include "consts.h" -#include "meddc0.h" + include "nblang.h" + include "consts.h" + include "meddc0.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -113,9 +113,9 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -199,7 +199,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utalih.F b/src/tool/Utilitaire/utalih.F index b3a6071e..6c3dca03 100644 --- a/src/tool/Utilitaire/utalih.F +++ b/src/tool/Utilitaire/utalih.F @@ -54,14 +54,14 @@ c character*6 nompro parameter ( nompro = 'UTALIH' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "enti01.h" -#include "impr02.h" + include "enti01.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -92,7 +92,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -138,7 +138,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,4)) mess14(langue,3,codent) write (ulsort,texte(langue,1)) 'Sortie', nompro diff --git a/src/tool/Utilitaire/utalpf.F b/src/tool/Utilitaire/utalpf.F index 7cf26453..5bef8edf 100644 --- a/src/tool/Utilitaire/utalpf.F +++ b/src/tool/Utilitaire/utalpf.F @@ -71,13 +71,13 @@ c character*6 nompro parameter ( nompro = 'UTALPF' ) c -#include "nblang.h" -#include "consts.h" -#include "meddc0.h" + include "nblang.h" + include "consts.h" + include "meddc0.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -105,7 +105,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -116,7 +116,7 @@ c c texte(2,4) = '(''Creation of pack of functions : '',a)' c -#include "impr03.h" + include "impr03.h" c c==== c 2. creation de la structure generale du paquet de fonctions @@ -202,7 +202,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utalpg.F b/src/tool/Utilitaire/utalpg.F index 0e5751be..2c7757d6 100644 --- a/src/tool/Utilitaire/utalpg.F +++ b/src/tool/Utilitaire/utalpg.F @@ -56,13 +56,13 @@ c character*6 nompro parameter ( nompro = 'UTALPG' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmstri.h" + include "gmstri.h" c c 0.3. ==> arguments c @@ -95,7 +95,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -191,7 +191,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utalpr.F b/src/tool/Utilitaire/utalpr.F index 6a015321..7b670d29 100644 --- a/src/tool/Utilitaire/utalpr.F +++ b/src/tool/Utilitaire/utalpr.F @@ -52,13 +52,13 @@ c character*6 nompro parameter ( nompro = 'UTALPR' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmstri.h" + include "gmstri.h" c c 0.3. ==> arguments c @@ -90,7 +90,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -157,7 +157,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utalso.F b/src/tool/Utilitaire/utalso.F index b78db17d..37d4b9d7 100644 --- a/src/tool/Utilitaire/utalso.F +++ b/src/tool/Utilitaire/utalso.F @@ -58,11 +58,11 @@ c character*6 nompro parameter ( nompro = 'UTALSO' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -94,7 +94,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -212,7 +212,7 @@ c c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utaptc.F b/src/tool/Utilitaire/utaptc.F index dfdb788b..25b6fe54 100644 --- a/src/tool/Utilitaire/utaptc.F +++ b/src/tool/Utilitaire/utaptc.F @@ -64,13 +64,13 @@ c character*6 nompro parameter ( nompro = 'UTAPTC' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" + include "gmenti.h" c c 0.3. ==> arguments c @@ -108,7 +108,7 @@ c c c 1.2. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -312,7 +312,7 @@ c c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utapte.F b/src/tool/Utilitaire/utapte.F index 5a95ae2d..9f6a068f 100644 --- a/src/tool/Utilitaire/utapte.F +++ b/src/tool/Utilitaire/utapte.F @@ -61,13 +61,13 @@ c character*6 nompro parameter ( nompro = 'UTAPTE' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" + include "gmenti.h" c c 0.3. ==> arguments c @@ -103,7 +103,7 @@ c c c 1.2. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -244,7 +244,7 @@ c c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utarhe.F b/src/tool/Utilitaire/utarhe.F index ccef8b8c..7dea0ec8 100644 --- a/src/tool/Utilitaire/utarhe.F +++ b/src/tool/Utilitaire/utarhe.F @@ -48,7 +48,7 @@ c c c 0.2. ==> communs c -#include "j1234j.h" + include "j1234j.h" c c 0.3. ==> arguments c @@ -63,7 +63,7 @@ c integer lafac1, lafac2, lafac5, lafac6 integer codfa1, codfa2, codfa5, codfa6 c -#include "impr03.h" + include "impr03.h" c c==== c 1. traitement diff --git a/src/tool/Utilitaire/utarpe.F b/src/tool/Utilitaire/utarpe.F index 885a7dd4..0c9e0a23 100644 --- a/src/tool/Utilitaire/utarpe.F +++ b/src/tool/Utilitaire/utarpe.F @@ -49,7 +49,7 @@ c c c 0.2. ==> communs c -#include "j1234j.h" + include "j1234j.h" c c 0.3. ==> arguments c diff --git a/src/tool/Utilitaire/utarpy.F b/src/tool/Utilitaire/utarpy.F index 1e773d54..1dd15516 100644 --- a/src/tool/Utilitaire/utarpy.F +++ b/src/tool/Utilitaire/utarpy.F @@ -49,7 +49,7 @@ c c c 0.2. ==> communs c -#include "i1i2i3.h" + include "i1i2i3.h" c c 0.3. ==> arguments c diff --git a/src/tool/Utilitaire/utarro.F b/src/tool/Utilitaire/utarro.F index e62e3e73..5f931070 100644 --- a/src/tool/Utilitaire/utarro.F +++ b/src/tool/Utilitaire/utarro.F @@ -54,13 +54,13 @@ c character*6 nompro parameter ( nompro = 'UTARRO' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "infini.h" -#include "precis.h" + include "envex1.h" + include "infini.h" + include "precis.h" c c 0.3. ==> arguments c @@ -89,7 +89,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -102,7 +102,7 @@ c texte(2,4) = '(''Value '',i1,'' to round :'',g25.17)' texte(2,6) = '(''--> round value '',i1,'' :'',g25.17)' c -#include "impr03.h" + include "impr03.h" 1001 format(a,' :',f20.17,' * 10**',i3) c #ifdef _DEBUG_HOMARD_ @@ -350,7 +350,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utarte.F b/src/tool/Utilitaire/utarte.F index d30ab897..69aa4c9a 100644 --- a/src/tool/Utilitaire/utarte.F +++ b/src/tool/Utilitaire/utarte.F @@ -48,7 +48,7 @@ c c c 0.2. ==> communs c -#include "i1i2i3.h" + include "i1i2i3.h" c c 0.3. ==> arguments c diff --git a/src/tool/Utilitaire/utashe.F b/src/tool/Utilitaire/utashe.F index d1f043b0..4a1c8bf2 100644 --- a/src/tool/Utilitaire/utashe.F +++ b/src/tool/Utilitaire/utashe.F @@ -69,7 +69,7 @@ c integer iaux c ______________________________________________________________________ c -#include "impr03.h" + include "impr03.h" c c==== c 1. Les aretes de l'hexaedre diff --git a/src/tool/Utilitaire/utaurq.F b/src/tool/Utilitaire/utaurq.F index 818ea93a..07d05c7a 100644 --- a/src/tool/Utilitaire/utaurq.F +++ b/src/tool/Utilitaire/utaurq.F @@ -64,15 +64,15 @@ c character*6 nompro parameter ( nompro = 'UTAURQ' ) c -#include "nblang.h" -#include "motcle.h" + include "nblang.h" + include "motcle.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" -#include "impr02.h" + include "gmenti.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -105,7 +105,7 @@ c==== c 1. a priori, tout va bien c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -240,7 +240,7 @@ c=== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utb02a.F b/src/tool/Utilitaire/utb02a.F index e1e964cd..f8f85d83 100644 --- a/src/tool/Utilitaire/utb02a.F +++ b/src/tool/Utilitaire/utb02a.F @@ -66,23 +66,23 @@ c character*6 nompro parameter ( nompro = 'UTB02A' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "nombno.h" -#include "nombmp.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombhe.h" -#include "nombpy.h" -#include "nombpe.h" -#include "envada.h" -#include "envca1.h" -#include "impr02.h" + include "envex1.h" + include "nombno.h" + include "nombmp.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombhe.h" + include "nombpy.h" + include "nombpe.h" + include "envada.h" + include "envca1.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -120,7 +120,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -349,7 +349,7 @@ c c write (ulbila,texte(langue,4)) c -#include "impr03.h" + include "impr03.h" c 10100 format(/,5x,60('*')) 10200 format( 5x,60('*')) @@ -1048,7 +1048,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utb03a.F b/src/tool/Utilitaire/utb03a.F index 9b86bd31..ac5d8c19 100644 --- a/src/tool/Utilitaire/utb03a.F +++ b/src/tool/Utilitaire/utb03a.F @@ -105,27 +105,27 @@ c character*6 nompro parameter ( nompro = 'UTB03A' ) c -#include "nblang.h" + include "nblang.h" c integer nbintx parameter ( nbintx = 15 ) c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" + include "gmenti.h" c -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombhe.h" -#include "nombpy.h" -#include "nombpe.h" -#include "envca1.h" -#include "impr02.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombhe.h" + include "nombpy.h" + include "nombpe.h" + include "envca1.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -190,7 +190,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -208,7 +208,7 @@ c > '(3x,''The mesh contains hanging nodes at the beginning.'')' texte(2,7) = '(3x,''Control cannot be made.'')' c -#include "impr03.h" + include "impr03.h" c mess54(1,1) = > ' Aucun probleme n''a ete rencontre. ' @@ -772,7 +772,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Sortie', nompro diff --git a/src/tool/Utilitaire/utb05a.F b/src/tool/Utilitaire/utb05a.F index a0d11c9e..c76966fe 100644 --- a/src/tool/Utilitaire/utb05a.F +++ b/src/tool/Utilitaire/utb05a.F @@ -116,25 +116,25 @@ c character*6 nompro parameter ( nompro = 'UTB05A' ) c -#include "nblang.h" -#include "coftex.h" + include "nblang.h" + include "coftex.h" c c 0.2. ==> communs c -#include "envex1.h" -c -#include "dicfen.h" -#include "nbfami.h" -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombhe.h" -#include "nombpy.h" -#include "nombpe.h" -#include "envca1.h" -#include "impr02.h" + include "envex1.h" +c + include "dicfen.h" + include "nbfami.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombhe.h" + include "nombpy.h" + include "nombpe.h" + include "envca1.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -184,7 +184,7 @@ c==== c 1. titre c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -203,7 +203,7 @@ c texte(2,6) = '(3x,''Number of '',a,'' to be examined: '',i8)' texte(2,7) = '(3x,''Number of flat '',a,'': '',i8)' c -#include "impr03.h" + include "impr03.h" c write (ulsort,texte(langue,4)) if ( ulbila.ne.ulsort ) then @@ -539,7 +539,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utb05b.F b/src/tool/Utilitaire/utb05b.F index 3ab967d6..6eb480cb 100644 --- a/src/tool/Utilitaire/utb05b.F +++ b/src/tool/Utilitaire/utb05b.F @@ -67,16 +67,16 @@ c character*6 nompro parameter ( nompro = 'UTB05B' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "enti01.h" -#include "impr02.h" -#include "precis.h" -#include "infini.h" + include "enti01.h" + include "impr02.h" + include "precis.h" + include "infini.h" c c 0.3. ==> arguments c @@ -145,7 +145,7 @@ c==== c 1. Messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -172,7 +172,7 @@ c texte(2,6) = '(5x,''Number of flat '',a,'': '',i8)' texte(2,7) = '(5x,''The '',a,'' #'',i10,'' is flat.'')' c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,90002) 'ulbila', ulbila @@ -929,7 +929,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utb05c.F b/src/tool/Utilitaire/utb05c.F index 3fc07f36..14cb72e6 100644 --- a/src/tool/Utilitaire/utb05c.F +++ b/src/tool/Utilitaire/utb05c.F @@ -85,22 +85,22 @@ c character*6 nompro parameter ( nompro = 'UTB05C' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombhe.h" -#include "nombpe.h" -#include "nombpy.h" -#include "envca1.h" -#include "impr02.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombhe.h" + include "nombpe.h" + include "nombpy.h" + include "envca1.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -139,7 +139,7 @@ c==== c 1. titre c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -158,7 +158,7 @@ c texte(2,7) = '(''Number of examined entities :'',i10)' texte(2,8) = '(''Nombre de '',a,'' de qualite infinie'',i10)' c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,4)) nbento, mess14(langue,3,typenh) @@ -330,7 +330,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utb07a.F b/src/tool/Utilitaire/utb07a.F index 8835c115..6b1d42aa 100644 --- a/src/tool/Utilitaire/utb07a.F +++ b/src/tool/Utilitaire/utb07a.F @@ -168,28 +168,28 @@ c character*6 nompro parameter ( nompro = 'UTB07A' ) c -#include "nblang.h" -#include "coftex.h" + include "nblang.h" + include "coftex.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nbfami.h" -#include "nombno.h" -#include "nombmp.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombhe.h" -#include "nombpy.h" -#include "nombpe.h" -#include "envada.h" -#include "envca1.h" + include "nbfami.h" + include "nombno.h" + include "nombmp.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombhe.h" + include "nombpy.h" + include "nombpe.h" + include "envada.h" + include "envca1.h" c -#include "dicfen.h" -#include "impr02.h" + include "dicfen.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -254,7 +254,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -330,7 +330,7 @@ c c 12200 format( 5x,'* ',a43,' * ', i10,' *') c -#include "impr03.h" + include "impr03.h" c codret = 0 c @@ -1057,7 +1057,7 @@ c c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utb07b.F b/src/tool/Utilitaire/utb07b.F index 4e573ec8..10385f59 100644 --- a/src/tool/Utilitaire/utb07b.F +++ b/src/tool/Utilitaire/utb07b.F @@ -52,14 +52,14 @@ c character*6 nompro parameter ( nompro = 'UTB07B' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envada.h" -#include "envca1.h" + include "envada.h" + include "envca1.h" c c 0.3. ==> arguments c @@ -83,7 +83,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -103,7 +103,7 @@ cgn ulbila = ulsort c 10200 format( 5x,60('*')) c -#include "impr03.h" + include "impr03.h" c codret = 0 c @@ -172,7 +172,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utb11a.F b/src/tool/Utilitaire/utb11a.F index 50da5a1a..4128830a 100644 --- a/src/tool/Utilitaire/utb11a.F +++ b/src/tool/Utilitaire/utb11a.F @@ -170,24 +170,24 @@ c character*6 nompro parameter ( nompro = 'UTB11A' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nbfami.h" -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombhe.h" -#include "nombpy.h" -#include "nombpe.h" + include "nbfami.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombhe.h" + include "nombpy.h" + include "nombpe.h" c -#include "dicfen.h" -#include "impr02.h" + include "dicfen.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -242,7 +242,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -265,7 +265,7 @@ c 10001 format(4x,60('-')) #endif c -#include "impr03.h" + include "impr03.h" c codret = 0 c @@ -432,7 +432,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utb11b.F b/src/tool/Utilitaire/utb11b.F index 4f385550..07f15370 100644 --- a/src/tool/Utilitaire/utb11b.F +++ b/src/tool/Utilitaire/utb11b.F @@ -175,24 +175,24 @@ c character*6 nompro parameter ( nompro = 'UTB11B' ) c -#include "nblang.h" -#include "coftex.h" + include "nblang.h" + include "coftex.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "nbfami.h" -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombpy.h" -#include "nombhe.h" -#include "nombpe.h" + include "envex1.h" + include "nbfami.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombpy.h" + include "nombhe.h" + include "nombpe.h" c -#include "dicfen.h" -#include "impr02.h" + include "dicfen.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -256,7 +256,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -289,7 +289,7 @@ c texte(2,9) = '(''.. Number of blocks of '',a,'':'',i5)' texte(2,10) = '(''.. Printing of block #'',i8)' c -#include "impr03.h" + include "impr03.h" cgn print 91020,(voltri(1,iaux),iaux=1,nbtrto) cgn print 91020,(voltri(2,iaux),iaux=1,nbtrto) cgn print 91020,(pypetr(1,iaux),iaux=1,16) @@ -1340,7 +1340,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utb11c.F b/src/tool/Utilitaire/utb11c.F index c660d18d..9b05c8a5 100644 --- a/src/tool/Utilitaire/utb11c.F +++ b/src/tool/Utilitaire/utb11c.F @@ -115,20 +115,20 @@ c character*6 nompro parameter ( nompro = 'UTB11C' ) c -#include "nblang.h" -#include "coftex.h" + include "nblang.h" + include "coftex.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "nbfami.h" -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" + include "envex1.h" + include "nbfami.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" c -#include "dicfen.h" -#include "impr02.h" + include "dicfen.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -174,7 +174,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -187,7 +187,7 @@ c texte(2,4) = '(/,3x,''. Connexity of '',a)' texte(2,5) = '(''.. Printing of block #'',i8)' c -#include "impr03.h" + include "impr03.h" c if ( nbtrac.eq.0 ) then typfa0 = 4 @@ -585,7 +585,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utb11d.F b/src/tool/Utilitaire/utb11d.F index 08401604..82e3504b 100644 --- a/src/tool/Utilitaire/utb11d.F +++ b/src/tool/Utilitaire/utb11d.F @@ -83,18 +83,18 @@ c character*6 nompro parameter ( nompro = 'UTB11D' ) c -#include "nblang.h" -#include "coftex.h" + include "nblang.h" + include "coftex.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "nbfami.h" -#include "nombno.h" -#include "nombar.h" + include "envex1.h" + include "nbfami.h" + include "nombno.h" + include "nombar.h" c -#include "dicfen.h" -#include "impr02.h" + include "dicfen.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -131,7 +131,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -415,7 +415,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utb11e.F b/src/tool/Utilitaire/utb11e.F index b44fb565..65f6eda5 100644 --- a/src/tool/Utilitaire/utb11e.F +++ b/src/tool/Utilitaire/utb11e.F @@ -77,21 +77,21 @@ c character*6 nompro parameter ( nompro = 'UTB11E' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombpy.h" -#include "nombhe.h" -#include "nombpe.h" + include "envex1.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombpy.h" + include "nombhe.h" + include "nombpe.h" c -#include "impr02.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -119,7 +119,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -357,7 +357,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utb11f.F b/src/tool/Utilitaire/utb11f.F index 08b1bf08..e2177c7a 100644 --- a/src/tool/Utilitaire/utb11f.F +++ b/src/tool/Utilitaire/utb11f.F @@ -77,21 +77,21 @@ c character*6 nompro parameter ( nompro = 'UTB11F' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envca1.h" -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombpy.h" -#include "nombhe.h" -#include "nombpe.h" + include "envca1.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombpy.h" + include "nombhe.h" + include "nombpe.h" c -#include "impr02.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -124,7 +124,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -193,7 +193,7 @@ c write (ulsort,texte(langue,4)) mess14(langue,4,typent),abs(nubloc) #endif c -#include "impr03.h" + include "impr03.h" c 10100 format(/,5x,58('*')) 10200 format( 5x,58('*')) diff --git a/src/tool/Utilitaire/utb13a.F b/src/tool/Utilitaire/utb13a.F index 12b4b59a..7c67af1d 100644 --- a/src/tool/Utilitaire/utb13a.F +++ b/src/tool/Utilitaire/utb13a.F @@ -155,22 +155,22 @@ c character*6 nompro parameter ( nompro = 'UTB13A' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "nbfami.h" -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombhe.h" -#include "nombpy.h" -#include "nombpe.h" -#include "envca1.h" + include "nbfami.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombhe.h" + include "nombpy.h" + include "nombpe.h" + include "envca1.h" c -#include "dicfen.h" + include "dicfen.h" c c 0.3. ==> arguments c @@ -228,7 +228,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -247,7 +247,7 @@ c < '(/,10x,''Direction | Unit'',/,5x,41(''-''))' texte(2,6) = '(8x,a16,'' | '',a16)' c -#include "impr03.h" + include "impr03.h" c codret = 0 c diff --git a/src/tool/Utilitaire/utb13b.F b/src/tool/Utilitaire/utb13b.F index 5b3e39ef..467c7e30 100644 --- a/src/tool/Utilitaire/utb13b.F +++ b/src/tool/Utilitaire/utb13b.F @@ -119,24 +119,24 @@ c character*6 nompro parameter ( nompro = 'UTB13B' ) c -#include "nblang.h" -#include "coftex.h" + include "nblang.h" + include "coftex.h" c c 0.2. ==> communs c -#include "nbfami.h" -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombhe.h" -#include "nombpy.h" -#include "nombpe.h" -#include "envca1.h" + include "nbfami.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombhe.h" + include "nombpy.h" + include "nombpe.h" + include "envca1.h" c -#include "dicfen.h" -#include "impr02.h" + include "dicfen.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -196,7 +196,7 @@ c 1. initialisation c==== c 1.1. messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -213,7 +213,7 @@ c texte(2,6) = '(''... Volume of '',a,''#'',i8,'':'',g16.8)' texte(2,7) = '(''..... Save'',i8,'' for familiy #'',i8)' c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,4)) mess14(langue,3,3), nbteac diff --git a/src/tool/Utilitaire/utb13c.F b/src/tool/Utilitaire/utb13c.F index d80bb613..e8e55702 100644 --- a/src/tool/Utilitaire/utb13c.F +++ b/src/tool/Utilitaire/utb13c.F @@ -95,21 +95,21 @@ c character*6 nompro parameter ( nompro = 'UTB13C' ) c -#include "nblang.h" -#include "fracta.h" -#include "coftex.h" + include "nblang.h" + include "fracta.h" + include "coftex.h" c c 0.2. ==> communs c -#include "nbfami.h" -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "envca1.h" + include "nbfami.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "envca1.h" c -#include "dicfen.h" -#include "impr02.h" + include "dicfen.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -161,7 +161,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -178,7 +178,7 @@ c texte(2,6) = '(''... Surface of '',a,''#'',i8,'' :'',g14.6)' texte(2,7) = '(''..... Save'',i8,'' for familiy # '',i8)' c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,4)) mess14(langue,3,2), nbtrac diff --git a/src/tool/Utilitaire/utb13d.F b/src/tool/Utilitaire/utb13d.F index b7552ec5..d418a777 100644 --- a/src/tool/Utilitaire/utb13d.F +++ b/src/tool/Utilitaire/utb13d.F @@ -86,18 +86,18 @@ c character*6 nompro parameter ( nompro = 'UTB13D' ) c -#include "nblang.h" -#include "coftex.h" + include "nblang.h" + include "coftex.h" c c 0.2. ==> communs c -#include "nbfami.h" -#include "nombno.h" -#include "nombar.h" -#include "envca1.h" + include "nbfami.h" + include "nombno.h" + include "nombar.h" + include "envca1.h" c -#include "dicfen.h" -#include "impr02.h" + include "dicfen.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -143,7 +143,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -160,7 +160,7 @@ c texte(2,6) = '(''... Length of '',a,''#'',i8,'' :'',g14.6)' texte(2,7) = '(''..... Save'',i8,'' for familiy # '',i8)' c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,4)) mess14(langue,3,1), nbarac diff --git a/src/tool/Utilitaire/utb13e.F b/src/tool/Utilitaire/utb13e.F index 2db9f936..fe1f967d 100644 --- a/src/tool/Utilitaire/utb13e.F +++ b/src/tool/Utilitaire/utb13e.F @@ -73,8 +73,8 @@ c character*6 nompro parameter ( nompro = 'UTB13E' ) c -#include "nblang.h" -#include "consts.h" + include "nblang.h" + include "consts.h" c c 0.2. ==> communs c @@ -124,7 +124,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -145,7 +145,7 @@ c texte(2,12) ='(5x,''*'',20x,''Triple junctions'',21x,''*'')' texte(2,13) ='(5x,''*'',19x,''Quadruple junctions'',19x,''*'')' c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,90002) 'option', option diff --git a/src/tool/Utilitaire/utb17a.F b/src/tool/Utilitaire/utb17a.F index a846541d..ff06905f 100644 --- a/src/tool/Utilitaire/utb17a.F +++ b/src/tool/Utilitaire/utb17a.F @@ -124,21 +124,21 @@ c character*6 nompro parameter ( nompro = 'UTB17A' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "nbfami.h" -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombhe.h" -#include "nombpy.h" -#include "nombpe.h" + include "nbfami.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombhe.h" + include "nombpy.h" + include "nombpe.h" c -#include "dicfen.h" + include "dicfen.h" c c 0.3. ==> arguments c @@ -183,7 +183,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro diff --git a/src/tool/Utilitaire/utb17b.F b/src/tool/Utilitaire/utb17b.F index ba5e497c..d5311bc4 100644 --- a/src/tool/Utilitaire/utb17b.F +++ b/src/tool/Utilitaire/utb17b.F @@ -109,24 +109,24 @@ c character*6 nompro parameter ( nompro = 'UTB17B' ) c -#include "nblang.h" -#include "coftex.h" + include "nblang.h" + include "coftex.h" c c 0.2. ==> communs c -#include "envca1.h" -#include "nbfami.h" -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombhe.h" -#include "nombpy.h" -#include "nombpe.h" + include "envca1.h" + include "nbfami.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombhe.h" + include "nombpy.h" + include "nombpe.h" c -#include "dicfen.h" -#include "impr02.h" + include "dicfen.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -176,7 +176,7 @@ c==== c 1. initialisation c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -199,7 +199,7 @@ c >)' texte(2,8) = '(''. The '',a,''#'',i8,'' is overstressed.'')' c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,4)) mess14(langue,3,3), nbteac diff --git a/src/tool/Utilitaire/utb17c.F b/src/tool/Utilitaire/utb17c.F index ba2e178a..accb7880 100644 --- a/src/tool/Utilitaire/utb17c.F +++ b/src/tool/Utilitaire/utb17c.F @@ -108,24 +108,24 @@ c character*6 nompro parameter ( nompro = 'UTB17C' ) c -#include "nblang.h" -#include "coftex.h" + include "nblang.h" + include "coftex.h" c c 0.2. ==> communs c -#include "envca1.h" -#include "nbfami.h" -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombhe.h" -#include "nombpy.h" -#include "nombpe.h" + include "envca1.h" + include "nbfami.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombhe.h" + include "nombpy.h" + include "nombpe.h" c -#include "dicfen.h" -#include "impr02.h" + include "dicfen.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -173,7 +173,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro diff --git a/src/tool/Utilitaire/utb17d.F b/src/tool/Utilitaire/utb17d.F index 1d54e7fc..57ec4706 100644 --- a/src/tool/Utilitaire/utb17d.F +++ b/src/tool/Utilitaire/utb17d.F @@ -77,17 +77,17 @@ c character*6 nompro parameter ( nompro = 'UTB17D' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envca1.h" -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" + include "envca1.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" c -#include "impr02.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -129,7 +129,7 @@ c 1. initialisation c==== c 1.1. messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro diff --git a/src/tool/Utilitaire/utb17e.F b/src/tool/Utilitaire/utb17e.F index eee324d1..72425e5c 100644 --- a/src/tool/Utilitaire/utb17e.F +++ b/src/tool/Utilitaire/utb17e.F @@ -64,11 +64,11 @@ c character*6 nompro parameter ( nompro = 'UTB17E' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "impr02.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -99,7 +99,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro diff --git a/src/tool/Utilitaire/utb19a.F b/src/tool/Utilitaire/utb19a.F index ffd37189..661746d1 100644 --- a/src/tool/Utilitaire/utb19a.F +++ b/src/tool/Utilitaire/utb19a.F @@ -113,25 +113,25 @@ c character*6 nompro parameter ( nompro = 'UTB19A' ) c -#include "nblang.h" -#include "coftex.h" + include "nblang.h" + include "coftex.h" c c 0.2. ==> communs c -#include "envex1.h" -c -#include "dicfen.h" -#include "nbfami.h" -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombhe.h" -#include "nombpy.h" -#include "nombpe.h" -#include "envca1.h" -#include "impr02.h" + include "envex1.h" +c + include "dicfen.h" + include "nbfami.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombhe.h" + include "nombpy.h" + include "nombpe.h" + include "envca1.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -182,7 +182,7 @@ c==== c 1. titre c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -525,7 +525,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utb19c.F b/src/tool/Utilitaire/utb19c.F index 08e33b7f..9be35069 100644 --- a/src/tool/Utilitaire/utb19c.F +++ b/src/tool/Utilitaire/utb19c.F @@ -79,23 +79,23 @@ c character*6 nompro parameter ( nompro = 'UTB19C' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombhe.h" -#include "nombpe.h" -#include "nombpy.h" -#include "envca1.h" -#include "infini.h" -#include "impr02.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombhe.h" + include "nombpe.h" + include "nombpy.h" + include "envca1.h" + include "infini.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -136,7 +136,7 @@ c==== c 1. titre c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -338,7 +338,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utb3a0.F b/src/tool/Utilitaire/utb3a0.F index fdd32b08..105b6615 100644 --- a/src/tool/Utilitaire/utb3a0.F +++ b/src/tool/Utilitaire/utb3a0.F @@ -69,17 +69,17 @@ c integer typenh parameter ( typenh = 1 ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "envca1.h" -#include "precis.h" -#include "impr02.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "envca1.h" + include "precis.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -127,16 +127,16 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "utb300.h" + include "utb300.h" c -#include "utb301.h" + include "utb301.h" c c 1.2. ==> constantes c @@ -394,7 +394,7 @@ c ... malaise ... c iaux = larete c -#include "utb302.h" + include "utb302.h" c if ( sdim.eq.1 ) then write (ulbila,14201) sommet(1), v1(1) diff --git a/src/tool/Utilitaire/utb3b0.F b/src/tool/Utilitaire/utb3b0.F index d740edc8..2c09a427 100644 --- a/src/tool/Utilitaire/utb3b0.F +++ b/src/tool/Utilitaire/utb3b0.F @@ -75,19 +75,19 @@ c integer typenh parameter ( typenh = 2 ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombte.h" -#include "nombpy.h" -#include "nombpe.h" -#include "envca1.h" -#include "precis.h" -#include "impr02.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombte.h" + include "nombpy.h" + include "nombpe.h" + include "envca1.h" + include "precis.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -138,16 +138,16 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "utb300.h" + include "utb300.h" c -#include "utb301.h" + include "utb301.h" c c 1.2. ==> constantes c @@ -466,7 +466,7 @@ c a l'interieur du triangle ... malaise ... c iaux = letria c -#include "utb302.h" + include "utb302.h" c if ( sdim.eq.2 ) then write (ulbila,14202) sommet(1), v1(1), v1(2) diff --git a/src/tool/Utilitaire/utb3c0.F b/src/tool/Utilitaire/utb3c0.F index f249c3fc..db8c6132 100644 --- a/src/tool/Utilitaire/utb3c0.F +++ b/src/tool/Utilitaire/utb3c0.F @@ -76,19 +76,19 @@ c integer typenh parameter ( typenh = 4 ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "nombno.h" -#include "nombar.h" -#include "nombqu.h" -#include "nombhe.h" -#include "nombpy.h" -#include "nombpe.h" -#include "precis.h" -#include "envca1.h" -#include "impr02.h" + include "nombno.h" + include "nombar.h" + include "nombqu.h" + include "nombhe.h" + include "nombpy.h" + include "nombpe.h" + include "precis.h" + include "envca1.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -141,16 +141,16 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "utb300.h" + include "utb300.h" c -#include "utb301.h" + include "utb301.h" c c 1.2. ==> constantes c @@ -581,7 +581,7 @@ c a l'interieur du quadrangle ... malaise ... c iaux = lequad c -#include "utb302.h" + include "utb302.h" c if ( sdim.eq.2 ) then write (ulbila,14202) sommet(1), v1(1), v1(2) diff --git a/src/tool/Utilitaire/utb3d0.F b/src/tool/Utilitaire/utb3d0.F index a90157d8..e1e166ef 100644 --- a/src/tool/Utilitaire/utb3d0.F +++ b/src/tool/Utilitaire/utb3d0.F @@ -73,16 +73,16 @@ c integer typenh parameter ( typenh = 3 ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombte.h" -#include "envca1.h" -#include "impr02.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombte.h" + include "envca1.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -137,16 +137,16 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "utb300.h" + include "utb300.h" c -#include "utb301.h" + include "utb301.h" c c 1.2. ==> constantes c @@ -185,7 +185,7 @@ c nbpbco(typenh) = 0 endif c -#include "utb3d1.h" + include "utb3d1.h" c #ifdef _DEBUG_HOMARD_ if ( glop.ne.0 ) then @@ -198,13 +198,13 @@ c c do 23 , lenoeu = numip1, numap1 c -#include "utb304.h" + include "utb304.h" c -#include "utb305.h" + include "utb305.h" c -#include "utb306.h" + include "utb306.h" c -#include "utb3d2.h" + include "utb3d2.h" c c 2.3.7. ==> si logaux(7) est encore vrai, c'est que le noeud est c a l'interieur du tetraedre ... malaise ... @@ -213,7 +213,7 @@ c c iaux = letetr c -#include "utb302.h" + include "utb302.h" c write (ulbila,14203) sommet(1), v1(1), v1(2), v1(3) write (ulbila,14203) sommet(2), v2(1), v2(2), v2(3) diff --git a/src/tool/Utilitaire/utb3d1.F b/src/tool/Utilitaire/utb3d1.F index acf66e28..a9981498 100644 --- a/src/tool/Utilitaire/utb3d1.F +++ b/src/tool/Utilitaire/utb3d1.F @@ -87,20 +87,20 @@ c integer typenh parameter ( typenh = 3 ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "dicfen.h" -#include "nbfami.h" -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombte.h" -#include "envca1.h" -#include "impr02.h" + include "dicfen.h" + include "nbfami.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombte.h" + include "envca1.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -154,14 +154,14 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "utb303.h" + include "utb303.h" c c 1.2. ==> constantes c @@ -197,13 +197,13 @@ c cgn call gtdems (93) cgn write (ulsort,*) '.. ', mess14(langue,2,3), letetr c -#include "utb3d1.h" + include "utb3d1.h" c c 2.2. ==> Les aretes c do 22 , nuarfr = 1 , nbarfr c -#include "utb308.h" + include "utb308.h" c c 2.2.3. ==> Examen c @@ -217,9 +217,9 @@ c c lenoeu = examno(jaux) c -#include "utb304.h" + include "utb304.h" c -#include "utb3d2.h" + include "utb3d2.h" c c 2.2.8. ==> si logaux(7) est encore vrai, c'est que le noeud est c a l'interieur du tetraedre ... correction @@ -265,11 +265,11 @@ c==== c 3. La fin c==== c -#include "utb307.h" + include "utb307.h" c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utb3e0.F b/src/tool/Utilitaire/utb3e0.F index b16b3c87..783ff370 100644 --- a/src/tool/Utilitaire/utb3e0.F +++ b/src/tool/Utilitaire/utb3e0.F @@ -73,16 +73,16 @@ c integer typenh parameter ( typenh = 6 ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "nombno.h" -#include "nombar.h" -#include "nombqu.h" -#include "nombhe.h" -#include "envca1.h" -#include "impr02.h" + include "nombno.h" + include "nombar.h" + include "nombqu.h" + include "nombhe.h" + include "envca1.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -141,18 +141,18 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" + include "impr03.h" c -#include "utb300.h" + include "utb300.h" c -#include "utb301.h" + include "utb301.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,90002) 'nbpbco', nbpbco @@ -212,7 +212,7 @@ c nbpbco(typenh) = 0 endif c -#include "utb3e1.h" + include "utb3e1.h" c #ifdef _DEBUG_HOMARD_ if ( glop.ne.0 ) then @@ -233,7 +233,7 @@ c c do 23 , lenoeu = numip1, numap1 c -#include "utb304.h" + include "utb304.h" #ifdef _DEBUG_HOMARD_ if ( glop.ne.0 .and. lenoeu.lt.0 ) then write (ulsort,*) 'apres utb304', logaux(7) @@ -241,21 +241,21 @@ c endif #endif c -#include "utb305.h" + include "utb305.h" #ifdef _DEBUG_HOMARD_ if ( glop.ne.0 .and. lenoeu.lt.0 ) then write (ulsort,*) 'apres utb305', logaux(7) endif #endif c -#include "utb306.h" + include "utb306.h" #ifdef _DEBUG_HOMARD_ if ( glop.ne.0 .and. lenoeu.lt.0 ) then write (ulsort,*) 'apres utb306', logaux(7) endif #endif c -#include "utb3e2.h" + include "utb3e2.h" #ifdef _DEBUG_HOMARD_ if ( glop.ne.0 .and. lenoeu.lt.0 ) then write (ulsort,*) 'apres utb3e2', logaux(7) @@ -269,7 +269,7 @@ c c iaux = lehexa c -#include "utb302.h" + include "utb302.h" c write (ulbila,14203) sommet(1), v1(1), v1(2), v1(3) write (ulbila,14203) sommet(2), v2(1), v2(2), v2(3) diff --git a/src/tool/Utilitaire/utb3e1.F b/src/tool/Utilitaire/utb3e1.F index aea177a6..eb40ed59 100644 --- a/src/tool/Utilitaire/utb3e1.F +++ b/src/tool/Utilitaire/utb3e1.F @@ -98,20 +98,20 @@ c integer typenh parameter ( typenh = 6 ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "dicfen.h" -#include "nbfami.h" -#include "nombno.h" -#include "nombar.h" -#include "nombqu.h" -#include "nombhe.h" -#include "envca1.h" -#include "impr02.h" + include "dicfen.h" + include "nbfami.h" + include "nombno.h" + include "nombar.h" + include "nombqu.h" + include "nombhe.h" + include "envca1.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -169,16 +169,16 @@ c c 1.1. ==> messages c c ulsort=6 -#include "impr01.h" + include "impr01.h" c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "utb303.h" + include "utb303.h" c c 1.2. ==> constantes c @@ -216,7 +216,7 @@ c if ( mod(hethex(lehexa),1000).eq.0 ) then cgn call gtdems (93) c -#include "utb3e1.h" + include "utb3e1.h" c c 2.1. ==> Les quadrangles c @@ -266,7 +266,7 @@ c c lenoeu = examno(jaux) c -#include "utb304.h" + include "utb304.h" c cgn write(ulsort,1789) vn cgn write(ulsort,1789) xmin,xmax @@ -275,7 +275,7 @@ cgn write(ulsort,1789) zmin,zmax cgn write(ulsort,*) logaux(7) cgn 1789 format(3g12.5) c -#include "utb3e2.h" + include "utb3e2.h" c c 2.1.8. ==> si logaux(7) est encore vrai, c'est que le noeud est c a l'interieur de l'hexaedre ... correction @@ -315,7 +315,7 @@ c 2.2. ==> Les aretes c do 22 , nuarfr = 1 , nbarfr c -#include "utb308.h" + include "utb308.h" c c 2.2.3. ==> Examen c @@ -329,7 +329,7 @@ c c lenoeu = examno(jaux) c -#include "utb314.h" + include "utb314.h" #ifdef _DEBUG_HOMARD_ if ( lenoeu.eq.-13186 .and. logaux(7)) then glop=1 @@ -338,7 +338,7 @@ c endif #endif c -#include "utb3e2.h" + include "utb3e2.h" c c 2.2.8. ==> si logaux(7) est encore vrai, c'est que le noeud est c a l'interieur de l'hexaaedre ... correction @@ -396,11 +396,11 @@ c==== c 3. La fin c==== c -#include "utb307.h" + include "utb307.h" c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utb3f0.F b/src/tool/Utilitaire/utb3f0.F index c2a8caad..288b5656 100644 --- a/src/tool/Utilitaire/utb3f0.F +++ b/src/tool/Utilitaire/utb3f0.F @@ -73,18 +73,18 @@ c integer typenh parameter ( typenh = 5 ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombpy.h" -#include "envca1.h" -#include "impr02.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombpy.h" + include "envca1.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -143,18 +143,18 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" + include "impr03.h" c -#include "utb300.h" + include "utb300.h" c -#include "utb301.h" + include "utb301.h" c c 1.2. ==> constantes c @@ -199,7 +199,7 @@ c nbpbco(typenh) = 0 endif c -#include "utb3f1.h" + include "utb3f1.h" c #ifdef _DEBUG_HOMARD_ if ( glop.ne.0 ) then @@ -213,13 +213,13 @@ c c do 23 , lenoeu = numip1, numap1 c -#include "utb304.h" + include "utb304.h" c -#include "utb305.h" + include "utb305.h" c -#include "utb306.h" + include "utb306.h" c -#include "utb3f2.h" + include "utb3f2.h" c c 2.3.8. ==> si logaux(7) est encore vrai, c'est que le noeud est c a l'interieur de la pyramide ... malaise ... @@ -228,7 +228,7 @@ c c iaux = lapyra c -#include "utb302.h" + include "utb302.h" c write (ulbila,14203) sommet(1), v1(1), v1(2), v1(3) write (ulbila,14203) sommet(2), v2(1), v2(2), v2(3) @@ -253,7 +253,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utb3f1.F b/src/tool/Utilitaire/utb3f1.F index 251210c1..ac375186 100644 --- a/src/tool/Utilitaire/utb3f1.F +++ b/src/tool/Utilitaire/utb3f1.F @@ -100,21 +100,21 @@ c integer typenh parameter ( typenh = 5 ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "dicfen.h" -#include "nbfami.h" -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombpy.h" -#include "envca1.h" -#include "impr02.h" + include "dicfen.h" + include "nbfami.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombpy.h" + include "envca1.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -172,16 +172,16 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" + include "impr03.h" c -#include "utb303.h" + include "utb303.h" c c 1.2. ==> constantes c @@ -222,7 +222,7 @@ c if ( mod(hetpyr(lapyra),100).eq.0 ) then cgn call gtdems (93) c -#include "utb3f1.h" + include "utb3f1.h" c c 2.1. ==> Les quadrangles c @@ -267,7 +267,7 @@ c c lenoeu = examno(jaux) c -#include "utb304.h" + include "utb304.h" c cgn write(ulsort,1789) vn cgn write(ulsort,1789) xmin,xmax @@ -276,7 +276,7 @@ cgn write(ulsort,1789) zmin,zmax cgn write(ulsort,*) logaux(7) cgn 1789 format(3g12.5) c -#include "utb3f2.h" + include "utb3f2.h" c c 2.1.8. ==> si logaux(7) est encore vrai, c'est que le noeud est c a l'interieur de la pyramide ... correction @@ -316,7 +316,7 @@ c 2.2. ==> Les aretes c do 22 , nuarfr = 1 , nbarfr c -#include "utb308.h" + include "utb308.h" c c 2.2.3. ==> Examen c @@ -330,7 +330,7 @@ c c lenoeu = examno(jaux) c -#include "utb314.h" + include "utb314.h" c cgn write(ulsort,1789) vn cgn write(ulsort,1789) xmin,xmax @@ -339,7 +339,7 @@ cgn write(ulsort,1789) zmin,zmax cgn write(ulsort,*) logaux(7) cgn 1789 format(3g12.5) c -#include "utb3f2.h" + include "utb3f2.h" c c 2.2.8. ==> si logaux(7) est encore vrai, c'est que le noeud est c a l'interieur de la pyramide ... correction @@ -384,11 +384,11 @@ c==== c 3. La fin c==== c -#include "utb307.h" + include "utb307.h" c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utb3g0.F b/src/tool/Utilitaire/utb3g0.F index b737daee..b3489857 100644 --- a/src/tool/Utilitaire/utb3g0.F +++ b/src/tool/Utilitaire/utb3g0.F @@ -73,16 +73,16 @@ c integer typenh parameter ( typenh = 7 ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "nombno.h" -#include "nombar.h" -#include "nombqu.h" -#include "nombpe.h" -#include "envca1.h" -#include "impr02.h" + include "nombno.h" + include "nombar.h" + include "nombqu.h" + include "nombpe.h" + include "envca1.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -138,16 +138,16 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "utb300.h" + include "utb300.h" c -#include "utb301.h" + include "utb301.h" c c 1.2. ==> constantes c @@ -186,7 +186,7 @@ c nbpbco(typenh) = 0 endif c -#include "utb3g1.h" + include "utb3g1.h" c #ifdef _DEBUG_HOMARD_ if ( glop.ne.0 ) then @@ -204,13 +204,13 @@ c c do 23 , lenoeu = numip1, numap1 c -#include "utb304.h" + include "utb304.h" c -#include "utb305.h" + include "utb305.h" c -#include "utb306.h" + include "utb306.h" c -#include "utb3g2.h" + include "utb3g2.h" c c 2.3.9. ==> si logaux(7) est encore vrai, c'est que le noeud est c a l'interieur du pentaedre ... malaise ... @@ -219,7 +219,7 @@ c c iaux = lepent c -#include "utb302.h" + include "utb302.h" c write (ulbila,14203) sommet(1), v1(1), v1(2), v1(3) write (ulbila,14203) sommet(2), v2(1), v2(2), v2(3) diff --git a/src/tool/Utilitaire/utb3g1.F b/src/tool/Utilitaire/utb3g1.F index dd009e3e..2ee54204 100644 --- a/src/tool/Utilitaire/utb3g1.F +++ b/src/tool/Utilitaire/utb3g1.F @@ -98,20 +98,20 @@ c integer typenh parameter ( typenh = 7 ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "dicfen.h" -#include "nbfami.h" -#include "nombno.h" -#include "nombar.h" -#include "nombqu.h" -#include "nombpe.h" -#include "envca1.h" -#include "impr02.h" + include "dicfen.h" + include "nbfami.h" + include "nombno.h" + include "nombar.h" + include "nombqu.h" + include "nombpe.h" + include "envca1.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -165,14 +165,14 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "utb303.h" + include "utb303.h" c c 1.2. ==> constantes c @@ -207,7 +207,7 @@ c if ( mod(hetpen(lepent),100).eq.0 ) then cgn call gtdems (93) c -#include "utb3g1.h" + include "utb3g1.h" c c 2.1. ==> Les quadrangles c @@ -252,7 +252,7 @@ c c lenoeu = examno(jaux) c -#include "utb304.h" + include "utb304.h" c cgn write(ulsort,1789) vn cgn write(ulsort,1789) xmin,xmax @@ -261,7 +261,7 @@ cgn write(ulsort,1789) zmin,zmax cgn write(ulsort,*) logaux(7) cgn 1789 format(3g12.5) c -#include "utb3g2.h" + include "utb3g2.h" c c 2.1.8. ==> si logaux(7) est encore vrai, c'est que le noeud est c a l'interieur du pentaedre ... correction @@ -301,7 +301,7 @@ c 2.2. ==> Les aretes c do 22 , nuarfr = 1 , nbarfr c -#include "utb308.h" + include "utb308.h" c c 2.2.3. ==> Examen c @@ -315,7 +315,7 @@ c c lenoeu = examno(jaux) c -#include "utb314.h" + include "utb314.h" c cgn write(ulsort,1789) vn cgn write(ulsort,1789) xmin,xmax @@ -324,7 +324,7 @@ cgn write(ulsort,1789) zmin,zmax cgn write(ulsort,*) logaux(7) cgn 1789 format(3g12.5) c -#include "utb3g2.h" + include "utb3g2.h" c c 2.2.8. ==> si logaux(7) est encore vrai, c'est que le noeud est c a l'interieur du pentaedre ... correction @@ -369,11 +369,11 @@ c==== c 3. La fin c==== c -#include "utb307.h" + include "utb307.h" c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utb3n0.F b/src/tool/Utilitaire/utb3n0.F index 67e1f52b..0e680006 100644 --- a/src/tool/Utilitaire/utb3n0.F +++ b/src/tool/Utilitaire/utb3n0.F @@ -67,13 +67,13 @@ c integer typenh parameter ( typenh = -1 ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "nombno.h" -#include "envca1.h" -#include "precis.h" + include "nombno.h" + include "envca1.h" + include "precis.h" c c 0.3. ==> arguments c @@ -109,7 +109,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -128,7 +128,7 @@ c texte(2,6) = > '(5x,''absolute coordinate difference is lower than '',g9.2)' c -#include "utb301.h" + include "utb301.h" c c 1.2. ==> constantes c diff --git a/src/tool/Utilitaire/utb3n1.F b/src/tool/Utilitaire/utb3n1.F index 612bca9f..6ae156c6 100644 --- a/src/tool/Utilitaire/utb3n1.F +++ b/src/tool/Utilitaire/utb3n1.F @@ -68,15 +68,15 @@ c character*6 nompro parameter ( nompro = 'UTB3N1' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nombno.h" -#include "envca1.h" -#include "infini.h" + include "nombno.h" + include "envca1.h" + include "infini.h" c c 0.3. ==> arguments c @@ -119,7 +119,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -146,7 +146,7 @@ c texte(2,10) = '(''Total number of boxes : '',i10)' texte(2,10) = '(''Length of box lists : '',i10)' c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,4)) nbnoto @@ -370,7 +370,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Sortie', nompro diff --git a/src/tool/Utilitaire/utb3n2.F b/src/tool/Utilitaire/utb3n2.F index 64ca91a0..000b0a03 100644 --- a/src/tool/Utilitaire/utb3n2.F +++ b/src/tool/Utilitaire/utb3n2.F @@ -62,14 +62,14 @@ c character*6 nompro parameter ( nompro = 'UTB3N2' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nombno.h" -#include "envca1.h" + include "nombno.h" + include "envca1.h" c c 0.3. ==> arguments c @@ -105,7 +105,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -247,7 +247,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Sortie', nompro diff --git a/src/tool/Utilitaire/utb3n3.F b/src/tool/Utilitaire/utb3n3.F index f07cb2f6..7f37ea18 100644 --- a/src/tool/Utilitaire/utb3n3.F +++ b/src/tool/Utilitaire/utb3n3.F @@ -62,7 +62,7 @@ c integer sdim parameter ( sdim = 3 ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c @@ -90,14 +90,14 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" + include "impr03.h" c c==== c 2. Pour une dimension iaux donnee, on passe en revue tous les diff --git a/src/tool/Utilitaire/utb3n4.F b/src/tool/Utilitaire/utb3n4.F index 3806f21b..20146ed0 100644 --- a/src/tool/Utilitaire/utb3n4.F +++ b/src/tool/Utilitaire/utb3n4.F @@ -62,7 +62,7 @@ c integer sdim parameter ( sdim = 2 ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c @@ -92,7 +92,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro diff --git a/src/tool/Utilitaire/utb3n5.F b/src/tool/Utilitaire/utb3n5.F index c227c85b..b92a2e13 100644 --- a/src/tool/Utilitaire/utb3n5.F +++ b/src/tool/Utilitaire/utb3n5.F @@ -62,7 +62,7 @@ c integer sdim parameter ( sdim = 1 ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c @@ -90,7 +90,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro diff --git a/src/tool/Utilitaire/utbica.F b/src/tool/Utilitaire/utbica.F index 3af9e84c..86f99269 100644 --- a/src/tool/Utilitaire/utbica.F +++ b/src/tool/Utilitaire/utbica.F @@ -47,12 +47,12 @@ c character*6 nompro parameter ( nompro = 'UTBICA' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "nbutil.h" -#include "impr02.h" + include "nbutil.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -76,7 +76,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro diff --git a/src/tool/Utilitaire/utbil1.F b/src/tool/Utilitaire/utbil1.F index f59a49be..99eaf552 100644 --- a/src/tool/Utilitaire/utbil1.F +++ b/src/tool/Utilitaire/utbil1.F @@ -63,28 +63,28 @@ c character*6 nompro parameter ( nompro = 'UTBIL1' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -c -#include "gmenti.h" -#include "gmreel.h" -#include "gmstri.h" -c -#include "nombno.h" -#include "nombmp.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombhe.h" -#include "nombpy.h" -#include "nombpe.h" -#include "envca2.h" -#include "envada.h" -#include "envca1.h" + include "envex1.h" +c + include "gmenti.h" + include "gmreel.h" + include "gmstri.h" +c + include "nombno.h" + include "nombmp.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombhe.h" + include "nombpy.h" + include "nombpe.h" + include "envca2.h" + include "envada.h" + include "envca1.h" c c 0.3. ==> arguments c @@ -175,7 +175,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -245,7 +245,7 @@ c > '(5x,''The mesh is non-conformal from the beginning.'')' texte(2,30) = '(//,''ANALYSIS OF THE MESH'',/,20(''=''),/)' c -#include "impr03.h" + include "impr03.h" c 10050 format (5x,a50) 10080 format (5x,a80) @@ -1527,7 +1527,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Sortie', nompro diff --git a/src/tool/Utilitaire/utbilm.F b/src/tool/Utilitaire/utbilm.F index 2c6ac5ac..f8224cd5 100644 --- a/src/tool/Utilitaire/utbilm.F +++ b/src/tool/Utilitaire/utbilm.F @@ -61,11 +61,11 @@ c character*6 nompro parameter ( nompro = 'UTBILM' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -106,7 +106,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -134,7 +134,7 @@ c write (ulsort,texte(langue,4)) saux06 write (ulsort,texte(langue,5)) c -#include "impr03.h" + include "impr03.h" c c==== c 2. verifications @@ -213,7 +213,7 @@ c c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Sortie', nompro diff --git a/src/tool/Utilitaire/utboar.F b/src/tool/Utilitaire/utboar.F index 9fa51e20..842392fd 100644 --- a/src/tool/Utilitaire/utboar.F +++ b/src/tool/Utilitaire/utboar.F @@ -85,13 +85,13 @@ c character*6 nompro parameter ( nompro = 'UTBOAR' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "impr02.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -127,7 +127,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -142,7 +142,7 @@ c texte(2,5) = '(''Treatment of '',a)' texte(2,6) = '(a,''.. Examination of '',a,'',# '',i10)' c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,90002) 'choix', choix @@ -350,7 +350,7 @@ c c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utbofa.F b/src/tool/Utilitaire/utbofa.F index 29900cde..00404b4f 100644 --- a/src/tool/Utilitaire/utbofa.F +++ b/src/tool/Utilitaire/utbofa.F @@ -86,12 +86,12 @@ c character*6 nompro parameter ( nompro = 'UTBOFA' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "impr02.h" + include "envex1.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -124,7 +124,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -448,7 +448,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utbono.F b/src/tool/Utilitaire/utbono.F index 0b6c0d86..22597f95 100644 --- a/src/tool/Utilitaire/utbono.F +++ b/src/tool/Utilitaire/utbono.F @@ -80,13 +80,13 @@ c character*6 nompro parameter ( nompro = 'UTBONO' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" + include "gmenti.h" c c 0.3. ==> arguments c @@ -118,7 +118,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -194,7 +194,7 @@ c c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utboqu.F b/src/tool/Utilitaire/utboqu.F index aa4059ca..864dd20b 100644 --- a/src/tool/Utilitaire/utboqu.F +++ b/src/tool/Utilitaire/utboqu.F @@ -73,12 +73,12 @@ c character*6 nompro parameter ( nompro = 'UTBOQU' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "impr02.h" + include "envex1.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -105,7 +105,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -171,7 +171,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utbotr.F b/src/tool/Utilitaire/utbotr.F index f36b4bc3..7ecf3f09 100644 --- a/src/tool/Utilitaire/utbotr.F +++ b/src/tool/Utilitaire/utbotr.F @@ -73,12 +73,12 @@ c character*6 nompro parameter ( nompro = 'UTBOTR' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "impr02.h" + include "envex1.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -105,7 +105,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -171,7 +171,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utcach.F b/src/tool/Utilitaire/utcach.F index 4f9ab258..1601e1e2 100644 --- a/src/tool/Utilitaire/utcach.F +++ b/src/tool/Utilitaire/utcach.F @@ -58,13 +58,13 @@ c character*6 nompro parameter ( nompro = 'UTCACH' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmstri.h" + include "gmstri.h" c c 0.3. ==> arguments c @@ -96,7 +96,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -168,7 +168,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utcafo.F b/src/tool/Utilitaire/utcafo.F index 68485871..b7aa4544 100644 --- a/src/tool/Utilitaire/utcafo.F +++ b/src/tool/Utilitaire/utcafo.F @@ -76,13 +76,13 @@ c character*6 nompro parameter ( nompro = 'UTCAFO' ) c -#include "nblang.h" -#include "consts.h" + include "nblang.h" + include "consts.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "meddc0.h" + include "envex1.h" + include "meddc0.h" c c 0.3. ==> arguments c @@ -113,7 +113,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -131,7 +131,7 @@ c texte(2,5) = '(''Adresses of object '',a,'' cannot be read.'')' texte(2,6) = '(''Values of object '',a,'' cannot be read.'')' c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ call gmprsx (nompro, obfonc ) @@ -166,7 +166,7 @@ c c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" write (ulsort,texte(langue,4)) obfonc endif c diff --git a/src/tool/Utilitaire/utcapf.F b/src/tool/Utilitaire/utcapf.F index ee5c0a7b..24081099 100644 --- a/src/tool/Utilitaire/utcapf.F +++ b/src/tool/Utilitaire/utcapf.F @@ -71,11 +71,11 @@ c character*6 nompro parameter ( nompro = 'UTCAPF' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -105,7 +105,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -182,7 +182,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utcapg.F b/src/tool/Utilitaire/utcapg.F index 86903361..09c0dd37 100644 --- a/src/tool/Utilitaire/utcapg.F +++ b/src/tool/Utilitaire/utcapg.F @@ -55,18 +55,18 @@ c character*6 nompro parameter ( nompro = 'UTCAPG' ) c -#include "nblang.h" -#include "consts.h" + include "nblang.h" + include "consts.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c #ifdef _DEBUG_HOMARD_ -#include "gmreel.h" + include "gmreel.h" #endif -#include "gmstri.h" -#include "indefs.h" + include "gmstri.h" + include "indefs.h" c c 0.3. ==> arguments c @@ -101,7 +101,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -194,7 +194,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utcapr.F b/src/tool/Utilitaire/utcapr.F index e1768df6..ad12cfd8 100644 --- a/src/tool/Utilitaire/utcapr.F +++ b/src/tool/Utilitaire/utcapr.F @@ -50,14 +50,14 @@ c character*6 nompro parameter ( nompro = 'UTCAPR' ) c -#include "nblang.h" -#include "consts.h" + include "nblang.h" + include "consts.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmstri.h" + include "gmstri.h" c c 0.3. ==> arguments c @@ -89,7 +89,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -157,7 +157,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utcaso.F b/src/tool/Utilitaire/utcaso.F index 8fa467d8..dfba9c8b 100644 --- a/src/tool/Utilitaire/utcaso.F +++ b/src/tool/Utilitaire/utcaso.F @@ -58,11 +58,11 @@ c character*6 nompro parameter ( nompro = 'UTCASO' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -94,7 +94,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -200,7 +200,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utchen.F b/src/tool/Utilitaire/utchen.F index 5ffae384..ba36a56d 100644 --- a/src/tool/Utilitaire/utchen.F +++ b/src/tool/Utilitaire/utchen.F @@ -50,11 +50,11 @@ c character*6 nompro parameter ( nompro = 'UTCHEN' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -82,8 +82,8 @@ c==== c 1. messages c==== c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -139,7 +139,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utchnu.F b/src/tool/Utilitaire/utchnu.F index c1975276..ad52940b 100644 --- a/src/tool/Utilitaire/utchnu.F +++ b/src/tool/Utilitaire/utchnu.F @@ -59,11 +59,11 @@ c character*6 nompro parameter ( nompro = 'UTCHNU' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -94,7 +94,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -275,7 +275,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utchre.F b/src/tool/Utilitaire/utchre.F index 2bd01ef3..01ff41ec 100644 --- a/src/tool/Utilitaire/utchre.F +++ b/src/tool/Utilitaire/utchre.F @@ -50,11 +50,11 @@ c character*6 nompro parameter ( nompro = 'UTCHRE' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -87,7 +87,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -197,7 +197,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utchs8.F b/src/tool/Utilitaire/utchs8.F index bf5ff355..0fa88502 100644 --- a/src/tool/Utilitaire/utchs8.F +++ b/src/tool/Utilitaire/utchs8.F @@ -67,11 +67,11 @@ c character*6 nompro parameter ( nompro = 'UTCHS8' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -98,7 +98,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -158,7 +158,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret write (ulsort,texte(langue,4)) diff --git a/src/tool/Utilitaire/utcnar.F b/src/tool/Utilitaire/utcnar.F index 0fa723b4..7d3c1b4d 100644 --- a/src/tool/Utilitaire/utcnar.F +++ b/src/tool/Utilitaire/utcnar.F @@ -79,9 +79,9 @@ c c c 0.2. ==> communs c -#include "nombar.h" -#include "envca1.h" -#include "nouvnb.h" + include "nombar.h" + include "envca1.h" + include "nouvnb.h" c c 0.3. ==> arguments c diff --git a/src/tool/Utilitaire/utcnhe.F b/src/tool/Utilitaire/utcnhe.F index 4f04ad1e..e28e0bdb 100644 --- a/src/tool/Utilitaire/utcnhe.F +++ b/src/tool/Utilitaire/utcnhe.F @@ -70,9 +70,9 @@ c c c 0.2. ==> communs c -#include "envca1.h" -#include "nouvnb.h" -#include "nombhe.h" + include "envca1.h" + include "nouvnb.h" + include "nombhe.h" c c 0.3. ==> arguments c @@ -98,7 +98,7 @@ c marquees "a disparaitre". il faut neanmoins conserver le nombre c d'entites avant disparitions pour pouvoir, a la fin des remises a c jours des numerotations, compacter les tableaux en memoire. c -#include "impr03.h" + include "impr03.h" c==== c 1. stockage des anciens tableaux de filiation c==== diff --git a/src/tool/Utilitaire/utcnno.F b/src/tool/Utilitaire/utcnno.F index f82204c5..aaf7a6cc 100644 --- a/src/tool/Utilitaire/utcnno.F +++ b/src/tool/Utilitaire/utcnno.F @@ -78,8 +78,8 @@ c c c 0.2. ==> communs c -#include "envca1.h" -#include "nouvnb.h" + include "envca1.h" + include "nouvnb.h" c c 0.3. ==> arguments c diff --git a/src/tool/Utilitaire/utcnpe.F b/src/tool/Utilitaire/utcnpe.F index e1f0603a..9c3de24b 100644 --- a/src/tool/Utilitaire/utcnpe.F +++ b/src/tool/Utilitaire/utcnpe.F @@ -68,8 +68,8 @@ c c c 0.2. ==> communs c -#include "nouvnb.h" -#include "nombpe.h" + include "nouvnb.h" + include "nombpe.h" c c 0.3. ==> arguments c diff --git a/src/tool/Utilitaire/utcnqu.F b/src/tool/Utilitaire/utcnqu.F index a0a7366c..93a5f354 100644 --- a/src/tool/Utilitaire/utcnqu.F +++ b/src/tool/Utilitaire/utcnqu.F @@ -86,10 +86,10 @@ c c c 0.2. ==> communs c -#include "nomber.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nouvnb.h" + include "nomber.h" + include "nombtr.h" + include "nombqu.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -117,7 +117,7 @@ c==== c 1. messages c==== c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (1,*) 'entree de ',nompro diff --git a/src/tool/Utilitaire/utcnte.F b/src/tool/Utilitaire/utcnte.F index c4c09bb6..ffd77f87 100644 --- a/src/tool/Utilitaire/utcnte.F +++ b/src/tool/Utilitaire/utcnte.F @@ -70,8 +70,8 @@ c c c 0.2. ==> communs c -#include "nouvnb.h" -#include "nombte.h" + include "nouvnb.h" + include "nombte.h" c c 0.3. ==> arguments c diff --git a/src/tool/Utilitaire/utcntr.F b/src/tool/Utilitaire/utcntr.F index b9b37adc..7f1705dc 100644 --- a/src/tool/Utilitaire/utcntr.F +++ b/src/tool/Utilitaire/utcntr.F @@ -85,10 +85,10 @@ c c c 0.2. ==> communs c -#include "nomber.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nouvnb.h" + include "nomber.h" + include "nombtr.h" + include "nombqu.h" + include "nouvnb.h" c c 0.3. ==> arguments c @@ -116,7 +116,7 @@ c==== c 1. messages c==== c -#include "impr03.h" + include "impr03.h" c cgn print 90002,nompro//' - option',option cgn print 90002,'nbtrre',nbtrre diff --git a/src/tool/Utilitaire/utcohe.F b/src/tool/Utilitaire/utcohe.F index 08a75e00..fe33992f 100644 --- a/src/tool/Utilitaire/utcohe.F +++ b/src/tool/Utilitaire/utcohe.F @@ -62,18 +62,18 @@ c character*6 nompro parameter ( nompro = 'UTCOHE' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "nombno.h" -#include "nombar.h" -#include "nombqu.h" -#include "nombhe.h" -#include "impr02.h" + include "envca1.h" + include "nombno.h" + include "nombar.h" + include "nombqu.h" + include "nombhe.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -110,7 +110,7 @@ c==== c codret = 0 c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -235,7 +235,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utcoma.F b/src/tool/Utilitaire/utcoma.F index d458fac7..001adb4b 100644 --- a/src/tool/Utilitaire/utcoma.F +++ b/src/tool/Utilitaire/utcoma.F @@ -52,16 +52,16 @@ c character*6 nompro parameter ( nompro = 'UTCOMA' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" + include "gmenti.h" c -#include "envca1.h" -#include "impr02.h" + include "envca1.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -110,7 +110,7 @@ c==== c c 1.1. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -125,7 +125,7 @@ c texte(2,5) = '(a,'' with hanging nodes.'')' texte(2,6) = '(''Mesh is hanging-node type.'')' c -#include "impr03.h" + include "impr03.h" c c==== c 2. recuperation des pointeurs, initialisations @@ -360,7 +360,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utcomp.F b/src/tool/Utilitaire/utcomp.F index c0f7423b..5755416e 100644 --- a/src/tool/Utilitaire/utcomp.F +++ b/src/tool/Utilitaire/utcomp.F @@ -44,11 +44,11 @@ c character*6 nompro parameter ( nompro = 'UTCOMP' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -69,7 +69,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -99,7 +99,7 @@ c 2.3. ==> bilan c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utconf.F b/src/tool/Utilitaire/utconf.F index 3a0dc60b..27a626e0 100644 --- a/src/tool/Utilitaire/utconf.F +++ b/src/tool/Utilitaire/utconf.F @@ -85,13 +85,13 @@ c character*6 nompro parameter ( nompro = 'UTCONF' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "impr02.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -133,7 +133,7 @@ c==== c 1. impression c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -181,7 +181,7 @@ c texte(2,16) = '(''Number of '',a,'' : '',i10)' texte(2,20) = '(''Examination of the'',a,i10)' c -#include "impr03.h" + include "impr03.h" c codret = 0 c @@ -996,7 +996,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c #ifdef _DEBUG_HOMARD_ if ( ulsort.ne.0 ) then diff --git a/src/tool/Utilitaire/utcoq2.F b/src/tool/Utilitaire/utcoq2.F index 9be454c3..90336d24 100644 --- a/src/tool/Utilitaire/utcoq2.F +++ b/src/tool/Utilitaire/utcoq2.F @@ -86,13 +86,13 @@ c character*6 nompro parameter ( nompro = 'UTCOQ2' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "ope1a4.h" + include "ope1a4.h" c c 0.3. ==> arguments c @@ -121,7 +121,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -215,7 +215,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utcoq3.F b/src/tool/Utilitaire/utcoq3.F index 01d00b31..3acffa4a 100644 --- a/src/tool/Utilitaire/utcoq3.F +++ b/src/tool/Utilitaire/utcoq3.F @@ -91,13 +91,13 @@ c character*6 nompro parameter ( nompro = 'UTCOQ3' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "ope1a4.h" + include "ope1a4.h" c c 0.3. ==> arguments c @@ -126,7 +126,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -137,7 +137,7 @@ c c texte(2,10) ='(''Cut edge cannot be found.'')' c -#include "impr03.h" + include "impr03.h" c codret = 0 c @@ -210,7 +210,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utcoq5.F b/src/tool/Utilitaire/utcoq5.F index d685da56..e21d7ad6 100644 --- a/src/tool/Utilitaire/utcoq5.F +++ b/src/tool/Utilitaire/utcoq5.F @@ -91,13 +91,13 @@ c character*6 nompro parameter ( nompro = 'UTCOQ5' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "ope1a4.h" + include "ope1a4.h" c c 0.3. ==> arguments c @@ -126,7 +126,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -234,7 +234,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utcorn.F b/src/tool/Utilitaire/utcorn.F index 0bad3c03..6ef95405 100644 --- a/src/tool/Utilitaire/utcorn.F +++ b/src/tool/Utilitaire/utcorn.F @@ -80,20 +80,20 @@ c character*6 nompro parameter ( nompro = 'UTCORN' ) c -#include "nblang.h" -#include "cofina.h" + include "nblang.h" + include "cofina.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "dicfen.h" -#include "nbfami.h" -#include "nombno.h" -#include "nombar.h" -#include "nombqu.h" -#include "impr02.h" + include "envca1.h" + include "dicfen.h" + include "nbfami.h" + include "nombno.h" + include "nombar.h" + include "nombqu.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -126,7 +126,7 @@ c==== c c 1.1. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -220,7 +220,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utcote.F b/src/tool/Utilitaire/utcote.F index f452989a..5cb1885e 100644 --- a/src/tool/Utilitaire/utcote.F +++ b/src/tool/Utilitaire/utcote.F @@ -62,18 +62,18 @@ c character*6 nompro parameter ( nompro = 'UTCOTE' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombte.h" -#include "impr02.h" + include "envca1.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombte.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -109,7 +109,7 @@ c==== c codret = 0 c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -122,7 +122,7 @@ c texte(2,4) = '(''.. Examination of '',a,'' # '',i10)' texte(2,5) = '(''.. The '',a,'' # '',i10,'' is active.'')' c -#include "impr03.h" + include "impr03.h" c c==== c 2. Controle du tetraedre @@ -191,7 +191,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utcrhi.F b/src/tool/Utilitaire/utcrhi.F index c0a6f63c..5563a3e0 100644 --- a/src/tool/Utilitaire/utcrhi.F +++ b/src/tool/Utilitaire/utcrhi.F @@ -61,11 +61,11 @@ c character*6 nompro parameter ( nompro = 'UTCRHI' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -110,7 +110,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -127,7 +127,7 @@ c texte(2,6) = '(''Low limit for values :'',g15.6)' texte(2,7) = '(''Class'',i3,'' : '',g25.7)' c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,4)) nbclas @@ -515,7 +515,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utcrpg.F b/src/tool/Utilitaire/utcrpg.F index 8b4bc433..00bc3769 100644 --- a/src/tool/Utilitaire/utcrpg.F +++ b/src/tool/Utilitaire/utcrpg.F @@ -58,19 +58,19 @@ c character*6 nompro parameter ( nompro = 'UTCRPG' ) c -#include "nblang.h" -#include "consts.h" -#include "meddc0.h" + include "nblang.h" + include "consts.h" + include "meddc0.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmreel.h" + include "gmreel.h" #ifdef _DEBUG_HOMARD_ -#include "indefi.h" + include "indefi.h" #endif -#include "indefs.h" + include "indefs.h" c c 0.3. ==> arguments c @@ -97,7 +97,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -115,7 +115,7 @@ c texte(2,6) = '(''Name for localization : '',a)' texte(2,10) = '(''Cannot be constructed today.'')' c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,4)) @@ -258,7 +258,7 @@ c==== if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utcte1.F b/src/tool/Utilitaire/utcte1.F index 71d2c648..3b8f1117 100644 --- a/src/tool/Utilitaire/utcte1.F +++ b/src/tool/Utilitaire/utcte1.F @@ -90,13 +90,13 @@ c character*6 nompro parameter ( nompro = 'UTCTE1' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" + include "gmenti.h" c c 0.3. ==> arguments c @@ -124,7 +124,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -218,7 +218,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utcte2.F b/src/tool/Utilitaire/utcte2.F index 2504198b..6a69d958 100644 --- a/src/tool/Utilitaire/utcte2.F +++ b/src/tool/Utilitaire/utcte2.F @@ -79,13 +79,13 @@ c character*6 nompro parameter ( nompro = 'UTCTE2' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" + include "gmenti.h" c c 0.3. ==> arguments c @@ -117,7 +117,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -244,7 +244,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utcte3.F b/src/tool/Utilitaire/utcte3.F index cdb6fc63..2dd4cd74 100644 --- a/src/tool/Utilitaire/utcte3.F +++ b/src/tool/Utilitaire/utcte3.F @@ -88,11 +88,11 @@ c character*6 nompro parameter ( nompro = 'UTCTE3' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -120,7 +120,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -241,7 +241,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utcte4.F b/src/tool/Utilitaire/utcte4.F index 112aab84..e87c2843 100644 --- a/src/tool/Utilitaire/utcte4.F +++ b/src/tool/Utilitaire/utcte4.F @@ -82,11 +82,11 @@ c character*6 nompro parameter ( nompro = 'UTCTE4' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -114,7 +114,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -296,7 +296,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utcvne.F b/src/tool/Utilitaire/utcvne.F index 1ec4f66f..da190e4c 100644 --- a/src/tool/Utilitaire/utcvne.F +++ b/src/tool/Utilitaire/utcvne.F @@ -45,11 +45,11 @@ c character*6 nompro parameter ( nompro = 'UTCVNE' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -72,7 +72,7 @@ c c 0.5. ==> initialisations c ______________________________________________________________________ c -#include "impr01.h" + include "impr01.h" c c==== c 1. decodage @@ -134,7 +134,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c textet = ' ' lgtext = 1 diff --git a/src/tool/Utilitaire/utdhex.F b/src/tool/Utilitaire/utdhex.F index be5188d8..01db7e00 100644 --- a/src/tool/Utilitaire/utdhex.F +++ b/src/tool/Utilitaire/utdhex.F @@ -55,10 +55,10 @@ c c c 0.2. ==> communs c -#include "nombno.h" -#include "nombar.h" -#include "nombqu.h" -#include "nombhe.h" + include "nombno.h" + include "nombar.h" + include "nombqu.h" + include "nombhe.h" c c 0.3. ==> arguments c diff --git a/src/tool/Utilitaire/utdhlg.F b/src/tool/Utilitaire/utdhlg.F index 99162a23..e2b5a367 100644 --- a/src/tool/Utilitaire/utdhlg.F +++ b/src/tool/Utilitaire/utdhlg.F @@ -39,7 +39,7 @@ c implicit none save c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c @@ -59,7 +59,7 @@ c c c 0.5. ==> initialisations c -#include "utjomo.h" + include "utjomo.h" c c_______________________________________________________________________c c==== diff --git a/src/tool/Utilitaire/utdiag.F b/src/tool/Utilitaire/utdiag.F index 763cc8ff..0447ecae 100644 --- a/src/tool/Utilitaire/utdiag.F +++ b/src/tool/Utilitaire/utdiag.F @@ -52,9 +52,9 @@ c c c 0.2. ==> communs c -#include "nouvnb.h" -#include "i1i2i3.h" -#include "indefi.h" + include "nouvnb.h" + include "i1i2i3.h" + include "indefi.h" c c 0.3. ==> arguments c diff --git a/src/tool/Utilitaire/utdich.F b/src/tool/Utilitaire/utdich.F index d4879396..2c93cb35 100644 --- a/src/tool/Utilitaire/utdich.F +++ b/src/tool/Utilitaire/utdich.F @@ -50,11 +50,11 @@ c character*6 nompro parameter ( nompro = 'UTDICH' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -78,7 +78,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -140,7 +140,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret endif diff --git a/src/tool/Utilitaire/utdpen.F b/src/tool/Utilitaire/utdpen.F index 2d9a9101..9ea7ea59 100644 --- a/src/tool/Utilitaire/utdpen.F +++ b/src/tool/Utilitaire/utdpen.F @@ -55,10 +55,10 @@ c c c 0.2. ==> communs c -#include "nombno.h" -#include "nombar.h" -#include "nombqu.h" -#include "nombpe.h" + include "nombno.h" + include "nombar.h" + include "nombqu.h" + include "nombpe.h" c c 0.3. ==> arguments c diff --git a/src/tool/Utilitaire/utdpyr.F b/src/tool/Utilitaire/utdpyr.F index 34d04a7a..13771873 100644 --- a/src/tool/Utilitaire/utdpyr.F +++ b/src/tool/Utilitaire/utdpyr.F @@ -55,10 +55,10 @@ c c c 0.2. ==> communs c -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombpy.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombpy.h" c c 0.3. ==> arguments c diff --git a/src/tool/Utilitaire/utdqua.F b/src/tool/Utilitaire/utdqua.F index d411b362..996de471 100644 --- a/src/tool/Utilitaire/utdqua.F +++ b/src/tool/Utilitaire/utdqua.F @@ -51,10 +51,10 @@ c c c 0.2. ==> communs c -#include "nombno.h" -#include "nombar.h" -#include "nombqu.h" -#include "envca1.h" + include "nombno.h" + include "nombar.h" + include "nombqu.h" + include "envca1.h" c c 0.3. ==> arguments c diff --git a/src/tool/Utilitaire/utdtet.F b/src/tool/Utilitaire/utdtet.F index b2d35113..b87e8f60 100644 --- a/src/tool/Utilitaire/utdtet.F +++ b/src/tool/Utilitaire/utdtet.F @@ -54,10 +54,10 @@ c c c 0.2. ==> communs c -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombte.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombte.h" c c 0.3. ==> arguments c diff --git a/src/tool/Utilitaire/utdtri.F b/src/tool/Utilitaire/utdtri.F index f6758f52..009c1c9f 100644 --- a/src/tool/Utilitaire/utdtri.F +++ b/src/tool/Utilitaire/utdtri.F @@ -50,10 +50,10 @@ c c c 0.2. ==> communs c -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "envca1.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "envca1.h" c c 0.3. ==> arguments c diff --git a/src/tool/Utilitaire/uteare.F b/src/tool/Utilitaire/uteare.F index f9ad564f..a577166a 100644 --- a/src/tool/Utilitaire/uteare.F +++ b/src/tool/Utilitaire/uteare.F @@ -54,11 +54,11 @@ c character*6 nompro parameter ( nompro = 'UTEARE' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -88,7 +88,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -194,7 +194,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utecf0.F b/src/tool/Utilitaire/utecf0.F index 571761b3..5cda0696 100644 --- a/src/tool/Utilitaire/utecf0.F +++ b/src/tool/Utilitaire/utecf0.F @@ -111,14 +111,14 @@ c character*6 nompro parameter ( nompro = 'UTECF0' ) c -#include "nblang.h" -#include "coftex.h" + include "nblang.h" + include "coftex.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "impr02.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -153,7 +153,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -170,7 +170,7 @@ c texte(2,5) = '(5x,''Number of families : '',i8)' texte(2,6) = '(5x,''Number of codes per family: '',i3)' c -#include "impr03.h" + include "impr03.h" c codret = 0 c @@ -561,7 +561,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utecfe.F b/src/tool/Utilitaire/utecfe.F index 21199b96..29f3e5ba 100644 --- a/src/tool/Utilitaire/utecfe.F +++ b/src/tool/Utilitaire/utecfe.F @@ -146,23 +146,23 @@ c character*6 nompro parameter ( nompro = 'UTECFE' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "dicfen.h" -#include "nbfami.h" -#include "nombno.h" -#include "nombmp.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombhe.h" -#include "nombpy.h" -#include "nombpe.h" + include "dicfen.h" + include "nbfami.h" + include "nombno.h" + include "nombmp.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombhe.h" + include "nombpy.h" + include "nombpe.h" c c 0.3. ==> arguments c @@ -194,7 +194,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -416,7 +416,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utehex.F b/src/tool/Utilitaire/utehex.F index bd72bbb4..9c4b1122 100644 --- a/src/tool/Utilitaire/utehex.F +++ b/src/tool/Utilitaire/utehex.F @@ -62,13 +62,13 @@ c character*6 nompro parameter ( nompro = 'UTEHEX' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "impr02.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -103,7 +103,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -133,7 +133,7 @@ c texte(2,19) = '(/,''.. Before calling '',a,'' :'',/)' texte(2,20) = '(/,''.. After calling '',a,'' :'',/)' c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ if ( avappr.ge.0 .and. avappr.le.2 ) then @@ -277,7 +277,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utench.F b/src/tool/Utilitaire/utench.F index 61fb61fe..839ce43e 100644 --- a/src/tool/Utilitaire/utench.F +++ b/src/tool/Utilitaire/utench.F @@ -63,11 +63,11 @@ c character*6 nompro parameter ( nompro = 'UTENCH' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -98,7 +98,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -276,7 +276,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utepen.F b/src/tool/Utilitaire/utepen.F index b84e4584..12a1ee77 100644 --- a/src/tool/Utilitaire/utepen.F +++ b/src/tool/Utilitaire/utepen.F @@ -63,13 +63,13 @@ c character*6 nompro parameter ( nompro = 'UTEPEN' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "impr02.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -104,7 +104,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -134,7 +134,7 @@ c texte(2,19) = '(/,''.. Before calling '',a,'' :'',/)' texte(2,20) = '(/,''.. After calling '',a,'' :'',/)' c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ if ( avappr.ge.0 .and. avappr.le.2 ) then @@ -263,7 +263,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utepyr.F b/src/tool/Utilitaire/utepyr.F index 5bdee9e7..e6e492e5 100644 --- a/src/tool/Utilitaire/utepyr.F +++ b/src/tool/Utilitaire/utepyr.F @@ -62,13 +62,13 @@ c character*6 nompro parameter ( nompro = 'UTEPYR' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "impr02.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -104,9 +104,9 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -272,7 +272,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utequa.F b/src/tool/Utilitaire/utequa.F index 4b7b89d6..3bd86d0f 100644 --- a/src/tool/Utilitaire/utequa.F +++ b/src/tool/Utilitaire/utequa.F @@ -60,12 +60,12 @@ c character*6 nompro parameter ( nompro = 'UTEQUA' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "impr02.h" + include "envex1.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -110,7 +110,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -495,7 +495,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utetet.F b/src/tool/Utilitaire/utetet.F index b2f59cac..110e64c8 100644 --- a/src/tool/Utilitaire/utetet.F +++ b/src/tool/Utilitaire/utetet.F @@ -62,11 +62,11 @@ c character*6 nompro parameter ( nompro = 'UTETET' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -98,7 +98,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -167,7 +167,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utetri.F b/src/tool/Utilitaire/utetri.F index 9061599c..35279a7a 100644 --- a/src/tool/Utilitaire/utetri.F +++ b/src/tool/Utilitaire/utetri.F @@ -56,11 +56,11 @@ c character*6 nompro parameter ( nompro = 'UTETRI' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -94,7 +94,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -214,7 +214,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utfam1.F b/src/tool/Utilitaire/utfam1.F index d46f82aa..40517507 100644 --- a/src/tool/Utilitaire/utfam1.F +++ b/src/tool/Utilitaire/utfam1.F @@ -63,13 +63,13 @@ c character*6 nompro parameter ( nompro = 'UTFAM1' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "impr02.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -97,7 +97,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -133,7 +133,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utfam2.F b/src/tool/Utilitaire/utfam2.F index 7d6fc3d0..c113aa2a 100644 --- a/src/tool/Utilitaire/utfam2.F +++ b/src/tool/Utilitaire/utfam2.F @@ -62,13 +62,13 @@ c character*6 nompro parameter ( nompro = 'UTFAM2' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "impr02.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -99,7 +99,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -112,7 +112,7 @@ c texte(2,4) = > '(''Allocation of arrays for family of extruded '',a)' c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,4)) mess14(langue,3,typenh) @@ -184,7 +184,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utfia1.F b/src/tool/Utilitaire/utfia1.F index c883de32..a2defdf6 100644 --- a/src/tool/Utilitaire/utfia1.F +++ b/src/tool/Utilitaire/utfia1.F @@ -53,11 +53,11 @@ c character*6 nompro parameter ( nompro = 'UTFIA1' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -97,7 +97,7 @@ c==== c 1. initialisations c==== c -#include "impr03.h" + include "impr03.h" c c 1.1. ==> constantes c @@ -111,7 +111,7 @@ c c c 1.2. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Sortie', nompro @@ -356,7 +356,7 @@ c c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c endif c diff --git a/src/tool/Utilitaire/utfia2.F b/src/tool/Utilitaire/utfia2.F index 88f52efc..cfe6f9ed 100644 --- a/src/tool/Utilitaire/utfia2.F +++ b/src/tool/Utilitaire/utfia2.F @@ -66,8 +66,8 @@ c character*6 nompro parameter ( nompro = 'UTFIA2' ) c -#include "nblang.h" -#include "consts.h" + include "nblang.h" + include "consts.h" c c 0.2. ==> communs c @@ -128,7 +128,7 @@ c c c 1.2. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro diff --git a/src/tool/Utilitaire/utfiac.F b/src/tool/Utilitaire/utfiac.F index 3e1c9f24..3f155861 100644 --- a/src/tool/Utilitaire/utfiac.F +++ b/src/tool/Utilitaire/utfiac.F @@ -52,14 +52,14 @@ c character*6 nompro parameter ( nompro = 'UTFIAC' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" -#include "gmstri.h" + include "gmenti.h" + include "gmstri.h" c c 0.3. ==> arguments c @@ -70,7 +70,7 @@ c c c 0.4. ==> variables locales c -#include "utliob.h" + include "utliob.h" c integer iaux integer adnore, adlono, adpono, adnofi, adnoos, adinsu @@ -95,7 +95,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -250,7 +250,7 @@ c c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utfihe.F b/src/tool/Utilitaire/utfihe.F index 36c3d0b6..6f3510d4 100644 --- a/src/tool/Utilitaire/utfihe.F +++ b/src/tool/Utilitaire/utfihe.F @@ -55,7 +55,7 @@ c c c 0.2. ==> communs c -#include "hexcf0.h" + include "hexcf0.h" c c 0.3. ==> arguments c @@ -70,7 +70,7 @@ c integer iaux integer bindec c -#include "impr03.h" + include "impr03.h" c c==== c 1. Nombre de fils diff --git a/src/tool/Utilitaire/utfin1.F b/src/tool/Utilitaire/utfin1.F index cc8d4b60..bb12f2f7 100644 --- a/src/tool/Utilitaire/utfin1.F +++ b/src/tool/Utilitaire/utfin1.F @@ -58,12 +58,12 @@ c character*6 nompro parameter ( nompro = 'UTFIN1' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "gmenti.h" -#include "gmstri.h" + include "gmenti.h" + include "gmstri.h" c c 0.3. ==> arguments c @@ -75,7 +75,7 @@ c c c 0.4. ==> variables locales c -#include "utliob.h" + include "utliob.h" c integer adnore, adlono, adpono, adnofi, adnoos integer nbfich @@ -97,7 +97,7 @@ c si on recherche le fichier de la liste standard, il faut c imprimer sur la sortie standard. c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro diff --git a/src/tool/Utilitaire/utfin2.F b/src/tool/Utilitaire/utfin2.F index 54faef03..a1070eb6 100644 --- a/src/tool/Utilitaire/utfin2.F +++ b/src/tool/Utilitaire/utfin2.F @@ -63,7 +63,7 @@ c character*6 nompro parameter ( nompro = 'UTFIN2' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c @@ -85,7 +85,7 @@ c parameter ( nbmess = 10 ) character*80 texte(nblang,nbmess) c -#include "motcle.h" + include "motcle.h" c c 0.5. ==> initialisations c ______________________________________________________________________ @@ -96,7 +96,7 @@ c si on recherche le fichier de la liste standard, il faut c imprimer sur la sortie standard. c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro diff --git a/src/tool/Utilitaire/utfino.F b/src/tool/Utilitaire/utfino.F index 056ef522..45238485 100644 --- a/src/tool/Utilitaire/utfino.F +++ b/src/tool/Utilitaire/utfino.F @@ -63,7 +63,7 @@ c character*6 nompro parameter ( nompro = 'UTFINO' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c @@ -85,7 +85,7 @@ c parameter ( nbmess = 10 ) character*80 texte(nblang,nbmess) c -#include "motcle.h" + include "motcle.h" c c 0.5. ==> initialisations c ______________________________________________________________________ @@ -96,7 +96,7 @@ c si on recherche le fichier de la liste standard, il faut c imprimer sur la sortie standard. c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro diff --git a/src/tool/Utilitaire/utflt0.F b/src/tool/Utilitaire/utflt0.F index 4fc2cb39..4b2cc61a 100644 --- a/src/tool/Utilitaire/utflt0.F +++ b/src/tool/Utilitaire/utflt0.F @@ -54,11 +54,11 @@ c character*6 nompro parameter ( nompro = 'UTFLT0' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -86,14 +86,14 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" + include "impr03.h" c codret = 0 c @@ -132,7 +132,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utfltr.F b/src/tool/Utilitaire/utfltr.F index 36be2af6..1be96b4a 100644 --- a/src/tool/Utilitaire/utfltr.F +++ b/src/tool/Utilitaire/utfltr.F @@ -58,14 +58,14 @@ c character*6 nompro parameter ( nompro = 'UTFLTR' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "nombno.h" + include "envca1.h" + include "nombno.h" c c 0.3. ==> arguments c @@ -96,14 +96,14 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" + include "impr03.h" c codret = 0 c @@ -178,7 +178,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utfmgr.F b/src/tool/Utilitaire/utfmgr.F index 504fba03..1bddad41 100644 --- a/src/tool/Utilitaire/utfmgr.F +++ b/src/tool/Utilitaire/utfmgr.F @@ -55,11 +55,11 @@ c character*6 nompro parameter ( nompro = 'UTFMGR' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -94,7 +94,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -105,7 +105,7 @@ c c texte(2,5) = '(''Looking for group: '',a)' c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,4)) nomgro @@ -183,7 +183,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utfmlg.F b/src/tool/Utilitaire/utfmlg.F index 3b8c5a3a..1be995ed 100644 --- a/src/tool/Utilitaire/utfmlg.F +++ b/src/tool/Utilitaire/utfmlg.F @@ -55,11 +55,11 @@ c character*6 nompro parameter ( nompro = 'UTFMLG' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -92,14 +92,14 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" + include "impr03.h" c codret = 0 c @@ -186,7 +186,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/uthcac.F b/src/tool/Utilitaire/uthcac.F index e1b38f04..b7900ce8 100644 --- a/src/tool/Utilitaire/uthcac.F +++ b/src/tool/Utilitaire/uthcac.F @@ -41,8 +41,8 @@ c c c 0.2. ==> communs c -c#include "hexcf0.h" -#include "hexcf1.h" +c include "hexcf0.h" + include "hexcf1.h" c c 0.3. ==> arguments c diff --git a/src/tool/Utilitaire/uthcai.F b/src/tool/Utilitaire/uthcai.F index 1f08690c..5a467e7d 100644 --- a/src/tool/Utilitaire/uthcai.F +++ b/src/tool/Utilitaire/uthcai.F @@ -64,13 +64,13 @@ c c c 0.2. ==> communs c -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombhe.h" -#include "nombpy.h" -#include "nombte.h" -#include "hexcf0.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombhe.h" + include "nombpy.h" + include "nombte.h" + include "hexcf0.h" c c 0.3. ==> arguments c @@ -93,7 +93,7 @@ c integer nbfite, filste integer nbfihe, filshe c -#include "impr03.h" + include "impr03.h" c c==== c 1. Les aretes externes de l'hexaedre diff --git a/src/tool/Utilitaire/uthcnb.F b/src/tool/Utilitaire/uthcnb.F index 6f092641..be08ccde 100644 --- a/src/tool/Utilitaire/uthcnb.F +++ b/src/tool/Utilitaire/uthcnb.F @@ -51,12 +51,12 @@ c character*6 nompro parameter ( nompro = 'UTHCNB' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "hexcf0.h" + include "envex1.h" + include "hexcf0.h" c c 0.3. ==> arguments c @@ -84,14 +84,14 @@ c c c 1.2. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" + include "impr03.h" c c==== c 2. les references @@ -124,7 +124,7 @@ c c call dmflsh(iaux) c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/uthequ.F b/src/tool/Utilitaire/uthequ.F index 3a556946..de4decc7 100644 --- a/src/tool/Utilitaire/uthequ.F +++ b/src/tool/Utilitaire/uthequ.F @@ -81,12 +81,12 @@ c character*6 nompro parameter ( nompro = 'UTHEQU' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "hexcf0.h" + include "envex1.h" + include "hexcf0.h" c c 0.3. ==> arguments c @@ -122,7 +122,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -143,7 +143,7 @@ c texte(2,6) = '(/,''The following two tetraedra are the same.'')' texte(2,7) ='(''Quadrangles of hexahedron #'',i10,'' : '',4i10)' c -#include "impr03.h" + include "impr03.h" c codret = 0 c @@ -341,7 +341,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/uthonh.F b/src/tool/Utilitaire/uthonh.F index b1c106ab..7133b622 100644 --- a/src/tool/Utilitaire/uthonh.F +++ b/src/tool/Utilitaire/uthonh.F @@ -51,18 +51,18 @@ c character*6 nompro parameter ( nompro = 'UTHONH' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "envca1.h" -#include "impr02.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "envca1.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -87,7 +87,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -254,7 +254,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utimpg.F b/src/tool/Utilitaire/utimpg.F index 98cc2511..03e30e2b 100644 --- a/src/tool/Utilitaire/utimpg.F +++ b/src/tool/Utilitaire/utimpg.F @@ -60,11 +60,11 @@ c character*6 nompro parameter ( nompro = 'UTIMPG' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -91,7 +91,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -218,7 +218,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utinca.F b/src/tool/Utilitaire/utinca.F index 8ca089dd..cfd6df35 100644 --- a/src/tool/Utilitaire/utinca.F +++ b/src/tool/Utilitaire/utinca.F @@ -37,9 +37,9 @@ c c c 0.2. ==> communs c -#include "permut.h" -#include "cofhex.h" -#include "cofpen.h" + include "permut.h" + include "cofhex.h" + include "cofpen.h" c c 0.3. ==> arguments c diff --git a/src/tool/Utilitaire/utincg.F b/src/tool/Utilitaire/utincg.F index 7087b001..ca50aae6 100644 --- a/src/tool/Utilitaire/utincg.F +++ b/src/tool/Utilitaire/utincg.F @@ -34,38 +34,38 @@ c c c 0.2. ==> communs c -#include "i1i2i3.h" -#include "j1234j.h" -#include "defiqu.h" -#include "demitr.h" -#include "comp07.h" -#include "op0012.h" -#include "op0123.h" -#include "op1234.h" -#include "oriett.h" -#include "orieqh.h" -#include "oriefp.h" -#include "oriefy.h" -#include "op1aa6.h" -#include "ope1a3.h" -#include "ope1a4.h" -#include "ope4a6.h" -#include "ope001.h" -#include "ope002.h" -#include "infini.h" -#include "impr02.h" -#include "enti01.h" -#include "indefi.h" -#include "indefr.h" -#include "indefs.h" -#include "precis.h" -#include "chisig.h" -#include "hexcf0.h" -#include "hexcf1.h" -#include "dicfen.h" -#include "nbfamm.h" -c -#include "fahmed.h" + include "i1i2i3.h" + include "j1234j.h" + include "defiqu.h" + include "demitr.h" + include "comp07.h" + include "op0012.h" + include "op0123.h" + include "op1234.h" + include "oriett.h" + include "orieqh.h" + include "oriefp.h" + include "oriefy.h" + include "op1aa6.h" + include "ope1a3.h" + include "ope1a4.h" + include "ope4a6.h" + include "ope001.h" + include "ope002.h" + include "infini.h" + include "impr02.h" + include "enti01.h" + include "indefi.h" + include "indefr.h" + include "indefs.h" + include "precis.h" + include "chisig.h" + include "hexcf0.h" + include "hexcf1.h" + include "dicfen.h" + include "nbfamm.h" +c + include "fahmed.h" c c 0.3. ==> arguments c @@ -76,7 +76,7 @@ c integer tabaux(6) integer typenh c -#include "impr03.h" + include "impr03.h" c c==== c 1. les constantes @@ -986,7 +986,7 @@ c==== c 7. fonctions pour la conformite des hexaedres c==== c -#include "hexcf2.h" + include "hexcf2.h" c c==== c 8. Caracteristiques des familles : diff --git a/src/tool/Utilitaire/utinci.F b/src/tool/Utilitaire/utinci.F index 9bc7f815..2c441eb4 100644 --- a/src/tool/Utilitaire/utinci.F +++ b/src/tool/Utilitaire/utinci.F @@ -45,21 +45,21 @@ c character*6 nompro parameter ( nompro = 'UTINCI' ) c -#include "referx.h" + include "referx.h" c -#include "nblang.h" -#include "consts.h" + include "nblang.h" + include "consts.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "refere.h" -#include "refert.h" + include "refere.h" + include "refert.h" c -#include "rfamed.h" + include "rfamed.h" c -#include "rftmed.h" + include "rftmed.h" c c 0.3. ==> arguments c @@ -67,7 +67,7 @@ c c c 0.4. ==> variables locales c -#include "meddc0.h" + include "meddc0.h" c integer iaux, jaux character*6 saux06 @@ -89,7 +89,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -1525,7 +1525,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret endif diff --git a/src/tool/Utilitaire/utindh.F b/src/tool/Utilitaire/utindh.F index 8bc1c20d..086bd72e 100644 --- a/src/tool/Utilitaire/utindh.F +++ b/src/tool/Utilitaire/utindh.F @@ -53,15 +53,15 @@ c character*6 nompro parameter ( nompro = 'UTINDH' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "cndoad.h" + include "cndoad.h" c -#include "gmenti.h" + include "gmenti.h" c c 0.3. ==> arguments c @@ -94,7 +94,7 @@ c c c 1.2. ==> les messages, c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -230,7 +230,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utinei.F b/src/tool/Utilitaire/utinei.F index 5df5f0e2..85a6f130 100644 --- a/src/tool/Utilitaire/utinei.F +++ b/src/tool/Utilitaire/utinei.F @@ -57,17 +57,17 @@ c character*6 nompro parameter ( nompro = 'UTINEI' ) c -#include "nblang.h" -#include "consts.h" + include "nblang.h" + include "consts.h" c -#include "referx.h" + include "referx.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "refere.h" -#include "refert.h" + include "refere.h" + include "refert.h" c c 0.3. ==> arguments c @@ -77,7 +77,7 @@ c c c 0.4. ==> variables locales c -#include "meddc0.h" + include "meddc0.h" c integer iaux c @@ -90,7 +90,7 @@ c==== c 1. a priori, tout va bien c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -117,7 +117,7 @@ c=== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utinfm.F b/src/tool/Utilitaire/utinfm.F index 26d55ba6..eb000472 100644 --- a/src/tool/Utilitaire/utinfm.F +++ b/src/tool/Utilitaire/utinfm.F @@ -54,11 +54,11 @@ c character*6 nompro parameter ( nompro = 'UTINFM' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -85,7 +85,7 @@ c==== c c 1.1. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -158,7 +158,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utinit.F b/src/tool/Utilitaire/utinit.F index 260e7999..7f798bdd 100644 --- a/src/tool/Utilitaire/utinit.F +++ b/src/tool/Utilitaire/utinit.F @@ -56,14 +56,14 @@ c character*6 nompro parameter ( nompro = 'UTINIT' ) c -#include "nblang.h" + include "nblang.h" c integer nbcar parameter ( nbcar = 6 ) c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -78,10 +78,10 @@ c c c 0.4. ==> variables locales c -#include "consts.h" -#include "motcle.h" -#include "nuvers.h" -#include "webweb.h" + include "consts.h" + include "motcle.h" + include "nuvers.h" + include "webweb.h" c integer lfsort integer guimp, gmimp, raison @@ -108,7 +108,7 @@ c==== c 1. les messages c==== c -#include "impr01.h" + include "impr01.h" c texte(1,4) = '(//,''1. INITIALISATIONS'')' texte(1,5) = '(18(''=''),/)' @@ -378,7 +378,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c endif c diff --git a/src/tool/Utilitaire/utinla.F b/src/tool/Utilitaire/utinla.F index 6a36f266..1a3a0ac1 100644 --- a/src/tool/Utilitaire/utinla.F +++ b/src/tool/Utilitaire/utinla.F @@ -45,8 +45,8 @@ c character*6 nompro parameter ( nompro = 'UTINLA' ) c -#include "motcle.h" -#include "nblang.h" + include "motcle.h" + include "nblang.h" c c 0.2. ==> communs c @@ -84,7 +84,7 @@ c==== c 1. les messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro diff --git a/src/tool/Utilitaire/utinma.F b/src/tool/Utilitaire/utinma.F index 9e0c6449..b1b970ae 100644 --- a/src/tool/Utilitaire/utinma.F +++ b/src/tool/Utilitaire/utinma.F @@ -82,12 +82,12 @@ c character*6 nompro parameter ( nompro = 'UTINMA' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "impr02.h" + include "envex1.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -121,7 +121,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -206,7 +206,7 @@ c texte(2,40) = > '(8x,''. Elimination of'',i11,1x,a14)' c -#include "impr03.h" + include "impr03.h" c codret = 0 c @@ -362,7 +362,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utlgar.F b/src/tool/Utilitaire/utlgar.F index 5d96e76d..ac13998a 100644 --- a/src/tool/Utilitaire/utlgar.F +++ b/src/tool/Utilitaire/utlgar.F @@ -52,13 +52,13 @@ c character*6 nompro parameter ( nompro = 'UTLGAR' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "nombno.h" -#include "nombar.h" -#include "envca1.h" + include "nombno.h" + include "nombar.h" + include "envca1.h" c c 0.3. ==> arguments c @@ -91,7 +91,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro diff --git a/src/tool/Utilitaire/utlgut.F b/src/tool/Utilitaire/utlgut.F index 7d672528..b87f1aa7 100644 --- a/src/tool/Utilitaire/utlgut.F +++ b/src/tool/Utilitaire/utlgut.F @@ -50,11 +50,11 @@ c character*6 nompro parameter ( nompro = 'UTLGUT' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -79,7 +79,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -135,7 +135,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret write (ulsort,texte(langue,4)) chaine diff --git a/src/tool/Utilitaire/utlo00.F b/src/tool/Utilitaire/utlo00.F index 6a940c78..a544b75b 100644 --- a/src/tool/Utilitaire/utlo00.F +++ b/src/tool/Utilitaire/utlo00.F @@ -50,11 +50,11 @@ c character*6 nompro parameter ( nompro = 'UTLO00' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -90,15 +90,15 @@ c c c 1.2. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "utlo00.h" -#include "utlo02.h" + include "utlo00.h" + include "utlo02.h" c nbrmin = 0 nbrmax = 1 @@ -126,7 +126,7 @@ c 2.2. ==> decodage de l'option c if ( codre0.eq.0 ) then c -#include "utlo03.h" + include "utlo03.h" c if ( loptio.eq.2 ) then c @@ -162,7 +162,7 @@ c c endif c -#include "utlo01.h" + include "utlo01.h" c c==== c 3. la fin @@ -170,7 +170,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utlo01.F b/src/tool/Utilitaire/utlo01.F index 5244c5c3..79485f77 100644 --- a/src/tool/Utilitaire/utlo01.F +++ b/src/tool/Utilitaire/utlo01.F @@ -60,11 +60,11 @@ c character*6 nompro parameter ( nompro = 'UTLO01' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -100,15 +100,15 @@ c c c 1.2. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "utlo00.h" -#include "utlo02.h" + include "utlo00.h" + include "utlo02.h" c nbrmin = 0 nbrmax = 1 @@ -140,7 +140,7 @@ c 2.2. ==> decodage de l'option c if ( codre0.eq.0 ) then c -#include "utlo03.h" + include "utlo03.h" c if ( loptio.eq.3 ) then c @@ -213,7 +213,7 @@ c c endif c -#include "utlo01.h" + include "utlo01.h" c c==== c 3. la fin @@ -221,7 +221,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utlo02.F b/src/tool/Utilitaire/utlo02.F index 89cdb086..2f8c967c 100644 --- a/src/tool/Utilitaire/utlo02.F +++ b/src/tool/Utilitaire/utlo02.F @@ -60,11 +60,11 @@ c character*6 nompro parameter ( nompro = 'UTLO02' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -100,15 +100,15 @@ c c c 1.2. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "utlo00.h" -#include "utlo02.h" + include "utlo00.h" + include "utlo02.h" c nbrmin = 0 nbrmax = 1 @@ -140,7 +140,7 @@ c 2.2. ==> decodage de l'option c if ( codre0.eq.0 ) then c -#include "utlo03.h" + include "utlo03.h" c if ( loptio.eq.8 ) then c @@ -268,7 +268,7 @@ c c endif c -#include "utlo01.h" + include "utlo01.h" c c==== c 3. la fin @@ -276,7 +276,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utlo03.F b/src/tool/Utilitaire/utlo03.F index e50a5e5d..dd75aea6 100644 --- a/src/tool/Utilitaire/utlo03.F +++ b/src/tool/Utilitaire/utlo03.F @@ -58,11 +58,11 @@ c character*6 nompro parameter ( nompro = 'UTLO03' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -98,15 +98,15 @@ c c c 1.2. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "utlo00.h" -#include "utlo02.h" + include "utlo00.h" + include "utlo02.h" c nbrmin = 0 nbrmax = 1 @@ -134,7 +134,7 @@ c 2.2. ==> decodage de l'option c if ( codre0.eq.0 ) then c -#include "utlo03.h" + include "utlo03.h" c if ( loptio.eq.2 ) then c @@ -214,7 +214,7 @@ c c endif c -#include "utlo01.h" + include "utlo01.h" c c==== c 3. la fin @@ -222,7 +222,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utlo04.F b/src/tool/Utilitaire/utlo04.F index 1201476e..adf32f55 100644 --- a/src/tool/Utilitaire/utlo04.F +++ b/src/tool/Utilitaire/utlo04.F @@ -72,11 +72,11 @@ c character*6 nompro parameter ( nompro = 'UTLO04' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -113,15 +113,15 @@ c c c 1.2. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "utlo00.h" -#include "utlo02.h" + include "utlo00.h" + include "utlo02.h" c nbrmin = 0 nbrmax = 1 @@ -153,7 +153,7 @@ c 2.2. ==> decodage de l'option c if ( codre0.eq.0 ) then c -#include "utlo03.h" + include "utlo03.h" c if ( loptio.eq.3 ) then c @@ -231,7 +231,7 @@ c c endif c -#include "utlo01.h" + include "utlo01.h" c c==== c 3. la fin @@ -239,7 +239,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utlo05.F b/src/tool/Utilitaire/utlo05.F index c78e538c..791fb0c8 100644 --- a/src/tool/Utilitaire/utlo05.F +++ b/src/tool/Utilitaire/utlo05.F @@ -68,11 +68,11 @@ c character*6 nompro parameter ( nompro = 'UTLO05' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -109,15 +109,15 @@ c c c 1.2. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "utlo00.h" -#include "utlo02.h" + include "utlo00.h" + include "utlo02.h" c nbrmin = 0 nbrmax = 1 @@ -154,7 +154,7 @@ c 2.2. ==> decodage de l'option c if ( codre0.eq.0 ) then c -#include "utlo03.h" + include "utlo03.h" c if ( loptio.eq.6 ) then c @@ -211,7 +211,7 @@ c c endif c -#include "utlo01.h" + include "utlo01.h" c if ( maextr.eq.0 .and. modhom.eq.1 ) then if ( option.ne.0 ) then @@ -225,7 +225,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utlo06.F b/src/tool/Utilitaire/utlo06.F index 09dc314f..4ae62b4b 100644 --- a/src/tool/Utilitaire/utlo06.F +++ b/src/tool/Utilitaire/utlo06.F @@ -52,11 +52,11 @@ c character*6 nompro parameter ( nompro = 'UTLO06' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -92,15 +92,15 @@ c c c 1.2. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "utlo00.h" -#include "utlo02.h" + include "utlo00.h" + include "utlo02.h" c nbrmin = 0 nbrmax = 1 @@ -132,7 +132,7 @@ c 2.2. ==> decodage de l'option c if ( codre0.eq.0 ) then c -#include "utlo03.h" + include "utlo03.h" c if ( loptio.eq.2 ) then c @@ -200,7 +200,7 @@ c c endif c -#include "utlo01.h" + include "utlo01.h" c c==== c 3. la fin @@ -208,7 +208,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utlo07.F b/src/tool/Utilitaire/utlo07.F index fbdf340d..9294eac8 100644 --- a/src/tool/Utilitaire/utlo07.F +++ b/src/tool/Utilitaire/utlo07.F @@ -52,11 +52,11 @@ c character*6 nompro parameter ( nompro = 'UTLO07' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -92,15 +92,15 @@ c c c 1.2. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "utlo00.h" -#include "utlo02.h" + include "utlo00.h" + include "utlo02.h" c nbrmin = 0 nbrmax = 1 @@ -132,7 +132,7 @@ c 2.2. ==> decodage de l'option c if ( codre0.eq.0 ) then c -#include "utlo03.h" + include "utlo03.h" c if ( loptio.eq.4 ) then c 1234 @@ -162,7 +162,7 @@ c c endif c -#include "utlo01.h" + include "utlo01.h" c c==== c 3. la fin @@ -170,7 +170,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utlo08.F b/src/tool/Utilitaire/utlo08.F index e7cd477d..401a7489 100644 --- a/src/tool/Utilitaire/utlo08.F +++ b/src/tool/Utilitaire/utlo08.F @@ -59,13 +59,13 @@ c character*6 nompro parameter ( nompro = 'UTLO08' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "indefi.h" -#include "indefr.h" + include "envex1.h" + include "indefi.h" + include "indefr.h" c c 0.3. ==> arguments c @@ -102,15 +102,15 @@ c c c 1.2. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "utlo00.h" -#include "utlo02.h" + include "utlo00.h" + include "utlo02.h" c nbrmin = 0 nbrmax = 1 @@ -145,7 +145,7 @@ c 2.2.1. ==> un texte eventuel, sauf pour le numero d'ordre c if ( codre0.eq.0 ) then c -#include "utlo03.h" + include "utlo03.h" c option = 1 c @@ -209,7 +209,7 @@ c c endif c -#include "utlo01.h" + include "utlo01.h" #ifdef _DEBUG_HOMARD_ if ( codret.eq.0 ) then c @@ -239,7 +239,7 @@ c c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utlo09.F b/src/tool/Utilitaire/utlo09.F index 516cc7c5..6321eb4c 100644 --- a/src/tool/Utilitaire/utlo09.F +++ b/src/tool/Utilitaire/utlo09.F @@ -55,11 +55,11 @@ c character*6 nompro parameter ( nompro = 'UTLO09' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -95,17 +95,17 @@ c c c 1.2. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" + include "impr03.h" c -#include "utlo00.h" -#include "utlo02.h" + include "utlo00.h" + include "utlo02.h" c nbrmin = 0 nbrmax = 1 @@ -137,7 +137,7 @@ c 2.2. ==> decodage de l'option c if ( codre0.eq.0 ) then c -#include "utlo03.h" + include "utlo03.h" c if ( loptio.eq.1 ) then c 1 @@ -200,7 +200,7 @@ c c endif c -#include "utlo01.h" + include "utlo01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,90002) 'option', option @@ -212,7 +212,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utlo10.F b/src/tool/Utilitaire/utlo10.F index 55c1c3a3..23f38663 100644 --- a/src/tool/Utilitaire/utlo10.F +++ b/src/tool/Utilitaire/utlo10.F @@ -51,11 +51,11 @@ c character*6 nompro parameter ( nompro = 'UTLO10' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -87,15 +87,15 @@ c==== c codret = 0 c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "utlo00.h" -#include "utlo02.h" + include "utlo00.h" + include "utlo02.h" c nbrmin = 0 nbrmax = 1 @@ -133,7 +133,7 @@ c c endif c -#include "utlo01.h" + include "utlo01.h" c c==== c 3. la fin @@ -141,7 +141,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utlo11.F b/src/tool/Utilitaire/utlo11.F index e722eab3..261936db 100644 --- a/src/tool/Utilitaire/utlo11.F +++ b/src/tool/Utilitaire/utlo11.F @@ -55,11 +55,11 @@ c character*6 nompro parameter ( nompro = 'UTLO11' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -96,15 +96,15 @@ c c c 1.2. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "utlo00.h" -#include "utlo02.h" + include "utlo00.h" + include "utlo02.h" c nbrmin = 0 nbrmax = 1 @@ -140,7 +140,7 @@ c 2.2. ==> decodage de l'option c if ( codre0.eq.0 ) then c -#include "utlo03.h" + include "utlo03.h" c if ( loptio.eq.1 ) then c @@ -166,7 +166,7 @@ c c endif c -#include "utlo01.h" + include "utlo01.h" c c==== c 3. la fin @@ -174,7 +174,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utloea.F b/src/tool/Utilitaire/utloea.F index 234b2a1e..b9f4a1fc 100644 --- a/src/tool/Utilitaire/utloea.F +++ b/src/tool/Utilitaire/utloea.F @@ -55,11 +55,11 @@ c character*6 nompro parameter ( nompro = 'UTLOEA' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -95,15 +95,15 @@ c c c 1.2. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "utlo00.h" -#include "utlo02.h" + include "utlo00.h" + include "utlo02.h" c nbrmin = 0 nbrmax = 1 @@ -131,7 +131,7 @@ c 2.2. ==> decodage de l'option c if ( codre0.eq.0 ) then c -#include "utlo03.h" + include "utlo03.h" c if ( loptio.eq.6 ) then c @@ -161,7 +161,7 @@ c c endif c -#include "utlo01.h" + include "utlo01.h" c c==== c 3. la fin @@ -169,7 +169,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utmcc0.F b/src/tool/Utilitaire/utmcc0.F index 08240340..98ac9f1a 100644 --- a/src/tool/Utilitaire/utmcc0.F +++ b/src/tool/Utilitaire/utmcc0.F @@ -82,13 +82,13 @@ c character*6 nompro parameter ( nompro = 'UTMCC0' ) c -#include "nblang.h" -#include "motcle.h" -#include "consts.h" + include "nblang.h" + include "motcle.h" + include "consts.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -128,7 +128,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -165,7 +165,7 @@ c > '(''The characteristic of support is unknown : '',a)' texte(2,16) = '(''. Number for the associated field :'',i8)' c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,4)) nbcham @@ -605,7 +605,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utmcch.F b/src/tool/Utilitaire/utmcch.F index b3c3fadc..d87a28dc 100644 --- a/src/tool/Utilitaire/utmcch.F +++ b/src/tool/Utilitaire/utmcch.F @@ -51,11 +51,11 @@ c character*6 nompro parameter ( nompro = 'UTMCCH' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -83,7 +83,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -148,7 +148,7 @@ c if ( codret.eq.2 ) then #endif c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utmcen.F b/src/tool/Utilitaire/utmcen.F index 99c00b8a..66693f57 100644 --- a/src/tool/Utilitaire/utmcen.F +++ b/src/tool/Utilitaire/utmcen.F @@ -56,11 +56,11 @@ c character*6 nompro parameter ( nompro = 'UTMCEN' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -92,7 +92,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -173,7 +173,7 @@ c > ( codret.eq.2 .or. codret.eq.4 .or. codret.eq.5 ) ) ) then #endif c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utmcf0.F b/src/tool/Utilitaire/utmcf0.F index 1923ba78..eedf334e 100644 --- a/src/tool/Utilitaire/utmcf0.F +++ b/src/tool/Utilitaire/utmcf0.F @@ -57,11 +57,11 @@ c character*6 nompro parameter ( nompro = 'UTMCF0' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -87,7 +87,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -165,7 +165,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utmcf1.F b/src/tool/Utilitaire/utmcf1.F index bab0da93..895a5d4f 100644 --- a/src/tool/Utilitaire/utmcf1.F +++ b/src/tool/Utilitaire/utmcf1.F @@ -84,15 +84,15 @@ c character*6 nompro parameter ( nompro = 'UTMCF1' ) c -#include "nblang.h" -#include "motcle.h" + include "nblang.h" + include "motcle.h" c integer nbmcle parameter ( nbmcle = 13 ) c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -142,7 +142,7 @@ c c c 1.2. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -162,7 +162,7 @@ c texte(2,7) = '(''The type #'',i8,'' is unknown.'')' texte(2,8) = '(''The value for '',a,'' cannot be uncoded.'')' c -#include "impr03.h" + include "impr03.h" c c 123456789012345678901234 messag(1,1) = 'Cylindre ' @@ -526,7 +526,7 @@ c c call dmflsh(iaux) c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utmcf2.F b/src/tool/Utilitaire/utmcf2.F index 094ac6c5..9c0e2649 100644 --- a/src/tool/Utilitaire/utmcf2.F +++ b/src/tool/Utilitaire/utmcf2.F @@ -65,15 +65,15 @@ c character*6 nompro parameter ( nompro = 'UTMCF2' ) c -#include "nblang.h" -#include "motcle.h" + include "nblang.h" + include "motcle.h" c integer nbmcle parameter ( nbmcle = 1 ) c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -118,7 +118,7 @@ c c c 1.2. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -324,7 +324,7 @@ c c call dmflsh(iaux) c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utmcfa.F b/src/tool/Utilitaire/utmcfa.F index 681c367a..9a17fda8 100644 --- a/src/tool/Utilitaire/utmcfa.F +++ b/src/tool/Utilitaire/utmcfa.F @@ -54,19 +54,19 @@ c character*6 nompro parameter ( nompro = 'UTMCFA' ) c -#include "nblang.h" -#include "motcle.h" + include "nblang.h" + include "motcle.h" c integer nbmcle parameter ( nbmcle = 13 ) c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" -#include "gmreel.h" -#include "gmstri.h" + include "gmenti.h" + include "gmreel.h" + include "gmstri.h" c c 0.3. ==> arguments c @@ -76,7 +76,7 @@ c c c 0.4. ==> variables locales c -#include "utliob.h" + include "utliob.h" c integer codre0 integer iaux, jaux @@ -112,7 +112,7 @@ c c c 1.2. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -387,7 +387,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utmclc.F b/src/tool/Utilitaire/utmclc.F index 8c0d46a4..b6813a32 100644 --- a/src/tool/Utilitaire/utmclc.F +++ b/src/tool/Utilitaire/utmclc.F @@ -63,16 +63,16 @@ c character*6 nompro parameter ( nompro = 'UTMCLC' ) c -#include "nblang.h" -#include "motcle.h" + include "nblang.h" + include "motcle.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" -#include "gmreel.h" -#include "gmstri.h" + include "gmenti.h" + include "gmreel.h" + include "gmstri.h" c c 0.3. ==> arguments c @@ -84,7 +84,7 @@ c c c 0.4. ==> variables locales c -#include "utliob.h" + include "utliob.h" c integer codre1, codre2, codre3, codre4 integer codre0 @@ -115,7 +115,7 @@ c c c 1.2. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -300,7 +300,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utmcls.F b/src/tool/Utilitaire/utmcls.F index edfc33b7..591eae08 100644 --- a/src/tool/Utilitaire/utmcls.F +++ b/src/tool/Utilitaire/utmcls.F @@ -62,14 +62,14 @@ c character*6 nompro parameter ( nompro = 'UTMCLS' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" -#include "gmstri.h" + include "gmenti.h" + include "gmstri.h" c c 0.3. ==> arguments c @@ -108,7 +108,7 @@ c c c 1.2. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -129,7 +129,7 @@ c texte(2,7) = '(''The wanted rank is impossible.'')' texte(2,8) = '(''Structure of choices cannot be allocated.'')' c -#include "impr03.h" + include "impr03.h" c c==== c 2. recherche du nombre d'occurence du mot-cle @@ -291,7 +291,7 @@ c if ( codret.eq.2 ) then #endif c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utmcre.F b/src/tool/Utilitaire/utmcre.F index d755e1d9..8c14e3a6 100644 --- a/src/tool/Utilitaire/utmcre.F +++ b/src/tool/Utilitaire/utmcre.F @@ -50,11 +50,11 @@ c character*6 nompro parameter ( nompro = 'UTMCRE' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -84,7 +84,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -140,7 +140,7 @@ c c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" codret = 2 endif c diff --git a/src/tool/Utilitaire/utmcz0.F b/src/tool/Utilitaire/utmcz0.F index e00da6bc..fdc1a231 100644 --- a/src/tool/Utilitaire/utmcz0.F +++ b/src/tool/Utilitaire/utmcz0.F @@ -90,15 +90,15 @@ c character*6 nompro parameter ( nompro = 'UTMCZ0' ) c -#include "nblang.h" -#include "motcle.h" + include "nblang.h" + include "motcle.h" c integer nbmcle parameter ( nbmcle = 20 ) c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -146,7 +146,7 @@ c c c 1.2. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -484,7 +484,7 @@ c c call dmflsh(iaux) c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utmczr.F b/src/tool/Utilitaire/utmczr.F index 20efc0a8..0cb89b78 100644 --- a/src/tool/Utilitaire/utmczr.F +++ b/src/tool/Utilitaire/utmczr.F @@ -51,19 +51,19 @@ c character*6 nompro parameter ( nompro = 'UTMCZR' ) c -#include "nblang.h" -#include "motcle.h" + include "nblang.h" + include "motcle.h" c integer nbmcle parameter ( nbmcle = 20 ) c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" -#include "gmreel.h" -#include "gmstri.h" + include "gmenti.h" + include "gmreel.h" + include "gmstri.h" c c 0.3. ==> arguments c @@ -75,7 +75,7 @@ c c c 0.4. ==> variables locales c -#include "utliob.h" + include "utliob.h" c integer codre0 integer iaux, jaux @@ -106,7 +106,7 @@ c c c 1.2. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -256,7 +256,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utmemh.F b/src/tool/Utilitaire/utmemh.F index 6155a9fd..67550ae5 100644 --- a/src/tool/Utilitaire/utmemh.F +++ b/src/tool/Utilitaire/utmemh.F @@ -49,14 +49,14 @@ c character*6 nompro parameter ( nompro = 'UTMEMH' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "impr02.h" + include "envca1.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -91,7 +91,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -191,7 +191,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utmess.F b/src/tool/Utilitaire/utmess.F index 7786a91d..ca140889 100644 --- a/src/tool/Utilitaire/utmess.F +++ b/src/tool/Utilitaire/utmess.F @@ -48,11 +48,11 @@ c character*6 nompro parameter ( nompro = 'UTMESS' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -79,7 +79,7 @@ c==== c codret = 0 c -#include "impr01.h" + include "impr01.h" c #ifdef NEPTUNE messag(1,1) = 'Cette version est destinee exclusivement' @@ -155,7 +155,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utmfar.F b/src/tool/Utilitaire/utmfar.F index 95b2d1ac..916a9794 100644 --- a/src/tool/Utilitaire/utmfar.F +++ b/src/tool/Utilitaire/utmfar.F @@ -47,11 +47,11 @@ c character*6 nompro parameter ( nompro = 'UTMFAR' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -79,7 +79,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -91,7 +91,7 @@ c c texte(2,4) = '(5x,''Son arrays from father arrays for edges'')' c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,4)) @@ -139,7 +139,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utmfen.F b/src/tool/Utilitaire/utmfen.F index 53e6025b..42023e75 100644 --- a/src/tool/Utilitaire/utmfen.F +++ b/src/tool/Utilitaire/utmfen.F @@ -49,13 +49,13 @@ c character*6 nompro parameter ( nompro = 'UTMFEN' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" + include "gmenti.h" c c 0.3. ==> arguments c @@ -86,7 +86,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -103,7 +103,7 @@ c texte(2,6) = '(''. Number of brother entities:'',i10)' texte(2,7) = '(''. Number for adoptive mother:'',i10))' c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,4)) @@ -342,7 +342,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret c diff --git a/src/tool/Utilitaire/utmffa.F b/src/tool/Utilitaire/utmffa.F index c5c00511..e5f38296 100644 --- a/src/tool/Utilitaire/utmffa.F +++ b/src/tool/Utilitaire/utmffa.F @@ -47,12 +47,12 @@ c character*6 nompro parameter ( nompro = 'UTMFFA' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "envca1.h" + include "envex1.h" + include "envca1.h" c c 0.3. ==> arguments c @@ -81,7 +81,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -228,7 +228,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utmfv1.F b/src/tool/Utilitaire/utmfv1.F index 36a40d76..7ef818d1 100644 --- a/src/tool/Utilitaire/utmfv1.F +++ b/src/tool/Utilitaire/utmfv1.F @@ -69,15 +69,15 @@ c character*6 nompro parameter ( nompro = 'UTMFV1' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nombte.h" -#include "nombpy.h" -#include "impr02.h" + include "nombte.h" + include "nombpy.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -108,7 +108,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -132,7 +132,7 @@ c texte(2,8) = '(''Incoherence.''))' texte(2,9) = '(''. Search for the sons of'',i6,''-th '',a)' c -#include "impr03.h" + include "impr03.h" c codret = 0 c @@ -207,7 +207,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utmfvo.F b/src/tool/Utilitaire/utmfvo.F index 0fa5d816..a92cd970 100644 --- a/src/tool/Utilitaire/utmfvo.F +++ b/src/tool/Utilitaire/utmfvo.F @@ -47,13 +47,13 @@ c character*6 nompro parameter ( nompro = 'UTMFVO' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "impr02.h" -#include "gmenti.h" + include "envex1.h" + include "impr02.h" + include "gmenti.h" c c 0.3. ==> arguments c @@ -87,7 +87,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -107,7 +107,7 @@ c texte(2,7) = '(''.. No sons ..'')' texte(2,8) = '(''.. Nothing to do ..'')' c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,4)) @@ -410,7 +410,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utmmc1.F b/src/tool/Utilitaire/utmmc1.F index 5701dae0..5395f9df 100644 --- a/src/tool/Utilitaire/utmmc1.F +++ b/src/tool/Utilitaire/utmmc1.F @@ -57,12 +57,12 @@ c character*6 nompro parameter ( nompro = 'UTMMC1' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "indefr.h" + include "envex1.h" + include "indefr.h" c c 0.3. ==> arguments c @@ -90,7 +90,7 @@ c==== c c 1.1. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -168,7 +168,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utmmco.F b/src/tool/Utilitaire/utmmco.F index ec702a13..5e02beca 100644 --- a/src/tool/Utilitaire/utmmco.F +++ b/src/tool/Utilitaire/utmmco.F @@ -56,11 +56,11 @@ c character*6 nompro parameter ( nompro = 'UTMMCO' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -86,7 +86,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -174,7 +174,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utmnmj.F b/src/tool/Utilitaire/utmnmj.F index 39d22e84..411a3cc3 100644 --- a/src/tool/Utilitaire/utmnmj.F +++ b/src/tool/Utilitaire/utmnmj.F @@ -54,11 +54,11 @@ c character*6 nompro parameter ( nompro = 'UTMNMJ' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -85,7 +85,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -286,7 +286,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utmoch.F b/src/tool/Utilitaire/utmoch.F index c25685ee..be447771 100644 --- a/src/tool/Utilitaire/utmoch.F +++ b/src/tool/Utilitaire/utmoch.F @@ -61,16 +61,16 @@ c character*6 nompro parameter ( nompro = 'UTMOCH' ) c -#include "nblang.h" -#include "esutil.h" + include "nblang.h" + include "esutil.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmstri.h" -#include "gmenti.h" -#include "gmreel.h" + include "gmstri.h" + include "gmenti.h" + include "gmreel.h" c c 0.3. ==> arguments c @@ -108,7 +108,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -355,7 +355,7 @@ c c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utmopf.F b/src/tool/Utilitaire/utmopf.F index c9ec97d3..9f405abc 100644 --- a/src/tool/Utilitaire/utmopf.F +++ b/src/tool/Utilitaire/utmopf.F @@ -85,15 +85,15 @@ c character*6 nompro parameter ( nompro = 'UTMOPF' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" -#include "gmstri.h" -#include "rftmed.h" + include "gmenti.h" + include "gmstri.h" + include "rftmed.h" c c 0.3. ==> arguments c @@ -130,8 +130,8 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" -#include "impr03.h" + include "impr01.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -431,7 +431,7 @@ cgn write (ulsort,10000) c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utmoso.F b/src/tool/Utilitaire/utmoso.F index c6ab0dbd..24a9c086 100644 --- a/src/tool/Utilitaire/utmoso.F +++ b/src/tool/Utilitaire/utmoso.F @@ -63,13 +63,13 @@ c character*6 nompro parameter ( nompro = 'UTMOSO' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmstri.h" + include "gmstri.h" c c 0.3. ==> arguments c @@ -98,7 +98,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -216,7 +216,7 @@ c c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utnbmc.F b/src/tool/Utilitaire/utnbmc.F index 9445bde7..8a87f804 100644 --- a/src/tool/Utilitaire/utnbmc.F +++ b/src/tool/Utilitaire/utnbmc.F @@ -82,11 +82,11 @@ c character*6 nompro parameter ( nompro = 'UTNBMC' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -117,14 +117,14 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" + include "impr03.h" c c==== c 2. valeurs @@ -161,7 +161,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utnbmh.F b/src/tool/Utilitaire/utnbmh.F index 9339f248..c3c4f13c 100644 --- a/src/tool/Utilitaire/utnbmh.F +++ b/src/tool/Utilitaire/utnbmh.F @@ -79,11 +79,11 @@ c character*6 nompro parameter ( nompro = 'UTNBMH' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -115,14 +115,14 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" + include "impr03.h" c c==== c 2. valeurs @@ -160,7 +160,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utnc01.F b/src/tool/Utilitaire/utnc01.F index 8407ba4a..423b1120 100644 --- a/src/tool/Utilitaire/utnc01.F +++ b/src/tool/Utilitaire/utnc01.F @@ -65,19 +65,19 @@ c character*6 nompro parameter ( nompro = 'UTNC01' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "envca1.h" -#include "precis.h" -#include "ope1a3.h" -#include "impr02.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "envca1.h" + include "precis.h" + include "ope1a3.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -120,7 +120,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -574,7 +574,7 @@ c c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utnc02.F b/src/tool/Utilitaire/utnc02.F index 15e89838..eafed91c 100644 --- a/src/tool/Utilitaire/utnc02.F +++ b/src/tool/Utilitaire/utnc02.F @@ -55,14 +55,14 @@ c character*6 nompro parameter ( nompro = 'UTNC02' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nombar.h" -#include "impr02.h" + include "nombar.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -89,7 +89,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -164,7 +164,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utnc03.F b/src/tool/Utilitaire/utnc03.F index 01bdeb29..b1399199 100644 --- a/src/tool/Utilitaire/utnc03.F +++ b/src/tool/Utilitaire/utnc03.F @@ -75,14 +75,14 @@ c character*6 nompro parameter ( nompro = 'UTNC03' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "impr02.h" -#include "envex1.h" + include "impr02.h" + include "envex1.h" c -#include "nombar.h" + include "nombar.h" c c 0.3. ==> arguments c @@ -116,7 +116,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -433,7 +433,7 @@ cgn 5555 format(10i8) c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utnc04.F b/src/tool/Utilitaire/utnc04.F index a20c4f10..084f233b 100644 --- a/src/tool/Utilitaire/utnc04.F +++ b/src/tool/Utilitaire/utnc04.F @@ -73,20 +73,20 @@ c character*6 nompro parameter ( nompro = 'UTNC04' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "envca1.h" -#include "dicfen.h" -#include "nbutil.h" -#include "nombsr.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "envca1.h" + include "dicfen.h" + include "nbutil.h" + include "nombsr.h" c c 0.3. ==> arguments c @@ -125,7 +125,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -412,7 +412,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utnc05.F b/src/tool/Utilitaire/utnc05.F index be7384a5..20d9f17e 100644 --- a/src/tool/Utilitaire/utnc05.F +++ b/src/tool/Utilitaire/utnc05.F @@ -68,15 +68,15 @@ c character*6 nompro parameter ( nompro = 'UTNC05' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "impr02.h" -#include "envex1.h" + include "impr02.h" + include "envex1.h" c -#include "nombno.h" -#include "nombar.h" + include "nombno.h" + include "nombar.h" c c 0.3. ==> arguments c @@ -108,7 +108,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -346,7 +346,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utnc06.F b/src/tool/Utilitaire/utnc06.F index 773f2bb1..784b71db 100644 --- a/src/tool/Utilitaire/utnc06.F +++ b/src/tool/Utilitaire/utnc06.F @@ -69,19 +69,19 @@ c character*6 nompro parameter ( nompro = 'UTNC06' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "impr02.h" -#include "envex1.h" + include "impr02.h" + include "envex1.h" c -#include "nombno.h" -#include "nombmp.h" -#include "nombar.h" -#include "envca1.h" -#include "dicfen.h" -#include "nombsr.h" + include "nombno.h" + include "nombmp.h" + include "nombar.h" + include "envca1.h" + include "dicfen.h" + include "nombsr.h" c c 0.3. ==> arguments c @@ -119,7 +119,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -355,7 +355,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utnc07.F b/src/tool/Utilitaire/utnc07.F index 5c3d48a9..d5dae3ad 100644 --- a/src/tool/Utilitaire/utnc07.F +++ b/src/tool/Utilitaire/utnc07.F @@ -58,14 +58,14 @@ c character*6 nompro parameter ( nompro = 'UTNC07' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nombno.h" -#include "nombar.h" + include "nombno.h" + include "nombar.h" c c 0.3. ==> arguments c @@ -97,7 +97,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -173,7 +173,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utnc08.F b/src/tool/Utilitaire/utnc08.F index d12c8dda..9ab25481 100644 --- a/src/tool/Utilitaire/utnc08.F +++ b/src/tool/Utilitaire/utnc08.F @@ -57,16 +57,16 @@ c character*6 nompro parameter ( nompro = 'UTNC08' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" + include "gmenti.h" c -#include "nombtr.h" -#include "nombqu.h" + include "nombtr.h" + include "nombqu.h" c c 0.3. ==> arguments c @@ -99,7 +99,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -294,7 +294,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utnc09.F b/src/tool/Utilitaire/utnc09.F index cc96dcb6..7a1aec1a 100644 --- a/src/tool/Utilitaire/utnc09.F +++ b/src/tool/Utilitaire/utnc09.F @@ -61,15 +61,15 @@ c character*6 nompro parameter ( nompro = 'UTNC09' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" c c 0.3. ==> arguments c @@ -101,7 +101,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -185,7 +185,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utnc11.F b/src/tool/Utilitaire/utnc11.F index 0b7016cf..7d5c7b5c 100644 --- a/src/tool/Utilitaire/utnc11.F +++ b/src/tool/Utilitaire/utnc11.F @@ -68,15 +68,15 @@ c character*6 nompro parameter ( nompro = 'UTNC11' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "impr02.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" + include "envex1.h" + include "impr02.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" c c 0.3. ==> arguments c @@ -112,7 +112,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -223,7 +223,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utnc12.F b/src/tool/Utilitaire/utnc12.F index 581f098f..91cdce60 100644 --- a/src/tool/Utilitaire/utnc12.F +++ b/src/tool/Utilitaire/utnc12.F @@ -67,17 +67,17 @@ c character*6 nompro parameter ( nompro = 'UTNC12' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "ope1a4.h" -#include "impr02.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" + include "ope1a4.h" + include "impr02.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" c c 0.3. ==> arguments c @@ -115,7 +115,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -286,7 +286,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utnc13.F b/src/tool/Utilitaire/utnc13.F index da5308a0..798bca7b 100644 --- a/src/tool/Utilitaire/utnc13.F +++ b/src/tool/Utilitaire/utnc13.F @@ -73,16 +73,16 @@ c character*6 nompro parameter ( nompro = 'UTNC13' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "ope1a4.h" -#include "impr02.h" -#include "nombar.h" -#include "nombqu.h" + include "ope1a4.h" + include "impr02.h" + include "nombar.h" + include "nombqu.h" c c 0.3. ==> arguments c @@ -123,7 +123,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -512,7 +512,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utnc14.F b/src/tool/Utilitaire/utnc14.F index a1d1d408..ff9749bd 100644 --- a/src/tool/Utilitaire/utnc14.F +++ b/src/tool/Utilitaire/utnc14.F @@ -64,16 +64,16 @@ c character*6 nompro parameter ( nompro = 'UTNC14' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nombqu.h" -#include "nombhe.h" -#include "dicfen.h" -#include "nombsr.h" + include "nombqu.h" + include "nombhe.h" + include "dicfen.h" + include "nombsr.h" c c 0.3. ==> arguments c @@ -107,7 +107,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -275,7 +275,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utnc15.F b/src/tool/Utilitaire/utnc15.F index f55267c5..6aa7c113 100644 --- a/src/tool/Utilitaire/utnc15.F +++ b/src/tool/Utilitaire/utnc15.F @@ -55,16 +55,16 @@ c character*6 nompro parameter ( nompro = 'UTNC15' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "impr02.h" -#include "nombno.h" -#include "nombar.h" -#include "nombqu.h" + include "impr02.h" + include "nombno.h" + include "nombar.h" + include "nombqu.h" c c 0.3. ==> arguments c @@ -100,7 +100,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -123,7 +123,7 @@ c texte(2,9) = '(''That node does not belong to '',a)' texte(2,10) = '(''Common '',a,'' :'',i10)' c -#include "impr03.h" + include "impr03.h" c codret = 0 c @@ -400,7 +400,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utnc16.F b/src/tool/Utilitaire/utnc16.F index ae1c1543..7ac572d1 100644 --- a/src/tool/Utilitaire/utnc16.F +++ b/src/tool/Utilitaire/utnc16.F @@ -64,19 +64,19 @@ c character*6 nompro parameter ( nompro = 'UTNC16' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "ope1a4.h" -#include "j1234j.h" -#include "impr02.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombhe.h" + include "ope1a4.h" + include "j1234j.h" + include "impr02.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombhe.h" c c 0.3. ==> arguments c @@ -116,7 +116,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -470,7 +470,7 @@ c c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utnhex.F b/src/tool/Utilitaire/utnhex.F index 1db76518..9246a7f2 100644 --- a/src/tool/Utilitaire/utnhex.F +++ b/src/tool/Utilitaire/utnhex.F @@ -45,8 +45,8 @@ c c c 0.2. ==> communs c -#include "nombqu.h" -#include "nombhe.h" + include "nombqu.h" + include "nombhe.h" c c 0.3. ==> arguments c @@ -64,7 +64,7 @@ c c c 0.5. ==> initialisations c -#include "impr03.h" + include "impr03.h" c cgn write(*,90002) 'nbhema, nbhecf, nbheto', nbhema, nbhecf, nbheto cgn write(*,90002) 'nbheco', nbheco diff --git a/src/tool/Utilitaire/utniqu.F b/src/tool/Utilitaire/utniqu.F index 3df94276..e8ba3859 100644 --- a/src/tool/Utilitaire/utniqu.F +++ b/src/tool/Utilitaire/utniqu.F @@ -71,12 +71,12 @@ c implicit none save c -#include "fractb.h" -#include "fractc.h" + include "fractb.h" + include "fractc.h" c c 0.2. ==> communs c -#include "envca1.h" + include "envca1.h" c c 0.3. ==> arguments c @@ -109,7 +109,7 @@ c integer saiaj, sajak, sakal, salai integer ni c -#include "impr03.h" + include "impr03.h" c ______________________________________________________________________ c c==== diff --git a/src/tool/Utilitaire/utnitr.F b/src/tool/Utilitaire/utnitr.F index b0ea11f7..4755389d 100644 --- a/src/tool/Utilitaire/utnitr.F +++ b/src/tool/Utilitaire/utnitr.F @@ -66,12 +66,12 @@ c implicit none save c -#include "fractb.h" + include "fractb.h" c c 0.2. ==> communs c -#include "envca1.h" -#include "ope1a3.h" + include "envca1.h" + include "ope1a3.h" c c 0.3. ==> arguments c @@ -99,7 +99,7 @@ c integer etan, etanp1 integer lesomm c -#include "impr03.h" + include "impr03.h" c ______________________________________________________________________ c c==== diff --git a/src/tool/Utilitaire/utnmhe.F b/src/tool/Utilitaire/utnmhe.F index a53d1c91..11f56e6b 100644 --- a/src/tool/Utilitaire/utnmhe.F +++ b/src/tool/Utilitaire/utnmhe.F @@ -60,11 +60,11 @@ c c c 0.2. ==> communs c -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombpy.h" -#include "nombhe.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombpy.h" + include "nombhe.h" c c 0.3. ==> arguments c diff --git a/src/tool/Utilitaire/utnmpe.F b/src/tool/Utilitaire/utnmpe.F index d25a6704..73c798bf 100644 --- a/src/tool/Utilitaire/utnmpe.F +++ b/src/tool/Utilitaire/utnmpe.F @@ -58,11 +58,11 @@ c c c 0.2. ==> communs c -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombpy.h" -#include "nombpe.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombpy.h" + include "nombpe.h" c c 0.3. ==> arguments c diff --git a/src/tool/Utilitaire/utnmqu.F b/src/tool/Utilitaire/utnmqu.F index c6814cc8..b1a81163 100644 --- a/src/tool/Utilitaire/utnmqu.F +++ b/src/tool/Utilitaire/utnmqu.F @@ -44,7 +44,7 @@ c c c 0.2. ==> communs c -#include "nombqu.h" + include "nombqu.h" c c 0.3. ==> arguments c diff --git a/src/tool/Utilitaire/utnoad.F b/src/tool/Utilitaire/utnoad.F index 70632963..880ae6d3 100644 --- a/src/tool/Utilitaire/utnoad.F +++ b/src/tool/Utilitaire/utnoad.F @@ -54,11 +54,11 @@ c implicit none save c -#include "fracta.h" + include "fracta.h" c c 0.2. ==> communs c -#include "envca1.h" + include "envca1.h" c c 0.3. ==> arguments c @@ -74,7 +74,7 @@ c 0.4. ==> variables locales c integer larete, s1, s2 c -#include "impr03.h" + include "impr03.h" c ______________________________________________________________________ c c creation des noeuds p2 sur les nouvelles aretes diff --git a/src/tool/Utilitaire/utnomc.F b/src/tool/Utilitaire/utnomc.F index 6d83c524..248f0cea 100644 --- a/src/tool/Utilitaire/utnomc.F +++ b/src/tool/Utilitaire/utnomc.F @@ -93,11 +93,11 @@ c character*6 nompro parameter ( nompro = 'UTNOMC' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -130,7 +130,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -228,7 +228,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utnomh.F b/src/tool/Utilitaire/utnomh.F index 9bd381c0..79f61171 100644 --- a/src/tool/Utilitaire/utnomh.F +++ b/src/tool/Utilitaire/utnomh.F @@ -129,12 +129,12 @@ c character*6 nompro parameter ( nompro = 'UTNOMH' ) c -#include "nblang.h" -#include "consts.h" + include "nblang.h" + include "consts.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -174,7 +174,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -193,7 +193,7 @@ c texte(2,7) = '(''.. The object name is strange.'')' texte(2,8) = '(''A branch is undefined.'')' c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,4)) nomail @@ -448,7 +448,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utnpen.F b/src/tool/Utilitaire/utnpen.F index bbe6674c..6319c047 100644 --- a/src/tool/Utilitaire/utnpen.F +++ b/src/tool/Utilitaire/utnpen.F @@ -46,9 +46,9 @@ c c c 0.2. ==> communs c -#include "nombtr.h" -#include "nombqu.h" -#include "nombpe.h" + include "nombtr.h" + include "nombqu.h" + include "nombpe.h" c c 0.3. ==> arguments c @@ -66,7 +66,7 @@ c c c 0.5. ==> initialisations c -#include "impr03.h" + include "impr03.h" c cgn write(*,90002) 'nbpema, nbpecf, nbpeto', nbpema, nbpecf, nbpeto cgn write(*,90002) 'nbheco', nbheco diff --git a/src/tool/Utilitaire/utnpyr.F b/src/tool/Utilitaire/utnpyr.F index 32084a37..7482dc1c 100644 --- a/src/tool/Utilitaire/utnpyr.F +++ b/src/tool/Utilitaire/utnpyr.F @@ -53,11 +53,11 @@ c c c 0.2. ==> communs c -#include "nombtr.h" -#include "nombqu.h" -#include "nombhe.h" -#include "nombpe.h" -#include "nombpy.h" + include "nombtr.h" + include "nombqu.h" + include "nombhe.h" + include "nombpe.h" + include "nombpy.h" c c 0.3. ==> arguments c @@ -77,7 +77,7 @@ c c c 0.5. ==> initialisations c -#include "impr03.h" + include "impr03.h" c c==== c 1. Determination du niveau diff --git a/src/tool/Utilitaire/utntet.F b/src/tool/Utilitaire/utntet.F index 3c6465ff..5f1ee2a4 100644 --- a/src/tool/Utilitaire/utntet.F +++ b/src/tool/Utilitaire/utntet.F @@ -53,11 +53,11 @@ c c c 0.2. ==> communs c -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombhe.h" -#include "nombpe.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombhe.h" + include "nombpe.h" c c 0.3. ==> arguments c @@ -77,7 +77,7 @@ c c c 0.5. ==> initialisations c -#include "impr03.h" + include "impr03.h" c c==== c 1. Determination du niveau diff --git a/src/tool/Utilitaire/utntri.F b/src/tool/Utilitaire/utntri.F index 334f5ad5..ba34a2c1 100644 --- a/src/tool/Utilitaire/utntri.F +++ b/src/tool/Utilitaire/utntri.F @@ -45,10 +45,10 @@ c c c 0.2. ==> communs c -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "envca1.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "envca1.h" c c 0.3. ==> arguments c diff --git a/src/tool/Utilitaire/utnvaf.F b/src/tool/Utilitaire/utnvaf.F index ab7373f7..a8b55b9b 100644 --- a/src/tool/Utilitaire/utnvaf.F +++ b/src/tool/Utilitaire/utnvaf.F @@ -52,16 +52,16 @@ c character*6 nompro parameter ( nompro = 'UTNVAF' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "impr02.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -88,7 +88,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -148,7 +148,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utora3.F b/src/tool/Utilitaire/utora3.F index 921eebf2..915608d2 100644 --- a/src/tool/Utilitaire/utora3.F +++ b/src/tool/Utilitaire/utora3.F @@ -69,16 +69,16 @@ c character*6 nompro parameter ( nompro = 'UTORA3' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "nombno.h" -#include "nombar.h" -#include "impr02.h" + include "envca1.h" + include "nombno.h" + include "nombar.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -110,14 +110,14 @@ c 1. initialisations c==== c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" + include "impr03.h" c codret = 0 c @@ -230,7 +230,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utora4.F b/src/tool/Utilitaire/utora4.F index 5edfa9f8..84a62a82 100644 --- a/src/tool/Utilitaire/utora4.F +++ b/src/tool/Utilitaire/utora4.F @@ -69,16 +69,16 @@ c character*6 nompro parameter ( nompro = 'UTORA3' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "nombno.h" -#include "nombar.h" -#include "impr02.h" + include "envca1.h" + include "nombno.h" + include "nombar.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -105,14 +105,14 @@ c 1. initialisations c==== c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" + include "impr03.h" c codret = 0 c @@ -240,7 +240,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utosde.F b/src/tool/Utilitaire/utosde.F index afb165ad..01a1c3a9 100644 --- a/src/tool/Utilitaire/utosde.F +++ b/src/tool/Utilitaire/utosde.F @@ -46,11 +46,11 @@ c character*6 nompro parameter ( nompro = 'UTOSDE' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "gmstri.h" + include "gmstri.h" c c 0.3. ==> arguments c @@ -60,7 +60,7 @@ c c c 0.4. ==> variables locales c -#include "utliob.h" + include "utliob.h" c integer iaux integer adnore @@ -79,7 +79,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro diff --git a/src/tool/Utilitaire/utosme.F b/src/tool/Utilitaire/utosme.F index 9b93fe10..1208a380 100644 --- a/src/tool/Utilitaire/utosme.F +++ b/src/tool/Utilitaire/utosme.F @@ -43,8 +43,8 @@ c character*6 nompro parameter ( nompro = 'UTOSME' ) c -#include "nblang.h" -#include "motcle.h" + include "nblang.h" + include "motcle.h" c c 0.2. ==> communs c @@ -69,7 +69,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro diff --git a/src/tool/Utilitaire/utosno.F b/src/tool/Utilitaire/utosno.F index b75859e1..0d32f436 100644 --- a/src/tool/Utilitaire/utosno.F +++ b/src/tool/Utilitaire/utosno.F @@ -51,11 +51,11 @@ c character*6 nompro parameter ( nompro = 'UTOSNO' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "gmstri.h" + include "gmstri.h" c c 0.3. ==> arguments c @@ -68,7 +68,7 @@ c c c 0.4. ==> variables locales c -#include "utliob.h" + include "utliob.h" c integer iaux integer adnore, adnoos @@ -87,7 +87,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro diff --git a/src/tool/Utilitaire/utpd10.F b/src/tool/Utilitaire/utpd10.F index f9ad14e6..8182e2f0 100644 --- a/src/tool/Utilitaire/utpd10.F +++ b/src/tool/Utilitaire/utpd10.F @@ -51,12 +51,12 @@ c character*6 nompro parameter ( nompro = 'UTPD10' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "infini.h" + include "envex1.h" + include "infini.h" c c 0.3. ==> arguments c @@ -85,7 +85,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -155,7 +155,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utplco.F b/src/tool/Utilitaire/utplco.F index a600fa30..6359fead 100644 --- a/src/tool/Utilitaire/utplco.F +++ b/src/tool/Utilitaire/utplco.F @@ -85,22 +85,22 @@ c character*6 nompro parameter ( nompro = 'UTPLCO' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombhe.h" -#include "nombpy.h" -#include "nombpe.h" -#include "nouvnb.h" -#include "impr02.h" + include "envca1.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombhe.h" + include "nombpy.h" + include "nombpe.h" + include "nouvnb.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -147,7 +147,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -159,7 +159,7 @@ c 1234567890123456789012345678901234567890 c mess40(2,1) = ' Number of entities of the new mesh ' c -#include "impr03.h" + include "impr03.h" c cgn write(ulsort,91040) decare c @@ -879,7 +879,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utplra.F b/src/tool/Utilitaire/utplra.F index 8e010705..77f056ab 100644 --- a/src/tool/Utilitaire/utplra.F +++ b/src/tool/Utilitaire/utplra.F @@ -101,23 +101,23 @@ c character*6 nompro parameter ( nompro = 'UTPLRA' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "envca1.h" -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombhe.h" -#include "nombpe.h" -#include "nombpy.h" -#include "nouvnb.h" -#include "impr02.h" + include "envca1.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombhe.h" + include "nombpe.h" + include "nombpy.h" + include "nouvnb.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -166,7 +166,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -180,7 +180,7 @@ c mess40(2,1) = ' Number of permanent entities of ' mess40(2,2) = ' the new mesh ' c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ opti00 = .True. @@ -600,7 +600,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utpmhe.F b/src/tool/Utilitaire/utpmhe.F index 3fc4dc77..a660f655 100644 --- a/src/tool/Utilitaire/utpmhe.F +++ b/src/tool/Utilitaire/utpmhe.F @@ -52,10 +52,10 @@ c c c 0.2. ==> communs c -#include "nombno.h" -#include "nombar.h" -#include "nombqu.h" -#include "nombhe.h" + include "nombno.h" + include "nombar.h" + include "nombqu.h" + include "nombhe.h" c c 0.3. ==> arguments c diff --git a/src/tool/Utilitaire/utpmte.F b/src/tool/Utilitaire/utpmte.F index 3d168255..14d53e1d 100644 --- a/src/tool/Utilitaire/utpmte.F +++ b/src/tool/Utilitaire/utpmte.F @@ -49,10 +49,10 @@ c c c 0.2. ==> communs c -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombte.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombte.h" c c 0.3. ==> arguments c diff --git a/src/tool/Utilitaire/utppqt.F b/src/tool/Utilitaire/utppqt.F index daf3e0fa..f3972e39 100644 --- a/src/tool/Utilitaire/utppqt.F +++ b/src/tool/Utilitaire/utppqt.F @@ -83,12 +83,12 @@ c character*6 nompro parameter ( nompro = 'UTPPQT' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "impr02.h" + include "envex1.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -126,7 +126,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -143,7 +143,7 @@ c texte(2,6) = '(/,a,i10,'' has more than 2 neighbours ?'')' texte(2,7) = '(''Neighbours :'',3i10,/)' c -#include "impr03.h" + include "impr03.h" c codret = 0 c @@ -484,7 +484,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utpr01.F b/src/tool/Utilitaire/utpr01.F index 45dd6b5f..d9f76559 100644 --- a/src/tool/Utilitaire/utpr01.F +++ b/src/tool/Utilitaire/utpr01.F @@ -64,11 +64,11 @@ c character*6 nompro parameter ( nompro = 'UTPR01' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -99,7 +99,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -200,7 +200,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utpr02.F b/src/tool/Utilitaire/utpr02.F index cd95f9d6..eacf0c9e 100644 --- a/src/tool/Utilitaire/utpr02.F +++ b/src/tool/Utilitaire/utpr02.F @@ -74,11 +74,11 @@ c character*6 nompro parameter ( nompro = 'UTPR02' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -108,7 +108,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -129,7 +129,7 @@ c texte(2,8) = '(''... First value(s): '',5i10)' texte(2,9) = '(''... Last value(s) : '',5i10)' c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,4)) option @@ -254,7 +254,7 @@ c cgn write (ulsort,*)nompro//'-profil',(profil(iaux),iaux=1,nbentn) if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utpr03.F b/src/tool/Utilitaire/utpr03.F index 8f72c8b5..d12fa665 100644 --- a/src/tool/Utilitaire/utpr03.F +++ b/src/tool/Utilitaire/utpr03.F @@ -65,13 +65,13 @@ c character*6 nompro parameter ( nompro = 'UTPR03' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" + include "gmenti.h" c c 0.3. ==> arguments c @@ -105,7 +105,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -226,7 +226,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utpr04.F b/src/tool/Utilitaire/utpr04.F index 67dad6a4..d2b301ef 100644 --- a/src/tool/Utilitaire/utpr04.F +++ b/src/tool/Utilitaire/utpr04.F @@ -57,13 +57,13 @@ c character*6 nompro parameter ( nompro = 'UTPR04' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" + include "gmenti.h" c c 0.3. ==> arguments c @@ -92,7 +92,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -241,7 +241,7 @@ c c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utpr05.F b/src/tool/Utilitaire/utpr05.F index c48dc689..35fb93d1 100644 --- a/src/tool/Utilitaire/utpr05.F +++ b/src/tool/Utilitaire/utpr05.F @@ -72,13 +72,13 @@ c character*6 nompro parameter ( nompro = 'UTPR05' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" + include "gmenti.h" c c 0.3. ==> arguments c @@ -112,7 +112,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -129,7 +129,7 @@ c texte(2,5) = > '(''Creation of long profile at stage '',a1,'': '',a)' c -#include "impr03.h" + include "impr03.h" cgn write (ulsort,*)nompro//'-neneic' cgn write (ulsort,91020)(neneic(iaux),iaux=1,lgneic/2) c @@ -227,7 +227,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utpr06.F b/src/tool/Utilitaire/utpr06.F index 13ab4d1a..c2122d58 100644 --- a/src/tool/Utilitaire/utpr06.F +++ b/src/tool/Utilitaire/utpr06.F @@ -67,13 +67,13 @@ c character*6 nompro parameter ( nompro = 'UTPR06' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" + include "gmenti.h" c c 0.3. ==> arguments c @@ -106,7 +106,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -123,7 +123,7 @@ c texte(2,5) = > '(''Creation of long profile at stage '',a1,'': '',a)' c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,90002) 'option', option @@ -224,7 +224,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utqco2.F b/src/tool/Utilitaire/utqco2.F index dab852af..6629eb32 100644 --- a/src/tool/Utilitaire/utqco2.F +++ b/src/tool/Utilitaire/utqco2.F @@ -58,10 +58,10 @@ c c c 0.2. ==> communs c -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombte.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombte.h" c c 0.3. ==> arguments c diff --git a/src/tool/Utilitaire/utqhex.F b/src/tool/Utilitaire/utqhex.F index 4be5c954..e7c8abb9 100644 --- a/src/tool/Utilitaire/utqhex.F +++ b/src/tool/Utilitaire/utqhex.F @@ -54,15 +54,15 @@ c implicit none save c -#include "fractc.h" -#include "fractf.h" + include "fractc.h" + include "fractf.h" c c 0.2. ==> communs c -#include "nombno.h" -#include "nombar.h" -#include "nombqu.h" -#include "nombhe.h" + include "nombno.h" + include "nombar.h" + include "nombqu.h" + include "nombhe.h" c c 0.3. ==> arguments c diff --git a/src/tool/Utilitaire/utqjno.F b/src/tool/Utilitaire/utqjno.F index 48616b40..1ad12514 100644 --- a/src/tool/Utilitaire/utqjno.F +++ b/src/tool/Utilitaire/utqjno.F @@ -51,9 +51,9 @@ c c c 0.2. ==> communs c -#include "nombno.h" -#include "nombar.h" -#include "infini.h" + include "nombno.h" + include "nombar.h" + include "infini.h" c c 0.3. ==> arguments c @@ -79,7 +79,7 @@ c c 0.5. ==> initialisations c ______________________________________________________________________ c -#include "impr03.h" + include "impr03.h" c c==== c 1. Parcours diff --git a/src/tool/Utilitaire/utqpen.F b/src/tool/Utilitaire/utqpen.F index 834fd9c3..97185ae9 100644 --- a/src/tool/Utilitaire/utqpen.F +++ b/src/tool/Utilitaire/utqpen.F @@ -54,10 +54,10 @@ c c c 0.2. ==> communs c -#include "nombno.h" -#include "nombar.h" -#include "nombqu.h" -#include "nombpe.h" + include "nombno.h" + include "nombar.h" + include "nombqu.h" + include "nombpe.h" c c 0.3. ==> arguments c diff --git a/src/tool/Utilitaire/utqpyr.F b/src/tool/Utilitaire/utqpyr.F index 0aa87e57..142cf8cd 100644 --- a/src/tool/Utilitaire/utqpyr.F +++ b/src/tool/Utilitaire/utqpyr.F @@ -54,10 +54,10 @@ c c c 0.2. ==> communs c -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombpy.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombpy.h" c c 0.3. ==> arguments c diff --git a/src/tool/Utilitaire/utqqu0.F b/src/tool/Utilitaire/utqqu0.F index 84519201..7f49cb28 100644 --- a/src/tool/Utilitaire/utqqu0.F +++ b/src/tool/Utilitaire/utqqu0.F @@ -79,8 +79,8 @@ c c logical prem c -#include "fracta.h" -#include "fractc.h" + include "fracta.h" + include "fractc.h" c c 0.5. ==> initialisations c diff --git a/src/tool/Utilitaire/utqqua.F b/src/tool/Utilitaire/utqqua.F index 2a242118..b1c1b4f5 100644 --- a/src/tool/Utilitaire/utqqua.F +++ b/src/tool/Utilitaire/utqqua.F @@ -67,14 +67,14 @@ c character*6 nompro parameter ( nompro = 'UTQQUA' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "nombno.h" -#include "nombar.h" -#include "nombqu.h" -#include "envca1.h" + include "nombno.h" + include "nombar.h" + include "nombqu.h" + include "envca1.h" c c 0.3. ==> arguments c diff --git a/src/tool/Utilitaire/utqte2.F b/src/tool/Utilitaire/utqte2.F index 1677198c..27c77063 100644 --- a/src/tool/Utilitaire/utqte2.F +++ b/src/tool/Utilitaire/utqte2.F @@ -46,8 +46,8 @@ c c c 0.2. ==> communs c -#include "nombno.h" -#include "fracte.h" + include "nombno.h" + include "fracte.h" c c 0.3. ==> arguments c diff --git a/src/tool/Utilitaire/utqtet.F b/src/tool/Utilitaire/utqtet.F index 81177d62..79c00bfe 100644 --- a/src/tool/Utilitaire/utqtet.F +++ b/src/tool/Utilitaire/utqtet.F @@ -93,15 +93,15 @@ c implicit none save c -#include "fractl.h" -#include "fracte.h" + include "fractl.h" + include "fracte.h" c c 0.2. ==> communs c -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombte.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombte.h" c c 0.3. ==> arguments c diff --git a/src/tool/Utilitaire/utqtr0.F b/src/tool/Utilitaire/utqtr0.F index 36b8ab26..e89f74fd 100644 --- a/src/tool/Utilitaire/utqtr0.F +++ b/src/tool/Utilitaire/utqtr0.F @@ -82,8 +82,8 @@ c c logical prem c -#include "fract0.h" -#include "fracta.h" + include "fract0.h" + include "fracta.h" c c 0.5. ==> initialisations c diff --git a/src/tool/Utilitaire/utqtri.F b/src/tool/Utilitaire/utqtri.F index 8aa8c914..3b2ba181 100644 --- a/src/tool/Utilitaire/utqtri.F +++ b/src/tool/Utilitaire/utqtri.F @@ -49,10 +49,10 @@ c c c 0.2. ==> communs c -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "envca1.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "envca1.h" c c 0.3. ==> arguments c diff --git a/src/tool/Utilitaire/utqun2.F b/src/tool/Utilitaire/utqun2.F index c02b307a..7d029501 100644 --- a/src/tool/Utilitaire/utqun2.F +++ b/src/tool/Utilitaire/utqun2.F @@ -64,7 +64,7 @@ cgn parameter ( nompro = 'UTTRN2' ) c c 0.2. ==> communs c -#include "precis.h" + include "precis.h" c c 0.3. ==> arguments c diff --git a/src/tool/Utilitaire/utqure.F b/src/tool/Utilitaire/utqure.F index 89516ee0..cbbcd621 100644 --- a/src/tool/Utilitaire/utqure.F +++ b/src/tool/Utilitaire/utqure.F @@ -63,11 +63,11 @@ c character*6 nompro parameter ( nompro = 'UTQURE' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -99,7 +99,7 @@ c 1. initialisations c==== c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -262,7 +262,7 @@ c c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utre01.F b/src/tool/Utilitaire/utre01.F index 9b08154a..4d0fd1c0 100644 --- a/src/tool/Utilitaire/utre01.F +++ b/src/tool/Utilitaire/utre01.F @@ -71,13 +71,13 @@ c character*6 nompro parameter ( nompro = 'UTRE01' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "enti01.h" -#include "impr02.h" + include "envex1.h" + include "enti01.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -114,7 +114,7 @@ c==== c c 1.1. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -222,7 +222,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utre02.F b/src/tool/Utilitaire/utre02.F index 284cbf59..e8ecb7bf 100644 --- a/src/tool/Utilitaire/utre02.F +++ b/src/tool/Utilitaire/utre02.F @@ -68,13 +68,13 @@ c character*6 nompro parameter ( nompro = 'UTRE02' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "enti01.h" -#include "impr02.h" + include "envex1.h" + include "enti01.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -111,7 +111,7 @@ c==== c c 1.1. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -195,7 +195,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utre03.F b/src/tool/Utilitaire/utre03.F index 0ff07b33..09ed5ea1 100644 --- a/src/tool/Utilitaire/utre03.F +++ b/src/tool/Utilitaire/utre03.F @@ -72,13 +72,13 @@ c character*6 nompro parameter ( nompro = 'UTRE03' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "enti01.h" -#include "impr02.h" + include "envex1.h" + include "enti01.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -112,7 +112,7 @@ c==== c c 1.1. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -263,7 +263,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utre04.F b/src/tool/Utilitaire/utre04.F index eff9f0b0..8269c395 100644 --- a/src/tool/Utilitaire/utre04.F +++ b/src/tool/Utilitaire/utre04.F @@ -67,12 +67,12 @@ c character*6 nompro parameter ( nompro = 'UTRE04' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "impr02.h" + include "envex1.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -105,7 +105,7 @@ c==== c c 1.1. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -172,7 +172,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utrech.F b/src/tool/Utilitaire/utrech.F index dfe30896..d01665fb 100644 --- a/src/tool/Utilitaire/utrech.F +++ b/src/tool/Utilitaire/utrech.F @@ -59,11 +59,11 @@ c character*6 nompro parameter ( nompro = 'UTENCH' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -98,7 +98,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -169,7 +169,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret write (ulsort,texte(langue,10)) reel diff --git a/src/tool/Utilitaire/utrptc.F b/src/tool/Utilitaire/utrptc.F index d302bc06..6cf36fc5 100644 --- a/src/tool/Utilitaire/utrptc.F +++ b/src/tool/Utilitaire/utrptc.F @@ -54,11 +54,11 @@ c character*6 nompro parameter ( nompro = 'UTRPTC' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -88,7 +88,7 @@ c==== c c 1.1. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -123,7 +123,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/uts8ch.F b/src/tool/Utilitaire/uts8ch.F index 8635bde8..d6989b19 100644 --- a/src/tool/Utilitaire/uts8ch.F +++ b/src/tool/Utilitaire/uts8ch.F @@ -66,11 +66,11 @@ c character*6 nompro parameter ( nompro = 'UTS8CH' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -97,7 +97,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -153,7 +153,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret write (ulsort,texte(langue,4)) lencha diff --git a/src/tool/Utilitaire/utsen2.F b/src/tool/Utilitaire/utsen2.F index 39eef793..16cf0949 100644 --- a/src/tool/Utilitaire/utsen2.F +++ b/src/tool/Utilitaire/utsen2.F @@ -56,7 +56,7 @@ cgn parameter ( nompro = 'UTSEN2' ) c c 0.2. ==> communs c -#include "precis.h" + include "precis.h" c c 0.3. ==> arguments c diff --git a/src/tool/Utilitaire/utsen3.F b/src/tool/Utilitaire/utsen3.F index abe769c2..0b77a497 100644 --- a/src/tool/Utilitaire/utsen3.F +++ b/src/tool/Utilitaire/utsen3.F @@ -57,7 +57,7 @@ cgn parameter ( nompro = 'UTSEN3' ) c c 0.2. ==> communs c -#include "precis.h" + include "precis.h" c c 0.3. ==> arguments c diff --git a/src/tool/Utilitaire/utsex0.F b/src/tool/Utilitaire/utsex0.F index 72001237..96d431cd 100644 --- a/src/tool/Utilitaire/utsex0.F +++ b/src/tool/Utilitaire/utsex0.F @@ -50,19 +50,19 @@ c character*6 nompro parameter ( nompro = 'UTSEX0' ) c -#include "nblang.h" -#include "consts.h" -#include "meddc0.h" + include "nblang.h" + include "consts.h" + include "meddc0.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "op0012.h" -#include "nbutil.h" -#include "nombqu.h" -#include "nombhe.h" + include "envex1.h" + include "op0012.h" + include "nbutil.h" + include "nombqu.h" + include "nombhe.h" c -#include "gmstri.h" + include "gmstri.h" c c 0.3. ==> arguments c @@ -94,7 +94,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -113,7 +113,7 @@ c texte(2,8) = '(''Number of fields : '', i3)' texte(2,9) = '(''Number of packs of functions: '', i3)' c -#include "impr03.h" + include "impr03.h" c c==== c 2. Les types MED a echanger @@ -268,7 +268,7 @@ cgn write (ulsort,10000) c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utsex1.F b/src/tool/Utilitaire/utsex1.F index 6c17641f..3d2b0fc2 100644 --- a/src/tool/Utilitaire/utsex1.F +++ b/src/tool/Utilitaire/utsex1.F @@ -56,14 +56,14 @@ c character*6 nompro parameter ( nompro = 'UTSEX1' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" -#include "gmstri.h" + include "gmenti.h" + include "gmstri.h" c c 0.3. ==> arguments c @@ -96,7 +96,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -107,7 +107,7 @@ c c texte(2,4) = '(''Pack of functions #'',i3)' c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,90015) 'Passage de', edsuav,' a', edsuap @@ -245,7 +245,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utsex2.F b/src/tool/Utilitaire/utsex2.F index c7cc369b..c6a16ec5 100644 --- a/src/tool/Utilitaire/utsex2.F +++ b/src/tool/Utilitaire/utsex2.F @@ -56,13 +56,13 @@ c character*6 nompro parameter ( nompro = 'UTSEX2' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" + include "gmenti.h" c c 0.3. ==> arguments c @@ -95,7 +95,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -106,7 +106,7 @@ c c texte(2,4) = '(''Function #'',i3)' c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,90015) 'Fonctions. Passage de', edsuav,' a', edsuap @@ -198,7 +198,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utsex3.F b/src/tool/Utilitaire/utsex3.F index 2eb3d002..63507464 100644 --- a/src/tool/Utilitaire/utsex3.F +++ b/src/tool/Utilitaire/utsex3.F @@ -56,14 +56,14 @@ c character*6 nompro parameter ( nompro = 'UTSEX3' ) c -#include "nblang.h" -#include "esutil.h" + include "nblang.h" + include "esutil.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" + include "gmenti.h" c c 0.3. ==> arguments c @@ -97,7 +97,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -108,7 +108,7 @@ c c texte(2,4) = '(''Field #'',i3)' c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,90015) 'Support. Passage de', edsuav,' a', edsuap @@ -213,7 +213,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utsext.F b/src/tool/Utilitaire/utsext.F index 264ea320..8b39514e 100644 --- a/src/tool/Utilitaire/utsext.F +++ b/src/tool/Utilitaire/utsext.F @@ -60,11 +60,11 @@ c character*6 nompro parameter ( nompro = 'UTSEXT' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -105,7 +105,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -163,7 +163,7 @@ c write (ulsort,texte(langue,7)) endif c -#include "impr03.h" + include "impr03.h" c c==== c 2. conversion de la solution @@ -185,7 +185,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utsrc1.F b/src/tool/Utilitaire/utsrc1.F index eb7fd0a3..c5ce9a4c 100644 --- a/src/tool/Utilitaire/utsrc1.F +++ b/src/tool/Utilitaire/utsrc1.F @@ -69,7 +69,7 @@ c==== c 1. on compacte c==== c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (1,*)'UTSRC1' diff --git a/src/tool/Utilitaire/utsrc3.F b/src/tool/Utilitaire/utsrc3.F index b585c533..394b04a8 100644 --- a/src/tool/Utilitaire/utsrc3.F +++ b/src/tool/Utilitaire/utsrc3.F @@ -69,7 +69,7 @@ c==== c 1. on compacte c==== c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (1,*)'UTSRC3' diff --git a/src/tool/Utilitaire/utsuar.F b/src/tool/Utilitaire/utsuar.F index d12f33d7..0d26faad 100644 --- a/src/tool/Utilitaire/utsuar.F +++ b/src/tool/Utilitaire/utsuar.F @@ -57,8 +57,8 @@ cgn parameter ( nompro = 'UTSUAR' ) c c 0.2. ==> communs c -#include "nombar.h" -#include "nouvnb.h" + include "nombar.h" + include "nouvnb.h" c c 0.3. ==> arguments c diff --git a/src/tool/Utilitaire/utsuex.F b/src/tool/Utilitaire/utsuex.F index d441944b..1b879b47 100644 --- a/src/tool/Utilitaire/utsuex.F +++ b/src/tool/Utilitaire/utsuex.F @@ -66,20 +66,20 @@ c character*6 nompro parameter ( nompro = 'UTSUEX' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "gmenti.h" + include "gmenti.h" c -#include "envex1.h" -#include "envca1.h" -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nouvnb.h" -#include "nomber.h" + include "envex1.h" + include "envca1.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nouvnb.h" + include "nomber.h" c c 0.3. ==> arguments c @@ -135,7 +135,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -144,7 +144,7 @@ c c codret = 0 c -#include "impr03.h" + include "impr03.h" c==== c 2. Tableaux utilitaires c==== @@ -408,7 +408,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utsuhe.F b/src/tool/Utilitaire/utsuhe.F index 6cd03dad..bd181dcb 100644 --- a/src/tool/Utilitaire/utsuhe.F +++ b/src/tool/Utilitaire/utsuhe.F @@ -51,8 +51,8 @@ cgn parameter ( nompro = 'UTSUHE' ) c c 0.2. ==> communs c -#include "nombhe.h" -#include "nouvnb.h" + include "nombhe.h" + include "nouvnb.h" c c 0.3. ==> arguments c diff --git a/src/tool/Utilitaire/utsuno.F b/src/tool/Utilitaire/utsuno.F index 99d0eb23..9f7260d2 100644 --- a/src/tool/Utilitaire/utsuno.F +++ b/src/tool/Utilitaire/utsuno.F @@ -66,7 +66,7 @@ c integer cmptr, cmptr1 c ______________________________________________________________________ c -#include "impr03.h" + include "impr03.h" c c==== c 1. fabrication des tableaux ancnoe et nounoe diff --git a/src/tool/Utilitaire/utsupe.F b/src/tool/Utilitaire/utsupe.F index fedb7182..025a8e16 100644 --- a/src/tool/Utilitaire/utsupe.F +++ b/src/tool/Utilitaire/utsupe.F @@ -51,8 +51,8 @@ cgn parameter ( nompro = 'UTSUPE' ) c c 0.2. ==> communs c -#include "nombpe.h" -#include "nouvnb.h" + include "nombpe.h" + include "nouvnb.h" c c 0.3. ==> arguments c diff --git a/src/tool/Utilitaire/utsuqu.F b/src/tool/Utilitaire/utsuqu.F index 7353217d..b423ece2 100644 --- a/src/tool/Utilitaire/utsuqu.F +++ b/src/tool/Utilitaire/utsuqu.F @@ -57,8 +57,8 @@ cgn parameter ( nompro = 'UTSUQU' ) c c 0.2. ==> communs c -#include "nombqu.h" -#include "nouvnb.h" + include "nombqu.h" + include "nouvnb.h" c c 0.3. ==> arguments c diff --git a/src/tool/Utilitaire/utsute.F b/src/tool/Utilitaire/utsute.F index d4fb6bb2..f998746a 100644 --- a/src/tool/Utilitaire/utsute.F +++ b/src/tool/Utilitaire/utsute.F @@ -64,8 +64,8 @@ cgn parameter ( nompro = 'UTSUTE' ) c c 0.2. ==> communs c -#include "nombte.h" -#include "nouvnb.h" + include "nombte.h" + include "nouvnb.h" c c 0.3. ==> arguments c diff --git a/src/tool/Utilitaire/utsutr.F b/src/tool/Utilitaire/utsutr.F index ab5d6fcc..c33e83f7 100644 --- a/src/tool/Utilitaire/utsutr.F +++ b/src/tool/Utilitaire/utsutr.F @@ -57,8 +57,8 @@ cgn parameter ( nompro = 'UTSUTR' ) c c 0.2. ==> communs c -#include "nombtr.h" -#include "nouvnb.h" + include "nombtr.h" + include "nouvnb.h" c c 0.3. ==> arguments c diff --git a/src/tool/Utilitaire/utsvm0.F b/src/tool/Utilitaire/utsvm0.F index be1235bc..638d900d 100644 --- a/src/tool/Utilitaire/utsvm0.F +++ b/src/tool/Utilitaire/utsvm0.F @@ -62,13 +62,13 @@ c character*6 nompro parameter ( nompro = 'UTSVM0' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "enti01.h" -#include "impr02.h" + include "envex1.h" + include "enti01.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -98,7 +98,7 @@ c==== c c 1.1. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -182,7 +182,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utsvmn.F b/src/tool/Utilitaire/utsvmn.F index 1ef772d3..b6a5ed2d 100644 --- a/src/tool/Utilitaire/utsvmn.F +++ b/src/tool/Utilitaire/utsvmn.F @@ -47,20 +47,20 @@ c character*6 nompro parameter ( nompro = 'UTSVMN' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombhe.h" -#include "nombpy.h" -#include "nombpe.h" -#include "envca1.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombhe.h" + include "nombpy.h" + include "nombpe.h" + include "envca1.h" c c 0.3. ==> arguments c @@ -93,7 +93,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -300,7 +300,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utsynt.F b/src/tool/Utilitaire/utsynt.F index 18a4e4a4..80d726f0 100644 --- a/src/tool/Utilitaire/utsynt.F +++ b/src/tool/Utilitaire/utsynt.F @@ -57,14 +57,14 @@ c character*6 nompro parameter ( nompro = 'UTSYNT' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envada.h" -#include "envex1.h" + include "envada.h" + include "envex1.h" c -#include "impr02.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -100,7 +100,7 @@ c==== c 1. Messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -131,7 +131,7 @@ c texte(2,8) = '(''--> value: '',a)' texte(2,9) = '(''Unknown type.'')' c -#include "impr03.h" + include "impr03.h" c codret = 0 c @@ -222,7 +222,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/uttbrc.F b/src/tool/Utilitaire/uttbrc.F index d48a21f5..e81e22e5 100644 --- a/src/tool/Utilitaire/uttbrc.F +++ b/src/tool/Utilitaire/uttbrc.F @@ -53,12 +53,12 @@ c character*6 nompro parameter ( nompro = 'UTTBRC' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "impr02.h" + include "envex1.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -85,14 +85,14 @@ c==== c c 1.1. ==> les messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,90002) 'option', option @@ -126,7 +126,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/uttetr.F b/src/tool/Utilitaire/uttetr.F index f718f243..3416dece 100644 --- a/src/tool/Utilitaire/uttetr.F +++ b/src/tool/Utilitaire/uttetr.F @@ -70,11 +70,11 @@ c character*6 nompro parameter ( nompro = 'UTTETR' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -105,7 +105,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -126,7 +126,7 @@ c texte(2,5) = '(/,''The following two tetraedra are the same.'')' texte(2,6) = '(''Triangles of tetrahedron # :'',i10,'' : '',4i10)' c -#include "impr03.h" + include "impr03.h" c iaux = 4 c @@ -276,7 +276,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utthex.F b/src/tool/Utilitaire/utthex.F index 0339f75a..dda5c6c0 100644 --- a/src/tool/Utilitaire/utthex.F +++ b/src/tool/Utilitaire/utthex.F @@ -50,10 +50,10 @@ c c c 0.2. ==> communs c -#include "nombno.h" -#include "nombar.h" -#include "nombqu.h" -#include "nombhe.h" + include "nombno.h" + include "nombar.h" + include "nombqu.h" + include "nombhe.h" c c 0.3. ==> arguments c diff --git a/src/tool/Utilitaire/uttoqu.F b/src/tool/Utilitaire/uttoqu.F index 569d2fb8..4109e466 100644 --- a/src/tool/Utilitaire/uttoqu.F +++ b/src/tool/Utilitaire/uttoqu.F @@ -42,7 +42,7 @@ c c c 0.2. ==> communs c -#include "nombno.h" + include "nombno.h" c c 0.3. ==> arguments c @@ -60,7 +60,7 @@ c double precision vs1s4(3), vs2s4(3), vs3s4(3) double precision daux c -#include "impr03.h" + include "impr03.h" c c==== c 1. Traitement par la diagonale s1/s3 diff --git a/src/tool/Utilitaire/uttpen.F b/src/tool/Utilitaire/uttpen.F index e155f4a7..55e3c5bc 100644 --- a/src/tool/Utilitaire/uttpen.F +++ b/src/tool/Utilitaire/uttpen.F @@ -50,10 +50,10 @@ c c c 0.2. ==> communs c -#include "nombno.h" -#include "nombar.h" -#include "nombqu.h" -#include "nombpe.h" + include "nombno.h" + include "nombar.h" + include "nombqu.h" + include "nombpe.h" c c 0.3. ==> arguments c diff --git a/src/tool/Utilitaire/uttpyr.F b/src/tool/Utilitaire/uttpyr.F index eb5ac23b..ff765668 100644 --- a/src/tool/Utilitaire/uttpyr.F +++ b/src/tool/Utilitaire/uttpyr.F @@ -50,10 +50,10 @@ c c c 0.2. ==> communs c -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombpy.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombpy.h" c c 0.3. ==> arguments c diff --git a/src/tool/Utilitaire/uttqua.F b/src/tool/Utilitaire/uttqua.F index 86d70ff5..49a8ffca 100644 --- a/src/tool/Utilitaire/uttqua.F +++ b/src/tool/Utilitaire/uttqua.F @@ -45,10 +45,10 @@ c c c 0.2. ==> communs c -#include "nombno.h" -#include "nombar.h" -#include "nombqu.h" -#include "envca1.h" + include "nombno.h" + include "nombar.h" + include "nombqu.h" + include "envca1.h" c c 0.3. ==> arguments c diff --git a/src/tool/Utilitaire/uttrii.F b/src/tool/Utilitaire/uttrii.F index d8c8135b..8c2d0b9b 100644 --- a/src/tool/Utilitaire/uttrii.F +++ b/src/tool/Utilitaire/uttrii.F @@ -54,11 +54,11 @@ c character*6 nompro parameter ( nompro = 'UTTRII' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -85,7 +85,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -181,7 +181,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/uttrir.F b/src/tool/Utilitaire/uttrir.F index 488c490f..dafd9cac 100644 --- a/src/tool/Utilitaire/uttrir.F +++ b/src/tool/Utilitaire/uttrir.F @@ -54,11 +54,11 @@ c character*6 nompro parameter ( nompro = 'UTTRIR' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -85,7 +85,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -168,7 +168,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/uttris.F b/src/tool/Utilitaire/uttris.F index 3b6c1cae..cea7c864 100644 --- a/src/tool/Utilitaire/uttris.F +++ b/src/tool/Utilitaire/uttris.F @@ -55,13 +55,13 @@ c character*6 nompro parameter ( nompro = 'UTTRIS' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "infini.h" -#include "precis.h" + include "envex1.h" + include "infini.h" + include "precis.h" c c 0.3. ==> arguments c @@ -90,7 +90,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -117,7 +117,7 @@ c texte(2,11) = '(''Requested percentage is too small.'')' texte(2,12) = '(''A unique value to sort.'')' c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,4)) @@ -425,7 +425,7 @@ c c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/uttrn2.F b/src/tool/Utilitaire/uttrn2.F index f754dfed..28eb7c58 100644 --- a/src/tool/Utilitaire/uttrn2.F +++ b/src/tool/Utilitaire/uttrn2.F @@ -55,7 +55,7 @@ cgn parameter ( nompro = 'UTTRN2' ) c c 0.2. ==> communs c -#include "precis.h" + include "precis.h" c c 0.3. ==> arguments c diff --git a/src/tool/Utilitaire/utulbi.F b/src/tool/Utilitaire/utulbi.F index e78e73da..a023a05b 100644 --- a/src/tool/Utilitaire/utulbi.F +++ b/src/tool/Utilitaire/utulbi.F @@ -83,13 +83,13 @@ c character*6 nompro parameter ( nompro = 'UTULBI' ) c -#include "nblang.h" -#include "motcle.h" -#include "consts.h" + include "nblang.h" + include "motcle.h" + include "consts.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -123,7 +123,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -146,7 +146,7 @@ c texte(2,9) = '(''Logical unit:'',i3)' texte(2,10) = '(''File name: '',a)' c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,4)) typfic @@ -422,7 +422,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utulfd.F b/src/tool/Utilitaire/utulfd.F index a805227d..7dd9d430 100644 --- a/src/tool/Utilitaire/utulfd.F +++ b/src/tool/Utilitaire/utulfd.F @@ -42,7 +42,7 @@ c implicit none save c -#include "consts.h" + include "consts.h" c c 0.2. ==> communs c @@ -62,7 +62,7 @@ c character*16 motcle character*200 nomflo c -#include "langue.h" + include "langue.h" c c 0.5. ==> initialisations c ______________________________________________________________________ diff --git a/src/tool/Utilitaire/utulls.F b/src/tool/Utilitaire/utulls.F index c3b5085a..900078b3 100644 --- a/src/tool/Utilitaire/utulls.F +++ b/src/tool/Utilitaire/utulls.F @@ -54,8 +54,8 @@ c character*8 typfic character*200 nomfic c -#include "motcle.h" -#include "langue.h" + include "motcle.h" + include "langue.h" c c 0.5. ==> initialisations c ______________________________________________________________________ diff --git a/src/tool/Utilitaire/ututso.F b/src/tool/Utilitaire/ututso.F index 789ea1cb..6d1cb818 100644 --- a/src/tool/Utilitaire/ututso.F +++ b/src/tool/Utilitaire/ututso.F @@ -50,17 +50,17 @@ c character*6 nompro parameter ( nompro = 'UTUTSO' ) c -#include "nblang.h" -#include "consts.h" + include "nblang.h" + include "consts.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "esutil.h" -#include "gmenti.h" -#include "gmreel.h" -#include "gmstri.h" + include "esutil.h" + include "gmenti.h" + include "gmreel.h" + include "gmstri.h" c c 0.3. ==> arguments c @@ -70,7 +70,7 @@ c c c 0.4. ==> variables locales c -#include "meddc0.h" + include "meddc0.h" c integer iaux integer ideb , ifin @@ -117,7 +117,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -398,7 +398,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utvar0.F b/src/tool/Utilitaire/utvar0.F index f65f46e5..8fa24996 100644 --- a/src/tool/Utilitaire/utvar0.F +++ b/src/tool/Utilitaire/utvar0.F @@ -59,13 +59,13 @@ c character*6 nompro parameter ( nompro = 'UTVAR0' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "impr02.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -164,7 +164,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -442,7 +442,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utvar1.F b/src/tool/Utilitaire/utvar1.F index e40122ea..75b0c8bf 100644 --- a/src/tool/Utilitaire/utvar1.F +++ b/src/tool/Utilitaire/utvar1.F @@ -53,11 +53,11 @@ c character*6 nompro parameter ( nompro = 'UTVAR1' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c c 0.3. ==> arguments c @@ -84,9 +84,9 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -150,7 +150,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utvars.F b/src/tool/Utilitaire/utvars.F index 62093d4f..0cbe9fff 100644 --- a/src/tool/Utilitaire/utvars.F +++ b/src/tool/Utilitaire/utvars.F @@ -55,13 +55,13 @@ c character*6 nompro parameter ( nompro = 'UTVARS' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "nombar.h" + include "nombar.h" c c 0.3. ==> arguments c @@ -90,7 +90,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -165,7 +165,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utveri.F b/src/tool/Utilitaire/utveri.F index 3659bc92..2480b208 100644 --- a/src/tool/Utilitaire/utveri.F +++ b/src/tool/Utilitaire/utveri.F @@ -51,24 +51,24 @@ c character*6 nompro parameter ( nompro = 'UTVERI' ) c -#include "nblang.h" -#include "consts.h" + include "nblang.h" + include "consts.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" -#include "gmreel.h" -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombhe.h" -#include "nombpy.h" -#include "nombpe.h" -#include "envada.h" + include "gmenti.h" + include "gmreel.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombhe.h" + include "nombpy.h" + include "nombpe.h" + include "envada.h" c c 0.3. ==> arguments c @@ -123,7 +123,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -144,7 +144,7 @@ c texte(2,8) = '(''This mesh is not correct.'',/,25(''=''))' texte(2,9) = '(''Current action: '',a)' c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ if ( avappr.ge.0 .and. avappr.le.2 ) then @@ -530,7 +530,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (nuroul,texte(langue,8)) write (ulsort,texte(langue,1)) 'Sortie', nompro diff --git a/src/tool/Utilitaire/utvgan.F b/src/tool/Utilitaire/utvgan.F index f30d2261..e3780a02 100644 --- a/src/tool/Utilitaire/utvgan.F +++ b/src/tool/Utilitaire/utvgan.F @@ -59,16 +59,16 @@ c character*6 nompro parameter ( nompro = 'UTVGAN' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" + include "gmenti.h" c -#include "nombno.h" -#include "nombar.h" + include "nombno.h" + include "nombar.h" c c 0.3. ==> arguments c @@ -99,7 +99,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -302,7 +302,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utvgfa.F b/src/tool/Utilitaire/utvgfa.F index 5df33e74..fe0cb687 100644 --- a/src/tool/Utilitaire/utvgfa.F +++ b/src/tool/Utilitaire/utvgfa.F @@ -60,13 +60,13 @@ c character*6 nompro parameter ( nompro = 'UTVGFA' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" + include "gmenti.h" c c 0.3. ==> arguments c @@ -97,7 +97,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -296,7 +296,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utvgv1.F b/src/tool/Utilitaire/utvgv1.F index e27680c6..4aebff0c 100644 --- a/src/tool/Utilitaire/utvgv1.F +++ b/src/tool/Utilitaire/utvgv1.F @@ -78,20 +78,20 @@ c character*6 nompro parameter ( nompro = 'UTVGV1' ) c -#include "nblang.h" -#include "tbdim0.h" + include "nblang.h" + include "tbdim0.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "impr02.h" + include "envex1.h" + include "impr02.h" c -#include "nombtr.h" -#include "nombqu.h" -#include "nombte.h" -#include "nombhe.h" -#include "nombpy.h" -#include "nombpe.h" + include "nombtr.h" + include "nombqu.h" + include "nombte.h" + include "nombhe.h" + include "nombpy.h" + include "nombpe.h" c c 0.3. ==> arguments c @@ -121,7 +121,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -134,13 +134,13 @@ c texte(2,4) = '(''Examination of'',i10,'' face(s).'')' texte(2,5) = '(i10,'' neighbours '',a,''type'')' c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,4)) nufafi-nufade+1 write (ulsort,90002) 'Numeros',(trav2a(jaux),jaux=nufade,nufafi) #endif -#include "tbdim1.h" + include "tbdim1.h" c c==== c 2. decompte des elements de volumes voisins @@ -182,7 +182,7 @@ c 211 continue nbtetr = nbtetr + 1 iaux = nbtetr -#include "tbdim2.h" + include "tbdim2.h" trav1a(iaux) = jaux c elseif ( jaux.lt.0 ) then @@ -198,7 +198,7 @@ c 212 continue nbpyra = nbpyra + 1 iaux = 2*decafv+nbpyra -#include "tbdim2.h" + include "tbdim2.h" trav1a(iaux) = pypetr(1,-jaux) endif c @@ -213,7 +213,7 @@ c 213 continue nbpent = nbpent + 1 iaux = 3*decafv+nbpent -#include "tbdim2.h" + include "tbdim2.h" trav1a(iaux) = pypetr(2,-jaux) endif c @@ -244,7 +244,7 @@ c 221 continue nbhexa = nbhexa + 1 iaux = decafv+nbhexa -#include "tbdim2.h" + include "tbdim2.h" trav1a(iaux) = jaux c elseif ( jaux.lt.0 ) then @@ -260,7 +260,7 @@ c 222 continue nbpyra = nbpyra + 1 iaux = 2*decafv+nbpyra -#include "tbdim2.h" + include "tbdim2.h" trav1a(iaux) = pypequ(1,-jaux) endif c @@ -275,7 +275,7 @@ c 223 continue nbpent = nbpent + 1 iaux = 3*decafv+nbpent -#include "tbdim2.h" + include "tbdim2.h" trav1a(iaux) = pypequ(2,-jaux) endif c @@ -302,7 +302,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utvgv2.F b/src/tool/Utilitaire/utvgv2.F index 6553b2ce..2c7e5ad2 100644 --- a/src/tool/Utilitaire/utvgv2.F +++ b/src/tool/Utilitaire/utvgv2.F @@ -104,12 +104,12 @@ c character*6 nompro parameter ( nompro = 'UTVGV2' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "impr02.h" + include "envex1.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -148,14 +148,14 @@ c==== c 1. initialisation c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,90002) 'nbarto', nbarto @@ -352,7 +352,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utvgv3.F b/src/tool/Utilitaire/utvgv3.F index 7099cd6d..12458156 100644 --- a/src/tool/Utilitaire/utvgv3.F +++ b/src/tool/Utilitaire/utvgv3.F @@ -107,12 +107,12 @@ c character*6 nompro parameter ( nompro = 'UTVGV3' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "impr02.h" + include "envex1.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -151,14 +151,14 @@ c==== c 1. initialisation c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro call dmflsh (iaux) #endif c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,90002) 'nbtear', nbtear @@ -305,7 +305,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utvgva.F b/src/tool/Utilitaire/utvgva.F index 290d2312..23c38b9f 100644 --- a/src/tool/Utilitaire/utvgva.F +++ b/src/tool/Utilitaire/utvgva.F @@ -61,14 +61,14 @@ c character*6 nompro parameter ( nompro = 'UTVGVA' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" -#include "impr02.h" + include "gmenti.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -115,7 +115,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -130,7 +130,7 @@ c texte(2,5) = '(''Request : '',i6)' texte(2,6) = '(''Bad request.'')' c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,4)) @@ -641,7 +641,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utvgvf.F b/src/tool/Utilitaire/utvgvf.F index 49b986e0..5ecffbde 100644 --- a/src/tool/Utilitaire/utvgvf.F +++ b/src/tool/Utilitaire/utvgvf.F @@ -60,14 +60,14 @@ c character*6 nompro parameter ( nompro = 'UTVGVF' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "gmenti.h" -#include "impr02.h" + include "gmenti.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -111,7 +111,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -132,7 +132,7 @@ c texte(2,7) = '(''Number of '',a,'' : '',i10)' texte(2,8) = '(''Neighbourhood '',a,''/ '',a)' c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,4)) @@ -745,7 +745,7 @@ cgn call gmprsx (nompro,nhvois//'.PyPe/Qua') c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utvgvq.F b/src/tool/Utilitaire/utvgvq.F index 80d69033..04f5f28b 100644 --- a/src/tool/Utilitaire/utvgvq.F +++ b/src/tool/Utilitaire/utvgvq.F @@ -63,17 +63,17 @@ c character*6 nompro parameter ( nompro = 'UTVGVQ' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "impr02.h" + include "envex1.h" + include "impr02.h" c -#include "nombqu.h" -#include "nombhe.h" -#include "nombpy.h" -#include "nombpe.h" + include "nombqu.h" + include "nombhe.h" + include "nombpy.h" + include "nombpe.h" c c 0.3. ==> arguments c @@ -100,7 +100,7 @@ c==== c c 1.1. ==> messages c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -200,7 +200,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utvhex.F b/src/tool/Utilitaire/utvhex.F index 72df5d44..f6460147 100644 --- a/src/tool/Utilitaire/utvhex.F +++ b/src/tool/Utilitaire/utvhex.F @@ -48,15 +48,15 @@ c implicit none save c -#include "fractc.h" -#include "fractf.h" + include "fractc.h" + include "fractf.h" c c 0.2. ==> communs c -#include "nombno.h" -#include "nombar.h" -#include "nombqu.h" -#include "nombhe.h" + include "nombno.h" + include "nombar.h" + include "nombqu.h" + include "nombhe.h" c c 0.3. ==> arguments c diff --git a/src/tool/Utilitaire/utvoh0.F b/src/tool/Utilitaire/utvoh0.F index 28384b9c..9ea64285 100644 --- a/src/tool/Utilitaire/utvoh0.F +++ b/src/tool/Utilitaire/utvoh0.F @@ -38,7 +38,7 @@ c implicit none save c -#include "fracte.h" + include "fracte.h" c c 0.2. ==> communs c 0.3. ==> arguments diff --git a/src/tool/Utilitaire/utvohe.F b/src/tool/Utilitaire/utvohe.F index 6a1e8b9e..b460b28b 100644 --- a/src/tool/Utilitaire/utvohe.F +++ b/src/tool/Utilitaire/utvohe.F @@ -42,8 +42,8 @@ c c c 0.2. ==> communs c -#include "nombno.h" -#include "envca1.h" + include "nombno.h" + include "envca1.h" c c 0.3. ==> arguments c diff --git a/src/tool/Utilitaire/utvois.F b/src/tool/Utilitaire/utvois.F index a0010ef7..a16ef47f 100644 --- a/src/tool/Utilitaire/utvois.F +++ b/src/tool/Utilitaire/utvois.F @@ -76,14 +76,14 @@ c character*6 nompro parameter ( nompro = 'UTVOIS' ) c -#include "nblang.h" -#include "envca1.h" + include "nblang.h" + include "envca1.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "impr02.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -116,7 +116,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -128,7 +128,7 @@ c texte(2,4) = '(5x,''Neighbourhood.'')' texte(2,5) = '(a,'' closed to the '',a,'' : '',i6)' c -#include "impr03.h" + include "impr03.h" c #ifdef _DEBUG_HOMARD_ write(ulsort,texte(langue,4)) @@ -298,7 +298,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utvop0.F b/src/tool/Utilitaire/utvop0.F index 27f0ad01..fdd364aa 100644 --- a/src/tool/Utilitaire/utvop0.F +++ b/src/tool/Utilitaire/utvop0.F @@ -38,7 +38,7 @@ c implicit none save c -#include "fracte.h" + include "fracte.h" c c 0.2. ==> communs c 0.3. ==> arguments diff --git a/src/tool/Utilitaire/utvope.F b/src/tool/Utilitaire/utvope.F index f5653300..7d4e9303 100644 --- a/src/tool/Utilitaire/utvope.F +++ b/src/tool/Utilitaire/utvope.F @@ -42,8 +42,8 @@ c c c 0.2. ==> communs c -#include "nombno.h" -#include "envca1.h" + include "nombno.h" + include "envca1.h" c c 0.3. ==> arguments c diff --git a/src/tool/Utilitaire/utvopy.F b/src/tool/Utilitaire/utvopy.F index 5854e387..c047ddb1 100644 --- a/src/tool/Utilitaire/utvopy.F +++ b/src/tool/Utilitaire/utvopy.F @@ -42,8 +42,8 @@ c c c 0.2. ==> communs c -#include "nombno.h" -#include "envca1.h" + include "nombno.h" + include "envca1.h" c c 0.3. ==> arguments c diff --git a/src/tool/Utilitaire/utvot0.F b/src/tool/Utilitaire/utvot0.F index 9c84fb66..68a4d435 100644 --- a/src/tool/Utilitaire/utvot0.F +++ b/src/tool/Utilitaire/utvot0.F @@ -38,7 +38,7 @@ c implicit none save c -#include "fracte.h" + include "fracte.h" c c 0.2. ==> communs c 0.3. ==> arguments diff --git a/src/tool/Utilitaire/utvote.F b/src/tool/Utilitaire/utvote.F index 713b229a..598dd86e 100644 --- a/src/tool/Utilitaire/utvote.F +++ b/src/tool/Utilitaire/utvote.F @@ -42,8 +42,8 @@ c c c 0.2. ==> communs c -#include "nombno.h" -#include "envca1.h" + include "nombno.h" + include "envca1.h" c c 0.3. ==> arguments c diff --git a/src/tool/Utilitaire/utvoy0.F b/src/tool/Utilitaire/utvoy0.F index 99a84f23..9a3da516 100644 --- a/src/tool/Utilitaire/utvoy0.F +++ b/src/tool/Utilitaire/utvoy0.F @@ -38,7 +38,7 @@ c implicit none save c -#include "fracte.h" + include "fracte.h" c c 0.2. ==> communs c 0.3. ==> arguments diff --git a/src/tool/Utilitaire/utvpen.F b/src/tool/Utilitaire/utvpen.F index 3bf24dcf..62a5eebf 100644 --- a/src/tool/Utilitaire/utvpen.F +++ b/src/tool/Utilitaire/utvpen.F @@ -52,10 +52,10 @@ c c c 0.2. ==> communs c -#include "nombno.h" -#include "nombar.h" -#include "nombqu.h" -#include "nombpe.h" + include "nombno.h" + include "nombar.h" + include "nombqu.h" + include "nombpe.h" c c 0.3. ==> arguments c diff --git a/src/tool/Utilitaire/utvpyr.F b/src/tool/Utilitaire/utvpyr.F index 9ba23986..dadac852 100644 --- a/src/tool/Utilitaire/utvpyr.F +++ b/src/tool/Utilitaire/utvpyr.F @@ -52,10 +52,10 @@ c c c 0.2. ==> communs c -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombpy.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombpy.h" c c 0.3. ==> arguments c diff --git a/src/tool/Utilitaire/utvte0.F b/src/tool/Utilitaire/utvte0.F index 7e20bab1..76bd9ca7 100644 --- a/src/tool/Utilitaire/utvte0.F +++ b/src/tool/Utilitaire/utvte0.F @@ -59,13 +59,13 @@ c character*6 nompro parameter ( nompro = 'UTVTE0' ) c -#include "nblang.h" + include "nblang.h" c c 0.2. ==> communs c -#include "envex1.h" + include "envex1.h" c -#include "impr02.h" + include "impr02.h" c c 0.3. ==> arguments c @@ -94,7 +94,7 @@ c==== c 1. messages c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -210,7 +210,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c write (ulsort,texte(langue,1)) 'Sortie', nompro write (ulsort,texte(langue,2)) codret diff --git a/src/tool/Utilitaire/utvtet.F b/src/tool/Utilitaire/utvtet.F index 064b1c18..be5c2b98 100644 --- a/src/tool/Utilitaire/utvtet.F +++ b/src/tool/Utilitaire/utvtet.F @@ -49,10 +49,10 @@ c c c 0.2. ==> communs c -#include "nombno.h" -#include "nombar.h" -#include "nombtr.h" -#include "nombte.h" + include "nombno.h" + include "nombar.h" + include "nombtr.h" + include "nombte.h" c c 0.3. ==> arguments c diff --git a/src/tool/Utilitaire/utwipg.F b/src/tool/Utilitaire/utwipg.F index 97b2d4c2..a338f6a5 100644 --- a/src/tool/Utilitaire/utwipg.F +++ b/src/tool/Utilitaire/utwipg.F @@ -59,17 +59,17 @@ c character*6 nompro parameter ( nompro = 'UTWIPG' ) c -#include "nblang.h" -#include "consts.h" + include "nblang.h" + include "consts.h" c c 0.2. ==> communs c -#include "envex1.h" -#include "precis.h" + include "envex1.h" + include "precis.h" c -#include "meddc0.h" -#include "fracta.h" -#include "fractc.h" + include "meddc0.h" + include "fracta.h" + include "fractc.h" c c 0.3. ==> arguments c @@ -96,7 +96,7 @@ c==== c 1. initialisations c==== c -#include "impr01.h" + include "impr01.h" c #ifdef _DEBUG_HOMARD_ write (ulsort,texte(langue,1)) 'Entree', nompro @@ -304,7 +304,7 @@ c==== c if ( codret.ne.0 ) then c -#include "envex2.h" + include "envex2.h" c iaux = 2 call utimpg ( iaux, ngauss, nbnorf, sdim,