Télécharger inilrf.eso

Retour à la liste

Numérotation des lignes :

  1. C INILRF SOURCE GOUNAND 05/12/21 21:32:59 5281
  2. SUBROUTINE INILRF(CNOM,CFOR,CTYPL,CESP,
  3. $ NDEL,NBNO,NDDL,NDEG,
  4. $ LRF,
  5. $ IMPR,IRET)
  6. IMPLICIT REAL*8 (A-H,O-Z)
  7. IMPLICIT INTEGER (I-N)
  8. C***********************************************************************
  9. C NOM : INILRF
  10. C PROJET : Noyau linéaire NLIN
  11. C DESCRIPTION : Initialise un segment décrivant un élément de référence.
  12. C
  13. C LANGAGE : ESOPE
  14. C AUTEUR : Stéphane GOUNAND (CEA/DRN/DMT/SEMT/LTMF)
  15. C mél : gounand@semt2.smts.cea.fr
  16. C***********************************************************************
  17. C APPELES : -
  18. C APPELE PAR : INELSE, INELTR, INELQU, INELTE, INELPR, INELCU
  19. C***********************************************************************
  20. C ENTREES : CNOM, CFOR, CTYPL, CESP, NDEL,NBNO,NDDL,NDEG
  21. C ENTREES/SORTIES : -
  22. C SORTIES : LRF
  23. C CODE RETOUR (IRET) : = 0 si tout s'est bien passé
  24. C***********************************************************************
  25. C VERSION : v1, 20/07/99, version initiale
  26. C HISTORIQUE : v1, 20/07/99, création
  27. C HISTORIQUE : v2, 09/05/00, chgt de l'include SELREF
  28. C HISTORIQUE :
  29. C HISTORIQUE :
  30. C***********************************************************************
  31. C Prière de PRENDRE LE TEMPS de compléter les commentaires
  32. C en cas de modification de ce sous-programme afin de faciliter
  33. C la maintenance !
  34. C***********************************************************************
  35. -INC CCOPTIO
  36. CBEGININCLUDE SELREF
  37. SEGMENT ELREF
  38. CHARACTER*(LNNOM) NOMLRF
  39. CHARACTER*(LNFORM) FORME
  40. CHARACTER*(LNTYPL) TYPEL
  41. CHARACTER*(LNESP) ESPACE
  42. INTEGER DEGRE
  43. REAL*8 XCONOD(NDIMEL,NBNOD)
  44. INTEGER NPQUAF(NBDDL)
  45. INTEGER NUMCMP(NBDDL)
  46. INTEGER QUENOD(NBDDL)
  47. INTEGER ORDDER(NDIMEL,NBDDL)
  48. POINTEUR MBPOLY.POLYNS
  49. ENDSEGMENT
  50. SEGMENT ELREFS
  51. POINTEUR LISEL(0).ELREF
  52. ENDSEGMENT
  53. CENDINCLUDE SELREF
  54. INTEGER LNNOM,LNFORM,LNTYPL,LNESP
  55. INTEGER NDIMEL,NBNOD,NBDDL
  56. POINTEUR LRF.ELREF
  57. *
  58. CHARACTER*(*) CNOM,CFOR,CTYPL,CESP
  59. INTEGER NDEL,NBNO,NDDL,NDEG
  60. *
  61. INTEGER IMPR,IRET
  62. *
  63. * Executable statements
  64. *
  65. IF (IMPR.GT.6) WRITE(IOIMP,*) 'Entrée dans inilrf'
  66. LNNOM =LEN(CNOM)
  67. LNFORM=LEN(CFOR)
  68. LNTYPL=LEN(CTYPL)
  69. LNESP =LEN(CESP)
  70. NDIMEL=NDEL
  71. NBNOD=NBNO
  72. NBDDL=NDDL
  73. SEGINI LRF
  74. LRF.NOMLRF=CNOM
  75. LRF.FORME =CFOR
  76. LRF.TYPEL =CTYPL
  77. LRF.ESPACE=CESP
  78. LRF.DEGRE =NDEG
  79. *
  80. * Normal termination
  81. *
  82. IRET=0
  83. RETURN
  84. *
  85. * Format handling
  86. *
  87. *
  88. * Error handling
  89. *
  90. 9999 CONTINUE
  91. IRET=1
  92. WRITE(IOIMP,*) 'An error was detected in subroutine inilrf'
  93. RETURN
  94. *
  95. * End of subroutine inilrf
  96. *
  97. END
  98.  
  99.  
  100.  
  101.  

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