OMFget_real8_val

Synopsis

INTEGER FUNCTION OMFget_real8_val(object_id,
. dval)
#include <avs/omf.inc>
INTEGER object_id(OIDSIZ)
DOUBLE PRECISION dval

Description

For a complete description of this function, see OMset_real_val .

Arguments

object_id

The id of an object, expressed as an integer.

dval

The object's value, expressed in double precision.

Returned value

The status code (see OMset_real_val).

Examples

#include <avs/omf.inc>
INTEGER parent_object(OIDSIZ), fval_id(OIDSIZ)
DOUBLE PRECISION value
...
IF (OMFfind_subobj(parent_object,
. _OMstr_to_name('fval'),
. OM_OBJ_RD,
. _fval_id) .NE. 1)
. PRINT*,'Error searching for value'
C
value = 0.75
IF (OMFset_int_val(fval_id,value) .NE. 1)
. PRINT*,'Error setting value of object fval'

See Also

OMFget_real8_val