| 1 |
– |
|
| 1 |
|
!! |
| 2 |
|
!! Copyright (c) 2005 The University of Notre Dame. All Rights Reserved. |
| 3 |
|
!! |
| 47 |
|
!! |
| 48 |
|
!! @author Charles F. Vardeman II |
| 49 |
|
!! @author Matthew Meineke |
| 50 |
< |
!! @version $Id: simParallel.F90,v 1.2 2005-01-12 22:40:45 gezelter Exp $, $Date: 2005-01-12 22:40:45 $, $Name: not supported by cvs2svn $, $Revision: 1.2 $ |
| 50 |
> |
!! @version $Id: simParallel.F90,v 1.3 2005-01-14 20:31:16 gezelter Exp $, $Date: 2005-01-14 20:31:16 $, $Name: not supported by cvs2svn $, $Revision: 1.3 $ |
| 51 |
|
|
| 52 |
|
module mpiSimulation |
| 53 |
|
use definitions |
| 890 |
|
#endif // is_mpi |
| 891 |
|
end module mpiSimulation |
| 892 |
|
|
| 894 |
– |
#ifdef IS_MPI |
| 895 |
– |
subroutine setFsimParallel(thisComponentPlan, nAtomTags, atomTags, & |
| 896 |
– |
nGroupTags, groupTags, status) |
| 897 |
– |
use mpiSimulation |
| 898 |
– |
|
| 899 |
– |
!! Passed Arguments |
| 900 |
– |
!! mpiComponentPlan struct from C |
| 901 |
– |
type (mpiComponentPlan), intent(inout) :: thisComponentPlan |
| 902 |
– |
!! Number of tags passed |
| 903 |
– |
integer, intent(in) :: nAtomTags, nGroupTags |
| 904 |
– |
!! Result status, 0 = normal, -1 = error |
| 905 |
– |
integer, intent(out) :: status |
| 906 |
– |
integer :: localStatus |
| 907 |
– |
!! Global reference tag for local particles |
| 908 |
– |
integer, dimension(nAtomTags), intent(inout) :: atomTags |
| 909 |
– |
integer, dimension(nGroupTags), intent(inout) :: groupTags |
| 910 |
– |
|
| 911 |
– |
call setupSimParallel(thisComponentPlan, nAtomTags, atomTags, & |
| 912 |
– |
nGroupTags, groupTags, status) |
| 913 |
– |
|
| 914 |
– |
|
| 915 |
– |
end subroutine |
| 916 |
– |
|
| 917 |
– |
#endif |
| 918 |
– |
|
| 919 |
– |
|
