c=======================================================================
c purpose: returns the sum of zz(i), for i=i1,i2


      function total(zz,i1,i2) 5
      dimension zz(*)
      total=0.
      do 10 i=i1,i2
        total=total+zz(i)
 10   continue
      return
      end