libsim Versione 7.1.11
|
◆ displaydoubleprecision()
Print the double precision list. Definizione alla linea 79 del file list_doubleprecision.F03. 80
98 private
104#ifdef DOXYGEN
105 integer::none ! doxigen workaround: if missed do not show procedure
106#endif
107 contains
108! procedure :: addDoubleprecision !< add doubleprecision in list
109 procedure :: current => currentdoubleprecision
110 procedure :: display => displaydoubleprecision
111! generic :: add => addDoubleprecision
113
114contains
115
117subroutine displaydoubleprecision(this)
118class(doubleprecisionList),intent(inout) :: this
119
120call this%rewind()
121do while(this%element())
122 print *,"index:",this%currentindex()," value:", this%current()
123 call this%next()
124end do
125end subroutine displaydoubleprecision
126
127!!$ subroutine addDoubleprecision(this, value)
128!!$ class(doubleprecisionList) :: this
129!!$ doubleprecision value
130!!$ class(*), allocatable :: v
131!!$
132!!$ allocate(v,source=value)
133!!$ call this%addvalue(v)
134!!$
135!!$ end subroutine addDoubleprecision
136
137
139doubleprecision function currentdoubleprecision(this)
140class(doubleprecisionList) :: this
141class(*), pointer :: v
142
143v => this%currentpoli()
144select type(v)
145type is (doubleprecision)
146 currentdoubleprecision = v
147end select
148end function currentdoubleprecision
149
Double precision specific implementation of doubly-linked list. Definition: list_doubleprecision.F03:65 |