version 1.10, 2002/11/22 07:32:10 |
version 1.11, 2002/11/22 08:44:57 |
|
|
/* $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" |
#include "ca.h" |
|
|
Line 556 void mfctrsfmain(VL vl, P f, DCP *dcp) |
|
Line 556 void mfctrsfmain(VL vl, P f, DCP *dcp) |
|
} |
} |
pa[0] = f; |
pa[0] = f; |
pa[1] = dfmin; |
pa[1] = dfmin; |
gcdsf_main(vl,pa,2,&gcd); |
gcdsf(vl,pa,2,&gcd); |
if ( !NUM(gcd) ) { |
if ( !NUM(gcd) ) { |
/* f = gcd * f/gcd */ |
/* f = gcd * f/gcd */ |
mfctrsfmain(vl,gcd,&dc1); |
mfctrsfmain(vl,gcd,&dc1); |