| |
| | [No title] |
 | | end if do iglo = g_lo%llim_proc, g_lo%ulim_proc ik = ik_idx(g_lo,iglo) if (ik == 1) cycle g (:,1,iglo) = 0. |
 | | do iglo = g_lo%llim_proc, g_lo%ulim_proc ik = ik_idx(g_lo,iglo) it = it_idx(g_lo,iglo) if (ik == 1.and. |
 | | wgt = 1./sum(delthet*jacob) do iglo = g_lo%llim_proc, g_lo%ulim_proc if (spec(is_idx(g_lo, iglo))%type /= electron_species) cycle if (aky(ik_idx(g_lo, iglo)) /= 0.) cycle gavg(:,1,iglo) = sum(g(:,1,iglo)*delthet*jacob)*wgt gavg(:,2,iglo) = sum(g(:,2,iglo)*delthet*jacob)*wgt end do end subroutine flae end module init_g |
| gk.umd.edu /GS2/src/init_g.f90 (1077 words) |
|