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