Télécharger pcapfu.eso

Retour à la liste

Numérotation des lignes :

  1. C PCAPFU SOURCE CHAT 05/01/13 02:11:12 5004
  2. c
  3. FUNCTION PCAPFUNC(VINT)
  4. IMPLICIT INTEGER(I-N)
  5. real*8 vint,pcapfunc
  6. real*8 pc0,exr,cca,phi,alp,pcc,paa,qaa,exm,eww,
  7. . cpr,cpm,cfr
  8. common /MRScapp/ pc0,exr,cca,phi,alp,pcc,paa,qaa,exm,eww,
  9. . cpr,cpm,cfr
  10. if ((exr.lt.0.D0).or.(abs(vint).eq.0.D0)) then
  11. pcapfunc=pc0
  12. else
  13. pcapfunc=pc0*(1.D0+vint**(1.D0/exr))
  14. endif
  15. return
  16. end
  17.  
  18.  
  19.  
  20.  

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