GetNormalGap Subroutine

public subroutine GetNormalGap(xs, xm, gap)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=real64),	intent(in)			::	xs(:)
real(kind=real64),	intent(in)			::	xm(:,:)
real(kind=real64),	intent(out)			::	gap