JHUGen MELA  JHUGen v7.5.6, MELA v2.4.2
Matrix element calculations as used in JHUGen.
hto_acmplx_pro::operator(.cp.) Interface Reference

Public Member Functions

real *8 function, dimension(2) cp (x, y)
 

Detailed Description

Definition at line 258 of file CALLING_cpHTO.f.

Member Function/Subroutine Documentation

◆ cp()

real*8 function, dimension(2) hto_acmplx_pro::operator(.cp.)::cp ( real*8, dimension(2), intent(in)  x,
real*8, dimension(2), intent(in)  y 
)

Definition at line 263 of file CALLING_cpHTO.f.

263  USE hto_riemann
264  USE hto_units
265  IMPLICIT NONE
266  real*8, dimension(2) :: cp,z1,z2
267  real*8, INTENT(IN), dimension(2) :: x,y
268  IF(abs(x(2)).eq.1.d0.and.abs(y(2)).eq.1.d0) THEN
269  cp(1)= x(1)*y(1)
270  cp(2)= 0.d0
271  ELSE
272  IF(abs(x(2)).eq.1.d0) THEN
273  z1(1)= x(1)
274  z1(2)= 0.d0
275  ELSE
276  z1= x
277  ENDIF
278  IF(abs(y(2)).eq.1.d0) THEN
279  z2(1)= y(1)
280  z2(2)= 0.d0
281  ELSE
282  z2= y
283  ENDIF
284  cp(1)= z1(1)*z2(1)-z1(2)*z2(2)
285  cp(2)= z1(1)*z2(2)+z1(2)*z2(1)
286  ENDIF

The documentation for this interface was generated from the following file:
hto_riemann
Definition: CALLING_cpHTO.f:195
hto_units
Definition: CALLING_cpHTO.f:179
hto_acmplx_pro::cp
real *8 function, dimension(2) cp(x, y)
Definition: CALLING_cpHTO.f:263