Boundaries for EM almost done
This commit is contained in:
parent
6a7c92f62f
commit
4c72e68246
9 changed files with 249 additions and 171 deletions
|
|
@ -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
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue