c  $Header: /usr/people/flittner/radtran/tomrad/pv2.2/src/RCS/buff1.cmn,v 2.22 2000/08/30 16:38:59 flittner Exp $
c
c last mod: Mar. 14, 2000...def
c purpose: move tnstrr and tnstrl from buff1 common to out common
c
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 sbz(max_num_iter+2),tnstrz(max_num_iter+2,max_scan)
      common/buff1/sbz,tnstrz
      save /buff1/