Télécharger invarq.eso

Retour à la liste

Numérotation des lignes :

  1. C INVARQ SOURCE CB215821 16/04/21 21:17:14 8920
  2.  
  3. SUBROUTINE INVARI_Q (SIG,N,Q)
  4. IMPLICIT INTEGER(I-N)
  5. integer n
  6. real*8 sig(n),q,J2
  7. call Invari_J2(sig,n,J2)
  8. if (j2.le.0.D0) then
  9. q=1.D-17
  10. return
  11. endif
  12. q=SQRT(3.D0*J2)
  13. return
  14. end
  15.  
  16.  
  17.  
  18.  
  19.  
  20.  

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