c $Header: /usr/people/flittner/radtran/tomrad/pv2.2/src/RCS/czsing.cmn,v 2.22 2000/08/30 16:38:59 flittner Exp $ c array for solar source function in spherical atmosphere real*8 zsp(202,max_az,max_scan) common/czsing/zsp save /czsing/