program diff
	
	integer points,cal1,cal2,ref1,ref2
	real cal3,cal4,cal5,cal6
	real ref3,ref4,ref5,ref6    
	real dif3,dif4,dif5,dif6
	character calfile*8,reffile*8,outfile*8 



 	print *, 'Enter cal file'
	read '(a)', calfile

	print *, 'Enter refrence file'   
	read '(a)', reffile

	print *, 'Enter output file'   
	read '(a)', outfile

	print *, 'Enter number of points'
	read *, points

        open(unit=20,file=calfile)
        open(unit=21,file=reffile)
        open(unit=22,file=outfile)

        do  10 i=1,points

	read(20,*) cal1,cal2,cal3,cal4,cal5,cal6
        read(21,*) ref1,ref2,ref3,ref4,ref5,ref6

	dif3=ref3-cal3
	dif4=ref4-cal4
	dif5=ref5-cal5
	dif6=ref6-cal6

	write(22,*) cal1,cal2,dif3,dif4,dif5,dif6

  10	continue

	close(20)
	close(21)
	close(22)
        
	stop

	end