c     PROGRAM sequential input list to i * j array
c     ------------------------------------------------------------------
c     Program will ignore all lines beginning with character c.
c
c     Convert a list form to an array 10 * i long.
c     where i = total number of lines / 10
c     e.g. 6385 lines long will give i = 639
c     6385 = 10 * 639
c     If you work in DOS it all hinges on the 64K memory segment boundary
c     so you may need to alter the file.
c
c     ------------------------------------------------------------------
      integer i, j, k
      character*9 word, arai(639,10)
c     Alter ? in character*? to num. of characters per line in input.txt
      open(1, file='input.dat')
      open(2, file='output.dat')
      print*,'Beginning processing'
c     i is the number lines on the resultant output.txt file
      do 10 i = 1,639
c     j is the number of entries per line from input.txt in ouput.txt
      do 20 j = 1,10
      k = k + 1
      read(1,5)word
      arai(i,j) = word
   20 continue
c     add or remove the arai(i,*) as needed. Here there are 10 in the
c     array so arai(i,*) appears 10 times. * = 1, 2, .....
      write(2,15)arai(i,1),arai(i,2),arai(i,3),arai(i,4),arai(i,5),arai(
     +i,6),arai(i,7),arai(i,8),arai(i,9),arai(i,10)
   10 continue
      close(2)
      close(1)
      print*,'Processing complete'
    5 format(a)
c     You can also alter 15 format(a.....) by adding or removing a to
c     the number of entries per line j. since j = 10 there are 10 a's.
   15 format(a,a,a,a,a,a,a,a,a,a)
      end