--- trunk/mdtools/md_code/atype_typedefs.F90	2003/01/27 18:28:11	247
+++ trunk/mdtools/md_code/atype_typedefs.F90	2003/02/12 16:25:39	266
@@ -31,4 +31,27 @@ end module atype_typedefs
      type(lj_atype), pointer :: this => null()
   end type lj_identPtrList
 
+!! Atype for soft sticky dipole water module
+  type :: ssd_atype
+
+!! Lennard-Jones portion of SSD model
+     type (lj_atype) :: lj_params
+     
+     logical :: hasDipole
+     real ( kind = dp ) :: dipoleMoment = 0.0_dp
+     real ( kind = dp ) :: w0
+     real ( kind = dp ) :: v0
+!! Pointer for linked list creation
+     type (ssd_atype), pointer :: next => null()
+     type (ssd_atype), pointer :: prev => null()
+  end type ssd_atype
+!! Pointer list for ljAtype
+  type :: ssd_identPtrList
+     logical :: exclude = .false.
+     type(ssd_atype), pointer :: this => null()
+  end type ssd_identPtrList
+
+
+
+
 end module atype_typedefs