1452 subroutine dbadatab_getb(data,value)
1453 class(dbadatab),
intent(in) :: data
1454 integer(kind=int_b),
intent(out) ::
value 1456 end subroutine dbadatab_getb
1459 subroutine dbadatac_getc(data,value)
1460 class(dbadatac),
intent(in) :: data
1461 character(len=*),
intent(out) ::
value 1463 end subroutine dbadatac_getc
1468 type(dbadatai)
elemental function dbadatai_init(btable,value)
1470 character(len=*),
INTENT(IN),
OPTIONAL :: btable
1471 INTEGER,
INTENT(IN),
OPTIONAL ::
value 1473 if (
present(btable))
then 1474 dbadatai_init%btable=btable
1476 dbadatai_init%btable=cmiss
1479 if (
present(
value))
then 1480 dbadatai_init%value=
value 1482 dbadatai_init%value=imiss