       subroutine symbvb
       write(10,10)
   10  format("Viewpoint { position 10 4 8 }")
       return
       end
