Actual source code: ex15.c


  2: static char help[] = "Tests VecView() functionality with DMDA objects when using:"\
  3: "(i) a PetscViewer binary with MPI-IO support; and (ii) when the binary header is skipped.\n\n";

  5: #include <petscdm.h>
  6: #include <petscdmda.h>

  8: #define DMDA_I 5
  9: #define DMDA_J 4
 10: #define DMDA_K 6

 12: const PetscReal dmda_i_val[] = { 1.10, 2.3006, 2.32444, 3.44006, 66.9009 };
 13: const PetscReal dmda_j_val[] = { 0.0, 0.25, 0.5, 0.75 };
 14: const PetscReal dmda_k_val[] = { 0.0, 1.1, 2.2, 3.3, 4.4, 5.5 };

 16: PetscErrorCode MyVecDump(const char fname[],PetscBool skippheader,PetscBool usempiio,Vec x)
 17: {
 18:   MPI_Comm       comm;
 19:   PetscViewer    viewer;
 20:   PetscBool      ismpiio,isskip;

 24:   PetscObjectGetComm((PetscObject)x,&comm);

 26:   PetscViewerCreate(comm,&viewer);
 27:   PetscViewerSetType(viewer,PETSCVIEWERBINARY);
 28:   if (skippheader) { PetscViewerBinarySetSkipHeader(viewer,PETSC_TRUE); }
 29:   PetscViewerFileSetMode(viewer,FILE_MODE_WRITE);
 30:   if (usempiio) { PetscViewerBinarySetUseMPIIO(viewer,PETSC_TRUE); }
 31:   PetscViewerFileSetName(viewer,fname);

 33:   VecView(x,viewer);

 35:   PetscViewerBinaryGetUseMPIIO(viewer,&ismpiio);
 36:   if (ismpiio) { PetscPrintf(comm,"*** PetscViewer[write] using MPI-IO ***\n"); }
 37:   PetscViewerBinaryGetSkipHeader(viewer,&isskip);
 38:   if (isskip) { PetscPrintf(comm,"*** PetscViewer[write] skipping header ***\n"); }

 40:   PetscViewerDestroy(&viewer);
 41:   return(0);
 42: }

 44: PetscErrorCode MyVecLoad(const char fname[],PetscBool skippheader,PetscBool usempiio,Vec x)
 45: {
 46:   MPI_Comm       comm;
 47:   PetscViewer    viewer;
 48:   PetscBool      ismpiio,isskip;

 52:   PetscObjectGetComm((PetscObject)x,&comm);

 54:   PetscViewerCreate(comm,&viewer);
 55:   PetscViewerSetType(viewer,PETSCVIEWERBINARY);
 56:   if (skippheader) { PetscViewerBinarySetSkipHeader(viewer,PETSC_TRUE); }
 57:   PetscViewerFileSetMode(viewer,FILE_MODE_READ);
 58:   if (usempiio) { PetscViewerBinarySetUseMPIIO(viewer,PETSC_TRUE); }
 59:   PetscViewerFileSetName(viewer,fname);

 61:   VecLoad(x,viewer);

 63:   PetscViewerBinaryGetSkipHeader(viewer,&isskip);
 64:   if (isskip) { PetscPrintf(comm,"*** PetscViewer[load] skipping header ***\n"); }
 65:   PetscViewerBinaryGetUseMPIIO(viewer,&ismpiio);
 66:   if (ismpiio) { PetscPrintf(comm,"*** PetscViewer[load] using MPI-IO ***\n"); }

 68:   PetscViewerDestroy(&viewer);
 69:   return(0);
 70: }

 72: PetscErrorCode DMDAVecGenerateEntries(DM dm,Vec a)
 73: {
 74:   PetscScalar    ****LA_v;
 75:   PetscInt       i,j,k,l,si,sj,sk,ni,nj,nk,M,N,dof;

 79:   DMDAGetInfo(dm,NULL,&M,&N,NULL,NULL,NULL,NULL,&dof,NULL,NULL,NULL,NULL,NULL);
 80:   DMDAGetCorners(dm,&si,&sj,&sk,&ni,&nj,&nk);
 81:   DMDAVecGetArrayDOF(dm,a,&LA_v);
 82:   for (k=sk; k<sk+nk; k++) {
 83:     for (j=sj; j<sj+nj; j++) {
 84:       for (i=si; i<si+ni; i++) {
 85:         PetscScalar test_value_s;

 87:         test_value_s = dmda_i_val[i]*((PetscScalar)i) + dmda_j_val[j]*((PetscScalar)(i+j*M)) + dmda_k_val[k]*((PetscScalar)(i + j*M + k*M*N));
 88:         for (l=0; l<dof; l++) {
 89:           LA_v[k][j][i][l] = (PetscScalar)dof * test_value_s + (PetscScalar)l;
 90:         }
 91:       }
 92:     }
 93:   }
 94:   DMDAVecRestoreArrayDOF(dm,a,&LA_v);
 95:   return(0);
 96: }

 98: PetscErrorCode HeaderlessBinaryReadCheck(DM dm,const char name[])
 99: {
101:   int            fdes;
102:   PetscScalar    buffer[DMDA_I*DMDA_J*DMDA_K*10];
103:   PetscInt       len,d,i,j,k,M,N,dof;
104:   PetscMPIInt    rank;
105:   PetscBool      dataverified = PETSC_TRUE;

108:   MPI_Comm_rank(PETSC_COMM_WORLD,&rank);
109:   DMDAGetInfo(dm,NULL,&M,&N,NULL,NULL,NULL,NULL,&dof,NULL,NULL,NULL,NULL,NULL);
110:   len = DMDA_I*DMDA_J*DMDA_K*dof;
111:   if (rank == 0) {
112:     PetscBinaryOpen(name,FILE_MODE_READ,&fdes);
113:     PetscBinaryRead(fdes,buffer,len,NULL,PETSC_SCALAR);
114:     PetscBinaryClose(fdes);

116:     for (k=0; k<DMDA_K; k++) {
117:       for (j=0; j<DMDA_J; j++) {
118:         for (i=0; i<DMDA_I; i++) {
119:           for (d=0; d<dof; d++) {
120:             PetscScalar v,test_value_s,test_value;
121:             PetscInt    index;

123:             test_value_s = dmda_i_val[i]*((PetscScalar)i) + dmda_j_val[j]*((PetscScalar)(i+j*M)) + dmda_k_val[k]*((PetscScalar)(i + j*M + k*M*N));
124:             test_value = (PetscScalar)dof * test_value_s + (PetscScalar)d;

126:             index = dof*(i + j*M + k*M*N) + d;
127:             v = PetscAbsScalar(test_value-buffer[index]);
128: #if defined(PETSC_USE_COMPLEX)
129:             if ((PetscRealPart(v) > 1.0e-10) || (PetscImaginaryPart(v) > 1.0e-10)) {
130:               PetscPrintf(PETSC_COMM_SELF,"ERROR: Difference > 1.0e-10 occurred (delta = (%+1.12e,%+1.12e) [loc %D,%D,%D(%D)])\n",(double)PetscRealPart(test_value),(double)PetscImaginaryPart(test_value),i,j,k,d);
131:               dataverified = PETSC_FALSE;
132:             }
133: #else
134:             if (PetscRealPart(v) > 1.0e-10) {
135:               PetscPrintf(PETSC_COMM_SELF,"ERROR: Difference > 1.0e-10 occurred (delta = %+1.12e [loc %D,%D,%D(%D)])\n",(double)PetscRealPart(test_value),i,j,k,d);
136:               dataverified = PETSC_FALSE;
137:             }
138: #endif
139:           }
140:         }
141:       }
142:     }
143:     if (dataverified) {
144:       PetscPrintf(PETSC_COMM_SELF,"Headerless read of data verified for: %s\n",name);
145:     }
146:   }
147:   return(0);
148: }

150: PetscErrorCode VecCompare(Vec a,Vec b)
151: {
152:   PetscInt       locmin[2],locmax[2];
153:   PetscReal      min[2],max[2];
154:   Vec            ref;

158:   VecMin(a,&locmin[0],&min[0]);
159:   VecMax(a,&locmax[0],&max[0]);

161:   VecMin(b,&locmin[1],&min[1]);
162:   VecMax(b,&locmax[1],&max[1]);

164:   PetscPrintf(PETSC_COMM_WORLD,"VecCompare\n");
165:   PetscPrintf(PETSC_COMM_WORLD,"  min(a)   = %+1.2e [loc %D]\n",(double)min[0],locmin[0]);
166:   PetscPrintf(PETSC_COMM_WORLD,"  max(a)   = %+1.2e [loc %D]\n",(double)max[0],locmax[0]);

168:   PetscPrintf(PETSC_COMM_WORLD,"  min(b)   = %+1.2e [loc %D]\n",(double)min[1],locmin[1]);
169:   PetscPrintf(PETSC_COMM_WORLD,"  max(b)   = %+1.2e [loc %D]\n",(double)max[1],locmax[1]);

171:   VecDuplicate(a,&ref);
172:   VecCopy(a,ref);
173:   VecAXPY(ref,-1.0,b);
174:   VecMin(ref,&locmin[0],&min[0]);
175:   if (PetscAbsReal(min[0]) > 1.0e-10) {
176:     PetscPrintf(PETSC_COMM_WORLD,"  ERROR: min(a-b) > 1.0e-10\n");
177:     PetscPrintf(PETSC_COMM_WORLD,"  min(a-b) = %+1.10e\n",(double)PetscAbsReal(min[0]));
178:   } else {
179:     PetscPrintf(PETSC_COMM_WORLD,"  min(a-b) < 1.0e-10\n");
180:   }
181:   VecDestroy(&ref);
182:   return(0);
183: }

185: PetscErrorCode TestDMDAVec(PetscBool usempiio)
186: {
187:   DM             dm;
188:   Vec            x_ref,x_test;
189:   PetscBool      skipheader = PETSC_TRUE;

193:   if (!usempiio) { PetscPrintf(PETSC_COMM_WORLD,"%s\n",PETSC_FUNCTION_NAME); }
194:   else { PetscPrintf(PETSC_COMM_WORLD,"%s [using mpi-io]\n",PETSC_FUNCTION_NAME); }
195:   DMDACreate3d(PETSC_COMM_WORLD,DM_BOUNDARY_NONE,DM_BOUNDARY_NONE,DM_BOUNDARY_NONE,DMDA_STENCIL_BOX,DMDA_I,DMDA_J,DMDA_K,PETSC_DECIDE,PETSC_DECIDE,PETSC_DECIDE,
196:                         3,2,NULL,NULL,NULL,&dm);
197:   DMSetFromOptions(dm);
198:   DMSetUp(dm);

200:   DMCreateGlobalVector(dm,&x_ref);
201:   DMDAVecGenerateEntries(dm,x_ref);

203:   if (!usempiio) {
204:     MyVecDump("dmda.pbvec",skipheader,PETSC_FALSE,x_ref);
205:   } else {
206:     MyVecDump("dmda-mpiio.pbvec",skipheader,PETSC_TRUE,x_ref);
207:   }

209:   DMCreateGlobalVector(dm,&x_test);

211:   if (!usempiio) {
212:     MyVecLoad("dmda.pbvec",skipheader,usempiio,x_test);
213:   } else {
214:     MyVecLoad("dmda-mpiio.pbvec",skipheader,usempiio,x_test);
215:   }

217:   VecCompare(x_ref,x_test);

219:   if (!usempiio) {
220:     HeaderlessBinaryReadCheck(dm,"dmda.pbvec");
221:   } else {
222:     HeaderlessBinaryReadCheck(dm,"dmda-mpiio.pbvec");
223:   }
224:   VecDestroy(&x_ref);
225:   VecDestroy(&x_test);
226:   DMDestroy(&dm);
227:   return(0);
228: }

230: int main(int argc,char **args)
231: {
233:   PetscBool      usempiio = PETSC_FALSE;

235:   PetscInitialize(&argc,&args,(char*)0,help);if (ierr) return ierr;
236:   PetscOptionsGetBool(NULL,NULL,"-usempiio",&usempiio,NULL);
237:   if (!usempiio) {
238:     TestDMDAVec(PETSC_FALSE);
239:   } else {
240: #if defined(PETSC_HAVE_MPIIO)
241:     TestDMDAVec(PETSC_TRUE);
242: #else
243:     PetscPrintf(PETSC_COMM_WORLD,"Warning: Executing TestDMDAVec(PETSC_TRUE) requires a working MPI-2 implementation\n");
244: #endif
245:   }
246:   PetscFinalize();
247:   return ierr;
248: }

250: /*TEST

252:    test:

254:    test:
255:       suffix: 2
256:       nsize: 12

258:    test:
259:       suffix: 3
260:       nsize: 12
261:       requires: defined(PETSC_HAVE_MPIIO)
262:       args: -usempiio

264: TEST*/