/* coolants.h */
#define	NCOLNT	10000L

EXTERN struct t_chCoolants {
	char chClntLab[NCOLNT][5];
	}	chCoolants;

EXTERN struct t_Coolants {
	long int collam[NCOLNT];
	double cooling[NCOLNT], 
	  heatnt[NCOLNT];
	long int ncltot;
	}	Coolants;

/*
 *     remember strongest coolants
 *
 *     these save arrays of line heating and cooling
 *     coladd is called by n level cooling routines, and coladd
 *     fills in cooling (cooling) or heating (heatnt)
 *     heatnt is always positive, although it is negative cooling
 */