Merge pull request #93 from giovannipizzi/develop

wannier-developers · Jan 11, 2017 · 4dbe0f3 · 4dbe0f3
2 parents 2f7a566 + 08215f6
commit 4dbe0f3
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/postw90/geninterp.F90 b/src/postw90/geninterp.F90
@@ -219,7 +219,7 @@ subroutine geninterp_main()
        kpt = localkpoints(:,i)
        ! Here I get the band energies and the velocities (if required)
        if (geninterp_alsofirstder) then
-          call wham_get_eig_deleig(kpt,localeig(:,i),localdeleig(:,1,i),HH,delHH,UU)
+          call wham_get_eig_deleig(kpt,localeig(:,i),localdeleig(:,:,i),HH,delHH,UU)
        else
           call pw90common_fourier_R_to_k(kpt,HH_R,HH,0) 
           call utility_diagonalize(HH,num_wann,localeig(:,i),UU)