integer*8 function fdds_lseek8(bin, tag, offset, whence)
"tag" is a field tag which specifies a type of object
offset refers to. E.g. DDS_REAL should be used if
offset is measured in REAL words.
When tag = 0,
the nominal DDS target type (which is a trace) is used.
"offset" is a position measured relative to the whence origin. The offset should be an integer number of tag types.
whence seek origin SEEK_SET beginning of the file SEEK_CUR current file position SEEK_END end of the file
integer bin integer*8 offset ... c skip next 10000000 traces offset = 10000000 j = fdds_lseek8(bin, 0, offset, SEEK_CUR)