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

Public Member Functions

real *8 function ilnz (x, y)
 

Detailed Description

Definition at line 380 of file CALLING_cpHTO.f.

Member Function/Subroutine Documentation

◆ ilnz()

real*8 function hto_imag_lnz::operator(.ilnz.)::ilnz ( real*8, intent(in)  x,
real*8, intent(in)  y 
)

Definition at line 385 of file CALLING_cpHTO.f.

385  USE hto_riemann
386  IMPLICIT NONE
387  real*8, INTENT(IN) :: x,y
388  real*8 teta,tnteta,sr,si,ax,ay,ilnz
389  ax= abs(x)
390  ay= abs(y)
391  IF(x.eq.0.d0) THEN
392  IF(y > 0.d0) THEN
393  teta= pi/2.d0
394  ELSE
395  teta= -pi/2.d0
396  ENDIF
397  ilnz= teta
398  RETURN
399  ELSE IF(y.eq.0.d0) THEN
400  IF(x > 0.d0) THEN
401  teta= 0.d0
402  ELSE
403  teta= pi
404  ENDIF
405  ilnz= teta
406  RETURN
407  ELSE
408  tnteta= ay/ax
409  teta= atan(tnteta)
410  sr= x/ax
411  si= y/ay
412  IF(sr > 0.d0) THEN
413  ilnz= si*teta
414  ELSE
415  ilnz= si*(pi-teta)
416  ENDIF
417  RETURN
418  ENDIF

The documentation for this interface was generated from the following file:
hto_riemann
Definition: CALLING_cpHTO.f:195