OpenXM_contrib2/asir2000/engine/Fgfs.c - diff

Return to Fgfs.c CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / engine

version 1.10, 2002/11/22 07:32:10

version 1.11, 2002/11/22 08:44:57

Line 1

/* $OpenXM: OpenXM_contrib2/asir2000/engine/Fgfs.c,v 1.9 2002/11/01 06:47:41 noro Exp $ */

/* $OpenXM: OpenXM_contrib2/asir2000/engine/Fgfs.c,v 1.10 2002/11/22 07:32:10 noro Exp $ */

#include "ca.h"

Line 556 void mfctrsfmain(VL vl, P f, DCP *dcp)

}

pa[0] = f;

pa[1] = dfmin;

gcdsf_main(vl,pa,2,&gcd);

gcdsf(vl,pa,2,&gcd);

if ( !NUM(gcd) ) {

/* f = gcd * f/gcd */

mfctrsfmain(vl,gcd,&dc1);