--- trunk/OOPSE/libmdtools/SimInfo.cpp	2004/05/27 00:48:12	1198
+++ trunk/OOPSE/libmdtools/SimInfo.cpp	2004/06/01 21:45:22	1217
@@ -62,7 +62,8 @@ SimInfo::SimInfo(){
   useReactionField = 0;
   useGB = 0;
   useEAM = 0;
-  useThermInt = 0;
+  useSolidThermInt = 0;
+  useLiquidThermInt = 0;
 
   haveCutoffGroups = false;
 
@@ -445,21 +446,21 @@ void SimInfo::refreshSim(){
   excl = excludes->getFortranArray();
   
 #ifdef IS_MPI
-  n_global = mpiSim->getTotAtoms();
+  n_global = mpiSim->getNAtomsGlobal();
 #else
   n_global = n_atoms;
 #endif
   
   isError = 0;
   
-  getFortranGroupArray(this, mfact, ngroup, groupList, groupStart);
+  getFortranGroupArrays(this, FglobalGroupMembership, mfact);
   //it may not be a good idea to pass the address of first element in vector
   //since c++ standard does not require vector to be stored continuously in meomory
   //Most of the compilers will organize the memory of vector continuously
   setFsimulation( &fInfo, &n_global, &n_atoms, identArray, &n_exclude, excl, 
                   &nGlobalExcludes, globalExcludes, molMembershipArray, 
-                  &mfact[0], &ngroup, &groupList[0], &groupStart[0], &isError);
-  
+                  &mfact[0], &ngroup, &FglobalGroupMembership[0], &isError); 
+
   if( isError ){
     
     sprintf( painCave.errMsg,
@@ -566,12 +567,13 @@ GenericData* SimInfo::getProperty(const string& propNa
 }
 
 
-void getFortranGroupArray(SimInfo* info, vector<double>& mfact, int& ngroup, 
-                          vector<int>& groupList, vector<int>& groupStart){
+void SimInfo::getFortranGroupArrays(SimInfo* info, 
+                                    vector<int>& FglobalGroupMembership,
+                                    vector<double>& mfact){
+  
   Molecule* myMols;
   Atom** myAtoms;
   int numAtom;
-  int curIndex;
   double mtot;
   int numMol;
   int numCutoffGroups;
@@ -583,36 +585,35 @@ void getFortranGroupArray(SimInfo* info, vector<double
   double totalMass;
   
   mfact.clear();
-  groupList.clear();
-  groupStart.clear();
+  FglobalGroupMembership.clear();
   
-  //Be careful, fortran array begin at 1
-  curIndex = 1;
 
+  // Fix the silly fortran indexing problem
+#ifdef IS_MPI
+  numAtom = mpiSim->getNAtomsGlobal();
+#else
+  numAtom = n_atoms;
+#endif
+  for (int i = 0; i < numAtom; i++) 
+    FglobalGroupMembership.push_back(globalGroupMembership[i] + 1);
+  
+
   myMols = info->molecules;
   numMol = info->n_mol;
   for(int i  = 0; i < numMol; i++){
     numCutoffGroups = myMols[i].getNCutoffGroups();
-    for(myCutoffGroup =myMols[i].beginCutoffGroup(iterCutoff); myCutoffGroup != NULL; 
-                                                  myCutoffGroup =myMols[i].nextCutoffGroup(iterCutoff)){
+    for(myCutoffGroup =myMols[i].beginCutoffGroup(iterCutoff); 
+        myCutoffGroup != NULL; 
+        myCutoffGroup =myMols[i].nextCutoffGroup(iterCutoff)){
 
       totalMass = myCutoffGroup->getMass();
       
-      for(cutoffAtom = myCutoffGroup->beginAtom(iterAtom); cutoffAtom != NULL; 
-                                           cutoffAtom = myCutoffGroup->nextAtom(iterAtom)){
+      for(cutoffAtom = myCutoffGroup->beginAtom(iterAtom); 
+          cutoffAtom != NULL; 
+          cutoffAtom = myCutoffGroup->nextAtom(iterAtom)){
         mfact.push_back(cutoffAtom->getMass()/totalMass);
-        groupList.push_back(cutoffAtom->getIndex() + 1);
       }  
-                              
-      groupStart.push_back(curIndex);
-      curIndex += myCutoffGroup->getNumAtom();
+    }
+  }
 
-    }//end for(myCutoffGroup =myMols[i].beginCutoffGroup(iterCutoff))
-
-  }//end for(int i  = 0; i < numMol; i++)
-
-
-  //The last cutoff group need more element to indicate the end of the cutoff 
-  groupStart.push_back(curIndex);
-  ngroup = groupStart.size() - 1;
 }