%externallongrealfn Fracpt %alias "3L_MATHS_FRAC_PT"(%longreal N)
   %result = N - Intpt(N)
%end
%endoffile