24 type,public,extends(list) ::
mixlist
29 procedure :: current => currentmix
30 procedure ::
display => displaymix
36 subroutine displaymix(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)
76 class(*),
pointer :: currentmix
77 currentmix => this%currentpoli()
78 end function currentmix
abstract class to use lists in fortran 2003.
Definition of constants to be used for declaring variables of a desired type.
class to use lists in fortran 2003.
Non type specific implementation of doubly-linked list.