Next: Call Conversion: LAPACK to Up: Matrix Redistribution/Copy Routines Previous: C Interface

## Code Fragment Calling C Interface Cpdgemr2d

          /* 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);