1: #pragma once

  3: #include <petsc/private/viewerimpl.h>
  4: #include <cgnstypes.h>
  5: #include <cgnslib.h>

  7: typedef struct {
  8:   char           *filename_template;
  9:   char           *filename;
 10:   PetscFileMode   btype;
 11:   int             file_num;
 12:   const PetscInt *node_l2g;
 13:   int             base, zone;
 14:   CGNS_ENUMT(GridLocation_t) grid_loc;
 15:   PetscInt       num_local_nodes, nStart, nEnd;
 16:   PetscInt       eStart, eEnd;
 17:   PetscScalar   *nodal_field;
 18:   PetscSegBuffer output_steps;
 19:   PetscSegBuffer output_times;
 20:   PetscInt       batch_size;

 22:   // Solution reading information
 23:   PetscInt solution_index;              // User set solution index
 24:   int      solution_file_index;         // CGNS file solution index for direct access
 25:   int      solution_file_pointer_index; // CGNS file solution index for FlowSolutionPointers (and other related arrays), index by 1
 26:   char    *solution_name;
 27: } PetscViewer_CGNS;

 29: #define PetscCallCGNS(ierr) \
 30:   do { \
 31:     int _cgns_ier = (ierr); \
 32:     PetscCheck(!_cgns_ier, PETSC_COMM_SELF, PETSC_ERR_LIB, "CGNS error %d %s", _cgns_ier, cg_get_error()); \
 33:   } while (0)

 35: #if !defined(PRIdCGSIZE)
 36:   #if CG_SIZEOF_SIZE == 32
 37:     // cgsize_t is defined as int
 38:     #define MPIU_CGSIZE MPI_INT
 39:     #define PRIdCGSIZE  "d"
 40:   #else
 41:     #if defined(_WIN32)
 42:       // cgsize_t is defined as __int64, which is synonymous with long long
 43:       #define MPIU_CGSIZE MPI_LONG_LONG
 44:       #define PRIdCGSIZE  "lld"
 45:     #else
 46:       // cgsize_t is defined as long
 47:       #define MPIU_CGSIZE MPI_LONG
 48:       #define PRIdCGSIZE  "ld"
 49:     #endif
 50:   #endif
 51: #else
 52:   #if CG_SIZEOF_SIZE == 32
 53:     // cgsize_t is defined as int32_t
 54:     #define MPIU_CGSIZE MPI_INT32_T
 55:   #else
 56:     // cgsize_t is defined as int64_t
 57:     #define MPIU_CGSIZE MPI_INT64_T
 58:   #endif
 59: #endif

 61: PETSC_SINGLE_LIBRARY_INTERN PetscErrorCode PetscViewerCGNSCheckBatch_Internal(PetscViewer);
 62: PETSC_SINGLE_LIBRARY_INTERN PetscErrorCode PetscViewerCGNSFileOpen_Internal(PetscViewer, PetscInt);
 63: PETSC_SINGLE_LIBRARY_INTERN PetscErrorCode PetscViewerCGNSGetSolutionFileIndex_Internal(PetscViewer, int *);