• subroutine fnd2ddecomp( comm2d, n,
sx, ex, sy, ey )
• integer comm2d
• integer n, sx, ex, sy, ey
• integer dims(2), coords(2),
ierr
• logical periods(2)
•
• call MPI_Cart_get( comm2d, 2, dims, periods, coords, ierr )
• call MPE_DECOMP1D( n, dims(1),
coords(1), sx, ex )
• call MPE_DECOMP1D( n, dims(2),
coords(2), sy, ey )
•
• return
• end
•