ViewVC Help
View File | Revision Log | Show Annotations | View Changeset | Root Listing
root/group/trunk/OOPSE/libmdtools/simulation_module.F90
(Generate patch)

Comparing trunk/OOPSE/libmdtools/simulation_module.F90 (file contents):
Revision 460 by chuckv, Fri Apr 4 22:22:30 2003 UTC vs.
Revision 480 by chuckv, Tue Apr 8 17:16:22 2003 UTC

# Line 104 | Line 104 | contains
104  
105      call InitializeForceGlobals(natoms, thisStat)
106      if (thisStat /= 0) then
107 +       write(default_error,*) "SimSetup: InitializeForceGlobals error"
108         status = -1
109         return
110      endif
111  
112      call InitializeSimGlobals(thisStat)
113      if (thisStat /= 0) then
114 +       write(default_error,*) "SimSetup: InitializeSimGlobals error"
115         status = -1
116         return
117      endif
# Line 167 | Line 169 | contains
169      enddo
170   #endif
171  
170    !! Create neighbor lists
171    call expandNeighborList(nComponents, thisStat)
172    if (thisStat /= 0) then
173       status = -1
174       return
175    endif
172  
173  
174      do i = 1, nExcludes_Local

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines