OpenAD/OAD_support/OAD_rev.f90

module OAD_rev

implicit none

private
public :: modeType, our_rev_mode, our_indent, splitPrint
!, forward_mode, &
!& forward_arg_store_mode, reverse_mode, adjoint_mode, taping_mode, restore_mode

type modeType
  logical :: arg_store=.FALSE.
  logical :: arg_restore=.FALSE.
  logical :: res_store=.FALSE.
  logical :: res_restore=.FALSE.
  logical :: plain=.FALSE.
  logical :: tape=.FALSE.
  logical :: adjoint=.FALSE.
  logical :: switchedToCheckpoint=.FALSE.
  logical :: strictAnonymous=.TRUE.
end type modeType

type(modeType), save :: our_rev_mode
integer, save:: our_indent=0
logical, save:: splitPrint=.false.

end module 
1	utke	1.1	module OAD_rev
2
3			implicit none
4
5			private
6			public :: modeType, our_rev_mode, our_indent, splitPrint
7			!, forward_mode, &
8			!& forward_arg_store_mode, reverse_mode, adjoint_mode, taping_mode, restore_mode
9
10			type modeType
11			logical :: arg_store=.FALSE.
12			logical :: arg_restore=.FALSE.
13			logical :: res_store=.FALSE.
14			logical :: res_restore=.FALSE.
15			logical :: plain=.FALSE.
16			logical :: tape=.FALSE.
17			logical :: adjoint=.FALSE.
18			logical :: switchedToCheckpoint=.FALSE.
19			logical :: strictAnonymous=.TRUE.
20			end type modeType
21
22			type(modeType), save :: our_rev_mode
23			integer, save:: our_indent=0
24			logical, save:: splitPrint=.false.
25
26			end module