Esope source files

   1 : C CVFLSI    SOURCE    CHAT      05/01/12    22:33:23     5004           
   2 : 
   3 :       SUBROUTINE C_VFLSIGMAC (SIG,NDIMS,VAR,NDIMV,VECM,NMODEL)
   4 :       IMPLICIT INTEGER(I-N)
   5 :       integer  ndims,ndimv,nmodel,i
   6 :       complex*16 sig(ndims),siginv(3),var(ndimv),vecm(ndims),
   7 :      .           x1(6),x2(6),x3(6),xp,xq,xt
   7 :       call c_InvariantesPQT(sig,ndims,siginv)
   7 :       call c_vflinvMAC(siginv,var,ndimv,xp,xq,xt,nmodel)
   7 :       call c_DerInvariPQT(sig,ndims,x1,x2,x3)
   8 :       do i=1,ndims
   9 :          vecm(i)=xp*x1(i)+xq*x2(i)+xt*x3(i)
  10 :       enddo
  11 :       return
  12 :       end
  13 :  
  14 :  
  15 :