c  $Header: /usr/people/flittner/radtran/tomrad/pv2.2/src/RCS/uptoa.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 ek6(202),ek7(202),gguptoa,ggzuptoa(max_num_iter+2)
      common /uptoa/ek6,ek7,gguptoa,ggzuptoa
      save /uptoa/