10 lines
307 B
Forth
10 lines
307 B
Forth
elemental subroutine addAfter(nodeBefore,value)
|
|
type (node), intent(inout) :: nodeBefore
|
|
real, intent(in) :: value
|
|
type (node), pointer :: newNode
|
|
|
|
allocate(newNode)
|
|
newNode%data = value
|
|
newNode%next => nodeBefore%next
|
|
nodeBefore%next => newNode
|
|
end subroutine addAfter
|