Some progress

Fixed an issue with random integer numbers.
Cylindrical coordinates are not perfect yet:
  - Box (cylinder) with initial constant density loses particles at r =
    0
  - Injection density still low in r = 0

src/modules/mesh/inout/vtu/moduleMeshInputVTU.f90

@@ -495,6 +495,20 @@ MODULE moduleMeshInputVTU
         END SELECT
 
       END DO
+
+      ! Adjust node volume at axis
+      SELECT CASE(self%geometry)
+      CASE("Cyl")
+        DO n  = 1, numNodes
+          r = self%nodes(n)%obj%getCoordinates()
+          IF (r(2) == 0.D0) THEN
+            self%nodes(n)%obj%v = self%nodes(n)%obj%v * 2.0D0!2.0D0/3.0D0
+
+          END IF
+
+        END DO
+
+      END SELECT
         
       !Call mesh connectivity
       CALL self%connectMesh