Lines Matching refs:viewer
40 static PetscErrorCode PetscViewerView_CGNS(PetscViewer v, PetscViewer viewer) in PetscViewerView_CGNS() argument
45 if (cgv->filename) PetscCall(PetscViewerASCIIPrintf(viewer, "Filename: %s\n", cgv->filename)); in PetscViewerView_CGNS()
49 static PetscErrorCode PetscViewerFileClose_CGNS(PetscViewer viewer) in PetscViewerFileClose_CGNS() argument
51 PetscViewer_CGNS *cgv = (PetscViewer_CGNS *)viewer->data; in PetscViewerFileClose_CGNS()
63 …tscCallCGNSWrite(cg_biter_write(cgv->file_num, cgv->base, "TimeIterValues", num_times), viewer, 0); in PetscViewerFileClose_CGNS()
65 …llCGNSWrite(cg_array_write("TimeValues", CGNS_ENUMV(RealDouble), 1, &num_times, times), viewer, 0); in PetscViewerFileClose_CGNS()
70 …Write(cg_array_write("IterationValues", CGNS_ENUMV(Integer), 1, &num_times, steps_int), viewer, 0); in PetscViewerFileClose_CGNS()
74 …CallCGNSWrite(cg_ziter_write(cgv->file_num, cgv->base, cgv->zone, "ZoneIterativeData"), viewer, 0); in PetscViewerFileClose_CGNS()
80 …rite(cg_array_write("FlowSolutionPointers", CGNS_ENUMV(Character), 2, shape, solnames), viewer, 0); in PetscViewerFileClose_CGNS()
83 …array_write("FlowSolutionCellInfoPointers", CGNS_ENUMV(Character), 2, shape, solnames), viewer, 0); in PetscViewerFileClose_CGNS()
86 …CGNSWrite(cg_simulation_type_write(cgv->file_num, cgv->base, CGNS_ENUMV(TimeAccurate)), viewer, 0); in PetscViewerFileClose_CGNS()
90 if (cgv->file_num) PetscCallCGNSClose(cgp_close(cgv->file_num), viewer, 0); in PetscViewerFileClose_CGNS()
92 if (cgv->file_num) PetscCallCGNSClose(cg_close(cgv->file_num), viewer, 0); in PetscViewerFileClose_CGNS()
100 PetscErrorCode PetscViewerCGNSFileOpen_Internal(PetscViewer viewer, PetscInt sequence_number) in PetscViewerCGNSFileOpen_Internal() argument
102 PetscViewer_CGNS *cgv = (PetscViewer_CGNS *)viewer->data; in PetscViewerCGNSFileOpen_Internal()
106 …PetscCheck((cgv->filename == NULL) ^ (sequence_number < 0), PetscObjectComm((PetscObject)viewer), … in PetscViewerCGNSFileOpen_Internal()
122 …SETERRQ(PetscObjectComm((PetscObject)viewer), PETSC_ERR_ORDER, "Must call PetscViewerFileSetMode()… in PetscViewerCGNSFileOpen_Internal()
124 …SETERRQ(PetscObjectComm((PetscObject)viewer), PETSC_ERR_SUP, "Unsupported file mode %s", PetscFile… in PetscViewerCGNSFileOpen_Internal()
127 PetscCallCGNS(cgp_mpi_comm(PetscObjectComm((PetscObject)viewer))); in PetscViewerCGNSFileOpen_Internal()
128 PetscCallCGNSOpen(cgp_open(cgv->filename, cg_file_mode, &cgv->file_num), viewer, 0); in PetscViewerCGNSFileOpen_Internal()
130 PetscCallCGNSOpen(cg_open(filename, cg_file_mode, &cgv->file_num), viewer, 0); in PetscViewerCGNSFileOpen_Internal()
135 PetscErrorCode PetscViewerCGNSCheckBatch_Internal(PetscViewer viewer) in PetscViewerCGNSCheckBatch_Internal() argument
137 PetscViewer_CGNS *cgv = (PetscViewer_CGNS *)viewer->data; in PetscViewerCGNSCheckBatch_Internal()
143 if (num_steps >= (PetscCount)cgv->batch_size) PetscCall(PetscViewerFileClose_CGNS(viewer)); in PetscViewerCGNSCheckBatch_Internal()
147 static PetscErrorCode PetscViewerDestroy_CGNS(PetscViewer viewer) in PetscViewerDestroy_CGNS() argument
149 PetscViewer_CGNS *cgv = (PetscViewer_CGNS *)viewer->data; in PetscViewerDestroy_CGNS()
152 PetscCall(PetscViewerFileClose_CGNS(viewer)); in PetscViewerDestroy_CGNS()
156 PetscCall(PetscObjectComposeFunction((PetscObject)viewer, "PetscViewerFileSetName_C", NULL)); in PetscViewerDestroy_CGNS()
157 PetscCall(PetscObjectComposeFunction((PetscObject)viewer, "PetscViewerFileGetName_C", NULL)); in PetscViewerDestroy_CGNS()
158 PetscCall(PetscObjectComposeFunction((PetscObject)viewer, "PetscViewerFileSetMode_C", NULL)); in PetscViewerDestroy_CGNS()
159 PetscCall(PetscObjectComposeFunction((PetscObject)viewer, "PetscViewerFileGetMode_C", NULL)); in PetscViewerDestroy_CGNS()
163 static PetscErrorCode PetscViewerFileSetMode_CGNS(PetscViewer viewer, PetscFileMode type) in PetscViewerFileSetMode_CGNS() argument
165 PetscViewer_CGNS *cgv = (PetscViewer_CGNS *)viewer->data; in PetscViewerFileSetMode_CGNS()
172 static PetscErrorCode PetscViewerFileGetMode_CGNS(PetscViewer viewer, PetscFileMode *type) in PetscViewerFileGetMode_CGNS() argument
174 PetscViewer_CGNS *cgv = (PetscViewer_CGNS *)viewer->data; in PetscViewerFileGetMode_CGNS()
181 static PetscErrorCode PetscViewerFileSetName_CGNS(PetscViewer viewer, const char *filename) in PetscViewerFileSetName_CGNS() argument
183 PetscViewer_CGNS *cgv = (PetscViewer_CGNS *)viewer->data; in PetscViewerFileSetName_CGNS()
188 if (cgv->file_num) PetscCallCGNSClose(cgp_close(cgv->file_num), viewer, 0); in PetscViewerFileSetName_CGNS()
190 if (cgv->file_num) PetscCallCGNSClose(cg_close(cgv->file_num), viewer, 0); in PetscViewerFileSetName_CGNS()
200 PetscCall(PetscViewerCGNSFileOpen_Internal(viewer, -1)); in PetscViewerFileSetName_CGNS()
205 static PetscErrorCode PetscViewerFileGetName_CGNS(PetscViewer viewer, const char **filename) in PetscViewerFileGetName_CGNS() argument
207 PetscViewer_CGNS *cgv = (PetscViewer_CGNS *)viewer->data; in PetscViewerFileGetName_CGNS()
308 …Code PetscViewerCGNSOpen(MPI_Comm comm, const char name[], PetscFileMode type, PetscViewer *viewer) in PetscViewerCGNSOpen() argument
312 PetscAssertPointer(viewer, 4); in PetscViewerCGNSOpen()
313 PetscCall(PetscViewerCreate(comm, viewer)); in PetscViewerCGNSOpen()
314 PetscCall(PetscViewerSetType(*viewer, PETSCVIEWERCGNS)); in PetscViewerCGNSOpen()
315 PetscCall(PetscViewerFileSetMode(*viewer, type)); in PetscViewerCGNSOpen()
316 PetscCall(PetscViewerFileSetName(*viewer, name)); in PetscViewerCGNSOpen()
317 PetscCall(PetscViewerSetFromOptions(*viewer)); in PetscViewerCGNSOpen()
342 PetscErrorCode PetscViewerCGNSSetSolutionIndex(PetscViewer viewer, PetscInt solution_id) in PetscViewerCGNSSetSolutionIndex() argument
344 PetscViewer_CGNS *cgv = (PetscViewer_CGNS *)viewer->data; in PetscViewerCGNSSetSolutionIndex()
347 PetscValidHeaderSpecific(viewer, PETSC_VIEWER_CLASSID, 1); in PetscViewerCGNSSetSolutionIndex()
348 PetscValidLogicalCollectiveInt(viewer, solution_id, 2); in PetscViewerCGNSSetSolutionIndex()
349 …PetscCheck((solution_id != 0) && (solution_id > -2), PetscObjectComm((PetscObject)viewer), PETSC_E… in PetscViewerCGNSSetSolutionIndex()
374 PetscErrorCode PetscViewerCGNSGetSolutionIndex(PetscViewer viewer, PetscInt *solution_id) in PetscViewerCGNSGetSolutionIndex() argument
376 PetscViewer_CGNS *cgv = (PetscViewer_CGNS *)viewer->data; in PetscViewerCGNSGetSolutionIndex()
379 PetscValidHeaderSpecific(viewer, PETSC_VIEWER_CLASSID, 1); in PetscViewerCGNSGetSolutionIndex()
386 PetscErrorCode PetscViewerCGNSGetSolutionFileIndex_Internal(PetscViewer viewer, int *sol_index) in PetscViewerCGNSGetSolutionFileIndex_Internal() argument
388 PetscViewer_CGNS *cgv = (PetscViewer_CGNS *)viewer->data; in PetscViewerCGNSGetSolutionFileIndex_Internal()
389 MPI_Comm comm = PetscObjectComm((PetscObject)viewer); in PetscViewerCGNSGetSolutionFileIndex_Internal()
400 PetscCallCGNSRead(cg_nsols(cgv->file_num, cgv->base, cgv->zone, &nsols), viewer, 0); in PetscViewerCGNSGetSolutionFileIndex_Internal()
426 PetscCallCGNSRead(cg_array_read_as(1, CGNS_ENUMV(Character), pointer_names), viewer, 0); in PetscViewerCGNSGetSolutionFileIndex_Internal()
442 …allCGNSRead(cg_sol_info(cgv->file_num, cgv->base, cgv->zone, sol_id, buffer, &gridloc), viewer, 0); in PetscViewerCGNSGetSolutionFileIndex_Internal()
474 PetscErrorCode PetscViewerCGNSGetSolutionTime(PetscViewer viewer, PetscReal *time, PetscBool *set) in PetscViewerCGNSGetSolutionTime() argument
476 PetscViewer_CGNS *cgv = (PetscViewer_CGNS *)viewer->data; in PetscViewerCGNSGetSolutionTime()
482 PetscValidHeaderSpecific(viewer, PETSC_VIEWER_CLASSID, 1); in PetscViewerCGNSGetSolutionTime()
490 …PetscCall(CGNS_Find_Array(PetscObjectComm((PetscObject)viewer), "TimeValues", &A_index, NULL, NULL… in PetscViewerCGNSGetSolutionTime()
493 PetscCallCGNSRead(cg_array_read_as(A_index, CGNS_ENUMV(RealDouble), times), viewer, 0); in PetscViewerCGNSGetSolutionTime()
494 …PetscCall(PetscViewerCGNSGetSolutionFileIndex_Internal(viewer, &sol_id)); // Call to set file poin… in PetscViewerCGNSGetSolutionTime()
519 PetscErrorCode PetscViewerCGNSGetSolutionIteration(PetscViewer viewer, PetscInt *iteration, PetscBo… in PetscViewerCGNSGetSolutionIteration() argument
521 PetscViewer_CGNS *cgv = (PetscViewer_CGNS *)viewer->data; in PetscViewerCGNSGetSolutionIteration()
527 PetscValidHeaderSpecific(viewer, PETSC_VIEWER_CLASSID, 1); in PetscViewerCGNSGetSolutionIteration()
535 …PetscCall(CGNS_Find_Array(PetscObjectComm((PetscObject)viewer), "IterationValues", &A_index, NULL,… in PetscViewerCGNSGetSolutionIteration()
538 PetscCallCGNSRead(cg_array_read_as(A_index, CGNS_ENUMV(Integer), steps), viewer, 0); in PetscViewerCGNSGetSolutionIteration()
539 …PetscCall(PetscViewerCGNSGetSolutionFileIndex_Internal(viewer, &sol_id)); // Call to set file poin… in PetscViewerCGNSGetSolutionIteration()
563 PetscErrorCode PetscViewerCGNSGetSolutionName(PetscViewer viewer, const char *name[]) in PetscViewerCGNSGetSolutionName() argument
565 PetscViewer_CGNS *cgv = (PetscViewer_CGNS *)viewer->data; in PetscViewerCGNSGetSolutionName()
571 PetscValidHeaderSpecific(viewer, PETSC_VIEWER_CLASSID, 1); in PetscViewerCGNSGetSolutionName()
573 PetscCall(PetscViewerCGNSGetSolutionFileIndex_Internal(viewer, &sol_id)); in PetscViewerCGNSGetSolutionName()
575 …allCGNSRead(cg_sol_info(cgv->file_num, cgv->base, cgv->zone, sol_id, buffer, &gridloc), viewer, 0); in PetscViewerCGNSGetSolutionName()