cpsi Subroutine

public subroutine cpsi(x, y, Psr, Psi)

Compute the psi function for a complex argument

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=wp)				::	x
real(kind=wp)				::	y
real(kind=wp)				::	Psr
real(kind=wp)				::	Psi