Parent Directory | Revision Log | Revision Graph
replace with newer versions
1 | module OpenAD_dct |
2 | implicit none |
3 | |
4 | private |
5 | public :: dct_node, dct |
6 | |
7 | type dct_node |
8 | integer :: dble_tape_base=1 |
9 | integer :: dble_argcp_base=1 |
10 | integer :: dble_rescp_base=1 |
11 | end type dct_node |
12 | |
13 | integer, parameter :: max_nr_calls=10 |
14 | type(dct_node), dimension(max_nr_calls), save, target :: dct |
15 | |
16 | end module OpenAD_dct |
ViewVC Help | |
Powered by ViewVC 1.1.22 |