c  $Header: /usr/people/flittner/radtran/tomrad/pv2.2/src/RCS/crefdir.cmn,v 2.22 2000/08/30 16:38:59 flittner Exp $
      real*8 refdir(max_scan)
      common/crefdir/refdir
      save /crefdir/