Searched refs:waskn (Results 1 – 4 of 4) sorted by relevance
2350 /* Subroutine */ int addask_(real *taskn, real *waskn, real *elaskn, real * in addask_() argument2422 if (*waskn > comas1_1.wask[comas1_1.naskb - 1]) { in addask_()2438 comas1_1.wask[comas1_1.naskb - 1] = *waskn; in addask_()2443 *fixednew = *fixednew + *waskn - oldwask; in addask_()
1097 subroutine addask(taskn,waskn,elaskn, argument1145 if (waskn .gt. wask(naskb)) then1161 wask(naskb) = waskn1164 c fixednew = fixednew+waskn1166 fixednew = fixednew+waskn-oldwask
137452 wasknijper/CcZaYaC0