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

No big improvements, just some syntaxis corrections in

Browse source 
src/modules/moduleList.f95
This commit is contained in:
Jorge Gonzalez 2020-10-21 08:43:30 +02:00
commit 88b7dae9e5
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/modules/moduleList.f95
View file

@ -10,7 +10,7 @@ MODULE moduleList
END TYPE lNode END TYPE lNode
TYPE listNode TYPE listNode
INTEGER:: amount = 0 INTEGER:: amount = 0!TODO: Make private
TYPE(lNode),POINTER:: head => NULL() TYPE(lNode),POINTER:: head => NULL()
TYPE(lNode),POINTER:: tail => NULL() TYPE(lNode),POINTER:: tail => NULL()
CONTAINS CONTAINS
@ -35,7 +35,7 @@ MODULE moduleList
ALLOCATE(temp) ALLOCATE(temp)
temp%part => part temp%part => part
NULLIFY(temp%next) temp%next => NULL()
self%amount = self%amount + 1 self%amount = self%amount + 1
IF (.NOT. ASSOCIATED(self%head)) THEN IF (.NOT. ASSOCIATED(self%head)) THEN
!First element !First element
@ -44,7 +44,7 @@ MODULE moduleList
ELSE ELSE
!Append element !Append element
self%tail%next => temp self%tail%next => temp
self%tail => temp self%tail => temp
END IF END IF
END SUBROUTINE addToList END SUBROUTINE addToList