OpenXM_contrib2/asir2000/engine/D.c - diff

Return to D.c CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / engine

version 1.2, 2000/08/21 08:31:24

version 1.4, 2001/06/07 04:54:39

Line 23

* shall be made on your publication or presentation in any form of the

* results obtained by use of the SOFTWARE.

* (4) In the event that you modify the SOFTWARE, you shall notify FLL by

* e-mail at risa-admin@flab.fujitsu.co.jp of the detailed specification

* e-mail at risa-admin@sec.flab.fujitsu.co.jp of the detailed specification

* for such modification or the source code of the modified part of the

* SOFTWARE.

Line 45

* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,

* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.

* $OpenXM: OpenXM_contrib2/asir2000/engine/D.c,v 1.1.1.1 1999/12/03 07:39:07 noro Exp $

* $OpenXM: OpenXM_contrib2/asir2000/engine/D.c,v 1.3 2000/08/22 05:04:03 noro Exp $

#include "ca.h"

Line 338 N number,*root;

for ( index = 0, num = number; ; index++ ) {

if ( n == 1 )

goto TAIL;

p = lprime[index];

p = get_lprime(index);

if ( !p )

error("nthrootn : lprime[] exhausted.");

if ( !(num0 = rem(num,p)) )

continue;

STON(n,n1); STON(p-1,n2); gcdn(n1,n2,&gcd);