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 |
– |
|