c
c $Id$
c

      real*8  temp,degfree,targetke

      common/cm_temp/temp,degfree,targetke