Home
last modified time | relevance | path

Searched refs:S_M_HI (Results 1 – 25 of 28) sorted by relevance

12

/dports/math/symmetrica/symmetrica-e29c85915f368d6fb2f89d703b6695ff29ab9eae/src/
H A Dma.c24 for (i=0L;i<S_M_HI(b);i++)
559 if (S_M_HI(a) != S_M_HI(b)) return FALSE;
1101 if ( S_M_HI(b) > S_M_HI(a) ) return -1;
1134 if ( S_M_HI(b) > S_M_HI(a) ) return -1;
1167 if ( S_M_HI(b) > S_M_HI(a) ) return(-1L); /* AK 170790 */
1186 (S_M_HI(a) == S_M_HI(b))&&
1202 (S_M_HI(a) < S_M_HI(b)) &&
1278 if (S_M_HI(a) >=S_M_HI(b))
1290 (i<S_M_HI(a))&&(i<S_M_HI(b))&&
1800 bl = S_M_HI(b);
[all …]
H A Dmod_dg_sbd.c40 for (i=0;i<S_M_HI(b);i++)
83 m_il_v(S_M_HI(e),v);
88 if (S_M_HI(e) < 2)
98 for (i=k;i<S_M_HI(e);i++)
124 for (i=k;i<S_M_HI(e);i++)
207 if (S_M_HI(e) == 0) {
217 m_il_v(S_M_HI(e),d);
254 for (i=0;i<S_M_HI(e);i++)
623 ss = S_M_HI(e);
626 m_ilih_nm(S_M_HI(e),S_M_HI(c),f);
[all …]
H A Dgra.c438 SYMCHECK(S_M_HI(a) != S_M_LI(a),"add_adjacency_matrix(1):not quadratic");
439 SYMCHECK(S_M_HI(b) != S_M_LI(b),"add_adjacency_matrix(1):not quadratic");
441 m_ilih_nm(S_M_HI(a)+S_M_HI(b),S_M_HI(a)+S_M_HI(b),c);
442 for (i=0;i<S_M_HI(a);i++)
445 for (i=0;i<S_M_HI(b);i++)
447 if (i!=j) M_I_I(S_M_IJI(a,i,j),S_M_IJ(c,S_M_HI(a)+i,S_M_LI(a)+j));
464 for (i=0;i<S_M_HI(a);i++)
487 for (i=0;i<S_M_HI(a);i++)
H A Dgalois.c190 if (p1i >= S_M_HI(mgg_mt)) error("mult_galois_galois:I1"); in mult_galois_galois()
191 if (p2i >= S_M_HI(mgg_mt)) error("mult_galois_galois:I2"); in mult_galois_galois()
446 erg += eins_gr_given_c_d(c,d,S_M_IJ(mat,S_M_HI(mat)-1,S_M_LI(mat)-1));
447 for (j=0;j<S_M_HI(mat)-1;j++)
450 erg += null_gr_given_c_d(c,d,S_M_IJ(mat,S_M_HI(mat)-1,j));
476 for (ii=0;ii<S_M_HI(z);ii++)
477 for (jj=0;jj<S_M_HI(z);jj++)
480 for (jj=0;jj<S_M_HI(z);jj++)
525 for (i=0;i<S_M_HI(mat);i++)
H A Dta.c339 for (i=0L;i<S_M_HI(mat);i++)
347 erg += m_il_integervector(S_M_HI(mat),b);
348 for (i=0L;i<S_M_HI(mat); i++)
387 for (i=S_M_HI(mat)-1L; i>=0L; i--)
527 erg += m_ilih_m(S_M_LI(a)+1,S_M_HI(a)+1,b);
529 for (i=0L;i<S_M_HI(a);i++)
1110 for (i=0L;i<S_M_HI(self);i++)
1827 for(i=0,l=0;i<S_M_HI(matrix);i++)
2257 if (si == S_M_HI(self)) inc(self);
2329 if (si == S_M_HI(self)) inc(self);
[all …]
H A Dsc.c530 S_M_IJ(res,S_M_HI(res)-1L,j),NULL);
1637 for (i=(INT)0; i<S_M_HI(res); i++)
1638 for (j=(INT)0; j<S_M_HI(res); j++)
1640 for (k=(INT)0; k<S_M_HI(res); k++)
1744 for ( i=(INT)0;i<S_M_HI(res);i++)
1745 for ( j=(INT)0;j<S_M_HI(res);j++)
1789 for ( i=(INT)0;i<S_M_HI(res);i++)
1790 for ( j=(INT)0;j<S_M_HI(res);j++)
1793 for ( i=(INT)0;i<S_M_HI(res);i++)
1794 for ( j=(INT)0;j<S_M_HI(res);j++)
[all …]
H A Dtsh.c173 for (i=0;i<S_M_HI(m);i++)
185 for (i=0;i<S_M_HI(m);i++)
191 for (i=0;i<S_M_HI(m);i++)
320 for (i=0;i<S_M_HI(m);i++)
H A Dio.c1049 for(j=0L;j<S_M_HI(M);++j)
1056 if(j != S_M_HI(M)-1L)
1096 for(j=0L;j<S_M_HI(M);++j)
1103 if(j != S_M_HI(M)-1L) fprintf(texout,"\\\\\\hline\n");
1133 for(k=0L;k<S_M_HI(s_po_s(z));++k)
H A Dperm.c207 for (i=S_M_HI(e)-1;i>=0 ; i--)
256 for (i=S_M_HI(b)-1; i>=0L; i--)
871 for (i=0L;i<S_M_HI(a);i++)
879 for (i=0L;i<S_M_HI(a);i++)
1007 for (i= 0L;i<S_M_HI(m); i++)
1051 for (i1=0L;i1<S_M_HI(m);i1++)
1172 for (i=0L;i<S_M_HI(g);i+=15L)
1207 for (i=0L;i<S_M_HI(a);i++)
1287 for (i=0L;i<S_M_HI(a);i++)
2893 for (i=0;i<S_M_HI(a);i++)
[all …]
H A Dpoly.c1617 h = (S_M_HI(as) > S_M_HI(bs) ? S_M_HI(as) : S_M_HI(bs));
1623 ( i<S_M_HI(as) ) &&
1624 ( i<S_M_HI(bs) ) &&
1631 ( i>=S_M_HI(as) ) &&
1637 ( i>=S_M_HI(bs) ) &&
1643 ( i<S_M_HI(as) ) &&
1649 ( i<S_M_HI(bs) ) &&
2026 for (i=(INT)0;i<S_M_HI(z);i++)
H A Dsab.c330 for(i=0L;i<S_M_HI(V);++i)
360 m_i_i(S_M_HI(a),n);
1920 for(i=0;i<S_M_HI(c);i++)
1941 for(i=0;i<S_M_HI(c);i++)
2167 m_i_i(S_M_HI(A),n);
2307 for(k=0L;k<S_M_HI(B);++k)
2309 for(l=0L;l<S_M_HI(B);++l)
2539 f_D = S_M_HI(B);
2772 for(k=0L;k<S_M_HI(S_PO_S(z));++k)
H A Dzo.c518 m_ilih_nm(S_M_LI(b),S_M_HI(a),c);
520 for (i=0L;i<S_M_HI(a);i++) /* ueber zeilen der linken Matrix */
H A Dbar.c388 for (i=0L;i<S_M_HI(a);i++)
438 m_il_p(S_M_HI(a),b);
440 for (i=0L;i<S_M_HI(a);i++)
H A Dnc.c559 for (i=0;i<S_M_HI(b);i++)
1989 for (i=1;i<S_M_HI(m);i++) eins(S_PO_K(p),S_M_IJ(m,i,i-1));
2039 for (j=0;j<S_M_HI(m);j++) eins_ff_given_q(q,S_M_IJ(m,j,j));
2040 for (j=1;j<S_M_HI(m);j++) eins_ff_given_q(q,S_M_IJ(m,j,j-1));
2120 for (i=0;i<S_M_HI(f);i++)
H A Dna.c79 if (S_M_LI(a) != S_M_HI(b))
87 COPY_INTEGER(S_M_H(a),height); ha=S_M_HI(a);
H A Dsr.c1957 for (i=0;i<S_M_HI(c);i++)
1976 for (i=0;i<S_M_HI(c);i++)
4106 for (i=0;i<S_M_HI(c);i++)
4124 for (i=0;i<S_M_HI(c);i++)
5119 for (i=0;i<S_M_HI(b);i++)
5150 for (i=0;i<S_M_HI(b);i++)
5171 for (i=0;i<S_M_HI(b);i++)
5182 for (i=0;i<S_M_HI(b);i++)
5195 for (i=0;i<S_M_HI(b);i++)
H A Dko.c955 for (i=0;i<S_M_HI(c); i++)
956 for (j=0;j<S_M_HI(c); j++)
H A Dmo.c2145 bz = (TL_BYTE *) TL_calloc(S_M_HI(m) * S_M_LI(m), sizeof(TL_BYTE));
2147 for (i=0,z=bz;i<S_M_HI(m);i++)
2150 i= k_dimmod(bz,S_M_HI(m),S_I_I(p));
3743 row=S_M_HI(dcm);
H A Dboe.c98 for (i=0L;i<S_M_HI(c);i++)
102 for (j=0L;j<S_M_HI(c);j++)
H A Dmacro.h239 #define S_M_HI(a) ((((((a)->ob_self).ob_matrix)->m_height)->ob_self).ob_INT) macro
380 #define S_T_HI(a) S_M_HI(S_T_S(a))
978 INT I=S_M_HI(a)*S_M_LI(a)-1;\
H A Drest.c1150 if (S_M_HI(a)==S_M_LI(a)) {
1154 for (i=0;i<S_M_HI(b);i++)
2847 INT i = S_M_HI(b)*S_M_LI(b);
H A Dpart.c1066 for (i=0;i<S_M_HI(m);i++)
4223 for (i=0;i<S_M_HI(c);i++)
H A Dbruch.c2362 m_ilih_m(S_M_LI(ma0),S_M_HI(ma0),ma);
H A Dvc.c1983 SYMCHECK(S_V_LI(a)!=S_M_HI(b),"mult_vector_matrix:length of vector != height of matrix");
H A Dhiccup.c3478 for (i=0;i<S_M_HI(mat);i++)

12