Context Navigation

← Previous Revision
Latest Revision
Next Revision →
Blame
Revision Log

petscvec.h90@ 11896

Last change on this file since 11896 was 11896, checked in by habbalf, 13 years ago
petsc-dev : Petsc development code in external packages. Mercurial updates
File size: 20.9 KB

Line
1	subroutine VecGhostGetLocalForm(g, l ,ierr)
2	Vec g ! Vec
3	Vec l ! Vec
4	integer ierr
5	end subroutine
6	subroutine VecGhostRestoreLocalForm(g, l ,ierr)
7	Vec g ! Vec
8	Vec l ! Vec
9	integer ierr
10	end subroutine
11	subroutine VecGhostUpdateBegin(g, insertmode, scattermode ,ierr)
12	Vec g ! Vec
13	InsertMode insertmode ! InsertMode
14	ScatterMode scattermode ! ScatterMode
15	integer ierr
16	end subroutine
17	subroutine VecGhostUpdateEnd(g, insertmode, scattermode ,ierr)
18	Vec g ! Vec
19	InsertMode insertmode ! InsertMode
20	ScatterMode scattermode ! ScatterMode
21	integer ierr
22	end subroutine
23	subroutine VecCreateGhost(comm, n, nupper, nghost, ghosts, vv , &
24	&ierr)
25	integer comm ! MPI_Comm
26	PetscInt n ! PetscInt
27	PetscInt nupper ! PetscInt
28	PetscInt nghost ! PetscInt
29	PetscInt ghosts (*) ! PetscInt
30	Vec vv ! Vec
31	integer ierr
32	end subroutine
33	subroutine VecMPISetGhost(vv, nghost, ghosts ,ierr)
34	Vec vv ! Vec
35	PetscInt nghost ! PetscInt
36	PetscInt ghosts (*) ! PetscInt
37	integer ierr
38	end subroutine
39	subroutine VecCreateGhostBlock(comm, bs, n, nupper, nghost, &
40	&ghosts, vv ,ierr)
41	integer comm ! MPI_Comm
42	PetscInt bs ! PetscInt
43	PetscInt n ! PetscInt
44	PetscInt nupper ! PetscInt
45	PetscInt nghost ! PetscInt
46	PetscInt ghosts (*) ! PetscInt
47	Vec vv ! Vec
48	integer ierr
49	end subroutine
50	subroutine VecCreateMPI(comm, n, nupper, v ,ierr)
51	integer comm ! MPI_Comm
52	PetscInt n ! PetscInt
53	PetscInt nupper ! PetscInt
54	Vec v ! Vec
55	integer ierr
56	end subroutine
57	subroutine VecCreateMPIPThread(comm, n, nupper, nthreads, &
58	&affinities, v ,ierr)
59	integer comm ! MPI_Comm
60	PetscInt n ! PetscInt
61	PetscInt nupper ! PetscInt
62	PetscInt nthreads ! PetscInt
63	PetscInt affinities (*) ! PetscInt
64	Vec v ! Vec
65	integer ierr
66	end subroutine
67	subroutine VecCreateNest(comm, nb, is, x, Y ,ierr)
68	integer comm ! MPI_Comm
69	PetscInt nb ! PetscInt
70	IS is (*) ! IS
71	Vec x (*) ! Vec
72	Vec Y ! Vec
73	integer ierr
74	end subroutine
75	subroutine VecCreateSeq(comm, n, v ,ierr)
76	integer comm ! MPI_Comm
77	PetscInt n ! PetscInt
78	Vec v ! Vec
79	integer ierr
80	end subroutine
81	subroutine VecSetNThreads(v, nthreads ,ierr)
82	Vec v ! Vec
83	PetscInt nthreads ! PetscInt
84	integer ierr
85	end subroutine
86	subroutine VecGetNThreads(v, nthreads ,ierr)
87	Vec v ! Vec
88	PetscInt nthreads ! PetscInt
89	integer ierr
90	end subroutine
91	subroutine VecSetThreadAffinities(v, affinities ,ierr)
92	Vec v ! Vec
93	PetscInt affinities (*) ! PetscInt
94	integer ierr
95	end subroutine
96	subroutine VecCreateSeqPThread(comm, n, nthreads, affinities, v &
97	&,ierr)
98	integer comm ! MPI_Comm
99	PetscInt n ! PetscInt
100	PetscInt nthreads ! PetscInt
101	PetscInt affinities (*) ! PetscInt
102	Vec v ! Vec
103	integer ierr
104	end subroutine
105	subroutine VecCreateShared(comm, n, nupper, v ,ierr)
106	integer comm ! MPI_Comm
107	PetscInt n ! PetscInt
108	PetscInt nupper ! PetscInt
109	Vec v ! Vec
110	integer ierr
111	end subroutine
112	subroutine VecMaxPointwiseDivide(x, y, max ,ierr)
113	Vec x ! Vec
114	Vec y ! Vec
115	PetscReal max ! PetscReal
116	integer ierr
117	end subroutine
118	subroutine VecDot(x, y, val ,ierr)
119	Vec x ! Vec
120	Vec y ! Vec
121	PetscScalar val ! PetscScalar
122	integer ierr
123	end subroutine
124	subroutine VecNorm(x, type, val ,ierr)
125	Vec x ! Vec
126	NormType type ! NormType
127	PetscReal val ! PetscReal
128	integer ierr
129	end subroutine
130	subroutine VecNormAvailable(x, type, available, val ,ierr)
131	Vec x ! Vec
132	NormType type ! NormType
133	PetscBool available ! PetscBool
134	PetscReal val ! PetscReal
135	integer ierr
136	end subroutine
137	subroutine VecNormalize(x, val ,ierr)
138	Vec x ! Vec
139	PetscReal val ! PetscReal
140	integer ierr
141	end subroutine
142	subroutine VecMin(x, p, val ,ierr)
143	Vec x ! Vec
144	PetscInt p ! PetscInt
145	PetscReal val ! PetscReal
146	integer ierr
147	end subroutine
148	subroutine VecTDot(x, y, val ,ierr)
149	Vec x ! Vec
150	Vec y ! Vec
151	PetscScalar val ! PetscScalar
152	integer ierr
153	end subroutine
154	subroutine VecScale(x, alpha ,ierr)
155	Vec x ! Vec
156	PetscScalar alpha ! PetscScalar
157	integer ierr
158	end subroutine
159	subroutine VecSet(x, alpha ,ierr)
160	Vec x ! Vec
161	PetscScalar alpha ! PetscScalar
162	integer ierr
163	end subroutine
164	subroutine VecAXPY(y, alpha, x ,ierr)
165	Vec y ! Vec
166	PetscScalar alpha ! PetscScalar
167	Vec x ! Vec
168	integer ierr
169	end subroutine
170	subroutine VecAXPBY(y, alpha, beta, x ,ierr)
171	Vec y ! Vec
172	PetscScalar alpha ! PetscScalar
173	PetscScalar beta ! PetscScalar
174	Vec x ! Vec
175	integer ierr
176	end subroutine
177	subroutine VecAXPBYPCZ(z, alpha, beta, gamma, x, y ,ierr)
178	Vec z ! Vec
179	PetscScalar alpha ! PetscScalar
180	PetscScalar beta ! PetscScalar
181	PetscScalar gamma ! PetscScalar
182	Vec x ! Vec
183	Vec y ! Vec
184	integer ierr
185	end subroutine
186	subroutine VecAYPX(y, alpha, x ,ierr)
187	Vec y ! Vec
188	PetscScalar alpha ! PetscScalar
189	Vec x ! Vec
190	integer ierr
191	end subroutine
192	subroutine VecWAXPY(w, alpha, x, y ,ierr)
193	Vec w ! Vec
194	PetscScalar alpha ! PetscScalar
195	Vec x ! Vec
196	Vec y ! Vec
197	integer ierr
198	end subroutine
199	subroutine VecSetValues(x, ni, ix, y, iora ,ierr)
200	Vec x ! Vec
201	PetscInt ni ! PetscInt
202	PetscInt ix (*) ! PetscInt
203	PetscScalar y (*) ! PetscScalar
204	InsertMode iora ! InsertMode
205	integer ierr
206	end subroutine
207	subroutine VecGetValues(x, ni, ix, y ,ierr)
208	Vec x ! Vec
209	PetscInt ni ! PetscInt
210	PetscInt ix (*) ! PetscInt
211	PetscScalar y (*) ! PetscScalar
212	integer ierr
213	end subroutine
214	subroutine VecSetValuesBlocked(x, ni, ix, y, iora ,ierr)
215	Vec x ! Vec
216	PetscInt ni ! PetscInt
217	PetscInt ix (*) ! PetscInt
218	PetscScalar y (*) ! PetscScalar
219	InsertMode iora ! InsertMode
220	integer ierr
221	end subroutine
222	subroutine VecSetValuesLocal(x, ni, ix, y, iora ,ierr)
223	Vec x ! Vec
224	PetscInt ni ! PetscInt
225	PetscInt ix (*) ! PetscInt
226	PetscScalar y (*) ! PetscScalar
227	InsertMode iora ! InsertMode
228	integer ierr
229	end subroutine
230	subroutine VecSetValuesBlockedLocal(x, ni, ix, y, iora ,ierr)
231	Vec x ! Vec
232	PetscInt ni ! PetscInt
233	PetscInt ix (*) ! PetscInt
234	PetscScalar y (*) ! PetscScalar
235	InsertMode iora ! InsertMode
236	integer ierr
237	end subroutine
238	subroutine VecMTDot(x, nv, y, val ,ierr)
239	Vec x ! Vec
240	PetscInt nv ! PetscInt
241	Vec y (*) ! Vec
242	PetscScalar val (*) ! PetscScalar
243	integer ierr
244	end subroutine
245	subroutine VecMDot(x, nv, y, val ,ierr)
246	Vec x ! Vec
247	PetscInt nv ! PetscInt
248	Vec y (*) ! Vec
249	PetscScalar val (*) ! PetscScalar
250	integer ierr
251	end subroutine
252	subroutine VecMAXPY(y, nv, alpha, x ,ierr)
253	Vec y ! Vec
254	PetscInt nv ! PetscInt
255	PetscScalar alpha (*) ! PetscScalar
256	Vec x (*) ! Vec
257	integer ierr
258	end subroutine
259	subroutine VecGetSubVector(X, is, Y ,ierr)
260	Vec X ! Vec
261	IS is ! IS
262	Vec Y ! Vec
263	integer ierr
264	end subroutine
265	subroutine VecRestoreSubVector(X, is, Y ,ierr)
266	Vec X ! Vec
267	IS is ! IS
268	Vec Y ! Vec
269	integer ierr
270	end subroutine
271	subroutine VecPlaceArray(vec, array ,ierr)
272	Vec vec ! Vec
273	PetscScalar array (*) ! PetscScalar
274	integer ierr
275	end subroutine
276	subroutine VecCreate(comm, vec ,ierr)
277	integer comm ! MPI_Comm
278	Vec vec ! Vec
279	integer ierr
280	end subroutine
281	subroutine VecStashGetInfo(vec, nstash, reallocs, bnstash, &
282	&breallocs ,ierr)
283	Vec vec ! Vec
284	PetscInt nstash ! PetscInt
285	PetscInt reallocs ! PetscInt
286	PetscInt bnstash ! PetscInt
287	PetscInt breallocs ! PetscInt
288	integer ierr
289	end subroutine
290	subroutine VecSetLocalToGlobalMapping(x, mapping ,ierr)
291	Vec x ! Vec
292	ISLocalToGlobalMapping mapping ! ISLocalToGlobalMapping
293	integer ierr
294	end subroutine
295	subroutine VecSetLocalToGlobalMappingBlock(x, mapping ,ierr)
296	Vec x ! Vec
297	ISLocalToGlobalMapping mapping ! ISLocalToGlobalMapping
298	integer ierr
299	end subroutine
300	subroutine VecGetLocalToGlobalMapping(X, mapping ,ierr)
301	Vec X ! Vec
302	ISLocalToGlobalMapping mapping ! ISLocalToGlobalMapping
303	integer ierr
304	end subroutine
305	subroutine VecGetLocalToGlobalMappingBlock(X, mapping ,ierr)
306	Vec X ! Vec
307	ISLocalToGlobalMapping mapping ! ISLocalToGlobalMapping
308	integer ierr
309	end subroutine
310	subroutine VecAssemblyBegin(vec ,ierr)
311	Vec vec ! Vec
312	integer ierr
313	end subroutine
314	subroutine VecAssemblyEnd(vec ,ierr)
315	Vec vec ! Vec
316	integer ierr
317	end subroutine
318	subroutine VecPointwiseMax(w, x, y ,ierr)
319	Vec w ! Vec
320	Vec x ! Vec
321	Vec y ! Vec
322	integer ierr
323	end subroutine
324	subroutine VecPointwiseMin(w, x, y ,ierr)
325	Vec w ! Vec
326	Vec x ! Vec
327	Vec y ! Vec
328	integer ierr
329	end subroutine
330	subroutine VecPointwiseMaxAbs(w, x, y ,ierr)
331	Vec w ! Vec
332	Vec x ! Vec
333	Vec y ! Vec
334	integer ierr
335	end subroutine
336	subroutine VecPointwiseDivide(w, x, y ,ierr)
337	Vec w ! Vec
338	Vec x ! Vec
339	Vec y ! Vec
340	integer ierr
341	end subroutine
342	subroutine VecDuplicate(v, newv ,ierr)
343	Vec v ! Vec
344	Vec newv ! Vec
345	integer ierr
346	end subroutine
347	subroutine VecDestroy(v ,ierr)
348	Vec v ! Vec
349	integer ierr
350	end subroutine
351	subroutine VecViewFromOptions(vec, title ,ierr)
352	Vec vec ! Vec
353	character title ! char
354	integer ierr
355	end subroutine
356	subroutine VecGetSize(x, size ,ierr)
357	Vec x ! Vec
358	PetscInt size ! PetscInt
359	integer ierr
360	end subroutine
361	subroutine VecGetLocalSize(x, size ,ierr)
362	Vec x ! Vec
363	PetscInt size ! PetscInt
364	integer ierr
365	end subroutine
366	subroutine VecSetOption(x, op, flag ,ierr)
367	Vec x ! Vec
368	VecOption op ! VecOption
369	PetscBool flag ! PetscBool
370	integer ierr
371	end subroutine
372	subroutine VecResetArray(vec ,ierr)
373	Vec vec ! Vec
374	integer ierr
375	end subroutine
376	subroutine VecReciprocal(vec ,ierr)
377	Vec vec ! Vec
378	integer ierr
379	end subroutine
380	subroutine VecStashSetInitialSize(vec, size, bsize ,ierr)
381	Vec vec ! Vec
382	PetscInt size ! PetscInt
383	PetscInt bsize ! PetscInt
384	integer ierr
385	end subroutine
386	subroutine VecConjugate(x ,ierr)
387	Vec x ! Vec
388	integer ierr
389	end subroutine
390	subroutine VecPointwiseMult(w, x, y ,ierr)
391	Vec w ! Vec
392	Vec x ! Vec
393	Vec y ! Vec
394	integer ierr
395	end subroutine
396	subroutine VecSetRandom(x, rctx ,ierr)
397	Vec x ! Vec
398	PetscRandom rctx ! PetscRandom
399	integer ierr
400	end subroutine
401	subroutine VecZeroEntries(vec ,ierr)
402	Vec vec ! Vec
403	integer ierr
404	end subroutine
405	subroutine VecSetFromOptions(vec ,ierr)
406	Vec vec ! Vec
407	integer ierr
408	end subroutine
409	subroutine VecSetSizes(v, n, nupper ,ierr)
410	Vec v ! Vec
411	PetscInt n ! PetscInt
412	PetscInt nupper ! PetscInt
413	integer ierr
414	end subroutine
415	subroutine VecSetBlockSize(v, bs ,ierr)
416	Vec v ! Vec
417	PetscInt bs ! PetscInt
418	integer ierr
419	end subroutine
420	subroutine VecGetBlockSize(v, bs ,ierr)
421	Vec v ! Vec
422	PetscInt bs ! PetscInt
423	integer ierr
424	end subroutine
425	subroutine VecSetUp(v ,ierr)
426	Vec v ! Vec
427	integer ierr
428	end subroutine
429	subroutine VecCopy(x, y ,ierr)
430	Vec x ! Vec
431	Vec y ! Vec
432	integer ierr
433	end subroutine
434	subroutine VecSwap(x, y ,ierr)
435	Vec x ! Vec
436	Vec y ! Vec
437	integer ierr
438	end subroutine
439	subroutine VecStashView(v, viewer ,ierr)
440	Vec v ! Vec
441	PetscViewer viewer ! PetscViewer
442	integer ierr
443	end subroutine
444	subroutine VecContourScale(v, vmin, vmax ,ierr)
445	Vec v ! Vec
446	PetscReal vmin ! PetscReal
447	PetscReal vmax ! PetscReal
448	integer ierr
449	end subroutine
450	subroutine PetscCommSplitReductionBegin(comm ,ierr)
451	integer comm ! MPI_Comm
452	integer ierr
453	end subroutine
454	subroutine VecDotBegin(x, y, result ,ierr)
455	Vec x ! Vec
456	Vec y ! Vec
457	PetscScalar result ! PetscScalar
458	integer ierr
459	end subroutine
460	subroutine VecDotEnd(x, y, result ,ierr)
461	Vec x ! Vec
462	Vec y ! Vec
463	PetscScalar result ! PetscScalar
464	integer ierr
465	end subroutine
466	subroutine VecTDotBegin(x, y, result ,ierr)
467	Vec x ! Vec
468	Vec y ! Vec
469	PetscScalar result ! PetscScalar
470	integer ierr
471	end subroutine
472	subroutine VecTDotEnd(x, y, result ,ierr)
473	Vec x ! Vec
474	Vec y ! Vec
475	PetscScalar result ! PetscScalar
476	integer ierr
477	end subroutine
478	subroutine VecNormBegin(x, ntype, result ,ierr)
479	Vec x ! Vec
480	NormType ntype ! NormType
481	PetscReal result ! PetscReal
482	integer ierr
483	end subroutine
484	subroutine VecNormEnd(x, ntype, result ,ierr)
485	Vec x ! Vec
486	NormType ntype ! NormType
487	PetscReal result ! PetscReal
488	integer ierr
489	end subroutine
490	subroutine VecMDotBegin(x, nv, y, result ,ierr)
491	Vec x ! Vec
492	PetscInt nv ! PetscInt
493	Vec y (*) ! Vec
494	PetscScalar result (*) ! PetscScalar
495	integer ierr
496	end subroutine
497	subroutine VecMDotEnd(x, nv, y, result ,ierr)
498	Vec x ! Vec
499	PetscInt nv ! PetscInt
500	Vec y (*) ! Vec
501	PetscScalar result (*) ! PetscScalar
502	integer ierr
503	end subroutine
504	subroutine VecMTDotBegin(x, nv, y, result ,ierr)
505	Vec x ! Vec
506	PetscInt nv ! PetscInt
507	Vec y (*) ! Vec
508	PetscScalar result (*) ! PetscScalar
509	integer ierr
510	end subroutine
511	subroutine VecMTDotEnd(x, nv, y, result ,ierr)
512	Vec x ! Vec
513	PetscInt nv ! PetscInt
514	Vec y (*) ! Vec
515	PetscScalar result (*) ! PetscScalar
516	integer ierr
517	end subroutine
518	subroutine VecScatterCreateToAll(vin, ctx, vout ,ierr)
519	Vec vin ! Vec
520	VecScatter ctx ! VecScatter
521	Vec vout ! Vec
522	integer ierr
523	end subroutine
524	subroutine VecScatterCreateToZero(vin, ctx, vout ,ierr)
525	Vec vin ! Vec
526	VecScatter ctx ! VecScatter
527	Vec vout ! Vec
528	integer ierr
529	end subroutine
530	subroutine VecStrideSet(v, start, s ,ierr)
531	Vec v ! Vec
532	PetscInt start ! PetscInt
533	PetscScalar s ! PetscScalar
534	integer ierr
535	end subroutine
536	subroutine VecStrideScale(v, start, scale ,ierr)
537	Vec v ! Vec
538	PetscInt start ! PetscInt
539	PetscScalar scale ! PetscScalar
540	integer ierr
541	end subroutine
542	subroutine VecStrideNorm(v, start, ntype, nrm ,ierr)
543	Vec v ! Vec
544	PetscInt start ! PetscInt
545	NormType ntype ! NormType
546	PetscReal nrm ! PetscReal
547	integer ierr
548	end subroutine
549	subroutine VecStrideMax(v, start, idex, nrm ,ierr)
550	Vec v ! Vec
551	PetscInt start ! PetscInt
552	PetscInt idex ! PetscInt
553	PetscReal nrm ! PetscReal
554	integer ierr
555	end subroutine
556	subroutine VecStrideMin(v, start, idex, nrm ,ierr)
557	Vec v ! Vec
558	PetscInt start ! PetscInt
559	PetscInt idex ! PetscInt
560	PetscReal nrm ! PetscReal
561	integer ierr
562	end subroutine
563	subroutine VecStrideScaleAll(v, scales ,ierr)
564	Vec v ! Vec
565	PetscScalar scales ! PetscScalar
566	integer ierr
567	end subroutine
568	subroutine VecStrideNormAll(v, ntype, nrm ,ierr)
569	Vec v ! Vec
570	NormType ntype ! NormType
571	PetscReal nrm (*) ! PetscReal
572	integer ierr
573	end subroutine
574	subroutine VecStrideMaxAll(v, idex, nrm ,ierr)
575	Vec v ! Vec
576	PetscInt idex (*) ! PetscInt
577	PetscReal nrm (*) ! PetscReal
578	integer ierr
579	end subroutine
580	subroutine VecStrideMinAll(v, idex, nrm ,ierr)
581	Vec v ! Vec
582	PetscInt idex (*) ! PetscInt
583	PetscReal nrm (*) ! PetscReal
584	integer ierr
585	end subroutine
586	subroutine VecStrideGatherAll(v, s, addv ,ierr)
587	Vec v ! Vec
588	Vec s (*) ! Vec
589	InsertMode addv ! InsertMode
590	integer ierr
591	end subroutine
592	subroutine VecStrideScatterAll(s, v, addv ,ierr)
593	Vec s (*) ! Vec
594	Vec v ! Vec
595	InsertMode addv ! InsertMode
596	integer ierr
597	end subroutine
598	subroutine VecStrideGather(v, start, s, addv ,ierr)
599	Vec v ! Vec
600	PetscInt start ! PetscInt
601	Vec s ! Vec
602	InsertMode addv ! InsertMode
603	integer ierr
604	end subroutine
605	subroutine VecStrideScatter(s, start, v, addv ,ierr)
606	Vec s ! Vec
607	PetscInt start ! PetscInt
608	Vec v ! Vec
609	InsertMode addv ! InsertMode
610	integer ierr
611	end subroutine
612	subroutine VecExp(v ,ierr)
613	Vec v ! Vec
614	integer ierr
615	end subroutine
616	subroutine VecLog(v ,ierr)
617	Vec v ! Vec
618	integer ierr
619	end subroutine
620	subroutine VecSqrtAbs(v ,ierr)
621	Vec v ! Vec
622	integer ierr
623	end subroutine
624	subroutine VecDotNorm2(s, t, dp, nm ,ierr)
625	Vec s ! Vec
626	Vec t ! Vec
627	PetscScalar dp ! PetscScalar
628	PetscScalar nm ! PetscScalar
629	integer ierr
630	end subroutine
631	subroutine VecSum(v, sum ,ierr)
632	Vec v ! Vec
633	PetscScalar sum ! PetscScalar
634	integer ierr
635	end subroutine
636	subroutine VecShift(v, shift ,ierr)
637	Vec v ! Vec
638	PetscScalar shift ! PetscScalar
639	integer ierr
640	end subroutine
641	subroutine VecAbs(v ,ierr)
642	Vec v ! Vec
643	integer ierr
644	end subroutine
645	subroutine VecPermute(x, row, inv ,ierr)
646	Vec x ! Vec
647	IS row ! IS
648	PetscBool inv ! PetscBool
649	integer ierr
650	end subroutine
651	subroutine VecEqual(vec1, vec2, flg ,ierr)
652	Vec vec1 ! Vec
653	Vec vec2 ! Vec
654	PetscBool flg ! PetscBool
655	integer ierr
656	end subroutine
657	subroutine VecScatterCreateLocal(ctx, nsends, sendSizes, &
658	&sendProcs, sendIdx, nrecvs, recvSizes, recvProcs, recvIdx, bs , &
659	&ierr)
660	VecScatter ctx ! VecScatter
661	PetscInt nsends ! PetscInt
662	PetscInt sendSizes (*) ! PetscInt
663	PetscInt sendProcs (*) ! PetscInt
664	PetscInt sendIdx (*) ! PetscInt
665	PetscInt nrecvs ! PetscInt
666	PetscInt recvSizes (*) ! PetscInt
667	PetscInt recvProcs (*) ! PetscInt
668	PetscInt recvIdx (*) ! PetscInt
669	PetscInt bs ! PetscInt
670	integer ierr
671	end subroutine
672	subroutine VecScatterGetMerged(ctx, flg ,ierr)
673	VecScatter ctx ! VecScatter
674	PetscBool flg ! PetscBool
675	integer ierr
676	end subroutine
677	subroutine VecScatterBegin(inctx, x, y, addv, mode ,ierr)
678	VecScatter inctx ! VecScatter
679	Vec x ! Vec
680	Vec y ! Vec
681	InsertMode addv ! InsertMode
682	ScatterMode mode ! ScatterMode
683	integer ierr
684	end subroutine
685	subroutine VecScatterEnd(ctx, x, y, addv, mode ,ierr)
686	VecScatter ctx ! VecScatter
687	Vec x ! Vec
688	Vec y ! Vec
689	InsertMode addv ! InsertMode
690	ScatterMode mode ! ScatterMode
691	integer ierr
692	end subroutine
693	subroutine VecScatterCopy(sctx, ctx ,ierr)
694	VecScatter sctx ! VecScatter
695	VecScatter ctx ! VecScatter
696	integer ierr
697	end subroutine
698	subroutine VecScatterView(ctx, viewer ,ierr)
699	VecScatter ctx ! VecScatter
700	PetscViewer viewer ! PetscViewer
701	integer ierr
702	end subroutine
703	subroutine VecScatterInitializeForGPU(inctx, x, mode ,ierr)
704	VecScatter inctx ! VecScatter
705	Vec x ! Vec
706	ScatterMode mode ! ScatterMode
707	integer ierr
708	end subroutine
709	subroutine VecScatterFinalizeForGPU(inctx ,ierr)
710	VecScatter inctx ! VecScatter
711	integer ierr
712	end subroutine

Note: See TracBrowser for help on using the repository browser.

Download in other formats:

Original Format