Lines Matching refs:pdtj
1433 ! 235 ! double *pdm1, *pdm2, *pdn, *pdtj, pdn_0, pdm1_0;
1470 ! 248 ! pdtj = &(dt[0]);
1471 ! 249 ! for (j = jj = 0; j < 2 * nlen; j++, jj++, pdtj++) {
1473 ! 251 ! a = pdtj[0] + pdn[0] * digit;
1474 ! 252 ! b = pdtj[1] + pdm1[0] * pdm2[j + 1] + a * TwoToMinus16;
1475 ! 253 ! pdtj[1] = b;
1478 ! 257 ! pdtj[2 * i] += pdm1[i] * m2j + pdn[i] * digit;
1505 ! 288 ! pdtj = &(dt[0]);
1506 ! 290 ! for (j = 0; j < 32; j++, pdtj++) {
1816 ! 293 ! a = pdtj[0] + pdn_0 * digit;
1817 ! 294 ! b = pdtj[1] + pdm1_0 * pdm2[j + 1] + a * TwoToMinus16;