OpenXM_contrib2/asir2000/engine/bf.c - diff

Return to bf.c CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / engine

version 1.2, 2000/08/21 08:31:27

version 1.6, 2009/07/15 02:19:47

Line 23

* shall be made on your publication or presentation in any form of the

* results obtained by use of the SOFTWARE.

* (4) In the event that you modify the SOFTWARE, you shall notify FLL by

* e-mail at risa-admin@flab.fujitsu.co.jp of the detailed specification

* e-mail at risa-admin@sec.flab.fujitsu.co.jp of the detailed specification

* for such modification or the source code of the modified part of the

* SOFTWARE.

Line 45

* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,

* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.

* $OpenXM: OpenXM_contrib2/asir2000/engine/bf.c,v 1.1.1.1 1999/12/03 07:39:08 noro Exp $

* $OpenXM: OpenXM_contrib2/asir2000/engine/bf.c,v 1.5 2009/03/27 14:42:29 ohara Exp $

#include "ca.h"

#if PARI

#if defined(PARI)

#include "base.h"

#include <math.h>

#include "genpari.h"

extern long prec;

void ritopa(Obj,GEN *);

void patori(GEN,Obj *);

Line 141 void pwrbf(a,e,c)

Line 139 void pwrbf(a,e,c)

Num a,e;

Num *c;

{

GEN pa,pe,z;

long ltop,lbot;

if ( !e )

*c = (Num)ONE;

else if ( !a )

*c = 0;

else {

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

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

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

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

}