libsim Versione 7.2.4
|
◆ currentdoubleprecision()
get double precision pointed by iterator Definizione alla linea 101 del file list_doubleprecision.F03. 102
120 private
126#ifdef DOXYGEN
127 integer::none ! doxigen workaround: if missed do not show procedure
128#endif
129 contains
130! procedure :: addDoubleprecision !< add doubleprecision in list
131 procedure :: current => currentdoubleprecision
132 procedure :: display => displaydoubleprecision
133! generic :: add => addDoubleprecision
135
136contains
137
139subroutine displaydoubleprecision(this)
140class(doubleprecisionList),intent(inout) :: this
141
142call this%rewind()
143do while(this%element())
144 print *,"index:",this%currentindex()," value:", this%current()
145 call this%next()
146end do
147end subroutine displaydoubleprecision
148
149!!$ subroutine addDoubleprecision(this, value)
150!!$ class(doubleprecisionList) :: this
151!!$ doubleprecision value
152!!$ class(*), allocatable :: v
153!!$
154!!$ allocate(v,source=value)
155!!$ call this%addvalue(v)
156!!$
157!!$ end subroutine addDoubleprecision
158
159
161doubleprecision function currentdoubleprecision(this)
162class(doubleprecisionList) :: this
163class(*), pointer :: v
164
165v => this%currentpoli()
166select type(v)
167type is (doubleprecision)
168 currentdoubleprecision = v
169end select
170end function currentdoubleprecision
171
Double precision specific implementation of doubly-linked list. Definition list_doubleprecision.F03:65 |