print Subroutine

public subroutine print(lst)

Arguments

Type IntentOptional Attributes Name
type(llist), intent(in) :: lst

Contents

Variables

Source Code

print

Variables

Type Visibility Attributes Name Initial
type(llist_node), public, pointer :: next

Source Code

    subroutine print(lst)
      type(llist), intent(in) :: lst
      type(llist_node), pointer :: next
      write(*,'(a)') 'Tokens:'
      next => lst%begin
      do
         if (.not. associated(next)) exit
         write(*,'(4x,a)') next%data
         next => next%next
      end do
    end subroutine print