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 |