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