Defining Invariant mass in "kin_func.f" file
Dear Olivier,
In First Place
=======
. double precision function mij(P1,P2)
c******
c Invarient mass of 2 particles
c******
IMPLICIT NONE
double precision p1(0:3),p2(0:3)
double precision sumdot
external sumdot
mij = dsqrt(max(
RETURN
END
2. In Second Place
=======
double precision function SumDot(P1,P2,dsign)
c******
c Invarient mass of 2 particles
c******
IMPLICIT NONE
double precision p1(0:3)
integer i
double precision ptot(0:3)
double precision dot
external dot
do i=0,3
enddo
SumDot = dot(ptot,ptot)
RETURN
END
Question information
- Language:
- English Edit question
- Status:
- Solved
- Assignee:
- No assignee Edit question
- Solved by:
- Olivier Mattelaer
- Solved:
- Last query:
- Last reply: