[cvs] / MG_ME / Models / sm / couplings.f Repository:
ViewVC logotype

Diff of /MG_ME/Models/sm/couplings.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1, Thu May 18 13:30:34 2006 UTC revision 1.2, Thu Jun 29 09:37:17 2006 UTC
# Line 98  Line 98 
98    
99        if(lpp(1).ne.0.or.lpp(2).ne.0) then        if(lpp(1).ne.0.or.lpp(2).ne.0) then
100            if(asmz .le.0.01d0) asmz =0.118d0            if(asmz .le.0.01d0) asmz =0.118d0
           if(nloop.eq.0)      nloop=1  
101        else        else
102                asmz=alfas   !value read from the param_card.dat                asmz=alfas   !value read from the param_card.dat
103            nloop=2  c          nloop=2
104        endif        endif
105          if(nloop.eq.0)      nloop=1
106    
107        G = DSQRT(4d0*PI*ALPHAS(SCALE)) ! use setting of the param_card.dat @ NLO        G = DSQRT(4d0*PI*ALPHAS(SCALE)) ! use setting of the param_card.dat @ NLO
108        GG(1) = -G        GG(1) = -G

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

Mail to administrator
ViewVC Help
Powered by ViewVC 1.0.0