* -*-fortran-*- * * Variables needed in the computation of the O(as) contribution * to the intrinsic charm components * double precision m2strange parameter(m2strange = 0.01d0) double precision one parameter(one=0.999999999999999d0) * double precision Q2IC,m12,m22,m1,m2 double precision Splus,Sminus,Rplus,Rminus double precision Del,Del2,Spp,Spm,Smp,eta double precision I1,Cplus,C1m,C1p,CRm double precision S1,S2,S3,V1,V2,V3 double precision fact1,fact2,fact3,factL * common / ICwrapScales / Q2IC,m12,m22,m1,m2 common / ICwrapCouplings / Splus,Sminus,Rplus,Rminus common / ICwrapKinVar / Del,Del2,Spp,Spm,Smp,eta common / ICwrapVertex / I1,Cplus,C1m,C1p,CRm common / ICwrapRealVirt / S1,S2,S3,V1,V2,V3 common / ICwrapKinFact / fact1,fact2,fact3,factL