High Performance Computing 1
Cart_create
• 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
•