Searched refs:invtheta (Results 1 – 1 of 1) sorted by relevance
36 real(kind=8) :: cf,beta,alpha,delta,theta,s1,rhok,invtheta local73 invtheta = 2.0/(beta+alpha)79 epdk = r*invtheta!/theta85 epdk = epdk*invtheta!/theta