      program ftnunit
c     used by XCrySDen to find out what is the name of frtran unit
      write(99,*) 'test'
      end
