Searched refs:rinsq (Results 1 – 1 of 1) sorted by relevance
79 real*8 rinsq,rdiff local343 rinsq = volrad(in)**2344 rsec2n = rinsq - (zgrid-z(in))**2549 real*8 rinsq,rsecn,rsec2n local685 rinsq = volrad(in)**2686 rsec2n = rinsq - (zgrid-z(in))**2