29 procedure :: current => currentmix
30 procedure :: display => displaymix
36 subroutine displaymix(this)
37 class(mixList),
intent(inout) :: this
38 class(*),
pointer :: curr
42 do while(this%element())
43 curr => this%Currentpoli()
52 type is (doubleprecision)
55 type is (
integer(kind=int_b))
58 type is (
character(*))
64 print *,
"not supported type for display"
70 end subroutine displaymix
74 function currentmix(this)
75 class(
mixlist),
intent(inout) :: this
76 class(*),
pointer :: currentmix
77 currentmix => this%currentpoli()
78 end function currentmix
Definition of constants to be used for declaring variables of a desired type.
abstract class to use lists in fortran 2003.
class to use lists in fortran 2003.
Abstract implementation of doubly-linked list.
Non type specific implementation of doubly-linked list.