{This module defines the IMP floating-point output routines and conversion}
{functions in terms of the primitive 3L___FPOUT}

!Revision history:   6-Dec-86 PSR created

%externalroutinespec FpOut %alias "3L___fpout"(%longreal V, %integer B,A,M,X,S)

!
! IMP_PRINT
!
%externalroutine Print %alias "3L_IMP_PRINT"(%longreal V, %integer B, A)
   FpOut(V, B, A, 0, '@', 0)
%end

!
! IMP_PRINT_FLOATING
!
%externalroutine Print Floating %alias "3L_IMP_PRINT_FLOATING"(%longreal V,
                                                            %integer B, A)
   FpOut(V, B, A, 1, '@', 0)
%end

!
! IMP_R_TO_S
!
%externalstring(255)%fn RtoS %alias "3L_IMP_R_TO_S"(%longreal V, %integer B, A)
   %string(255) S
   FpOut(V, B, A, 0, '@', Addr(S))
   %result = S
%end

!
! IMP_F_TO_S
!
%externalstring(255)%fn Ftos %alias "3L_IMP_F_TO_S"(%longreal V, %integer B, A)
   %string(255) S
   FpOut(V, B, A, 1, '@', Addr(S))
   %result = S
%end