Sources Esope | Cast3M

inpr3d
C INPR3D    SOURCE    PV090527  23/01/27    21:15:43     11574          
       subroutine inpr3d(x03,v33t,x16,gama)
 
c     retour de l increment principal dans la base fixe
 
      implicit real*8 (a-h,o-z)
      implicit integer (i-n)
 
c     variables externes      
      real*8 v33t(3,3),x03(3),x16(6)
c     variables logique pour savoir si les termes extra diagonaux sont
c     des gama ou des epsilons      
      logical gama
c     variables locales
      real*8 xp6(6)
      integer i
 
      do i=1,3
         xp6(i)=x03(i)
      end do
      do i=4,6
         xp6(i)=0.d0
      end do
 
c     expression dans la nouvelle base
      call chrep6(xp6,v33t,gama,x16)
 
      return
      end