Lines Matching refs:kpp
46 type(kpoint_pool_t), intent(in) :: kpp local
58 call this%read_header(this%iunit, kpp, mf)
69 type(kpoint_pool_t), intent(in) :: kpp local
78 ik_first = ik - kpp%ipool
86 do ipool = 0, kpp%npools-1
89 call this%read_beta(this%iunit, kpp, mf, ik2, vkb_buf)
90 if (ipool == kpp%ipool) this%vkb(:,:,:) = vkb_buf(:,:,:)
126 type(kpoint_pool_t), intent(in) :: kpp local
215 this%nat_own = NUMROC(this%nat, 1, kpp%inode, 0, kpp%npes)
220 iat = INDXL2G(iat_loc, 1, kpp%inode, 0, kpp%npes)
245 type(kpoint_pool_t), intent(in) :: kpp local
267 ipe = INDXG2P(iat, 1, kpp%inode, 0, kpp%npes)
268 iat_loc = INDXG2L(iat, 1, kpp%inode, 0, kpp%npes)
269 if (ipe==kpp%inode) atom_offset = this%atom_offset(iat_loc)
274 if (ipe==kpp%inode) then