ib.f

   1        do ib=1,10
   2          ibb=ib/2
   3          if (2*ibb.lt.ib) ibb=ibb+1
   4          print *,ib,ibb
   5        enddo
   6        stop
   7        end