1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
|
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 2.0//EN">
<!--Converted with LaTeX2HTML 96.1-h (September 30, 1996) by Nikos Drakos (nikos@cbl.leeds.ac.uk), CBLU, University of Leeds -->
<HTML>
<HEAD>
<TITLE>Code Fragment Calling C Interface Cpdgemr2d</TITLE>
<META NAME="description" CONTENT="Code Fragment Calling C Interface Cpdgemr2d">
<META NAME="keywords" CONTENT="slug">
<META NAME="resource-type" CONTENT="document">
<META NAME="distribution" CONTENT="global">
<LINK REL=STYLESHEET HREF="slug.css">
</HEAD>
<BODY LANG="EN" >
<A NAME="tex2html4365" HREF="node174.html"><IMG WIDTH=37 HEIGHT=24 ALIGN=BOTTOM ALT="next" SRC="http://www.netlib.org/utk/icons/next_motif.gif"></A> <A NAME="tex2html4363" HREF="node164.html"><IMG WIDTH=26 HEIGHT=24 ALIGN=BOTTOM ALT="up" SRC="http://www.netlib.org/utk/icons/up_motif.gif"></A> <A NAME="tex2html4359" HREF="node172.html"><IMG WIDTH=63 HEIGHT=24 ALIGN=BOTTOM ALT="previous" SRC="http://www.netlib.org/utk/icons/previous_motif.gif"></A> <A NAME="tex2html4367" HREF="node1.html"><IMG WIDTH=65 HEIGHT=24 ALIGN=BOTTOM ALT="contents" SRC="http://www.netlib.org/utk/icons/contents_motif.gif"></A> <A NAME="tex2html4368" HREF="node190.html"><IMG WIDTH=43 HEIGHT=24 ALIGN=BOTTOM ALT="index" SRC="http://www.netlib.org/utk/icons/index_motif.gif"></A> <BR>
<B> Next:</B> <A NAME="tex2html4366" HREF="node174.html">Call Conversion: LAPACK to </A>
<B>Up:</B> <A NAME="tex2html4364" HREF="node164.html">Matrix Redistribution/Copy Routines</A>
<B> Previous:</B> <A NAME="tex2html4360" HREF="node172.html">C Interface</A>
<BR> <P>
<H2><A NAME="SECTION04855000000000000000">Code Fragment Calling C Interface Cpdgemr2d</A></H2>
<P>
<PRE> /* scatter of the matrix A from 1 processor to a P*Q grid */
Cpdgemr2d(m, n,
Aseq, ia, ja, &descA_1x1,
Apar, ib, jb, &descA_PxQ, gcontext);
/* computation of the system solution */
Cpdgesv( m, n,
Apar , 1, 1, &descA_PxQ, ipiv ,
Cpar, 1, 1, &descC_PxQ, &info);
/* gather of the solution matrix C on 1 processor */
Cpdgemr2d(m, n,
Cpar, ia, ja, &descC_PxQ,
Cseq, ib, jb, &descC_1x1, gcontext);</PRE>
<BR> <HR>
<P><ADDRESS>
<I>Susan Blackford <BR>
Tue May 13 09:21:01 EDT 1997</I>
</ADDRESS>
</BODY>
</HTML>
|
