1428 integer,
intent(out) ::
value
1430 end subroutine dbadatai_geti
1433 subroutine dbadatar_getr(data,value)
1434 class(dbadatar),
intent(in) :: data
1435 real,
intent(out) ::
value
1437 end subroutine dbadatar_getr
1440 subroutine dbadatad_getd(data,value)
1441 class(dbadatad),
intent(in) :: data
1442 doubleprecision,
intent(out) ::
value
1444 end subroutine dbadatad_getd
1447 subroutine dbadatab_getb(data,value)
1448 class(dbadatab),
intent(in) :: data
1449 integer(kind=int_b),
intent(out) ::
value
1451 end subroutine dbadatab_getb
1454 subroutine dbadatac_getc(data,value)
1455 class(dbadatac),
intent(in) :: data
1456 character(len=*),
intent(out) ::
value
1458 end subroutine dbadatac_getc