| # | Line 296 | Line 296 | void mpiSimulation::mpiRefresh( void ){ | |
|---|---|---|
| 296 | int isError, i; | |
| 297 | int *globalIndex = new int[mpiPlug->myNlocal]; | |
| 298 | ||
| 299 | < | for(i=0; i<mpiPlug->myNlocal; i++) globalIndex[i] = entryPlug->atoms[i]->getGlobalIndex(); |
| 299 | > | // Fortran indexing needs to be increased by 1 in order to get the 2 languages to |
| 300 | > | // not barf |
| 301 | ||
| 302 | + | for(i=0; i<mpiPlug->myNlocal; i++) globalIndex[i] = entryPlug->atoms[i]->getGlobalIndex()+1; |
| 303 | + | |
| 304 | ||
| 305 | isError = 0; | |
| 306 | setFsimParallel( mpiPlug, &(entryPlug->n_atoms), globalIndex, &isError ); | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |