OpenAD/code_shallow_openad/OpenAD_dct.f90

module OpenAD_dct
  implicit none

  private
  public :: dct_node, dct

  type dct_node
    integer :: dble_tape_base=1
    integer :: dble_argcp_base=1
    integer :: dble_rescp_base=1
  end type dct_node

  integer, parameter :: max_nr_calls=10
  type(dct_node), dimension(max_nr_calls), save, target :: dct

end module OpenAD_dct
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