Télécharger invij2.eso

Retour à la liste

Numérotation des lignes :

invij2
  1. C INVIJ2 SOURCE CHAT 05/01/13 00:43:06 5004
  2.  
  3. SUBROUTINE INVARI_J2 (SIG,N,J2)
  4. IMPLICIT INTEGER(I-N)
  5. integer n,i
  6. real*8 sig(n),J2,desv(6)
  7. call Desviador(sig,desv,n)
  8. J2=0.D0
  9. do i=1,3
  10. J2=J2+desv(i)*desv(i)
  11. enddo
  12. J2=J2/2.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.  

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