c  $Header: /usr/people/flittner/radtran/tomrad/pv2.2/src/RCS/energy.cmn,v 2.22 2000/08/30 16:38:59 flittner Exp $
       real*8 engyin
       common /cenergy/engyin
       save /cenergy/