Searched refs:e_head_g0 (Results 1 – 1 of 1) sorted by relevance
| /dports/science/quantum-espresso/q-e-qe-6.7.0/GWW/pw4gww/ |
| H A D | calculate_wing.f90 | 41 COMPLEX(kind=DP), ALLOCATABLE :: e_head(:,:,:), e_head_g0(:) local
101 allocate(e_head_g0(ngm_k))
106 e_head_g0(:)=(0.d0,0.d0)
107 if(ionode) read(iun) e_head_g0(1:ngm_k)
108 … call splitwf(e_head(:, ii,ipol),e_head_g0,npw,k2g_ig_l2g,mpime,nproc,ionode_id,intra_pool_comm)
116 deallocate(e_head_g0)
|