diff --git a/src/non_h_ints_mu/jast_deriv.irp.f b/src/non_h_ints_mu/jast_deriv.irp.f
index 4137c51c..19b900da 100644
--- a/src/non_h_ints_mu/jast_deriv.irp.f
+++ b/src/non_h_ints_mu/jast_deriv.irp.f
@@ -138,7 +138,7 @@
     allocate( gl(2,4,n_points) )
 
     do ipoint_block = 1, n_points_final_grid, 100  ! r1
-      ipoint_end = min(n_points_final_grid, ipoint_block+100)
+      ipoint_end = min(n_points_final_grid, ipoint_block+99)
 
       k=0
       do ipoint = ipoint_block, ipoint_end
@@ -223,8 +223,6 @@
 
     enddo !ipoint_block
 
-
-
     deallocate(gl, rij)
 
   else