Searched refs:sumelsk (Results 1 – 2 of 2) sorted by relevance
28691 static real sumelsk; in pmxa_() local29490 sumelsk = elss[isyst - 1] - c1ommvl_1.fbar * nbarss[isyst]; in pmxa_()29521 sumelsk = 0.f; in pmxa_()29526 sumelsk += c1omnotes_1.nnpd[iptr - 1] * c1omnotes_1.sqzb[iptr in pmxa_()29531 poenom = wsyspt / (sumelsk + c1ommvl_1.fbar * nbarss[isyst] + xelsk); in pmxa_()29546 do_fio(&c__1, (char *)&sumelsk, (ftnlen)sizeof(real)); in pmxa_()
19145 c Subtract out fbar stuff to keep old way of passing sumelsk to pmxb;19148 sumelsk = elss(isyst)-fbar*nbarss(isyst)19173 sumelsk = 019175 sumelsk = sumelsk19179 poenom = wsyspt/(sumelsk+fbar*nbarss(isyst)+xelsk)19192 * sumelsk,fsyst,fracindent,eonk,ewmxk