1
<center><a href="gridDBf.c">Actual source code: gridDBf.c</a></center><br>
6
<meta name="generator" content="c2html 0.9.1">
7
<meta name="date" content="2002-05-31T17:01:11+00:00">
10
<body bgcolor="#FFFFFF">
11
<pre width="80"><a name="line1"> 1: </a><font color="#B22222">/* gridDB.c */</font>
12
<a name="line2"> 2: </a><font color="#B22222">/* Fortran interface file */</font>
14
<a name="line4"> 4: </a><font color="#B22222">/*</font>
15
<a name="line5"> 5: </a><font color="#B22222">* This file was generated automatically by bfort from the C source</font>
16
<a name="line6"> 6: </a><font color="#B22222">* file. </font>
17
<a name="line7"> 7: </a><font color="#B22222"> */</font>
19
<a name="line9"> 9: </a><font color="#A020F0">#ifdef PETSC_USE_POINTER_CONVERSION</font>
20
<a name="line10"> 10: </a><font color="#A020F0">#if defined(__cplusplus)</font>
21
<a name="line11"> 11: </a>extern <font color="#666666">"C"</font> {
22
<a name="line12"> 12: </a><font color="#A020F0">#endif </font>
23
<a name="line13"> 13: </a><strong><font color="#4169E1">extern void *PetscToPointer(void *)</font></strong>;
24
<a name="line14"> 14: </a><strong><font color="#4169E1">extern int PetscFromPointer(void *)</font></strong>;
25
<a name="line15"> 15: </a><strong><font color="#4169E1">extern void PetscRmPointer(void *)</font></strong>;
26
<a name="line16"> 16: </a><font color="#A020F0">#if defined(__cplusplus)</font>
27
<a name="line17"> 17: </a>}
28
<a name="line18"> 18: </a><font color="#A020F0">#endif </font>
30
<a name="line20"> 20: </a><font color="#A020F0">#else</font>
32
<a name="line22"> 22: </a><strong><font color="#228B22">#define PetscToPointer(a) (*(long *)(a))</font></strong>
33
<a name="line23"> 23: </a><strong><font color="#228B22">#define PetscFromPointer(a) (long)(a)</font></strong>
34
<a name="line24"> 24: </a><strong><font color="#228B22">#define PetscRmPointer(a)</font></strong>
35
<a name="line25"> 25: </a><font color="#A020F0">#endif</font>
37
<a name="line27"> 27: </a><font color="#A020F0">#include </font><font color="#666666">"petscfix.h"</font><font color="#A020F0"></font>
38
<a name="line28"> 28: </a> #include <A href="../../../include/grid.h.html">grid.h</A>
39
<a name="line29"> 29: </a><font color="#A020F0">#ifdef MPI_BUILD_PROFILING</font>
40
<a name="line30"> 30: </a><font color="#A020F0">#ifdef PETSC_HAVE_FORTRAN_CAPS</font>
41
<a name="line31"> 31: </a><strong><font color="#228B22">#define gridgetnumnonlinearoperators_ PGRIDGETNUMNONLINEAROPERATORS</font></strong>
42
<a name="line32"> 32: </a><font color="#A020F0">#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)</font>
43
<a name="line33"> 33: </a><strong><font color="#228B22">#define gridgetnumnonlinearoperators_ pgridgetnumnonlinearoperators</font></strong>
44
<a name="line34"> 34: </a><font color="#A020F0">#else</font>
45
<a name="line35"> 35: </a><strong><font color="#228B22">#define gridgetnumnonlinearoperators_ pgridgetnumnonlinearoperators_</font></strong>
46
<a name="line36"> 36: </a><font color="#A020F0">#endif</font>
47
<a name="line37"> 37: </a><font color="#A020F0">#else</font>
48
<a name="line38"> 38: </a><font color="#A020F0">#ifdef PETSC_HAVE_FORTRAN_CAPS</font>
49
<a name="line39"> 39: </a><strong><font color="#228B22">#define gridgetnumnonlinearoperators_ GRIDGETNUMNONLINEAROPERATORS</font></strong>
50
<a name="line40"> 40: </a><font color="#A020F0">#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)</font>
51
<a name="line41"> 41: </a><strong><font color="#228B22">#define gridgetnumnonlinearoperators_ gridgetnumnonlinearoperators</font></strong>
52
<a name="line42"> 42: </a><font color="#A020F0">#endif</font>
53
<a name="line43"> 43: </a><font color="#A020F0">#endif</font>
55
<a name="line45"> 45: </a><font color="#A020F0">#ifdef MPI_BUILD_PROFILING</font>
56
<a name="line46"> 46: </a><font color="#A020F0">#ifdef PETSC_HAVE_FORTRAN_CAPS</font>
57
<a name="line47"> 47: </a><strong><font color="#228B22">#define gridgetnonlinearoperatorstart_ PGRIDGETNONLINEAROPERATORSTART</font></strong>
58
<a name="line48"> 48: </a><font color="#A020F0">#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)</font>
59
<a name="line49"> 49: </a><strong><font color="#228B22">#define gridgetnonlinearoperatorstart_ pgridgetnonlinearoperatorstart</font></strong>
60
<a name="line50"> 50: </a><font color="#A020F0">#else</font>
61
<a name="line51"> 51: </a><strong><font color="#228B22">#define gridgetnonlinearoperatorstart_ pgridgetnonlinearoperatorstart_</font></strong>
62
<a name="line52"> 52: </a><font color="#A020F0">#endif</font>
63
<a name="line53"> 53: </a><font color="#A020F0">#else</font>
64
<a name="line54"> 54: </a><font color="#A020F0">#ifdef PETSC_HAVE_FORTRAN_CAPS</font>
65
<a name="line55"> 55: </a><strong><font color="#228B22">#define gridgetnonlinearoperatorstart_ GRIDGETNONLINEAROPERATORSTART</font></strong>
66
<a name="line56"> 56: </a><font color="#A020F0">#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)</font>
67
<a name="line57"> 57: </a><strong><font color="#228B22">#define gridgetnonlinearoperatorstart_ gridgetnonlinearoperatorstart</font></strong>
68
<a name="line58"> 58: </a><font color="#A020F0">#endif</font>
69
<a name="line59"> 59: </a><font color="#A020F0">#endif</font>
71
<a name="line61"> 61: </a><font color="#A020F0">#ifdef MPI_BUILD_PROFILING</font>
72
<a name="line62"> 62: </a><font color="#A020F0">#ifdef PETSC_HAVE_FORTRAN_CAPS</font>
73
<a name="line63"> 63: </a><strong><font color="#228B22">#define gridgetnonlinearoperatornext_ PGRIDGETNONLINEAROPERATORNEXT</font></strong>
74
<a name="line64"> 64: </a><font color="#A020F0">#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)</font>
75
<a name="line65"> 65: </a><strong><font color="#228B22">#define gridgetnonlinearoperatornext_ pgridgetnonlinearoperatornext</font></strong>
76
<a name="line66"> 66: </a><font color="#A020F0">#else</font>
77
<a name="line67"> 67: </a><strong><font color="#228B22">#define gridgetnonlinearoperatornext_ pgridgetnonlinearoperatornext_</font></strong>
78
<a name="line68"> 68: </a><font color="#A020F0">#endif</font>
79
<a name="line69"> 69: </a><font color="#A020F0">#else</font>
80
<a name="line70"> 70: </a><font color="#A020F0">#ifdef PETSC_HAVE_FORTRAN_CAPS</font>
81
<a name="line71"> 71: </a><strong><font color="#228B22">#define gridgetnonlinearoperatornext_ GRIDGETNONLINEAROPERATORNEXT</font></strong>
82
<a name="line72"> 72: </a><font color="#A020F0">#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)</font>
83
<a name="line73"> 73: </a><strong><font color="#228B22">#define gridgetnonlinearoperatornext_ gridgetnonlinearoperatornext</font></strong>
84
<a name="line74"> 74: </a><font color="#A020F0">#endif</font>
85
<a name="line75"> 75: </a><font color="#A020F0">#endif</font>
87
<a name="line77"> 77: </a><font color="#A020F0">#ifdef MPI_BUILD_PROFILING</font>
88
<a name="line78"> 78: </a><font color="#A020F0">#ifdef PETSC_HAVE_FORTRAN_CAPS</font>
89
<a name="line79"> 79: </a><strong><font color="#228B22">#define gridismatrixfree_ PGRIDISMATRIXFREE</font></strong>
90
<a name="line80"> 80: </a><font color="#A020F0">#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)</font>
91
<a name="line81"> 81: </a><strong><font color="#228B22">#define gridismatrixfree_ pgridismatrixfree</font></strong>
92
<a name="line82"> 82: </a><font color="#A020F0">#else</font>
93
<a name="line83"> 83: </a><strong><font color="#228B22">#define gridismatrixfree_ pgridismatrixfree_</font></strong>
94
<a name="line84"> 84: </a><font color="#A020F0">#endif</font>
95
<a name="line85"> 85: </a><font color="#A020F0">#else</font>
96
<a name="line86"> 86: </a><font color="#A020F0">#ifdef PETSC_HAVE_FORTRAN_CAPS</font>
97
<a name="line87"> 87: </a><strong><font color="#228B22">#define gridismatrixfree_ GRIDISMATRIXFREE</font></strong>
98
<a name="line88"> 88: </a><font color="#A020F0">#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)</font>
99
<a name="line89"> 89: </a><strong><font color="#228B22">#define gridismatrixfree_ gridismatrixfree</font></strong>
100
<a name="line90"> 90: </a><font color="#A020F0">#endif</font>
101
<a name="line91"> 91: </a><font color="#A020F0">#endif</font>
103
<a name="line93"> 93: </a><font color="#A020F0">#ifdef MPI_BUILD_PROFILING</font>
104
<a name="line94"> 94: </a><font color="#A020F0">#ifdef PETSC_HAVE_FORTRAN_CAPS</font>
105
<a name="line95"> 95: </a><strong><font color="#228B22">#define gridsetmatrixfree_ PGRIDSETMATRIXFREE</font></strong>
106
<a name="line96"> 96: </a><font color="#A020F0">#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)</font>
107
<a name="line97"> 97: </a><strong><font color="#228B22">#define gridsetmatrixfree_ pgridsetmatrixfree</font></strong>
108
<a name="line98"> 98: </a><font color="#A020F0">#else</font>
109
<a name="line99"> 99: </a><strong><font color="#228B22">#define gridsetmatrixfree_ pgridsetmatrixfree_</font></strong>
110
<a name="line100">100: </a><font color="#A020F0">#endif</font>
111
<a name="line101">101: </a><font color="#A020F0">#else</font>
112
<a name="line102">102: </a><font color="#A020F0">#ifdef PETSC_HAVE_FORTRAN_CAPS</font>
113
<a name="line103">103: </a><strong><font color="#228B22">#define gridsetmatrixfree_ GRIDSETMATRIXFREE</font></strong>
114
<a name="line104">104: </a><font color="#A020F0">#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)</font>
115
<a name="line105">105: </a><strong><font color="#228B22">#define gridsetmatrixfree_ gridsetmatrixfree</font></strong>
116
<a name="line106">106: </a><font color="#A020F0">#endif</font>
117
<a name="line107">107: </a><font color="#A020F0">#endif</font>
119
<a name="line109">109: </a><font color="#A020F0">#ifdef MPI_BUILD_PROFILING</font>
120
<a name="line110">110: </a><font color="#A020F0">#ifdef PETSC_HAVE_FORTRAN_CAPS</font>
121
<a name="line111">111: </a><strong><font color="#228B22">#define gridgetnumrhsoperators_ PGRIDGETNUMRHSOPERATORS</font></strong>
122
<a name="line112">112: </a><font color="#A020F0">#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)</font>
123
<a name="line113">113: </a><strong><font color="#228B22">#define gridgetnumrhsoperators_ pgridgetnumrhsoperators</font></strong>
124
<a name="line114">114: </a><font color="#A020F0">#else</font>
125
<a name="line115">115: </a><strong><font color="#228B22">#define gridgetnumrhsoperators_ pgridgetnumrhsoperators_</font></strong>
126
<a name="line116">116: </a><font color="#A020F0">#endif</font>
127
<a name="line117">117: </a><font color="#A020F0">#else</font>
128
<a name="line118">118: </a><font color="#A020F0">#ifdef PETSC_HAVE_FORTRAN_CAPS</font>
129
<a name="line119">119: </a><strong><font color="#228B22">#define gridgetnumrhsoperators_ GRIDGETNUMRHSOPERATORS</font></strong>
130
<a name="line120">120: </a><font color="#A020F0">#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)</font>
131
<a name="line121">121: </a><strong><font color="#228B22">#define gridgetnumrhsoperators_ gridgetnumrhsoperators</font></strong>
132
<a name="line122">122: </a><font color="#A020F0">#endif</font>
133
<a name="line123">123: </a><font color="#A020F0">#endif</font>
135
<a name="line125">125: </a><font color="#A020F0">#ifdef MPI_BUILD_PROFILING</font>
136
<a name="line126">126: </a><font color="#A020F0">#ifdef PETSC_HAVE_FORTRAN_CAPS</font>
137
<a name="line127">127: </a><strong><font color="#228B22">#define gridgetnummatoperators_ PGRIDGETNUMMATOPERATORS</font></strong>
138
<a name="line128">128: </a><font color="#A020F0">#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)</font>
139
<a name="line129">129: </a><strong><font color="#228B22">#define gridgetnummatoperators_ pgridgetnummatoperators</font></strong>
140
<a name="line130">130: </a><font color="#A020F0">#else</font>
141
<a name="line131">131: </a><strong><font color="#228B22">#define gridgetnummatoperators_ pgridgetnummatoperators_</font></strong>
142
<a name="line132">132: </a><font color="#A020F0">#endif</font>
143
<a name="line133">133: </a><font color="#A020F0">#else</font>
144
<a name="line134">134: </a><font color="#A020F0">#ifdef PETSC_HAVE_FORTRAN_CAPS</font>
145
<a name="line135">135: </a><strong><font color="#228B22">#define gridgetnummatoperators_ GRIDGETNUMMATOPERATORS</font></strong>
146
<a name="line136">136: </a><font color="#A020F0">#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)</font>
147
<a name="line137">137: </a><strong><font color="#228B22">#define gridgetnummatoperators_ gridgetnummatoperators</font></strong>
148
<a name="line138">138: </a><font color="#A020F0">#endif</font>
149
<a name="line139">139: </a><font color="#A020F0">#endif</font>
151
<a name="line141">141: </a><font color="#A020F0">#ifdef MPI_BUILD_PROFILING</font>
152
<a name="line142">142: </a><font color="#A020F0">#ifdef PETSC_HAVE_FORTRAN_CAPS</font>
153
<a name="line143">143: </a><strong><font color="#228B22">#define gridgetmatoperatorstart_ PGRIDGETMATOPERATORSTART</font></strong>
154
<a name="line144">144: </a><font color="#A020F0">#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)</font>
155
<a name="line145">145: </a><strong><font color="#228B22">#define gridgetmatoperatorstart_ pgridgetmatoperatorstart</font></strong>
156
<a name="line146">146: </a><font color="#A020F0">#else</font>
157
<a name="line147">147: </a><strong><font color="#228B22">#define gridgetmatoperatorstart_ pgridgetmatoperatorstart_</font></strong>
158
<a name="line148">148: </a><font color="#A020F0">#endif</font>
159
<a name="line149">149: </a><font color="#A020F0">#else</font>
160
<a name="line150">150: </a><font color="#A020F0">#ifdef PETSC_HAVE_FORTRAN_CAPS</font>
161
<a name="line151">151: </a><strong><font color="#228B22">#define gridgetmatoperatorstart_ GRIDGETMATOPERATORSTART</font></strong>
162
<a name="line152">152: </a><font color="#A020F0">#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)</font>
163
<a name="line153">153: </a><strong><font color="#228B22">#define gridgetmatoperatorstart_ gridgetmatoperatorstart</font></strong>
164
<a name="line154">154: </a><font color="#A020F0">#endif</font>
165
<a name="line155">155: </a><font color="#A020F0">#endif</font>
167
<a name="line157">157: </a><font color="#A020F0">#ifdef MPI_BUILD_PROFILING</font>
168
<a name="line158">158: </a><font color="#A020F0">#ifdef PETSC_HAVE_FORTRAN_CAPS</font>
169
<a name="line159">159: </a><strong><font color="#228B22">#define gridgetmatoperatornext_ PGRIDGETMATOPERATORNEXT</font></strong>
170
<a name="line160">160: </a><font color="#A020F0">#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)</font>
171
<a name="line161">161: </a><strong><font color="#228B22">#define gridgetmatoperatornext_ pgridgetmatoperatornext</font></strong>
172
<a name="line162">162: </a><font color="#A020F0">#else</font>
173
<a name="line163">163: </a><strong><font color="#228B22">#define gridgetmatoperatornext_ pgridgetmatoperatornext_</font></strong>
174
<a name="line164">164: </a><font color="#A020F0">#endif</font>
175
<a name="line165">165: </a><font color="#A020F0">#else</font>
176
<a name="line166">166: </a><font color="#A020F0">#ifdef PETSC_HAVE_FORTRAN_CAPS</font>
177
<a name="line167">167: </a><strong><font color="#228B22">#define gridgetmatoperatornext_ GRIDGETMATOPERATORNEXT</font></strong>
178
<a name="line168">168: </a><font color="#A020F0">#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)</font>
179
<a name="line169">169: </a><strong><font color="#228B22">#define gridgetmatoperatornext_ gridgetmatoperatornext</font></strong>
180
<a name="line170">170: </a><font color="#A020F0">#endif</font>
181
<a name="line171">171: </a><font color="#A020F0">#endif</font>
185
<a name="line175">175: </a><font color="#B22222">/* Definitions of Fortran Wrapper routines */</font>
186
<a name="line176">176: </a><font color="#A020F0">#if defined(__cplusplus)</font>
187
<a name="line177">177: </a>extern <font color="#666666">"C"</font> {
188
<a name="line178">178: </a><font color="#A020F0">#endif</font>
189
<a name="line179">179: </a><strong><font color="#4169E1"><a name="gridgetnumnonlinearoperators_"></a>void PETSC_STDCALL gridgetnumnonlinearoperators_(Grid grid,int *numOps, int *ierr )</font></strong>{
190
<a name="line180">180: </a><strong><font color="#4169E1">*<A href="../../../docs/manualpages/Grid/GridGetNumNonlinearOperators.html#GridGetNumNonlinearOperators">GridGetNumNonlinearOperators</A>(</font></strong>
191
<a name="line181">181: </a><strong><font color="#4169E1"> (Grid)PetscToPointer( (grid) ),numOps)</font></strong>;
192
<a name="line182">182: </a>}
193
<a name="line183">183: </a><strong><font color="#4169E1"><a name="gridgetnonlinearoperatorstart_"></a>void PETSC_STDCALL gridgetnonlinearoperatorstart_(Grid grid,NonlinearOperator *op,int *field,<A href="../../../docs/manualpages/Sys/PetscScalar.html#PetscScalar">PetscScalar</A> *alpha,<A href="../../../docs/manualpages/Sys/PetscTruth.html#PetscTruth">PetscTruth</A> *isALE, int *ierr )</font></strong>{
194
<a name="line184">184: </a><strong><font color="#4169E1">*<A href="../../../docs/manualpages/Grid/GridGetNonlinearOperatorStart.html#GridGetNonlinearOperatorStart">GridGetNonlinearOperatorStart</A>(</font></strong>
195
<a name="line185">185: </a><strong><font color="#4169E1"> (Grid)PetscToPointer( (grid) ),</font></strong>
196
<a name="line186">186: </a><strong><font color="#4169E1"> (NonlinearOperator* )PetscToPointer( (op) ),field,alpha,isALE)</font></strong>;
197
<a name="line187">187: </a>}
198
<a name="line188">188: </a><strong><font color="#4169E1"><a name="gridgetnonlinearoperatornext_"></a>void PETSC_STDCALL gridgetnonlinearoperatornext_(Grid grid,NonlinearOperator *op,int *field,<A href="../../../docs/manualpages/Sys/PetscScalar.html#PetscScalar">PetscScalar</A> *alpha,<A href="../../../docs/manualpages/Sys/PetscTruth.html#PetscTruth">PetscTruth</A> *isALE, int *ierr )</font></strong>{
199
<a name="line189">189: </a><strong><font color="#4169E1">*<A href="../../../docs/manualpages/Grid/GridGetNonlinearOperatorNext.html#GridGetNonlinearOperatorNext">GridGetNonlinearOperatorNext</A>(</font></strong>
200
<a name="line190">190: </a><strong><font color="#4169E1"> (Grid)PetscToPointer( (grid) ),</font></strong>
201
<a name="line191">191: </a><strong><font color="#4169E1"> (NonlinearOperator* )PetscToPointer( (op) ),field,alpha,isALE)</font></strong>;
202
<a name="line192">192: </a>}
203
<a name="line193">193: </a><strong><font color="#4169E1"><a name="gridismatrixfree_"></a>void PETSC_STDCALL gridismatrixfree_(Grid grid,<A href="../../../docs/manualpages/Sys/PetscTruth.html#PetscTruth">PetscTruth</A> *isMatrixFree, int *ierr )</font></strong>{
204
<a name="line194">194: </a><strong><font color="#4169E1">*<A href="../../../docs/manualpages/Grid/GridIsMatrixFree.html#GridIsMatrixFree">GridIsMatrixFree</A>(</font></strong>
205
<a name="line195">195: </a><strong><font color="#4169E1"> (Grid)PetscToPointer( (grid) ),isMatrixFree)</font></strong>;
206
<a name="line196">196: </a>}
207
<a name="line197">197: </a><strong><font color="#4169E1"><a name="gridsetmatrixfree_"></a>void PETSC_STDCALL gridsetmatrixfree_(Grid grid,<A href="../../../docs/manualpages/Sys/PetscTruth.html#PetscTruth">PetscTruth</A> *isMatrixFree, int *ierr )</font></strong>{
208
<a name="line198">198: </a><strong><font color="#4169E1">*<A href="../../../docs/manualpages/Grid/GridSetMatrixFree.html#GridSetMatrixFree">GridSetMatrixFree</A>(</font></strong>
209
<a name="line199">199: </a><strong><font color="#4169E1"> (Grid)PetscToPointer( (grid) ),*isMatrixFree)</font></strong>;
210
<a name="line200">200: </a>}
211
<a name="line201">201: </a><strong><font color="#4169E1"><a name="gridgetnumrhsoperators_"></a>void PETSC_STDCALL gridgetnumrhsoperators_(Grid grid,int *numOps, int *ierr )</font></strong>{
212
<a name="line202">202: </a><strong><font color="#4169E1">*<A href="../../../docs/manualpages/Grid/GridGetNumRhsOperators.html#GridGetNumRhsOperators">GridGetNumRhsOperators</A>(</font></strong>
213
<a name="line203">203: </a><strong><font color="#4169E1"> (Grid)PetscToPointer( (grid) ),numOps)</font></strong>;
214
<a name="line204">204: </a>}
215
<a name="line205">205: </a><strong><font color="#4169E1"><a name="gridgetnummatoperators_"></a>void PETSC_STDCALL gridgetnummatoperators_(Grid grid,int *numOps, int *ierr )</font></strong>{
216
<a name="line206">206: </a><strong><font color="#4169E1">*<A href="../../../docs/manualpages/Grid/GridGetNumMatOperators.html#GridGetNumMatOperators">GridGetNumMatOperators</A>(</font></strong>
217
<a name="line207">207: </a><strong><font color="#4169E1"> (Grid)PetscToPointer( (grid) ),numOps)</font></strong>;
218
<a name="line208">208: </a>}
219
<a name="line209">209: </a><strong><font color="#4169E1"><a name="gridgetmatoperatorstart_"></a>void PETSC_STDCALL gridgetmatoperatorstart_(Grid grid,int *op,int *sField,int *tField,<A href="../../../docs/manualpages/Sys/PetscScalar.html#PetscScalar">PetscScalar</A> *alpha,<A href="../../../docs/manualpages/Sys/PetscTruth.html#PetscTruth">PetscTruth</A> *isALE, int *ierr )</font></strong>{
220
<a name="line210">210: </a><strong><font color="#4169E1">*<A href="../../../docs/manualpages/Grid/GridGetMatOperatorStart.html#GridGetMatOperatorStart">GridGetMatOperatorStart</A>(</font></strong>
221
<a name="line211">211: </a><strong><font color="#4169E1"> (Grid)PetscToPointer( (grid) ),op,sField,tField,alpha,isALE)</font></strong>;
222
<a name="line212">212: </a>}
223
<a name="line213">213: </a><strong><font color="#4169E1"><a name="gridgetmatoperatornext_"></a>void PETSC_STDCALL gridgetmatoperatornext_(Grid grid,int *op,int *sField,int *tField,<A href="../../../docs/manualpages/Sys/PetscScalar.html#PetscScalar">PetscScalar</A> *alpha,<A href="../../../docs/manualpages/Sys/PetscTruth.html#PetscTruth">PetscTruth</A> *isALE, int *ierr )</font></strong>{
224
<a name="line214">214: </a><strong><font color="#4169E1">*<A href="../../../docs/manualpages/Grid/GridGetMatOperatorNext.html#GridGetMatOperatorNext">GridGetMatOperatorNext</A>(</font></strong>
225
<a name="line215">215: </a><strong><font color="#4169E1"> (Grid)PetscToPointer( (grid) ),op,sField,tField,alpha,isALE)</font></strong>;
226
<a name="line216">216: </a>}
227
<a name="line217">217: </a><font color="#A020F0">#if defined(__cplusplus)</font>
228
<a name="line218">218: </a>}
229
<a name="line219">219: </a><font color="#A020F0">#endif</font>