Sources Esope | Cast3M

vfsgrh
C VFSGRH    SOURCE    CHAT      05/01/13    04:07:05     5004
 
      SUBROUTINE VFLSIGRHMC (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 vflrhmcinv(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