libsim Versione 7.2.1
|
◆ dbadataattrv_extrude()
put data on DSN
Definizione alla linea 1581 del file dballe_class.F03. 1582
1584subroutine dbadatar_set(data,session)
1585class(dbadatar), intent(in) :: data
1586type(dbasession), intent(in) :: session
1587integer :: ier
1588if (.not. c_e(data%btable)) return
1589ier = idba_set(session%sehandle,data%btable,data%value)
1590end subroutine dbadatar_set
1591
1593subroutine dbadatar_display(data)
1594class(dbadatar), intent(in) :: data
1595print *,"Btable: ", t2c(data%btable,miss="Missing")," Value: ", t2c(data%value,miss="Missing value")
1596end subroutine dbadatar_display
1597
1598
|