c  $Header: /usr/people/flittner/radtran/tomrad/pv2.2/src/RCS/totals.cmn,v 2.22 2000/08/30 16:38:59 flittner Exp $
      real*8 ristar(max_scan,max_alb),tensig(max_alb)
      real*8 total(max_scan,max_az,max_alb)
      common /totals/ ristar,tensig,total
      save /totals/