hto_cmplx_ln Module Reference

Data Types
interface	operator(.cln.)

Functions/Subroutines
real *8 function, dimension(2)	cln (x, ep)

Function/Subroutine Documentation

cln()

real*8 function, dimension(2) hto_cmplx_ln::cln	(	real*8, intent(in)	x,
		real*8, intent(in)	ep
	)

Definition at line 445 of file CALLING_cpHTO.f.

       USE hto_riemann
       IMPLICIT NONE
       real*8, dimension(2) :: cln
       real*8, INTENT(IN) :: x,ep
       IF(abs(ep).ne.1.d0) THEN
        print*,' Wrong argument for CLN '
        stop
       ENDIF
       cln(1)= log(abs(x))
       IF(x > 0.d0) THEN
        cln(2)= 0.d0
       ELSE
        cln(2)= ep*pi
       ENDIF