--- trunk/OOPSE/libmdtools/force_globals.F90	2004/05/07 21:35:05	1150
+++ trunk/OOPSE/libmdtools/force_globals.F90	2004/05/27 00:48:12	1198
@@ -50,8 +50,8 @@ contains
   
   subroutine InitializeForceGlobals(nlocal, thisStat)
     integer, intent(out) :: thisStat
-    integer :: nrow, ncol
-    integer :: nrow_group, ncol_group
+    integer :: nAtomsInRow, nAtomsInCol
+    integer :: nGroupsInRow, nGroupsInCol
     integer :: nlocal
     integer :: ndim = 3
     integer :: alloc_stat
@@ -59,10 +59,10 @@ contains
     thisStat = 0
     
 #ifdef IS_MPI
-    nrow = getNrow(plan_row)
-    ncol = getNcol(plan_col)
-    nrow_group = getNrowGroup(plan_row)
-    ncol_group = getNcolGroup(plan_col)
+    nAtomsInRow = getNatomsInRow(plan_atom_row)
+    nAtomsInCol = getNatomsInCol(plan_atom_col)
+    nGroupsInRow = getNgroupsInRow(plan_group_row)
+    nGroupsInCol = getNgroupsInCol(plan_group_col)
     
 #endif
     
@@ -70,61 +70,61 @@ contains
     
 #ifdef IS_MPI
 
-    allocate(q_Row(ndim,nrow),stat=alloc_stat)
+    allocate(q_Row(ndim,nAtomsInRow),stat=alloc_stat)
     if (alloc_stat /= 0 ) then
        thisStat = -1
        return
     endif
         
-    allocate(q_Col(ndim,ncol),stat=alloc_stat)
+    allocate(q_Col(ndim,nAtomsInCol),stat=alloc_stat)
     if (alloc_stat /= 0 ) then
        thisStat = -1
        return
     endif
 
-    allocate(q_group_Row(ndim,nrow_group),stat=alloc_stat)
+    allocate(q_group_Row(ndim,nGroupsInRow),stat=alloc_stat)
     if (alloc_stat /= 0 ) then
        thisStat = -1
        return
     endif
         
-    allocate(q_group_Col(ndim,ncol_group),stat=alloc_stat)
+    allocate(q_group_Col(ndim,nGroupsInCol),stat=alloc_stat)
     if (alloc_stat /= 0 ) then
        thisStat = -1
        return
     endif
        
-    allocate(u_l_Row(ndim,nrow),stat=alloc_stat)
+    allocate(u_l_Row(ndim,nAtomsInRow),stat=alloc_stat)
     if (alloc_stat /= 0 ) then
        thisStat = -1
        return
     endif
      
-    allocate(u_l_Col(ndim,ncol),stat=alloc_stat)
+    allocate(u_l_Col(ndim,nAtomsInCol),stat=alloc_stat)
     if (alloc_stat /= 0 ) then
        thisStat = -1
        return
     endif
     
-    allocate(A_row(9,nrow),stat=alloc_stat)
+    allocate(A_row(9,nAtomsInRow),stat=alloc_stat)
     if (alloc_stat /= 0 ) then
        thisStat = -1
        return
     endif
         
-    allocate(A_Col(9,ncol),stat=alloc_stat)
+    allocate(A_Col(9,nAtomsInCol),stat=alloc_stat)
     if (alloc_stat /= 0 ) then
        thisStat = -1
        return
     endif
     
-    allocate(pot_row(nrow),stat=alloc_stat)
+    allocate(pot_row(nAtomsInRow),stat=alloc_stat)
     if (alloc_stat /= 0 ) then
        thisStat = -1
        return
     endif
     
-    allocate(pot_Col(ncol),stat=alloc_stat)
+    allocate(pot_Col(nAtomsInCol),stat=alloc_stat)
     if (alloc_stat /= 0 ) then
        thisStat = -1
        return
@@ -136,13 +136,13 @@ contains
        return
     endif
     
-    allocate(f_Row(ndim,nrow),stat=alloc_stat)
+    allocate(f_Row(ndim,nAtomsInRow),stat=alloc_stat)
     if (alloc_stat /= 0 ) then
        thisStat = -1
        return
     endif
     
-    allocate(f_Col(ndim,ncol),stat=alloc_stat)
+    allocate(f_Col(ndim,nAtomsInCol),stat=alloc_stat)
     if (alloc_stat /= 0 ) then
        thisStat = -1
        return
@@ -154,13 +154,13 @@ contains
        return
     endif
     
-    allocate(t_Row(ndim,nrow),stat=alloc_stat)
+    allocate(t_Row(ndim,nAtomsInRow),stat=alloc_stat)
     if (alloc_stat /= 0 ) then
        thisStat = -1
        return
     endif
     
-    allocate(t_Col(ndim,ncol),stat=alloc_stat)
+    allocate(t_Col(ndim,nAtomsInCol),stat=alloc_stat)
     if (alloc_stat /= 0 ) then
        thisStat = -1
        return
@@ -179,25 +179,25 @@ contains
     endif
 
 
-    allocate(atid_Row(nrow),stat=alloc_stat)
+    allocate(atid_Row(nAtomsInRow),stat=alloc_stat)
     if (alloc_stat /= 0 ) then
        thisStat = -1
        return
     endif
 
-    allocate(atid_Col(ncol),stat=alloc_stat)
+    allocate(atid_Col(nAtomsInCol),stat=alloc_stat)
     if (alloc_stat /= 0 ) then
        thisStat = -1
        return
     endif
 
-    allocate(rf_Row(ndim,nrow),stat=alloc_stat)
+    allocate(rf_Row(ndim,nAtomsInRow),stat=alloc_stat)
     if (alloc_stat /= 0 ) then
        thisStat = -1
        return
     endif
 
-    allocate(rf_Col(ndim,ncol),stat=alloc_stat)
+    allocate(rf_Col(ndim,nAtomsInCol),stat=alloc_stat)
     if (alloc_stat /= 0 ) then
        thisStat = -1
        return