BDI1_INVNT

Invent BinDS data and store in an ADI object

Invocation

CALL BDI1_INVNT( BDID, HFID, ITEM, TYPE, MODE, ITID, NDIM, DIMS,

Description

Services BDI map requests for HDS files. The BDI system ensures that this routine is not called more than once for a given object. So, all the routine does is translate map requests supplying the name of the abstract model quantity, type and mode into calls to map HDS components. The arguments supplied are,

ModelObject, HDSfile, Item, Type, Mode

Mode can be read, write or update. For read and update the object must exist, and for read the data must be valid. In write mode the item need not exist as all valid item dimensions and types can be defaulted using information in the ModelObject.

Arguments

• BDID = INTEGER (given)
  The ADI identifier of the BinDS (or BinDS derived) object
• HFID = INTEGER (given)
  The ADI identifier of the HDS file
• ITEM = CHARACTER*(*) (given)
  The item to be invented
• TYPE = CHARACTER*(*) (given)
  The data type access is required in
• MODE = CHARACTER*(*) (given)
  The access mode
• ITID = INTEGER (rreturned)
  Identifier to the invented item
• NDIM = INTEGER (rreturned)
  Dimensionality of invented data
• DIMS[] = INTEGER (rreturned)
  Dimensions of invented data
• WBPTR = INTEGER (rreturned)
  Address of WriteBack function
• STATUS = INTEGER (given and returned)
  The global status.

References

• BDI Subroutine Guide

BDI1_INVNT_VW2B

Invent axis bounds from centres and optionally widths

Invocation

CALL BDI1_INVNT_VW2B( N, CEN, WOK, WID, BNDS, STATUS )

Description

Arguments

• N = INTEGER (given)
  Number of axis centres/widths/bound pairs
• CEN[*] = REAL (given)
  Axis values
• WOK = LOGICAL (given)
  Widths present?
• WID[*] = REAL (given)
  Axis widths
• BNDS[2,N] = REAL (returned)
  Axis bounds
• STATUS = INTEGER (given and returned)
  The global status.

References

• BDI Subroutine Guide

BDI1_INVNT_V2W

Invent axis widths from axis values

Invocation

CALL BDI1_INVNT_V2W( NVAL, AXVAL, WIDTH, STATUS )

Description

Arguments

• NVAL = INTEGER (given)
  Number of axis widths to invent
• AXVAL(*) = REAL (given)
  Axis values
• WIDTH(*) = REAL (returned)
  Axis widths
• STATUS = INTEGER (given and returned)
  The global status.

References

• BDI Subroutine Guide

BDI1_INVNT_W2HW

Invent axis half-widths from axis widths

Invocation

CALL BDI1_INVNT_W2HW( NVAL, WIDTH, HWIDTH, STATUS )

Description

Arguments

• NVAL = INTEGER (given)
  Number of axis widths to invent
• WIDTH(*) = REAL (given)
  Axis widths
• HWIDTH(*) = REAL (returned)
  Axis widths
• STATUS = INTEGER (given and returned)
  The global status.

References

• BDI Subroutine Guide

BDI1_INVNT_V2LW

Invent axis lower half-widths from axis values

Invocation

CALL BDI1_INVNT_V2LW( NVAL, VALUE, LWIDTH, STATUS )

Description

Arguments

• NVAL = INTEGER (given)
  Number of axis widths to invent
• VALUE(*) = REAL (given)
  Axis values
• LWIDTH(*) = REAL (returned)
  Axis lower half widths
• STATUS = INTEGER (given and returned)
  The global status.

References

• BDI Subroutine Guide

BDI1_INVNT_V2HW

Invent axis upper half-widths from axis values

Invocation

CALL BDI1_INVNT_V2HW( NVAL, VALUE, HWIDTH, STATUS )

Description

Arguments

• NVAL = INTEGER (given)
  Number of axis widths to invent
• VALUE(*) = REAL (given)
  Axis values
• HWIDTH(*) = REAL (returned)
  Axis half widths
• STATUS = INTEGER (given and returned)
  The global status.

References

• BDI Subroutine Guide

BDI1_INVNT_V2ER

Invent errors from REAL variances

Invocation

CALL BDI1_INVNT_V2ER( NVAL, VAR, ERR, STATUS )

Description

Arguments

• NVAL = INTEGER (given)
  Number of axis widths to invent
• VAR(*) = REAL (given)
  Variance values
• ERR(*) = REAL (returned)
  Error values
• STATUS = INTEGER (given and returned)
  The global status.

References

• BDI Subroutine Guide

BDI1_INVNT_V2ED

Invent errors from DOUBLE variances

Invocation

CALL BDI1_INVNT_V2ER( NVAL, VAR, ERR, STATUS )

Description

Arguments

• NVAL = INTEGER (given)
  Number of axis widths to invent
• VAR(*) = DOUBLE PRECISION (given)
  Variance values
• ERR(*) = DOUBLE PRECISION (returned)
  Error values
• STATUS = INTEGER (given and returned)
  The global status.

References

• BDI Subroutine Guide

BDI1_INVNT_BCOP

Convert masked BYTE values to LOGICAL in situ

Invocation

CALL BDI1_INVNT_BCOP( N, BVAL, LVAL, STATUS )

Description

Provides mapping for the 'Error' class member of BinDS derived objects in HDS files. This member is derived from the VARIANCE file object.

Arguments

• N = INTEGER (given)
  Number of values to copy
• BVAL[] = BYTE (given)
  Byte values
• LVAL[] = LOGICAL (rreturned)
  Logical values, true if BVAL is zero, false otherwise
• STATUS = INTEGER (given and returned)
  The global status.

References

• BDI Subroutine Guide