Searched refs:rsec2r (Results 1 – 1 of 1) sorted by relevance
88 real*8 rsec2r,rsecr local320 rsec2r = rrsq - (zgrid-zr)**2321 if (rsec2r .lt. 0.0d0) rsec2r = 0.000001d0322 rsecr = sqrt(rsec2r)370 cosine = (dsq(k)+rsec2r-rsec2n)544 real*8 zgrid,rsec2r,rsecr local660 rsec2r = rrsq - (zgrid-zr)**2661 if (rsec2r .lt. 0.0d0) then662 rsec2r = 0.000001d0664 rsecr = sqrt(rsec2r)[all …]