/*coolr main routine to call others, to evaluate total cooling */
void coolr(double *tot);