--- /dev/null
+#!/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
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
> '(''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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. les messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. les messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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)
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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)
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
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
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
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
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.
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
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.
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.
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
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
c
elseif ( etan.eq.99 ) then
c
-#include "pcsqu2_7.h"
+ include "pcsqu2_7.h"
c
endif
c
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
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.
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
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.
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
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,3)) 'pcetr2_5', nompro
#endif
-#include "pcstr2_5.h"
+ include "pcstr2_5.h"
c
c=======================================================================
c
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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)'
> '(''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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
> '(''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
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
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
texte(2,10) =
> '(''Found number of '',a,'' for the 3D mesh :'',i10)'
c
-#include "impr03.h"
+ include "impr03.h"
c
codret = 0
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
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
texte(2,4) = '(''. From 2D mesh to 3D'')'
c
-#include "impr03.h"
+ include "impr03.h"
c
write (ulsort,texte(langue,4))
c
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
endif
c
if ( codret.eq.0 ) then
-#include "mslve4.h"
+ include "mslve4.h"
endif
c
if ( codret.eq.0 ) then
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
texte(2,7) = '(5x,''Conversion HOMARD ----> '',a18,/)'
c
-#include "impr03.h"
+ include "impr03.h"
c
c====
c 2. structure generale
c
#ifdef _DEBUG_HOMARD_
if ( codret.eq.0 ) then
-#include "mslve4.h"
+ include "mslve4.h"
endif
#endif
c
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
cgn write(ulsort,*) cfapyr
#endif
c
-#include "impr06.h"
+ include "impr06.h"
c
c====
c 2. initialisations des renumerotations
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
write(ulsort,90002) 'nbtecf, nbteca =', nbtecf, nbteca
#endif
c
-#include "impr06.h"
+ include "impr06.h"
c
c====
c 2. initialisations des renumerotations
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
texte(2,4) = '(''Number of active edges:'',i10)'
c
-#include "impr03.h"
+ include "impr03.h"
c
codret = 0
c
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
texte(2,4) = '(''Number of active triangles:'',i10)'
c
-#include "impr03.h"
+ include "impr03.h"
c
codret = 0
c
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
texte(2,4) = '(''Number of active quadrangles:'',i10)'
c
-#include "impr03.h"
+ include "impr03.h"
c
codret = 0
c
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
codret = 0
c
-#include "impr03.h"
+ include "impr03.h"
c
c====
c 2. les structures de base
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. preliminaires
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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_
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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_
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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_
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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_
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( afaire ) then
c
-#include "hexcf4.h"
+ include "hexcf4.h"
c
c====
c 2. L'eventuel noeud central
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
integer iaux1, iaux2, iaux3, iaux4
c ______________________________________________________________________
c
-#include "impr03.h"
+ include "impr03.h"
c
c====
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
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)
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
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)
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
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)
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
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)
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
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)
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
logical afaire
c ______________________________________________________________________
c
-#include "impr03.h"
+ include "impr03.h"
cgn write (1,90002) 'PCS2TE, nbfop2', nbfop2
c
do 10 , letetr = 1, nbteto
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
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
c
c 0.2. ==> communs
c
-#include "nombtr.h"
-#include "nomber.h"
+ include "nombtr.h"
+ include "nomber.h"
c
c 0.3. ==> arguments
c
c
c 0.5. ==> initialisations
c
-#include "impr03.h"
+ include "impr03.h"
c ______________________________________________________________________
c
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
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
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
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
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
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
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
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
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
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
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
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
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
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
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
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
texte(2,5) =
> '( '' status at iteration '',a3,'' : '',i4)'
c
-#include "impr03.h"
+ include "impr03.h"
c
c====
c 2. Exploration des 8 fils
character*6 nompro
parameter ( nompro = 'PCSEPY' )
c
-#include "nblang.h"
+ include "nblang.h"
c
c 0.2. ==> communs
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
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
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
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
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
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
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
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
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
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
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
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
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
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
coderr = 0
c
-#include "impr03.h"
+ include "impr03.h"
c
c 1.2. ==> on repere son ancien numero dans le calcul
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
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
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
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
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 0.5. ==> initialisations
c
-#include "impr03.h"
+ include "impr03.h"
c ______________________________________________________________________
cgn write (1,*) 'PCSIQU'
cgn 1789 format(a,10i4)
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
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
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
integer larete, nuv, s1, s2, sm
c ______________________________________________________________________
c
-#include "impr03.h"
+ include "impr03.h"
c
c====
c 1. interpolation p1 pour toutes les aretes
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
codret = 0
c
-#include "esimpr.h"
+ include "esimpr.h"
c
texte(1,4) = '(5x,''Fonctions '',a2,'' :'')'
texte(1,5) =
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
codret = 0
c
-#include "pcimp1.h"
-#include "impr03.h"
+ include "pcimp1.h"
+ include "impr03.h"
c
c====
c 2. grandeurs utiles
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
codret = 0
c
-#include "pcimp1.h"
+ include "pcimp1.h"
c
c====
c 2. grandeurs utiles
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
endif
c
if ( codret.eq.0 ) then
-#include "mslve4.h"
+ include "mslve4.h"
endif
c
if ( codret.eq.0 ) then
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
c
c 0.2. ==> communs
c
-#include "nomber.h"
-#include "nombno.h"
+ include "nomber.h"
+ include "nombno.h"
c
c 0.3. ==> arguments
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
texte(2,5) =
> '( '' status at iteration '',a3,'' : '',i4)'
c
-#include "impr03.h"
+ include "impr03.h"
c
coderr = 0
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
texte(2,5) =
> '( '' status at iteration '',a3,'' : '',i4)'
c
-#include "impr03.h"
+ include "impr03.h"
c
coderr = 0
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
texte(2,5) =
> '( '' status at iteration '',a3,'' : '',i4)'
c
-#include "impr03.h"
+ include "impr03.h"
c
codret = 0
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
texte(2,5) =
> '( '' status at iteration '',a3,'' : '',i4)'
c
-#include "impr03.h"
+ include "impr03.h"
c
coderr = 0
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
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
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
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
codret = 0
c
-#include "impr03.h"
+ include "impr03.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,4)) mess14(langue,4,typdep), nbfdep
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Sortie', nompro
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
codret = 1
endif
c
-#include "impr03.h"
+ include "impr03.h"
c
c====
c 2. les structures de base
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
write (ulsort,texte(langue,5)) diammi
#endif
c
-#include "impr03.h"
+ include "impr03.h"
c
codret = 0
c
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
> '(/,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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
endif
c
#ifdef _DEBUG_HOMARD_
-#include "mslve4.h"
+ include "mslve4.h"
#endif
c
c 2.2. ==> tableaux
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
write (ulsort,texte(langue,5))
endif
c
-#include "impr03.h"
+ include "impr03.h"
c
c====
c 2. les structures de base
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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)'
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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)'
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
codret = 0
c
-#include "impr03.h"
+ include "impr03.h"
c
c====
c 2. les structures de base
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
codret = 0
c
-#include "impr03.h"
+ include "impr03.h"
c
c====
c 2. la structure generale
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
codret = 0
c
-#include "impr03.h"
+ include "impr03.h"
c
#ifdef _DEBUG_HOMARD_
call gmprsx ( nompro, nomail )
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
codret = 0
c
-#include "impr03.h"
+ include "impr03.h"
c
c====
c 2. les structures de base
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
texte(2,17) =
> '(''. included only mesh-point nodes :'',i10)'
c
-#include "impr03.h"
+ include "impr03.h"
c
codret = 0
c
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
> '(''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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
texte(2,10) =
> '(''.. End #'',i3,'' : noeud '',i10,3(a3,'' ='',g15.8))'
c
-#include "impr03.h"
+ include "impr03.h"
c
codret = 0
c
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
texte(2,13) =
> '(/,''The definition of this boundary cannot be found.'')'
c
-#include "impr03.h"
+ include "impr03.h"
c
codret = 0
c
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
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
integer glop
#endif
c
-#include "impr03.h"
+ include "impr03.h"
c
#ifdef _DEBUG_HOMARD_
write (*,90002) 'nbnoto', nbnoto
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
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.3. ==> les messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.3. ==> les messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.3. ==> les messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
> '(/,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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 0.4. ==> variables locales
c
-#include "hexcf3.h"
+ include "hexcf3.h"
c
integer iaux
integer decbin, decbrf
c====
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
nbfihe = 0
c
-#include "hexcf2.h"
+ include "hexcf2.h"
c
c Parcours des hexaedres actifs
c
#endif
call utsohe ( somare, listar, listso )
c
-#include "hexcf4.h"
+ include "hexcf4.h"
c
c====
c 4. L'etat final de l'hexaedre
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
texte(2,6) ='(''Edge #'',i2,'':'',i10,'' state:'',i10)'
texte(2,10) ='(i10,'' problems ...'')'
c
-#include "impr03.h"
+ include "impr03.h"
c
codret = 0
c
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
c
c 0.2. ==> communs
c
-#include "nouvnb.h"
+ include "nouvnb.h"
c
c 0.3. ==> arguments
c
c
c 0.2. ==> communs
c
-#include "nouvnb.h"
+ include "nouvnb.h"
c
c 0.3. ==> arguments
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
c
c 0.2. ==> communs
c
-#include "nouvnb.h"
+ include "nouvnb.h"
c
c 0.3. ==> arguments
c
c
c 0.2. ==> communs
c
-#include "nouvnb.h"
+ include "nouvnb.h"
c
c 0.3. ==> arguments
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.3. ==> les messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
c
c 0.2. ==> communs
c
-#include "nouvnb.h"
+ include "nouvnb.h"
c
c 0.3. ==> arguments
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
c
c 0.2. ==> communs
c
-#include "nouvnb.h"
+ include "nouvnb.h"
c
c 0.3. ==> arguments
c
integer iaux
c ______________________________________________________________________
c
-#include "impr03.h"
+ include "impr03.h"
c
c====
c 1. creation effective d'une pyramide
c
c 0.2. ==> communs
c
-#include "nouvnb.h"
+ include "nouvnb.h"
c
c 0.3. ==> arguments
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,
c
c 0.2. ==> communs
c
-#include "j1234j.h"
-#include "nouvnb.h"
+ include "j1234j.h"
+ include "nouvnb.h"
c
c 0.3. ==> arguments
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
c
c 0.2. ==> communs
c
-#include "nouvnb.h"
+ include "nouvnb.h"
c
c 0.3. ==> arguments
c
c====
c
#ifdef _DEBUG_HOMARD_
-#include "impr03.h"
+ include "impr03.h"
write (1,90015) 'Tetraedre', nutetr,
> ', aretes', naret1, naret2, naret3, naret4,
> naret5, naret6
c
c 0.2. ==> communs
c
-#include "nouvnb.h"
+ include "nouvnb.h"
c
c 0.3. ==> arguments
c
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,
c
c 0.2. ==> communs
c
-#include "i1i2i3.h"
-#include "nouvnb.h"
+ include "i1i2i3.h"
+ include "nouvnb.h"
c
c 0.3. ==> arguments
c
c====
c
#ifdef _DEBUG_HOMARD_
-#include "impr03.h"
+ include "impr03.h"
write (1,90015) 'Triangle', nutria,
> ', aretes', arete1, arete2, arete3
#endif
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
c
c 1.3. ==> les messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
c 0.5. ==> initialisations
c
-#include "impr03.h"
+ include "impr03.h"
c
codret = 0
c ______________________________________________________________________
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
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
c
codret = 0
c
-#include "impr03.h"
+ include "impr03.h"
c ______________________________________________________________________
c
#ifdef _DEBUG_HOMARD_
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
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
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
integer are1, are2, are3, are4
integer are5, are6, are7, are8
-#include "defiqu.h"
+ include "defiqu.h"
c
integer laface, letria
integer niveau, nf1
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.3. ==> les messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.3. ==> les messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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(''=''),/)'
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.3. ==> les messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. preliminaires
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
> '(''.. 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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. preliminaires
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> les messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
> '(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
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
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
texte(2,4) = '(''Suppression of the conformities for '',a)'
c
-#include "impr03.h"
+ include "impr03.h"
c
codret = 0
c
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
texte(2,4) = '(''Suppression of the conformities for '',a)'
c
-#include "impr03.h"
+ include "impr03.h"
c
codret = 0
c
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
texte(2,4) = '(''Cut for conformity; binary code:'',i5)'
c
-#include "impr03.h"
+ include "impr03.h"
c
codret = 0
c
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.3. ==> les messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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)
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
codret = 0
c
-#include "impr03.h"
+ include "impr03.h"
c
c====
c 2. decompte des entites a decouper et a supprimer et impressions
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
codret = 0
c
-#include "impr03.h"
+ include "impr03.h"
c
c====
c 2. decompte des entites a decouper et a supprimer et impressions
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
> '(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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
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
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
texte(2,4) = '(''Error code from '',a6,'' ='',i4,/)'
c
-#include "impr03.h"
+ include "impr03.h"
c
c====
c 2. recuperation des pointeurs, initialisations
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.3. ==> les messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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)
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. Initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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_
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. Initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisation
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. Initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisation
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisation
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
write (ulsort,texte(langue,6)) seuibe
#endif
c
-#include "impr03.h"
+ include "impr03.h"
c
c====
c 2. transfert de reel a entier
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> Les messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisation
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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))
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
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
c
c 1.1. ==> Les messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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))
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
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
c
c 1.1. ==> Les messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
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
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
c 1. initialisation
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
endif
#endif
c
-#include "impr03.h"
+ include "impr03.h"
c
c====
c 2. les zones
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
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> Les messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
cgn print *, hetqua
cgn print *, arequa
c
-#include "impr03.h"
+ include "impr03.h"
c
codret = 0
c
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> Les messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c====
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisation
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> Les messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
> '(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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> Les messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> Les messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> Les messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
#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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
#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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
#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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
#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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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_
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
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
character*6 nompro
parameter ( nompro = 'DMVAEN' )
c
-#include "nblang.h"
+ include "nblang.h"
c
c 0.2. ==> communs
c
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
c 0.4. ==> variables locales
c
-#include "meddc0.h"
+ include "meddc0.h"
c
integer iaux
integer listma(1)
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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)'
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)
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 0.4. ==> variables locales
c
-#include "meddc0.h"
+ include "meddc0.h"
c
integer nbcmax
parameter ( nbcmax = 20 )
c 1. initialisation
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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)'
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 0.4. ==> variables locales
c
-#include "meddc0.h"
+ include "meddc0.h"
c
integer iaux, jaux, kaux, laux
integer orient(8)
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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)
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 0.4. ==> variables locales
c
-#include "meddc0.h"
+ include "meddc0.h"
c
integer iaux, jaux
integer typenh, typgeo, typent
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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))
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 0.4. ==> variables locales
c
-#include "meddc0.h"
+ include "meddc0.h"
c
integer nbgrox
parameter (nbgrox = 10 )
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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)
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 0.4. ==> variables locales
c
-#include "meddc0.h"
+ include "meddc0.h"
c
integer iaux, jaux
integer lnomaf
c 1. initialisation
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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))
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 0.4. ==> variables locales
c
-#include "meddc0.h"
+ include "meddc0.h"
c
integer iaux, jaux
integer typenh
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
1000 format('... ',a,' : ',i8)
c
-#include "esimpr.h"
+ include "esimpr.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,4))
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 0.4. ==> variables locales
c
-#include "meddc0.h"
+ include "meddc0.h"
c
integer iaux, jaux, kaux
integer codre1, codre2
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)'
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 0.4. ==> variables locales
c
-#include "meddc0.h"
+ include "meddc0.h"
c
integer iaux, jaux
integer nbelig
c 1. initialisation
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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))
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 0.4. ==> variables locales
c
-#include "meddc0.h"
+ include "meddc0.h"
c
integer nbcmax
parameter ( nbcmax = 20 )
c====
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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)'
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 0.4. ==> variables locales
c
-#include "meddc0.h"
+ include "meddc0.h"
c
integer iaux
integer adcoor, adhist, adarno
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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))
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisation
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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))
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisation
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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))
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisation
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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))
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 0.4. ==> variables locales
c
-#include "meddc0.h"
+ include "meddc0.h"
c
integer iaux, jaux
c
c====
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisation
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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))
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisation
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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))
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. les initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
texte(2,4) = '(''Recording of the commons'')'
c
-#include "impr03.h"
+ include "impr03.h"
c
c====
c 2. controle des allocations deja presentes
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 0.4. ==> variables locales
c
-#include "meddc0.h"
+ include "meddc0.h"
c
integer iaux, jaux, kaux
integer codre0
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
write (ulsort,texte(langue,iaux))
#endif
c
-#include "esimpr.h"
+ include "esimpr.h"
c
c 1.2. ==> tableaux de travail
c
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 0.4. ==> variables locales
c
-#include "meddc0.h"
+ include "meddc0.h"
c
integer iaux
integer ngro, numfam
c====
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
write (ulsort,texte(langue,4))
#endif
c
-#include "esimpr.h"
+ include "esimpr.h"
c
c====
c 2. La famille nulle
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.2. ==> les messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 0.4. ==> variables locales
c
-#include "meddc0.h"
+ include "meddc0.h"
c
integer iaux, jaux
integer nbchfi, nrocha
c====
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
> '('' # ! 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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 0.4. ==> variables locales
c
-#include "meddc0.h"
+ include "meddc0.h"
c
integer iaux, jaux, kaux, laux
integer nbprof
c 1. initialisation
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 0.4. ==> variables locales
c
-#include "meddc0.h"
+ include "meddc0.h"
c
integer iaux
integer numdt, numit
c 1. initialisation
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 0.4. ==> variables locales
c
-#include "meddc0.h"
+ include "meddc0.h"
c
integer iaux
integer dim1
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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)
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 0.4. ==> variables locales
c
-#include "meddc0.h"
+ include "meddc0.h"
c
integer iaux, jaux, kaux,laux
c
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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)
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 0.4. ==> variables locales
c
-#include "meddc0.h"
+ include "meddc0.h"
c
integer nbcmax
parameter ( nbcmax = 20 )
c 1. initialisation
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 0.4. ==> variables locales
c
-#include "meddc0.h"
+ include "meddc0.h"
c
integer iaux, jaux
integer typenh, typgeo, typent
c====
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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))
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 0.4. ==> variables locales
c
-#include "meddc0.h"
+ include "meddc0.h"
c
integer nbgrox
parameter (nbgrox = 10000 )
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.'')'
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,'+')
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 0.4. ==> variables locales
c
-#include "meddc0.h"
+ include "meddc0.h"
c
integer nbcmax
parameter ( nbcmax = 20 )
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)'
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))
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 0.4. ==> variables locales
c
-#include "meddc0.h"
+ include "meddc0.h"
c
integer iaux
integer codre1, codre2, codre3, codre4, codre5
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
texte(2,4) = '(''. Readings of nodes.'')'
c
-#include "esimpr.h"
+ include "esimpr.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,4))
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 0.4. ==> variables locales
c
-#include "meddc0.h"
+ include "meddc0.h"
c
integer iaux, jaux
integer codre0
c 1. intialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 0.4. ==> variables locales
c
-#include "meddc0.h"
+ include "meddc0.h"
c
integer iaux, jaux
integer infmgl(30)
c 1. intialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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 ?
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 0.4. ==> variables locales
c
-#include "meddc0.h"
+ include "meddc0.h"
c
integer iaux, jaux, kaux, laux
integer lgnpro
c 1. intialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 0.4. ==> variables locales
c
-#include "meddc0.h"
+ include "meddc0.h"
c
integer iaux, jaux, kaux, laux
integer codre1, codre2
c====
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> les messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 0.4. ==> variables locales
c
-#include "meddc0.h"
+ include "meddc0.h"
c
integer iaux, jaux
integer hfmdel, hnoeel
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 0.4. ==> variables locales
c
-#include "meddc0.h"
+ include "meddc0.h"
c
integer iaux, jaux
integer codre0
c 1. intialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.2. ==> les messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 0.4. ==> variables locales
c
-#include "meddc0.h"
+ include "meddc0.h"
c
integer iaux
integer numann, datheu
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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) =
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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,*) '============================================='
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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,*) '============================================='
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 0.4. ==> variables locales
c
-#include "meddc0.h"
+ include "meddc0.h"
c
integer iaux, jaux, kaux
integer typrep
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> les messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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)
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 0.4. ==> variables locales
c
-#include "meddc0.h"
+ include "meddc0.h"
c
integer iaux, jaux, kaux
c
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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)
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 0.4. ==> variables locales
c
-#include "meddc0.h"
+ include "meddc0.h"
c
integer iaux, jaux
integer adnomb
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 0.4. ==> variables locales
c
-#include "meddc0.h"
+ include "meddc0.h"
c
integer iaux
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
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)
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 0.4. ==> variables locales
c
-#include "meddc0.h"
+ include "meddc0.h"
c
integer iaux, jaux, kaux
integer nuenmx, nbcibl
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 0.4. ==> variables locales
c
-#include "meddc0.h"
+ include "meddc0.h"
c
integer typnoe
integer iaux
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.'')'
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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)'
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> les messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
texte(2,5) = '(''Field : '')'
c
-#include "esimpr.h"
+ include "esimpr.h"
c
#ifdef _DEBUG_HOMARD_
call gmprsx (nompro, nosolu )
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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)'
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
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))
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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 : '')'
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))
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
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
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
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 0.4. ==> variables locales
c
-#include "meddc0.h"
+ include "meddc0.h"
c
integer iaux
integer lgdesc
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 0.4. ==> variables locales
c
-#include "meddc0.h"
+ include "meddc0.h"
c
integer nbmai1, nbmai2
integer nbseg2, nbseg3
c
c 1.1. ==> les messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
texte(2,5) =
> '(''These kinds of elements are not treated in HOMARD.'')'
c
-#include "esimpr.h"
+ include "esimpr.h"
c
nbnoto = 0
nbmane = 0
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 0.4. ==> variables locales
c
-#include "meddc0.h"
+ include "meddc0.h"
c
integer nummai
integer iaux, jaux, kaux, laux, maux
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
texte(2,4) = '(/,''REPERE NON PREVU ='',i4,/)'
c
-#include "impr03.h"
+ include "impr03.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,90002) 'option', option
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> les messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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)
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 0.4. ==> variables locales
c
-#include "meddc0.h"
+ include "meddc0.h"
c
integer iaux, jaux, kaux, laux
integer nmafin
c
c 1.1. ==> les messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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)
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 0.4. ==> variables locales
c
-#include "meddc0.h"
+ include "meddc0.h"
c
integer iaux, jaux
integer codre1, codre2, codre3, codre4, codre5
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 0.4. ==> variables locales
c
-#include "meddc0.h"
+ include "meddc0.h"
c
integer iaux
integer numdt, numit
c
c 1.1. ==> les messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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)
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 0.4. ==> variables locales
c
-#include "meddc0.h"
+ include "meddc0.h"
c
integer typnoe
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
c
texte(2,4) = '(''Number of nodes:'',i10)'
c
-#include "esimpr.h"
+ include "esimpr.h"
c
nbnoto = 0
c
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 0.4. ==> variables locales
c
-#include "meddc0.h"
+ include "meddc0.h"
c
integer iaux
integer typnoe
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.'')'
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 0.4. ==> variables locales
c
-#include "meddc0.h"
+ include "meddc0.h"
c
integer iaux, jaux
integer codre0
c
c 1.1. ==> les messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 0.4. ==> variables locales
c
-#include "meddc0.h"
+ include "meddc0.h"
c
integer nbmaie
integer nromai
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 0.4. ==> variables locales
c
-#include "meddc0.h"
+ include "meddc0.h"
c
integer nbmaie
integer typema
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
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)
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 0.4. ==> variables locales
c
-#include "meddc0.h"
+ include "meddc0.h"
c
integer iaux, jaux
integer typnoe, typseg, typtri, typqua
c
c 1.1. ==> les messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> les messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
write (ulsort,texte(langue,5)) nolopg
#endif
c
-#include "esimpr.h"
+ include "esimpr.h"
c
c====
c 2. caracterisation de la localisation a lire
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> les messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> les messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
1000 format (53('-'))
c
-#include "esimpr.h"
+ include "esimpr.h"
c
-#include "impr03.h"
+ include "impr03.h"
c
codret = 0
c
c 2. prealables
c====
c
-#include "litmed.h"
+ include "litmed.h"
c
c 2.1. ==> ouverture du fichier MED
c
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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) =
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
integer iaux
c
-#include "meddc0.h"
+ include "meddc0.h"
c
integer nbmess
parameter ( nbmess = 150 )
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 0.4. ==> variables locales
c
-#include "meddc0.h"
+ include "meddc0.h"
c
integer iaux
integer*8 idfmed
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.'')'
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. les messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. les messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. prealables
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. prealables
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. Messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
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)
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
write (ulsort,*) mess
write (ulsort,90000)
c
-#include "envex2.h"
+ include "envex2.h"
c
endif
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
endif
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( coergm.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
endif
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
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
#endif
c
if ( iaux.eq.20 ) then
-#include "envex2.h"
+ include "envex2.h"
call ugstop('gbcara',ulsort,1,1,1)
endif
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
c
c 0.4. ==> variables locales
c
-#include "gmnelx.h"
+ include "gmnelx.h"
c
character*1 sepa(4)
character*8 nomfis
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
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( coergm.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
endif
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
c
c 0.5. ==> initialisations
c
-#include "alphnu.h"
+ include "alphnu.h"
c ______________________________________________________________________
c
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
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
c 1. les messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
write(ulsort,*) nompro, ', code retour ',coergm,' pour ',nomter
c
-#include "envex2.h"
+ include "envex2.h"
c
endif
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
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
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
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
c
c 0.3. ==> arguments
c
-#include "gmnelx.h"
+ include "gmnelx.h"
c
character*(*) chaine
character*80 elem(nelx)
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
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
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
c 1. preliminaires
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( coergm.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
endif
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( coergm.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
endif
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
c 1. Initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
write (ulsort,texte(langue,5)) typobj
write (ulsort,texte(langue,6)) long
c
-#include "envex2.h"
+ include "envex2.h"
c
endif
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( coergm.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
endif
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( coergm.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
endif
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
c 2. Initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
write (ulsort,texte(langue,5)) typobj
write (ulsort,texte(langue,6)) long
c
-#include "envex2.h"
+ include "envex2.h"
c
endif
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
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
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
write(ulsort,*) 'Compression de la memoire'
#endif
c
-#include "impr03.h"
+ include "impr03.h"
c
c====
c 1. Pas de compression en mode dynamique
c
c 0.2. ==> communs
c
-#include "gmcoer.h"
+ include "gmcoer.h"
c
c 0.3. ==> arguments
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
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( coergm.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
endif
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( coergm.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
endif
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( coergm.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
endif
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( coergm.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
endif
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( coergm.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
endif
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
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
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
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
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
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
endif
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
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
c
c 0.4. ==> variables locales
c
-#include "gmnelx.h"
+ include "gmnelx.h"
c
integer iaux, jaux, jdeb, jfin
c
c 1. les messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
>/,'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')
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
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
c 1. initialisation des messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
c 0.4. ==> variables locales
c
-#include "gedita.h"
+ include "gedita.h"
c
integer iaux, code
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
lgimpr = 1
endif
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulimpr,texte(lgimpr,1)) nompro
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
endif
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
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
lgimpr = langue
endif
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulimpr,texte(lgimpr,1)) nompro
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
endif
write (ulsort,90000)
c
-#include "envex2.h"
+ include "envex2.h"
c
endif
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( coergm.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
endif
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( coergm.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
endif
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( coergm.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
endif
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( coergm.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
endif
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
c
character*5 fmtent
c
-#include "motcle.h"
+ include "motcle.h"
c
integer nbmess
parameter ( nbmess = 10 )
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c 1. preliminaires
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
#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
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
endif
write (ulsort,90000)
c
-#include "envex2.h"
+ include "envex2.h"
c
endif
c
c
c 0.2. ==> communs
c
-#include "gmimpr.h"
+ include "gmimpr.h"
c
c 0.3. ==> arguments
c
c
c 0.2. ==> communs
c
-#include "gmimpr.h"
+ include "gmimpr.h"
c
c 0.3. ==> arguments
c
c
c 0.2. ==> communs
c
-#include "gmimpr.h"
+ include "gmimpr.h"
c
c 0.3. ==> arguments
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
c 0.5. ==> initialisations
c ______________________________________________________________________
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
c 0.4. ==> variables locales
c
-#include "gtdita.h"
+ include "gtdita.h"
c
integer code
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 '
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
integer iaux
integer ulsort, langue
c
-#include "gtdita.h"
+ include "gtdita.h"
c
integer nbmess
parameter ( nbmess = 10 )
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
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
integer iaux
integer ulsort, langue
c
-#include "gtdita.h"
+ include "gtdita.h"
c
integer nbmess
parameter ( nbmess = 10 )
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
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
c
c 0.4. ==> variables locales
c
-#include "gtdita.h"
+ include "gtdita.h"
c
integer iaux, code
c
c 1. initialisation des messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
texte(1,4) = '(''Dans '',a,'', imprgt ='',i8)'
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
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
langue = 1
endif
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
c 0.4. ==> variables locales
c
-#include "gtdita.h"
+ include "gtdita.h"
c
integer iaux, code
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.'')'
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
c
c 0.4. ==> variables locales
c
-#include "gtdita.h"
+ include "gtdita.h"
c
logical imprim, dejavu
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) =
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
c
c 0.4. ==> variables locales
c
-#include "gtdita.h"
+ include "gtdita.h"
c
integer code, iaux, ifin, lontit
integer ulsort
c 1. initialisation des messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
c====
c 2. recuperation de l'information
character*6 nompro
parameter ( nompro = 'GTSTOP' )
c
-#include "nblang.h"
+ include "nblang.h"
c
c 0.2. ==> communs
c
character*80 texte(nblang,nbmess)
#endif
c
-#include "langue.h"
+ include "langue.h"
c
c====
c 1. appel du programme d'arret general
character*6 nompro
parameter ( nompro = 'GTTABL' )
c
-#include "genbla.h"
+ include "genbla.h"
c
c 0.2. ==> communs
c
c
integer code, nbsep1
c
-#include "gtdita.h"
+ include "gtdita.h"
c
c 0.4. ==> variables locales
c
c 1. initialisation des messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
c====
c 2. verifications
#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
c===
c
#ifdef _DEBUG_HOMARD_
-#include "impr01.h"
+ include "impr01.h"
#endif
c
code = 1
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
c
c 0.4. ==> variables locales
c
-#include "gulggt.h"
+ include "gulggt.h"
c
integer guimp, raison
integer iaux, code
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 :'')'
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
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.'')'
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
c
c 0.4. ==> variables locales
c
-#include "gulggt.h"
+ include "gulggt.h"
c
integer guimp, raison
integer iaux, code, statfi, l200
c 1. recuperation de l'information
c===
c
-#include "impr01.h"
+ include "impr01.h"
c
code = 1
call gutabl ( code, gunmbr, statut, nomfic, lnomfi )
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
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.'')'
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
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)'
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
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'
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
c 1. initialisation
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
c 1.1. ==> au debut, tout va bien ...
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
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.'')'
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
c
c 0.4. ==> variables locales
c
-#include "gulggt.h"
+ include "gulggt.h"
c
logical imprim
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) =
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
integer iaux
#endif
c
-#include "gulggt.h"
+ include "gulggt.h"
c
integer codre0
integer lfmode
integer langue
integer typarr
c
-#include "motcle.h"
+ include "motcle.h"
c
integer nbmess
parameter ( nbmess = 10 )
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
texte(1,4) =
>'(''L''''option de la memoire '',a8,'' est illisible.'')'
save
c
#ifdef _DEBUG_HOMARD_
-#include "gunbul.h"
+ include "gunbul.h"
#endif
c
c 0.2. ==> communs
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
c
c 0.4. ==> variables locales
c
-#include "gulggt.h"
+ include "gulggt.h"
c
integer ulsort
integer typarr
c===
c
#ifdef _DEBUG_HOMARD_
-#include "impr01.h"
+ include "impr01.h"
#endif
c
code = 1
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
integer iaux
#endif
c
-#include "gulggt.h"
+ include "gulggt.h"
c
integer ulsort, langue
integer typarr
c 1. recuperation de l'information
c===
c
-#include "impr01.h"
+ include "impr01.h"
c
code = 1
call gutabl ( code, gunmbr, statut, nomfic, lnomfi )
save
c
#ifdef _DEBUG_HOMARD_
-#include "gunbul.h"
+ include "gunbul.h"
#endif
c
c 0.2. ==> communs
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
#endif
c
#ifdef _DEBUG_HOMARD_
-#include "impr01.h"
+ include "impr01.h"
#endif
c
#ifdef _DEBUG_HOMARD_
character*6 nompro
parameter ( nompro = 'GUSTOP' )
c
-#include "nblang.h"
+ include "nblang.h"
c
c 0.2. ==> communs
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
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
c 1. verifications
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
c 1.1. ==> unite pour la sortie standard et langue
c
character*6 nompro
parameter ( nompro = 'UGFIA3' )
c
-#include "nblang.h"
+ include "nblang.h"
c
c 0.2. ==> communs
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
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
c
c 1.1. ==> les messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
character*6 nompro
parameter ( nompro = 'UGINIT' )
c
-#include "gelggt.h"
+ include "gelggt.h"
c
c 0.2. ==> communs
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
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.'')'
character*6 nompro
parameter ( nompro = 'UGSTOP' )
c
-#include "genbla.h"
+ include "genbla.h"
c
c 0.2. ==> communs
c
ulsort = messul
endif
c
-#include "impr01.h"
+ include "impr01.h"
c
texte(1,4) = ': A la demande du programme '
c 12345678901234567890123456789012345678
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
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
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
c
c 1.5. ==> les messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
endif
endif
c
-#include "impr03.h"
+ include "impr03.h"
c
c====
c 2. compactage des tableaux
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. les initialisations
c====
c
-#include "impr03.h"
+ include "impr03.h"
c
codava = codret
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.3. ==> les messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.3. ==> les messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.3. ==> les messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.5. ==> les messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
>''' 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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.7. ==> les messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
c 1.3. ==> les messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.3. ==> les messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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)
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
codret = 2
endif
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.5. ==> les messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. les initialisations
c====
c
-#include "impr03.h"
+ include "impr03.h"
c
codava = codret
c
codret = 2
endif
c
-#include "impr01.h"
+ include "impr01.h"
c
c 1.4. ==> l'etat courant
c
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
codret = 2
endif
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
endif
endif
c
-#include "impr03.h"
+ include "impr03.h"
c
c====
c 2. programme veritable
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
parameter ( nbrmes = 10 )
character*40 messag(nblang,nbrmes)
c
-#include "mesutp.h"
+ include "mesutp.h"
c
integer nbmess
parameter ( nbmess = 10 )
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
numsec (iaux) = 0
20 continue
c
-#include "hotits.h"
+ include "hotits.h"
c
endif
c
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.5. ==> les messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
endif
endif
c
-#include "impr03.h"
+ include "impr03.h"
c
c====
c 2. lectures des options et verification
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)
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.2. ==> les messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
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_
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
c
if ( modhom.eq.1 ) then
c
-#include "mslv12.h"
+ include "mslv12.h"
c
endif
c
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. les initialisations
c====
c
-#include "impr03.h"
+ include "impr03.h"
c
codava = codret
c
codret = 2
endif
c
-#include "impr01.h"
+ include "impr01.h"
c
c 1.4. ==> l'etat courant
c
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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 ______________________________________________________________________
c 1. initialisation
c====
c
-#include "impr01.h"
-#include "impr03.h"
+ include "impr01.h"
+ include "impr03.h"
c
lang = langue
nomfic = nfconf
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
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
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
codret = 2
endif
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
endif
c
-#include "impr03.h"
+ include "impr03.h"
c
c====
c 2. A-t-on des aretes et des quadrangles concernees
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.5. ==> les messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 0.4. ==> variables locales
c
-#include "meddc0.h"
+ include "meddc0.h"
c
integer iaux, jaux
integer adhist, adcode, adinsu, adcoar, admere, adins2
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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)
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> les messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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)
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c====
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
write (ulecr,46040) laface, taux40
nbface = nbface + 1
iaux = nbface
-#include "tbdim2.h"
+ include "tbdim2.h"
trav1a(iaux) = laface
3261 continue
endif
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
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
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
endif
write (ulecr,47030) laface, taux40
iaux = iaux + 1
-#include "tbdim2.h"
+ include "tbdim2.h"
trav2a(iaux) = laface
2271 continue
endif
2276 continue
nbface = nbface + 1
iaux = nbface
-#include "tbdim2.h"
+ include "tbdim2.h"
trav2a(iaux) = laface
2277 continue
2275 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
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
parameter ( nbmess = 10 )
character*80 texte(nblang,nbmess)
c
-#include "fractd.h"
+ include "fractd.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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
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
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
endif
32622 continue
nquaut = nquaut + 1
-#include "tbdim5.h"
+ include "tbdim5.h"
trav1a(nbar+ntraut+nquaut) = jaux
endif
endif
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
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
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
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
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> les messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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,' *')
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c 1. prealables
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. les messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
texte(2,6) = '(''Centre = '',3g12.5)'
texte(2,7) = '(''Size = '',3g12.5)'
c
-#include "impr03.h"
+ include "impr03.h"
c
codret = 0
c
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c====
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c====
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> les messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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,',
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. les initialisations
c====
c
-#include "impr03.h"
+ include "impr03.h"
c
codava = codret
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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, '' *'')'
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('*'),/)
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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)'
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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))
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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))
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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))
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c====
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c====
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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)'
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.3. ==> les messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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,''.'')'
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 0.5. ==> initialisations
c
-#include "impr01.h"
+ include "impr01.h"
c ______________________________________________________________________
c
c====
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> les messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> les messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.5. ==> les messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
c
c 0.2. ==> communs
c
-#include "nombar.h"
-#include "nombtr.h"
+ include "nombar.h"
+ include "nombtr.h"
c
c 0.3. ==> arguments
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
codret = 0
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c====
c 1.1. ==> Les messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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 '
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c====
c 1.1. ==> les messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c====
c 1.1. ==> Les messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c====
c 1.1. ==> Les messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> les messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> les messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> les messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.3. ==> les messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
> '(''.. 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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
texte(2,4) = '(''Constant coordinate is wrong:'',i7)'
c
-#include "impr03.h"
+ include "impr03.h"
c
codret = 0
c
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
> ncafdg//'.Table')
#endif
c
-#include "impr03.h"
+ include "impr03.h"
c====
c 2. les structures
c====
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
codret = 0
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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,'*')
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
codret = 0
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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('*'))
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
codret = 0
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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,'*')
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
texte(2,6) =
>'(''*'',20x,''All the groups are taken off'',34x,''*'')'
c
-#include "impr03.h"
+ include "impr03.h"
c
1000 format(/)
1001 format(84('*'))
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> les messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.3. ==> les messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisation
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
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
c====
c 1.1. ==> les messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.3. ==> les messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.3. ==> les messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.3. ==> les messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> les messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
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)
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
c
c 1.3. ==> les messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 0.5. ==> initialisations
c ______________________________________________________________________
c
-#include "impr03.h"
+ include "impr03.h"
c
c====
c 1. initialisation
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
c====
c
cgn ulsort = lenoeu
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
> '(''.. 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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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))
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.3. ==> les messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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))
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.3. ==> les messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
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
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
texte(2,4) = '(''Adresses for neighbours'')'
c
-#include "impr03.h"
+ include "impr03.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,4))
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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))
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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)
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
> '(''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)
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.3. ==> les messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> les messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.3. ==> les messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.3. ==> les messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
texte(2,4) = '(''Adresses for entities'')'
c
-#include "impr03.h"
+ include "impr03.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,4))
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
texte(2,4) = '(''Adresses for entities'')'
c
-#include "impr03.h"
+ include "impr03.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,4))
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 0.4. ==> variables locales
c
-#include "utliob.h"
+ include "utliob.h"
c
integer codre1, codre2, codre3, codre4, codre5
integer codre6
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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)
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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))
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
texte(2,6) = '(''Option:'',i2)'
texte(2,7) = '(''Impossible.'')'
c
-#include "impr03.h"
+ include "impr03.h"
c
codret = 0
c
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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)
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
texte(2,4) = '(''Allocations for entities'')'
c
-#include "impr03.h"
+ include "impr03.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,4))
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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)
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.2. ==> les messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.2. ==> les messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
c
c 0.2. ==> communs
c
-#include "j1234j.h"
+ include "j1234j.h"
c
c 0.3. ==> arguments
c
integer lafac1, lafac2, lafac5, lafac6
integer codfa1, codfa2, codfa5, codfa6
c
-#include "impr03.h"
+ include "impr03.h"
c
c====
c 1. traitement
c
c 0.2. ==> communs
c
-#include "j1234j.h"
+ include "j1234j.h"
c
c 0.3. ==> arguments
c
c
c 0.2. ==> communs
c
-#include "i1i2i3.h"
+ include "i1i2i3.h"
c
c 0.3. ==> arguments
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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_
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
c
c 0.2. ==> communs
c
-#include "i1i2i3.h"
+ include "i1i2i3.h"
c
c 0.3. ==> arguments
c
integer iaux
c ______________________________________________________________________
c
-#include "impr03.h"
+ include "impr03.h"
c
c====
c 1. Les aretes de l'hexaedre
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
write (ulbila,texte(langue,4))
c
-#include "impr03.h"
+ include "impr03.h"
c
10100 format(/,5x,60('*'))
10200 format( 5x,60('*'))
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
> '(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. '
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Sortie', nompro
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
c 1. titre
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. Messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. titre
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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)
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
12200 format( 5x,'* ',a43,' * ', i10,' *')
c
-#include "impr03.h"
+ include "impr03.h"
c
codret = 0
c
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
10200 format( 5x,60('*'))
c
-#include "impr03.h"
+ include "impr03.h"
c
codret = 0
c
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
10001 format(4x,60('-'))
#endif
c
-#include "impr03.h"
+ include "impr03.h"
c
codret = 0
c
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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)
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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('*'))
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
< '(/,10x,''Direction | Unit'',/,5x,41(''-''))'
texte(2,6) = '(8x,a16,'' | '',a16)'
c
-#include "impr03.h"
+ include "impr03.h"
c
codret = 0
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
c====
c 1.1. messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c 1. initialisation
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
>)'
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
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c====
c 1.1. messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c 1. titre
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. titre
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
iaux = larete
c
-#include "utb302.h"
+ include "utb302.h"
c
if ( sdim.eq.1 ) then
write (ulbila,14201) sommet(1), v1(1)
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
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
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)
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
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
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)
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
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
nbpbco(typenh) = 0
endif
c
-#include "utb3d1.h"
+ include "utb3d1.h"
c
#ifdef _DEBUG_HOMARD_
if ( glop.ne.0 ) then
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 ...
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)
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
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
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
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
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
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
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
nbpbco(typenh) = 0
endif
c
-#include "utb3e1.h"
+ include "utb3e1.h"
c
#ifdef _DEBUG_HOMARD_
if ( glop.ne.0 ) then
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)
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)
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)
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
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
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
c
lenoeu = examno(jaux)
c
-#include "utb304.h"
+ include "utb304.h"
c
cgn write(ulsort,1789) vn
cgn write(ulsort,1789) xmin,xmax
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
c
do 22 , nuarfr = 1 , nbarfr
c
-#include "utb308.h"
+ include "utb308.h"
c
c 2.2.3. ==> Examen
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
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
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
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
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
nbpbco(typenh) = 0
endif
c
-#include "utb3f1.h"
+ include "utb3f1.h"
c
#ifdef _DEBUG_HOMARD_
if ( glop.ne.0 ) then
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 ...
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)
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
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
c
lenoeu = examno(jaux)
c
-#include "utb304.h"
+ include "utb304.h"
c
cgn write(ulsort,1789) vn
cgn write(ulsort,1789) xmin,xmax
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
c
do 22 , nuarfr = 1 , nbarfr
c
-#include "utb308.h"
+ include "utb308.h"
c
c 2.2.3. ==> Examen
c
c
lenoeu = examno(jaux)
c
-#include "utb314.h"
+ include "utb314.h"
c
cgn write(ulsort,1789) vn
cgn write(ulsort,1789) xmin,xmax
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
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
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
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
nbpbco(typenh) = 0
endif
c
-#include "utb3g1.h"
+ include "utb3g1.h"
c
#ifdef _DEBUG_HOMARD_
if ( glop.ne.0 ) then
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 ...
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)
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
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
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
c
lenoeu = examno(jaux)
c
-#include "utb304.h"
+ include "utb304.h"
c
cgn write(ulsort,1789) vn
cgn write(ulsort,1789) xmin,xmax
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
c
do 22 , nuarfr = 1 , nbarfr
c
-#include "utb308.h"
+ include "utb308.h"
c
c 2.2.3. ==> Examen
c
c
lenoeu = examno(jaux)
c
-#include "utb314.h"
+ include "utb314.h"
c
cgn write(ulsort,1789) vn
cgn write(ulsort,1789) xmin,xmax
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
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
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Sortie', nompro
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Sortie', nompro
integer sdim
parameter ( sdim = 3 )
c
-#include "nblang.h"
+ include "nblang.h"
c
c 0.2. ==> communs
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
integer sdim
parameter ( sdim = 2 )
c
-#include "nblang.h"
+ include "nblang.h"
c
c 0.2. ==> communs
c
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
integer sdim
parameter ( sdim = 1 )
c
-#include "nblang.h"
+ include "nblang.h"
c
c 0.2. ==> communs
c
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
> '(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)
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Sortie', nompro
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
write (ulsort,texte(langue,4)) saux06
write (ulsort,texte(langue,5))
c
-#include "impr03.h"
+ include "impr03.h"
c
c====
c 2. verifications
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Sortie', nompro
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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 )
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
write (ulsort,texte(langue,4)) obfonc
endif
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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))
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
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
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====
c
c 0.2. ==> communs
c
-#include "envca1.h"
-#include "nouvnb.h"
+ include "envca1.h"
+ include "nouvnb.h"
c
c 0.3. ==> arguments
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
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
c 1. messages
c====
c
-#include "impr03.h"
+ include "impr03.h"
c
#ifdef _DEBUG_HOMARD_
write (1,*) 'entree de ',nompro
c
c 0.2. ==> communs
c
-#include "nouvnb.h"
-#include "nombte.h"
+ include "nouvnb.h"
+ include "nombte.h"
c
c 0.3. ==> arguments
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
c 1. messages
c====
c
-#include "impr03.h"
+ include "impr03.h"
c
cgn print 90002,nompro//' - option',option
cgn print 90002,'nbtrre',nbtrre
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
c
codret = 0
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> les messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. impression
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
#ifdef _DEBUG_HOMARD_
if ( ulsort.ne.0 ) then
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
texte(2,10) ='(''Cut edge cannot be found.'')'
c
-#include "impr03.h"
+ include "impr03.h"
c
codret = 0
c
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> les messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
codret = 0
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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))
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 0.5. ==> initialisations
c ______________________________________________________________________
c
-#include "impr01.h"
+ include "impr01.h"
c
c====
c 1. decodage
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
textet = ' '
lgtext = 1
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
implicit none
save
c
-#include "nblang.h"
+ include "nblang.h"
c
c 0.2. ==> communs
c
c
c 0.5. ==> initialisations
c
-#include "utjomo.h"
+ include "utjomo.h"
c
c_______________________________________________________________________c
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
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
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
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
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
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
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
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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)
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr03.h"
+ include "impr03.h"
c
c 1.1. ==> constantes
c
c
c 1.2. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Sortie', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
endif
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
c
c 1.2. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
c 0.4. ==> variables locales
c
-#include "utliob.h"
+ include "utliob.h"
c
integer iaux
integer adnore, adlono, adpono, adnofi, adnoos, adinsu
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
c
c 0.2. ==> communs
c
-#include "hexcf0.h"
+ include "hexcf0.h"
c
c 0.3. ==> arguments
c
integer iaux
integer bindec
c
-#include "impr03.h"
+ include "impr03.h"
c
c====
c 1. Nombre de fils
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
c
c 0.4. ==> variables locales
c
-#include "utliob.h"
+ include "utliob.h"
c
integer adnore, adlono, adpono, adnofi, adnoos
integer nbfich
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
character*6 nompro
parameter ( nompro = 'UTFIN2' )
c
-#include "nblang.h"
+ include "nblang.h"
c
c 0.2. ==> communs
c
parameter ( nbmess = 10 )
character*80 texte(nblang,nbmess)
c
-#include "motcle.h"
+ include "motcle.h"
c
c 0.5. ==> initialisations
c ______________________________________________________________________
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
character*6 nompro
parameter ( nompro = 'UTFINO' )
c
-#include "nblang.h"
+ include "nblang.h"
c
c 0.2. ==> communs
c
parameter ( nbmess = 10 )
character*80 texte(nblang,nbmess)
c
-#include "motcle.h"
+ include "motcle.h"
c
c 0.5. ==> initialisations
c ______________________________________________________________________
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
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
integer nbfite, filste
integer nbfihe, filshe
c
-#include "impr03.h"
+ include "impr03.h"
c
c====
c 1. Les aretes externes de l'hexaedre
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
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
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
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
integer tabaux(6)
integer typenh
c
-#include "impr03.h"
+ include "impr03.h"
c
c====
c 1. les constantes
c 7. fonctions pour la conformite des hexaedres
c====
c
-#include "hexcf2.h"
+ include "hexcf2.h"
c
c====
c 8. Caracteristiques des familles :
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
c
c 0.4. ==> variables locales
c
-#include "meddc0.h"
+ include "meddc0.h"
c
integer iaux, jaux
character*6 saux06
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
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
c
c 1.2. ==> les messages,
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 0.4. ==> variables locales
c
-#include "meddc0.h"
+ include "meddc0.h"
c
integer iaux
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> les messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c 1. les messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
texte(1,4) = '(//,''1. INITIALISATIONS'')'
texte(1,5) = '(18(''=''),/)'
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
endif
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
c 1. les messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
texte(2,40) =
> '(8x,''. Elimination of'',i11,1x,a14)'
c
-#include "impr03.h"
+ include "impr03.h"
c
codret = 0
c
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
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
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
c
if ( codre0.eq.0 ) then
c
-#include "utlo03.h"
+ include "utlo03.h"
c
if ( loptio.eq.2 ) then
c
c
endif
c
-#include "utlo01.h"
+ include "utlo01.h"
c
c====
c 3. la fin
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codre0.eq.0 ) then
c
-#include "utlo03.h"
+ include "utlo03.h"
c
if ( loptio.eq.3 ) then
c
c
endif
c
-#include "utlo01.h"
+ include "utlo01.h"
c
c====
c 3. la fin
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codre0.eq.0 ) then
c
-#include "utlo03.h"
+ include "utlo03.h"
c
if ( loptio.eq.8 ) then
c
c
endif
c
-#include "utlo01.h"
+ include "utlo01.h"
c
c====
c 3. la fin
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codre0.eq.0 ) then
c
-#include "utlo03.h"
+ include "utlo03.h"
c
if ( loptio.eq.2 ) then
c
c
endif
c
-#include "utlo01.h"
+ include "utlo01.h"
c
c====
c 3. la fin
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codre0.eq.0 ) then
c
-#include "utlo03.h"
+ include "utlo03.h"
c
if ( loptio.eq.3 ) then
c
c
endif
c
-#include "utlo01.h"
+ include "utlo01.h"
c
c====
c 3. la fin
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codre0.eq.0 ) then
c
-#include "utlo03.h"
+ include "utlo03.h"
c
if ( loptio.eq.6 ) then
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codre0.eq.0 ) then
c
-#include "utlo03.h"
+ include "utlo03.h"
c
if ( loptio.eq.2 ) then
c
c
endif
c
-#include "utlo01.h"
+ include "utlo01.h"
c
c====
c 3. la fin
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codre0.eq.0 ) then
c
-#include "utlo03.h"
+ include "utlo03.h"
c
if ( loptio.eq.4 ) then
c 1234
c
endif
c
-#include "utlo01.h"
+ include "utlo01.h"
c
c====
c 3. la fin
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codre0.eq.0 ) then
c
-#include "utlo03.h"
+ include "utlo03.h"
c
option = 1
c
c
endif
c
-#include "utlo01.h"
+ include "utlo01.h"
#ifdef _DEBUG_HOMARD_
if ( codret.eq.0 ) then
c
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codre0.eq.0 ) then
c
-#include "utlo03.h"
+ include "utlo03.h"
c
if ( loptio.eq.1 ) then
c 1
c
endif
c
-#include "utlo01.h"
+ include "utlo01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,90002) 'option', option
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
endif
c
-#include "utlo01.h"
+ include "utlo01.h"
c
c====
c 3. la fin
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codre0.eq.0 ) then
c
-#include "utlo03.h"
+ include "utlo03.h"
c
if ( loptio.eq.1 ) then
c
c
endif
c
-#include "utlo01.h"
+ include "utlo01.h"
c
c====
c 3. la fin
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codre0.eq.0 ) then
c
-#include "utlo03.h"
+ include "utlo03.h"
c
if ( loptio.eq.6 ) then
c
c
endif
c
-#include "utlo01.h"
+ include "utlo01.h"
c
c====
c 3. la fin
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
> '(''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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
> ( 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
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.2. ==> les messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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 '
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
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
c
c 1.2. ==> les messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
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
c
c 0.4. ==> variables locales
c
-#include "utliob.h"
+ include "utliob.h"
c
integer codre0
integer iaux, jaux
c
c 1.2. ==> les messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 0.4. ==> variables locales
c
-#include "utliob.h"
+ include "utliob.h"
c
integer codre1, codre2, codre3, codre4
integer codre0
c
c 1.2. ==> les messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.2. ==> les messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
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
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
codret = 2
endif
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
c
c 1.2. ==> les messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
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
c
c 0.4. ==> variables locales
c
-#include "utliob.h"
+ include "utliob.h"
c
integer codre0
integer iaux, jaux
c
c 1.2. ==> les messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
codret = 0
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef NEPTUNE
messag(1,1) = 'Cette version est destinee exclusivement'
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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))
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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))
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
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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))
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> les messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
c
c 0.2. ==> communs
c
-#include "nombqu.h"
-#include "nombhe.h"
+ include "nombqu.h"
+ include "nombhe.h"
c
c 0.3. ==> arguments
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
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
integer saiaj, sajak, sakal, salai
integer ni
c
-#include "impr03.h"
+ include "impr03.h"
c ______________________________________________________________________
c
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
integer etan, etanp1
integer lesomm
c
-#include "impr03.h"
+ include "impr03.h"
c ______________________________________________________________________
c
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
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
c
c 0.2. ==> communs
c
-#include "nombqu.h"
+ include "nombqu.h"
c
c 0.3. ==> arguments
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
c
integer larete, s1, s2
c
-#include "impr03.h"
+ include "impr03.h"
c ______________________________________________________________________
c
c creation des noeuds p2 sur les nouvelles aretes
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
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
c
c 0.5. ==> initialisations
c
-#include "impr03.h"
+ include "impr03.h"
c
c====
c 1. Determination du niveau
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
c
c 0.5. ==> initialisations
c
-#include "impr03.h"
+ include "impr03.h"
c
c====
c 1. Determination du niveau
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
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 0.4. ==> variables locales
c
-#include "utliob.h"
+ include "utliob.h"
c
integer iaux
integer adnore
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
c 0.4. ==> variables locales
c
-#include "utliob.h"
+ include "utliob.h"
c
integer iaux
integer adnore, adnoos
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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.
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
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
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
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
c 0.5. ==> initialisations
c ______________________________________________________________________
c
-#include "impr03.h"
+ include "impr03.h"
c
c====
c 1. Parcours
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
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
c
logical prem
c
-#include "fracta.h"
-#include "fractc.h"
+ include "fracta.h"
+ include "fractc.h"
c
c 0.5. ==> initialisations
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
c
c 0.2. ==> communs
c
-#include "nombno.h"
-#include "fracte.h"
+ include "nombno.h"
+ include "fracte.h"
c
c 0.3. ==> arguments
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
c
logical prem
c
-#include "fract0.h"
-#include "fracta.h"
+ include "fract0.h"
+ include "fracta.h"
c
c 0.5. ==> initialisations
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
c
c 0.2. ==> communs
c
-#include "precis.h"
+ include "precis.h"
c
c 0.3. ==> arguments
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
c====
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> les messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> les messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> les messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> les messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
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
c
c 1.1. ==> les messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
c 0.2. ==> communs
c
-#include "precis.h"
+ include "precis.h"
c
c 0.3. ==> arguments
c
c
c 0.2. ==> communs
c
-#include "precis.h"
+ include "precis.h"
c
c 0.3. ==> arguments
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
write (ulsort,texte(langue,7))
endif
c
-#include "impr03.h"
+ include "impr03.h"
c
c====
c 2. conversion de la solution
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
c 1. on compacte
c====
c
-#include "impr03.h"
+ include "impr03.h"
c
#ifdef _DEBUG_HOMARD_
write (1,*)'UTSRC1'
c 1. on compacte
c====
c
-#include "impr03.h"
+ include "impr03.h"
c
#ifdef _DEBUG_HOMARD_
write (1,*)'UTSRC3'
c
c 0.2. ==> communs
c
-#include "nombar.h"
-#include "nouvnb.h"
+ include "nombar.h"
+ include "nouvnb.h"
c
c 0.3. ==> arguments
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
codret = 0
c
-#include "impr03.h"
+ include "impr03.h"
c====
c 2. Tableaux utilitaires
c====
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
c
c 0.2. ==> communs
c
-#include "nombhe.h"
-#include "nouvnb.h"
+ include "nombhe.h"
+ include "nouvnb.h"
c
c 0.3. ==> arguments
c
integer cmptr, cmptr1
c ______________________________________________________________________
c
-#include "impr03.h"
+ include "impr03.h"
c
c====
c 1. fabrication des tableaux ancnoe et nounoe
c
c 0.2. ==> communs
c
-#include "nombpe.h"
-#include "nouvnb.h"
+ include "nombpe.h"
+ include "nouvnb.h"
c
c 0.3. ==> arguments
c
c
c 0.2. ==> communs
c
-#include "nombqu.h"
-#include "nouvnb.h"
+ include "nombqu.h"
+ include "nouvnb.h"
c
c 0.3. ==> arguments
c
c
c 0.2. ==> communs
c
-#include "nombte.h"
-#include "nouvnb.h"
+ include "nombte.h"
+ include "nouvnb.h"
c
c 0.3. ==> arguments
c
c
c 0.2. ==> communs
c
-#include "nombtr.h"
-#include "nouvnb.h"
+ include "nombtr.h"
+ include "nouvnb.h"
c
c 0.3. ==> arguments
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
c
c 1.1. ==> les messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. Messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
texte(2,8) = '(''--> value: '',a)'
texte(2,9) = '(''Unknown type.'')'
c
-#include "impr03.h"
+ include "impr03.h"
c
codret = 0
c
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 0.2. ==> communs
c
-#include "nombno.h"
+ include "nombno.h"
c
c 0.3. ==> arguments
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
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
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
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
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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))
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
c
c 0.2. ==> communs
c
-#include "precis.h"
+ include "precis.h"
c
c 0.3. ==> arguments
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
implicit none
save
c
-#include "consts.h"
+ include "consts.h"
c
c 0.2. ==> communs
c
character*16 motcle
character*200 nomflo
c
-#include "langue.h"
+ include "langue.h"
c
c 0.5. ==> initialisations
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 ______________________________________________________________________
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
c
c 0.4. ==> variables locales
c
-#include "meddc0.h"
+ include "meddc0.h"
c
integer iaux
integer ideb , ifin
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
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
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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
211 continue
nbtetr = nbtetr + 1
iaux = nbtetr
-#include "tbdim2.h"
+ include "tbdim2.h"
trav1a(iaux) = jaux
c
elseif ( jaux.lt.0 ) then
212 continue
nbpyra = nbpyra + 1
iaux = 2*decafv+nbpyra
-#include "tbdim2.h"
+ include "tbdim2.h"
trav1a(iaux) = pypetr(1,-jaux)
endif
c
213 continue
nbpent = nbpent + 1
iaux = 3*decafv+nbpent
-#include "tbdim2.h"
+ include "tbdim2.h"
trav1a(iaux) = pypetr(2,-jaux)
endif
c
221 continue
nbhexa = nbhexa + 1
iaux = decafv+nbhexa
-#include "tbdim2.h"
+ include "tbdim2.h"
trav1a(iaux) = jaux
c
elseif ( jaux.lt.0 ) then
222 continue
nbpyra = nbpyra + 1
iaux = 2*decafv+nbpyra
-#include "tbdim2.h"
+ include "tbdim2.h"
trav1a(iaux) = pypequ(1,-jaux)
endif
c
223 continue
nbpent = nbpent + 1
iaux = 3*decafv+nbpent
-#include "tbdim2.h"
+ include "tbdim2.h"
trav1a(iaux) = pypequ(2,-jaux)
endif
c
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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))
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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))
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
c
c 1.1. ==> messages
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
implicit none
save
c
-#include "fracte.h"
+ include "fracte.h"
c
c 0.2. ==> communs
c 0.3. ==> arguments
c
c 0.2. ==> communs
c
-#include "nombno.h"
-#include "envca1.h"
+ include "nombno.h"
+ include "envca1.h"
c
c 0.3. ==> arguments
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
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))
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
implicit none
save
c
-#include "fracte.h"
+ include "fracte.h"
c
c 0.2. ==> communs
c 0.3. ==> arguments
c
c 0.2. ==> communs
c
-#include "nombno.h"
-#include "envca1.h"
+ include "nombno.h"
+ include "envca1.h"
c
c 0.3. ==> arguments
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
implicit none
save
c
-#include "fracte.h"
+ include "fracte.h"
c
c 0.2. ==> communs
c 0.3. ==> arguments
c
c 0.2. ==> communs
c
-#include "nombno.h"
-#include "envca1.h"
+ include "nombno.h"
+ include "envca1.h"
c
c 0.3. ==> arguments
c
implicit none
save
c
-#include "fracte.h"
+ include "fracte.h"
c
c 0.2. ==> communs
c 0.3. ==> arguments
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
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
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
c 1. messages
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
write (ulsort,texte(langue,1)) 'Sortie', nompro
write (ulsort,texte(langue,2)) codret
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
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
c 1. initialisations
c====
c
-#include "impr01.h"
+ include "impr01.h"
c
#ifdef _DEBUG_HOMARD_
write (ulsort,texte(langue,1)) 'Entree', nompro
c
if ( codret.ne.0 ) then
c
-#include "envex2.h"
+ include "envex2.h"
c
iaux = 2
call utimpg ( iaux, ngauss, nbnorf, sdim,
