Télécharger invarp.eso

Retour à la liste

Numérotation des lignes :

  1. C INVARP SOURCE CHAT 05/01/13 00:42:21 5004
  2.  
  3. SUBROUTINE INVARI_P (SIG,N,P)
  4. IMPLICIT INTEGER(I-N)
  5. integer n
  6. real*8 sig(n),p
  7. p=-(sig(1)+sig(2)+sig(3))/3.D0
  8. return
  9. end
  10.  
  11.  
  12.  
  13.  

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