integer hwplli
      parameter (hwplli=10)

      integer hwplun
      parameter (hwplun=15)

c      integer hwplml
c      parameter (hwplml=100)

c      integer hwplnl
c      character*8 hwplla
c      real hwpllx
c      real hwplly
      real hwplx
      real hwply
      integer hwplde
      integer hwplmd
      integer hwplid
      integer hwpllo
      integer hwpld1,hwpld2,hwplnd
      real hwpldy
      integer hwpltx
      parameter(hwpltx=80)     ! Max total conpactification length
      integer hwplte
      parameter (hwplte=3)     ! Length of ending of filename
      character*(hwplte) hwpltg
      parameter(hwpltg='.in')
      integer hwpltn
      parameter(hwpltn=20)     ! Max number length part of filename
      integer hwpltf
      parameter (hwpltf=hwpltx-hwplte-hwpltn) ! Max length of basenamebit
      logical hwpllabels

      common/hwplt/hwplx(hwplli),hwply(hwplli),
     &  hwplde,hwplmd,hwplid(hwplli),
     &  hwpld1(hwplli),hwpld2(hwplli),hwplnd(hwplli),
     &  hwpllo(hwplli),hwpldy(hwplli),hwpllabels


c     &  hwplnl,hwpllx(hwplml),hwplly(hwplml),hwplla(hwplml)