First step towards reading .vtu mesh

Just setting up the required functions.

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

@@ -0,0 +1,50 @@
+MODULE moduleMeshInputVTK
+  !Reads mesh in the VTU format
+
+  CONTAINS
+    SUBROUTINE initVTK(self)
+      USE moduleMesh
+      USE moduleMeshOutputVTU
+      IMPLICIT NONE
+
+      CLASS(meshGeneric), INTENT(inout), TARGET:: self
+
+      IF (ASSOCIATED(meshForMCC, self)) self%printColl => printCollVTU
+      SELECT TYPE(self)
+      TYPE IS(meshParticles)
+        self%printOutput  => printOutputVTU
+        self%printEM      => printEMVTU
+        self%readInitial  => readInitialVTU
+        self%printAverage => printAverageVTU
+
+      END SELECT
+      self%readMesh    => readVTU
+
+    END SUBROUTINE initVTK
+
+    SUBROUTINE readVTU(self, filename)
+      USE moduleMesh3DCart
+      USE moduleMesh2DCyl
+      USE moduleMesh2DCart
+      USE moduleMesh1DRad
+      USE moduleMesh1DCart
+      USE moduleBoundary
+      IMPLICIT NONE
+
+      CLASS(meshGeneric), INTENT(inout):: self
+      CHARACTER(:), ALLOCATABLE, INTENT(in):: filename
+      REAL(8):: r(1:3) !3 generic coordinates
+
+    END SUBROUTINE readVTU
+
+    SUBROUTINE readInitialVTU(filename, density, velocity, temperature)
+      IMPLICIT NONE
+
+      CHARACTER(:), ALLOCATABLE, INTENT(in):: filename
+      REAL(8), ALLOCATABLE, INTENT(out), DIMENSION(:):: density
+      REAL(8), ALLOCATABLE, INTENT(out), DIMENSION(:,:):: velocity
+      REAL(8), ALLOCATABLE, INTENT(out), DIMENSION(:):: temperature
+
+    END SUBROUTINE readInitialVTU
+
+END MODULE moduleMeshInputVTK