libsim Versione 7.2.0
list_real.F03
1
17module list_real
19 private
20 public :: reallist
24 type, extends(list) :: reallist
25#ifdef DOXYGEN
26 integer::none ! doxigen workaround: if missed do not show procedure
27#endif
28 contains
29! procedure :: addReal !< add real in list
30 procedure :: current => currentreal
31 procedure :: display => displayreal
32! generic :: add => addReal
33 end type reallist
34
35contains
36
38subroutine displayreal(this)
39class(realList),intent(inout) :: this
40
41call this%rewind()
42do while(this%element())
43 print *,"index:",this%currentindex()," value:", this%current()
44 call this%next()
45end do
46end subroutine displayreal
47
48!!$ subroutine addReal(this, value)
49!!$ class(realList) :: this
50!!$ real value
51!!$ class(*), allocatable :: v
52!!$
53!!$ allocate(v,source=value)
54!!$ call this%addvalue(v)
55!!$
56!!$ end subroutine addReal
57
60real function currentreal(this)
61class(realList) :: this
62class(*), pointer :: v
63
64v => this%currentpoli()
65select type(v)
66type is (real)
67 currentreal = v
68end select
69end function currentreal
70
71end module list_real
abstract class to use lists in fortran 2003.
class to use lists in fortran 2003.
Definition: list_real.F03:58
Abstract implementation of doubly-linked list.
Real specific implementation of doubly-linked list.
Definition: list_real.F03:65

Generated with Doxygen.