program ara
IMPLICIT NONE
REAL,DIMENSION (25)::X=0
REAL,DIMENSION (25)::Y=5
INTEGER I,J,K,n,f
real z,b
OPEN(10,FILE="laay")
WRITE(10,*)'VARIABLES="X","Y"'
WRITE(10,*)'ZONE I=',(5),'J=',(5),'F=POINT'
DO J=1,5
DO I=1,5
y = y(j)
x=x(I)
x=x(I)+1
k=i+(j-1)*5
if (y(j)<4) then
write(*,*)'x(',k,')=',x(i)
write(*,*)'y(',k,')=',y(j)
write(10,*)x(i),y(j)
end do
x=0
y=y-1
end do
end program