Searched refs:GorbtI (Results 1 – 1 of 1) sorted by relevance
| /dports/science/quantum-espresso/q-e-qe-6.7.0/PW/src/ |
| H A D | loc_scdm_k.f90 | 237 COMPLEX(DP), ALLOCATABLE :: buffer(:), GorbtI(:,:), GorbtJ(:,:) local
249 ALLOCATE( buffer(dfftt%nnr*npol), GorbtI(npwx,NBands), GorbtJ(npwx,NBands) )
252 GorbtI = (Zero,Zero)
272 GorbtI(ig,jbnd) = buffer(dfftt%nl(igk_exx(ig,kk)))
280 CALL matcalc_k( 'AbsOv-',.FALSE., 0, 0, npwx, NBands, NBands, GorbtI, GorbtJ, Mat, tmp )
304 DEALLOCATE( buffer, GorbtI, GorbtJ )
|