# | Line 3 | Line 3 | subroutine setFsimParallel(thisComponentPlan, nAtomTag | |
---|---|---|
3 | nGroupTags, groupTags, status) | |
4 | ||
5 | use mpiSimulation | |
6 | < | |
6 | > | |
7 | !! Passed Arguments | |
8 | !! mpiComponentPlan struct from C | |
9 | type (mpiComponentPlan), intent(inout) :: thisComponentPlan | |
# | Line 18 | Line 18 | subroutine setFsimParallel(thisComponentPlan, nAtomTag | |
18 | ||
19 | call setupSimParallel(thisComponentPlan, nAtomTags, atomTags, & | |
20 | nGroupTags, groupTags, status) | |
21 | – | |
22 | – | end subroutine setFsimParallel |
21 | ||
22 | + | end subroutine setFsimParallel |
23 | + | |
24 | #else | |
25 | ||
26 | !! Dummy routine so that we don't have an empty compilation unit: |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |