libsim Versione 7.2.6
|
◆ dbametaanddatal_extrude()
put data on DSN; extrude metaanddata list
Definizione alla linea 2757 del file dballe_class.F03. 2758 call element%display()
2759 call this%next()
2760end do
2761end subroutine displaydbametaanddatad
2762
2763!> Get dbametaanddatad pointed by iterator
2764type(dbametaanddatad) function currentdbametaanddatad(this)
2765class(dbametaanddatadList) :: this
2766class(*), pointer :: v
2767
2768v => this%currentpoli()
2769select type(v)
2770type is (dbametaanddatad)
2771 currentdbametaanddatad = v
2772end select
2773end function currentdbametaanddatad
|