Télécharger cvflca.eso

Retour à la liste

Numérotation des lignes :

  1. C CVFLCA SOURCE KK2000 14/04/09 21:15:12 8027
  2. c
  3. SUBROUTINE C_VFLCAMACINV (SIGINV,VARINT,OTRVAR,XP,XQ,XT)
  4. IMPLICIT INTEGER(I-N)
  5.  
  6. complex*16 siginv(3),varint,otrvar,xp,xq,xt,pcap,gtet,fr,qqa,
  7. . c_wwfunc,c_etaconfunc,c_wwfuncder,c_pcapfunc,q
  8.  
  9. real*8 pc0,exr,cca,phi,alp,pcc,paa,qaa,exm,eww,
  10. . cpr,cpm,cfr
  11.  
  12. common /MRScapp/ pc0,exr,cca,phi,alp,pcc,paa,qaa,exm,eww,
  13. . cpr,cpm,cfr
  14.  
  15. pcap=c_pcapfunc(varint)
  16. gtet=c_wwfunc(siginv(3),eww)
  17.  
  18. fr =(CMPLX(cfr)*pcap-CMPLX(pcc))*c_etaconfunc(otrvar)
  19. q =siginv(2)
  20. qqa =((1.D0,0.D0)+q/CMPLX(qaa))
  21. xp=(2.D0,0.D0)*(siginv(1)-CMPLX(cpm)*pcap)/(CMPLX(cpr)*pcap)**2
  22. xq=(2.D0,0.D0)*(gtet/fr)**2*q*
  23. . (qqa**CMPLX(2.D0*exm) +
  24. & exm*q*qqa**CMPLX(2.D0*exm-1.D0)/qaa)
  25. xt=(2.D0,0.D0)*gtet*q**(2.D0,0.D0)*qqa**CMPLX(2.D0*exm) /
  26. & fr**(2.D0,0.D0)*c_wwfuncder(siginv(3),eww)
  27. return
  28. end
  29.  
  30.  
  31.  
  32.  
  33.  

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