Searched refs:elasksys (Results 1 – 2 of 2) sorted by relevance
/dports/print/texlive-base/texlive-20150521-source/utils/pmx/pmx-2.7.0/ |
H A D | pmxab.c | 727 real wasksys[800], elasksys[800]; member 25319 comas2_1.elasksys[comas2_1.nasksys - 1] = in make2bar_() 25326 comas2_1.elasksys[comas2_1.nasksys - 1] = in make2bar_() 31175 / poe - (r__1 = comas2_1.elasksys[ia - 1], dabs( in pmxb_() 31180 if (comas2_1.elasksys[ia - 1] > 0.f) { in pmxb_() 32829 r__1 = comas2_1.elasksys[ia - 1], dabs(r__1)); in pmxb_() 32830 if (comas2_1.elasksys[ia - 1] > 0.f) { in pmxb_()
|
H A D | pmx270.for | 15213 common /comas2/ nasksys,wasksys(800),elasksys(800) 15774 common /comas2/ nasksys,wasksys(800),elasksys(800) 16499 elasksys(nasksys) = elask(iaskb(ivx)) 16504 elasksys(nasksys) = -elask(iaskb(ivx)) 19581 common /comas2/ nasksys,wasksys(800),elasksys(800) 20259 ask(iask) = wasksys(ia)/poe-abs(elasksys(ia)) 20263 if (elasksys(ia).gt.0) ask(iask)=dim(ask(iask),0.) 21050 ask(iask) = wasksys(ia)/poe-abs(elasksys(ia)) 21051 if (elasksys(ia).gt.0) ask(iask)=dim(ask(iask),0.)
|