heating cooling arrays

local heating heat.htot
local cooling cooling.ctot

===================================================================

heating - main array 
HeatingCom.heating[ipZ][ipZ]
sumed in heatsum
punched in heatpunch.f

===================================================================

cooling
located in cooling.h
4-char line labels stored in char*5 chCoolants.chClntLab[i]
cooling.collam[i] is the wavelength
cooling.cooling[i] is the actual cooling
cooling.heatnt[i] contains coolant that acutally heats (negative cooling)

coladd - the cooling array is filled with coolants by calling routine coladd by routines that
	do level populations and spectrum

CoolSum - all cooling added together in CoolSum