OpenXM_contrib2/asir2000/engine/Fgfs.c - diff

Return to Fgfs.c CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / engine

version 1.14, 2002/12/18 06:15:40

version 1.16, 2003/01/06 09:23:27

Line 1

/* $OpenXM: OpenXM_contrib2/asir2000/engine/Fgfs.c,v 1.13 2002/11/26 08:21:49 noro Exp $ */

/* $OpenXM: OpenXM_contrib2/asir2000/engine/Fgfs.c,v 1.15 2003/01/04 09:06:17 noro Exp $ */

#include "ca.h"

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

extern struct order_spec dp_current_spec;

currentspec = dp_current_spec;

create_order_spec(0,&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 482 void cont_pp_mv_sf(VL vl,VL rvl,P p,P *c,P *pp)

Line 487 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);

}

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