c  $Header: /usr/people/flittner/radtran/tomrad/pv2.2/src/RCS/depolt.cmn,v 2.22 2000/08/30 16:38:59 flittner Exp $
      integer*4 ipol
      real*8 rhon,gama,q,q1,q2,delp,sdp,q12s
      common/depolt/rhon,gama,q,q1,q2,delp,sdp,q12s,ipol
      save /depolt/