character*109 line
	character*23 ref(10)
	equivalence (line,ref(1))
	character*40 flname, outname

	WRITE(6,*)'Break up lcf text file for single column    '
	WRITE(6,*)
	write(6,*)' Enter name of input file:'
	read(5,11) flname
11	format(a40)
	open(unit=2,file=flname,status='old',recl=132)

	write(6,*)' Enter name for output file:'
	read(5,11) outname
	open(unit=3,file=outname,status='new',carriagecontrol='list')

	write(6,*)' How many refl/line in orig file?'
	read(5,*) nref


15	read(2,20,end=100) line
20	format(a109)
	do 30 i=1,nref
30	write(3,25) ref(i)
25	format(A23)
	goto 15
100	close (unit=2)
	close (unit=3)
	end
cxxAAAABBBBCCCDDDDEEEEFFFFFxxxAAAABBBBCCCDDDDEEEEFFFFFxxxAAAABBBBCCCDDDDEEEEFFFFFxxxAAAABBBBCCCDDDDEEEEFFFFF
c    14   3  4 854  12  -61 *   14   3  5 863  10  -78 *   14   4  0 859  19   95 *   14   4  1 860  17   44 *
c123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
c000000000111111111122222222223333333333444444444455555555556666666666777777777788888888889999999999000000000011111111111
c    0  6 24 702  21 -180 *   0  6 25 752  13    0 *   0  6 26 804   9    0 *
cxxAAABBBCCCDDDDEEEEFFFFFxxxAAABBBCCCDDDDEEEEFFFFFxxx