Page MenuHomeHEPForge
Files F10881897

InterfaceMadGraph.f.in
No OneTemporary
Actions

InterfaceMadGraph.f.in
View Options

!This file gets filled from mg2herwig
!///////////////////////////////////////////////////////////////////////
subroutine MGInitProc(file_card)
IMPLICIT NONE
character*(*) file_card
C print*,"Reading inputs from: "
C print*, TRIM(file_card)
CALL setpara(file_card)
END
!///////////////////////////////////////////////////////////////////////
subroutine MG_Calculate_wavefunctions_virt(proc, momenta, virt)
$ bind(c, name="MG_Calculate_wavefunctions_virt")
IMPLICIT NONE
REAL*8 momenta(0:40),virt(20)
INTEGER proc
MG_CalculateVIRTtxt
END
!///////////////////////////////////////////////////////////////////////
subroutine MG_Calculate_wavefunctions_born(proc, momenta, hel)
$ bind(c, name="MG_Calculate_wavefunctions_born")
IMPLICIT NONE
REAL*8 momenta(0:40)
INTEGER hel(0:10),proc
MG_CalculateBORNtxt
END
!///////////////////////////////////////////////////////////////////////
subroutine MG_Jamp(proc ,color,amp)
$ bind(c, name="MG_Jamp")
IMPLICIT NONE
INTEGER proc,color
REAL*8 amp(0:1)
COMPLEX*16 Jamp
MG_Jamptxt
amp(0)=real(Jamp)
amp(1)=aimag(Jamp)
END
!///////////////////////////////////////////////////////////////////////
subroutine MG_LNJamp(proc ,color,amp)
$ bind(c, name="MG_LNJamp")
IMPLICIT NONE
INTEGER proc,color
REAL*8 amp(0:1)
COMPLEX*16 Jamp
MG_LNJamptxt
amp(0)=real(Jamp)
amp(1)=aimag(Jamp)
END
!///////////////////////////////////////////////////////////////////////
subroutine MG_NCol(proc ,color)
$ bind(c, name="MG_NCol")
IMPLICIT NONE
INTEGER proc,color
MG_NColtxt
END
!///////////////////////////////////////////////////////////////////////
subroutine MG_Colour(proc,i,j ,color)
$ bind(c, name="MG_Colour")
IMPLICIT NONE
INTEGER proc,color,i,j
MG_ColourMattxt
END
!///////////////////////////////////////////////////////////////////////
MG_vxxxxxtxt

File Metadata

Mime Type
text/x-fortran
Expires
Sat, May 3, 6:55 AM (19 h, 9 m)
Storage Engine
blob
Storage Format
Raw Data
Storage Handle
4983196
Default Alt Text
InterfaceMadGraph.f.in (2 KB)

Event Timeline