xref: /petsc/src/sys/fileio/ftn-custom/zsysiof.c (revision 5975b3b6e3931510e2a64a701673cbe1930c6f42)

#include <petsc/private/fortranimpl.h>

#if defined(PETSC_HAVE_FORTRAN_CAPS)
  #define petscbinaryopen_            PETSCBINARYOPEN
  #define petsctestfile_              PETSCTESTFILE
  #define petscbinaryreadint_         PETSCBINARYREADINT
  #define petscbinaryreadreal_        PETSCBINARYREADREAL
  #define petscbinaryreadcomplex_     PETSCBINARYREADCOMPLEX
  #define petscbinaryreadrealcnt_     PETSCBINARYREADREALCNT
  #define petscbinaryreadcomplexcnt_  PETSCBINARYREADCOMPLEXCNT
  #define petscbinaryreadintcnt_      PETSCBINARYREADINTCNT
  #define petscbinaryreadint1_        PETSCBINARYREADINT1
  #define petscbinaryreadreal1_       PETSCBINARYREADREAL1
  #define petscbinaryreadcomplex1_    PETSCBINARYREADCOMPLEX1
  #define petscbinaryreadint1cnt_     PETSCBINARYREADINT1CNT
  #define petscbinaryreadreal1cnt_    PETSCBINARYREADREAL1CNT
  #define petscbinaryreadcomplex1cnt_ PETSCBINARYREADCOMPLEX1CNT
  #define petscbinarywriteint_        PETSCBINARYWRITEINT
  #define petscbinarywritereal_       PETSCBINARYWRITEREAL
  #define petscbinarywritecomplex_    PETSCBINARYWRITECOMPLEX
  #define petscbinarywriteint1_       PETSCBINARYWRITEINT1
  #define petscbinarywritereal1_      PETSCBINARYWRITEREAL1
  #define petscbinarywritecomplex1_   PETSCBINARYWRITECOMPLEX1
#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE)
  #define petscbinaryopen_            petscbinaryopen
  #define petsctestfile_              petsctestfile
  #define petscbinaryreadint_         petscbinaryreadint
  #define petscbinaryreadreal_        petscbinaryreadreal
  #define petscbinaryreadcomplex_     petscbinaryreadcomplex
  #define petscbinaryreadintcnt_      petscbinaryreadintcnt
  #define petscbinaryreadrealcnt_     petscbinaryreadrealcnt
  #define petscbinaryreadcomplexcnt_  petscbinaryreadcomplexcnt
  #define petscbinaryreadint1_        petscbinaryreadint1
  #define petscbinaryreadrea11_       petscbinaryreadrea11
  #define petscbinaryreadcomplex1_    petscbinaryreadcomplex1
  #define petscbinaryreadint1cnt_     petscbinaryreadint1cnt
  #define petscbinaryreadreal1cnt_    petscbinaryreadreal1cnt
  #define petscbinaryreadcomplex1cnt_ petscbinaryreadcomplex1cnt
  #define petscbinarywriteint_        petscbinarywriteint
  #define petscbinarywritereal_       petscbinarywritereal
  #define petscbinarywritecomplex_    petscbinarywritecomplex
  #define petscbinarywriteint1_       petscbinarywriteint1
  #define petscbinarywritereal1_      petscbinarywritereal1
  #define petscbinarywritecomplex1_   petscbinarywritecomplex1
#endif

/* Definitions of Fortran Wrapper routines */
#if defined(__cplusplus)
extern "C" {
#endif

PETSC_EXTERN void petscbinarywriteint_(int *fd, void *p, PetscInt *n, PetscDataType *type, int *ierr)
{
  *ierr = PetscBinaryWrite(*fd, p, *n, *type);
}

PETSC_EXTERN void petscbinarywritereal_(int *fd, void *p, PetscInt *n, PetscDataType *type, int *ierr)
{
  *ierr = PetscBinaryWrite(*fd, p, *n, *type);
}

PETSC_EXTERN void petscbinarywritecomplex_(int *fd, void *p, PetscInt *n, PetscDataType *type, int *ierr)
{
  *ierr = PetscBinaryWrite(*fd, p, *n, *type);
}

PETSC_EXTERN void petscbinarywriteint1_(int *fd, void *p, PetscInt *n, PetscDataType *type, int *ierr)
{
  *ierr = PetscBinaryWrite(*fd, p, *n, *type);
}

PETSC_EXTERN void petscbinarywritereal1_(int *fd, void *p, PetscInt *n, PetscDataType *type, int *ierr)
{
  *ierr = PetscBinaryWrite(*fd, p, *n, *type);
}

PETSC_EXTERN void petscbinarywritecomplex1_(int *fd, void *p, PetscInt *n, PetscDataType *type, int *ierr)
{
  *ierr = PetscBinaryWrite(*fd, p, *n, *type);
}

PETSC_EXTERN void petscbinaryopen_(char *name, PetscFileMode *type, int *fd, PetscErrorCode *ierr, PETSC_FORTRAN_CHARLEN_T len)
{
  char *c1;

  FIXCHAR(name, len, c1);
  *ierr = PetscBinaryOpen(c1, *type, fd);
  if (*ierr) return;
  FREECHAR(name, c1);
}

PETSC_EXTERN void petscbinaryreadint_(int *fd, void *data, PetscInt *num, PetscInt *count, PetscDataType *type, int *ierr)
{
  CHKFORTRANNULLINTEGER(count);
  *ierr = PetscBinaryRead(*fd, data, *num, count, *type);
  if (*ierr) return;
}

PETSC_EXTERN void petscbinaryreadreal_(int *fd, void *data, PetscInt *num, PetscInt *count, PetscDataType *type, int *ierr)
{
  CHKFORTRANNULLINTEGER(count);
  *ierr = PetscBinaryRead(*fd, data, *num, count, *type);
  if (*ierr) return;
}

PETSC_EXTERN void petscbinaryreadcomplex_(int *fd, void *data, PetscInt *num, PetscInt *count, PetscDataType *type, int *ierr)
{
  CHKFORTRANNULLINTEGER(count);
  *ierr = PetscBinaryRead(*fd, data, *num, count, *type);
  if (*ierr) return;
}

PETSC_EXTERN void petscbinaryreadint1_(int *fd, void *data, PetscInt *num, PetscInt *count, PetscDataType *type, int *ierr)
{
  CHKFORTRANNULLINTEGER(count);
  *ierr = PetscBinaryRead(*fd, data, *num, count, *type);
  if (*ierr) return;
}

PETSC_EXTERN void petscbinaryreadreal1_(int *fd, void *data, PetscInt *num, PetscInt *count, PetscDataType *type, int *ierr)
{
  CHKFORTRANNULLINTEGER(count);
  *ierr = PetscBinaryRead(*fd, data, *num, count, *type);
  if (*ierr) return;
}

PETSC_EXTERN void petscbinaryreadcomplex1_(int *fd, void *data, PetscInt *num, PetscInt *count, PetscDataType *type, int *ierr)
{
  CHKFORTRANNULLINTEGER(count);
  *ierr = PetscBinaryRead(*fd, data, *num, count, *type);
  if (*ierr) return;
}

PETSC_EXTERN void petscbinaryreadintcnt_(int *fd, void *data, PetscInt *num, PetscInt *count, PetscDataType *type, int *ierr)
{
  CHKFORTRANNULLINTEGER(count);
  *ierr = PetscBinaryRead(*fd, data, *num, count, *type);
  if (*ierr) return;
}

PETSC_EXTERN void petscbinaryreadrealcnt_(int *fd, void *data, PetscInt *num, PetscInt *count, PetscDataType *type, int *ierr)
{
  CHKFORTRANNULLINTEGER(count);
  *ierr = PetscBinaryRead(*fd, data, *num, count, *type);
  if (*ierr) return;
}

PETSC_EXTERN void petscbinaryreadcomplexcnt_(int *fd, void *data, PetscInt *num, PetscInt *count, PetscDataType *type, int *ierr)
{
  CHKFORTRANNULLINTEGER(count);
  *ierr = PetscBinaryRead(*fd, data, *num, count, *type);
  if (*ierr) return;
}

PETSC_EXTERN void petscbinaryreadint1cnt_(int *fd, void *data, PetscInt *num, PetscInt *count, PetscDataType *type, int *ierr)
{
  CHKFORTRANNULLINTEGER(count);
  *ierr = PetscBinaryRead(*fd, data, *num, count, *type);
  if (*ierr) return;
}

PETSC_EXTERN void petscbinaryreadreal1cnt_(int *fd, void *data, PetscInt *num, PetscInt *count, PetscDataType *type, int *ierr)
{
  CHKFORTRANNULLINTEGER(count);
  *ierr = PetscBinaryRead(*fd, data, *num, count, *type);
  if (*ierr) return;
}

PETSC_EXTERN void petscbinaryreadcomplex1cnt_(int *fd, void *data, PetscInt *num, PetscInt *count, PetscDataType *type, int *ierr)
{
  CHKFORTRANNULLINTEGER(count);
  *ierr = PetscBinaryRead(*fd, data, *num, count, *type);
  if (*ierr) return;
}

PETSC_EXTERN void petsctestfile_(char *name, char *mode, PetscBool *flg, PetscErrorCode *ierr, PETSC_FORTRAN_CHARLEN_T len, PETSC_FORTRAN_CHARLEN_T len1)
{
  char *c1;

  FIXCHAR(name, len, c1);
  *ierr = PetscTestFile(c1, *mode, flg);
  if (*ierr) return;
  FREECHAR(name, c1);
}

#if defined(__cplusplus)
}
#endif