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...