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

Output ready

Browse source 
Output for Gmsh2 ready.

Unfortunatly, code repetition was required.
This commit is contained in:
Jorge Gonzalez 2022-12-14 18:30:14 +01:00
commit c5c4cbefbf
5 changed files with 106 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

17
src/modules/mesh/moduleMesh.f90
View file

@ -289,7 +289,7 @@ MODULE moduleMesh
CONTAINS
PROCEDURE, PASS:: doCollisions
END TYPE
END TYPE meshGeneric
ABSTRACT INTERFACE
!Reads the mesh from a file
@ -338,9 +338,10 @@ MODULE moduleMesh
REAL(8), ALLOCATABLE, DIMENSION(:,:):: K
!Permutation matrix for P L U factorization
INTEGER, ALLOCATABLE, DIMENSION(:,:):: IPIV
PROCEDURE(printOutput_interface), POINTER, PASS:: printOutput => NULL()
PROCEDURE(printEM_interface), POINTER, PASS:: printEM => NULL()
PROCEDURE(doCoulomb_interface), POINTER, PASS:: doCoulomb => NULL()
PROCEDURE(printOutput_interface), POINTER, PASS:: printOutput => NULL()
PROCEDURE(printEM_interface), POINTER, PASS:: printEM => NULL()
PROCEDURE(doCoulomb_interface), POINTER, PASS:: doCoulomb => NULL()
PROCEDURE(printAverage_interface), POINTER, PASS:: printAverage => NULL()
CONTAINS
PROCEDURE, PASS:: constructGlobalK
@ -373,6 +374,14 @@ MODULE moduleMesh
END SUBROUTINE printEM_interface
!Prints average values
SUBROUTINE printAverage_interface(self)
IMPORT meshParticles
CLASS(meshParticles), INTENT(in):: self
END SUBROUTINE printAverage_interface
END INTERFACE