parameter (maxstr=50000)

	integer chip(maxstr), cc

	real v(maxstr), i(maxstr), x(maxstr), y(maxstr), ii
	open(1,file='lmc_u2c501.phot',status='old')
	open(2,file='lmc_u2c501.phot.nosub',status='old')

	n=1
1	read(1,*,end=99) chip(n), x(n), y(n), a, a, a, a, a, a, a, a, v(n), a, a, a, a, a, a, a, a, i(n)
2	read(2,*,end=199) cc, xx, yy, a, a, a, a, a, a, a, a, vv, a, a, a, a, a, a, a, a, ii
	j=n
              print 101, cc, xx, yy, vv, ii, vv-v(j), ii-i(j)
101	      format(i4,2f9.2,4f8.3)
	n=n+1
	goto 1

99	n=n-1

199	continue
	stop
	end