diff --git a/soc/readinput.f90 b/soc/readinput.f90 index e33e4f73..3235c24f 100644 --- a/soc/readinput.f90 +++ b/soc/readinput.f90 @@ -1007,6 +1007,7 @@ subroutine readinput do ik=1, NK_Berry read(1001, *, end=208, err=208)k ! The unit of lattice vector call cart_direct_rec(k, k3points_Berry(:, ik)) + it = it+ 1 enddo endif ! Direct or Cart coordinates 208 continue