/*coolpr stores coolants before block printed, when printing cooling agents */
void coolpr(
	/* the label for the coolant */
	char *chLabel ,
	/* the wavelength */
	long int lambda, 
	/* the ratio of this coolant, to total cooling, may be negative */
	double ratio, 
	/* which job, either ZERO, DOIT, or DONE */
	char *chJOB );