Home
last modified time | relevance | path

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 Dpmxab.c727 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 Dpmx270.for15213 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.)