program count
c
c	program to make a summary catalog from the WDS
c
        integer      numsumm,numdata
c
	open(10,file='wds.data.wc.txt',status='UNKNOWN')
	open(11,file='wds.summ.wc.txt',status='UNKNOWN')
	open(12,file='numsumm.txt',status='UNKNOWN')
	open(13,file='numdata.txt',status='UNKNOWN')
c
  100	read(10,900) numdata
  900   format(i7)
        read(11,910) numsumm
  910   format(i6)
c
        numdata=numdata-numsumm
c
        write(12,910) numsumm
        write(13,900) numdata
c
     	stop
	end