I'm working on Diffusion Limited Aggregation in Fortran however my code is incorrect and I can't see why

Question

I\'m rather new to Fortran and I apologise however In the txt file my code produces the \'particles\' (1\'s) are just randomly spread throughout the array instead of moving