###
Calling Sequence

CIR_3PNT, *
X, Y, R, X0, Y0*

###
Arguments

####
X

A three-element vector containing the X-coordinates of the points.

####
Y

A three-element vector containing the Y-coordinates of the points.

####
R

A named variable that will contain the radius of the circle. The procedure returns 0.0 if the points are co-linear.

####
A named variable that will contain the X-coordinate of the center of the circle. The procedure returns 0.0 if the points are co-linear.

####
Y0

A named variable that will contain the Y-coordinate of the center of the circle. The procedure returns 0.0 if the points are co-linear.

###
Example

X = [1.0, 2.0, 3.0]

Y = [1.0, 2.0, 1.0]

CIR_3PNT, X, Y, R, X0, Y0

PRINT, 'The radius is: ', R

PRINT, 'The center of the circle is at: ', X0, Y0