int32 vgroup_id; /* pointer to an attached vgroup */ int32 tag, ref; int32 status, i, npairs; npairs = Vntagrefs(vgroup_id); for (i=0; i < npairs; i++) { status = Vgettagref (vgroup_id, i, &tag, &ref); printf ("found tag=%d ref=%d at position %d\n", tag, ref, i); }
FORTRAN
|
integer function vfgttr(vgroup_id, index, tag, ref)
|
|
integer vgroup_id, index
|
|
integer tag, ref
|