Searched refs:celsk (Results 1 – 2 of 2) sorted by relevance
28665 static real celsk[4000]; in pmxa_() local29292 celsk[1] = elsk[0]; in pmxa_()29295 celsk[a1ll_2.ibar] = celsk[a1ll_2.ibar - 1] + elsk[a1ll_2.ibar - 1]; in pmxa_()29321 elsstarg = celsk[compage_1.ibarflb[1] - 1] / ( in pmxa_()29327 celskb4 = celsk[ibarb4]; in pmxa_()29337 elsstarg = (celsk[compage_1.ibarflb[iflb] - 1] - celskb4) in pmxa_()29345 elsstarg = (celsk[compage_1.ibarflb[iflb] - 1] - celskb4) in pmxa_()29355 diff = elsstarg - (celsk[a1ll_2.ibar] - celskb4); in pmxa_()29376 elss[isyst - 1] = celsk[a1ll_2.ibar] - celskb4; in pmxa_()
18586 real*4 elsk(nkb),celsk(0:nkb),elss(nks),to(600),tno(600)18995 celsk(1) = elsk(1)18997 celsk(ibar) = celsk(ibar-1)+elsk(ibar)19016 if (isfirst) elsstarg = celsk(ibarflb(1)-1)/19020 celskb4 = celsk(ibarb4)19029 elsstarg = (celsk(ibarflb(iflb)-1)-celskb4)19036 elsstarg = (celsk(ibarflb(iflb)-1)-celskb4)19044 diff = elsstarg-(celsk(ibar)-celskb4)19061 elss(isyst) = celsk(ibar)-celskb4