%externalintegerfn P round %alias "3L_prim_round"(%longreal R)
   %result = Round(R)
%end
%externalintegerfn P trunc %alias "3L_prim_trunc"(%longreal R)
   %result = Trunc(R)
%end
%externalintegerfn P int   %alias "3L_prim_int"(%longreal R)
   %result = Int(R)
%end
%externalintegerfn P intpt %alias "3L_prim_intpt"(%longreal R)
   %result = Intpt(R)
%end