OpenXM_contrib2/asir2000/engine/d-itv.c - diff

Return to d-itv.c CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / engine

version 1.2, 2002/01/08 04:14:37

version 1.4, 2009/03/27 14:42:29

Line 1

* $OpenXM: OpenXM_contrib2/asir2000/engine/d-itv.c,v 1.1 2000/12/22 10:03:28 saito Exp $

* $OpenXM: OpenXM_contrib2/asir2000/engine/d-itv.c,v 1.3 2003/02/14 22:29:08 ohara Exp $

#if defined(INTERVAL)

#include <float.h>

#include "ca.h"

#include "base.h"

#if PARI

#if defined(PARI)

#include "genpari.h"

#endif

Line 492 void pwritvd(Num a, Num e, IntervalDouble *c)

pwrnum(0,a,e,c);

#endif

} else if ( !INT(e) ) {

#if PARI && 0

#if defined(PARI) && 0

GEN pa,pe,z;

gpui_ri((Obj)a,(Obj)c,(Obj *)c);

int ltop,lbot;

ltop = avma; ritopa(a,&pa); ritopa(e,&pe); lbot = avma;

z = gerepile(ltop,lbot,gpui(pa,pe,prec));

patori(z,c); cgiv(z);

#else

error("pwritvd : can't calculate a fractional power");

#endif