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

Comparing trunk/mdtools/md_code/simulation_module.F90 (file contents):
Revision 252 by chuckv, Tue Jan 28 22:16:55 2003 UTC vs.
Revision 253 by chuckv, Thu Jan 30 15:20:21 2003 UTC

# Line 89 | Line 89 | contains
89      thisSim%nLRParticles = nLRParticles
90      thisSim%box          = box
91      thisSim%rlist        = rlist
92 +    thisSIm%rlistsq      = rlist * rlist
93      thisSim%rcut         = rcut
94      thisSim%rcutsq       = rcut * rcut
95      thisSim%rcut6        = thisSim%rcutsq * thisSim%rcutsq * thisSim%rcutsq
# Line 252 | Line 253 | contains
253      thisrlist = thisSim%rlist
254      if(present(rlist2)) rlist2 = thisSim%rlistsq
255  
256 +
257    end subroutine getRlist
258    
259    

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines