The ContourPlot generated by
k = 1.380648813 10^-23; T1 = 273; T2 = 330;
plt = ContourPlot[.3/(k T) Log10[1 + Z]/Z, {T, T1, T2}, {Z, 1, 50},
PlotRange -> All, ContourLabels -> All, PlotRangePadding -> 10]
(simplified from Question 78999) incorrectly lists the values of several contours as 0.

From
Cases[plt, Text[z_, __] -> z, Infinity]
(* {2500000000000000000, 5000000000000000000, 7500000000000000000, 0, 0, 0, 0, 0, 0} *)
it is evident that ContourPlot is not passing values equal to 10^19 or greater.
Is there any command or simple work-around to alleviate this problem (apart from dividing the first ContourPlot argument by some number rs = 3 or greater and then replacing ContourLabels -> All by ContourLabels -> Function[{x, y, z}, Inset[z*rs, {x, y}]]?

Developer`$MaxMachineInteger– Simon Woods Apr 04 '15 at 20:35Contours -> FindDivisions[{0, 2*10^19}, 10]– Simon Woods Apr 04 '15 at 21:10