00001 #include <stdlib.h>
00002 #include "nmd.h"
00003
00004
00005 int main(int argc,char **argv) {
00006 NMD_metadata nmd; NMDErrorCode ierr;
00007 NMDTruth flg; int i; double r;
00008 PetscFunctionBegin;
00009 PetscInitialize(&argc,&argv,0,0);
00010
00011 ierr = NMDCreateObject(&nmd); NMD_ERR_RETURN(ierr);
00012
00013 i = 5;
00014 ierr = NMDSetValue(nmd,"cat1","cmp-i",NMDInt,&i); NMD_ERR_RETURN(ierr);
00015 i = 6;
00016 ierr = NMDSetValue(nmd,"cat1","cmp-ii",NMDInt,&i); NMD_ERR_RETURN(ierr);
00017
00018 i = 27;
00019 ierr = NMDGetValue
00020 (nmd,"cat1","cmp-ii",NULL,(void*)&i,&flg); NMD_ERR_RETURN(ierr);
00021 if (!flg || i!=6)
00022 NMD_ERR_REPORT("Trouble retrieving cmp-ii");
00023 ierr = NMDGetValue
00024 (nmd,"cat2","cmp-ii",NULL,(void*)&i,&flg); NMD_ERR_RETURN(ierr);
00025 if (flg)
00026 NMD_ERR_REPORT("This should not happen1");
00027
00028 r = 4.17;
00029 ierr = NMDSetValue(nmd,"cat2","cmp-i",NMDReal,&r); NMD_ERR_RETURN(ierr);
00030
00031 ierr = NMDObjectDumpToHDF5(nmd,"u17.h5"); NMD_ERR_RETURN(ierr);
00032
00033 ierr = NMDDestroyObject(nmd); NMD_ERR_RETURN(ierr);
00034
00035 PetscFinalize();
00036 PetscFunctionReturn(0);
00037 }