From 08215f6f6dd49284c7fc555437b531b348c03d15 Mon Sep 17 00:00:00 2001 From: Giovanni Pizzi Date: Wed, 11 Jan 2017 22:16:34 +0100 Subject: [PATCH] Small fix to have some compilers (NAG) not to complain (anyway, with the new change it is more correct as we pass the correct shape to the function) --- src/postw90/geninterp.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/postw90/geninterp.F90 b/src/postw90/geninterp.F90 index e5f8c9dbd..a9f813da8 100644 --- 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)