version 1.14, 2006/10/26 10:49:17 |
version 1.15, 2007/02/13 07:12:54 |
|
|
/* |
/* |
* $OpenXM: OpenXM_contrib2/asir2000/engine/dalg.c,v 1.13 2006/01/05 00:21:20 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/engine/dalg.c,v 1.14 2006/10/26 10:49:17 noro Exp $ |
*/ |
*/ |
|
|
#include "ca.h" |
#include "ca.h" |
Line 378 void dalgtoalg(DAlg da,Alg *r) |
|
Line 378 void dalgtoalg(DAlg da,Alg *r) |
|
|
|
if ( !(nf=current_numberfield) ) |
if ( !(nf=current_numberfield) ) |
error("dalgtoalg : current_numberfield is not set"); |
error("dalgtoalg : current_numberfield is not set"); |
dtop(ALG,nf->vl,da->nm,&p); |
if ( !da ) *r = 0; |
invq(da->dn,&inv); |
else { |
mulpq(p,(P)inv,&p1); |
dtop(ALG,nf->vl,da->nm,&p); |
MKAlg(p1,*r); |
invq(da->dn,&inv); |
|
mulpq(p,(P)inv,&p1); |
|
MKAlg(p1,*r); |
|
} |
} |
} |
|
|
void simpdalg(DAlg da,DAlg *r) |
void simpdalg(DAlg da,DAlg *r) |