c  $Header: /usr/people/flittner/radtran/tomrad/pv2.2/src/RCS/chpmn.cmn,v 2.22 2000/08/30 16:38:59 flittner Exp $
      real*8 chpn,chxn,sqchp,sqchx,xs(487),dxs(487)
      common /chpmn/chpn,chxn,sqchp,sqchx,xs,dxs
      save /chpmn/