	CALL TUNE(IONE,'MLCF')
	  CALL TUNE(IONE,'C_OPAC')
	  CALL TUNE(ITWO,'C_OPAC')
	CALL TUNE(ITWO,'FLUX_DIST')
	CALL TUNE(ITWO,'MLCF')
