HIPLWRITE.c,v

head	1.1;
access;
symbols;
locks
	saclib:1.1; strict;
comment	@ * @;


1.1
date	98.04.23.20.27.12;	author George;	state new;
branches;
next	;


desc
@*
Hardware interval polynomial logarithmic write.
@


1.1
log
@Initial revision
@
text
@/*======================================================================
			HIPLWRITE(n,A)

Hardware interval polynomial logarithmic write.

Inputs
   n : a positive BETA-digit.
   A : in HI[x], deg(A) = n.

Effect
   The coefficients of A are written as logarithmic binary
   rational intervals, one per line, beginning with the leading
   coefficient.
======================================================================*/
#include "saclib.h"

void HIPLWRITE(n,A)
	BDigit n;
	interval *A;
{
	BDigit i;
	Word I;

Step1: /* Convert and write coefficients. */
	for (i = n; i >= 0; i--) {
	   I = HILBRI(A[i]);
	   LBRIWRITE(I);
	   SWRITE("\n"); }

Return: /* Return. */
	return;
}
@