ViewVC Help
View File | Revision Log | Show Annotations | View Changeset | Root Listing
root/group/branches/new_design/OOPSE-3.0/src/UseTheForce/DarkSide/atype.F90
(Generate patch)

Comparing branches/new_design/OOPSE-3.0/src/UseTheForce/DarkSide/atype.F90 (file contents):
Revision 1923 by tim, Wed Dec 1 22:45:49 2004 UTC vs.
Revision 1924 by tim, Tue Jan 11 20:39:01 2005 UTC

# Line 74 | Line 74 | subroutine makeatype(atp, status)
74    ident = atp%ident
75    is_Directional = (atp%is_Directional .ne. 0)
76    is_LennardJones = (atp%is_LennardJones .ne. 0)
77 <  is_Electrostatic = (atp%is_Charge .ne. 0) .or. (atp%is_Dipole .or. 0) .and. &
77 >  is_Electrostatic = (atp%is_Charge .ne. 0) .or. (atp%is_Dipole .ne. 0) .and. &
78                       (atp%is_Quadrupole .ne. 0)
79    
80    is_Charge = (atp%is_Charge .ne. 0)

Diff Legend

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