samer@4: function z=linterp(k,z0,z)
samer@4: % linterp - linear interpolation between values
samer@4: %
samer@4: % linterp :: 
samer@4: %    [Size] ~'fraction of distance to travel from from initial to final point',
samer@4: %    [Size] ~'initial point',
samer@4: %    [Size] ~'final point'
samer@4: % -> [Size] ~'interpolated point'.
samer@4: 
samer@4: z = z0+k.*(z-z0);