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

Public Member Functions

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

Detailed Description

Definition at line 619 of file CALLING_cpHTO.f.

Member Function/Subroutine Documentation

◆ crsrs()

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

Definition at line 624 of file CALLING_cpHTO.f.

624  USE hto_units
625  USE hto_riemann
626  IMPLICIT NONE
627  real*8 r,rs,u,v
628  real*8, dimension(2) :: crsrs
629  real*8, INTENT(IN), dimension(2):: x,y
630 *
631  IF(x(1) > 0.d0) THEN
632  rs= x(1)*x(1)+x(2)*x(2)
633  r= sqrt(rs)
634  u= 0.5d0*(r+x(1))
635  crsrs(1)= sqrt(u)
636  r= sqrt(rs)
637  v= 0.5d0*(r-x(1))
638  crsrs(2)= sign(one,x(2))*sqrt(v)
639  ELSE
640  rs= x(1)*x(1)+x(2)*x(2)
641  r= sqrt(rs)
642  u= 0.5d0*(r+x(1))
643  v= 0.5d0*(r-x(1))
644 *
645  IF((x(2)*y(2)) > 0.d0) THEN
646  crsrs(1)= sqrt(u)
647  crsrs(2)= sign(one,x(2))*sqrt(v)
648  ELSEIF((x(2)*y(2)) < 0.d0) THEN
649  crsrs(1)= -sqrt(u)
650  crsrs(2)= sign(one,x(2))*sqrt(v)
651  ENDIF
652 *
653  ENDIF

The documentation for this interface was generated from the following file:
hto_units::one
real *8, parameter one
Definition: CALLING_cpHTO.f:184
hto_riemann
Definition: CALLING_cpHTO.f:195
hto_units
Definition: CALLING_cpHTO.f:179
hto_cmplx_srs_root::crsrs
real *8 function, dimension(2) crsrs(x, y)
Definition: CALLING_cpHTO.f:624