libsim  Versione 7.1.8

◆ 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 1465 del file dballe_class.F03.

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

Generated with Doxygen.