Lines Matching refs:cgv
31 PetscViewer_CGNS *cgv = (PetscViewer_CGNS *)v->data; in PetscViewerSetFromOptions_CGNS() local
35 …ore in single file when using a template cgns:name-\%d.cgns", "", cgv->batch_size, &cgv->batch_siz… in PetscViewerSetFromOptions_CGNS()
42 PetscViewer_CGNS *cgv = (PetscViewer_CGNS *)v->data; in PetscViewerView_CGNS() local
45 if (cgv->filename) PetscCall(PetscViewerASCIIPrintf(viewer, "Filename: %s\n", cgv->filename)); in PetscViewerView_CGNS()
51 PetscViewer_CGNS *cgv = (PetscViewer_CGNS *)viewer->data; in PetscViewerFileClose_CGNS() local
54 if (cgv->output_times) { in PetscViewerFileClose_CGNS()
59 PetscCall(PetscSegBufferGetSize(cgv->output_times, &size)); in PetscViewerFileClose_CGNS()
60 PetscCall(PetscSegBufferExtractInPlace(cgv->output_times, ×)); in PetscViewerFileClose_CGNS()
61 PetscCall(PetscSegBufferExtractInPlace(cgv->output_steps, &steps)); in PetscViewerFileClose_CGNS()
63 …PetscCallCGNSWrite(cg_biter_write(cgv->file_num, cgv->base, "TimeIterValues", num_times), viewer, … in PetscViewerFileClose_CGNS()
64 PetscCallCGNS(cg_goto(cgv->file_num, cgv->base, "BaseIterativeData_t", 1, NULL)); in PetscViewerFileClose_CGNS()
73 PetscCall(PetscSegBufferDestroy(&cgv->output_times)); in PetscViewerFileClose_CGNS()
74 …PetscCallCGNSWrite(cg_ziter_write(cgv->file_num, cgv->base, cgv->zone, "ZoneIterativeData"), viewe… in PetscViewerFileClose_CGNS()
75 …PetscCallCGNS(cg_goto(cgv->file_num, cgv->base, "Zone_t", cgv->zone, "ZoneIterativeData_t", 1, NUL… in PetscViewerFileClose_CGNS()
78 PetscCall(PetscSegBufferDestroy(&cgv->output_steps)); in PetscViewerFileClose_CGNS()
86 …PetscCallCGNSWrite(cg_simulation_type_write(cgv->file_num, cgv->base, CGNS_ENUMV(TimeAccurate)), v… in PetscViewerFileClose_CGNS()
88 PetscCall(PetscFree(cgv->filename)); 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()
94 cgv->file_num = 0; in PetscViewerFileClose_CGNS()
95 PetscCall(PetscFree(cgv->node_l2g)); in PetscViewerFileClose_CGNS()
96 PetscCall(PetscFree(cgv->nodal_field)); in PetscViewerFileClose_CGNS()
102 PetscViewer_CGNS *cgv = (PetscViewer_CGNS *)viewer->data; in PetscViewerCGNSFileOpen_Internal() local
106 …PetscCheck((cgv->filename == NULL) ^ (sequence_number < 0), PetscObjectComm((PetscObject)viewer), … in PetscViewerCGNSFileOpen_Internal()
107 if (!cgv->filename) { in PetscViewerCGNSFileOpen_Internal()
111 …PetscCall(PetscSNPrintf(filename_numbered, sizeof filename_numbered, cgv->filename_template, (int)… in PetscViewerCGNSFileOpen_Internal()
112 PetscCall(PetscStrallocpy(filename_numbered, &cgv->filename)); in PetscViewerCGNSFileOpen_Internal()
114 switch (cgv->btype) { in PetscViewerCGNSFileOpen_Internal()
124 …tComm((PetscObject)viewer), PETSC_ERR_SUP, "Unsupported file mode %s", PetscFileModes[cgv->btype]); 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()
137 PetscViewer_CGNS *cgv = (PetscViewer_CGNS *)viewer->data; in PetscViewerCGNSCheckBatch_Internal() local
141 …if (!cgv->filename_template) PetscFunctionReturn(PETSC_SUCCESS); // Batches are closed when viewer… in PetscViewerCGNSCheckBatch_Internal()
142 PetscCall(PetscSegBufferGetSize(cgv->output_times, &num_steps)); in PetscViewerCGNSCheckBatch_Internal()
143 if (num_steps >= (PetscCount)cgv->batch_size) PetscCall(PetscViewerFileClose_CGNS(viewer)); in PetscViewerCGNSCheckBatch_Internal()
149 PetscViewer_CGNS *cgv = (PetscViewer_CGNS *)viewer->data; in PetscViewerDestroy_CGNS() local
153 PetscCall(PetscFree(cgv->solution_name)); in PetscViewerDestroy_CGNS()
154 PetscCall(PetscFree(cgv->filename_template)); in PetscViewerDestroy_CGNS()
155 PetscCall(PetscFree(cgv)); in PetscViewerDestroy_CGNS()
165 PetscViewer_CGNS *cgv = (PetscViewer_CGNS *)viewer->data; in PetscViewerFileSetMode_CGNS() local
168 cgv->btype = type; in PetscViewerFileSetMode_CGNS()
174 PetscViewer_CGNS *cgv = (PetscViewer_CGNS *)viewer->data; in PetscViewerFileGetMode_CGNS() local
177 *type = cgv->btype; in PetscViewerFileGetMode_CGNS()
183 PetscViewer_CGNS *cgv = (PetscViewer_CGNS *)viewer->data; in PetscViewerFileSetName_CGNS() local
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()
192 PetscCall(PetscFree(cgv->filename)); in PetscViewerFileSetName_CGNS()
193 PetscCall(PetscFree(cgv->filename_template)); in PetscViewerFileSetName_CGNS()
196 PetscCall(PetscStrallocpy(filename, &cgv->filename_template)); in PetscViewerFileSetName_CGNS()
199 PetscCall(PetscStrallocpy(filename, &cgv->filename)); in PetscViewerFileSetName_CGNS()
207 PetscViewer_CGNS *cgv = (PetscViewer_CGNS *)viewer->data; in PetscViewerFileGetName_CGNS() local
210 *filename = cgv->filename; in PetscViewerFileGetName_CGNS()
231 PetscViewer_CGNS *cgv; in PetscViewerCreate_CGNS() local
235 PetscCall(PetscNew(&cgv)); in PetscViewerCreate_CGNS()
237 v->data = cgv; in PetscViewerCreate_CGNS()
241 cgv->btype = FILE_MODE_UNDEFINED; in PetscViewerCreate_CGNS()
242 cgv->filename = NULL; in PetscViewerCreate_CGNS()
243 cgv->batch_size = 20; in PetscViewerCreate_CGNS()
244 cgv->solution_index = -1; // Default to use the "last" solution in PetscViewerCreate_CGNS()
245 cgv->base = 1; in PetscViewerCreate_CGNS()
246 cgv->zone = 1; in PetscViewerCreate_CGNS()
247 cgv->previous_output_step = -1; // No previous output step in PetscViewerCreate_CGNS()
344 PetscViewer_CGNS *cgv = (PetscViewer_CGNS *)viewer->data; in PetscViewerCGNSSetSolutionIndex() local
350 cgv->solution_index = solution_id; in PetscViewerCGNSSetSolutionIndex()
351 cgv->solution_file_index = 0; // Reset sol_index when solution_id changes (0 is invalid) in PetscViewerCGNSSetSolutionIndex()
376 PetscViewer_CGNS *cgv = (PetscViewer_CGNS *)viewer->data; in PetscViewerCGNSGetSolutionIndex() local
381 *solution_id = cgv->solution_index; in PetscViewerCGNSGetSolutionIndex()
388 PetscViewer_CGNS *cgv = (PetscViewer_CGNS *)viewer->data; in PetscViewerCGNSGetSolutionFileIndex_Internal() local
395 if (cgv->solution_file_index > 0) { in PetscViewerCGNSGetSolutionFileIndex_Internal()
396 *sol_index = cgv->solution_file_index; in PetscViewerCGNSGetSolutionFileIndex_Internal()
400 PetscCallCGNSRead(cg_nsols(cgv->file_num, cgv->base, cgv->zone, &nsols), viewer, 0); in PetscViewerCGNSGetSolutionFileIndex_Internal()
401 …cgns_ier = cg_goto(cgv->file_num, cgv->base, "Zone_t", cgv->zone, "ZoneIterativeData_t", 1, "FlowS… in PetscViewerCGNSGetSolutionFileIndex_Internal()
404 …cgv->solution_index == -1 || cgv->solution_index <= nsols, comm, PETSC_ERR_ARG_OUTOFRANGE, "CGNS S… in PetscViewerCGNSGetSolutionFileIndex_Internal()
406 cgv->solution_file_index = cgv->solution_index == -1 ? nsols : cgv->solution_index; in PetscViewerCGNSGetSolutionFileIndex_Internal()
414 … cgns_ier = cg_goto(cgv->file_num, cgv->base, "Zone_t", cgv->zone, "ZoneIterativeData_t", 1, NULL); in PetscViewerCGNSGetSolutionFileIndex_Internal()
424 …cgv->solution_index == -1 || cgv->solution_index <= size[1], comm, PETSC_ERR_ARG_OUTOFRANGE, "CGNS… in PetscViewerCGNSGetSolutionFileIndex_Internal()
427 cgv->solution_file_pointer_index = cgv->solution_index == -1 ? size[1] : cgv->solution_index; in PetscViewerCGNSGetSolutionFileIndex_Internal()
428 …pointer_id_name_ref = &pointer_names[size[0] * (cgv->solution_file_pointer_index - 1)… in PetscViewerCGNSGetSolutionFileIndex_Internal()
442 …PetscCallCGNSRead(cg_sol_info(cgv->file_num, cgv->base, cgv->zone, sol_id, buffer, &gridloc), view… in PetscViewerCGNSGetSolutionFileIndex_Internal()
447 cgv->solution_file_index = sol_id; in PetscViewerCGNSGetSolutionFileIndex_Internal()
451 *sol_index = cgv->solution_file_index; in PetscViewerCGNSGetSolutionFileIndex_Internal()
476 PetscViewer_CGNS *cgv = (PetscViewer_CGNS *)viewer->data; in PetscViewerCGNSGetSolutionTime() local
485 cgns_ier = cg_goto(cgv->file_num, cgv->base, "BaseIterativeData_t", 1, NULL); in PetscViewerCGNSGetSolutionTime()
495 *time = times[cgv->solution_file_pointer_index - 1]; in PetscViewerCGNSGetSolutionTime()
521 PetscViewer_CGNS *cgv = (PetscViewer_CGNS *)viewer->data; in PetscViewerCGNSGetSolutionIteration() local
530 cgns_ier = cg_goto(cgv->file_num, cgv->base, "BaseIterativeData_t", 1, NULL); in PetscViewerCGNSGetSolutionIteration()
540 *iteration = (PetscInt)steps[cgv->solution_file_pointer_index - 1]; in PetscViewerCGNSGetSolutionIteration()
565 PetscViewer_CGNS *cgv = (PetscViewer_CGNS *)viewer->data; in PetscViewerCGNSGetSolutionName() local
575 …PetscCallCGNSRead(cg_sol_info(cgv->file_num, cgv->base, cgv->zone, sol_id, buffer, &gridloc), view… in PetscViewerCGNSGetSolutionName()
576 if (cgv->solution_name) PetscCall(PetscFree(cgv->solution_name)); in PetscViewerCGNSGetSolutionName()
577 PetscCall(PetscStrallocpy(buffer, &cgv->solution_name)); in PetscViewerCGNSGetSolutionName()
578 *name = cgv->solution_name; in PetscViewerCGNSGetSolutionName()