Esope source files

   1 : C SUCAEL    SOURCE    GOUNAND   05/12/21    21:36:22     5281           
   2 :       SUBROUTINE SUCAEL(MYCAEL,
   3 :      $     IMPR,IRET)
   4 :       IMPLICIT REAL*8 (A-H,O-Z)
   5 :       IMPLICIT INTEGER (I-N)
   6 : C***********************************************************************
   7 : C NOM         : SUCAEL 
   8 : C DESCRIPTION : Détruit un champ par élément MCHAEL (les miens)
   9 : C               (seulement les valeurs, pas les maillages d'éléments)
  10 : C LANGAGE     : ESOPE
  11 : C AUTEUR      : Stéphane GOUNAND (CEA/DRN/DMT/SEMT/LTMF)
  12 : C               mél : gounand@semt2.smts.cea.fr
  13 : C***********************************************************************
  14 : C APPELES          : -
  15 : C APPELE PAR       : PRNLI2
  16 : C***********************************************************************
  17 : C ENTREES            : MYCAEL
  18 : C ENTREES/SORTIES    : -
  19 : C SORTIES            : -
  20 : C CODE RETOUR (IRET) : = 0 si tout s'est bien passé
  21 : C***********************************************************************
  22 : C VERSION    : v1, 19/12/02, version initiale
  23 : C HISTORIQUE : v1, 19/12/02, création
  24 : C HISTORIQUE :
  25 : C HISTORIQUE :
  26 : C***********************************************************************
  27 : C Prière de PRENDRE LE TEMPS de compléter les commentaires
  28 : C en cas de modification de ce sous-programme afin de faciliter
  29 : C la maintenance !
  30 : C***********************************************************************
  31 : -INC CCOPTIO
  32 : CBEGININCLUDE SMCHAEL
  33 :       SEGMENT MCHAEL
  34 :       POINTEUR IMACHE(N1).MELEME
  35 :       POINTEUR ICHEVA(N1).MCHEVA
  36 :       ENDSEGMENT
  37 :       SEGMENT MCHEVA
  38 :       REAL*8 VELCHE(NBLIG,NBCOL,N2LIG,N2COL,NBPOI,NBELM)
  39 :       ENDSEGMENT
  40 :       SEGMENT LCHEVA
  41 :       POINTEUR LISCHE(NBCHE).MCHEVA
  42 :       ENDSEGMENT
  43 : CENDINCLUDE SMCHAEL
  44 :       POINTEUR MYCAEL.MCHAEL
  45 : *
  46 :       INTEGER IMPR,IRET
  47 : *
  48 : *     
  49 : * Executable statements
  50 : *
  51 :       IF (IMPR.GT.1) WRITE(IOIMP,*) 'Entrée dans sucael'
  52 :       IF (MYCAEL.NE.0) THEN
  53 :          SEGACT MYCAEL*MOD
  54 : *         SEGACT MYCAEL.ICHEVA(*)*MOD
  55 :          SEGSUP MYCAEL.ICHEVA(*)
  56 :          SEGSUP MYCAEL
  57 :       ENDIF
  58 : *
  59 : * Normal termination
  60 : *
  61 :       IRET=0
  62 :       RETURN
  63 : *
  64 : * Format handling
  65 : *
  66 : *
  67 : * Error handling
  68 : *
  69 :  9999 CONTINUE
  70 :       IRET=1
  71 :       WRITE(IOIMP,*) 'An error was detected in subroutine sucael'
  72 :       RETURN
  73 : *
  74 : * End of subroutine SUCAEL
  75 : *
  76 :       END
  77 : 
  78 :