Télécharger la plaquette Cast3M


fr en

Télécharger kepg.eso

Retour à la liste

Numérotation des lignes : 

kepg

  1. C KEPG      SOURCE    GOUNAND   21/06/02    21:17:06     11022          
  2.       SUBROUTINE KEPG(ITYPL,NMFAP,
  3.      $     MYFPGS,
  4.      $     MYPG,
  5.      $     IMPR,IRET)
  6.       IMPLICIT REAL*8 (A-H,O-Z)
  7.       IMPLICIT INTEGER (I-N)
  8. C***********************************************************************
  9. C NOM         : KEPG
  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 de méthodes d'intégration
  13. C               En sortie, on a le pointeur sur la méthode d'intégration
  14. C               (type POGAU)
  15. C
  16. C LANGAGE     : ESOPE
  17. C AUTEUR      : Stéphane GOUNAND (CEA/DRN/DMT/SEMT/LTMF)
  18. C               mél : gounand@semt2.smts.cea.fr
  19. C***********************************************************************
  20. C APPELES          : FIFPG, FIENTI (recherche dans une liste)
  21. C APPELE PAR       : VERFPG
  22. C***********************************************************************
  23. C ENTREES            : * ITYPL  (type entier) : numéro d'élément
  24. C                        géométrique (cf. tableau NOMS dans l'include
  25. C                        CCOPTIO).
  26. C                      * NMFAP  (type CH*(*)) : nom de famille de
  27. C                        méthodes d'intégration (cf. NOMFAP dans
  28. C                        l'include SFAPG).
  29. C                      * MYFPGS (type FALPGS) : segment de description
  30. C                        des familles de méthodes d'intégration.
  31. C SORTIES            : * MYPG  (type POGAU)  : pointeur sur l'élément
  32. C                        fini correspondant à l'élément géométrique de
  33. C                        numéro ITYPL dans la famille de nom NMFAP
  34. C CODE RETOUR (IRET) : = 0 si tout s'est bien passé
  35. C***********************************************************************
  36. C VERSION    : v1, 18/07/02, version initiale
  37. C HISTORIQUE : v1, 18/07/02, création
  38. C HISTORIQUE :
  39. C HISTORIQUE :
  40. C***********************************************************************
  41. C Prière de PRENDRE LE TEMPS de compléter les commentaires
  42. C en cas de modification de ce sous-programme afin de faciliter
  43. C la maintenance !
  44. C***********************************************************************
  45.  
  46. -INC PPARAM
  47. -INC CCOPTIO
  48. -INC CCGEOME
  49. *
  50. * Includes perso
  51. *
  52. -INC TNLIN      
  53. *-INC SFAPG
  54.       POINTEUR MYFPGS.FAPGS
  55.       POINTEUR MYFAL.FAPG
  56. *-INC SPOGAU
  57.       POINTEUR MYPG.POGAU
  58. *
  59.       INTEGER ITYPL
  60.       CHARACTER*(*) NMFAP
  61.       INTEGER IBLRF,NBLRF
  62.       INTEGER IMPR,IRET
  63. *
  64. * Executable statements
  65. *
  66.       IF (IMPR.GT.6) WRITE(IOIMP,*) 'Entrée dans kepg'
  67.       CALL FIFAL(NMFAP,MYFPGS,
  68.      $     MYFAL,
  69.      $     IMPR,IRET)
  70.       IF (IRET.NE.0) GOTO 9999
  71.       SEGACT MYFAL
  72.       NBLRF=MYFAL.NBQUAF(/1)
  73.       CALL FIENTI(ITYPL,MYFAL.NBQUAF,NBLRF,
  74.      $     IBLRF,
  75.      $     IMPR,IRET)
  76.       IF (IRET.NE.0) THEN
  77.          WRITE(IOIMP,*) 'On n''a pas trouvé ',NOMS(ITYPL),
  78.      $        ' dans la famille de méthode d''intégration ',MYFAL.NOMFAP
  79.          GOTO 9999
  80.       ENDIF
  81.       MYPG=MYFAL.MPOGAU(IBLRF)
  82.       SEGDES MYFAL
  83. *
  84. * Normal termination
  85. *
  86.       IRET=0
  87.       RETURN
  88. *
  89. * Format handling
  90. *
  91. *
  92. * Error handling
  93. *
  94.  9999 CONTINUE
  95.       IRET=1
  96.       WRITE(IOIMP,*) 'An error was detected in subroutine kepg'
  97.       RETURN
  98. *
  99. * End of subroutine KEPG
  100. *
  101.       END
  102.  
  103.  
  104.  
  105.  
  106.  
  107.  
  108.  

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