Télécharger cinvap.eso

Retour à la liste

Numérotation des lignes :

  1. C CINVAP SOURCE KK2000 14/04/09 21:15:07 8027
  2.  
  3. SUBROUTINE CINVAP (SIG,N,P)
  4. IMPLICIT INTEGER(I-N)
  5. integer n
  6. complex*16 sig(n),p
  7. p=-(sig(1)+sig(2)+sig(3))/CMPLX(3.D0)
  8. return
  9. end
  10.  
  11.  
  12.  
  13.  
  14.  

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