Searched refs:iudsp (Results 1 – 2 of 2) sorted by relevance
2364 static integer iudsp; in addask_() local2376 for (iudsp = 1; iudsp <= i__1; ++iudsp) { in addask_()2377 if ((r__1 = *taskn + *tglp1 - comudsp_1.tudsp[iudsp - 1], dabs( in addask_()2398 comas1_1.wask[comas1_1.naskb - 1] += comudsp_1.udsp[iudsp - 1]; in addask_()2405 comas1_1.wask[comas1_1.naskb - 1] = comudsp_1.udsp[iudsp - 1]; in addask_()
1108 do 1 iudsp = 1 , nudsp1109 if (abs(taskn+tglp1-tudsp(iudsp)) .lt. tol) go to 21122 wask(naskb) = wask(naskb)+udsp(iudsp)1129 wask(naskb) = udsp(iudsp)