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

Public Member Functions

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

Detailed Description

Definition at line 465 of file CALLING_cpHTO.f.

Member Function/Subroutine Documentation

◆ fln()

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

Definition at line 470 of file CALLING_cpHTO.f.

470  USE hto_riemann
471  IMPLICIT NONE
472  real*8 ax,ay,teta,tnteta,sr,si
473  real*8, INTENT(IN) :: x,y
474  real*8, dimension(2) :: fln
475  IF(abs(y).eq.1.d0) THEN
476  fln(1)= log(abs(x))
477  IF(x > 0.d0) THEN
478  fln(2)= 0.d0
479  ELSE
480  fln(2)= y*pi
481  ENDIF
482  ELSE
483  fln(1)= 0.5d0*log(x*x+y*y)
484  ax= abs(x)
485  ay= abs(y)
486  IF(x.eq.0.d0) THEN
487  IF(y > 0.d0) THEN
488  teta= pi/2.d0
489  ELSE
490  teta= -pi/2.d0
491  ENDIF
492  fln(2)= teta
493  ELSE IF(y.eq.0.d0) THEN
494  IF(x > 0.d0) THEN
495  teta= 0.d0
496  ELSE
497  teta= pi
498  ENDIF
499  fln(2)= teta
500  ELSE
501  tnteta= ay/ax
502  teta= atan(tnteta)
503  sr= x/ax
504  si= y/ay
505  IF(sr > 0.d0) THEN
506  fln(2)= si*teta
507  ELSE
508  fln(2)= si*(pi-teta)
509  ENDIF
510  ENDIF
511  ENDIF

The documentation for this interface was generated from the following file:
hto_riemann
Definition: CALLING_cpHTO.f:195
hto_full_ln::fln
real *8 function, dimension(2) fln(x, y)
Definition: CALLING_cpHTO.f:470