libsim Versione 7.2.1

◆ dbadataattr_extrude()

subroutine 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 1459 del file dballe_class.F03.

1460
1463type(dbadatai) elemental function dbadatai_init(btable,value)
1464
1465character(len=*),INTENT(IN),OPTIONAL :: btable
1466INTEGER,INTENT(IN),OPTIONAL :: value
1467
1468if (present(btable)) then
1469 dbadatai_init%btable=btable
1470else
1471 dbadatai_init%btable=cmiss
1472end if
1473
1474if (present(value)) then
1475 dbadatai_init%value=value
1476else
1477 dbadatai_init%value=imiss
1478end if
1479
1480end function dbadatai_init
1481
1484type(dbadatar) elemental function dbadatar_init(btable,value)
1485
1486character(len=*),INTENT(IN),OPTIONAL :: btable
1487real,INTENT(IN),OPTIONAL :: value
1488
1489if (present(btable)) then
1490 dbadatar_init%btable=btable
1491else
1492 dbadatar_init%btable=cmiss
1493end if
1494
1495if (present(value)) then
1496 dbadatar_init%value=value
1497else
1498 dbadatar_init%value=rmiss
1499end if
1500
1501end function dbadatar_init
1502
1505type(dbadatad) elemental function dbadatad_init(btable,value)
1506
1507character(len=*),INTENT(IN),OPTIONAL :: btable
1508double precision,INTENT(IN),OPTIONAL :: value
1509
1510if (present(btable)) then
1511 dbadatad_init%btable=btable
1512else
1513 dbadatad_init%btable=cmiss
1514end if
1515
1516if (present(value)) then
1517 dbadatad_init%value=value
1518else
1519 dbadatad_init%value=dmiss
1520end if
1521
1522end function dbadatad_init
1523
1524
1527type(dbadatab) elemental function dbadatab_init(btable,value)
1528
1529character(len=*),INTENT(IN),OPTIONAL :: btable
1530INTEGER(kind=int_b) ,INTENT(IN),OPTIONAL :: value
1531
1532if (present(btable)) then
1533 dbadatab_init%btable=btable
1534else
1535 dbadatab_init%btable=cmiss
1536end if
1537
1538if (present(value)) then
1539 dbadatab_init%value=value
1540else
1541 dbadatab_init%value=bmiss
1542end if
1543
1544end function dbadatab_init
1545
1548type(dbadatac) elemental function dbadatac_init(btable,value)
1549
1550character(len=*),INTENT(IN),OPTIONAL :: btable
1551character(len=*),INTENT(IN),OPTIONAL :: value
1552
1553if (present(btable)) then
1554 dbadatac_init%btable=btable
1555else
1556 dbadatac_init%btable=cmiss
1557end if
1558
1559if (present(value)) then
1560 dbadatac_init%value=value
1561else
1562 dbadatac_init%value=cmiss
1563end if
1564
1565end function dbadatac_init

Generated with Doxygen.