wfun Function

public function wfun(z)

Arguments

Type IntentOptional Attributes Name
complex(kind=8) :: z

Return Value complex(kind=8)


Calls

proc~~wfun~~CallsGraph proc~wfun wfun dcos dcos proc~wfun->dcos dexp dexp proc~wfun->dexp dsin dsin proc~wfun->dsin idint idint proc~wfun->idint idnint idnint proc~wfun->idnint

Source Code

  function wfun(z)
    complex(8):: z,wfun
    real(8)   :: x,y,u,v
    logical   :: flag
    x=real(z,8)
    y=aimag(z)
    call wofz(x,y,u,v,flag)
    wfun=cmplx(u,v)
  contains
    include "functions_wofz.f90"
  end function wfun