← Back to branch summary

~ubuntu-branches/ubuntu/warty/petsc/warty

« back to all changes in this revision

Viewing changes to src/sys/src/mpiuni/mpi.c.html

  • Committer: Bazaar Package Importer
  • Author(s): Adam C. Powell, IV
  • Date: 2004-06-07 13:41:43 UTC
  • mfrom: (1.1.1 upstream)
  • Revision ID: james.westby@ubuntu.com-20040607134143-92p586zrauvie0le
Tags: 2.2.0-2
http://bugs.debian.org/249617
* Upstream patch level 2.
* New PETSC_BOPT_EXTRA option for different BOPT and lib names, with _c++
  symlinks only for plain and single (closes: #249617).
* New DEBIAN_DIST=contrib option to link with hypre, parmetis (closes:
  #249619).
* Combined petsc-c and petsc-fortran substvars into petsc-compilers.
* Extra quote in -dev prerm eliminates "too many arguments" problem.

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/sys/src/mpiuni/mpi.c.html
3
3
<html>
4
4
<head>
5
5
<title></title>
6
 
<meta name="generator" content="c2html 0.9.1">
7
 
<meta name="date" content="2002-05-31T15:59:45+00:00">
 
6
<meta name="generator" content="c2html 0.9.4">
 
7
<meta name="date" content="2004-02-27T19:57:04+00:00">
8
8
</head>
9
9
 
10
10
<body bgcolor="#FFFFFF">
14
14
<a name="line4">  4: </a><font color="#B22222">      This provides a few of the MPI-uni functions that cannot be implemented</font>
15
15
<a name="line5">  5: </a><font color="#B22222">    with C macros</font>
16
16
<a name="line6">  6: </a><font color="#B22222">*/</font>
17
 
<a name="line7"> 7: </a> #include <A href="mpi.h.html">mpi.h</A>
 
17
<a name="line7"> 7: </a> #include <A href="../../../../include/mpiuni/mpi.h.html">include/mpiuni/mpi.h</A>
18
18
 
19
19
<a name="line9">  9: </a><font color="#A020F0">#if defined (MPIUNI_USE_STDCALL)</font>
20
20
<a name="line10"> 10: </a><strong><font color="#228B22">#define MPIUNI_STDCALL __stdcall</font></strong>
86
86
<a name="line76"> 76: </a>  <font color="#4169E1">return</font> MPI_SUCCESS;
87
87
<a name="line77"> 77: </a>}
88
88
 
89
 
<a name="line79"> 79: </a><strong><font color="#4169E1"><a name="Petsc_MPI_Attr_put"></a>int Petsc_MPI_Attr_put(MPI_Comm <A href="../../../../docs/manualpages/Sys/comm.html#comm">comm</A>,int keyval,void *attribute_val)</font></strong>
 
89
<a name="line79"> 79: </a><strong><font color="#4169E1"><a name="Petsc_MPI_Attr_put"></a>int Petsc_MPI_Attr_put(<A href="../../../../docs/manualpages/Sys/MPI_Comm.html#MPI_Comm">MPI_Comm</A> <A href="../../../../docs/manualpages/Sys/comm.html#comm">comm</A>,int keyval,void *attribute_val)</font></strong>
90
90
<a name="line80"> 80: </a>{
91
91
<a name="line81"> 81: </a>  attr[keyval].active        = 1;
92
92
<a name="line82"> 82: </a>  attr[keyval].attribute_val = attribute_val;
93
93
<a name="line83"> 83: </a>  <font color="#4169E1">return</font> MPI_SUCCESS;
94
94
<a name="line84"> 84: </a>}
95
95
<a name="line85"> 85: </a>
96
 
<a name="line86"> 86: </a><strong><font color="#4169E1"><a name="Petsc_MPI_Attr_delete"></a>int Petsc_MPI_Attr_delete(MPI_Comm <A href="../../../../docs/manualpages/Sys/comm.html#comm">comm</A>,int keyval)</font></strong>
 
96
<a name="line86"> 86: </a><strong><font color="#4169E1"><a name="Petsc_MPI_Attr_delete"></a>int Petsc_MPI_Attr_delete(<A href="../../../../docs/manualpages/Sys/MPI_Comm.html#MPI_Comm">MPI_Comm</A> <A href="../../../../docs/manualpages/Sys/comm.html#comm">comm</A>,int keyval)</font></strong>
97
97
<a name="line87"> 87: </a>{
98
98
<a name="line88"> 88: </a>  <font color="#4169E1">if</font> (attr[keyval].active &amp;&amp; attr[keyval].del) {
99
99
<a name="line89"> 89: </a>    (*(attr[keyval].del))(<A href="../../../../docs/manualpages/Sys/comm.html#comm">comm</A>,keyval,attr[keyval].attribute_val,attr[keyval].extra_state);
103
103
<a name="line93"> 93: </a>  <font color="#4169E1">return</font> MPI_SUCCESS;
104
104
<a name="line94"> 94: </a>}
105
105
 
106
 
<a name="line96"> 96: </a><strong><font color="#4169E1"><a name="Petsc_MPI_Attr_get"></a>int Petsc_MPI_Attr_get(MPI_Comm <A href="../../../../docs/manualpages/Sys/comm.html#comm">comm</A>,int keyval,void *attribute_val,int *flag)</font></strong>
 
106
<a name="line96"> 96: </a><strong><font color="#4169E1"><a name="Petsc_MPI_Attr_get"></a>int Petsc_MPI_Attr_get(<A href="../../../../docs/manualpages/Sys/MPI_Comm.html#MPI_Comm">MPI_Comm</A> <A href="../../../../docs/manualpages/Sys/comm.html#comm">comm</A>,int keyval,void *attribute_val,int *flag)</font></strong>
107
107
<a name="line97"> 97: </a>{
108
108
<a name="line98"> 98: </a>  <font color="#4169E1">if</font> (!keyval) Keyval_setup();
109
109
<a name="line99"> 99: </a>  *flag                  = attr[keyval].active;
112
112
<a name="line102">102: </a>}
113
113
 
114
114
<a name="line104">104: </a>static int dups = 0;
115
 
<a name="line105">105: </a><strong><font color="#4169E1"><a name="Petsc_MPI_Comm_dup"></a>int Petsc_MPI_Comm_dup(MPI_Comm <A href="../../../../docs/manualpages/Sys/comm.html#comm">comm</A>,MPI_Comm *out)</font></strong>
 
115
<a name="line105">105: </a><strong><font color="#4169E1"><a name="Petsc_MPI_Comm_dup"></a>int Petsc_MPI_Comm_dup(<A href="../../../../docs/manualpages/Sys/MPI_Comm.html#MPI_Comm">MPI_Comm</A> <A href="../../../../docs/manualpages/Sys/comm.html#comm">comm</A>,<A href="../../../../docs/manualpages/Sys/MPI_Comm.html#MPI_Comm">MPI_Comm</A> *out)</font></strong>
116
116
<a name="line106">106: </a>{
117
117
<a name="line107">107: </a>  *out = <A href="../../../../docs/manualpages/Sys/comm.html#comm">comm</A>;
118
118
<a name="line108">108: </a>  dups++;
119
119
<a name="line109">109: </a>  <font color="#4169E1">return</font> 0;
120
120
<a name="line110">110: </a>}
121
121
 
122
 
<a name="line112">112: </a><strong><font color="#4169E1"><a name="Petsc_MPI_Comm_free"></a>int Petsc_MPI_Comm_free(MPI_Comm *<A href="../../../../docs/manualpages/Sys/comm.html#comm">comm</A>)</font></strong>
 
122
<a name="line112">112: </a><strong><font color="#4169E1"><a name="Petsc_MPI_Comm_free"></a>int Petsc_MPI_Comm_free(<A href="../../../../docs/manualpages/Sys/MPI_Comm.html#MPI_Comm">MPI_Comm</A> *<A href="../../../../docs/manualpages/Sys/comm.html#comm">comm</A>)</font></strong>
123
123
<a name="line113">113: </a>{
124
124
<a name="line114">114: </a>  int i;
125
125
 
135
135
 
136
136
<a name="line126">126: </a><font color="#B22222">/* --------------------------------------------------------------------------*/</font>
137
137
 
138
 
<a name="line128">128: </a><strong><font color="#4169E1"><a name="Petsc_MPI_Abort"></a>int Petsc_MPI_Abort(MPI_Comm <A href="../../../../docs/manualpages/Sys/comm.html#comm">comm</A>,int errorcode)</font></strong>
 
138
<a name="line128">128: </a><strong><font color="#4169E1"><a name="Petsc_MPI_Abort"></a>int Petsc_MPI_Abort(<A href="../../../../docs/manualpages/Sys/MPI_Comm.html#MPI_Comm">MPI_Comm</A> <A href="../../../../docs/manualpages/Sys/comm.html#comm">comm</A>,int errorcode)</font></strong>
139
139
<a name="line129">129: </a>{
140
140
<a name="line130">130: </a>  abort();
141
141
<a name="line131">131: </a>  <font color="#4169E1">return</font> MPI_SUCCESS;
208
208
<a name="line198">198: </a>}
209
209
 
210
210
<a name="line200">200: </a><font color="#B22222">/******mpi_comm_size*******/</font>
211
 
<a name="line201">201: </a><strong><font color="#4169E1"><a name="mpi_comm_size"></a>void MPIUNI_STDCALL mpi_comm_size(MPI_Comm *<A href="../../../../docs/manualpages/Sys/comm.html#comm">comm</A>,int *<A href="../../../../docs/manualpages/Sys/size.html#size">size</A>,int *ierr)</font></strong>
 
211
<a name="line201">201: </a><strong><font color="#4169E1"><a name="mpi_comm_size"></a>void MPIUNI_STDCALL mpi_comm_size(<A href="../../../../docs/manualpages/Sys/MPI_Comm.html#MPI_Comm">MPI_Comm</A> *<A href="../../../../docs/manualpages/Sys/comm.html#comm">comm</A>,int *<A href="../../../../docs/manualpages/Sys/size.html#size">size</A>,int *ierr)</font></strong>
212
212
<a name="line202">202: </a>{
213
213
<a name="line203">203: </a>  *<A href="../../../../docs/manualpages/Sys/size.html#size">size</A> = 1;
214
214
<a name="line204">204: </a>  *0;
215
215
<a name="line205">205: </a>}
216
216
 
217
 
<a name="line207">207: </a><strong><font color="#4169E1"><a name="mpi_comm_size_"></a>void MPIUNI_STDCALL mpi_comm_size_(MPI_Comm *<A href="../../../../docs/manualpages/Sys/comm.html#comm">comm</A>,int *<A href="../../../../docs/manualpages/Sys/size.html#size">size</A>,int *ierr)</font></strong>
 
217
<a name="line207">207: </a><strong><font color="#4169E1"><a name="mpi_comm_size_"></a>void MPIUNI_STDCALL mpi_comm_size_(<A href="../../../../docs/manualpages/Sys/MPI_Comm.html#MPI_Comm">MPI_Comm</A> *<A href="../../../../docs/manualpages/Sys/comm.html#comm">comm</A>,int *<A href="../../../../docs/manualpages/Sys/size.html#size">size</A>,int *ierr)</font></strong>
218
218
<a name="line208">208: </a>{
219
219
<a name="line209">209: </a>  *<A href="../../../../docs/manualpages/Sys/size.html#size">size</A> = 1;
220
220
<a name="line210">210: </a>  *0;
221
221
<a name="line211">211: </a>}
222
222
 
223
 
<a name="line213">213: </a><strong><font color="#4169E1"><a name="mpi_comm_size__"></a>void MPIUNI_STDCALL mpi_comm_size__(MPI_Comm *<A href="../../../../docs/manualpages/Sys/comm.html#comm">comm</A>,int *<A href="../../../../docs/manualpages/Sys/size.html#size">size</A>,int *ierr)</font></strong>
 
223
<a name="line213">213: </a><strong><font color="#4169E1"><a name="mpi_comm_size__"></a>void MPIUNI_STDCALL mpi_comm_size__(<A href="../../../../docs/manualpages/Sys/MPI_Comm.html#MPI_Comm">MPI_Comm</A> *<A href="../../../../docs/manualpages/Sys/comm.html#comm">comm</A>,int *<A href="../../../../docs/manualpages/Sys/size.html#size">size</A>,int *ierr)</font></strong>
224
224
<a name="line214">214: </a>{
225
225
<a name="line215">215: </a>  *<A href="../../../../docs/manualpages/Sys/size.html#size">size</A> = 1;
226
226
<a name="line216">216: </a>  *0;
227
227
<a name="line217">217: </a>}
228
228
 
229
 
<a name="line219">219: </a><strong><font color="#4169E1"><a name="MPI_COMM_SIZE"></a>void MPIUNI_STDCALL MPI_COMM_SIZE(MPI_Comm *<A href="../../../../docs/manualpages/Sys/comm.html#comm">comm</A>,int *<A href="../../../../docs/manualpages/Sys/size.html#size">size</A>,int *ierr)</font></strong>
 
229
<a name="line219">219: </a><strong><font color="#4169E1"><a name="MPI_COMM_SIZE"></a>void MPIUNI_STDCALL MPI_COMM_SIZE(<A href="../../../../docs/manualpages/Sys/MPI_Comm.html#MPI_Comm">MPI_Comm</A> *<A href="../../../../docs/manualpages/Sys/comm.html#comm">comm</A>,int *<A href="../../../../docs/manualpages/Sys/size.html#size">size</A>,int *ierr)</font></strong>
230
230
<a name="line220">220: </a>{
231
231
<a name="line221">221: </a>  *<A href="../../../../docs/manualpages/Sys/size.html#size">size</A> = 1;
232
232
<a name="line222">222: </a>  *0;
233
233
<a name="line223">223: </a>}
234
234
 
235
235
<a name="line225">225: </a><font color="#B22222">/******mpi_comm_rank*******/</font>
236
 
<a name="line226">226: </a><strong><font color="#4169E1"><a name="mpi_comm_rank"></a>void MPIUNI_STDCALL mpi_comm_rank(MPI_Comm *<A href="../../../../docs/manualpages/Sys/comm.html#comm">comm</A>,int *<A href="../../../../docs/manualpages/Sys/rank.html#rank">rank</A>,int *ierr)</font></strong>
 
236
<a name="line226">226: </a><strong><font color="#4169E1"><a name="mpi_comm_rank"></a>void MPIUNI_STDCALL mpi_comm_rank(<A href="../../../../docs/manualpages/Sys/MPI_Comm.html#MPI_Comm">MPI_Comm</A> *<A href="../../../../docs/manualpages/Sys/comm.html#comm">comm</A>,int *<A href="../../../../docs/manualpages/Sys/rank.html#rank">rank</A>,int *ierr)</font></strong>
237
237
<a name="line227">227: </a>{
238
238
<a name="line228">228: </a>  *<A href="../../../../docs/manualpages/Sys/rank.html#rank">rank</A>=0;
239
239
<a name="line229">229: </a>  *ierr=MPI_SUCCESS;
240
240
<a name="line230">230: </a>}
241
241
 
242
 
<a name="line232">232: </a><strong><font color="#4169E1"><a name="mpi_comm_rank_"></a>void MPIUNI_STDCALL mpi_comm_rank_(MPI_Comm *<A href="../../../../docs/manualpages/Sys/comm.html#comm">comm</A>,int *<A href="../../../../docs/manualpages/Sys/rank.html#rank">rank</A>,int *ierr)</font></strong>
 
242
<a name="line232">232: </a><strong><font color="#4169E1"><a name="mpi_comm_rank_"></a>void MPIUNI_STDCALL mpi_comm_rank_(<A href="../../../../docs/manualpages/Sys/MPI_Comm.html#MPI_Comm">MPI_Comm</A> *<A href="../../../../docs/manualpages/Sys/comm.html#comm">comm</A>,int *<A href="../../../../docs/manualpages/Sys/rank.html#rank">rank</A>,int *ierr)</font></strong>
243
243
<a name="line233">233: </a>{
244
244
<a name="line234">234: </a>  *<A href="../../../../docs/manualpages/Sys/rank.html#rank">rank</A>=0;
245
245
<a name="line235">235: </a>  *ierr=MPI_SUCCESS;
246
246
<a name="line236">236: </a>}
247
247
 
248
 
<a name="line238">238: </a><strong><font color="#4169E1"><a name="mpi_comm_rank__"></a>void MPIUNI_STDCALL mpi_comm_rank__(MPI_Comm *<A href="../../../../docs/manualpages/Sys/comm.html#comm">comm</A>,int *<A href="../../../../docs/manualpages/Sys/rank.html#rank">rank</A>,int *ierr)</font></strong>
 
248
<a name="line238">238: </a><strong><font color="#4169E1"><a name="mpi_comm_rank__"></a>void MPIUNI_STDCALL mpi_comm_rank__(<A href="../../../../docs/manualpages/Sys/MPI_Comm.html#MPI_Comm">MPI_Comm</A> *<A href="../../../../docs/manualpages/Sys/comm.html#comm">comm</A>,int *<A href="../../../../docs/manualpages/Sys/rank.html#rank">rank</A>,int *ierr)</font></strong>
249
249
<a name="line239">239: </a>{
250
250
<a name="line240">240: </a>  *<A href="../../../../docs/manualpages/Sys/rank.html#rank">rank</A>=0;
251
251
<a name="line241">241: </a>  *ierr=MPI_SUCCESS;
252
252
<a name="line242">242: </a>}
253
253
 
254
 
<a name="line244">244: </a><strong><font color="#4169E1"><a name="MPI_COMM_RANK"></a>void MPIUNI_STDCALL MPI_COMM_RANK(MPI_Comm *<A href="../../../../docs/manualpages/Sys/comm.html#comm">comm</A>,int *<A href="../../../../docs/manualpages/Sys/rank.html#rank">rank</A>,int *ierr)</font></strong>
 
254
<a name="line244">244: </a><strong><font color="#4169E1"><a name="MPI_COMM_RANK"></a>void MPIUNI_STDCALL MPI_COMM_RANK(<A href="../../../../docs/manualpages/Sys/MPI_Comm.html#MPI_Comm">MPI_Comm</A> *<A href="../../../../docs/manualpages/Sys/comm.html#comm">comm</A>,int *<A href="../../../../docs/manualpages/Sys/rank.html#rank">rank</A>,int *ierr)</font></strong>
255
255
<a name="line245">245: </a>{
256
256
<a name="line246">246: </a>  *<A href="../../../../docs/manualpages/Sys/rank.html#rank">rank</A>=0;
257
257
<a name="line247">247: </a>  *ierr=MPI_SUCCESS;
258
258
<a name="line248">248: </a>}
259
259
 
260
260
<a name="line250">250: </a><font color="#B22222">/*******mpi_abort******/</font>
261
 
<a name="line251">251: </a><strong><font color="#4169E1"><a name="mpi_abort"></a>void MPIUNI_STDCALL mpi_abort(MPI_Comm *<A href="../../../../docs/manualpages/Sys/comm.html#comm">comm</A>,int *errorcode,int *ierr)</font></strong>
 
261
<a name="line251">251: </a><strong><font color="#4169E1"><a name="mpi_abort"></a>void MPIUNI_STDCALL mpi_abort(<A href="../../../../docs/manualpages/Sys/MPI_Comm.html#MPI_Comm">MPI_Comm</A> *<A href="../../../../docs/manualpages/Sys/comm.html#comm">comm</A>,int *errorcode,int *ierr)</font></strong>
262
262
<a name="line252">252: </a>{
263
263
<a name="line253">253: </a>  abort();
264
264
<a name="line254">254: </a>  *MPI_SUCCESS;
265
265
<a name="line255">255: </a>}
266
266
 
267
 
<a name="line257">257: </a><strong><font color="#4169E1"><a name="mpi_abort_"></a>void MPIUNI_STDCALL mpi_abort_(MPI_Comm *<A href="../../../../docs/manualpages/Sys/comm.html#comm">comm</A>,int *errorcode,int *ierr)</font></strong>
 
267
<a name="line257">257: </a><strong><font color="#4169E1"><a name="mpi_abort_"></a>void MPIUNI_STDCALL mpi_abort_(<A href="../../../../docs/manualpages/Sys/MPI_Comm.html#MPI_Comm">MPI_Comm</A> *<A href="../../../../docs/manualpages/Sys/comm.html#comm">comm</A>,int *errorcode,int *ierr)</font></strong>
268
268
<a name="line258">258: </a>{
269
269
<a name="line259">259: </a>  abort();
270
270
<a name="line260">260: </a>  *MPI_SUCCESS;
271
271
<a name="line261">261: </a>}
272
272
 
273
 
<a name="line263">263: </a><strong><font color="#4169E1"><a name="mpi_abort__"></a>void MPIUNI_STDCALL mpi_abort__(MPI_Comm *<A href="../../../../docs/manualpages/Sys/comm.html#comm">comm</A>,int *errorcode,int *ierr)</font></strong>
 
273
<a name="line263">263: </a><strong><font color="#4169E1"><a name="mpi_abort__"></a>void MPIUNI_STDCALL mpi_abort__(<A href="../../../../docs/manualpages/Sys/MPI_Comm.html#MPI_Comm">MPI_Comm</A> *<A href="../../../../docs/manualpages/Sys/comm.html#comm">comm</A>,int *errorcode,int *ierr)</font></strong>
274
274
<a name="line264">264: </a>{
275
275
<a name="line265">265: </a>  abort();
276
276
<a name="line266">266: </a>  *MPI_SUCCESS;
277
277
<a name="line267">267: </a>}
278
278
 
279
 
<a name="line269">269: </a><strong><font color="#4169E1"><a name="MPI_ABORT"></a>void MPIUNI_STDCALL MPI_ABORT(MPI_Comm *<A href="../../../../docs/manualpages/Sys/comm.html#comm">comm</A>,int *errorcode,int *ierr)</font></strong>
 
279
<a name="line269">269: </a><strong><font color="#4169E1"><a name="MPI_ABORT"></a>void MPIUNI_STDCALL MPI_ABORT(<A href="../../../../docs/manualpages/Sys/MPI_Comm.html#MPI_Comm">MPI_Comm</A> *<A href="../../../../docs/manualpages/Sys/comm.html#comm">comm</A>,int *errorcode,int *ierr)</font></strong>
280
280
<a name="line270">270: </a>{
281
281
<a name="line271">271: </a>  abort();
282
282
<a name="line272">272: </a>  *MPI_SUCCESS;