Télécharger pcapfd.eso

Retour à la liste

Numérotation des lignes :

  1. C PCAPFD SOURCE CHAT 05/01/13 02:11:09 5004
  2. c
  3. FUNCTION PCAPFUNCDER(VINT)
  4. IMPLICIT INTEGER(I-N)
  5. real*8 vint,pcapfuncder
  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) then
  11. pcapfuncder=0.D0
  12. else if (vint.eq.0.D0) then
  13. pcapfuncder=pc0*1.D-8**(1.D0/exr-1.D0)/exr
  14. else
  15. pcapfuncder=pc0*vint**(1.D0/exr-1.D0)/exr
  16. endif
  17. return
  18. end
  19.  
  20.  
  21.  
  22.  

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