c
c beam chamber parameter DWPC common
c
      integer dwpc_dim
      parameter (dwpc_dim = 100)
      integer n_dwpc
      integer dwpc_words(dwpc_dim)
      common /ssswpc/ n_dwpc, dwpc_words