Télécharger la plaquette Cast3M


fr en

Télécharger hook3d.eso

Retour à la liste

Numérotation des lignes : 

hook3d

  1. C HOOK3D    SOURCE    FD218221  24/02/07    21:15:13     11834          
  2.        subroutine hook3d(iso,xmat,nmat,nbelas,ierr1,
  3.      # raideur66,souplesse66)
  4.  
  5. c     actualisation des matrices d elasticite isotrope
  6.       implicit real*8 (a-h,o-z)
  7.       implicit integer (i-n)
  8.  
  9.       logical iso
  10.       integer nmat,ierr1,nbelas
  11.       real*8 xmat(nmat)
  12.       real*8 youn,nu,kb,mub
  13.       real*8 raideur66(6,6),souplesse66(6,6)
  14.       real*8 coeff1,coeff2,yja,nja
  15.       parameter (coeff1=0.001d0,coeff2=0.999) 
  16.  
  17.       if(iso) then
  18.          call xmat3d(youn,xmat,nmat,vnmat,nstype,nbelas,0,1)
  19.          call xmat3d(nu,xmat,nmat,vnmat,nstype,nbelas,0,2)
  20.          call hoo03d(iso,youn,nu,kb,mub,ierr1,raideur66,souplesse66)
  21. c         print*,'dans hook3d',youn,nu
  22.          if(ierr1.eq.1) then
  23.              print*,'ERREUR1 dans hook3d'
  24.              return
  25.          end if
  26.       else
  27. c        cas orthotrope en base fixe
  28.          call rior3d(xmat,nmat,nbelas,ierr1,
  29.      #   raideur66,souplesse66)
  30. c         print*,'Dans hook3d base fice H'         
  31. c         call afic66(raideur66)
  32. c         print*,'Dans hook3d base fice C'         
  33. c         call afic66(souplesse66)  
  34. c         read*
  35.       end if
  36.       return
  37.       end 
  38.  

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