c  $Header: /usr/people/flittner/radtran/tomrad/pv2.2/src/RCS/contrl.cmn,v 2.22 2000/08/30 16:38:59 flittner Exp $
      integer*4 nalb,imu,imuz,iazmth,layer,lambda
      real*8 thnot(max_sza),thta(max_scan),azmth(max_az)
      real*8 alb(max_alb),alfaef
      common /contrl/ nalb,imu,imuz,iazmth,thta,azmth,alb,
     1                thnot,alfaef,
     2                lambda,layer
      save /contrl/