CROSSPOIPLANE Subroutine

subroutine CROSSPOIPLANE(x1, y1, z1, x2, y2, z2, a3, b3, c3, d3, xcut, ycut, zcut, a)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=8)				::	x1	@# KKRtags: VORONOI geometry `R = Ro + a V (eq of line ) - - - C.R = D (eq of plane) - -` Cross point if we find a `a = (D - C.Ro ) / C.V - - - -` Ro = (x1,y1,z1), V = (x2-x1,y2-y1,z2-z1), C = (A3,B3,C3), D = D3
real(kind=8)				::	y1	@# KKRtags: VORONOI geometry `R = Ro + a V (eq of line ) - - - C.R = D (eq of plane) - -` Cross point if we find a `a = (D - C.Ro ) / C.V - - - -` Ro = (x1,y1,z1), V = (x2-x1,y2-y1,z2-z1), C = (A3,B3,C3), D = D3
real(kind=8)				::	z1	@# KKRtags: VORONOI geometry `R = Ro + a V (eq of line ) - - - C.R = D (eq of plane) - -` Cross point if we find a `a = (D - C.Ro ) / C.V - - - -` Ro = (x1,y1,z1), V = (x2-x1,y2-y1,z2-z1), C = (A3,B3,C3), D = D3
real(kind=8)				::	x2	@# KKRtags: VORONOI geometry `R = Ro + a V (eq of line ) - - - C.R = D (eq of plane) - -` Cross point if we find a `a = (D - C.Ro ) / C.V - - - -` Ro = (x1,y1,z1), V = (x2-x1,y2-y1,z2-z1), C = (A3,B3,C3), D = D3
real(kind=8)				::	y2	@# KKRtags: VORONOI geometry `R = Ro + a V (eq of line ) - - - C.R = D (eq of plane) - -` Cross point if we find a `a = (D - C.Ro ) / C.V - - - -` Ro = (x1,y1,z1), V = (x2-x1,y2-y1,z2-z1), C = (A3,B3,C3), D = D3
real(kind=8)				::	z2	@# KKRtags: VORONOI geometry `R = Ro + a V (eq of line ) - - - C.R = D (eq of plane) - -` Cross point if we find a `a = (D - C.Ro ) / C.V - - - -` Ro = (x1,y1,z1), V = (x2-x1,y2-y1,z2-z1), C = (A3,B3,C3), D = D3
real(kind=8)				::	a3	@# KKRtags: VORONOI geometry `R = Ro + a V (eq of line ) - - - C.R = D (eq of plane) - -` Cross point if we find a `a = (D - C.Ro ) / C.V - - - -` Ro = (x1,y1,z1), V = (x2-x1,y2-y1,z2-z1), C = (A3,B3,C3), D = D3
real(kind=8)				::	b3	@# KKRtags: VORONOI geometry `R = Ro + a V (eq of line ) - - - C.R = D (eq of plane) - -` Cross point if we find a `a = (D - C.Ro ) / C.V - - - -` Ro = (x1,y1,z1), V = (x2-x1,y2-y1,z2-z1), C = (A3,B3,C3), D = D3
real(kind=8)				::	c3	@# KKRtags: VORONOI geometry `R = Ro + a V (eq of line ) - - - C.R = D (eq of plane) - -` Cross point if we find a `a = (D - C.Ro ) / C.V - - - -` Ro = (x1,y1,z1), V = (x2-x1,y2-y1,z2-z1), C = (A3,B3,C3), D = D3
real(kind=8)				::	d3	@# KKRtags: VORONOI geometry `R = Ro + a V (eq of line ) - - - C.R = D (eq of plane) - -` Cross point if we find a `a = (D - C.Ro ) / C.V - - - -` Ro = (x1,y1,z1), V = (x2-x1,y2-y1,z2-z1), C = (A3,B3,C3), D = D3
real(kind=8)				::	xcut	@# KKRtags: VORONOI geometry `R = Ro + a V (eq of line ) - - - C.R = D (eq of plane) - -` Cross point if we find a `a = (D - C.Ro ) / C.V - - - -` Ro = (x1,y1,z1), V = (x2-x1,y2-y1,z2-z1), C = (A3,B3,C3), D = D3
real(kind=8)				::	ycut	@# KKRtags: VORONOI geometry `R = Ro + a V (eq of line ) - - - C.R = D (eq of plane) - -` Cross point if we find a `a = (D - C.Ro ) / C.V - - - -` Ro = (x1,y1,z1), V = (x2-x1,y2-y1,z2-z1), C = (A3,B3,C3), D = D3
real(kind=8)				::	zcut	@# KKRtags: VORONOI geometry `R = Ro + a V (eq of line ) - - - C.R = D (eq of plane) - -` Cross point if we find a `a = (D - C.Ro ) / C.V - - - -` Ro = (x1,y1,z1), V = (x2-x1,y2-y1,z2-z1), C = (A3,B3,C3), D = D3
real(kind=8)				::	a	@# KKRtags: VORONOI geometry `R = Ro + a V (eq of line ) - - - C.R = D (eq of plane) - -` Cross point if we find a `a = (D - C.Ro ) / C.V - - - -` Ro = (x1,y1,z1), V = (x2-x1,y2-y1,z2-z1), C = (A3,B3,C3), D = D3