Télécharger dohfis.eso

Retour à la liste

Numérotation des lignes :

  1. C DOHFIS SOURCE CHAT 05/01/12 22:53:36 5004
  2. C
  3. SUBROUTINE DOHFIS(VELA,MATE,IFOU,LHOOK,DDHOOK,IRET)
  4. C
  5. C=======================================================================
  6. C
  7. C MATRICE DE HOOK DU TUYAU FISSURE
  8. C
  9. C ENTREES
  10. C VELA() = materiau dans un tableau de travail
  11. C MATE = Nom du materiau
  12. C IFOU = num{ro d'harmonique de fourier: IFOUR de CCOPTIO
  13. C LHOOK = taille de la matrice de hooke
  14. C
  15. C SORTIES
  16. C DDHOOK(LHOOK,LHOOK) = matrice de hooke
  17. C IRET = 1 si option existante 0 SINON
  18. C
  19. C Passage en nouveau CHAMELEM par I.Monnier le 4 05 90
  20. C=======================================================================
  21. C
  22. IMPLICIT INTEGER(I-N)
  23. IMPLICIT REAL*8(A-H,O-Z)
  24. PARAMETER(UNDEMI=.5D0,XZER=0.0D0,XK=1.2D0)
  25. PARAMETER(UN=1.D0,DEUX=2.D0)
  26. CHARACTER*8 MATE
  27. C
  28. DIMENSION VELA(*),DDHOOK(LHOOK,*)
  29. C
  30. IRET=1
  31. CALL ZERO(DDHOOK,LHOOK,LHOOK)
  32. C
  33. C MATERIAU ISOTROPE
  34. C
  35. IF(MATE.EQ.'ISOTROPE') THEN
  36. C
  37. C TRIDIMENSIONNEL
  38. C
  39. IF(IFOU.EQ.2) THEN
  40. YOU=VELA(1)
  41. XNU=VELA(2)
  42. DDHOOK(1,1)=YOU
  43. DDHOOK(2,2)=XNU
  44. ELSE
  45. IRET=0
  46. ENDIF
  47. ELSE
  48. IRET=0
  49. ENDIF
  50. RETURN
  51. END
  52.  
  53.  

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