/*
 * 5799-WZQ (C) COPYRIGHT IBM CORPORATION 1986,1987,1988
 * LICENSED MATERIALS - PROPERTY OF IBM
 * REFER TO COPYRIGHT INSTRUCTIONS FORM NUMBER G120-2083
 */
/* $Header:rint_rtfl.s 12.0$ */
/* $ACIS:rint_rtfl.s 12.0$ */
/* $Source: /ibm/acis/usr/src/lib/libc/ca/gen/RCS/rint_rtfl.s,v $ */

#include "rtflgen.h"

/*
 *  argument :	double precision value in r2//r3
 *  result :	double precision value in r2//r3
 */
UI(rint,FP_RINT,scratch_r0r2r3r4r5r15,scratch_fr0fr1,rint,UI_SIZE);
