Boundaries for EM almost done

This commit is contained in:
Jorge Gonzalez 2026-02-18 13:31:38 +01:00
commit 4c72e68246
9 changed files with 249 additions and 171 deletions

View file

@ -18,6 +18,16 @@ submodule(moduleMesh) elements
END SUBROUTINE resetOutput
module function meshNodePointer_equal(self, other) result(isEqual)
implicit none
class(meshNodePointer), intent(in):: self, other
logical:: isEqual
isEqual = self%obj%n == other%obj%n
end function meshNodePointer_equal
!Constructs the global K matrix
PURE module SUBROUTINE constructGlobalK(self)
IMPLICIT NONE