hto_real_lnz Module Reference

Data Types
interface	operator(.rlnz.)

Functions/Subroutines
real *8 function	rlnz (x, y)

Function/Subroutine Documentation

rlnz()

real*8 function hto_real_lnz::rlnz	(	real*8, intent(in)	x,
		real*8, intent(in)	y
	)

Definition at line 370 of file CALLING_cpHTO.f.

      IMPLICIT NONE
      real*8 rlnz
      real*8, INTENT(IN) :: x,y
      rlnz= 0.5d0*log(x*x+y*y)