Searched refs:rhokp1 (Results 1 – 1 of 1) sorted by relevance
37 real(kind=8) :: rhokp1,dtemp1,dtemp2,twoodelta local92 rhokp1 = 1.0/(s1-rhok)93 dtemp1 = rhokp1*rhok94 dtemp2 = rhokp1*twoodelta95 rhok = rhokp1