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

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

```