OpenXM/src/ox_toolkit/cmo.c - diff

Return to cmo.c CVS log

Up to [local] / OpenXM / src / ox_toolkit

version 1.22, 2007/03/14 10:30:54

version 1.23, 2015/08/04 05:24:44

Line 1

/* -*- mode: C; coding: euc-japan -*- */

/* $OpenXM: OpenXM/src/ox_toolkit/cmo.c,v 1.21 2005/10/12 04:03:37 takayama Exp $ */

/* $OpenXM: OpenXM/src/ox_toolkit/cmo.c,v 1.22 2007/03/14 10:30:54 ohara Exp $ */

This module includes functions for sending/receiveng CMO's.

Line 11

#include <stdlib.h>

#include <stdarg.h>

#include <string.h>

#include <mpfr.h>

#include "ox_toolkit.h"

#include "parse.h"

Line 253 cmo_qq* new_cmo_qq()

Line 254 cmo_qq* new_cmo_qq()

return c;

}

cmo_bf* new_cmo_bf()

{

cmo_bf* c = MALLOC(sizeof(cmo_bf));

c->tag = CMO_BIGFLOAT;

mpfr_init(c->mpfr);

return c;

}

cmo_qq* new_cmo_qq_set_mpq(mpq_ptr q)

{

cmo_qq* c = new_cmo_qq();

Line 265 cmo_qq* new_cmo_qq_set_mpz(mpz_ptr num, mpz_ptr den)

Line 274 cmo_qq* new_cmo_qq_set_mpz(mpz_ptr num, mpz_ptr den)

cmo_qq* c = new_cmo_qq();

mpq_set_num(c->mpq, num);

mpq_set_den(c->mpq, den);

return c;

}

cmo_bf* new_cmo_bf_set_mpfr(mpfr_ptr num)

{

cmo_bf* c = new_cmo_bf();

mpfr_init2(c->mpfr,num->_mpfr_prec);

mpfr_set(c->mpfr,num,MPFR_RNDN);

return c;

}