hto_cmplx_root Module Reference

Data Types
interface	operator(.cr.)

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

Function/Subroutine Documentation

cr()

real*8 function, dimension(2) hto_cmplx_root::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