Actual source code: zsysiof.c
1: #include <petsc/private/fortranimpl.h>
3: #if defined(PETSC_HAVE_FORTRAN_CAPS)
4: #define petscbinaryreadint_ PETSCBINARYREADINT
5: #define petscbinaryreadreal_ PETSCBINARYREADREAL
6: #define petscbinaryreadcomplex_ PETSCBINARYREADCOMPLEX
7: #define petscbinaryreadrealcnt_ PETSCBINARYREADREALCNT
8: #define petscbinaryreadcomplexcnt_ PETSCBINARYREADCOMPLEXCNT
9: #define petscbinaryreadintcnt_ PETSCBINARYREADINTCNT
10: #define petscbinaryreadint1_ PETSCBINARYREADINT1
11: #define petscbinaryreadreal1_ PETSCBINARYREADREAL1
12: #define petscbinaryreadcomplex1_ PETSCBINARYREADCOMPLEX1
13: #define petscbinaryreadint1cnt_ PETSCBINARYREADINT1CNT
14: #define petscbinaryreadreal1cnt_ PETSCBINARYREADREAL1CNT
15: #define petscbinaryreadcomplex1cnt_ PETSCBINARYREADCOMPLEX1CNT
16: #define petscbinarywriteint_ PETSCBINARYWRITEINT
17: #define petscbinarywritereal_ PETSCBINARYWRITEREAL
18: #define petscbinarywritecomplex_ PETSCBINARYWRITECOMPLEX
19: #define petscbinarywriteint1_ PETSCBINARYWRITEINT1
20: #define petscbinarywritereal1_ PETSCBINARYWRITEREAL1
21: #define petscbinarywritecomplex1_ PETSCBINARYWRITECOMPLEX1
22: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE)
23: #define petscbinaryreadint_ petscbinaryreadint
24: #define petscbinaryreadreal_ petscbinaryreadreal
25: #define petscbinaryreadcomplex_ petscbinaryreadcomplex
26: #define petscbinaryreadintcnt_ petscbinaryreadintcnt
27: #define petscbinaryreadrealcnt_ petscbinaryreadrealcnt
28: #define petscbinaryreadcomplexcnt_ petscbinaryreadcomplexcnt
29: #define petscbinaryreadint1_ petscbinaryreadint1
30: #define petscbinaryreadrea11_ petscbinaryreadrea11
31: #define petscbinaryreadcomplex1_ petscbinaryreadcomplex1
32: #define petscbinaryreadint1cnt_ petscbinaryreadint1cnt
33: #define petscbinaryreadreal1cnt_ petscbinaryreadreal1cnt
34: #define petscbinaryreadcomplex1cnt_ petscbinaryreadcomplex1cnt
35: #define petscbinarywriteint_ petscbinarywriteint
36: #define petscbinarywritereal_ petscbinarywritereal
37: #define petscbinarywritecomplex_ petscbinarywritecomplex
38: #define petscbinarywriteint1_ petscbinarywriteint1
39: #define petscbinarywritereal1_ petscbinarywritereal1
40: #define petscbinarywritecomplex1_ petscbinarywritecomplex1
41: #endif
43: /* Definitions of Fortran Wrapper routines */
44: #if defined(__cplusplus)
45: extern "C" {
46: #endif
48: PETSC_EXTERN void petscbinarywriteint_(int *fd, void *p, PetscInt *n, PetscDataType *type, int *ierr)
49: {
50: *ierr = PetscBinaryWrite(*fd, p, *n, *type);
51: }
53: PETSC_EXTERN void petscbinarywritereal_(int *fd, void *p, PetscInt *n, PetscDataType *type, int *ierr)
54: {
55: *ierr = PetscBinaryWrite(*fd, p, *n, *type);
56: }
58: PETSC_EXTERN void petscbinarywritecomplex_(int *fd, void *p, PetscInt *n, PetscDataType *type, int *ierr)
59: {
60: *ierr = PetscBinaryWrite(*fd, p, *n, *type);
61: }
63: PETSC_EXTERN void petscbinarywriteint1_(int *fd, void *p, PetscInt *n, PetscDataType *type, int *ierr)
64: {
65: *ierr = PetscBinaryWrite(*fd, p, *n, *type);
66: }
68: PETSC_EXTERN void petscbinarywritereal1_(int *fd, void *p, PetscInt *n, PetscDataType *type, int *ierr)
69: {
70: *ierr = PetscBinaryWrite(*fd, p, *n, *type);
71: }
73: PETSC_EXTERN void petscbinarywritecomplex1_(int *fd, void *p, PetscInt *n, PetscDataType *type, int *ierr)
74: {
75: *ierr = PetscBinaryWrite(*fd, p, *n, *type);
76: }
78: PETSC_EXTERN void petscbinaryreadint_(int *fd, void *data, PetscInt *num, PetscInt *count, PetscDataType *type, int *ierr)
79: {
80: CHKFORTRANNULLINTEGER(count);
81: *ierr = PetscBinaryRead(*fd, data, *num, count, *type);
82: if (*ierr) return;
83: }
85: PETSC_EXTERN void petscbinaryreadreal_(int *fd, void *data, PetscInt *num, PetscInt *count, PetscDataType *type, int *ierr)
86: {
87: CHKFORTRANNULLINTEGER(count);
88: *ierr = PetscBinaryRead(*fd, data, *num, count, *type);
89: if (*ierr) return;
90: }
92: PETSC_EXTERN void petscbinaryreadcomplex_(int *fd, void *data, PetscInt *num, PetscInt *count, PetscDataType *type, int *ierr)
93: {
94: CHKFORTRANNULLINTEGER(count);
95: *ierr = PetscBinaryRead(*fd, data, *num, count, *type);
96: if (*ierr) return;
97: }
99: PETSC_EXTERN void petscbinaryreadint1_(int *fd, void *data, PetscInt *num, PetscInt *count, PetscDataType *type, int *ierr)
100: {
101: CHKFORTRANNULLINTEGER(count);
102: *ierr = PetscBinaryRead(*fd, data, *num, count, *type);
103: if (*ierr) return;
104: }
106: PETSC_EXTERN void petscbinaryreadreal1_(int *fd, void *data, PetscInt *num, PetscInt *count, PetscDataType *type, int *ierr)
107: {
108: CHKFORTRANNULLINTEGER(count);
109: *ierr = PetscBinaryRead(*fd, data, *num, count, *type);
110: if (*ierr) return;
111: }
113: PETSC_EXTERN void petscbinaryreadcomplex1_(int *fd, void *data, PetscInt *num, PetscInt *count, PetscDataType *type, int *ierr)
114: {
115: CHKFORTRANNULLINTEGER(count);
116: *ierr = PetscBinaryRead(*fd, data, *num, count, *type);
117: if (*ierr) return;
118: }
120: PETSC_EXTERN void petscbinaryreadintcnt_(int *fd, void *data, PetscInt *num, PetscInt *count, PetscDataType *type, int *ierr)
121: {
122: CHKFORTRANNULLINTEGER(count);
123: *ierr = PetscBinaryRead(*fd, data, *num, count, *type);
124: if (*ierr) return;
125: }
127: PETSC_EXTERN void petscbinaryreadrealcnt_(int *fd, void *data, PetscInt *num, PetscInt *count, PetscDataType *type, int *ierr)
128: {
129: CHKFORTRANNULLINTEGER(count);
130: *ierr = PetscBinaryRead(*fd, data, *num, count, *type);
131: if (*ierr) return;
132: }
134: PETSC_EXTERN void petscbinaryreadcomplexcnt_(int *fd, void *data, PetscInt *num, PetscInt *count, PetscDataType *type, int *ierr)
135: {
136: CHKFORTRANNULLINTEGER(count);
137: *ierr = PetscBinaryRead(*fd, data, *num, count, *type);
138: if (*ierr) return;
139: }
141: PETSC_EXTERN void petscbinaryreadint1cnt_(int *fd, void *data, PetscInt *num, PetscInt *count, PetscDataType *type, int *ierr)
142: {
143: CHKFORTRANNULLINTEGER(count);
144: *ierr = PetscBinaryRead(*fd, data, *num, count, *type);
145: if (*ierr) return;
146: }
148: PETSC_EXTERN void petscbinaryreadreal1cnt_(int *fd, void *data, PetscInt *num, PetscInt *count, PetscDataType *type, int *ierr)
149: {
150: CHKFORTRANNULLINTEGER(count);
151: *ierr = PetscBinaryRead(*fd, data, *num, count, *type);
152: if (*ierr) return;
153: }
155: PETSC_EXTERN void petscbinaryreadcomplex1cnt_(int *fd, void *data, PetscInt *num, PetscInt *count, PetscDataType *type, int *ierr)
156: {
157: CHKFORTRANNULLINTEGER(count);
158: *ierr = PetscBinaryRead(*fd, data, *num, count, *type);
159: if (*ierr) return;
160: }
162: #if defined(__cplusplus)
163: }
164: #endif