← Back to branch summary

~maddevelopers/mg5amcnlo/2.9.4

« back to all changes in this revision

Viewing changes to tests/input_files/full_sm/rw_para.f

pass to v2.0.0

Show diffs side-by-side

added added

removed removed

Lines of Context:
tests/input_files/full_sm/rw_para.f
 
1
c************************************************************************
 
2
c**                                                                    **
 
3
c**           MadGraph/MadEvent Interface to FeynRules                 **
 
4
c**                                                                    **
 
5
c**          C. Duhr (Louvain U.) - M. Herquet (NIKHEF)                **
 
6
c**                                                                    **
 
7
c************************************************************************
 
8
 
 
9
      subroutine setpara(param_name,readlha)
 
10
      implicit none
 
11
 
 
12
      character*(*) param_name
 
13
      logical readlha
 
14
 
 
15
      include 'coupl.inc'
 
16
      include 'input.inc'
 
17
 
 
18
      integer maxpara
 
19
      parameter (maxpara=1000)
 
20
      
 
21
      integer npara
 
22
      character*20 param(maxpara),value(maxpara)
 
23
 
 
24
      if(readlha) then
 
25
         call LHA_loadcard(param_name,npara,param,value)
 
26
         include 'param_read.inc'
 
27
      end if
 
28
      call coup(readlha)
 
29
 
 
30
      return
 
31
 
 
32
      end
 
33
 
 
34
 
 
35