一个232*28数组，需要输出的格式为232行28列，.txt格式存储
如何实现
谢谢~
下面是我的程序
program djhrrw
integer n,l,j,k,r,ij
PARAMETER (n=6496) 
PARAMETER (l=28)
PARAMETER (r=232)
REAL(8) cd(1:n),x(1:r,1:l),y(1:r,1:l),yd

open(1,file='djh.txt',status='unknown')
open(2,file='djhout.txt',status='replace')
read(1,*) cd
do 1 i=1,r
 do 2 j=1,l
      ij=i*j
      x(i,j)=cd(ij)
2   continue
1  continue
do 11 i=1,r
 do 22 j=1,l
  if (j.EQ.1) then 
     y(i,j)=i
  else
      yd=ABS(x(i,j)-x(i,j-1))
       if (yd.GT.1) then
         y(i,j)=x(i,j) 
       else
         y(i,j)=0
       end if
  end if         
22   continue
11  continue   
do i=1,l
 write(2,*)y(:,i)
end do 
end