[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.7, Mon Jun 11 08:52:07 2007 UTC revision 1.7.2.2, Thu Oct 4 15:43:33 2007 UTC
# Line 32  Line 32 
32  c----------------------------------------------------------------------  c----------------------------------------------------------------------
33    
34    
35        subroutine setpara(param_name)        subroutine setpara(param_name,readlha)
36  c***********************************************************************  c***********************************************************************
37  c This subroutine sets up the HELAS couplings of the STANDARD MODEL.  c This subroutine sets up the HELAS couplings of the STANDARD MODEL.
38  c***********************************************************************  c***********************************************************************
# Line 41  Line 41 
41  c local  c local
42  c  c
43        character*(*) param_name        character*(*) param_name
44          logical readlha
45        integer i        integer i
46        real*8 dum        real*8 dum
47  c  c
# Line 81  Line 82 
82  c Start calculating the couplings for HELAS  c Start calculating the couplings for HELAS
83  c------------------------------------------  c------------------------------------------
84  c  c
85          if(readlha) then
86        call lh_readin(param_name)        call lh_readin(param_name)
87             G = DSQRT(4d0*PI*ALFAS) ! use setting of the param_card.dat @ NLO
88          endif
89  c  c
90  c     Strong coupling  c     Strong coupling
91  c  c
# Line 90  Line 94 
94  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
95  c     is set to the corresponding value.  c     is set to the corresponding value.
96    
       G = DSQRT(4d0*PI*ALFAS) ! use setting of the param_card.dat @ NLO  
97        GG(1) = -G        GG(1) = -G
98        GG(2) = -G        GG(2) = -G
99  c  c
# Line 254  Line 257 
257  c     open file  c     open file
258  c  c
259        iunit=14        iunit=14
260        call open_file(iunit,param_name,fopened)        call open_file_mdl(iunit,param_name,fopened)
261             done=.false.             done=.false.
262    
263         n=0         n=0
# Line 466  Line 469 
469        buff=temp        buff=temp
470        end        end
471    
472             subroutine open_file(lun,filename,fopened)             subroutine open_file_mdl(lun,filename,fopened)
473  c***********************************************************************  c***********************************************************************
474  c     opens file input-card.dat in current directory or above  c     opens file input-card.dat in current directory or above
475  c***********************************************************************  c***********************************************************************

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.7.2.2

Mail to administrator
ViewVC Help
Powered by ViewVC 1.0.0