c  $Header: /usr/people/flittner/radtran/tomrad/pv2.2/src/RCS/out.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; reduce
c size of sb and sbp to single elements
c
      real*8 sb,qr(max_alb),tnstr(max_scan),eizero(max_scan,max_az)
      real*8 eiaz1(max_scan,max_az),eiaz2(max_scan,max_az),gg,fs
      real*8 totint(max_scan,max_az),sbp,ggp
      real*8 tnstrl(max_scan),tnstrr(max_scan)
      common/out/sb,qr,tnstr,eizero,eiaz1,eiaz2,gg,fs,totint,sbp,ggp,
     &tnstrl,tnstrr
      save /out/