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
1463 type(dbadatai)
elemental function dbadatai_init(btable,value)