subroutine average(tim)
c
c Adjust average start time to be at least half of the
c run time. 
c
      implicit none
      real tim
      integer nt2
      include 'itg.par'
      include 'itg.cmn'

      nt2=nstp/2
      if(navgflag.lt.nt2) then
      navgflag=nt2
      avgflag=tim/2
      endif
c
      return
      end