← Back to branch summary

~useakat/cfmc/gg_4g_cfmc

« back to all changes in this revision

Viewing changes to get_cf.f

  • 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:
get_cf.f
24
24
 
25
25
      return
26
26
      end
 
27
 
 
28
 
 
29
      subroutine get_cf2(nperm)
 
30
      implicitnone
 
31
 
 
32
      include 'cparam.inc'
 
33
      
 
34
      integer i
 
35
      integer fact,nperm,ipflag
 
36
      external fact
 
37
      real*8 rnd
 
38
 
 
39
      if( flowtype.eq.1 ) then
 
40
         do i = 1,next
 
41
            floworder(i,1) = i
 
42
         enddo
 
43
 
 
44
         do i = 1,nperm
 
45
            if (i.ne.1) then
 
46
               call ipnext(floworder(2,1),next-1,ipflag)
 
47
            endif
 
48
         enddo
 
49
         call conjugate_cf(next,floworder(1,1),floworder(1,2))
 
50
      endif
 
51
 
 
52
      return
 
53
      end