1466 INTEGER,
INTENT(IN),
OPTIONAL ::
value
1468 if (
present(btable))
then
1469 dbadatai_init%btable=btable
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