NMD
|
00001 #include <stdlib.h> 00002 #include "nmd.h" 00003 00004 /*! Test setting and getting of scalar values */ 00005 int main(int argc,char **argv) { 00006 NMD_metadata nmd,nmd2; NMDErrorCode ierr; 00007 NMDTruth flg; int i; 00008 PetscFunctionBegin; 00009 PetscInitialize(&argc,&argv,0,0); 00010 00011 ierr = NMDCreateObject(&nmd); NMD_ERR_RETURN(ierr); 00012 ierr = NMDCreateObject(&nmd2); 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 ierr = NMDGetValue 00029 (nmd2,"cat1","cmp-ii",NULL,(void*)&i,&flg); NMD_ERR_RETURN(ierr); 00030 if (flg) 00031 NMD_ERR_REPORT("This should not happen2"); 00032 00033 ierr = NMDDestroyObject(nmd); NMD_ERR_RETURN(ierr); 00034 ierr = NMDDestroyObject(nmd2); NMD_ERR_RETURN(ierr); 00035 00036 PetscFinalize(); 00037 PetscFunctionReturn(0); 00038 }