libsim  Versione6.3.0

◆ dbadataattr_extrude()

subroutine dballe_class::dbadataattr_extrude ( class(dbadataattr), intent(in)  data,
type(dbasession), intent(in)  session,
logical, intent(in), optional  noattr,
type(dbafilter), intent(in), optional  filter,
logical, intent(in), optional  attronly,
character(len=*), intent(in), optional  template 
)
private

put data on DSN

Parametri
[in]sessiondballe session
[in]noattrset to .true. to put data only (no attribute)
[in]filteruse this to filter wanted data
[in]attronlyset to .true. to put attr only (no data)

Definizione alla linea 1490 del file dballe_class.F03.

1490 
1491 character(len=*),INTENT(IN),OPTIONAL :: btable !< parameter descriptor
1492 real,INTENT(IN),OPTIONAL :: value
1493 
1494 if (present(btable)) then
1495  dbadatar_init%btable=btable
1496 else
1497  dbadatar_init%btable=cmiss
1498 end if
1499 
1500 if (present(value)) then
1501  dbadatar_init%value=value
1502 else
1503  dbadatar_init%value=rmiss
1504 end if
1505 
1506 end function dbadatar_init
1507 
1510 type(dbadatad) elemental function dbadatad_init(btable,value)
1511 
1512 character(len=*),INTENT(IN),OPTIONAL :: btable !< parameter descriptor
1513 double precision,INTENT(IN),OPTIONAL :: value
1514 
1515 if (present(btable)) then
1516  dbadatad_init%btable=btable
1517 else
1518  dbadatad_init%btable=cmiss
1519 end if
1520 
1521 if (present(value)) then
1522  dbadatad_init%value=value
1523 else
1524  dbadatad_init%value=dmiss
1525 end if
1526 
1527 end function dbadatad_init
1528 
1529 
1532 type(dbadatab) elemental function dbadatab_init(btable,value)
1533 
1534 character(len=*),INTENT(IN),OPTIONAL :: btable !< parameter descriptor
1535 INTEGER(kind=int_b) ,INTENT(IN),OPTIONAL :: value
1536 
1537 if (present(btable)) then
1538  dbadatab_init%btable=btable
1539 else
1540  dbadatab_init%btable=cmiss
1541 end if
1542 
1543 if (present(value)) then
1544  dbadatab_init%value=value
1545 else
1546  dbadatab_init%value=bmiss
1547 end if
1548 
1549 end function dbadatab_init
1550 
1553 type(dbadatac) elemental function dbadatac_init(btable,value)
1554 
1555 character(len=*),INTENT(IN),OPTIONAL :: btable !< parameter descriptor
1556 character(len=*),INTENT(IN),OPTIONAL :: value !< value
1557 
1558 if (present(btable)) then
1559  dbadatac_init%btable=btable
1560 else
1561  dbadatac_init%btable=cmiss
1562 end if
1563 
1564 if (present(value)) then
1565  dbadatac_init%value=value
1566 else
1567  dbadatac_init%value=cmiss
1568 end if
1569 
1570 end function dbadatac_init
1571 
1572 
1574 subroutine dbadatai_set(data,session)
1575 class(dbadatai), intent(in) :: data
1576 type(dbasession), intent(in) :: session
1577 integer :: ier
1578 if (.not. c_e(data%btable)) return
1579 ier = idba_set(session%sehandle,data%btable,data%value)
1580 end subroutine dbadatai_set
1581 
1583 subroutine dbadatai_display(data)
1584 class(dbadatai), intent(in) :: data
1585 print *,"Btable: ", t2c(data%btable,miss="Missing")," Value: ", t2c(data%value,miss="Missing value")
1586 end subroutine dbadatai_display
1587 
1589 subroutine dbadatar_set(data,session)
1590 class(dbadatar), intent(in) :: data
1591 type(dbasession), intent(in) :: session
1592 integer :: ier
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.

Generated with Doxygen.