[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.2, Thu Jun 29 09:37:17 2006 UTC revision 1.3, Mon Feb 5 10:03:39 2007 UTC
# Line 76  Line 76 
76        parameter( Pi = 3.14159265358979323846d0 )        parameter( Pi = 3.14159265358979323846d0 )
77        parameter( Fourpi = Four * Pi )        parameter( Fourpi = Four * Pi )
78  c  c
 c     alfas and run  
 c  
       include '../alfas.inc'  
       include '../run.inc'  
 c  
79  c------------------------------------------  c------------------------------------------
80  c Start calculating the couplings for HELAS  c Start calculating the couplings for HELAS
81  c------------------------------------------  c------------------------------------------
# Line 94  Line 89 
89  c     If there pdfs in the initial state, then the alpha_s(MZ) used  c     If there pdfs in the initial state, then the alpha_s(MZ) used
90  c     is set to the corresponding value.  c     is set to the corresponding value.
91    
92        if(scale.le.1d0)    scale=zmass        G = DSQRT(4d0*PI*ALPHAS) ! use setting of the param_card.dat @ NLO
   
       if(lpp(1).ne.0.or.lpp(2).ne.0) then  
           if(asmz .le.0.01d0) asmz =0.118d0  
       else  
               asmz=alfas   !value read from the param_card.dat  
 c          nloop=2  
       endif  
       if(nloop.eq.0)      nloop=1  
   
       G = DSQRT(4d0*PI*ALPHAS(SCALE)) ! use setting of the param_card.dat @ NLO  
93        GG(1) = -G        GG(1) = -G
94        GG(2) = -G        GG(2) = -G
95  c  c

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

Mail to administrator
ViewVC Help
Powered by ViewVC 1.0.0