Télécharger la plaquette Cast3M


fr en

Télécharger relri2.eso

Retour à la liste

Numérotation des lignes : 

relri2

  1. C RELRI2    SOURCE    PV        20/09/26    21:19:39     10724          
  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.  
  31. -INC PPARAM
  32. -INC CCOPTIO
  34.       POINTEUR MLIN.MATRIK
  35.       POINTEUR MLI2.MATRIK
  36. -INC SMLMOTS
  37.       POINTEUR MOTSCL.MLMOTS
  38. *
  39.       INTEGER IMPR,IRET
  40. *
  41. * Executable statements
  42. *
  43.       IMPR=0
  44.       IF (IMPR.GT.2) WRITE(IOIMP,*) 'Entrée dans relri2'
  45. *
  46. * Lecture de la matrice des contraintes
  47. *
  48.       CALL LIROBJ('MATRIK  ',MLIN,1,IRET)
  49. *
  50. * Lecture du mot-clé
  51. *
  52.       JGM=2
  53.       JGN=4
  54.       SEGINI MOTSCL
  55.       MOTSCL.MOTS(1)='SIMP'
  56.       MOTSCL.MOTS(2)='DOUB'
  57.       CALL LIRMOT(MOTSCL.MOTS,MOTSCL.MOTS(/2),IRAN,1)
  58.       SEGSUP MOTSCL
  59.       IF (IRAN.EQ.1) THEN
  60.          ITYMAT=-3
  61.       ELSEIF (IRAN.EQ.2) THEN
  62.          ITYMAT=-4
  63.       ENDIF
  64. *
  65.       SEGINI,MLI2=MLIN
  66.       DO I=1,MLI2.IRIGEL(/2)
  67. * Matrice de type B Bt
  68.          MLI2.IRIGEL(7,I)=ITYMAT
  69.       ENDDO
  70.       SEGDES MLI2
  71.       CALL ECROBJ('MATRIK  ',MLI2)
  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 relri2'
  86.       RETURN
  87. *
  88. * End of subroutine RELRI2
  89. *
  90.       END
  91.  
  92.  
  93.  
  94.  
  95.  
  96.  

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