1471 dbadatai_init%btable=cmiss
1474 if (
present(
value))
then 1475 dbadatai_init%value=
value 1477 dbadatai_init%value=imiss
1480 end function dbadatai_init
1484 type(dbadatar)
elemental function dbadatar_init(btable,value)
1486 character(len=*),
INTENT(IN),
OPTIONAL :: btable
1487 real,
INTENT(IN),
OPTIONAL ::
value 1489 if (
present(btable))
then 1490 dbadatar_init%btable=btable
1492 dbadatar_init%btable=cmiss
1495 if (
present(
value))
then 1496 dbadatar_init%value=
value 1498 dbadatar_init%value=rmiss
1501 end function dbadatar_init
1505 type(dbadatad)
elemental function dbadatad_init(btable,value)
1507 character(len=*),
INTENT(IN),
OPTIONAL :: btable
1508 double precision,
INTENT(IN),
OPTIONAL ::
value 1510 if (
present(btable))
then 1511 dbadatad_init%btable=btable
1513 dbadatad_init%btable=cmiss
1516 if (
present(
value))
then 1517 dbadatad_init%value=
value 1519 dbadatad_init%value=dmiss
1522 end function dbadatad_init
1527 type(dbadatab)
elemental function dbadatab_init(btable,value)
1529 character(len=*),
INTENT(IN),
OPTIONAL :: btable
1530 INTEGER(kind=int_b) ,
INTENT(IN),
OPTIONAL ::
value 1532 if (
present(btable))
then 1533 dbadatab_init%btable=btable
1535 dbadatab_init%btable=cmiss
1538 if (
present(
value))
then 1539 dbadatab_init%value=
value 1541 dbadatab_init%value=bmiss
1544 end function dbadatab_init
1548 type(dbadatac)
elemental function dbadatac_init(btable,value)
1550 character(len=*),
INTENT(IN),
OPTIONAL :: btable
1551 character(len=*),
INTENT(IN),
OPTIONAL ::
value 1553 if (
present(btable))
then 1554 dbadatac_init%btable=btable
1556 dbadatac_init%btable=cmiss
1559 if (
present(
value))
then 1560 dbadatac_init%value=
value 1562 dbadatac_init%value=cmiss
1565 end function dbadatac_init
1569 subroutine dbadatai_set(data,session)
1570 class(dbadatai),
intent(in) :: data
1571 type(dbasession),
intent(in) :: session
1573 if (.not. c_e(data%btable))
return 1574 ier = idba_set(session%sehandle,data%btable,data%value)
1575 end subroutine dbadatai_set