bethe_guess_g0 Subroutine

subroutine bethe_guess_g0(g0, d, beta, hloc)

Arguments

Type IntentOptional Attributes Name
complex(kind=8), dimension(:) :: g0
real(kind=8) :: d
real(kind=8) :: beta
real(kind=8) :: hloc

Calls

proc~~bethe_guess_g0~2~~CallsGraph proc~bethe_guess_g0~2 bethe_guess_g0 gfbethe gfbethe proc~bethe_guess_g0~2->gfbethe

Source Code

subroutine bethe_guess_g0(g0,d,beta,hloc) 
  complex(8),dimension(:) :: g0
  real(8)                 :: d,beta,hloc
  integer                 :: i
  real(8)                 :: wm
  complex(8)              :: zeta
  do i=1,size(g0)
     wm    = 3.141592653589793238d0/beta*(2*i-1)
     zeta  = dcmplx(0.d0,wm) - hloc
     g0(i) = gfbethe(wm,zeta,d)
  enddo
end subroutine bethe_guess_g0