Sources Esope | Cast3M

desvia
C DESVIA    SOURCE    CHAT      05/01/12    22:43:54     5004
 
      SUBROUTINE DESVIADOR (SIG,DESV,N)
      IMPLICIT INTEGER(I-N)
      integer n,i
      real*8 sig(n),desv(n),p
      call 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