Sources Esope | Cast3M

vflsgj
C VFLSGJ    SOURCE    CHAT      05/01/13    04:06:41     5004
 
      SUBROUTINE VFLSIGJ2 (SIG,NDIMS,VAR,NDIMV,VECM)
      IMPLICIT INTEGER(I-N)
      integer ndims,ndimv,i
      real*8  sig(ndims),siginv(3),var(ndimv),vecm(ndims),
     .        x1(6),x2(6),x3(6),xp,xq,xt
      call InvariantesIJJ(sig,ndims,siginv)
      call vflvminv(siginv,xp,xq,xt)
      call DerInvariIJJ(sig,x1,x2,x3,ndims)
      do i=1,ndims
         vecm(i)=xp*x1(i)+xq*x2(i)+xt*x3(i)
      enddo
      return
      end