OpenXM_contrib2/asir2018/engine/Q.c - diff

Return to Q.c CVS log

Up to [local] / OpenXM_contrib2 / asir2018 / engine

version 1.6, 2018/10/01 05:49:06

version 1.7, 2018/10/01 05:54:09

Line 1

/* $OpenXM$ */

/* $OpenXM: OpenXM_contrib2/asir2018/engine/Q.c,v 1.6 2018/10/01 05:49:06 noro Exp $ */

#include "ca.h"

#include "gmp.h"

#include "base.h"

Line 36 void init_gmpq()

gmp_randinit_default(GMP_RAND);

}

void printexpr(VL,Obj);

void pmat(Z **a,int row,int col)

{

int i,j;

for ( i = 0; i < row; i++, printf("\n") )

for ( j = 0; j < col; j++, printf(" ") )

printexpr(CO,a[i][j]);

printexpr(CO,(Obj)a[i][j]);

printf("\n");

}