Esope source files

   1 : C SUFALS    SOURCE    GOUNAND   05/12/21    21:36:29     5281           
   2 :       SUBROUTINE SUFALS(MYFALS,IMPR,IRET)
   3 :       IMPLICIT REAL*8 (A-H,O-Z)
   4 :       IMPLICIT INTEGER (I-N)
   5 : C***********************************************************************
   6 : C NOM         : SUFALS
   7 : C PROJET      : Noyau linéaire NLIN
   8 : C DESCRIPTION : Supprimme le segment contenant les informations sur
   9 : C               l'ensemble des familles d'éléments de référence
  10 : C
  11 : C LANGAGE     : ESOPE
  12 : C AUTEUR      : Stéphane GOUNAND (CEA/DRN/DMT/SEMT/LTMF)
  13 : C               mél : gounand@semt2.smts.cea.fr
  14 : C***********************************************************************
  15 : C APPELES          : 
  16 : C APPELE PAR       : 
  17 : C***********************************************************************
  18 : C ENTREES            :
  19 : C ENTREES/SORTIES    : -
  20 : C SORTIES            :
  21 : C CODE RETOUR (IRET) : = 0 si tout s'est bien passé
  22 : C***********************************************************************
  23 : C VERSION    : v1, 19/12/02, version initiale
  24 : C HISTORIQUE : v1, 19/12/02, création
  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 SFALRF
  33 :       SEGMENT FALRF
  34 :       CHARACTER*(LNNFA) NOMFA
  35 :       INTEGER NUQUAF(NBLRF)
  36 :       POINTEUR ELEMF(NBLRF).ELREF
  37 :       ENDSEGMENT
  38 :       SEGMENT FALRFS
  39 :       POINTEUR LISFA(0).FALRF
  40 :       ENDSEGMENT
  41 : CENDINCLUDE SFALRF
  42 :       POINTEUR MYFALS.FALRFS
  43 :       POINTEUR MYFAL.FALRF
  44 : *
  45 :       INTEGER IMPR,IRET
  46 : *
  47 :       INTEGER NBFALS,IBFALS
  48 : *     
  49 : * Executable statements
  50 : *
  51 :       IF (IMPR.GT.1) WRITE(IOIMP,*) 'Entrée dans sufals'
  52 :       SEGACT MYFALS*MOD
  53 :       NBFALS=MYFALS.LISFA(/1)
  54 :       DO IBFALS=1,NBFALS
  55 :          MYFAL=MYFALS.LISFA(IBFALS)
  56 :          IF (MYFAL.NE.0) THEN
  57 : * SEGACT MYFAL*MOD
  58 :             SEGSUP MYFAL
  59 :          ENDIF
  60 :       ENDDO
  61 :       SEGSUP MYFALS
  62 : *
  63 : * Normal termination
  64 : *
  65 :       IRET=0
  66 :       RETURN
  67 : *
  68 : * Format handling
  69 : *
  70 : *
  71 : * Error handling
  72 : *
  73 :  9999 CONTINUE
  74 :       IRET=1
  75 :       WRITE(IOIMP,*) 'An error was detected in subroutine sufals'
  76 :       RETURN
  77 : *
  78 : * End of subroutine SUFALS
  79 : *
  80 :       END
  81 : 
  82 :