UseTheForce/DarkSide/simParallel_interface.F90

subroutine setFsimParallel(thisComponentPlan, nAtomTags, atomTags, &
     nGroupTags, groupTags, status)

  use mpiSimulation

  !! Passed Arguments
  !! mpiComponentPlan struct from C
  type (mpiComponentPlan), intent(inout) :: thisComponentPlan
  !! Number of tags passed
  integer, intent(in) :: nAtomTags, nGroupTags
  !! Result status, 0 = normal, -1 = error
  integer, intent(out) :: status
  integer :: localStatus
  !! Global reference tag for local particles
  integer, dimension(nAtomTags), intent(inout) :: atomTags
  integer, dimension(nGroupTags), intent(inout) :: groupTags

  call setupSimParallel(thisComponentPlan, nAtomTags, atomTags, &
       nGroupTags, groupTags, status)  

end subroutine setFsimParallel

Revision:	1670
Committed:	Fri Jan 27 19:07:19 2012 UTC (13 years, 11 months ago) by chuckv
File size:	728 byte(s)
Log Message:	Adding experimental branch for calculation of the heatflux based on old version of OpenMD. This will need to be ported to the development branch later.
#	User	Rev	Content
1	gezelter	264	subroutine setFsimParallel(thisComponentPlan, nAtomTags, atomTags, &
2			nGroupTags, groupTags, status)
3	gezelter	265
4	gezelter	264	use mpiSimulation
5	gezelter	507
6	gezelter	264	!! Passed Arguments
7			!! mpiComponentPlan struct from C
8			type (mpiComponentPlan), intent(inout) :: thisComponentPlan
9			!! Number of tags passed
10			integer, intent(in) :: nAtomTags, nGroupTags
11			!! Result status, 0 = normal, -1 = error
12			integer, intent(out) :: status
13			integer :: localStatus
14			!! Global reference tag for local particles
15			integer, dimension(nAtomTags), intent(inout) :: atomTags
16			integer, dimension(nGroupTags), intent(inout) :: groupTags
17	gezelter	265
18	gezelter	264	call setupSimParallel(thisComponentPlan, nAtomTags, atomTags, &
19	gezelter	265	nGroupTags, groupTags, status)
20
21	gezelter	507	end subroutine setFsimParallel
22