Télécharger la plaquette Cast3M


fr en

Télécharger filfal.eso

Retour à la liste

Numérotation des lignes : 

filfal

  1. C FILFAL    SOURCE    GOUNAND   21/06/02    21:15:55     11022          
  2.       SUBROUTINE FILFAL(FAL,MYLRFS,CQUAF,CEF,IMPR,IRET)
  3.       IMPLICIT REAL*8 (A-H,O-Z)
  4.       IMPLICIT INTEGER (I-N)
  5. C***********************************************************************
  6. C NOM         : FILFAL
  7. C PROJET      : Noyau linéaire NLIN
  8. C DESCRIPTION : Remplit l'indice d'un segment décrivant une famille
  9. C               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          : FICH4, FILRF (recherche dans une liste)
  16. C APPELE PAR       : INFALS
  17. C***********************************************************************
  18. C ENTREES            : * MYLRFS  (type ELREFS) : segment de description
  19. C                        des éléments de références.
  20. C                      * CQUAF   (type CH*(*)) :nom d'un élément QUAF.
  21. C                      * CEF     (type CH*(*)) :nom d'un élément fini
  22. C                        (cf. NOMLRF dans SELREF.INC)
  23. C ENTREES/SORTIES    : * FAL     (type FALRF)  : famille courante.
  24. C SORTIES            : -
  25. C TRAVAIL            : * MYLRF   (type ELREF)  : élément fini courant.
  26. C                      * NUMER   (type ENTIER) : numéro correspondant à
  27. C                        CQUAF dans le tableau NOMS (cf. include
  28. C                        CCOPTIO)
  29. C CODE RETOUR (IRET) : = 0 si tout s'est bien passé
  30. C***********************************************************************
  31. C VERSION    : v1, 24/03/00, version initiale
  32. C HISTORIQUE : v1, 24/03/00, création
  33. C HISTORIQUE :
  34. C HISTORIQUE :
  35. C***********************************************************************
  36. C Prière de PRENDRE LE TEMPS de compléter les commentaires
  37. C en cas de modification de ce sous-programme afin de faciliter
  38. C la maintenance !
  39. C***********************************************************************
  40.  
  41. -INC PPARAM
  42. -INC CCOPTIO
  43. -INC CCGEOME
  44. -INC TNLIN      
  45. *-INC SELREF
  46.       POINTEUR MYLRFS.ELREFS
  47.       POINTEUR MYLRF.ELREF
  48. *-INC SFALRF
  49.       INTEGER LNNFA,NBLRF
  50.       POINTEUR FAL.FALRF
  51. *
  52.       CHARACTER*(*) CQUAF,CEF
  53. *
  54.       INTEGER IMPR,IRET
  55. *
  56.       INTEGER NUMER
  57. *
  58. * Executable statements
  59. *
  60.       IF (IMPR.GT.6) WRITE(IOIMP,*) 'Entrée dans filfal'
  61. * On ajuste la dimension du segment pour rajouter une paire
  62. * d'éléments
  63.       LNNFA=FAL.NOMFA(/1)
  64.       NBLRF=FAL.NUQUAF(/1)+1
  65.       SEGADJ,FAL
  66. * Numéro de l'élément géométrique dans NOMS
  67. * NOMS(1:NOMBR) sont les noms des types d'éléments géométriques,
  68. * cf. include CCGEOME
  69.       CALL FICH4(CQUAF,NOMS,NOMBR,
  70.      $     NUMER,
  71.      $     IMPR,IRET)
  72.       IF (IRET.NE.0) GOTO 9999
  73.       FAL.NUQUAF(NBLRF)=NUMER
  74. * Numéro de l'élément fini dans le segment ELREFS
  75.       CALL FILRF(CEF,MYLRFS,
  76.      $     MYLRF,
  77.      $     IMPR,IRET)
  78.       IF (IRET.NE.0) GOTO 9999
  79.       FAL.ELEMF(NBLRF)=MYLRF
  80. *
  81. * Normal termination
  82. *
  83.       IRET=0
  84.       RETURN
  85. *
  86. * Format handling
  87. *
  88. *
  89. * Error handling
  90. *
  91.  9999 CONTINUE
  92.       IRET=1
  93.       WRITE(IOIMP,*) 'An error was detected in subroutine filfal'
  94.       RETURN
  95. *
  96. * End of subroutine filfal
  97. *
  98.       END
  99.  
  100.  
  101.  
  102.  
  103.  
  104.  
  105.  

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