No big improvements, just some syntaxis corrections in

src/modules/moduleList.f95
This commit is contained in:
Jorge Gonzalez 2020-10-21 08:43:30 +02:00
commit 88b7dae9e5

View file

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