--- trunk/OOPSE/libmdtools/force_globals.F90	2003/04/11 18:46:37	491
+++ trunk/OOPSE/libmdtools/force_globals.F90	2003/07/23 22:13:59	648
@@ -34,9 +34,10 @@ module force_globals
 
   integer, allocatable, dimension(:), public :: atid_Row
   integer, allocatable, dimension(:), public :: atid_Col
-#else
-  integer, allocatable, dimension(:), public :: atid
 #endif
+
+  integer, allocatable, dimension(:), public :: atid
+
   real( kind = dp ), allocatable, dimension(:,:), public :: rf
   real(kind = dp), dimension(9), public :: tau_Temp = 0.0_dp
   real(kind = dp), public :: virial_Temp = 0.0_dp
@@ -153,6 +154,13 @@ contains
        return
     endif
 
+    allocate(atid(nlocal),stat=alloc_stat)
+    if (alloc_stat /= 0 ) then
+       thisStat = -1
+       return
+    endif
+
+
     allocate(atid_Row(nrow),stat=alloc_stat)
     if (alloc_stat /= 0 ) then
        thisStat = -1
@@ -214,6 +222,7 @@ contains
     if (allocated(rf_Row))     deallocate(rf_Row)    
     if (allocated(atid_Col))   deallocate(atid_Col)
     if (allocated(atid_Row))   deallocate(atid_Row)
+    if (allocated(atid))       deallocate(atid)
     if (allocated(t_Temp))     deallocate(t_Temp)
     if (allocated(t_Col))      deallocate(t_Col)
     if (allocated(t_Row))      deallocate(t_Row)