Télécharger cinvj2.eso

Retour à la liste

Numérotation des lignes :

  1. C CINVJ2 SOURCE KK2000 14/04/10 21:15:03 8031
  2.  
  3. SUBROUTINE C_INVARI_J2 (SIG,N,J2)
  4. IMPLICIT INTEGER(I-N)
  5. integer n,i
  6. complex*16 sig(n),J2,desv(6)
  7. call CDSVIA(sig,desv,n)
  8. J2=(0.D0,0.D0)
  9. do i=1,3
  10. J2=J2+desv(i)*desv(i)
  11. enddo
  12. J2=J2/(2.D0,0.D0)
  13. if (n.lt.4) return
  14. do i=4,n
  15. J2=J2+desv(i)*desv(i)
  16. enddo
  17. return
  18. end
  19.  
  20.  
  21.  
  22.  
  23.  

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