Télécharger cinvaq.eso

Retour à la liste

Numérotation des lignes :

  1. C CINVAQ SOURCE KK2000 14/04/09 21:15:08 8027
  2.  
  3. SUBROUTINE CINVAQ (SIG,N,Q)
  4. IMPLICIT INTEGER(I-N)
  5. integer n
  6. complex*16 sig(n),q,J2
  7. call C_Invari_J2(sig,n,J2)
  8. if (abs(j2).le.0.D0) then
  9. q=1.D-17
  10. return
  11. endif
  12. q=sqrt(CMPLX(3.D0)*J2)
  13. return
  14. end
  15.  
  16.  
  17.  
  18.  
  19.  

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