| 5 |
|
!! |
| 6 |
|
!! @author Charles F. Vardeman II |
| 7 |
|
!! @author Matthew Meineke |
| 8 |
< |
!! @version $Id: mpiSimulation_module.F90,v 1.1 2002-12-19 21:59:51 chuckv Exp $, $Date: 2002-12-19 21:59:51 $, $Name: not supported by cvs2svn $, $Revision: 1.1 $ |
| 8 |
> |
!! @version $Id: mpiSimulation_module.F90,v 1.2 2003-01-09 19:40:38 chuckv Exp $, $Date: 2003-01-09 19:40:38 $, $Name: not supported by cvs2svn $, $Revision: 1.2 $ |
| 9 |
|
|
| 10 |
|
|
| 11 |
|
|
| 23 |
|
public :: gather, scatter |
| 24 |
|
public :: setupSimParallel |
| 25 |
|
public :: replanSimParallel |
| 26 |
+ |
public :: getNcol |
| 27 |
+ |
public :: getNrow |
| 28 |
+ |
|
| 29 |
+ |
|
| 30 |
|
!! PUBLIC Subroutines contained in MPI module |
| 31 |
|
public :: mpi_bcast |
| 32 |
|
public :: mpi_allreduce |
| 499 |
|
endif |
| 500 |
|
|
| 501 |
|
end subroutine scatter_double_2d |
| 502 |
+ |
|
| 503 |
|
|
| 504 |
+ |
function getNcol(thisplan) result(ncol) |
| 505 |
+ |
type (gsPlan) :: thisplan |
| 506 |
+ |
integer :: ncol |
| 507 |
+ |
ncol = thisplan%gsComponentPlan%nComponentsCol |
| 508 |
+ |
end function getNcol |
| 509 |
+ |
|
| 510 |
+ |
function getNrow(thisplan) result(ncol) |
| 511 |
+ |
type (gsPlan) :: thisplan |
| 512 |
+ |
integer :: ncol |
| 513 |
+ |
ncol = thisplan%gsComponentPlan%nComponentsrow |
| 514 |
+ |
end function getNrow |
| 515 |
+ |
|
| 516 |
|
|
| 517 |
+ |
|
| 518 |
+ |
|
| 519 |
|
#endif |
| 520 |
|
end module mpiSimulation |
| 521 |
|
|
