Searched refs:iaskb (Results 1 – 2 of 2) sorted by relevance
3111 static integer in, iaskb, inmin; in adjusteskz_() local3126 for (iaskb = 1; iaskb <= i__1; ++iaskb) { in adjusteskz_()3131 eskadd = comas1_1.wask[iaskb - 1] / *poenom - comas1_1.elask[iaskb - in adjusteskz_()24162 static integer nclef, iaskb[24]; in make2bar_() local24321 iaskb[commvl_1.ivx - 1] = 1; in make2bar_()25300 comas1_1.task[iaskb[commvl_1.ivx - 1] - 1] - in make2bar_()25302 if (comas1_1.task[iaskb[commvl_1.ivx - 1] - 1] > in make2bar_()25315 comas1_1.wask[iaskb[commvl_1.ivx - 1] - 1] in make2bar_()25320 comas1_1.elask[iaskb[commvl_1.ivx - 1] in make2bar_()25327 -comas1_1.elask[iaskb[commvl_1.ivx - in make2bar_()[all …]
1680 do 10 iaskb = 1 , naskb1681 if (task(iaskb) .lt. to(istart(ib))-tol) go to 101682 eskadd = wask(iaskb)/poenom-elask(iaskb) 1684 if (to(in) .gt. task(iaskb)-tol) then15875 iaskb(ivx) = 116489 21 if (iaskb(ivx).le.naskb .and.16490 * tnow.gt.task(iaskb(ivx))-tol) then16497 wasksys(nasksys) = wask(iaskb(ivx))16498 if (wask(iaskb(ivx)) .gt. 0.) then16499 elasksys(nasksys) = elask(iaskb(ivx))[all …]