c This program renum data c by RIE-chan dimension dum(400,400) c number of lines mxt;tate mxy;yoko mxt=8 mxy=19 c do 10 j=1,mxt do 10 i=1,mxy dum(j,i)=999.0 10 continue c open(10,file='memo.txt',status='old') open(20,file='memob.txt') 1 continue read(10,*,end=9) nt,ny,kt,ky,dat dum(nt,ny)=dat go to 1 9 continue c write(20,*) mxt,mxy c do 15 j=1,mxt do 15 i=1,mxy write(20,*) -j,i,dum(j,i) 15 continue close(10) close(20) stop end