Lines Matching refs:exo
39 PetscViewer_ExodusII *exo = (PetscViewer_ExodusII *)v->data; in PetscViewerView_ExodusII() local
42 if (exo->filename) PetscCall(PetscViewerASCIIPrintf(viewer, "Filename: %s\n", exo->filename)); in PetscViewerView_ExodusII()
43 …if (exo->exoid) PetscCall(PetscViewerASCIIPrintf(viewer, "exoid: %" PetscExodusIIInt_FMT "\n… in PetscViewerView_ExodusII()
44 if (exo->btype) PetscCall(PetscViewerASCIIPrintf(viewer, "IO Mode: %d\n", exo->btype)); in PetscViewerView_ExodusII()
45 …if (exo->order) PetscCall(PetscViewerASCIIPrintf(viewer, "Mesh order: %" PetscInt_FMT "\n", exo->… in PetscViewerView_ExodusII()
46 …IPrintf(viewer, "Number of nodal variables: %" PetscExodusIIInt_FMT "\n", exo->numNodalVariables)… in PetscViewerView_ExodusII()
47 …for (int i = 0; i < exo->numNodalVariables; i++) PetscCall(PetscViewerASCIIPrintf(viewer, " %d: … in PetscViewerView_ExodusII()
48 …IPrintf(viewer, "Number of zonal variables: %" PetscExodusIIInt_FMT "\n", exo->numZonalVariables)… in PetscViewerView_ExodusII()
49 …for (int i = 0; i < exo->numZonalVariables; i++) PetscCall(PetscViewerASCIIPrintf(viewer, " %d: … in PetscViewerView_ExodusII()
55 PetscViewer_ExodusII *exo = (PetscViewer_ExodusII *)v->data; in PetscViewerFlush_ExodusII() local
58 if (exo->exoid >= 0) PetscCallExternal(ex_update, exo->exoid); in PetscViewerFlush_ExodusII()
72 PetscViewer_ExodusII *exo = (PetscViewer_ExodusII *)viewer->data; in PetscViewerDestroy_ExodusII() local
75 if (exo->exoid >= 0) PetscCallExternal(ex_close, exo->exoid); in PetscViewerDestroy_ExodusII()
76 …for (PetscInt i = 0; i < exo->numZonalVariables; i++) PetscCall(PetscFree(exo->zonalVariableNames[… in PetscViewerDestroy_ExodusII()
77 PetscCall(PetscFree(exo->zonalVariableNames)); in PetscViewerDestroy_ExodusII()
78 …for (PetscInt i = 0; i < exo->numNodalVariables; i++) PetscCall(PetscFree(exo->nodalVariableNames[… in PetscViewerDestroy_ExodusII()
79 PetscCall(PetscFree(exo->nodalVariableNames)); in PetscViewerDestroy_ExodusII()
80 PetscCall(PetscFree(exo->filename)); in PetscViewerDestroy_ExodusII()
81 PetscCall(PetscFree(exo)); in PetscViewerDestroy_ExodusII()
94 PetscViewer_ExodusII *exo = (PetscViewer_ExodusII *)viewer->data; in PetscViewerFileSetName_ExodusII() local
105 if (exo->exoid >= 0) { in PetscViewerFileSetName_ExodusII()
106 PetscCallExternal(ex_close, exo->exoid); in PetscViewerFileSetName_ExodusII()
107 exo->exoid = -1; in PetscViewerFileSetName_ExodusII()
109 if (exo->filename) PetscCall(PetscFree(exo->filename)); in PetscViewerFileSetName_ExodusII()
110 PetscCall(PetscStrallocpy(name, &exo->filename)); in PetscViewerFileSetName_ExodusII()
111 switch (exo->btype) { in PetscViewerFileSetName_ExodusII()
133 …exo->exoid = ex_open_par(name, EXO_mode, &CPU_word_size, &IO_word_size, &EXO_version, PETSC_COMM_W… in PetscViewerFileSetName_ExodusII()
134 PetscCheck(exo->exoid >= 0, PETSC_COMM_SELF, PETSC_ERR_LIB, "ex_open_par failed for %s", name); in PetscViewerFileSetName_ExodusII()
140 PetscViewer_ExodusII *exo = (PetscViewer_ExodusII *)viewer->data; in PetscViewerFileGetName_ExodusII() local
143 *name = exo->filename; in PetscViewerFileGetName_ExodusII()
149 PetscViewer_ExodusII *exo = (PetscViewer_ExodusII *)viewer->data; in PetscViewerFileSetMode_ExodusII() local
152 exo->btype = type; in PetscViewerFileSetMode_ExodusII()
158 PetscViewer_ExodusII *exo = (PetscViewer_ExodusII *)viewer->data; in PetscViewerFileGetMode_ExodusII() local
161 *type = exo->btype; in PetscViewerFileGetMode_ExodusII()
167 PetscViewer_ExodusII *exo = (PetscViewer_ExodusII *)viewer->data; in PetscViewerExodusIIGetId_ExodusII() local
170 *exoid = exo->exoid; in PetscViewerExodusIIGetId_ExodusII()
176 PetscViewer_ExodusII *exo = (PetscViewer_ExodusII *)viewer->data; in PetscViewerExodusIIGetOrder_ExodusII() local
179 *order = exo->order; in PetscViewerExodusIIGetOrder_ExodusII()
185 PetscViewer_ExodusII *exo = (PetscViewer_ExodusII *)viewer->data; in PetscViewerExodusIISetOrder_ExodusII() local
188 exo->order = order; in PetscViewerExodusIISetOrder_ExodusII()
211 PetscViewer_ExodusII *exo = (PetscViewer_ExodusII *)viewer->data; in PetscViewerExodusIISetZonalVariable() local
217 …Check(exo->numZonalVariables == -1, comm, PETSC_ERR_SUP, "The number of zonal variables has alread… in PetscViewerExodusIISetZonalVariable()
218 …PetscCheck((exo->btype != FILE_MODE_READ) && (exo->btype != FILE_MODE_UNDEFINED), comm, PETSC_ERR_… in PetscViewerExodusIISetZonalVariable()
220 exo->numZonalVariables = num; in PetscViewerExodusIISetZonalVariable()
221 PetscCall(PetscMalloc1(num, &exo->zonalVariableNames)); in PetscViewerExodusIISetZonalVariable()
222 for (int i = 0; i < num; i++) exo->zonalVariableNames[i] = NULL; in PetscViewerExodusIISetZonalVariable()
247 PetscViewer_ExodusII *exo = (PetscViewer_ExodusII *)viewer->data; in PetscViewerExodusIISetNodalVariable() local
253 …Check(exo->numNodalVariables == -1, comm, PETSC_ERR_SUP, "The number of nodal variables has alread… in PetscViewerExodusIISetNodalVariable()
254 …PetscCheck((exo->btype != FILE_MODE_READ) && (exo->btype != FILE_MODE_UNDEFINED), comm, PETSC_ERR_… in PetscViewerExodusIISetNodalVariable()
256 exo->numNodalVariables = num; in PetscViewerExodusIISetNodalVariable()
257 PetscCall(PetscMalloc1(num, &exo->nodalVariableNames)); in PetscViewerExodusIISetNodalVariable()
258 for (int i = 0; i < num; i++) exo->nodalVariableNames[i] = NULL; in PetscViewerExodusIISetNodalVariable()
284 PetscViewer_ExodusII *exo = (PetscViewer_ExodusII *)viewer->data; in PetscViewerExodusIIGetZonalVariable() local
289 if (exo->numZonalVariables > -1) { in PetscViewerExodusIIGetZonalVariable()
290 *num = exo->numZonalVariables; in PetscViewerExodusIIGetZonalVariable()
296 exo->numZonalVariables = *num; in PetscViewerExodusIIGetZonalVariable()
297 PetscCall(PetscMalloc1(*num, &exo->zonalVariableNames)); in PetscViewerExodusIIGetZonalVariable()
298 for (int i = 0; i < *num; i++) exo->zonalVariableNames[i] = NULL; in PetscViewerExodusIIGetZonalVariable()
323 PetscViewer_ExodusII *exo = (PetscViewer_ExodusII *)viewer->data; in PetscViewerExodusIIGetNodalVariable() local
328 if (exo->numNodalVariables > -1) { in PetscViewerExodusIIGetNodalVariable()
329 *num = exo->numNodalVariables; in PetscViewerExodusIIGetNodalVariable()
335 exo->numNodalVariables = *num; in PetscViewerExodusIIGetNodalVariable()
336 PetscCall(PetscMalloc1(*num, &exo->nodalVariableNames)); in PetscViewerExodusIIGetNodalVariable()
337 for (int i = 0; i < *num; i++) exo->nodalVariableNames[i] = NULL; in PetscViewerExodusIIGetNodalVariable()
358 PetscViewer_ExodusII *exo = (PetscViewer_ExodusII *)viewer->data; in PetscViewerExodusIISetZonalVariableName() local
361 …PetscCheck((idx >= 0) && (idx < exo->numZonalVariables), PETSC_COMM_SELF, PETSC_ERR_ARG_OUTOFRANGE… in PetscViewerExodusIISetZonalVariableName()
362 PetscCall(PetscStrallocpy(name, (char **)&exo->zonalVariableNames[idx])); in PetscViewerExodusIISetZonalVariableName()
363 PetscCallExternal(ex_put_variable_name, exo->exoid, EX_ELEM_BLOCK, idx + 1, name); in PetscViewerExodusIISetZonalVariableName()
383 PetscViewer_ExodusII *exo = (PetscViewer_ExodusII *)viewer->data; in PetscViewerExodusIISetNodalVariableName() local
386 …PetscCheck((idx >= 0) && (idx < exo->numNodalVariables), PETSC_COMM_SELF, PETSC_ERR_ARG_OUTOFRANGE… in PetscViewerExodusIISetNodalVariableName()
387 PetscCall(PetscStrallocpy(name, (char **)&exo->nodalVariableNames[idx])); in PetscViewerExodusIISetNodalVariableName()
388 PetscCallExternal(ex_put_variable_name, exo->exoid, EX_NODAL, idx + 1, name); in PetscViewerExodusIISetNodalVariableName()
410 PetscViewer_ExodusII *exo = (PetscViewer_ExodusII *)viewer->data; in PetscViewerExodusIIGetZonalVariableName() local
415 …PetscCheck(idx >= 0 && idx < exo->numZonalVariables, PETSC_COMM_SELF, PETSC_ERR_ARG_OUTOFRANGE, "V… in PetscViewerExodusIIGetZonalVariableName()
416 if (!exo->zonalVariableNames[idx]) { in PetscViewerExodusIIGetZonalVariableName()
419 PetscCall(PetscStrallocpy(tmpName, (char **)&exo->zonalVariableNames[idx])); in PetscViewerExodusIIGetZonalVariableName()
421 *name = exo->zonalVariableNames[idx]; in PetscViewerExodusIIGetZonalVariableName()
443 PetscViewer_ExodusII *exo = (PetscViewer_ExodusII *)viewer->data; in PetscViewerExodusIIGetNodalVariableName() local
448 …PetscCheck((idx >= 0) && (idx < exo->numNodalVariables), PETSC_COMM_SELF, PETSC_ERR_ARG_OUTOFRANGE… in PetscViewerExodusIIGetNodalVariableName()
449 if (!exo->nodalVariableNames[idx]) { in PetscViewerExodusIIGetNodalVariableName()
452 PetscCall(PetscStrallocpy(tmpName, (char **)&exo->nodalVariableNames[idx])); in PetscViewerExodusIIGetNodalVariableName()
454 *name = exo->nodalVariableNames[idx]; in PetscViewerExodusIIGetNodalVariableName()
478 PetscViewer_ExodusII *exo = (PetscViewer_ExodusII *)viewer->data; in PetscViewerExodusIISetZonalVariableNames() local
486 PetscCall(PetscStrallocpy(names[i], &exo->zonalVariableNames[i])); in PetscViewerExodusIISetZonalVariableNames()
512 PetscViewer_ExodusII *exo = (PetscViewer_ExodusII *)viewer->data; in PetscViewerExodusIISetNodalVariableNames() local
520 PetscCall(PetscStrallocpy(names[i], &exo->nodalVariableNames[i])); in PetscViewerExodusIISetNodalVariableNames()
547 PetscViewer_ExodusII *exo = (PetscViewer_ExodusII *)viewer->data; in PetscViewerExodusIIGetZonalVariableNames() local
558 if (!exo->zonalVariableNames[idx]) { in PetscViewerExodusIIGetZonalVariableNames()
561 PetscCall(PetscStrallocpy(tmpName, (char **)&exo->zonalVariableNames[idx])); in PetscViewerExodusIIGetZonalVariableNames()
564 *varNames = (const char *const *)exo->zonalVariableNames; in PetscViewerExodusIIGetZonalVariableNames()
589 PetscViewer_ExodusII *exo = (PetscViewer_ExodusII *)viewer->data; in PetscViewerExodusIIGetNodalVariableNames() local
600 if (!exo->nodalVariableNames[idx]) { in PetscViewerExodusIIGetNodalVariableNames()
603 PetscCall(PetscStrallocpy(tmpName, (char **)&exo->nodalVariableNames[idx])); in PetscViewerExodusIIGetNodalVariableNames()
606 *varNames = (const char *const *)exo->nodalVariableNames; in PetscViewerExodusIIGetNodalVariableNames()
620 PetscViewer_ExodusII *exo; in PetscViewerCreate_ExodusII() local
623 PetscCall(PetscNew(&exo)); in PetscViewerCreate_ExodusII()
625 v->data = (void *)exo; in PetscViewerCreate_ExodusII()
630 exo->btype = FILE_MODE_UNDEFINED; in PetscViewerCreate_ExodusII()
631 exo->filename = 0; in PetscViewerCreate_ExodusII()
632 exo->exoid = -1; in PetscViewerCreate_ExodusII()
633 exo->numNodalVariables = -1; in PetscViewerCreate_ExodusII()
634 exo->numZonalVariables = -1; in PetscViewerCreate_ExodusII()
635 exo->nodalVariableNames = NULL; in PetscViewerCreate_ExodusII()
636 exo->zonalVariableNames = NULL; in PetscViewerCreate_ExodusII()
795 PetscViewer_ExodusII *exo = (PetscViewer_ExodusII *)viewer->data; in DMView_PlexExodusII() local
819 switch (exo->btype) { in DMView_PlexExodusII()
825 … SETERRQ(PETSC_COMM_SELF, PETSC_ERR_LIB, "cannot add geometry to existing file %s", exo->filename); in DMView_PlexExodusII()
834 exo->exoid = ex_create(exo->filename, EXO_mode, &CPU_word_size, &IO_word_size); in DMView_PlexExodusII()
835 …PetscCheck(exo->exoid >= 0, PETSC_COMM_SELF, PETSC_ERR_LIB, "ex_create failed for %s", exo->filena… in DMView_PlexExodusII()
932 …if (num_cs) PetscCallExternal(ex_put_init, exo->exoid, dmName, dim, numNodes, numCells, num_cs, nu… in DMView_PlexExodusII()
969 …PetscCallExternal(ex_put_block, exo->exoid, EX_ELEM_BLOCK, csIdx[cs], elem_type, csSize, connectSi… in DMView_PlexExodusII()
1068 PetscCallExternal(ex_put_conn, exo->exoid, EX_ELEM_BLOCK, csIdx[cs], connect, 0, 0); in DMView_PlexExodusII()
1125 …PetscCallExternal(ex_put_coord, exo->exoid, &coords[0 * numNodes], &coords[1 * numNodes], &coords[… in DMView_PlexExodusII()
1127 PetscCallExternal(ex_put_coord_names, exo->exoid, (char **)coordNames); in DMView_PlexExodusII()
1147 PetscCallExternal(ex_put_set_param, exo->exoid, EX_NODE_SET, vsIdx[vs], vsSize, 0); in DMView_PlexExodusII()
1148 PetscCallExternal(ex_put_set, exo->exoid, EX_NODE_SET, vsIdx[vs], nodeList, NULL); in DMView_PlexExodusII()
1185 PetscCallExternal(ex_put_set_param, exo->exoid, EX_SIDE_SET, fsIdx[fs], fsSize, 0); in DMView_PlexExodusII()
1233 …for (fs = 0; fs < num_fs; ++fs) PetscCallExternal(ex_put_set, exo->exoid, EX_SIDE_SET, fsIdx[fs], … in DMView_PlexExodusII()
1240 ex_close(exo->exoid); in DMView_PlexExodusII()
1241 exo->exoid = -1; in DMView_PlexExodusII()
1254 …exo->exoid = ex_open_par(exo->filename, EXO_mode, &CPU_word_size, &IO_word_size, &EXO_version, … in DMView_PlexExodusII()
1255 …PetscCheck(exo->exoid >= 0, PETSC_COMM_SELF, PETSC_ERR_LIB, "ex_open_par failed for %s", exo->file… in DMView_PlexExodusII()