Télécharger la plaquette Cast3M


fr en

Télécharger sufals.eso

Retour à la liste

Numérotation des lignes : 

sufals

  1. C SUFALS    SOURCE    GOUNAND   21/06/02    21:17:45     11022          
  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.  
  32. -INC PPARAM
  33. -INC CCOPTIO
  34. -INC TNLIN      
  35. *-INC SFALRF
  36.       POINTEUR MYFALS.FALRFS
  37.       POINTEUR MYFAL.FALRF
  38. *
  39.       INTEGER IMPR,IRET
  40. *
  41.       INTEGER NBFALS,IBFALS
  42. *
  43. * Executable statements
  44. *
  45.       IF (IMPR.GT.1) WRITE(IOIMP,*) 'Entrée dans sufals'
  46.       SEGACT MYFALS*MOD
  47.       NBFALS=MYFALS.LISFA(/1)
  48.       DO IBFALS=1,NBFALS
  49.          MYFAL=MYFALS.LISFA(IBFALS)
  50.          IF (MYFAL.NE.0) THEN
  51. * SEGACT MYFAL*MOD
  52.             SEGSUP MYFAL
  53.          ENDIF
  54.       ENDDO
  55.       SEGSUP MYFALS
  56. *
  57. * Normal termination
  58. *
  59.       IRET=0
  60.       RETURN
  61. *
  62. * Format handling
  63. *
  64. *
  65. * Error handling
  66. *
  67.  9999 CONTINUE
  68.       IRET=1
  69.       WRITE(IOIMP,*) 'An error was detected in subroutine sufals'
  70.       RETURN
  71. *
  72. * End of subroutine SUFALS
  73. *
  74.       END
  75.  
  76.  
  77.  
  78.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales