Minor formatting change

src/refine_surface.f90

@@ -250,7 +250,7 @@ if (iadd/=nadd) call stop_run ('pb_b in refine_surface$')
 deallocate (refine)
 deallocate (refinep)
 
-if (iproc.eq.0 .and. params%debug>=1) write(*,'(a,i2,a,i4,a)') shift//'S.',is,':', nadd,' added ptcls in refine_surface'
+if (iproc.eq.0 .and. params%debug>=1) write(*,'(a,i2,a,i8,a)') shift//'S.',is,':', nadd,' added ptcls in refine_surface'
 
 !-----------------------------------
 ! resizing ed (allocate/deallocate)
@@ -356,7 +356,7 @@ do i=1,nadd
    call update_icon (surface%icon,nelemmax,ed,nedgemax,iedge,nnodeint,nelemint,nedgeint)
 enddo
 
-if (iproc.eq.0 .and. params%debug>=1 .and. params%remove_surf_pts) write(*,'(a,i2,a,i4,a)') shift//'S.',is,':', nrem,' removed ptcls in refine_surface'
+if (iproc.eq.0 .and. params%debug>=1 .and. params%remove_surf_pts) write(*,'(a,i2,a,i8,a)') shift//'S.',is,':', nrem,' removed ptcls in refine_surface'
 
 do i=1,size(ed%n1)
    i1=ed(i)%n1