program count

* This program counts the number of atoms in block format

      implicit double precision (a-h,o-z)
      character name*3
      dimension x(500), y(500), z(500)
      dimension name(500)

 5    format(a,3(2x,f6.4))
 6    format(i3,a,3(4x,f12.8))

      m=360
      open (unit=10, file='kenway.relax', status='old')
      do 100 i=1,m
	 read(10,5) name(i), x(i), y(i), z(i)
 100  continue
      close (unit=10)

      open (unit=20, file='relax.num', status='new')
      write(20,*) i-1
      write(20,*)
      do 200 j=1,i-1
 	 write(20,6) j, name(j), x(j), y(j), z(j)
 200  continue
      close (unit=20)

      end