int32 vgroup_id; /* pointer to an attached vgroup */ int32 npairs, status; int32 *tags, *refs; npairs = Vntagrefs(vgroup_id); tags = (int32*) malloc (sizeof(int32) * npairs); refs = (int32*) malloc (sizeof(int32) * npairs); status = Vgettagrefs(vgroup_id, tags, refs, npairs);
FORTRAN
|
integer function vfgttrs(vgroup_id, tag_array, ref_array, maxsize)
|
|
integer vgroup_id, maxsize
|
|
integer tag_array(*), ref_array(*)
|