Télécharger keef.eso

Retour à la liste

Numérotation des lignes :

  1. C KEEF SOURCE BP208322 16/11/18 21:18:07 9177
  2. SUBROUTINE KEEF(ITYPL,NMFAL,
  3. $ MYFALS,
  4. $ MYLRF,
  5. $ IMPR,IRET)
  6. IMPLICIT REAL*8 (A-H,O-Z)
  7. IMPLICIT INTEGER (I-N)
  8. C***********************************************************************
  9. C NOM : KEEF
  10. C PROJET : Noyau linéaire NLIN
  11. C DESCRIPTION : On donne un numéro de type d'élément géométrique (un
  12. C QUAF, donc), un nom de famille d'éléments finis.
  13. C En sortie, on a le pointeur sur l'élément fini (type
  14. C ELREF)
  15. C
  16. C MYFALS et MYLRFS sont des données de type COMMON
  17. C décrivant toutes les familles d'éléments finis et tous
  18. C les éléments finis...
  19. C
  20. C LANGAGE : ESOPE
  21. C AUTEUR : Stéphane GOUNAND (CEA/DRN/DMT/SEMT/LTMF)
  22. C mél : gounand@semt2.smts.cea.fr
  23. C***********************************************************************
  24. C APPELES : FIFAL, FIENTI (recherche dans une liste)
  25. C APPELE PAR : VERFAM, MKCOOR, KECOMP
  26. C***********************************************************************
  27. C ENTREES : * ITYPL (type entier) : numéro d'élément
  28. C géométrique (cf. tableau NOMS dans l'include
  29. C CCOPTIO).
  30. C * NMFAL (type CH*(*)) : nom de famille
  31. C d'éléments finis (cf. NOMFA dans l'include
  32. C SFALRF).
  33. C * MYFALS (type FALRFS) : segment de description
  34. C des familles d'éléments de références.
  35. C SORTIES : * MYLRF (type ELREF) : pointeur sur l'élément
  36. C fini correspondant à l'élément géométrique de
  37. C numéro ITYPL dans la famille de nom NMFAL
  38. C CODE RETOUR (IRET) : = 0 si tout s'est bien passé
  39. C***********************************************************************
  40. C VERSION : v1, 13/09/99, version initiale
  41. C HISTORIQUE : v1, 13/09/99, création
  42. C HISTORIQUE :
  43. C HISTORIQUE :
  44. C***********************************************************************
  45. C Prière de PRENDRE LE TEMPS de compléter les commentaires
  46. C en cas de modification de ce sous-programme afin de faciliter
  47. C la maintenance !
  48. C***********************************************************************
  49.  
  50. -INC PPARAM
  51. -INC CCOPTIO
  52. -INC CCGEOME
  53. *
  54. * Includes perso
  55. *
  56. CBEGININCLUDE SFALRF
  57. SEGMENT FALRF
  58. CHARACTER*(LNNFA) NOMFA
  59. INTEGER NUQUAF(NBLRF)
  60. POINTEUR ELEMF(NBLRF).ELREF
  61. ENDSEGMENT
  62. SEGMENT FALRFS
  63. POINTEUR LISFA(0).FALRF
  64. ENDSEGMENT
  65. CENDINCLUDE SFALRF
  66. POINTEUR MYFALS.FALRFS
  67. POINTEUR MYFAL.FALRF
  68. CBEGININCLUDE SELREF
  69. SEGMENT ELREF
  70. CHARACTER*(LNNOM) NOMLRF
  71. CHARACTER*(LNFORM) FORME
  72. CHARACTER*(LNTYPL) TYPEL
  73. CHARACTER*(LNESP) ESPACE
  74. INTEGER DEGRE
  75. REAL*8 XCONOD(NDIMEL,NBNOD)
  76. INTEGER NPQUAF(NBDDL)
  77. INTEGER NUMCMP(NBDDL)
  78. INTEGER QUENOD(NBDDL)
  79. INTEGER ORDDER(NDIMEL,NBDDL)
  80. POINTEUR MBPOLY.POLYNS
  81. ENDSEGMENT
  82. SEGMENT ELREFS
  83. POINTEUR LISEL(0).ELREF
  84. ENDSEGMENT
  85. CENDINCLUDE SELREF
  86. POINTEUR MYLRF.ELREF
  87. *
  88. INTEGER ITYPL
  89. CHARACTER*(*) NMFAL
  90. INTEGER IBLRF,NBLRF
  91. INTEGER IMPR,IRET
  92. *
  93. * Executable statements
  94. *
  95. IF (IMPR.GT.6) WRITE(IOIMP,*) 'Entrée dans keef'
  96. CALL FIFAL(NMFAL,MYFALS,
  97. $ MYFAL,
  98. $ IMPR,IRET)
  99. IF (IRET.NE.0) GOTO 9999
  100. SEGACT MYFAL
  101. NBLRF=MYFAL.NUQUAF(/1)
  102. CALL FIENTI(ITYPL,MYFAL.NUQUAF,NBLRF,
  103. $ IBLRF,
  104. $ IMPR,IRET)
  105. IF (IRET.NE.0) THEN
  106. WRITE(IOIMP,*) 'On n''a pas trouvé ',NOMS(ITYPL),
  107. $ ' dans la famille d''éléments finis ',MYFAL.NOMFA
  108. GOTO 9999
  109. ENDIF
  110. MYLRF=MYFAL.ELEMF(IBLRF)
  111. SEGDES MYFAL
  112. *
  113. * Normal termination
  114. *
  115. IRET=0
  116. RETURN
  117. *
  118. * Format handling
  119. *
  120. *
  121. * Error handling
  122. *
  123. 9999 CONTINUE
  124. IRET=1
  125. WRITE(IOIMP,*) 'An error was detected in subroutine keef'
  126. RETURN
  127. *
  128. * End of subroutine KEEF
  129. *
  130. END
  131.  
  132.  
  133.  
  134.  
  135.  
  136.  

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