1c
2c $Id$
3c
4
5      real*8  temp,degfree,targetke
6
7      common/cm_temp/temp,degfree,targetke
8