subroutine hec_dwpc_ini
c
c reset the raw beam chamber data common
c
      implicit none
c
c beam chamber parameter DWPC common
c
      include'hec_dwpc.inc'
c
      call vzero(dwpc_words, dwpc_dim)
c
      end