fdds_next - fetch a field tag within a DDS structure

SYNOPSIS

#include <fdds.h> (fixed-format sources)
#include <f90dds.h> (free-format sources)

integer fdds_next(bin_tag, field_tag)

integer bin_tag
integer field_tag

DESCRIPTION

fdds_next returns the tag associated with the field of the next member or object from the member or object defined by field_tag within the current structure.

INPUT

bin_tag is the tag associated with an open binary, previously obtained from fdds_open. It specifies a particular binary stream.

field_tag is the tag associated with a particular field known by bin_tag. A value of "0" always refers to the entire trace field.

field_name is a string that names a member or object field within field_tag. If field_name is zero length or blank, the returned tag defaults to the first member or object in the structure, field_tag.

OUTPUT

The return value is the field tag associate with the next object; a return value of -1 indicates field_tag is the last member or object in the current structure.

EXAMPLE

      integer bin
      integer tag,ptag
      integer ndx,rec,ibuf(1)
      ...
      tag=fdds_member(bin,0,'RecNum')
      ndx=1+fdds_index(bin,tag,DDS_INTEGER)
      rec=ibuf(ndx)
      ...
!     find all trace header tags  
      tag=fdds_member(bin,0,' ')
      dowhile (tag.ge.0)
         ptag=fdds_prime(bin,tag)
         ...
        tag=fdds_next(bin,tag)
      enddo

SEE ALSO

fdds_member  Fetch field tag
fdds_object  Fetch object tag
fdds_prev Fetch previous field tag
fdds_parent Fetch parent field tag
fdds_prime  Fetch field prime tag

AUTHOR

Jerry Ehlers, BP America (May 2003)