Esope source files

   1 : C DESVIA    SOURCE    CHAT      05/01/12    22:43:54     5004           
   2 : 
   3 :       SUBROUTINE DESVIADOR (SIG,DESV,N)
   4 :       IMPLICIT INTEGER(I-N)
   5 :       integer n,i
   6 :       real*8 sig(n),desv(n),p
   6 :       call Invari_p(sig,n,p)
   7 :       do i=1,3
   8 :          desv(i)=sig(i)+p
   9 :       enddo
  10 :       if (n.lt.4) return
  11 :       do i=4,n
  12 :          desv(i)=sig(i)
  13 :       enddo
  14 :       return
  15 :       end
  16 :  
  17 :  
  18 :