Searched refs:rsecn (Results 1 – 1 of 1) sorted by relevance
80 real*8 rsecn,rsec2n local346 rsecn = sqrt(rsec2n)347 if (d(k) .lt. rsecr+rsecn) then348 rdiff = rsecr - rsecn549 real*8 rinsq,rsecn,rsec2n local688 rsecn = sqrt(rsec2n)689 if (d(k) .lt. rsecr+rsecn) then690 b = rsecr - rsecn