Télécharger inilag.eso

Retour à la liste

Numérotation des lignes :

  1. C INILAG SOURCE GOUNAND 05/12/21 21:32:55 5281
  2. SUBROUTINE INILAG(ELCOUR,IMPR,IRET)
  3. IMPLICIT REAL*8 (A-H,O-Z)
  4. IMPLICIT INTEGER (I-N)
  5. C***********************************************************************
  6. C NOM : INILAG
  7. C DESCRIPTION : Initialise les tableaux QUENOD et ORDER reliant
  8. C ddl <-> Noeud + ordre de dérivation de la variable
  9. C pour un élément de Lagrange.
  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 : INELSE, INELTR, INELQU, INELTE, INELPR, INELCU
  17. C***********************************************************************
  18. C ENTREES : -
  19. C ENTREES/SORTIES : ELCOUR (supposé actif en *MOD)
  20. C SORTIES : -
  21. C CODE RETOUR (IRET) : = 0 si tout s'est bien passé
  22. C***********************************************************************
  23. C VERSION : v1, 09/05/2000, version initiale
  24. C HISTORIQUE : v1, 09/05/2000, création
  25. C HISTORIQUE :
  26. C HISTORIQUE :
  27. C***********************************************************************
  28. C Prière de PRENDRE LE TEMPS de compléter les commentaires
  29. C en cas de modification de ce sous-programme afin de faciliter
  30. C la maintenance !
  31. C***********************************************************************
  32.  
  33. -INC PPARAM
  34. -INC CCOPTIO
  35. CBEGININCLUDE SELREF
  36. SEGMENT ELREF
  37. CHARACTER*(LNNOM) NOMLRF
  38. CHARACTER*(LNFORM) FORME
  39. CHARACTER*(LNTYPL) TYPEL
  40. CHARACTER*(LNESP) ESPACE
  41. INTEGER DEGRE
  42. REAL*8 XCONOD(NDIMEL,NBNOD)
  43. INTEGER NPQUAF(NBDDL)
  44. INTEGER NUMCMP(NBDDL)
  45. INTEGER QUENOD(NBDDL)
  46. INTEGER ORDDER(NDIMEL,NBDDL)
  47. POINTEUR MBPOLY.POLYNS
  48. ENDSEGMENT
  49. SEGMENT ELREFS
  50. POINTEUR LISEL(0).ELREF
  51. ENDSEGMENT
  52. CENDINCLUDE SELREF
  53. POINTEUR ELCOUR.ELREF
  54. *
  55. INTEGER IMPR,IRET
  56. *
  57. INTEGER NDDL,NDEL
  58. INTEGER IDDL,IDEL
  59. *
  60. * Executable statements
  61. *
  62. IF (IMPR.GT.2) WRITE(IOIMP,*) 'Entrée dans inilag.eso'
  63. NDDL=ELCOUR.QUENOD(/1)
  64. NDEL=ELCOUR.ORDDER(/1)
  65. * Chaque ddl est associé à un noeud+la valeur de la variable non dérivée
  66. DO 1 IDDL=1,NDDL
  67. ELCOUR.QUENOD(IDDL)=IDDL
  68. DO 12 IDEL=1,NDEL
  69. ELCOUR.ORDDER(IDEL,IDDL)=0
  70. 12 CONTINUE
  71. 1 CONTINUE
  72. *
  73. * Normal termination
  74. *
  75. IRET=0
  76. RETURN
  77. *
  78. * Format handling
  79. *
  80. *
  81. * Error handling
  82. *
  83. 9999 CONTINUE
  84. IRET=1
  85. WRITE(IOIMP,*) 'An error was detected in subroutine inilag'
  86. RETURN
  87. *
  88. * End of subroutine INILAG
  89. *
  90. END
  91.  
  92.  
  93.  
  94.  

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