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	heimbach	1.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