6 |
|
include 'generic_list_functions.i90' |
7 |
|
end module lj_atypes |
8 |
|
|
9 |
+ |
module ssd_atypes |
10 |
+ |
use atype_typedefs, ONLY : generic_atype => ssd_atype, & |
11 |
+ |
generic_identPtrList => ssd_identPtrList |
12 |
+ |
implicit none |
13 |
+ |
contains |
14 |
+ |
include 'generic_list_functions.i90' |
15 |
+ |
end module ssd_atypes |
16 |
+ |
|
17 |
|
!! Takes proceedures from various atype modules and recombines them into an |
18 |
|
!! common interface. |
19 |
|
module generic_atypes |
21 |
|
lj_find_atype => find_atype, & |
22 |
|
create_lj_identPtrlst => create_identPtrList, & |
23 |
|
get_ljLstLen => getListLen, print_ljlist => print_list |
24 |
+ |
use ssd_atypes, ONLY: ssd_add_atype => add_atype, & |
25 |
+ |
ssd_find_atype => find_atype, & |
26 |
+ |
create_ssd_identPtrlst => create_identPtrList, & |
27 |
+ |
get_ssdLstLen => getListLen, print_ssdlist => print_list |
28 |
+ |
|
29 |
|
use atype_typedefs |
30 |
|
implicit none |
31 |
+ |
PRIVATE |
32 |
|
|
33 |
+ |
public :: add_atype |
34 |
+ |
public :: find_atype |
35 |
+ |
public :: create_identPtrlst |
36 |
+ |
public :: getListLen |
37 |
+ |
public :: print_list |
38 |
+ |
public :: lj_atype |
39 |
+ |
public :: ssd_atype |
40 |
|
|
20 |
– |
|
41 |
|
interface add_atype |
42 |
|
module procedure lj_add_atype |
43 |
+ |
module procedure SSD_add_atype |
44 |
|
end interface add_atype |
45 |
|
|
46 |
|
interface find_atype |
47 |
|
module procedure lj_find_atype |
48 |
+ |
module procedure SSD_find_atype |
49 |
|
end interface |
50 |
|
|
51 |
|
|
52 |
|
interface create_identPtrlst |
53 |
|
module procedure create_lj_identPtrlst |
54 |
+ |
module procedure create_SSD_identPtrlst |
55 |
|
end interface |
56 |
|
|
57 |
|
interface getListLen |
58 |
|
module procedure get_ljLstLen |
59 |
+ |
module procedure get_SSDLstLen |
60 |
|
end interface |
61 |
|
|
62 |
|
interface print_list |
63 |
|
module procedure print_ljlist |
64 |
+ |
module procedure print_SSDlist |
65 |
|
end interface |
66 |
|
|
67 |
|
end module generic_atypes |