linked_list Module Reference

Data Types
type	link_list
type	link_node

Functions/Subroutines
subroutine	node_delete (links, obj, found)
subroutine	delete_not_mine (links, ME)
subroutine	delete_not_found (links)
subroutine	node_insert (links, obj)
logical function	empty_list (links)
type(link_list) function	new_list ()
subroutine	print_list (links)
subroutine	print_data (links)
subroutine	print_id_list (links)
subroutine	shift_pos_list (links)
integer function	listsize (links)
subroutine	set_not_found (links)

Function/Subroutine Documentation

delete_not_found()

subroutine linked_list::delete_not_found

(

type(link_list), intent(inout)

links

)

Definition at line 116 of file linklist.f90.

    implicit none
    type(link_list), intent(inout) :: links 
    type(link_node), pointer       :: previous,current
    
    !find location of obj
    previous => links%first
    current  => previous%next
    
    do
       if(.not. associated (current)) return
       if(.not. current%v%found)then
          previous%next => current%next
          deallocate(current)
       else
          previous => previous%next  
          current  => current%next
       endif
    end do !find location of node with obj
    

delete_not_mine()

subroutine linked_list::delete_not_mine	(	type(link_list), intent(inout)	links,
		integer, intent(in)	ME
	)

Definition at line 91 of file linklist.f90.

    implicit none
    type(link_list), intent(inout) :: links
    integer, intent(in)            :: ME
    type(link_node), pointer       :: previous,current
    
    !find location of obj
    previous => links%first
    current  => previous%next
    

    do
       if(.not. associated (current)) return
       if(myid /= current%v%PID)then
          previous%next => current%next
          deallocate(current)
          current  => previous%next
       else
          previous => previous%next  
          current  => current%next
       endif
    end do !find location of node with obj
    

empty_list()

logical function linked_list::empty_list

(

type(link_list), intent(in)

links

)

Definition at line 160 of file linklist.f90.

   type(link_list), intent(in) :: links
   logical                     :: t_or_f
   t_or_f = .not. associated (links%first%next)

listsize()

integer function linked_list::listsize

(

type(link_list), intent(in)

links

)

Definition at line 240 of file linklist.f90.

    type(link_list), intent(in) :: links
    type(link_node), pointer    :: current
    integer                     :: counter 
    counter = 0
    current => links%first%next
    
    do 
     if(.not. associated(current) ) exit 
     counter = counter + 1
     current => current%next
    end do

new_list()

type(link_list) function linked_list::new_list

(

)

Definition at line 166 of file linklist.f90.

   type(link_list) :: OBJ
   integer :: status
   allocate ( obj%first, stat=status)
   if(status/=0) CALL fatal_error("LinkList: Could not allocate new linklist")
   nullify(obj%first%next)

node_delete()

subroutine linked_list::node_delete	(	type(link_list), intent(inout)	links,
		type(particle), intent(in)	obj,
		logical, intent(out)	found
	)

Definition at line 62 of file linklist.f90.

   implicit none
   type(link_list), intent(inout) :: links 
   type(particle),  intent(in)    :: obj
   logical        , intent(out)   :: found
   type(link_node), pointer       :: previous,current

   !find location of obj
   previous => links%first
   current  => previous%next
   found = .false.

   do
     if(found .or. (.not. associated (current))) return
     if(obj == current%v)then
       found = .true. ; exit
     else
       previous => previous%next  
       current  => current%next
     endif
  end do !find location of node with obj

  if (found) then
    previous%next => current%next
    deallocate(current)
  endif

node_insert()

subroutine linked_list::node_insert	(	type(link_list), intent(inout)	links,
		type(particle), intent(in)	obj
	)

Definition at line 138 of file linklist.f90.

   type(link_list), intent(inout) :: links 
   type(particle),  intent(in)    :: obj
   type(link_node), pointer       :: previous,current

   previous => links%first
   current  => previous%next

   do 
    if( .not. associated (current) )exit
      if( obj < current%v ) exit
        previous => current
        current  => current%next
   end do

   !insert before current 
   allocate(previous%next)       !new node space
   previous%next%v = obj     !new object inserted
   previous%next%next => current !new next pointer
   

print_data()

subroutine linked_list::print_data

(

type(link_list), intent(in)

links

)

Definition at line 192 of file linklist.f90.

   type(link_list), intent(in) :: links
   type(link_node), pointer    :: current
   current => links%first%next
   do
    if(.not. associated(current) ) exit
    call particle_print(current%v)
    current => current%next
   end do

Here is the call graph for this function:

print_id_list()

subroutine linked_list::print_id_list

(

type(link_list), intent(in)

links

)

Definition at line 215 of file linklist.f90.

   type(link_list), intent(in) :: links
   type(link_node), pointer    :: current
   current => links%first%next
   do 
    if(.not. associated(current) ) exit 
    write(*,*)current%v%id 
    current => current%next
   end do

print_list()

subroutine linked_list::print_list

(

type(link_list), intent(in)

links

)

Definition at line 174 of file linklist.f90.

   type(link_list), intent(in) :: links
   type(link_node), pointer    :: current
   logical                     :: headprint
   integer                     :: count
   current => links%first%next
   headprint = .true.
   count = 0
   do 
    if(.not. associated(current) ) exit 
    call screen_write(current%v,headprint)
    current => current%next
    headprint = .false.
    count = count +1
   end do
   write(ipt,*) "! PROC:",myid,"; # of local particles:", count

Here is the call graph for this function:

set_not_found()

subroutine linked_list::set_not_found

(

type(link_list), intent(in)

links

)

Definition at line 254 of file linklist.f90.

    type(link_list), intent(in) :: links
    type(link_node), pointer    :: current
    
   current => links%first%next
   do
    if(.not. associated(current) ) exit
    current%v%found = .false. 
    current => current%next
   end do

shift_pos_list()

subroutine linked_list::shift_pos_list

(

type(link_list), intent(in)

links

)

Definition at line 226 of file linklist.f90.

   type(link_list), intent(in) :: links
   type(link_node), pointer    :: current
   logical                     :: headprint
   current => links%first%next
   headprint = .true.
   do
    if(.not. associated(current) ) exit
    call shift_pos(current%v)
    current => current%next
   end do

Here is the call graph for this function: