Télécharger sigy.eso

Retour à la liste

Numérotation des lignes :

  1. C SIGY SOURCE CB215821 16/04/21 21:18:27 8920
  2.  
  3. FUNCTION SIGY (VINT)
  4. IMPLICIT INTEGER(I-N)
  5. real*8 vint,sigy0,kiso,siginf,velo,sigy
  6. common /j2j2data/ sigy0,kiso,siginf,velo
  7. if (velo.eq.0.D0) then
  8. sigy=(sigy0+kiso*vint)*sqrt(2.D0/3.D0)
  9. else
  10. sigy=(sigy0+kiso*vint+(siginf-sigy0)*(1.D0-EXP(-velo*vint)))
  11. . *sqrt(2.D0/3.D0)
  12. endif
  13. return
  14. end
  15.  
  16.  
  17.  
  18.  
  19.  

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