c  $Header: /usr/people/flittner/radtran/tomrad/pv2.2/src/RCS/contrb.cmn,v 2.22 2000/08/30 16:38:59 flittner Exp $
c common block for the contribution function
c
      real*8 dJ_trans(202,max_scan,max_az)
      common /ccontrb/dJ_trans
      save /ccontrb/