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