OpenXM_contrib2/asir2000/engine/Fgfs.c - diff

Return to Fgfs.c CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / engine

version 1.19, 2003/03/12 02:06:11

version 1.20, 2004/02/03 23:31:57

Line 1

/* $OpenXM: OpenXM_contrib2/asir2000/engine/Fgfs.c,v 1.18 2003/01/17 00:17:10 noro Exp $ */

/* $OpenXM: OpenXM_contrib2/asir2000/engine/Fgfs.c,v 1.19 2003/03/12 02:06:11 noro Exp $ */

#include "ca.h"

Line 497 void cont_pp_mv_sf(VL vl,VL rvl,P p,P *c,P *pp)

MP t;

int i,m;

P *ps;

struct order_spec spec, currentspec;

struct order_spec *spec, *currentspec;

extern struct order_spec dp_current_spec;

extern struct order_spec *dp_current_spec;

currentspec = dp_current_spec;

create_order_spec(0,&spec);

create_order_spec(0,0,spec);

initd(&spec);

initd(spec);

ptod(vl,rvl,p,&dp);

for ( t = BDY(dp), m = 0; t; t = NEXT(t), m++ );

ps = (P *)ALLOCA(m*sizeof(P));

Line 510 void cont_pp_mv_sf(VL vl,VL rvl,P p,P *c,P *pp)

ps[i] = C(t);

gcdsf(vl,ps,m,c);

divsp(vl,p,*c,pp);

initd(&currentspec);

initd(currentspec);

}

void mfctrsf(VL vl, P f, DCP *dcp)