libsim Versione 7.2.1
|
◆ forward()
reset list iterator to end Definizione alla linea 256 del file list_abstract.F03. 257
258function currentpoli(this)
259class(list),intent(in) :: this
260class(*), pointer :: Currentpoli
261class(*), pointer :: l_p
262l_p => this%currLink%getValue()
263currentpoli => l_p
|