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

Comparing trunk/OOPSE-4/src/UseTheForce/DarkSide/atype.F90 (file contents):
Revision 2258 by chrisfen, Thu May 5 14:47:35 2005 UTC vs.
Revision 2259 by gezelter, Mon Jun 27 21:01:36 2005 UTC

# Line 49 | Line 49 | module atype_module
49  
50    type (Vector), pointer, public :: atypes => null()
51  
52 +
53    public :: new_atype
54    public :: delete_atypes
55  
56 +  
57 +
58   contains
59  
60    subroutine new_atype(ident, is_Directional, is_LennardJones, &
# Line 102 | Line 105 | end module atype_module
105      atypes => destroy(atypes)
106    end subroutine delete_atypes
107  
108 +
109 +
110 +
111   end module atype_module
112  

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines