src/tool/Gestion_MTU/gtstop.F

   1       subroutine gtstop ( appela, ulsort, raison )
   2 c ______________________________________________________________________
   3 c
   4 c                             H O M A R D
   5 c
   6 c Outil de Maillage Adaptatif par Raffinement et Deraffinement d'EDF R&D
   7 c
   8 c Version originale enregistree le 18 juin 1996 sous le numero 96036
   9 c aupres des huissiers de justice Simart et Lavoir a Clamart
  10 c Version 11.2 enregistree le 13 fevrier 2015 sous le numero 2015/014
  11 c aupres des huissiers de justice
  12 c Lavoir, Silinski & Cherqui-Abrahmi a Clamart
  13 c
  14 c    HOMARD est une marque deposee d'Electricite de France
  15 c
  16 c Copyright EDF 1996
  17 c Copyright EDF 1998
  18 c Copyright EDF 2002
  19 c Copyright EDF 2020
  20 c ______________________________________________________________________
  21 c                                       premiere creation le 30.12.88 gn
  22 c ______________________________________________________________________
  23 c
  24 c    'Gestion du Temps : STOP du programme'
  25 c     -          -       ----
  26 c ______________________________________________________________________
  27 c
  28 c but : arrete le gestionnaire de temps
  29 c ______________________________________________________________________
  30 c .        .     .        .                                            .
  31 c .  nom   . e/s . taille .           description                      .
  32 c .____________________________________________________________________.
  33 c . appela . e   .    1   . nom du programme appelant                  .
  34 c . ulsort . e   .    1   . unite logique pour les messages            .
  35 c . raison . e   .    1   . raison de l'appel :                        .
  36 c .        .     .        . 0 : arret normal, sans core                .
  37 c .        .     .        . >0 : call abort -> core                    .
  38 c .        .     .        . <0 : arret des gestionnaires, puis sortie  .
  39 c ______________________________________________________________________
  40 c
  41 c====
  42 c 0. declarations et dimensionnement
  43 c====
  44 c
  45 c 0.1. ==> generalites
  46 c
  47       implicit none
  48       save
  49 c
  50       character*6 nompro
  51       parameter ( nompro = 'GTSTOP' )
  52 c
  53 #include "nblang.h"
  54 c
  55 c 0.2. ==> communs
  56 c
  57 c 0.3. ==> arguments
  58 c
  59       integer ulsort, raison
  60 c
  61       character *(*) appela
  62 c
  63 c 0.4. ==> variables locales
  64 c
  65       integer guimp, gmimp
  66 c
  67 #ifdef _DEBUG_HOMARD_
  68       integer nbmess
  69       parameter ( nbmess = 10 )
  70       character*80 texte(nblang,nbmess)
  71 #endif
  72 c
  73 #include "langue.h"
  74 c
  75 c====
  76 c  1. appel du programme d'arret general
  77 c====
  78 c
  79       guimp = 0
  80       gmimp = 0
  81 c
  82 #ifdef _DEBUG_HOMARD_
  83       write (ulsort,texte(langue,3)) 'UGSTOP', nompro
  84 #endif
  85       call ugstop ( appela, ulsort, guimp, gmimp, raison )
  86 c
  87       end