209 |
fprintf(fileHandle_p, "object 1 class array type float rank 1 shape %d items %d data follows\n",nDim, mesh_p->Nodes->reducedNumNodes); |
fprintf(fileHandle_p, "object 1 class array type float rank 1 shape %d items %d data follows\n",nDim, mesh_p->Nodes->reducedNumNodes); |
210 |
for (i = 0; i < mesh_p->Nodes->numNodes; i++) { |
for (i = 0; i < mesh_p->Nodes->numNodes; i++) { |
211 |
if (mesh_p->Nodes->toReduced[i]>=0) { |
if (mesh_p->Nodes->toReduced[i]>=0) { |
212 |
for (j = 0; j < nDim; j++) fprintf(fileHandle_p, " %g",mesh_p->Nodes->Coordinates[INDEX2(j, i, nDim)]); |
for (j = 0; j < nDim; j++) fprintf(fileHandle_p, " %g",(float) (mesh_p->Nodes->Coordinates[INDEX2(j, i, nDim)])); |
213 |
fprintf(fileHandle_p, "\n"); |
fprintf(fileHandle_p, "\n"); |
214 |
} |
} |
215 |
} |
} |
245 |
for (k=0;k<nComp;k++) { |
for (k=0;k<nComp;k++) { |
246 |
rtmp=0.; |
rtmp=0.; |
247 |
for (j=0;j<numPointsPerSample;j++) rtmp+=values[INDEX2(k,j,nComp)]; |
for (j=0;j<numPointsPerSample;j++) rtmp+=values[INDEX2(k,j,nComp)]; |
248 |
fprintf(fileHandle_p, " %g", rtmp/numPointsPerSample); |
fprintf(fileHandle_p, " %g", (float)(rtmp/numPointsPerSample)); |
249 |
} |
} |
250 |
fprintf(fileHandle_p, "\n"); |
fprintf(fileHandle_p, "\n"); |
251 |
} |
} |
266 |
values=getSampleData(data_pp[i_data],i); |
values=getSampleData(data_pp[i_data],i); |
267 |
break; |
break; |
268 |
} |
} |
269 |
for (k=0;k<nComp;k++) fprintf(fileHandle_p, " %g", values[k]); |
for (k=0;k<nComp;k++) fprintf(fileHandle_p, " %g", (float)(values[k])); |
270 |
fprintf(fileHandle_p, "\n"); |
fprintf(fileHandle_p, "\n"); |
271 |
} |
} |
272 |
} |
} |