      subroutine setzer

      call set(0.0,1.0,0.0,1.0,0.0,1.0,0.0,1.0,1)

      return
      end
