INTEGER NUCRESCAT,NUCRESFLG

	  REAL*4  XNUCFACT
	  
      COMMON /NUCRES/NUCRESCAT,XNUCFACT,NUCRESFLG