Télécharger cmatj2.eso

Retour à la liste

Numérotation des lignes :

  1. C CMATJ2 SOURCE CHAT 05/01/12 22:09:17 5004
  2. c MODELO J2
  3. CCC
  4. C **********************************************************************
  5. CCC
  6. SUBROUTINE CARAC_MATE_J2(XMAT)
  7. IMPLICIT INTEGER(I-N)
  8. real*8 xmat(*)
  9. real*8 you,xnu,sigy0,siginf,kiso,velo
  10. common /elasdata/ you,xnu
  11. common /j2j2data/ sigy0,kiso,siginf,velo
  12. you = xmat( 1)
  13. xnu = xmat( 2)
  14. sigy0 = xmat( 5)
  15. siginf = xmat( 6)
  16. kiso = xmat( 7)
  17. velo = xmat( 8)
  18. return
  19. end
  20.  
  21.  
  22.  
  23.  

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