c  $Header: /usr/people/flittner/radtran/tomrad/pv2.2/src/RCS/in.cmn,v 2.22 2000/08/30 16:38:59 flittner Exp $
      real*8 delx(10),xtop,tmp10(10),tmptop,tmp0
      integer*4 itmax,ipsudo,ipath
      common /in/ delx,xtop,tmp10,tmptop,tmp0,
     1 itmax,ipsudo,ipath
      save /in/