70 周期性网格

在MPI_Cart_create中说明：

dims(1)    = 4 
   dims(2)    = 3 
   periods(1) = .TRUE. 
   periods(2) = .TRUE. 
   reorder    = .true. 
   ndim       = 2 
   call MPI_CART_CREATE( MPI_COMM_WORLD, ndim, dims,  
  $                periods, reorder, comm2d, ierr ) 

Copyright: NPACT