gfbether Function

function gfbether(w, zeta, d)

Arguments

Type IntentOptional Attributes Name
real(kind=8) :: w
complex(kind=8) :: zeta
real(kind=8) :: d

Return Value complex(kind=8)


Calls

proc~~gfbether~2~~CallsGraph proc~gfbether~2 gfbether dimag dimag proc~gfbether~2->dimag

Source Code

function gfbether(w,zeta,d)
  real(8)               :: w,d
  complex(8)            :: zeta
  complex(8)            :: gfbether,sqroot
  real(8)               :: sig
  if(dreal(zeta)==0.d0)zeta=dcmplx(1.d-8,dimag(zeta))
  sqroot=sqrt(zeta**2-d**2)
  sig=dreal(zeta)/abs(dreal(zeta))
  gfbether=2.d0/(zeta+sig*sqroot)
end function gfbether