| 224 |
|
|
| 225 |
|
call gather(groupStartLocal, groupStartRow, plan_group_row) |
| 226 |
|
call gather(groupStartLocal, groupStartCol, plan_group_col) |
| 227 |
< |
groupStartRow(nGroupsInRow+1) = nAtomsInRow |
| 228 |
< |
groupStartCol(nGroupsInCol+1) = nAtomsInCol |
| 227 |
> |
groupStartRow(nGroupsInRow+1) = nAtomsInRow + 1 |
| 228 |
> |
groupStartCol(nGroupsInCol+1) = nAtomsInCol + 1 |
| 229 |
|
call gather(groupListLocal, groupListRow, plan_atom_row) |
| 230 |
|
call gather(groupListLocal, groupListCol, plan_atom_col) |
| 231 |
|
call gather(mfactLocal, mfactRow, plan_atom_row) |
| 275 |
|
groupStartRow(i) = CgroupStart(i) |
| 276 |
|
groupStartCol(i) = CgroupStart(i) |
| 277 |
|
end do |
| 278 |
< |
groupStartRow(nGroups+1) = nLocal |
| 279 |
< |
groupStartCol(nGroups+1) = nLocal |
| 278 |
> |
groupStartRow(nGroups+1) = nLocal + 1 |
| 279 |
> |
groupStartCol(nGroups+1) = nLocal + 1 |
| 280 |
|
do i = 1, nLocal |
| 281 |
|
groupListRow(i) = CgroupList(i) |
| 282 |
|
groupListCol(i) = CgroupList(i) |
