OpenXM/src/ox_toolkit/cmo.c - diff

Return to cmo.c CVS log

Up to [local] / OpenXM / src / ox_toolkit

version 1.24, 2015/08/17 05:18:35

version 1.26, 2016/06/29 05:07:23

Line 1

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

/* $OpenXM: OpenXM/src/ox_toolkit/cmo.c,v 1.23 2015/08/04 05:24:44 noro Exp $ */

/* $OpenXM: OpenXM/src/ox_toolkit/cmo.c,v 1.25 2015/08/18 02:24:04 noro Exp $ */

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

Line 257 cmo_qq* new_cmo_qq()

cmo_bf* new_cmo_bf()

{

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

c->tag = CMO_BIGFLOAT;

c->tag = CMO_BIGFLOAT32;

mpfr_init(c->mpfr);

return c;

}

cmo_complex* new_cmo_complex()

{

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

c->tag = CMO_COMPLEX;

return c;

}

cmo_qq* new_cmo_qq_set_mpq(mpq_ptr q)

{

cmo_qq* c = new_cmo_qq();

Line 282 cmo_bf* new_cmo_bf_set_mpfr(mpfr_ptr num)

Line 289 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;

}

cmo_complex* new_cmo_complex_set_re_im(cmo *re,cmo *im)

{

cmo_complex* c = new_cmo_complex();

c->re = re;

c->im = im;

return c;

}