CMPR Function

function CMPR(A1, A2, NCOMP)

@# KKRtags: VORONOI undefined

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=8)				::	A1(NCOMP)
real(kind=8)				::	A2(NCOMP)
integer				::	NCOMP

Return Value integer