← Back to branch summary

~useakat/cfmc/gg_4g_cfmc

« back to all changes in this revision

Viewing changes to inc/switch_mom.inc

  • Committer: useakat at gmail
  • Date: 2012-10-09 11:44:49 UTC
  • mfrom: (13.1.3 gg_3g_cfmc_dev)
  • Revision ID: useakat@gmail.com-20121009114449-gf5ged40wj2949mo
agrees with MG5

Show diffs side-by-side

added added

removed removed

Lines of Context:
inc/switch_mom.inc
 
1
C -*- fortran -*-
 
2
         if (ich.eq.1) then
 
3
            iperm = int(6*rand())+1
 
4
            if (iperm.eq.2) then
 
5
               call switch_mom(Q(0,4),Q(0,5))
 
6
            elseif (iperm.eq.3) then
 
7
               call switch_mom(Q(0,3),Q(0,4))
 
8
            elseif (iperm.eq.4) then
 
9
               call switch_mom(Q(0,3),Q(0,4))
 
10
               call switch_mom(Q(0,3),Q(0,5))
 
11
            elseif (iperm.eq.5) then
 
12
               call switch_mom(Q(0,4),Q(0,5))
 
13
               call switch_mom(Q(0,3),Q(0,5))
 
14
            elseif (iperm.eq.6) then
 
15
               call switch_mom(Q(0,3),Q(0,5))
 
16
            endif
 
17
         elseif (ich.eq.2) then
 
18
            iperm = int(3*rand())+1
 
19
            if (iperm.eq.2) then
 
20
               call switch_mom(Q(0,3),Q(0,5))
 
21
               call switch_mom(Q(0,4),Q(0,5))
 
22
            elseif (iperm.eq.3) then
 
23
               call switch_mom(Q(0,4),Q(0,5))
 
24
            endif
 
25
         elseif (ich.eq.3) then
 
26
            iperm = int(3*rand())+1
 
27
            if (iperm.eq.2) then
 
28
               call switch_mom(Q(0,3),Q(0,5))
 
29
               call switch_mom(Q(0,4),Q(0,5))
 
30
            elseif (iperm.eq.3) then
 
31
               call switch_mom(Q(0,4),Q(0,5))
 
32
            endif
 
33
         endif
 
 
b'\\ No newline at end of file'