--- trunk/OOPSE/libmdtools/mpiSimulation.cpp	2003/03/28 19:30:59	434
+++ trunk/OOPSE/libmdtools/mpiSimulation.cpp	2003/04/01 16:50:14	441
@@ -296,8 +296,11 @@ void mpiSimulation::mpiRefresh( void ){
   int isError, i;
   int *globalIndex = new int[mpiPlug->myNlocal];
 
-  for(i=0; i<mpiPlug->myNlocal; i++) globalIndex[i] = entryPlug->atoms[i]->getGlobalIndex();
+  // Fortran indexing needs to be increased by 1 in order to get the 2 languages to
+  // not barf
 
+  for(i=0; i<mpiPlug->myNlocal; i++) globalIndex[i] = entryPlug->atoms[i]->getGlobalIndex()+1;
+
   
   isError = 0;
   setFsimParallel( mpiPlug, &(entryPlug->n_atoms), globalIndex, &isError );