/*  vg_prac1.c, based on vg_sd1.c.
 *  This program creates an hdf file, creates a vgroup 
 *  and 2 empty SDS.  Add the SDS's into the vgroup.
 *  Close the file.
 */

#include "mfhdf.h"
#include <stdio.h>

main()  
{
   int ret;
   int32 fid, sds_id, sref;
   int32 dims[1];
   int32 vfid, vg_id;  
   dims[0] = 10;

   vfid = Hopen("vg_prac1.hdf", DFACC_CREATE, 0);
   ret = Vstart(vfid);
   fid = SDstart("vg_prac1.hdf", DFACC_WRITE);
   sds_id = SDcreate(fid, "sd1", DFNT_INT32, 1, dims);
   vg_id = Vattach(vfid, -1, "w"); 
   ret = Vsetname(vg_id, "MyVgroup");
   ret = Vsetclass(vg_id, "MyClass");

   sref = SDidtoref(sds_id);
   ret = Vaddtagref(vg_id, DFTAG_NDG, sref); 
   ret = SDendaccess(sds_id);
 
   dims[0] = 12;
   sds_id = SDcreate(fid, "sd2", DFNT_INT32, 1, dims);
   sref = SDidtoref(sds_id);
   ret = Vaddtagref(vg_id, DFTAG_NDG, sref); 
   ret = SDendaccess(sds_id);
   ret = SDend(fid);
   
   ret = Vdetach(vg_id);
   ret = Vend(vfid);
   ret = Hclose(vfid);

}