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