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

Files compile but there is no linking in mesh module

Browse source
This commit is contained in:
Jorge Gonzalez 2026-02-24 20:03:36 +01:00
commit 135f1f464c
7 changed files with 57 additions and 51 deletions
Download patch file Download diff file Expand all files Collapse all files

26
src/modules/mesh/moduleMesh@elements.f90
View file

@ -1,7 +1,7 @@
submodule(moduleMesh) elements
CONTAINS
!Reset the output of node
PURE SUBROUTINE resetOutput(self)
PURE module SUBROUTINE resetOutput(self)
USE moduleSpecies
USE moduleOutput
IMPLICIT NONE
@ -18,7 +18,7 @@ submodule(moduleMesh) elements
END SUBROUTINE resetOutput
subroutine meshNodePointerAdd(self, node)
module subroutine meshNodePointerAdd(self, node)
implicit none
class(meshNodePointer), allocatable, intent(inout):: self(:)
@ -49,7 +49,7 @@ submodule(moduleMesh) elements
end subroutine meshNodePointerAdd
function meshNodePointer_equal_type_type(self, other) result(isEqual)
module function meshNodePointer_equal_type_type(self, other) result(isEqual)
implicit none
class(meshNodePointer), intent(in):: self, other
@ -59,7 +59,7 @@ submodule(moduleMesh) elements
end function meshNodePointer_equal_type_type
function meshNodePointer_equal_type_int(self, other) result(isEqual)
module function meshNodePointer_equal_type_int(self, other) result(isEqual)
implicit none
class(meshNodePointer), intent(in):: self
@ -70,7 +70,7 @@ submodule(moduleMesh) elements
end function meshNodePointer_equal_type_int
function meshEdgePointer_equal_type_type(self, other) result(isEqual)
module function meshEdgePointer_equal_type_type(self, other) result(isEqual)
implicit none
class(meshEdgePointer), intent(in):: self, other
@ -80,7 +80,7 @@ submodule(moduleMesh) elements
end function meshEdgePointer_equal_type_type
subroutine meshEdgePointer_add(self, edge)
module subroutine meshEdgePointer_add(self, edge)
implicit none
class(meshEdgePointer), allocatable, intent(inout):: self(:)
@ -111,7 +111,7 @@ submodule(moduleMesh) elements
end subroutine meshEdgePointer_add
function meshEdgePointer_equal_type_int(self, other) result(isEqual)
module function meshEdgePointer_equal_type_int(self, other) result(isEqual)
implicit none
class(meshEdgePointer), intent(in):: self
@ -123,7 +123,7 @@ submodule(moduleMesh) elements
end function meshEdgePointer_equal_type_int
!Constructs the global K matrix
SUBROUTINE constructGlobalK(self)
module SUBROUTINE constructGlobalK(self)
IMPLICIT NONE
CLASS(meshParticles), INTENT(inout):: self
@ -189,7 +189,7 @@ submodule(moduleMesh) elements
END SUBROUTINE constructGlobalK
! Gather the value of valNodes at position Xi of an edge
pure function gatherF_edge_scalar(self, Xi, nNodes, valNodes) RESULT(f)
pure module function gatherF_edge_scalar(self, Xi, nNodes, valNodes) RESULT(f)
implicit none
class(meshEdge), intent(in):: self
@ -205,7 +205,7 @@ submodule(moduleMesh) elements
end function gatherF_edge_scalar
!Gather the value of valNodes (scalar) at position Xi
PURE FUNCTION gatherF_cell_scalar(self, Xi, nNodes, valNodes) RESULT(f)
PURE module FUNCTION gatherF_cell_scalar(self, Xi, nNodes, valNodes) RESULT(f)
IMPLICIT NONE
CLASS(meshCell), INTENT(in):: self
@ -221,7 +221,7 @@ submodule(moduleMesh) elements
END FUNCTION gatherF_cell_scalar
!Gather the value of valNodes (array) at position Xi
PURE FUNCTION gatherF_cell_array(self, Xi, nNodes, valNodes) RESULT(f)
PURE module FUNCTION gatherF_cell_array(self, Xi, nNodes, valNodes) RESULT(f)
IMPLICIT NONE
CLASS(meshCell), INTENT(in):: self
@ -237,7 +237,7 @@ submodule(moduleMesh) elements
END FUNCTION gatherF_cell_array
!Gather the spatial derivative of valNodes (scalar) at position Xi
PURE FUNCTION gatherDF_cell_scalar(self, Xi, nNodes, valNodes) RESULT(df)
PURE module FUNCTION gatherDF_cell_scalar(self, Xi, nNodes, valNodes) RESULT(df)
IMPLICIT NONE
CLASS(meshCell), INTENT(in):: self
@ -262,7 +262,7 @@ submodule(moduleMesh) elements
END FUNCTION gatherDF_cell_scalar
!Scatters particle properties into cell nodes
SUBROUTINE scatter(self, nNodes, part)
module SUBROUTINE scatter(self, nNodes, part)
USE moduleMath
USE moduleSpecies
USE OMP_LIB