多倍長演算ライブラリ ルーチン３３

［ 簡単な説明 ］

指定されたlong 型数値ｎに相当するLINT 型数値を返します。

プログラム・ソース（"lset.c"） 　　　　　　　　　　top （トップに戻る） 
/*		lset.c		*/
#include "longint.h"

/* setting LINT by int */

LINT lset(long n)
{
	LINT a;
	int i;

	a.len = a.sign = 0;
	if(n == 0)	return a;
	if(n < 0)
	{
		a.sign = -1;
		n = - n;
	}
	i = 1;
	do
	{
		a.num[i++] = n % BASE;
		n /= BASE;
	} while (n > 0);
	a.len = i - 1;
	return a;
}