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

Clean up and remove unused variables

Browse source
This commit is contained in:
Jorge Gonzalez 2026-03-19 13:20:09 +01:00
commit e0bddfecbf
2 changed files with 2 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -32,7 +32,7 @@ submodule(moduleMesh) elements
inArray = .false.
! I cannot use the procedure 'any' for this
do n = 1 , size(self)
IF (self(n) == nodeToAdd) THEN
if (self(n) == nodeToAdd) then
! Node already in array
inArray = .true.
exit
@ -94,7 +94,7 @@ submodule(moduleMesh) elements
inArray = .false.
! I cannot use the procedure 'any' for this
do n = 1 , size(self)
IF (self(n) == edgeToAdd) THEN
if (self(n) == edgeToAdd) then
! Node already in array
inArray = .true.
exit