subroutine anal1

c  >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
c   Init histograms
c  >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

      implicit none

#include "dvlib/seq/dvstatus.inc"

c     Externals
      integer  lenocc
      external lenocc

      integer msize
      parameter (msize = 100000)
      real h
      common /pawc/ h(msize)

      integer lrecl, status, leng_pval, leng
      character*80 string, cpval
c  >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

*     Initialize KWFIT system
      call kset_init

      cdirdv = 'example1'
      lhprdv = .FALSE.

      call hlimit(msize)
      lrecl = 1024

      call hropen (2, cdirdv, fhstdv, 'NQP', lrecl, status)

      return
      end