gfbethe Function

elemental function gfbethe(w, zeta, d)

Arguments

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

Return Value complex(kind=8)


Calls

proc~~gfbethe~2~~CallsGraph proc~gfbethe~2 gfbethe dimag dimag proc~gfbethe~2->dimag

Source Code

elemental function gfbethe(w,zeta,d)
  real(8),intent(in)    :: w,d
  complex(8),intent(in) :: zeta
  complex(8)            :: gfbethe,sqroot
  real(8)               :: sq,sig
  sqroot=sqrt(zeta**2-d**2)
  sq=dimag(sqroot)
  sig=w*sq/abs(w*sq)
  gfbethe=2.d0/(zeta+sig*sqroot)
  return
end function gfbethe