You're trying to write the simple variables x,y,z as if they were arrays. Change the write in the do-loop to:

write (*, '(3f7.3)') x, y, z

...and things should work better.

I'm writing a code, to create aleatory nunbers, but it doesn't work. Someone could help me with the problem?

implicit double precision (a-h,o-z)

write(*,*)'n,rcel'

read(*,*)n,rcel

do i=1,n

x=rcel*(ran()-0.5)*2

y=rcel*(ran()-0.5)*2

z=rcel*(ran()-0.5)*2



write(*,'(3f7.3)') x(i),y(i),z(i),i=1,n

end do

stop

end

Please!!!!!