INTEGER NUCRESCAT

	  REAL*4  XNUCFACT
	  
      COMMON /NUCRES/NUCRESCAT,XNUCFACT