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 648 by chuckv, Wed Jul 23 22:13:59 2003 UTC vs.
Revision 941 by gezelter, Tue Jan 13 23:01:43 2004 UTC

# Line 16 | Line 16 | module simulation
16   #define __FORTRAN90
17   #include "fSimulation.h"
18  
19 <  type (simtype), public :: thisSim
19 >  type (simtype), public, save :: thisSim
20  
21    logical, save :: simulation_setup_complete = .false.
22  
# Line 36 | Line 36 | module simulation
36    public :: getDielect
37    public :: SimUsesPBC
38    public :: SimUsesLJ
39 +  public :: SimUsesCharges
40    public :: SimUsesDipoles
41    public :: SimUsesSticky
42    public :: SimUsesRF
# Line 207 | Line 208 | contains
208      logical :: doesit
209      doesit = thisSim%SIM_uses_sticky
210    end function SimUsesSticky
211 +
212 +  function SimUsesCharges() result(doesit)
213 +    logical :: doesit
214 +    doesit = thisSim%SIM_uses_charges
215 +  end function SimUsesCharges
216  
217    function SimUsesDipoles() result(doesit)
218      logical :: doesit

Diff Legend

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