npart_read = NINT(tmp(1))
DO ip=1,npart_read
npart_read = 1
npart_read = MIN( npart_tile(bi,bj), max_npart_tile )
INTEGER npart_read
npart_read = 0
npart_read = tmp(1)
npart_read = 0.
tmp(1) = DBLE(npart_tile(bi,bj))+npart_read
irecord = npart_read+ip+1
_RL npart_read, npart_times