Télécharger la plaquette Cast3M


fr en

Télécharger hooinc.eso

Retour à la liste

Numérotation des lignes : 

hooinc

  1. C HOOINC    SOURCE    CB215821  26/10/26    21:15:35     12682          
  2.       SUBROUTINE HOOINC(D,YUNG,XNU,ITYP)
  3. C--------------------------------------------
  4. C   INSPIRE DE INCA
  5. C--------------------------------------------
  6.       IMPLICIT INTEGER(I-N)
  7.       IMPLICIT REAL*8(A-H,O-Z)
  8.       DIMENSION D(*)
  9. C***
  10. C***  MATERIAU ISOTROPE
  11. C***
  12.       DO 1 IA=1,36
  13.       D(IA)=0.D0
  14.     1 CONTINUE
  15.       IF(ITYP.EQ.6) GO TO 3
  16.       IF(ITYP.EQ.4) GO TO 4
  17. C         CALCUL DE LAMDA ET MU
  18.       A2MU=YUNG/(1.0D0+XNU)
  19.       ALAMDA=A2MU*XNU/(1.0D0-2.0D0*XNU)
  20.       AMU=0.5D0*A2MU
  21. C         MISE ENPLACE DANS D DES LAMDA ET MU
  22. C 202 CONTINUE
  23.       JB=0
  24.       JD=21
  25.       DO 2 IA=1,3
  26.       JA=JB
  27.       DO 20 IB=1,3
  28.       JA=JA+1
  29.       D(JA)=ALAMDA
  30.    20 CONTINUE
  31.       JC=JB+IA
  32.       D(JC)=D(JC)+A2MU
  33.       JE=JD+IA
  34.       D(JE)=AMU
  35.       JD=JD+6
  36.       JB=JB+6
  37.     2 CONTINUE
  38.       RETURN
  39. C           CAS CONTRAINTES PLANES
  40.   3   CONTINUE
  41.       ALAMDA=YUNG/(1.D0-XNU*XNU)
  42.       AMU=0.5D0*(1.D0-XNU)*ALAMDA
  43.       A2MU=XNU*ALAMDA
  44.       D(1)=ALAMDA
  45.       D(8)=ALAMDA
  46.       D(22)=AMU
  47.       D(2)=A2MU
  48.       D(7)=A2MU
  49.       RETURN
  50. C           CAS UNIAXIAL
  51.   4   CONTINUE
  52.       D(15)=YUNG
  53.       RETURN
  54.       END
  55.  
  56.  
  57.  

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