subroutine zeroav(ifl)
      implicit none
      include 'pimc.par'
      integer i,ifl
      include 'pimc.cm'
c  initialization
      if (ifl.eq.0) then
       ikin=2
       iev=ikin+2
       iepot=iev+2
       ietot=iepot+10
       irg=ietot+6
       ilind=irg+4
       ieff=ilind+2
       igr=ieff+nslices
       isk=igr+2*lptable
       idsp=isk+2*nlamb
       nav=idsp+2*ldsptable+1
c      write (*,*) 'ikin=',ikin
c      write (*,*) 'iev=',iev
c      write (*,*) 'iepot=',iepot
c      write (*,*) 'ietot=',ietot
c      write (*,*) 'irg=',irg
c      write (*,*) 'ilind=',ilind
c      write (*,*) 'ieff=',ieff
c      write (*,*) 'igr=',igr
c      write (*,*) 'isk=',isk
c      write (*,*) 'nlamb=',nlamb
c      write (*,*) 'idsp=',idsp
       write (*,*) 'dimension of the cumulator vector: nav=',nav
       if (nav.ge.mav) then
        write (*,*) 'nav.ge.mav',nav,mav
        stop
       endif
       if (nstart.eq.0) then
        do i=1,nav
         av(i)=0.d0
         anorm(i)=0.d0
        enddo
       endif
      else
       do i=1,nav
        avp(i)=0.d0
        anormp(i)=0.d0
       enddo
      endif
      return
      end