Searched refs:vkbp (Results 1 – 1 of 1) sorted by relevance
555 COMPLEX(DP), ALLOCATABLE :: vkbp(:,:) ! the <beta_I| function local565 ALLOCATE( vkbp(npwx,nkb) )566 CALL init_us_2( npwp, igkp, xkp, vkbp )580 hpsi(ig) = hpsi(ig) - exxalfa*DBLE(deexx(ikb))*vkbp(ig,ikb)584 hpsi(ig) = hpsi(ig) - exxalfa*deexx(ikb)*vkbp(ig,ikb)594 DEALLOCATE( vkbp )