#include "hdf.h" int32 gr_id, ri_id, file_id, stat; char *name = "Image name"; int32 ncomp = 2; int32 interlace_mode = MFGR_INTERLACE_PIXEL; int32 data_type = DFNT_UINT16; file_id = Hopen("myfile", DFACC_WRITE, 0); gr_id = GRstart(file_id); ri_id = GRcreate(gr_id, name, ncomp, data_type, interlace_mode, dim_sizes); ... stat = GRendaccess(ri_id); stat = GRend(gr_id); Hclose(file_id);
FORTRAN
|
integer function mgcreat(gr_id, name, ncomp, data_type, interlace_mode, dim_sizes)
|
|
integer gr_id, data_type, interlace_mode, dim_sizes(2)
|
|
character* (*) name
|