xref: /petsc/src/sys/fileio/ftn-custom/zsysiof.c (revision 55fcb7f56954f81e13f188954f526d43b66569ef) 
1*55fcb7f5SSatish Balay #include "zpetsc.h"
2*55fcb7f5SSatish Balay #include "petscsys.h"
3*55fcb7f5SSatish Balay 
4*55fcb7f5SSatish Balay #if defined(PETSC_HAVE_FORTRAN_CAPS)
5*55fcb7f5SSatish Balay #define petscbinaryopen_           PETSCBINARYOPEN
6*55fcb7f5SSatish Balay #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE)
7*55fcb7f5SSatish Balay #define petscbinaryopen_           petscbinaryopen
8*55fcb7f5SSatish Balay #endif
9*55fcb7f5SSatish Balay 
10*55fcb7f5SSatish Balay EXTERN_C_BEGIN
11*55fcb7f5SSatish Balay void PETSC_STDCALL petscbinaryopen_(CHAR name PETSC_MIXED_LEN(len),PetscViewerFileType *type,int *fd,
12*55fcb7f5SSatish Balay                                     PetscErrorCode *ierr PETSC_END_LEN(len))
13*55fcb7f5SSatish Balay {
14*55fcb7f5SSatish Balay   char *c1;
15*55fcb7f5SSatish Balay 
16*55fcb7f5SSatish Balay   FIXCHAR(name,len,c1);
17*55fcb7f5SSatish Balay   *ierr = PetscBinaryOpen(c1,*type,fd);
18*55fcb7f5SSatish Balay   FREECHAR(name,c1);
19*55fcb7f5SSatish Balay }
20*55fcb7f5SSatish Balay 
21*55fcb7f5SSatish Balay EXTERN_C_END
22