Searched defs:calc_Circle (Results 1 – 1 of 1) sorted by relevance
504 subroutine calc_Circle(a,b,N_poles,kT,R,cR,lift) subroutine506 real(dp), intent(in) :: a,b ! the circle bounds507 integer, intent(in) :: N_poles ! number of poles the 'b' point is lifted531 end subroutine calc_Circle argument