| 34 | } |
| 35 | |
| 36 | number EltCreateMat(nforder *a, bigintmat *b) |
| 37 | { |
| 38 | number xx; |
| 39 | if (b->rows()==1) { |
| 40 | assume(b->cols()==a->getDim()); |
| 41 | xx = (number) b->transpose(); |
| 42 | } else { |
| 43 | assume(b->rows() == a->getDim()); |
| 44 | assume(b->cols() == 1); |
| 45 | xx = (number) new bigintmat((bigintmat*)b); |
| 46 | } |
| 47 | // Print("Created new element %lx from %lx\n", xx, b); |
| 48 | return (number) xx; |
| 49 | } |
| 50 | |
| 51 | |
| 52 | static BOOLEAN order_cmp(coeffs n, n_coeffType t, void*parameter) |