Searched refs:dtemp2 (Results 1 – 1 of 1) sorted by relevance
37 real(kind=8) :: rhokp1,dtemp1,dtemp2,twoodelta local94 dtemp2 = rhokp1*twoodelta96 epdk = dtemp1*epdk+dtemp2*(r-pAux)