Searched refs:epdk (Results 1 – 1 of 1) sorted by relevance
32 real(kind=8),dimension(amg_nshg(level)) :: epdk,epx local79 epdk = r*invtheta!/theta80 epx = epdk84 epdk = r-pAux85 epdk = epdk*invtheta!/theta86 epx = v+epdk96 epdk = dtemp1*epdk+dtemp2*(r-pAux)97 epx = epx + epdk