---

C Library Functions  - list_put (3)

---

NAME

list_put(3f) - [M_generic_list] Store the encoded DATA in list node SELF (LICENSE:MIT)

CONTENTS

Synopsis
Description
Author
See Also
Example

SYNOPSIS

subroutine list_put(self, data)

    type(list_node_t), pointer :: self
    integer, dimension(:), intent(in) :: data

DESCRIPTION

AUTHOR

Fortran 95 Implementation by:

    JASON R. BLEVINS
    Department of Economics, Duke University
    May 18,2009

SEE ALSO

M_generic_list(3fm), list_init(3f), list_free(3f) list_insert(3f), list_get(3f), list_next(3f)

EXAMPLE

Sample program:

   ! program demo_list_put and module
   module data5
   implicit none

   private
   public :: data_t
   public :: data_ptr

   ! Data is stored in data_t
   type :: data_t
      real :: x
   end type data_t

   ! A container for storing data_t pointers
   type :: data_ptr
      type(data_t), pointer :: p
   end type data_ptr

   end module data5

   program demo_list_put
   use M_generic_list
   use data5
   implicit none

   type(list_node_t), pointer :: list => null()
   type(data_ptr) :: ptr

      ! Allocate a new data element
      allocate(ptr%p)
      ptr%p%x = 2.7183

      ! Initialize the list with the first data element
      call list_init(list, transfer(ptr, list_data))
      print *,"Initializing list with data:", ptr%p

      ! Allocate a second data element
      allocate(ptr%p)
      ptr%p%x = 0.5772

      ! Insert the second into the list
      call list_insert(list, transfer(ptr, list_data))
      print *,"Inserting node with data:", ptr%p

      ! Retrieve data from the second node and free memory
      ptr = transfer(list_get(list_next(list)), ptr)
      print *,"Second node data:", ptr%p
      deallocate(ptr%p)

      ! Retrieve data from the head node and free memory
      ptr = transfer(list_get(list), ptr)
      print *,"Head node data:", ptr%p
      deallocate(ptr%p)

      ! Free the list
      call list_free(list)
   end program demo_list_put

   !  The test program produces the following output:
   !
   !   Initializing list with data:    2.7183001
   !   Inserting node with data: 0.57720000
   !   Second node data: 0.57720000
   !   Head node data:   2.7183001

---

Nemo Release 3.1

list_put (3)

July 22, 2023

Generated by manServer 1.08 from 34aadd9a-ff34-4246-9130-c325d01f8181 using man macros.