module OpenAD_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 OpenAD_rev