Sources Esope | Cast3M

cdsvia
C CDSVIA    SOURCE    KK2000    14/04/09    21:15:05     8027
 
      SUBROUTINE CDSVIA (SIG,DESV,N)
      IMPLICIT INTEGER(I-N)
      integer n,i
      complex*16 sig(n),desv(n),p
      call CINVAP(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