-- (C) Copyright International Business Machines Corporation 23 January
-- 1990.  All Rights Reserved.

-- See the file USERAGREEMENT distributed with this software for full 
-- terms and conditions of use. 

-- Filename: crtoa.d
-- Author: William Silverman
-- SCCS Info: @(#)crtoa.d	1.2 4/9/91

-- Interface definitions for converting a real to an ascii string.

crtoa: using (interpform) definitions

  -- Interface to convert real to string
  ConvertRealToAscii: callmessage (
      format: charstring,
      real: real,
      string: charstring    
    )
  constant(format, real)
  exit {full};

  ConvertRealToAsciiQ: inport of ConvertRealToAscii {init(format), init(real)};

  ConvertRealToAsciiFn: outport of ConvertRealToAsciiQ;

end definitions

  
