hto_cmplx_ln::operator(.cln.) Interface Reference

Public Member Functions
real *8 function, dimension(2)	cln (x, ep)

Detailed Description

Definition at line 440 of file CALLING_cpHTO.f.

Member Function/Subroutine Documentation

cln()

real*8 function, dimension(2) hto_cmplx_ln::operator(.cln.)::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 

---

The documentation for this interface was generated from the following file:

• MELA/fortran/CPS/CALLING_cpHTO.f