c
c Include file to extract Site UVWs
c
      real*8	uvwp(3), uvwv(3)

      common / situvw / uvwp, uvwv
c