c  $Header: /usr/people/flittner/radtran/tomrad/pv2.2/src/RCS/emm.cmn,v 2.22 2000/08/30 16:38:59 flittner Exp $

Common block /emm/

      REAL*8 
     +  ematx(3,max_scan),  !three nonzero elements of M(mu)
     +  admatx(3,max_sza),  !three nonzero elements of M^T(muo)
     +  saz(max_az),        !sines of the azimuth angles
     +  caz(max_az),        !cosines of the azimuth angles
     +  saz2(max_az),       !sines of (2*azimuth angles)
     +  caz2(max_az),       !cosines of the same
     +  emu(max_scan),      !cosines of the look angles (mu)
     +  emuz(max_sza)       !cosines of the solar zenith angles (muo)

      COMMON /emm/ ematx,admatx,saz,caz,saz2,caz2,emu,emuz

      SAVE /emm/