%C3.m	Non dimensional kernel function for Mode III%       C_{III} in Geubelle and Rice Eq.26% WARNING: T=0 cannot be obtained with this formula%	   (division by zero) and it is not implemented%	   as special case for performance reasons%	   Whenever needed: C3(0) = 0.5function c = C3(T)  c = besselj(1,T) ./ T ;