--- trunk/mdtools/md_code/generic_atype_recombination.F90	2003/01/27 18:28:11	247
+++ trunk/mdtools/md_code/generic_atype_recombination.F90	2003/02/12 16:25:39	266
@@ -6,6 +6,14 @@ end module lj_atypes
   include 'generic_list_functions.i90'
 end module lj_atypes
 
+module ssd_atypes
+  use atype_typedefs, ONLY : generic_atype => ssd_atype, &
+       generic_identPtrList => ssd_identPtrList
+  implicit none
+contains
+  include 'generic_list_functions.i90'
+end module ssd_atypes
+
 !! Takes proceedures from various atype modules and recombines them into an
 !! common interface.
 module generic_atypes
@@ -13,30 +21,47 @@ module generic_atypes
        lj_find_atype => find_atype, &
        create_lj_identPtrlst => create_identPtrList, &
        get_ljLstLen => getListLen, print_ljlist => print_list
+  use ssd_atypes, ONLY: ssd_add_atype => add_atype, &
+       ssd_find_atype => find_atype, &
+       create_ssd_identPtrlst => create_identPtrList, &
+       get_ssdLstLen => getListLen, print_ssdlist => print_list
+
   use atype_typedefs
   implicit none
+  PRIVATE
 
+  public :: add_atype
+  public :: find_atype
+  public :: create_identPtrlst
+  public :: getListLen
+  public :: print_list
+  public :: lj_atype
+  public :: ssd_atype
 
-
   interface add_atype
      module procedure lj_add_atype
+     module procedure SSD_add_atype
   end interface add_atype
 
   interface find_atype
      module procedure lj_find_atype
+     module procedure SSD_find_atype
   end interface
 
 
   interface create_identPtrlst
      module procedure create_lj_identPtrlst
+     module procedure create_SSD_identPtrlst
   end interface
 
   interface getListLen
      module procedure get_ljLstLen
+     module procedure get_SSDLstLen
   end interface
 
   interface print_list
      module procedure print_ljlist
+     module procedure print_SSDlist
   end interface
 
 end module generic_atypes