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

@@ -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)