C VFSGP1    SOURCE    CHAT      05/01/13    04:07:00     5004

      SUBROUTINE VFLSIGPOWDER1(SIG,VECM)
      IMPLICIT INTEGER(I-N)
      integer i
      real*8  sig(3),vecm(3),aux1,aux2,xi1,xj2
      real*8               nn1,nn2,eta0,aa1,aa2
      common /poder1_data/ nn1,nn2,eta0,aa1,aa2
      call Invari_I1(sig,3,xi1)
      call desviador(sig,vecm,3)
      aux2 = aa1/9.D0*2.D0*xi1
      do i=1,3
       vecm(i)= 2.D0*vecm(i)+aux2
      enddo
      return
      end