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 .
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 ).
Example
#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
Related module: