c  $Header: /usr/people/flittner/radtran/tomrad/pv2.2/src/RCS/buff2.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 e0za(max_num_iter+2,max_scan,max_az)
      real*8 e1za(max_num_iter+2,max_scan,max_az)
      real*8 e2za(max_num_iter+2,max_scan,max_az),ggz(max_num_iter+2)
      common/buff2/e0za,e1za,e2za,ggz
      save /buff2/