Lines Matching refs:ibgn
4774 static integer jajj, ibgn, iend, itmp; in pbeta_() local
4799 ibgn = ia[0] - 1; in pbeta_()
4801 for (i = ibgn; i < iend; ++i) { in pbeta_()
4810 ibgn = ia[k] - 1; in pbeta_()
4812 for (i = ibgn; i < iend; ++i) { in pbeta_()
4823 ibgn = ia[*n-1] - 1; in pbeta_()
4825 for (i = ibgn; i < iend; ++i) { in pbeta_()
4839 ibgn = ia[ii] - 1; in pbeta_()
4841 if (ibgn >= iend) in pbeta_()
4844 for (jj = ibgn; jj < iend; ++jj) { in pbeta_()
4859 static integer jajj, ibgn, iend; in pbsor_() local
4880 ibgn = ia[ii] - 1; in pbsor_()
4883 for (jj = ibgn; jj < iend; ++jj) { in pbsor_()
4896 ibgn = ia[ii] - 1; in pbsor_()
4898 for (jj = ibgn; jj < iend; ++jj) { in pbsor_()
4906 ibgn = ia[ii] - 1; in pbsor_()
4909 for (jj = ibgn; jj < iend; ++jj) { in pbsor_()
5205 static integer i, j, k, ip, jp, jaj, ier, ipp, ibgn, iend; in permat_() local
5275 ibgn = ia[i] - 1; in permat_()
5277 if (ibgn >= iend) in permat_()
5280 for (j = ibgn; j < iend; ++j) { in permat_()
5291 ibgn = 0; in permat_()
5293 k = ibgn + newia[i]; in permat_()
5294 newia[i] = ibgn+1; in permat_()
5295 ibgn = k; in permat_()
5362 ibgn = ia[i] - 1; in permat_()
5363 qsort_(&k, &ja[ibgn], &a[ibgn], &ier); in permat_()
5524 static integer jajj, ibgn, iend; in pfsor_() local
5544 ibgn = ia[ii] - 1; in pfsor_()
5547 for (jj = ibgn; jj < iend; ++jj) { in pfsor_()
5560 ibgn = ia[ii] - 1; in pfsor_()
5563 for (jj = ibgn; jj < iend; ++jj) { in pfsor_()
5569 for (jj = ibgn; jj < iend; ++jj) { in pfsor_()
5586 static integer jajj, ibgn, iend; in pfsor1_() local
5609 ibgn = ia[ii] - 1; in pfsor1_()
5612 for (jj = ibgn; jj < iend; ++jj) { in pfsor1_()
5627 ibgn = ia[ii] - 1; in pfsor1_()
5630 for (jj = ibgn; jj < iend; ++jj) { in pfsor1_()
5638 for (jj = ibgn; jj < iend; ++jj) { in pfsor1_()
5655 static integer jajj, ibgn, iend; in pjac_() local
5676 ibgn = ia[ii] - 1; in pjac_()
5679 for (jj = ibgn; jj < iend; ++jj) { in pjac_()
5691 ibgn = ia[ii] - 1; in pjac_()
5693 if (ibgn >= iend) in pjac_()
5698 for (jj = ibgn; jj < iend; ++jj) { in pjac_()
5714 static integer jajj, ibgn, iend; in pmult_() local
5735 ibgn = ia[ii] - 1; in pmult_()
5738 for (jj = ibgn; jj < iend; ++jj) { in pmult_()
5751 ibgn = ia[ii] - 1; in pmult_()
5755 for (jj = ibgn; jj < iend; ++jj) { in pmult_()
5770 static integer i, j, k, old, ibgn, iend, nred, last, next, typ, first, young, curtyp, nxttyp; in prbndx_() local
5850 ibgn = first + 1; in prbndx_()
5851 for (i = ibgn; i < *n; ++i) { in prbndx_()
5873 ibgn = ia[k] - 1; in prbndx_()
5875 for (i = ibgn; i < iend; ++i) { in prbndx_()
5964 ibgn = first + 1; in prbndx_()
5965 for (i = ibgn; i < *n; ++i) { in prbndx_()
6015 static integer ibgn, iend; in prsblk_() local
6036 ibgn = ia[inr] - 1; in prsblk_()
6039 if (ibgn >= iend) in prsblk_()
6042 for (j = ibgn; j < iend; ++j) { in prsblk_()
6054 ibgn = ia[i] - 1; in prsblk_()
6057 for (j = ibgn; j < iend; ++j) { in prsblk_()
6072 static integer jajj, ibgn, iend; in prsred_() local
6086 ibgn = ia[ii] - 1; in prsred_()
6088 if (ibgn >= iend) in prsred_()
6092 for (jj = ibgn; jj < iend; ++jj) { in prsred_()
6109 static integer jajj, ibgn, iend; in pssor1_() local
6135 ibgn = ia[ii] - 1; in pssor1_()
6138 for (jj = ibgn; jj < iend; ++jj) { in pssor1_()
6155 ibgn = ia[ii] - 1; in pssor1_()
6158 for (jj = ibgn; jj < iend; ++jj) { in pssor1_()
6165 for (jj = ibgn; jj < iend; ++jj) { in pssor1_()
6176 ibgn = ia[ii] - 1; in pssor1_()
6179 for (jj = ibgn; jj < iend; ++jj) { in pssor1_()
6269 static integer jajj, ibgn, iend; in pvtbv_() local
6283 ibgn = ia[ii] - 1; in pvtbv_()
6285 if (ibgn >= iend) in pvtbv_()
6289 for (jj = ibgn; jj < iend; ++jj) { in pvtbv_()
6396 static integer ii, jj, kk, ibgn, iend, jjdi, icnt; in sbelm_() local
6456 ibgn = ia[ii] - 1; in sbelm_()
6458 if (ibgn >= iend) in sbelm_()
6461 for (jj = ibgn; jj < iend; ++jj) { in sbelm_()
6477 ibgn = ia[ii] - 1; in sbelm_()
6479 for (jj = ibgn; jj < iend; ++jj) { in sbelm_()
6537 ibgn = ia[ii] - 1; in sbelm_()
6544 for (jj = ibgn; jj < iend; ++jj) { in sbelm_()
6559 for (jj = ibgn; jj < iend; ++jj) { in sbelm_()
7009 static integer ii, jj, im1, jadd, jajj, ibgn, iend, jjpi; in scal_() local
7035 ibgn = ia[ii] - 1; in scal_()
7037 for (jj = ibgn; jj < iend; ++jj) { in scal_()
7068 ibgn = ia[ii] - 1; in scal_()
7070 jadd = ibgn + iend + 1; in scal_()
7071 for (j = ibgn; j < iend; ++j) { in scal_()
7088 ibgn = ia[ii] - 1; in scal_()
7091 for (jj = ibgn; jj < iend; ++jj) { in scal_()
7208 static integer ii, jj, is, jajj, ibgn, iend, jjpi, inew; in unscal_() local
7234 ibgn = ia[ii] - 1; in unscal_()
7237 for (jj = ibgn; jj < iend; ++jj) { in unscal_()
7246 ibgn = ia[ii] - 1; in unscal_()
7249 inew = ibgn - is - 1; in unscal_()
7253 for (jj = ibgn; jj < iend; ++jj) { in unscal_()