← Back to branch summary

~maddevelopers/mg5amcnlo/WWW5_caching

« back to all changes in this revision

Viewing changes to users/mardelcourt/PROC_427003/PROC_427003/SubProcesses/transformint.f

  • Committer: John Doe
  • Date: 2013-03-25 20:27:02 UTC
  • Revision ID: john.doe@gmail.com-20130325202702-5sk3t1r8h33ca4p4
first clean version

Show diffs side-by-side

added added

removed removed

Lines of Context:
users/mardelcourt/PROC_427003/PROC_427003/SubProcesses/transformint.f
 
1
      subroutine transformint(p,q,ip,jp,kp,ijp,kpp,mass_i,mass_j,mass_k)
 
2
************************************************************************
 
3
*     Author: NG                                                       *
 
4
*     July, 2008.                                                      *
 
5
*     Given p (p1 + p2 --> p3 ... px .. p_(nexternal))                 *
 
6
*     produce q (q1 + q2 --> q3 ... qx .. q_(nexternal-1))             *
 
7
*                                                                      *
 
8
*     ip is the emitter, jp the unresolved and kp is the spectator     *
 
9
*     after branching.                                                 *
 
10
*     ijp and kpp are the emitter and spectator before branching       *
 
11
*                                                                      *
 
12
*     
 
13
************************************************************************
 
14
      implicit none 
 
15
      include 'nexternal.inc'
 
16
 
 
17
      double precision p(0:3,nexternal),q(0:3,nexternal)
 
18
      integer j,nu,ip,jp,kp,ijp,kpp
 
19
      double precision mass_i,mass_j,mass_k
 
20
 
 
21
      do j=1,nexternal
 
22
         do nu=0,3
 
23
            q(nu,j)=p(nu,j)
 
24
         enddo
 
25
      enddo
 
26
 
 
27
      end
 
28