
  FUNCTION [XREF] clp$dtoi
    (    left: longreal;
         right: integer): longreal;

