diff --git a/src/modules/mesh/inout/gmsh2/moduleMeshInputGmsh2.f90 b/src/modules/mesh/inout/gmsh2/moduleMeshInputGmsh2.f90 index c3e2d83..483136e 100644 --- a/src/modules/mesh/inout/gmsh2/moduleMeshInputGmsh2.f90 +++ b/src/modules/mesh/inout/gmsh2/moduleMeshInputGmsh2.f90 @@ -198,9 +198,13 @@ MODULE moduleMeshInputGmsh2 END SELECT - CALL self%edges(e)%obj%init(n, p, boundaryType) + ! If an edge was found, init it + if (allocated(p)) then + call self%edges(e)%obj%init(n, p, boundaryType) - DEALLOCATE(p) + deallocate(p) + + end if END DO diff --git a/src/modules/mesh/inout/vtu/moduleMeshInputVTU.f90 b/src/modules/mesh/inout/vtu/moduleMeshInputVTU.f90 index e60e4b1..54648fd 100644 --- a/src/modules/mesh/inout/vtu/moduleMeshInputVTU.f90 +++ b/src/modules/mesh/inout/vtu/moduleMeshInputVTU.f90 @@ -363,10 +363,13 @@ MODULE moduleMeshInputVTU END SELECT - !Init edge - CALL self%edges(e)%obj%init(n, p, entitiesID(n)) + ! If an edge was found, init it + if (allocated(p)) then + call self%edges(e)%obj%init(n, p, entitiesID(n)) - DEALLOCATE(p) + deallocate(p) + + end if END DO