program test
implicit none
real x(50,50), y(50,50)
real:: dx=0.2, dy=0.2
integer i, j
call RANDOM_SEED()
call RANDOM_NUMBER(x)
call RANDOM_NUMBER(y)
x = x * dx
y = y * dy
do i = 1, 50
do j = 1, 50
x(j,i) = x(j,i) + (j-1)*dx
y(j,i) = y(j,i) + (i-1)*dy
end do
end do
end program