mdtools/libmdCode/generic_atype_recombination.F90

module atypes
  use atype_typedefs, ONLY: generic_atype => atype, &
       generic_identPtrList => identPtrList
  implicit none
contains
  include 'generic_list_functions.i90'
end module atypes

!! Takes proceedures from various atype modules and recombines them into an
!! common interface.
module generic_atypes
  use atypes, ONLY: the_add_atype => add_atype, &
       the_find_atype => find_atype, &
       the_identPtrlst => the_identPtrList, &
       get_theLstLen => getListLen, print_theList => 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 the_add_atype
  end interface add_atype

  interface find_atype
     module procedure the_find_atype
  end interface


  interface create_identPtrlst
     module procedure create_the_identPtrlst
  end interface

  interface getListLen
     module procedure get_theLstLen
  end interface

  interface print_list
     module procedure print_theList
  end interface

end module generic_atypes
Revision:	292
Committed:	Thu Mar 6 14:52:44 2003 UTC (21 years, 6 months ago) by chuckv
File size:	1162 byte(s)
Log Message:	Changed code to use one generic force loop. Only one super atype that has all information is now used.
#	User	Rev	Content
1	chuckv	292	module atypes
2			use atype_typedefs, ONLY: generic_atype => atype, &
3			generic_identPtrList => identPtrList
4	mmeineke	270	implicit none
5			contains
6			include 'generic_list_functions.i90'
7	chuckv	292	end module atypes
8	mmeineke	270
9			!! Takes proceedures from various atype modules and recombines them into an
10			!! common interface.
11			module generic_atypes
12	chuckv	292	use atypes, ONLY: the_add_atype => add_atype, &
13			the_find_atype => find_atype, &
14			the_identPtrlst => the_identPtrList, &
15			get_theLstLen => getListLen, print_theList => print_list
16	mmeineke	270
17			use atype_typedefs
18			implicit none
19			PRIVATE
20
21			public :: add_atype
22			public :: find_atype
23			public :: create_identPtrlst
24			public :: getListLen
25			public :: print_list
26			public :: lj_atype
27			public :: ssd_atype
28
29			interface add_atype
30	chuckv	292	module procedure the_add_atype
31	mmeineke	270	end interface add_atype
32
33			interface find_atype
34	chuckv	292	module procedure the_find_atype
35	mmeineke	270	end interface
36
37
38			interface create_identPtrlst
39	chuckv	292	module procedure create_the_identPtrlst
40	mmeineke	270	end interface
41
42			interface getListLen
43	chuckv	292	module procedure get_theLstLen
44	mmeineke	270	end interface
45
46			interface print_list
47	chuckv	292	module procedure print_theList
48	mmeineke	270	end interface
49
50			end module generic_atypes