Searched refs:elaskn (Results 1 – 2 of 2) sorted by relevance
1097 subroutine addask(taskn,waskn,elaskn, argument1162 elask(naskb) = elaskn1165 c scaldold = scaldold+elaskn1167 scaldold = scaldold+elaskn-oldelask
2350 /* Subroutine */ int addask_(real *taskn, real *waskn, real *elaskn, real * in addask_() argument2439 comas1_1.elask[comas1_1.naskb - 1] = *elaskn; in addask_()2444 *scaldold = *scaldold + *elaskn - oldelask; in addask_()