JGonzalez/fpakc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Small issue reading edges

Browse source 
Sometimes I do things right, then I change them thinking my old self was
an idiot and then they break.

The positive point: the solutions end up being better.
This commit is contained in:
Jorge Gonzalez 2026-02-27 20:55:07 +01:00
commit 9cdc2491b1
2 changed files with 12 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/modules/mesh/inout/gmsh2/moduleMeshInputGmsh2.f90
View file

@ -198,9 +198,13 @@ MODULE moduleMeshInputGmsh2
END SELECT 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 END DO

9
src/modules/mesh/inout/vtu/moduleMeshInputVTU.f90
View file

@ -363,10 +363,13 @@ MODULE moduleMeshInputVTU
END SELECT END SELECT
!Init edge ! If an edge was found, init it
CALL self%edges(e)%obj%init(n, p, entitiesID(n)) if (allocated(p)) then
call self%edges(e)%obj%init(n, p, entitiesID(n))
DEALLOCATE(p) deallocate(p)
end if
END DO END DO