Working planar vacancy cluster algorithm

src/functions.f90

@@ -242,4 +242,12 @@ END FUNCTION StrDnCase
         return
     end function unitvec
 
+    pure function norm_dis(rl,rk)
+        !This just returns the magnitude of the vector between two points
+        real(kind=dp), dimension(3), intent(in) :: rl, rk
+        real(kind=dp) :: norm_dis(4)
+
+        norm_dis(1:3) = (rk - rl)
+        norm_dis(4) = norm2(rk-rl)
+    end function
 end module functions