| 5 |
|
!! |
| 6 |
|
!! @author Charles F. Vardeman II |
| 7 |
|
!! @author Matthew Meineke |
| 8 |
< |
!! @version $Id: mpiSimulation_module.F90,v 1.2 2003-02-26 18:45:57 mmeineke Exp $, $Date: 2003-02-26 18:45:57 $, $Name: not supported by cvs2svn $, $Revision: 1.2 $ |
| 9 |
< |
|
| 10 |
< |
|
| 11 |
< |
|
| 8 |
> |
!! @version $Id: mpiSimulation_module.F90,v 1.4 2003-03-13 15:28:43 gezelter Exp $, $Date: 2003-03-13 15:28:43 $, $Name: not supported by cvs2svn $, $Revision: 1.4 $ |
| 9 |
|
|
| 10 |
|
module mpiSimulation |
| 11 |
|
use definitions |
| 65 |
|
!! Tags used during force loop for parallel simulation |
| 66 |
|
integer, allocatable, dimension(:) :: tagLocal |
| 67 |
|
integer, public, allocatable, dimension(:) :: tagRow |
| 68 |
< |
integer ,public, allocatable, dimension(:) :: tagColumn |
| 68 |
> |
integer, public, allocatable, dimension(:) :: tagColumn |
| 69 |
|
|
| 70 |
|
!! Logical set true if mpiSimulation has been initialized |
| 71 |
|
logical :: isSimSet = .false. |
| 614 |
|
call gather(tags,tagRow,plan_row) |
| 615 |
|
call gather(tags,tagColumn,plan_col) |
| 616 |
|
|
| 620 |
– |
|
| 617 |
|
end subroutine setTags |
| 618 |
|
|
| 619 |
|
pure function getNcol(thisplan) result(ncol) |
