Searched refs:rhok (Results 1 – 1 of 1) sorted by relevance
36 real(kind=8) :: cf,beta,alpha,delta,theta,s1,rhok,invtheta local75 rhok = delta/theta92 rhokp1 = 1.0/(s1-rhok)93 dtemp1 = rhokp1*rhok95 rhok = rhokp1