1 |
module lj_atypes |
2 |
use atype_typedefs, ONLY: generic_atype => lj_atype, & |
3 |
generic_identPtrList => lj_identPtrList |
4 |
implicit none |
5 |
contains |
6 |
include 'generic_list_functions.i90' |
7 |
end module lj_atypes |
8 |
|
9 |
!! Takes proceedures from various atype modules and recombines them into an |
10 |
!! common interface. |
11 |
module generic_atypes |
12 |
use lj_atypes, ONLY: lj_add_atype => add_atype, & |
13 |
lj_find_atype => find_atype, & |
14 |
create_lj_identPtrlst => create_identPtrList, & |
15 |
get_ljLstLen => getListLen, print_ljlist => print_list |
16 |
use atype_typedefs |
17 |
implicit none |
18 |
|
19 |
|
20 |
|
21 |
interface add_atype |
22 |
module procedure lj_add_atype |
23 |
end interface add_atype |
24 |
|
25 |
interface find_atype |
26 |
module procedure lj_find_atype |
27 |
end interface |
28 |
|
29 |
|
30 |
interface create_identPtrlst |
31 |
module procedure create_lj_identPtrlst |
32 |
end interface |
33 |
|
34 |
interface getListLen |
35 |
module procedure get_ljLstLen |
36 |
end interface |
37 |
|
38 |
interface print_list |
39 |
module procedure print_ljlist |
40 |
end interface |
41 |
|
42 |
end module generic_atypes |