Télécharger relri2.eso

Retour à la liste

Numérotation des lignes :

  1. C RELRI2 SOURCE PV 16/11/17 22:01:19 9180
  2. SUBROUTINE RELRI2()
  3. IMPLICIT REAL*8 (A-H,O-Z)
  4. IMPLICIT INTEGER (I-N)
  5. C***********************************************************************
  6. C NOM : RELRI2
  7. C DESCRIPTION : Création d'une matrice de contraintes (MATRIK)
  8. C
  9. C LANGAGE : ESOPE
  10. C AUTEUR : Stéphane GOUNAND (CEA/DRN/DMT/SEMT/LTMF)
  11. C mél : gounand@semt2.smts.cea.fr
  12. C***********************************************************************
  13. C APPELES :
  14. C APPELES (E/S) :
  15. C APPELE PAR :
  16. C***********************************************************************
  17. C SYNTAXE GIBIANE :
  18. C ENTREES :
  19. C SORTIES :
  20. C***********************************************************************
  21. C VERSION : v1, 19/03/04, version initiale
  22. C HISTORIQUE : v1, 19/03/04, création
  23. C HISTORIQUE :
  24. C HISTORIQUE :
  25. C***********************************************************************
  26. C Prière de PRENDRE LE TEMPS de compléter les commentaires
  27. C en cas de modification de ce sous-programme afin de faciliter
  28. C la maintenance !
  29. C***********************************************************************
  30. -INC CCOPTIO
  31. POINTEUR MLIN.MATRIK
  32. POINTEUR MLI2.MATRIK
  33. -INC SMLMOTS
  34. POINTEUR MOTSCL.MLMOTS
  35. *
  36. INTEGER IMPR,IRET
  37. *
  38. * Executable statements
  39. *
  40. IMPR=0
  41. IF (IMPR.GT.2) WRITE(IOIMP,*) 'Entrée dans relri2'
  42. *
  43. * Lecture de la matrice des contraintes
  44. *
  45. CALL LIROBJ('MATRIK ',MLIN,1,IRET)
  46. *
  47. * Lecture du mot-clé
  48. *
  49. JGM=2
  50. JGN=4
  51. SEGINI MOTSCL
  52. MOTSCL.MOTS(1)='SIMP'
  53. MOTSCL.MOTS(2)='DOUB'
  54. CALL LIRMOT(MOTSCL.MOTS,MOTSCL.MOTS(/2),IRAN,1)
  55. SEGSUP MOTSCL
  56. IF (IRAN.EQ.1) THEN
  57. ITYMAT=-3
  58. ELSEIF (IRAN.EQ.2) THEN
  59. ITYMAT=-4
  60. ENDIF
  61. *
  62. SEGINI,MLI2=MLIN
  63. DO I=1,MLI2.IRIGEL(/2)
  64. * Matrice de type B Bt
  65. MLI2.IRIGEL(7,I)=ITYMAT
  66. ENDDO
  67. SEGDES MLI2
  68. CALL ECROBJ('MATRIK ',MLI2)
  69. *
  70. * Normal termination
  71. *
  72. IRET=0
  73. RETURN
  74. *
  75. * Format handling
  76. *
  77. *
  78. * Error handling
  79. *
  80. 9999 CONTINUE
  81. IRET=1
  82. WRITE(IOIMP,*) 'An error was detected in subroutine relri2'
  83. RETURN
  84. *
  85. * End of subroutine RELRI2
  86. *
  87. END
  88.  
  89.  
  90.  
  91.  
  92.  

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