Télécharger cdsvia.eso

Retour à la liste

Numérotation des lignes :

  1. C CDSVIA SOURCE KK2000 14/04/09 21:15:05 8027
  2.  
  3. SUBROUTINE CDSVIA (SIG,DESV,N)
  4. IMPLICIT INTEGER(I-N)
  5. integer n,i
  6. complex*16 sig(n),desv(n),p
  7. call CINVAP(sig,n,p)
  8. do i=1,3
  9. desv(i)=sig(i)+p
  10. enddo
  11. if (n.lt.4) return
  12. do i=4,n
  13. desv(i)=sig(i)
  14. enddo
  15. return
  16. end
  17.  
  18.  
  19.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales