No big improvements, just some syntaxis corrections in
src/modules/moduleList.f95
This commit is contained in:
parent
ca9948139b
commit
88b7dae9e5
1 changed files with 3 additions and 3 deletions
|
|
@ -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
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue