hto_cmplx_root::operator(.cr.) Interface Reference

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

Detailed Description

Definition at line 660 of file CALLING_cpHTO.f.

Member Function/Subroutine Documentation

cr()

real*8 function, dimension(2) hto_cmplx_root::operator(.cr.)::cr	(	real*8, intent(in)	x,
		real*8, intent(in)	ep
	)

Definition at line 665 of file CALLING_cpHTO.f.

       IMPLICIT NONE
       real*8, dimension(2) :: cr
       real*8, INTENT(IN) :: x,ep
       IF(x > 0.d0) THEN 
        cr(1)= sqrt(x)
        cr(2)= 0.d0       
       ELSE
        cr(1)= 0.d0
        cr(2)= ep*sqrt(abs(x))
       ENDIF

---

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

• MELA/fortran/CPS/CALLING_cpHTO.f