1492 real,
INTENT(IN),
OPTIONAL ::
value 1494 if (
present(btable))
then 1495 dbadatar_init%btable=btable
1497 dbadatar_init%btable=cmiss
1500 if (
present(
value))
then 1501 dbadatar_init%value=
value 1503 dbadatar_init%value=rmiss
1506 end function dbadatar_init
1510 type(dbadatad)
elemental function dbadatad_init(btable,value)
1513 double precision,
INTENT(IN),
OPTIONAL ::
value 1515 if (
present(btable))
then 1516 dbadatad_init%btable=btable
1518 dbadatad_init%btable=cmiss
1521 if (
present(
value))
then 1522 dbadatad_init%value=
value 1524 dbadatad_init%value=dmiss
1527 end function dbadatad_init
1532 type(dbadatab)
elemental function dbadatab_init(btable,value)
1535 INTEGER(kind=int_b) ,
INTENT(IN),
OPTIONAL ::
value 1537 if (
present(btable))
then 1538 dbadatab_init%btable=btable
1540 dbadatab_init%btable=cmiss
1543 if (
present(
value))
then 1544 dbadatab_init%value=
value 1546 dbadatab_init%value=bmiss
1549 end function dbadatab_init
1553 type(dbadatac)
elemental function dbadatac_init(btable,value)
1558 if (
present(btable))
then 1559 dbadatac_init%btable=btable
1561 dbadatac_init%btable=cmiss
1564 if (
present(
value))
then 1565 dbadatac_init%value=
value 1567 dbadatac_init%value=cmiss
1570 end function dbadatac_init
1574 subroutine dbadatai_set(data,session)
1576 type(dbasession),
intent(in) :: session
1578 if (.not.
c_e(data%btable))
return 1579 ier = idba_set(session%sehandle,data%btable,data%value)
1580 end subroutine dbadatai_set
1583 subroutine dbadatai_display(data)
1585 print *,
"Btable: ",
t2c(data%btable,miss=
"Missing"),
" Value: ",
t2c(data%value
"Missing value" 1586 end subroutine dbadatai_display
1589 subroutine dbadatar_set(data,session)
1591 type(dbasession),
intent(in) :: session
1593 if (.not.
c_e(data%btable))
return 1594 ier = idba_set(session%sehandle,data%btable,data%value)
1595 end subroutine dbadatar_set
Functions that return a trimmed CHARACTER representation of the input variable.