C CDSVIA    SOURCE    CHAT      05/01/12    21:51:47     5004           

      SUBROUTINE C_DESVIADOR (SIG,DESV,N)
      IMPLICIT INTEGER(I-N)
      integer n,i
      complex*16 sig(n),desv(n),p
      call C_Invari_p(sig,n,p)
      do i=1,3
         desv(i)=sig(i)+p
      enddo
      if (n.lt.4) return
      do i=4,n
         desv(i)=sig(i)
      enddo
      return
      end