5 hdf_idt fid,gid,did,atid;
8 hdf_int32 data[10] = { 1,2,3,4,5,6,7,8,9,10};
9 hdf_int32 attr_val = 2;
11 system("rm titi.HDF");
15 if ((fid = HDFfileCreate("titi.HDF")) < 0)
17 MESSAGE("Creation du fichier")
19 if ((gid = HDFgroupCreate(fid,"GROUP")) < 0)
21 MESSAGE("Creation d'un groupe")
23 if ((atid = HDFattrCreate(gid,"ATTR",HDF_INT32))< 0)
25 MESSAGE("Creation d'un attribut")
27 if ((ret = HDFattrWrite(atid,&attr_val)) < 0)
29 MESSAGE("Ecriture de l'attribut")
31 if ((ret = HDFattrClose(atid)) < 0)
33 MESSAGE("Fermeture de l'attribut")
36 if ((did = HDFdatasetCreate(gid,"DATASET",HDF_INT32,size)) < 0)
38 MESSAGE("Creation d'un dataset")
40 if ((ret = HDFdatasetWrite(did,data)) < 0)
42 MESSAGE("Ecriture du dataset")
44 if ((ret = HDFdatasetClose(did)) < 0)
46 MESSAGE("Fermeture du datset")
48 if ((ret = HDFgroupClose(gid)) < 0)
50 MESSAGE("Fermeture du groupe")
52 if ((ret = HDFfileClose(fid)) < 0)
54 MESSAGE("Fermeture du fichier")
56 if ((fid = HDFfileCreate("toto.HDF")) < 0)
58 MESSAGE("Creation du fichier")
60 if ((ret = HDFfileClose(fid)) < 0)
62 MESSAGE("Fermeture du fichier")