c  $Header: /usr/people/flittner/radtran/tomrad/pv2.2/src/RCS/sumrypol.f,v 2.22 2000/08/30 16:38:09 flittner Exp $
c
      subroutine sumry(jmuz)
c************************************************************************
c     subroutine sumry prints out sb, t, i0 pol etc
c
c last mod.: Mar. 14, 2000...def
c purpose: Change sb and sbp to single elements.
c************************************************************************
c
      implicit none
      include 'parameter.inc'
c passed
      integer jmuz
c commons
      include 'contrl.cmn'
      include 'atmos.cmn'
      include 'in.cmn'
c passed out
      include 'buff1.cmn'
      include 'buff2.cmn'
      include 'buff4.cmn'
c local
      logical lprtits
      integer maxpp,i,j,k
c
c don't print the iteration values
      lprtits=.FALSE.
c
c
      maxpp=itmax+2
c
      if(lprtits)then
        write(9,50)
        do i=1,maxpp
           do j=1,imu
              do k=1,iazmth
                 write(9,100)i,thta(j),azmth(k),e0za(i,j,k),
     & e1za(i,j,k),e2za(i,j,k),ttz(i,j),sbz(i),ggz(i)
              enddo
           enddo
        enddo
      endif
c
      write(9,150)thnot(jmuz),wavelen
      write(9,200)
      do i=1,nalb
         do k=1,iazmth
           do j=1,imu   
               write(9,226)thta(j),azmth(k),eittl(j,k,i),
     1         eittr(j,k,i),eitotz(j,k,i),polz(j,k,i),alb(i)
            enddo
         enddo
      enddo
      return
 50   format(t2,'itr',t10,'the',t15,'phi',t26,'ei0',t37,'ei1',
     1       t48,'ei2',t59,'t  ',t67,'sb',t77,'gg')
 100  format(i5,1x,f7.1,1x,f7.1,1p4e11.3,0pf8.5,1pe11.3)
 150  format('solar zenith angle=',f6.1,' wavelength=',f7.1)
 200  format(t4,'the',t12,'phi',t24,'eil',t35,'eir',t44,'eitot',
     1       t55,'pol',t62,'alb')
 225  format(f7.1,1x,f7.1,1x,1p3e11.3,0pf11.3,0pf7.3)
 226  format(f7.1,1x,f7.1,1x,1p2e11.3,0pf11.5,0pf11.3,0pf7.3)
      end