C YLDPD1    SOURCE    CHAT      05/01/13    04:19:33     5004
CCC
C **********************************************************************
CCC
      SUBROUTINE YIELDPOWDER1(SIG,VAR,VALOR)
      IMPLICIT INTEGER(I-N)
      real*8  sig(*),var,valor,aux1,xi1,xj2
      real*8               nn1,nn2,eta0,aa1,aa2
      common /poder1_data/ nn1,nn2,eta0,aa1,aa2
      real*8            sigy0,kiso,siginf,velo,cpar,mpar
      common /miehdata/ sigy0,kiso,siginf,velo,cpar,mpar
      call Invari_J2(sig,3,xj2)
      call Invari_I1(sig,3,xi1)
      valor=2.D0*xj2+aa1*xi1**2/9.D0-aa2*2.D0/3.D0*sigy0**2
      return
      end