Searched refs:naskb (Results 1 – 2 of 2) sorted by relevance
1118 if (naskb.gt.0 .and. abs(taskn-task(max(1,naskb))).lt.tol) then1122 wask(naskb) = wask(naskb)+udsp(iudsp)1127 naskb = naskb+11128 task(naskb) = taskn1130 elask(naskb) = 0.1140 if (naskb.gt.0 .and. abs(taskn-task(max(1,naskb))).lt.tol) then1154 naskb = naskb-11159 naskb = naskb+11160 task(naskb) = taskn1161 wask(naskb) = waskn[all …]
134 integer naskb; member2403 ++comas1_1.naskb; in addask_()2406 comas1_1.elask[comas1_1.naskb - 1] = 0.f; in addask_()2428 oldwask = comas1_1.wask[comas1_1.naskb - 1]; in addask_()2431 --comas1_1.naskb; in addask_()2436 ++comas1_1.naskb; in addask_()2437 comas1_1.task[comas1_1.naskb - 1] = *taskn; in addask_()2438 comas1_1.wask[comas1_1.naskb - 1] = *waskn; in addask_()3125 i__1 = comas1_1.naskb; in adjusteskz_()24327 comas1_1.naskb = 0; in make2bar_()[all …]