ViewVC Help
View File | Revision Log | Show Annotations | View Changeset | Root Listing
root/group/trunk/OOPSE-4/src/UseTheForce/DarkSide/atype_interface.F90
(Generate patch)

Comparing trunk/OOPSE-4/src/UseTheForce/DarkSide/atype_interface.F90 (file contents):
Revision 3158 by chuckv, Mon Jul 9 21:20:51 2007 UTC vs.
Revision 3171 by gezelter, Fri Jul 13 17:36:59 2007 UTC

# Line 15 | Line 15 | subroutine makeatype(atp, status)
15    logical :: is_Charge, is_Dipole, is_Quadrupole
16    logical :: is_Sticky, is_StickyPower, is_GayBerne, is_EAM
17    logical :: is_Shape, is_FLARB
18 <  logical :: is_MnM,is_SC
18 >  logical :: is_SC
19  
20    ident = atp%ident
21    is_Directional = (atp%is_Directional .ne. 0)
# Line 33 | Line 33 | subroutine makeatype(atp, status)
33    is_Shape = (atp%is_Shape .ne. 0)
34    is_FLARB = (atp%is_FLARB .ne. 0)
35    is_SC = (atp%is_SC .ne. 0)
36 –  is_MnM = (atp%is_MnM .ne. 0)
36  
37    call new_atype(ident, is_Directional, is_LennardJones, is_Electrostatic, &
38         is_Charge, is_Dipole, is_Quadrupole, is_Sticky, is_StickyPower, &
39 <       is_GayBerne, is_EAM, is_Shape, is_FLARB, is_SC, is_MnM,status)
39 >       is_GayBerne, is_EAM, is_Shape, is_FLARB, is_SC, status)
40  
41   end subroutine makeatype
42  

Diff Legend

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