NMD
u7.c
Go to the documentation of this file.
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 }