integer fdds_genus(field_genus, bin_tag, field_tag)
field_tag is the tag of the field for which the information is desired.
integer bin, tag, ier
character*(DEFNNAME_MAX) name, genus
...
! scan trace headers
tag = fdds_member(bin, 0, ' ')
dowhile (tag.ne.0)
ier = fdds_name(name, bin, tag)
ier = fdds_genus(genus, bin, tag)
...
tag = fdds_next(bin,tag)
enddo
fdds_name Fetch field name
fdds_prec Fetch field precision
fdds_align Fetch field alignment
fdds_count Fetch field count