NMD
|
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 }