c  $Header: /usr/people/flittner/radtran/tomrad/pv2.2/src/RCS/buff4.cmn,v 2.22 2000/08/30 16:38:59 flittner Exp $
c last mod. 03/22/00...def
c purpose: itmax=# of multiple scattering iterations.  So, change
c dimension of itration storage variables to accomidate the single scatter
c and extrapolated intensities.
      real*8 eittl(max_scan,max_az,max_alb)
      real*8 eittr(max_scan,max_az,max_alb)
      real*8 eitotz(max_scan,max_az,max_alb)
      real*8 polz(max_scan,max_az,max_alb)
      real*8 ttz(max_num_iter+2,max_scan)
      common/buff4/eittl,eittr,eitotz,polz,ttz
      save /buff4/