program count2
c
c	quick count of orbits in master file
c
        real         nmast
	character*2  orb
c
	open(10,file='orb6.master',status='UNKNOWN')
	open(12,file='nummaster.txt',status='UNKNOWN')
c
        nmast=0.
c
  100   read(10,902,end=900) orb
  902   format(18x,a2)
c
	if (orb .eq. ' 0') nmast = nmast+1.0
	if (orb .eq. ' 1') nmast = nmast+1.0
	if (orb .eq. ' 2') nmast = nmast+1.0
	go to 100
c
  900   write(12,910) nmast
  910   format(f6.0)
c
  999	stop
	end